/compiler/cp850.pas
Pascal | 282 lines | 275 code | 6 blank | 1 comment | 0 complexity | 6890cc54d753350483d7f59450b9c64c MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ This is an automatically created file, so don't edit it } 2unit cp850; 3 4 interface 5 6 implementation 7 8 uses 9 {$if FPC_FULLVERSION<20700}ccharset{$else}charset{$endif}; 10 11 const 12 map : array[0..255] of tunicodecharmapping = ( 13 (unicode : 0; flag : umf_noinfo; reserved : 0), 14 (unicode : 1; flag : umf_noinfo; reserved : 0), 15 (unicode : 2; flag : umf_noinfo; reserved : 0), 16 (unicode : 3; flag : umf_noinfo; reserved : 0), 17 (unicode : 4; flag : umf_noinfo; reserved : 0), 18 (unicode : 5; flag : umf_noinfo; reserved : 0), 19 (unicode : 6; flag : umf_noinfo; reserved : 0), 20 (unicode : 7; flag : umf_noinfo; reserved : 0), 21 (unicode : 8; flag : umf_noinfo; reserved : 0), 22 (unicode : 9; flag : umf_noinfo; reserved : 0), 23 (unicode : 10; flag : umf_noinfo; reserved : 0), 24 (unicode : 11; flag : umf_noinfo; reserved : 0), 25 (unicode : 12; flag : umf_noinfo; reserved : 0), 26 (unicode : 13; flag : umf_noinfo; reserved : 0), 27 (unicode : 14; flag : umf_noinfo; reserved : 0), 28 (unicode : 15; flag : umf_noinfo; reserved : 0), 29 (unicode : 16; flag : umf_noinfo; reserved : 0), 30 (unicode : 17; flag : umf_noinfo; reserved : 0), 31 (unicode : 18; flag : umf_noinfo; reserved : 0), 32 (unicode : 19; flag : umf_noinfo; reserved : 0), 33 (unicode : 20; flag : umf_noinfo; reserved : 0), 34 (unicode : 21; flag : umf_noinfo; reserved : 0), 35 (unicode : 22; flag : umf_noinfo; reserved : 0), 36 (unicode : 23; flag : umf_noinfo; reserved : 0), 37 (unicode : 24; flag : umf_noinfo; reserved : 0), 38 (unicode : 25; flag : umf_noinfo; reserved : 0), 39 (unicode : 26; flag : umf_noinfo; reserved : 0), 40 (unicode : 27; flag : umf_noinfo; reserved : 0), 41 (unicode : 28; flag : umf_noinfo; reserved : 0), 42 (unicode : 29; flag : umf_noinfo; reserved : 0), 43 (unicode : 30; flag : umf_noinfo; reserved : 0), 44 (unicode : 31; flag : umf_noinfo; reserved : 0), 45 (unicode : 32; flag : umf_noinfo; reserved : 0), 46 (unicode : 33; flag : umf_noinfo; reserved : 0), 47 (unicode : 34; flag : umf_noinfo; reserved : 0), 48 (unicode : 35; flag : umf_noinfo; reserved : 0), 49 (unicode : 36; flag : umf_noinfo; reserved : 0), 50 (unicode : 37; flag : umf_noinfo; reserved : 0), 51 (unicode : 38; flag : umf_noinfo; reserved : 0), 52 (unicode : 39; flag : umf_noinfo; reserved : 0), 53 (unicode : 40; flag : umf_noinfo; reserved : 0), 54 (unicode : 41; flag : umf_noinfo; reserved : 0), 55 (unicode : 42; flag : umf_noinfo; reserved : 0), 56 (unicode : 43; flag : umf_noinfo; reserved : 0), 57 (unicode : 44; flag : umf_noinfo; reserved : 0), 58 (unicode : 45; flag : umf_noinfo; reserved : 0), 59 (unicode : 46; flag : umf_noinfo; reserved : 0), 60 (unicode : 47; flag : umf_noinfo; reserved : 0), 61 (unicode : 48; flag : umf_noinfo; reserved : 0), 62 (unicode : 49; flag : umf_noinfo; reserved : 0), 63 (unicode : 50; flag : umf_noinfo; reserved : 0), 64 (unicode : 51; flag : umf_noinfo; reserved : 0), 65 (unicode : 52; flag : umf_noinfo; reserved : 0), 66 (unicode : 53; flag : umf_noinfo; reserved : 0), 67 (unicode : 54; flag : umf_noinfo; reserved : 0), 68 (unicode : 55; flag : umf_noinfo; reserved : 0), 69 (unicode : 56; flag : umf_noinfo; reserved : 0), 70 (unicode : 57; flag : umf_noinfo; reserved : 0), 71 (unicode : 58; flag : umf_noinfo; reserved : 0), 72 (unicode : 59; flag : umf_noinfo; reserved : 0), 73 (unicode : 60; flag : umf_noinfo; reserved : 0), 74 (unicode : 61; flag : umf_noinfo; reserved : 0), 75 (unicode : 62; flag : umf_noinfo; reserved : 0), 76 (unicode : 63; flag : umf_noinfo; reserved : 0), 77 (unicode : 64; flag : umf_noinfo; reserved : 0), 78 (unicode : 65; flag : umf_noinfo; reserved : 0), 79 (unicode : 66; flag : umf_noinfo; reserved : 0), 80 (unicode : 67; flag : umf_noinfo; reserved : 0), 81 (unicode : 68; flag : umf_noinfo; reserved : 0), 82 (unicode : 69; flag : umf_noinfo; reserved : 0), 83 (unicode : 70; flag : umf_noinfo; reserved : 0), 84 (unicode : 71; flag : umf_noinfo; reserved : 0), 85 (unicode : 72; flag : umf_noinfo; reserved : 0), 86 (unicode : 73; flag : umf_noinfo; reserved : 0), 87 (unicode : 74; flag : umf_noinfo; reserved : 0), 88 (unicode : 75; flag : umf_noinfo; reserved : 0), 89 (unicode : 76; flag : umf_noinfo; reserved : 0), 90 (unicode : 77; flag : umf_noinfo; reserved : 0), 91 (unicode : 78; flag : umf_noinfo; reserved : 0), 92 (unicode : 79; flag : umf_noinfo; reserved : 0), 93 (unicode : 80; flag : umf_noinfo; reserved : 0), 94 (unicode : 81; flag : umf_noinfo; reserved : 0), 95 (unicode : 82; flag : umf_noinfo; reserved : 0), 96 (unicode : 83; flag : umf_noinfo; reserved : 0), 97 (unicode : 84; flag : umf_noinfo; reserved : 0), 98 (unicode : 85; flag : umf_noinfo; reserved : 0), 99 (unicode : 86; flag : umf_noinfo; reserved : 0), 100 (unicode : 87; flag : umf_noinfo; reserved : 0), 101 (unicode : 88; flag : umf_noinfo; reserved : 0), 102 (unicode : 89; flag : umf_noinfo; reserved : 0), 103 (unicode : 90; flag : umf_noinfo; reserved : 0), 104 (unicode : 91; flag : umf_noinfo; reserved : 0), 105 (unicode : 92; flag : umf_noinfo; reserved : 0), 106 (unicode : 93; flag : umf_noinfo; reserved : 0), 107 (unicode : 94; flag : umf_noinfo; reserved : 0), 108 (unicode : 95; flag : umf_noinfo; reserved : 0), 109 (unicode : 96; flag : umf_noinfo; reserved : 0), 110 (unicode : 97; flag : umf_noinfo; reserved : 0), 111 (unicode : 98; flag : umf_noinfo; reserved : 0), 112 (unicode : 99; flag : umf_noinfo; reserved : 0), 113 (unicode : 100; flag : umf_noinfo; reserved : 0), 114 (unicode : 101; flag : umf_noinfo; reserved : 0), 115 (unicode : 102; flag : umf_noinfo; reserved : 0), 116 (unicode : 103; flag : umf_noinfo; reserved : 0), 117 (unicode : 104; flag : umf_noinfo; reserved : 0), 118 (unicode : 105; flag : umf_noinfo; reserved : 0), 119 (unicode : 106; flag : umf_noinfo; reserved : 0), 120 (unicode : 107; flag : umf_noinfo; reserved : 0), 121 (unicode : 108; flag : umf_noinfo; reserved : 0), 122 (unicode : 109; flag : umf_noinfo; reserved : 0), 123 (unicode : 110; flag : umf_noinfo; reserved : 0), 124 (unicode : 111; flag : umf_noinfo; reserved : 0), 125 (unicode : 112; flag : umf_noinfo; reserved : 0), 126 (unicode : 113; flag : umf_noinfo; reserved : 0), 127 (unicode : 114; flag : umf_noinfo; reserved : 0), 128 (unicode : 115; flag : umf_noinfo; reserved : 0), 129 (unicode : 116; flag : umf_noinfo; reserved : 0), 130 (unicode : 117; flag : umf_noinfo; reserved : 0), 131 (unicode : 118; flag : umf_noinfo; reserved : 0), 132 (unicode : 119; flag : umf_noinfo; reserved : 0), 133 (unicode : 120; flag : umf_noinfo; reserved : 0), 134 (unicode : 121; flag : umf_noinfo; reserved : 0), 135 (unicode : 122; flag : umf_noinfo; reserved : 0), 136 (unicode : 123; flag : umf_noinfo; reserved : 0), 137 (unicode : 124; flag : umf_noinfo; reserved : 0), 138 (unicode : 125; flag : umf_noinfo; reserved : 0), 139 (unicode : 126; flag : umf_noinfo; reserved : 0), 140 (unicode : 127; flag : umf_noinfo; reserved : 0), 141 (unicode : 199; flag : umf_noinfo; reserved : 0), 142 (unicode : 252; flag : umf_noinfo; reserved : 0), 143 (unicode : 233; flag : umf_noinfo; reserved : 0), 144 (unicode : 226; flag : umf_noinfo; reserved : 0), 145 (unicode : 228; flag : umf_noinfo; reserved : 0), 146 (unicode : 224; flag : umf_noinfo; reserved : 0), 147 (unicode : 229; flag : umf_noinfo; reserved : 0), 148 (unicode : 231; flag : umf_noinfo; reserved : 0), 149 (unicode : 234; flag : umf_noinfo; reserved : 0), 150 (unicode : 235; flag : umf_noinfo; reserved : 0), 151 (unicode : 232; flag : umf_noinfo; reserved : 0), 152 (unicode : 239; flag : umf_noinfo; reserved : 0), 153 (unicode : 238; flag : umf_noinfo; reserved : 0), 154 (unicode : 236; flag : umf_noinfo; reserved : 0), 155 (unicode : 196; flag : umf_noinfo; reserved : 0), 156 (unicode : 197; flag : umf_noinfo; reserved : 0), 157 (unicode : 201; flag : umf_noinfo; reserved : 0), 158 (unicode : 230; flag : umf_noinfo; reserved : 0), 159 (unicode : 198; flag : umf_noinfo; reserved : 0), 160 (unicode : 244; flag : umf_noinfo; reserved : 0), 161 (unicode : 246; flag : umf_noinfo; reserved : 0), 162 (unicode : 242; flag : umf_noinfo; reserved : 0), 163 (unicode : 251; flag : umf_noinfo; reserved : 0), 164 (unicode : 249; flag : umf_noinfo; reserved : 0), 165 (unicode : 255; flag : umf_noinfo; reserved : 0), 166 (unicode : 214; flag : umf_noinfo; reserved : 0), 167 (unicode : 220; flag : umf_noinfo; reserved : 0), 168 (unicode : 248; flag : umf_noinfo; reserved : 0), 169 (unicode : 163; flag : umf_noinfo; reserved : 0), 170 (unicode : 216; flag : umf_noinfo; reserved : 0), 171 (unicode : 215; flag : umf_noinfo; reserved : 0), 172 (unicode : 402; flag : umf_noinfo; reserved : 0), 173 (unicode : 225; flag : umf_noinfo; reserved : 0), 174 (unicode : 237; flag : umf_noinfo; reserved : 0), 175 (unicode : 243; flag : umf_noinfo; reserved : 0), 176 (unicode : 250; flag : umf_noinfo; reserved : 0), 177 (unicode : 241; flag : umf_noinfo; reserved : 0), 178 (unicode : 209; flag : umf_noinfo; reserved : 0), 179 (unicode : 170; flag : umf_noinfo; reserved : 0), 180 (unicode : 186; flag : umf_noinfo; reserved : 0), 181 (unicode : 191; flag : umf_noinfo; reserved : 0), 182 (unicode : 174; flag : umf_noinfo; reserved : 0), 183 (unicode : 172; flag : umf_noinfo; reserved : 0), 184 (unicode : 189; flag : umf_noinfo; reserved : 0), 185 (unicode : 188; flag : umf_noinfo; reserved : 0), 186 (unicode : 161; flag : umf_noinfo; reserved : 0), 187 (unicode : 171; flag : umf_noinfo; reserved : 0), 188 (unicode : 187; flag : umf_noinfo; reserved : 0), 189 (unicode : 9617; flag : umf_noinfo; reserved : 0), 190 (unicode : 9618; flag : umf_noinfo; reserved : 0), 191 (unicode : 9619; flag : umf_noinfo; reserved : 0), 192 (unicode : 9474; flag : umf_noinfo; reserved : 0), 193 (unicode : 9508; flag : umf_noinfo; reserved : 0), 194 (unicode : 193; flag : umf_noinfo; reserved : 0), 195 (unicode : 194; flag : umf_noinfo; reserved : 0), 196 (unicode : 192; flag : umf_noinfo; reserved : 0), 197 (unicode : 169; flag : umf_noinfo; reserved : 0), 198 (unicode : 9571; flag : umf_noinfo; reserved : 0), 199 (unicode : 9553; flag : umf_noinfo; reserved : 0), 200 (unicode : 9559; flag : umf_noinfo; reserved : 0), 201 (unicode : 9565; flag : umf_noinfo; reserved : 0), 202 (unicode : 162; flag : umf_noinfo; reserved : 0), 203 (unicode : 165; flag : umf_noinfo; reserved : 0), 204 (unicode : 9488; flag : umf_noinfo; reserved : 0), 205 (unicode : 9492; flag : umf_noinfo; reserved : 0), 206 (unicode : 9524; flag : umf_noinfo; reserved : 0), 207 (unicode : 9516; flag : umf_noinfo; reserved : 0), 208 (unicode : 9500; flag : umf_noinfo; reserved : 0), 209 (unicode : 9472; flag : umf_noinfo; reserved : 0), 210 (unicode : 9532; flag : umf_noinfo; reserved : 0), 211 (unicode : 227; flag : umf_noinfo; reserved : 0), 212 (unicode : 195; flag : umf_noinfo; reserved : 0), 213 (unicode : 9562; flag : umf_noinfo; reserved : 0), 214 (unicode : 9556; flag : umf_noinfo; reserved : 0), 215 (unicode : 9577; flag : umf_noinfo; reserved : 0), 216 (unicode : 9574; flag : umf_noinfo; reserved : 0), 217 (unicode : 9568; flag : umf_noinfo; reserved : 0), 218 (unicode : 9552; flag : umf_noinfo; reserved : 0), 219 (unicode : 9580; flag : umf_noinfo; reserved : 0), 220 (unicode : 164; flag : umf_noinfo; reserved : 0), 221 (unicode : 240; flag : umf_noinfo; reserved : 0), 222 (unicode : 208; flag : umf_noinfo; reserved : 0), 223 (unicode : 202; flag : umf_noinfo; reserved : 0), 224 (unicode : 203; flag : umf_noinfo; reserved : 0), 225 (unicode : 200; flag : umf_noinfo; reserved : 0), 226 (unicode : 305; flag : umf_noinfo; reserved : 0), 227 (unicode : 205; flag : umf_noinfo; reserved : 0), 228 (unicode : 206; flag : umf_noinfo; reserved : 0), 229 (unicode : 207; flag : umf_noinfo; reserved : 0), 230 (unicode : 9496; flag : umf_noinfo; reserved : 0), 231 (unicode : 9484; flag : umf_noinfo; reserved : 0), 232 (unicode : 9608; flag : umf_noinfo; reserved : 0), 233 (unicode : 9604; flag : umf_noinfo; reserved : 0), 234 (unicode : 166; flag : umf_noinfo; reserved : 0), 235 (unicode : 204; flag : umf_noinfo; reserved : 0), 236 (unicode : 9600; flag : umf_noinfo; reserved : 0), 237 (unicode : 211; flag : umf_noinfo; reserved : 0), 238 (unicode : 223; flag : umf_noinfo; reserved : 0), 239 (unicode : 212; flag : umf_noinfo; reserved : 0), 240 (unicode : 210; flag : umf_noinfo; reserved : 0), 241 (unicode : 245; flag : umf_noinfo; reserved : 0), 242 (unicode : 213; flag : umf_noinfo; reserved : 0), 243 (unicode : 181; flag : umf_noinfo; reserved : 0), 244 (unicode : 254; flag : umf_noinfo; reserved : 0), 245 (unicode : 222; flag : umf_noinfo; reserved : 0), 246 (unicode : 218; flag : umf_noinfo; reserved : 0), 247 (unicode : 219; flag : umf_noinfo; reserved : 0), 248 (unicode : 217; flag : umf_noinfo; reserved : 0), 249 (unicode : 253; flag : umf_noinfo; reserved : 0), 250 (unicode : 221; flag : umf_noinfo; reserved : 0), 251 (unicode : 175; flag : umf_noinfo; reserved : 0), 252 (unicode : 180; flag : umf_noinfo; reserved : 0), 253 (unicode : 173; flag : umf_noinfo; reserved : 0), 254 (unicode : 177; flag : umf_noinfo; reserved : 0), 255 (unicode : 8215; flag : umf_noinfo; reserved : 0), 256 (unicode : 190; flag : umf_noinfo; reserved : 0), 257 (unicode : 182; flag : umf_noinfo; reserved : 0), 258 (unicode : 167; flag : umf_noinfo; reserved : 0), 259 (unicode : 247; flag : umf_noinfo; reserved : 0), 260 (unicode : 184; flag : umf_noinfo; reserved : 0), 261 (unicode : 176; flag : umf_noinfo; reserved : 0), 262 (unicode : 168; flag : umf_noinfo; reserved : 0), 263 (unicode : 183; flag : umf_noinfo; reserved : 0), 264 (unicode : 185; flag : umf_noinfo; reserved : 0), 265 (unicode : 179; flag : umf_noinfo; reserved : 0), 266 (unicode : 178; flag : umf_noinfo; reserved : 0), 267 (unicode : 9632; flag : umf_noinfo; reserved : 0), 268 (unicode : 160; flag : umf_noinfo; reserved : 0) 269 ); 270 271 unicodemap : tunicodemap = ( 272 cpname : 'cp850'; 273 cp : 850; 274 map : @map[0]; 275 lastchar : 255; 276 next : nil; 277 internalmap : true 278 ); 279 280 begin 281 registermapping(@unicodemap) 282 end.