Domovská stránka Prehľadávať Pomoc
Prihlásiť sa
BlitzNG
/
text.mod
zrkadlo https://github.com/bmx-ng/text.mod.git
2
0
Fork 0
Súbory Issues 0 Wiki
Branch: master
Branche Tagy
text.mod
/
encoding.mod
/
iso.bmx

iso.bmx 18 KB
Permanentný odkaz História Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289 
  1. ' Copyright (c) 2023 Bruce A Henderson
    2. 

  2. '
    3. 

  3. ' This software is provided 'as-is', without any express or implied
    4. 

  4. ' warranty. In no event will the authors be held liable for any damages
    5. 

  5. ' arising from the use of this software.
    6. 

  6. ' 
    7. 

  7. ' Permission is granted to anyone to use this software for any purpose,
    8. 

  8. ' including commercial applications, and to alter it and redistribute it
    9. 

  9. ' freely, subject to the following restrictions:
    10. 

  10. ' 
    11. 

  11. '    1. The origin of this software must not be misrepresented; you must not
    12. 

  12. '    claim that you wrote the original software. If you use this software
    13. 

  13. '    in a product, an acknowledgment in the product documentation would be
    14. 

  14. '    appreciated but is not required.
    15. 

  15. ' 
    16. 

  16. '    2. Altered source versions must be plainly marked as such, and must not be
    17. 

  17. '    misrepresented as being the original software.
    18. 

  18. ' 
    19. 

  19. '    3. This notice may not be removed or altered from any source
    20. 

  20. '    distribution.
    21. 

  21. ' 
    22. 

  22. SuperStrict
    23. 

  23. 

  24. Import BRL.UTF8Stream
    25. 

  25. 

  26. 

  27. Type TEncodingStrategyLoaderISO_8859_2 Extends TEncodingStrategyLoader
    28. 

  28. 	Method Encoding:EStreamEncoding()
    29. 

  29. 		Return EStreamEncoding.ISO_8859_2
    30. 

  30. 	End Method
    31. 

  31. 

  32. 	Method Load:IEncodingStrategy(stream:TStream)
    33. 

  33. 		Return New TISO_8859_2_EncodingStrategy(stream)
    34. 

  34. 	End Method
    35. 

  35. End Type
    36. 

  36. 

  37. Type TISO_8859_2_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    38. 

  38.     Method New(sourceStream:TStream)
    39. 

  39.         stream = sourceStream
    40. 

  40.         LoadMapping()
    41. 

  41.     End Method
    42. 

  42. 

  43.     Method LoadTable(table:Short Ptr)
    44. 

  44.         Global encodingTable:Short[]
    45. 

  45.         If Not encodingTable Then
    46. 

  46.             encodingTable = [..
    47. 

  47. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    48. 

  48. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    49. 

  49. 				$00A0:Short, $0104:Short, $02D8:Short, $0141:Short, $00A4:Short, $013D:Short, $015A:Short, $00A7:Short, $00A8:Short, $0160:Short, $015E:Short, $0164:Short, $0179:Short, $00AD:Short, $017D:Short, $017B:Short,..
    50. 

  50. 				$00B0:Short, $0105:Short, $02DB:Short, $0142:Short, $00B4:Short, $013E:Short, $015B:Short, $02C7:Short, $00B8:Short, $0161:Short, $015F:Short, $0165:Short, $017A:Short, $02DD:Short, $017E:Short, $017C:Short,..
    51. 

  51. 				$0154:Short, $00C1:Short, $00C2:Short, $0102:Short, $00C4:Short, $0139:Short, $0106:Short, $00C7:Short, $010C:Short, $00C9:Short, $0118:Short, $00CB:Short, $011A:Short, $00CD:Short, $00CE:Short, $010E:Short,..
    52. 

  52. 				$0110:Short, $0143:Short, $0147:Short, $00D3:Short, $00D4:Short, $0150:Short, $00D6:Short, $00D7:Short, $0158:Short, $016E:Short, $00DA:Short, $0170:Short, $00DC:Short, $00DD:Short, $0162:Short, $00DF:Short,..
    53. 

  53. 				$0155:Short, $00E1:Short, $00E2:Short, $0103:Short, $00E4:Short, $013A:Short, $0107:Short, $00E7:Short, $010D:Short, $00E9:Short, $0119:Short, $00EB:Short, $011B:Short, $00ED:Short, $00EE:Short, $010F:Short,..
    54. 

  54. 				$0111:Short, $0144:Short, $0148:Short, $00F3:Short, $00F4:Short, $0151:Short, $00F6:Short, $00F7:Short, $0159:Short, $016F:Short, $00FA:Short, $0171:Short, $00FC:Short, $00FD:Short, $0163:Short, $02D9:Short]
    55. 

  55.         End If
    56. 

  56. 

  57.         For Local i:Int = 0 To 127
    58. 

  58.             table[i] = encodingTable[i]
    59. 

  59.         Next
    60. 

  60.     End Method
    61. 

  61. End Type
    62. 

  62. 

  63. 

  64. Type TEncodingStrategyLoaderISO_8859_5 Extends TEncodingStrategyLoader
    65. 

  65. 	Method Encoding:EStreamEncoding()
    66. 

  66. 		Return EStreamEncoding.ISO_8859_5
    67. 

  67. 	End Method
    68. 

  68. 

  69. 	Method Load:IEncodingStrategy(stream:TStream)
    70. 

  70. 		Return New TISO_8859_5_EncodingStrategy(stream)
    71. 

  71. 	End Method
    72. 

  72. End Type
    73. 

  73. 

  74. 

  75. Type TISO_8859_5_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    76. 

  76.     Method New(sourceStream:TStream)
    77. 

  77.         stream = sourceStream
    78. 

  78.         LoadMapping()
    79. 

  79.     End Method
    80. 

  80. 

  81.     Method LoadTable(table:Short Ptr)
    82. 

  82.         Global encodingTable:Short[]
    83. 

  83.         If Not encodingTable Then
    84. 

  84.             encodingTable = [..
    85. 

  85. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    86. 

  86. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    87. 

  87. 				$00A0:Short, $0401:Short, $0402:Short, $0403:Short, $0404:Short, $0405:Short, $0406:Short, $0407:Short, $0408:Short, $0409:Short, $040A:Short, $040B:Short, $040C:Short, $00AD:Short, $040E:Short, $040F:Short,..
    88. 

  88. 				$0410:Short, $0411:Short, $0412:Short, $0413:Short, $0414:Short, $0415:Short, $0416:Short, $0417:Short, $0418:Short, $0419:Short, $041A:Short, $041B:Short, $041C:Short, $041D:Short, $041E:Short, $041F:Short,..
    89. 

  89. 				$0420:Short, $0421:Short, $0422:Short, $0423:Short, $0424:Short, $0425:Short, $0426:Short, $0427:Short, $0428:Short, $0429:Short, $042A:Short, $042B:Short, $042C:Short, $042D:Short, $042E:Short, $042F:Short,..
    90. 

  90. 				$0430:Short, $0431:Short, $0432:Short, $0433:Short, $0434:Short, $0435:Short, $0436:Short, $0437:Short, $0438:Short, $0439:Short, $043A:Short, $043B:Short, $043C:Short, $043D:Short, $043E:Short, $043F:Short,..
    91. 

  91. 				$0440:Short, $0441:Short, $0442:Short, $0443:Short, $0444:Short, $0445:Short, $0446:Short, $0447:Short, $0448:Short, $0449:Short, $044A:Short, $044B:Short, $044C:Short, $044D:Short, $044E:Short, $044F:Short,..
    92. 

  92. 				$2116:Short, $0451:Short, $0452:Short, $0453:Short, $0454:Short, $0455:Short, $0456:Short, $0457:Short, $0458:Short, $0459:Short, $045A:Short, $045B:Short, $045C:Short, $00A7:Short, $045E:Short, $045F:Short]
    93. 

  93.         End If
    94. 

  94. 

  95.         For Local i:Int = 0 To 127
    96. 

  96.             table[i] = encodingTable[i]
    97. 

  97.         Next
    98. 

  98.     End Method
    99. 

  99. End Type
    100. 

  100. 

  101. Type TEncodingStrategyLoaderISO_8859_6 Extends TEncodingStrategyLoader
    102. 

  102. 	Method Encoding:EStreamEncoding()
    103. 

  103. 		Return EStreamEncoding.ISO_8859_6
    104. 

  104. 	End Method
    105. 

  105. 

  106. 	Method Load:IEncodingStrategy(stream:TStream)
    107. 

  107. 		Return New TISO_8859_6_EncodingStrategy(stream)
    108. 

  108. 	End Method
    109. 

  109. End Type
    110. 

  110. 

  111. 

  112. Type TISO_8859_6_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    113. 

  113.     Method New(sourceStream:TStream)
    114. 

  114.         stream = sourceStream
    115. 

  115.         LoadMapping()
    116. 

  116.     End Method
    117. 

  117. 

  118.     Method LoadTable(table:Short Ptr)
    119. 

  119.         Global encodingTable:Short[]
    120. 

  120.         If Not encodingTable Then
    121. 

  121.             encodingTable = [..
    122. 

  122. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    123. 

  123. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    124. 

  124. 				$00A0:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $00A4:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $060C:Short, $00AD:Short, $FFFD:Short, $FFFD:Short,..
    125. 

  125. 				$FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $061B:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $061F:Short,..
    126. 

  126. 				$FFFD:Short, $0621:Short, $0622:Short, $0623:Short, $0624:Short, $0625:Short, $0626:Short, $0627:Short, $0628:Short, $0629:Short, $062A:Short, $062B:Short, $062C:Short, $062D:Short, $062E:Short, $062F:Short,..
    127. 

  127. 				$0630:Short, $0631:Short, $0632:Short, $0633:Short, $0634:Short, $0635:Short, $0636:Short, $0637:Short, $0638:Short, $0639:Short, $063A:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short,..
    128. 

  128. 				$0640:Short, $0641:Short, $0642:Short, $0643:Short, $0644:Short, $0645:Short, $0646:Short, $0647:Short, $0648:Short, $0649:Short, $064A:Short, $064B:Short, $064C:Short, $064D:Short, $064E:Short, $064F:Short,..
    129. 

  129. 				$0650:Short, $0651:Short, $0652:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short]
    130. 

  130.         End If
    131. 

  131. 

  132.         For Local i:Int = 0 To 127
    133. 

  133.             table[i] = encodingTable[i]
    134. 

  134.         Next
    135. 

  135.     End Method
    136. 

  136. End Type
    137. 

  137. 

  138. Type TEncodingStrategyLoaderISO_8859_7 Extends TEncodingStrategyLoader
    139. 

  139. 	Method Encoding:EStreamEncoding()
    140. 

  140. 		Return EStreamEncoding.ISO_8859_7
    141. 

  141. 	End Method
    142. 

  142. 

  143. 	Method Load:IEncodingStrategy(stream:TStream)
    144. 

  144. 		Return New TISO_8859_7_EncodingStrategy(stream)
    145. 

  145. 	End Method
    146. 

  146. End Type
    147. 

  147. 

  148. Type TISO_8859_7_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    149. 

  149.     Method New(sourceStream:TStream)
    150. 

  150.         stream = sourceStream
    151. 

  151.         LoadMapping()
    152. 

  152.     End Method
    153. 

  153. 

  154.     Method LoadTable(table:Short Ptr)
    155. 

  155.         Global encodingTable:Short[]
    156. 

  156.         If Not encodingTable Then
    157. 

  157.             encodingTable = [..
    158. 

  158. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    159. 

  159. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    160. 

  160. 				$00A0:Short, $2018:Short, $2019:Short, $00A3:Short, $20AC:Short, $20AF:Short, $00A6:Short, $00A7:Short, $00A8:Short, $00A9:Short, $037A:Short, $00AB:Short, $00AC:Short, $00AD:Short, $FFFD:Short, $2015:Short,..
    161. 

  161. 				$00B0:Short, $00B1:Short, $00B2:Short, $00B3:Short, $0384:Short, $0385:Short, $0386:Short, $00B7:Short, $0388:Short, $0389:Short, $038A:Short, $00BB:Short, $038C:Short, $00BD:Short, $038E:Short, $038F:Short,..
    162. 

  162. 				$0390:Short, $0391:Short, $0392:Short, $0393:Short, $0394:Short, $0395:Short, $0396:Short, $0397:Short, $0398:Short, $0399:Short, $039A:Short, $039B:Short, $039C:Short, $039D:Short, $039E:Short, $039F:Short,..
    163. 

  163. 				$03A0:Short, $03A1:Short, $FFFD:Short, $03A3:Short, $03A4:Short, $03A5:Short, $03A6:Short, $03A7:Short, $03A8:Short, $03A9:Short, $03AA:Short, $03AB:Short, $03AC:Short, $03AD:Short, $03AE:Short, $03AF:Short,..
    164. 

  164. 				$03B0:Short, $03B1:Short, $03B2:Short, $03B3:Short, $03B4:Short, $03B5:Short, $03B6:Short, $03B7:Short, $03B8:Short, $03B9:Short, $03BA:Short, $03BB:Short, $03BC:Short, $03BD:Short, $03BE:Short, $03BF:Short,..
    165. 

  165. 				$03C0:Short, $03C1:Short, $03C2:Short, $03C3:Short, $03C4:Short, $03C5:Short, $03C6:Short, $03C7:Short, $03C8:Short, $03C9:Short, $03CA:Short, $03CB:Short, $03CC:Short, $03CD:Short, $03CE:Short, $FFFD:Short]
    166. 

  166.         End If
    167. 

  167. 

  168.         For Local i:Int = 0 To 127
    169. 

  169.             table[i] = encodingTable[i]
    170. 

  170.         Next
    171. 

  171.     End Method
    172. 

  172. End Type
    173. 

  173. 

  174. Type TEncodingStrategyLoaderISO_8859_8 Extends TEncodingStrategyLoader
    175. 

  175. 	Method Encoding:EStreamEncoding()
    176. 

  176. 		Return EStreamEncoding.ISO_8859_8
    177. 

  177. 	End Method
    178. 

  178. 

  179. 	Method Load:IEncodingStrategy(stream:TStream)
    180. 

  180. 		Return New TISO_8859_8_EncodingStrategy(stream)
    181. 

  181. 	End Method
    182. 

  182. End Type
    183. 

  183. 

  184. Type TISO_8859_8_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    185. 

  185.     Method New(sourceStream:TStream)
    186. 

  186.         stream = sourceStream
    187. 

  187.         LoadMapping()
    188. 

  188.     End Method
    189. 

  189. 

  190.     Method LoadTable(table:Short Ptr)
    191. 

  191.         Global encodingTable:Short[]
    192. 

  192.         If Not encodingTable Then
    193. 

  193.             encodingTable = [..
    194. 

  194. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    195. 

  195. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    196. 

  196. 				$00A0:Short, $FFFD:Short, $00A2:Short, $00A3:Short, $00A4:Short, $00A5:Short, $00A6:Short, $00A7:Short, $00A8:Short, $00A9:Short, $00D7:Short, $00AB:Short, $00AC:Short, $00AD:Short, $00AE:Short, $00AF:Short,..
    197. 

  197. 				$00B0:Short, $00B1:Short, $00B2:Short, $00B3:Short, $00B4:Short, $00B5:Short, $00B6:Short, $00B7:Short, $00B8:Short, $00B9:Short, $00F7:Short, $00BB:Short, $00BC:Short, $00BD:Short, $00BE:Short, $FFFD:Short,..
    198. 

  198. 				$FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short,..
    199. 

  199. 				$FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $FFFD:Short, $2017:Short,..
    200. 

  200. 				$05D0:Short, $05D1:Short, $05D2:Short, $05D3:Short, $05D4:Short, $05D5:Short, $05D6:Short, $05D7:Short, $05D8:Short, $05D9:Short, $05DA:Short, $05DB:Short, $05DC:Short, $05DD:Short, $05DE:Short, $05DF:Short,..
    201. 

  201. 				$05E0:Short, $05E1:Short, $05E2:Short, $05E3:Short, $05E4:Short, $05E5:Short, $05E6:Short, $05E7:Short, $05E8:Short, $05E9:Short, $05EA:Short, $FFFD:Short, $FFFD:Short, $200E:Short, $200F:Short, $FFFD:Short]
    202. 

  202.         End If
    203. 

  203. 

  204.         For Local i:Int = 0 To 127
    205. 

  205.             table[i] = encodingTable[i]
    206. 

  206.         Next
    207. 

  207.     End Method
    208. 

  208. End Type
    209. 

  209. 

  210. Type TEncodingStrategyLoaderISO_8859_9 Extends TEncodingStrategyLoader
    211. 

  211. 	Method Encoding:EStreamEncoding()
    212. 

  212. 		Return EStreamEncoding.ISO_8859_9
    213. 

  213. 	End Method
    214. 

  214. 

  215. 	Method Load:IEncodingStrategy(stream:TStream)
    216. 

  216. 		Return New TISO_8859_9_EncodingStrategy(stream)
    217. 

  217. 	End Method
    218. 

  218. End Type
    219. 

  219. 

  220. Type TISO_8859_9_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    221. 

  221.     Method New(sourceStream:TStream)
    222. 

  222.         stream = sourceStream
    223. 

  223.         LoadMapping()
    224. 

  224.     End Method
    225. 

  225. 

  226.     Method LoadTable(table:Short Ptr)
    227. 

  227.         Global encodingTable:Short[]
    228. 

  228.         If Not encodingTable Then
    229. 

  229.             encodingTable = [..
    230. 

  230. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    231. 

  231. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    232. 

  232. 				$00A0:Short, $00A1:Short, $00A2:Short, $00A3:Short, $00A4:Short, $00A5:Short, $00A6:Short, $00A7:Short, $00A8:Short, $00A9:Short, $00AA:Short, $00AB:Short, $00AC:Short, $00AD:Short, $00AE:Short, $00AF:Short,..
    233. 

  233. 				$00B0:Short, $00B1:Short, $00B2:Short, $00B3:Short, $00B4:Short, $00B5:Short, $00B6:Short, $00B7:Short, $00B8:Short, $00B9:Short, $00BA:Short, $00BB:Short, $00BC:Short, $00BD:Short, $00BE:Short, $00BF:Short,..
    234. 

  234. 				$00C0:Short, $00C1:Short, $00C2:Short, $00C3:Short, $00C4:Short, $00C5:Short, $00C6:Short, $00C7:Short, $00C8:Short, $00C9:Short, $00CA:Short, $00CB:Short, $00CC:Short, $00CD:Short, $00CE:Short, $00CF:Short,..
    235. 

  235. 				$011E:Short, $00D1:Short, $00D2:Short, $00D3:Short, $00D4:Short, $00D5:Short, $00D6:Short, $00D7:Short, $00D8:Short, $00D9:Short, $00DA:Short, $00DB:Short, $00DC:Short, $0130:Short, $015E:Short, $00DF:Short,..
    236. 

  236. 				$00E0:Short, $00E1:Short, $00E2:Short, $00E3:Short, $00E4:Short, $00E5:Short, $00E6:Short, $00E7:Short, $00E8:Short, $00E9:Short, $00EA:Short, $00EB:Short, $00EC:Short, $00ED:Short, $00EE:Short, $00EF:Short,..
    237. 

  237. 				$011F:Short, $00F1:Short, $00F2:Short, $00F3:Short, $00F4:Short, $00F5:Short, $00F6:Short, $00F7:Short, $00F8:Short, $00F9:Short, $00FA:Short, $00FB:Short, $00FC:Short, $0131:Short, $015F:Short, $00FF:Short]
    238. 

  238.         End If
    239. 

  239. 

  240.         For Local i:Int = 0 To 127
    241. 

  241.             table[i] = encodingTable[i]
    242. 

  242.         Next
    243. 

  243.     End Method
    244. 

  244. End Type
    245. 

  245. 

  246. Type TEncodingStrategyLoaderISO_8859_15 Extends TEncodingStrategyLoader
    247. 

  247. 	Method Encoding:EStreamEncoding()
    248. 

  248. 		Return EStreamEncoding.ISO_8859_15
    249. 

  249. 	End Method
    250. 

  250. 

  251. 	Method Load:IEncodingStrategy(stream:TStream)
    252. 

  252. 		Return New TISO_8859_15_EncodingStrategy(stream)
    253. 

  253. 	End Method
    254. 

  254. End Type
    255. 

  255. 

  256. Type TISO_8859_15_EncodingStrategy Extends TBaseSingleByteEncodingStrategy
    257. 

  257.     Method New(sourceStream:TStream)
    258. 

  258.         stream = sourceStream
    259. 

  259.         LoadMapping()
    260. 

  260.     End Method
    261. 

  261. 

  262.     Method LoadTable(table:Short Ptr)
    263. 

  263.         Global encodingTable:Short[]
    264. 

  264.         If Not encodingTable Then
    265. 

  265.             encodingTable = [..
    266. 

  266. 				$0080:Short, $0081:Short, $0082:Short, $0083:Short, $0084:Short, $0085:Short, $0086:Short, $0087:Short, $0088:Short, $0089:Short, $008A:Short, $008B:Short, $008C:Short, $008D:Short, $008E:Short, $008F:Short,..
    267. 

  267. 				$0090:Short, $0091:Short, $0092:Short, $0093:Short, $0094:Short, $0095:Short, $0096:Short, $0097:Short, $0098:Short, $0099:Short, $009A:Short, $009B:Short, $009C:Short, $009D:Short, $009E:Short, $009F:Short,..
    268. 

  268. 				$00A0:Short, $00A1:Short, $00A2:Short, $00A3:Short, $20AC:Short, $00A5:Short, $0160:Short, $00A7:Short, $0161:Short, $00A9:Short, $00AA:Short, $00AB:Short, $00AC:Short, $00AD:Short, $00AE:Short, $00AF:Short,..
    269. 

  269. 				$00B0:Short, $00B1:Short, $00B2:Short, $00B3:Short, $017D:Short, $00B5:Short, $00B6:Short, $00B7:Short, $017E:Short, $00B9:Short, $00BA:Short, $00BB:Short, $0152:Short, $0153:Short, $0178:Short, $00BF:Short,..
    270. 

  270. 				$00C0:Short, $00C1:Short, $00C2:Short, $00C3:Short, $00C4:Short, $00C5:Short, $00C6:Short, $00C7:Short, $00C8:Short, $00C9:Short, $00CA:Short, $00CB:Short, $00CC:Short, $00CD:Short, $00CE:Short, $00CF:Short,..
    271. 

  271. 				$00D0:Short, $00D1:Short, $00D2:Short, $00D3:Short, $00D4:Short, $00D5:Short, $00D6:Short, $00D7:Short, $00D8:Short, $00D9:Short, $00DA:Short, $00DB:Short, $00DC:Short, $00DD:Short, $00DE:Short, $00DF:Short,..
    272. 

  272. 				$00E0:Short, $00E1:Short, $00E2:Short, $00E3:Short, $00E4:Short, $00E5:Short, $00E6:Short, $00E7:Short, $00E8:Short, $00E9:Short, $00EA:Short, $00EB:Short, $00EC:Short, $00ED:Short, $00EE:Short, $00EF:Short,..
    273. 

  273. 				$00F0:Short, $00F1:Short, $00F2:Short, $00F3:Short, $00F4:Short, $00F5:Short, $00F6:Short, $00F7:Short, $00F8:Short, $00F9:Short, $00FA:Short, $00FB:Short, $00FC:Short, $00FD:Short, $00FE:Short, $00FF:Short]
    274. 

  274.         End If
    275. 

  275. 

  276.         For Local i:Int = 0 To 127
    277. 

  277.             table[i] = encodingTable[i]
    278. 

  278.         Next
    279. 

  279.     End Method
    280. 

  280. End Type
    281. 

  281. 

  282. 

  283. New TEncodingStrategyLoaderISO_8859_2
    284. 

  284. New TEncodingStrategyLoaderISO_8859_5
    285. 

  285. New TEncodingStrategyLoaderISO_8859_6
    286. 

  286. New TEncodingStrategyLoaderISO_8859_7
    287. 

  287. New TEncodingStrategyLoaderISO_8859_8
    288. 

  288. New TEncodingStrategyLoaderISO_8859_9
    289. 

  289. New TEncodingStrategyLoaderISO_8859_15
    290.