Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 1 | /***************************************************************************/ |
| 2 | /* */ |
| 3 | /* cidload.c */ |
| 4 | /* */ |
| 5 | /* CID-keyed Type1 font loader (body). */ |
| 6 | /* */ |
| 7 | /* Copyright 1996-2000 by */ |
| 8 | /* David Turner, Robert Wilhelm, and Werner Lemberg. */ |
| 9 | /* */ |
| 10 | /* This file is part of the FreeType project, and may only be used, */ |
| 11 | /* modified, and distributed under the terms of the FreeType project */ |
| 12 | /* license, LICENSE.TXT. By continuing to use, modify, or distribute */ |
| 13 | /* this file you indicate that you have read the license and */ |
| 14 | /* understand and accept it fully. */ |
| 15 | /* */ |
| 16 | /***************************************************************************/ |
| 17 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 18 | |
| 19 | #include <freetype/internal/ftdebug.h> |
| 20 | #include <freetype/config/ftconfig.h> |
| 21 | #include <freetype/ftmm.h> |
| 22 | |
| 23 | #include <freetype/internal/t1types.h> |
Werner Lemberg | e1d5dd7 | 2000-06-07 04:48:12 +0000 | [diff] [blame] | 24 | #include <freetype/internal/t1errors.h> |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 25 | |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 26 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 27 | #ifdef FT_FLAT_COMPILE |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 28 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 29 | #include "cidload.h" |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 30 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 31 | #else |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 32 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 33 | #include <cid/cidload.h> |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 34 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 35 | #endif |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 36 | |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 37 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 38 | #include <stdio.h> |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 39 | #include <ctype.h> /* for isspace(), isalnum() */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 40 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 41 | |
| 42 | /*************************************************************************/ |
| 43 | /* */ |
| 44 | /* The macro FT_COMPONENT is used in trace mode. It is an implicit */ |
| 45 | /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log */ |
| 46 | /* messages during execution. */ |
| 47 | /* */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 48 | #undef FT_COMPONENT |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 49 | #define FT_COMPONENT trace_cidload |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 50 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 51 | |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 52 | /* read a single offset */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 53 | LOCAL_FUNC |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 54 | FT_Long cid_get_offset( FT_Byte** start, |
| 55 | FT_Byte offsize ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 56 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 57 | FT_Long result; |
| 58 | FT_Byte* p = *start; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 59 | |
| 60 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 61 | for ( result = 0; offsize > 0; offsize-- ) |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 62 | { |
| 63 | result <<= 8; |
| 64 | result |= *p++; |
| 65 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 66 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 67 | *start = p; |
| 68 | return result; |
| 69 | } |
| 70 | |
| 71 | |
| 72 | LOCAL_FUNC |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 73 | void cid_decrypt( FT_Byte* buffer, |
| 74 | FT_Int length, |
| 75 | FT_UShort seed ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 76 | { |
| 77 | while ( length > 0 ) |
| 78 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 79 | FT_Byte plain; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 80 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 81 | |
| 82 | plain = ( *buffer ^ ( seed >> 8 ) ); |
| 83 | seed = ( *buffer + seed ) * 52845 + 22719; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 84 | *buffer++ = plain; |
| 85 | length--; |
| 86 | } |
| 87 | } |
| 88 | |
| 89 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 90 | /*************************************************************************/ |
| 91 | /*************************************************************************/ |
| 92 | /***** *****/ |
| 93 | /***** TYPE 1 SYMBOL PARSING *****/ |
| 94 | /***** *****/ |
| 95 | /*************************************************************************/ |
| 96 | /*************************************************************************/ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 97 | |
| 98 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 99 | static |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 100 | FT_Error cid_load_keyword( CID_Face face, |
| 101 | CID_Loader* loader, |
| 102 | const T1_Field* keyword ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 103 | { |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 104 | FT_Error error; |
| 105 | CID_Parser* parser = &loader->parser; |
| 106 | FT_Byte* object; |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 107 | void* dummy_object; |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 108 | CID_Info* cid = &face->cid; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 109 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 110 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 111 | /* if the keyword has a dedicated callback, call it */ |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 112 | if ( keyword->type == t1_field_callback ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 113 | { |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 114 | keyword->reader( (FT_Face)face, parser ); |
| 115 | error = parser->root.error; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 116 | goto Exit; |
| 117 | } |
| 118 | |
| 119 | /* we must now compute the address of our target object */ |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 120 | switch ( keyword->location ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 121 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 122 | case t1_field_cid_info: |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 123 | object = (FT_Byte*)cid; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 124 | break; |
| 125 | |
| 126 | case t1_field_font_info: |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 127 | object = (FT_Byte*)&cid->font_info; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 128 | break; |
| 129 | |
| 130 | default: |
| 131 | { |
| 132 | CID_FontDict* dict; |
| 133 | |
| 134 | |
| 135 | if ( parser->num_dict < 0 ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 136 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 137 | FT_ERROR(( "cid_load_keyword: invalid use of `%s'!\n", |
| 138 | keyword->ident )); |
| 139 | error = T1_Err_Syntax_Error; |
| 140 | goto Exit; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 141 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 142 | |
| 143 | dict = cid->font_dicts + parser->num_dict; |
| 144 | switch ( keyword->location ) |
| 145 | { |
| 146 | case t1_field_private: |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 147 | object = (FT_Byte*)&dict->private_dict; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 148 | break; |
| 149 | |
| 150 | default: |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 151 | object = (FT_Byte*)dict; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 152 | } |
| 153 | } |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 154 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 155 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 156 | dummy_object = object; |
| 157 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 158 | /* now, load the keyword data in the object's field(s) */ |
| 159 | if ( keyword->type == t1_field_integer_array || |
| 160 | keyword->type == t1_field_fixed_array ) |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 161 | error = CID_Load_Field_Table( &loader->parser, keyword, |
| 162 | &dummy_object ); |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 163 | else |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 164 | error = CID_Load_Field( &loader->parser, keyword, &dummy_object ); |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 165 | Exit: |
| 166 | return error; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 167 | } |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 168 | |
| 169 | |
Werner Lemberg | 29a90e2 | 2000-08-03 00:03:08 +0000 | [diff] [blame] | 170 | LOCAL_FUNC_X |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 171 | FT_Error parse_font_bbox( CID_Face face, |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 172 | CID_Parser* parser ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 173 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 174 | FT_Short temp[4]; |
| 175 | FT_BBox* bbox = &face->cid.font_bbox; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 176 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 177 | |
| 178 | (void)CID_ToCoordArray( parser, 4, temp ); |
| 179 | bbox->xMin = temp[0]; |
| 180 | bbox->yMin = temp[1]; |
| 181 | bbox->xMax = temp[2]; |
| 182 | bbox->yMax = temp[3]; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 183 | |
| 184 | return T1_Err_Ok; /* this is a callback function; */ |
| 185 | /* we must return an error code */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 186 | } |
| 187 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 188 | |
Werner Lemberg | 29a90e2 | 2000-08-03 00:03:08 +0000 | [diff] [blame] | 189 | LOCAL_FUNC_X |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 190 | FT_Error parse_font_matrix( CID_Face face, |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 191 | CID_Parser* parser ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 192 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 193 | FT_Matrix* matrix; |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 194 | FT_Vector* offset; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 195 | CID_FontDict* dict; |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 196 | FT_Fixed temp[6]; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 197 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 198 | |
| 199 | if ( parser->num_dict >= 0 ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 200 | { |
| 201 | dict = face->cid.font_dicts + parser->num_dict; |
| 202 | matrix = &dict->font_matrix; |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 203 | offset = &dict->font_offset; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 204 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 205 | (void)CID_ToFixedArray( parser, 6, temp, 3 ); |
| 206 | |
| 207 | /* we need to scale the values by 1.0/temp[3] */ |
| 208 | if ( temp[3] != 0x10000L ) |
| 209 | { |
| 210 | temp[0] = FT_DivFix( temp[0], temp[3] ); |
| 211 | temp[1] = FT_DivFix( temp[1], temp[3] ); |
| 212 | temp[2] = FT_DivFix( temp[2], temp[3] ); |
| 213 | temp[4] = FT_DivFix( temp[4], temp[3] ); |
| 214 | temp[5] = FT_DivFix( temp[5], temp[3] ); |
| 215 | temp[3] = 0x10000L; |
| 216 | } |
| 217 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 218 | matrix->xx = temp[0]; |
| 219 | matrix->yx = temp[1]; |
| 220 | matrix->xy = temp[2]; |
| 221 | matrix->yy = temp[3]; |
David Turner | f00a4de | 2000-10-03 22:03:09 +0000 | [diff] [blame] | 222 | |
Werner Lemberg | 6fbe4db | 2000-10-05 04:53:31 +0000 | [diff] [blame^] | 223 | /* note that the font offsets are expressed in integer font units */ |
David Turner | f00a4de | 2000-10-03 22:03:09 +0000 | [diff] [blame] | 224 | offset->x = temp[4] >> 16; |
| 225 | offset->y = temp[5] >> 16; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 226 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 227 | |
| 228 | return T1_Err_Ok; /* this is a callback function; */ |
| 229 | /* we must return an error code */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 230 | } |
| 231 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 232 | |
Werner Lemberg | 29a90e2 | 2000-08-03 00:03:08 +0000 | [diff] [blame] | 233 | LOCAL_FUNC_X |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 234 | FT_Error parse_fd_array( CID_Face face, |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 235 | CID_Parser* parser ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 236 | { |
| 237 | CID_Info* cid = &face->cid; |
| 238 | FT_Memory memory = face->root.memory; |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 239 | FT_Error error = T1_Err_Ok; |
| 240 | FT_Long num_dicts; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 241 | |
| 242 | |
| 243 | num_dicts = CID_ToInt( parser ); |
| 244 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 245 | if ( !cid->font_dicts ) |
| 246 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 247 | FT_Int n; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 248 | |
| 249 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 250 | if ( ALLOC_ARRAY( cid->font_dicts, num_dicts, CID_FontDict ) ) |
| 251 | goto Exit; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 252 | |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 253 | cid->num_dicts = (FT_UInt)num_dicts; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 254 | |
| 255 | /* don't forget to set a few defaults */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 256 | for ( n = 0; n < cid->num_dicts; n++ ) |
| 257 | { |
| 258 | CID_FontDict* dict = cid->font_dicts + n; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 259 | |
| 260 | |
| 261 | /* default value for lenIV */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 262 | dict->private_dict.lenIV = 4; |
| 263 | } |
| 264 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 265 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 266 | Exit: |
| 267 | return error; |
| 268 | } |
| 269 | |
| 270 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 271 | static |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 272 | const T1_Field cid_field_records[] = |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 273 | { |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 274 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 275 | #ifdef FT_FLAT_COMPILE |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 276 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 277 | #include "cidtokens.h" |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 278 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 279 | #else |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 280 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 281 | #include <cid/cidtokens.h> |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 282 | |
David Turner | a90663f | 2000-07-08 00:41:13 +0000 | [diff] [blame] | 283 | #endif |
Werner Lemberg | 7fa51b5 | 2000-07-08 19:51:42 +0000 | [diff] [blame] | 284 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 285 | T1_FIELD_CALLBACK( "FontBBox", parse_font_bbox ) |
| 286 | T1_FIELD_CALLBACK( "FDArray", parse_fd_array ) |
| 287 | T1_FIELD_CALLBACK( "FontMatrix", parse_font_matrix ) |
Werner Lemberg | 4e9dae6 | 2000-08-29 16:50:01 +0000 | [diff] [blame] | 288 | { 0, t1_field_cid_info, t1_field_none, 0, 0, 0, 0, 0 } |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 289 | }; |
| 290 | |
| 291 | |
| 292 | static |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 293 | int is_alpha( char c ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 294 | { |
Werner Lemberg | 35ca342 | 2000-07-31 12:14:27 +0000 | [diff] [blame] | 295 | return ( isalnum( (int)c ) || |
| 296 | c == '.' || |
| 297 | c == '_' ); |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 298 | } |
| 299 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 300 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 301 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 302 | static |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 303 | FT_Error cid_parse_dict( CID_Face face, |
| 304 | CID_Loader* loader, |
| 305 | FT_Byte* base, |
| 306 | FT_Long size ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 307 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 308 | CID_Parser* parser = &loader->parser; |
| 309 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 310 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 311 | parser->root.cursor = base; |
| 312 | parser->root.limit = base + size; |
| 313 | parser->root.error = 0; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 314 | |
| 315 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 316 | FT_Byte* cur = base; |
| 317 | FT_Byte* limit = cur + size; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 318 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 319 | |
| 320 | for ( ;cur < limit; cur++ ) |
| 321 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 322 | /* look for `%ADOBeginFontDict' */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 323 | if ( *cur == '%' && cur + 20 < limit && |
| 324 | strncmp( (char*)cur, "%ADOBeginFontDict", 17 ) == 0 ) |
| 325 | { |
| 326 | cur += 17; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 327 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 328 | /* if /FDArray was found, then cid->num_dicts is > 0, and */ |
| 329 | /* we can start increasing parser->num_dict */ |
| 330 | if ( face->cid.num_dicts > 0 ) |
| 331 | parser->num_dict++; |
| 332 | } |
| 333 | /* look for immediates */ |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 334 | else if ( *cur == '/' && cur + 2 < limit ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 335 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 336 | FT_Byte* cur2; |
| 337 | FT_Int len; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 338 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 339 | |
| 340 | cur++; |
| 341 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 342 | cur2 = cur; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 343 | while ( cur2 < limit && is_alpha( *cur2 ) ) |
| 344 | cur2++; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 345 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 346 | len = cur2 - cur; |
| 347 | if ( len > 0 && len < 22 ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 348 | { |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 349 | /* now compare the immediate name to the keyword table */ |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 350 | const T1_Field* keyword = cid_field_records; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 351 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 352 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 353 | for (;;) |
| 354 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 355 | FT_Byte* name; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 356 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 357 | |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 358 | name = (FT_Byte*)keyword->ident; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 359 | if ( !name ) |
| 360 | break; |
| 361 | |
| 362 | if ( cur[0] == name[0] && |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 363 | len == (FT_Int)strlen( (const char*)name ) ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 364 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 365 | FT_Int n; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 366 | |
| 367 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 368 | for ( n = 1; n < len; n++ ) |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 369 | if ( cur[n] != name[n] ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 370 | break; |
| 371 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 372 | if ( n >= len ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 373 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 374 | /* we found it - run the parsing callback */ |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 375 | parser->root.cursor = cur2; |
| 376 | CID_Skip_Spaces( parser ); |
Werner Lemberg | d1b7475 | 2000-08-24 16:29:15 +0000 | [diff] [blame] | 377 | parser->root.error = cid_load_keyword( face, |
| 378 | loader, |
| 379 | keyword ); |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 380 | if ( parser->root.error ) |
| 381 | return parser->root.error; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 382 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 383 | cur = parser->root.cursor; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 384 | break; |
| 385 | } |
| 386 | } |
| 387 | keyword++; |
| 388 | } |
| 389 | } |
| 390 | } |
| 391 | } |
| 392 | } |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 393 | return parser->root.error; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 394 | } |
| 395 | |
| 396 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 397 | /* read the subrmap and the subrs of each font dict */ |
| 398 | static |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 399 | FT_Error cid_read_subrs( CID_Face face ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 400 | { |
| 401 | CID_Info* cid = &face->cid; |
| 402 | FT_Memory memory = face->root.memory; |
| 403 | FT_Stream stream = face->root.stream; |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 404 | FT_Error error; |
David Turner | a1be2dc | 2000-06-27 23:20:35 +0000 | [diff] [blame] | 405 | FT_Int n; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 406 | CID_Subrs* subr; |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 407 | FT_UInt max_offsets = 0; |
| 408 | FT_ULong* offsets = 0; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 409 | |
| 410 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 411 | if ( ALLOC_ARRAY( face->subrs, cid->num_dicts, CID_Subrs ) ) |
| 412 | goto Exit; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 413 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 414 | subr = face->subrs; |
| 415 | for ( n = 0; n < cid->num_dicts; n++, subr++ ) |
| 416 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 417 | CID_FontDict* dict = cid->font_dicts + n; |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 418 | FT_UInt count, num_subrs = dict->num_subrs; |
| 419 | FT_ULong data_len; |
| 420 | FT_Byte* p; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 421 | |
| 422 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 423 | /* reallocate offsets array if needed */ |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 424 | if ( num_subrs + 1 > max_offsets ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 425 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 426 | FT_UInt new_max = ( num_subrs + 1 + 3 ) & -4; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 427 | |
| 428 | |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 429 | if ( REALLOC_ARRAY( offsets, max_offsets, new_max, FT_ULong ) ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 430 | goto Fail; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 431 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 432 | max_offsets = new_max; |
| 433 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 434 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 435 | /* read the subrmap's offsets */ |
| 436 | if ( FILE_Seek( cid->data_offset + dict->subrmap_offset ) || |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 437 | ACCESS_Frame( ( num_subrs + 1 ) * dict->sd_bytes ) ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 438 | goto Fail; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 439 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 440 | p = (FT_Byte*)stream->cursor; |
| 441 | for ( count = 0; count <= num_subrs; count++ ) |
David Turner | 81bb4ad | 2000-06-28 04:19:49 +0000 | [diff] [blame] | 442 | offsets[count] = cid_get_offset( &p, (FT_Byte)dict->sd_bytes ); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 443 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 444 | FORGET_Frame(); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 445 | |
| 446 | /* now, compute the size of subrs charstrings, */ |
| 447 | /* allocate, and read them */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 448 | data_len = offsets[num_subrs] - offsets[0]; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 449 | |
Werner Lemberg | ac39ecd | 2000-06-30 22:24:36 +0000 | [diff] [blame] | 450 | if ( ALLOC_ARRAY( subr->code, num_subrs + 1, FT_Byte* ) || |
| 451 | ALLOC( subr->code[0], data_len ) ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 452 | goto Fail; |
| 453 | |
| 454 | if ( FILE_Seek( cid->data_offset + offsets[0] ) || |
| 455 | FILE_Read( subr->code[0], data_len ) ) |
| 456 | goto Exit; |
| 457 | |
| 458 | /* set up pointers */ |
| 459 | for ( count = 1; count <= num_subrs; count++ ) |
| 460 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 461 | FT_UInt len; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 462 | |
| 463 | |
| 464 | len = offsets[count] - offsets[count - 1]; |
| 465 | subr->code[count] = subr->code[count - 1] + len; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 466 | } |
| 467 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 468 | /* decrypt subroutines */ |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 469 | for ( count = 0; count < num_subrs; count++ ) |
| 470 | { |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 471 | FT_UInt len; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 472 | |
| 473 | |
| 474 | len = offsets[count + 1] - offsets[count]; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 475 | cid_decrypt( subr->code[count], len, 4330 ); |
| 476 | } |
| 477 | |
| 478 | subr->num_subrs = num_subrs; |
| 479 | } |
| 480 | |
| 481 | Exit: |
| 482 | FREE( offsets ); |
| 483 | return error; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 484 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 485 | Fail: |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 486 | if ( face->subrs ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 487 | { |
| 488 | for ( n = 0; n < cid->num_dicts; n++ ) |
| 489 | { |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 490 | if ( face->subrs[n].code ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 491 | FREE( face->subrs[n].code[0] ); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 492 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 493 | FREE( face->subrs[n].code ); |
| 494 | } |
| 495 | FREE( face->subrs ); |
| 496 | } |
| 497 | goto Exit; |
| 498 | } |
| 499 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 500 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 501 | static |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 502 | void t1_init_loader( CID_Loader* loader, |
| 503 | CID_Face face ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 504 | { |
David Turner | c6a9220 | 2000-07-04 18:12:13 +0000 | [diff] [blame] | 505 | FT_UNUSED( face ); |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 506 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 507 | MEM_Set( loader, 0, sizeof ( *loader ) ); |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 508 | } |
| 509 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 510 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 511 | static |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 512 | void t1_done_loader( CID_Loader* loader ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 513 | { |
| 514 | CID_Parser* parser = &loader->parser; |
| 515 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 516 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 517 | /* finalize parser */ |
| 518 | CID_Done_Parser( parser ); |
| 519 | } |
| 520 | |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 521 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 522 | LOCAL_FUNC |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 523 | FT_Error CID_Open_Face( CID_Face face ) |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 524 | { |
| 525 | CID_Loader loader; |
| 526 | CID_Parser* parser; |
David Turner | f9b8dec | 2000-06-16 19:34:52 +0000 | [diff] [blame] | 527 | FT_Error error; |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 528 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 529 | |
| 530 | t1_init_loader( &loader, face ); |
| 531 | |
| 532 | parser = &loader.parser; |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 533 | error = CID_New_Parser( parser, face->root.stream, face->root.memory, |
| 534 | (PSAux_Interface*)face->psaux ); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 535 | if ( error ) |
| 536 | goto Exit; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 537 | |
David Turner | 34f1c2f | 2000-08-23 22:47:44 +0000 | [diff] [blame] | 538 | error = cid_parse_dict( face, &loader, |
| 539 | parser->postscript, |
| 540 | parser->postscript_len ); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 541 | if ( error ) |
| 542 | goto Exit; |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 543 | |
| 544 | face->cid.data_offset = loader.parser.data_offset; |
| 545 | error = cid_read_subrs( face ); |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 546 | |
David Turner | 04aa800 | 2000-06-01 03:27:48 +0000 | [diff] [blame] | 547 | Exit: |
| 548 | t1_done_loader( &loader ); |
| 549 | return error; |
| 550 | } |
Werner Lemberg | e3c11d7 | 2000-06-16 06:49:56 +0000 | [diff] [blame] | 551 | |
| 552 | |
| 553 | /* END */ |