/compiler/cpid.pas

  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.