/compiler/cpid.pas

https://github.com/slibre/freepascal · Pascal · 191 lines · 163 code · 7 blank · 21 comment · 0 complexity · 6980d341c104582af90dac072523c0fd MD5 · raw file

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