/compiler/cpid.pas
Pascal | 191 lines | 163 code | 7 blank | 21 comment | 0 complexity | 6980d341c104582af90dac072523c0fd MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ 2 Copyright (c) 2008 by Florian Klaempfl 3 4 Basic stuff for encoding sensitive strings 5 6 This program is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 2 of the License, or 9 (at your option) any later version. 10 11 This program is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 19 **************************************************************************** 20} 21unit cpid; 22 23 24{$i fpcdefs.inc} 25 26 interface 27 28 type 29 TEncodingEntry = record 30 id : TStringEncoding; 31 name : Ansistring; 32 end; 33 34 const Encodings : array[0..150] of TEncodingEntry = ( 35 id : 037; name : 'IBM037'; 36 id : 437; name : 'IBM437'; 37 id : 500; name : 'IBM500'; 38 id : 708; name : 'ASMO-708'; 39 id : 709; name : 'ASMO-449+'; 40 id : 710; name : 'Arabic'; 41 id : 720; name : 'DOS-720'; 42 id : 737; name : 'ibm737'; 43 id : 775; name : 'ibm775'; 44 id : 850; name : 'ibm850'; 45 id : 852; name : 'ibm852'; 46 id : 855; name : 'IBM855'; 47 id : 857; name : 'ibm857'; 48 id : 858; name : 'IBM00858'; 49 id : 860; name : 'IBM860'; 50 id : 861; name : 'ibm861'; 51 id : 862; name : 'DOS-862'; 52 id : 863; name : 'IBM863'; 53 id : 864; name : 'IBM864'; 54 id : 865; name : 'IBM865'; 55 id : 866; name : 'cp866'';; 56 id : 869; name : 'ibm869'; 57 id : 870; name : 'IBM870'; 58 id : 874; name : 'windows-874'; 59 id : 875; name : 'cp875'; 60 id : 932; name : 'shift_jis'; 61 id : 936; name : 'gb2312'; 62 id : 949; name : 'ks_c_5601-1987'; 63 id : 950; name : 'big5'; 64 id : 1026; name : 'IBM1026'; 65 id : 1047; name : 'IBM01047'; 66 id : 1140; name : 'IBM01140'; 67 id : 1141; name : 'IBM01141'; 68 id : 1142; name : 'IBM01142'; 69 id : 1143; name : 'IBM01143'; 70 id : 1144; name : 'IBM01144'; 71 id : 1145; name : 'IBM01145'; 72 id : 1146; name : 'IBM01146'; 73 id : 1147; name : 'IBM01147'; 74 id : 1148; name : 'IBM01148'; 75 id : 1149; name : 'IBM01149'; 76 id : 1200; name : 'utf-16'; 77 id : 1201; name : 'unicodeFFFE'; 78 id : 1250; name : 'windows-1250'; 79 id : 1251; name : 'windows-1251'; 80 id : 1252; name : 'windows-1252'; 81 id : 1253; name : 'windows-1253'; 82 id : 1254; name : 'windows-1254'; 83 id : 1255; name : 'windows-1255'; 84 id : 1256; name : 'windows-1256'; 85 id : 1257; name : 'windows-1257'; 86 id : 1258; name : 'windows-1258'; 87 id : 1361; name : 'Johab'; 88 id : 10000; name : 'macintosh'; 89 id : 10001; name : 'x-mac-japanese'; 90 id : 10002; name : 'x-mac-chinesetrad'; 91 id : 10003; name : 'x-mac-korean'; 92 id : 10004; name : 'x-mac-arabic'; 93 id : 10005; name : 'x-mac-hebrew'; 94 id : 10006; name : 'x-mac-greek'; 95 id : 10007; name : 'x-mac-cyrillic'; 96 id : 10008; name : 'x-mac-chinesesimp'; 97 id : 10010; name : 'x-mac-romanian'; 98 id : 10017; name : 'x-mac-ukrainian'; 99 id : 10021; name : 'x-mac-thai'; 100 id : 10029; name : 'x-mac-ce'; 101 id : 10079; name : 'x-mac-icelandic'; 102 id : 10081; name : 'x-mac-turkish'; 103 id : 10082; name : 'x-mac-croatian'; 104 id : 12000; name : 'utf-32'; 105 id : 12001; name : 'utf-32BE'; 106 id : 20000; name : 'x-Chinese_CNS'; 107 id : 20001; name : 'x-cp20001'; 108 id : 20002; name : 'x_Chinese-Eten'; 109 id : 20003; name : 'x-cp20003'; 110 id : 20004; name : 'x-cp20004'; 111 id : 20005; name : 'x-cp20005'; 112 id : 20105; name : 'x-IA5'; 113 id : 20106; name : 'x-IA5-German'; 114 id : 20107; name : 'x-IA5-Swedish'; 115 id : 20108; name : 'x-IA5-Norwegian'; 116 id : 20127; name : 'us-ascii'; 117 id : 20261; name : 'x-cp20261'; 118 id : 20269; name : 'x-cp20269'; 119 id : 20273; name : 'IBM273'; 120 id : 20277; name : 'IBM277'; 121 id : 20278; name : 'IBM278'; 122 id : 20280; name : 'IBM280'; 123 id : 20284; name : 'IBM284'; 124 id : 20285; name : 'IBM285'; 125 id : 20290; name : 'IBM290'; 126 id : 20297; name : 'IBM297'; 127 id : 20420; name : 'IBM420'; 128 id : 20423; name : 'IBM423'; 129 id : 20424; name : 'IBM424'; 130 id : 20833; name : 'x-EBCDIC-KoreanExtended'; 131 id : 20838; name : 'IBM-Thai'; 132 id : 20866; name : 'koi8-r'; 133 id : 20871; name : 'IBM871'; 134 id : 20880; name : 'IBM880'; 135 id : 20905; name : 'IBM905'; 136 id : 20924; name : 'IBM00924'; 137 id : 20932; name : 'EUC-JP'; 138 id : 20936; name : 'x-cp20936'; 139 id : 20949; name : 'x-cp20949'; 140 id : 21025; name : 'cp1025'; 141 id : 21866; name : 'koi8-u'; 142 id : 28591; name : 'iso-8859-1'; 143 id : 28592; name : 'iso-8859-2'; 144 id : 28593; name : 'iso-8859-3'; 145 id : 28594; name : 'iso-8859-4'; 146 id : 28595; name : 'iso-8859-5'; 147 id : 28596; name : 'iso-8859-6'; 148 id : 28597; name : 'iso-8859-7'; 149 id : 28598; name : 'iso-8859-8'; 150 id : 28599; name : 'iso-8859-9'; 151 id : 28603; name : 'iso-8859-13'; 152 id : 28605; name : 'iso-8859-15'; 153 id : 29001; name : 'x-Europa'; 154 id : 38598; name : 'iso-8859-8-i'; 155 id : 50220; name : 'iso-2022-jp'; 156 id : 50221; name : 'csISO2022JP'; 157 id : 50222; name : 'iso-2022-jp'; 158 id : 50225; name : 'iso-2022-kr'; 159 id : 50227; name : 'x-cp50227'; 160 id : 50229; name : 'ISO 2022'; 161 { not unique 162 id : 50930; name : 'EBCDIC 163 id : 50931; name : 'EBCDIC 164 id : 50933; name : 'EBCDIC 165 id : 50935; name : 'EBCDIC 166 id : 50936; name : 'EBCDIC 167 id : 50937; name : 'EBCDIC 168 id : 50939; name : 'EBCDIC 169 } 170 id : 51932; name : 'euc-jp'; 171 id : 51936; name : 'EUC-CN'; 172 id : 51949; name : 'euc-kr'; 173 id : 51950; name : 'EUC'; 174 id : 52936; name : 'hz-gb-2312'; 175 id : 54936; name : 'GB18030'; 176 id : 57002; name : 'x-iscii-de'; 177 id : 57003; name : 'x-iscii-be'; 178 id : 57004; name : 'x-iscii-ta'; 179 id : 57005; name : 'x-iscii-te'; 180 id : 57006; name : 'x-iscii-as'; 181 id : 57007; name : 'x-iscii-or'; 182 id : 57008; name : 'x-iscii-ka'; 183 id : 57009; name : 'x-iscii-ma'; 184 id : 57010; name : 'x-iscii-gu'; 185 id : 57011; name : 'x-iscii-pa'; 186 id : 65000; name : 'utf-7'; 187 id : 65001; name : 'utf-8'); 188 189 implementation 190 191end.