enc-cn-tbl.lisp

开源跨平台Lisp编译器

;;; enc-cn-tbl.lisp: CP936(GBK) <=> UCS-2 table
;;; Chun Tian (binghe) <[e-mail]>
;;; Sat Dec 23 23:42:11 CST 2006
;;; This table comes from:
;;;   http://www.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP936.TXT
;;;
;;; Cut first 274 lines of CP936.TXT, got a CP936-only.TXT and do shell commands:
;;; $ cat CP936-only.TXT | awk -F "\t" '{printf("      (%s %s)\n",$1,$2);}' | sort | sed -e 's/0x/#x/g' > GBK2UCS.txt
;;; $ cat CP936-only.TXT | awk -F "\t" '{printf("      (%s %s)\n",$2,$1);}' | sort | sed -e 's/0x/#x/g' > UCS2GBK.txt
;;; and insert GBK2UCS.txt and UCS2GBK.txt to this file.

(in-package "SB!IMPL")

(define-multibyte-mapper *gbk-to-ucs-table*
    '( ;; begin, insert GBK2UCS.TXT here (emacs: C-x i GBK2UCS.TXT)
      (#x8140 #x4E02)
      (#x8141 #x4E04)
      (#x8142 #x4E05)
      (#x8143 #x4E06)
      (#x8144 #x4E0F)
      (#x8145 #x4E12)
      (#x8146 #x4E17)
      (#x8147 #x4E1F)
      (#x8148 #x4E20)
      (#x8149 #x4E21)
      (#x814A #x4E23)
      (#x814B #x4E26)
      (#x814C #x4E29)
      (#x814D #x4E2E)
      (#x814E #x4E2F)
      (#x814F #x4E31)
      (#x8150 #x4E33)
      (#x8151 #x4E35)
      (#x8152 #x4E37)
      (#x8153 #x4E3C)
      (#x8154 #x4E40)
      (#x8155 #x4E41)
      (#x8156 #x4E42)
      (#x8157 #x4E44)
      (#x8158 #x4E46)
      (#x8159 #x4E4A)
      (#x815A #x4E51)
      (#x815B #x4E55)
      (#x815C #x4E57)
      (#x815D #x4E5A)
      (#x815E #x4E5B)
      (#x815F #x4E62)
      (#x8160 #x4E63)
      (#x8161 #x4E64)
      (#x8162 #x4E65)
      (#x8163 #x4E67)
      (#x8164 #x4E68)
      (#x8165 #x4E6A)
      (#x8166 #x4E6B)
      (#x8167 #x4E6C)
      (#x8168 #x4E6D)
      (#x8169 #x4E6E)
      (#x816A #x4E6F)
      (#x816B #x4E72)
      (#x816C #x4E74)
      (#x816D #x4E75)
      (#x816E #x4E76)
      (#x816F #x4E77)
      (#x8170 #x4E78)
      (#x8171 #x4E79)
      (#x8172 #x4E7A)
      (#x8173 #x4E7B)
      (#x8174 #x4E7C)
      (#x8175 #x4E7D)
      (#x8176 #x4E7F)
      (#x8177 #x4E80)
      (#x8178 #x4E81)
      (#x8179 #x4E82)
      (#x817A #x4E83)
      (#x817B #x4E84)
      (#x817C #x4E85)
      (#x817D #x4E87)
      (#x817E #x4E8A)
      (#x8180 #x4E90)
      (#x8181 #x4E96)
      (#x8182 #x4E97)
      (#x8183 #x4E99)
      (#x8184 #x4E9C)
      (#x8185 #x4E9D)
      (#x8186 #x4E9E)
      (#x8187 #x4EA3)
      (#x8188 #x4EAA)
      (#x8189 #x4EAF)
      (#x818A #x4EB0)
      (#x818B #x4EB1)
      (#x818C #x4EB4)
      (#x818D #x4EB6)
      (#x818E #x4EB7)
      (#x818F #x4EB8)
      (#x8190 #x4EB9)
      (#x8191 #x4EBC)
      (#x8192 #x4EBD)
      (#x8193 #x4EBE)
      (#x8194 #x4EC8)
      (#x8195 #x4ECC)
      (#x8196 #x4ECF)
      (#x8197 #x4ED0)
      (#x8198 #x4ED2)
      (#x8199 #x4EDA)
      (#x819A #x4EDB)
      (#x819B #x4EDC)
      (#x819C #x4EE0)
      (#x819D #x4EE2)
      (#x819E #x4EE6)
      (#x819F #x4EE7)
      (#x81A0 #x4EE9)
      (#x81A1 #x4EED)
      (#x81A2 #x4EEE)
      (#x81A3 #x4EEF)
      (#x81A4 #x4EF1)
      (#x81A5 #x4EF4)
      (#x81A6 #x4EF8)
      (#x81A7 #x4EF9)
      (#x81A8 #x4EFA)
      (#x81A9 #x4EFC)
      (#x81AA #x4EFE)
      (#x81AB #x4F00)
      (#x81AC #x4F02)
      (#x81AD #x4F03)
      (#x81AE #x4F04)
      (#x81AF #x4F05)
      (#x81B0 #x4F06)
      (#x81B1 #x4F07)
      (#x81B2 #x4F08)
      (#x81B3 #x4F0B)
      (#x81B4 #x4F0C)
      (#x81B5 #x4F12)
      (#x81B6 #x4F13)
      (#x81B7 #x4F14)
      (#x81B8 #x4F15)
      (#x81B9 #x4F16)
      (#x81BA #x4F1C)
      (#x81BB #x4F1D)
      (#x81BC #x4F21)
      (#x81BD #x4F23)
      (#x81BE #x4F28)
      (#x81BF #x4F29)
      (#x81C0 #x4F2C)
      (#x81C1 #x4F2D)
      (#x81C2 #x4F2E)
      (#x81C3 #x4F31)
      (#x81C4 #x4F33)
      (#x81C5 #x4F35)
      (#x81C6 #x4F37)
      (#x81C7 #x4F39)
      (#x81C8 #x4F3B)
      (#x81C9 #x4F3E)
      (#x81CA #x4F3F)
      (#x81CB #x4F40)
      (#x81CC #x4F41)
      (#x81CD #x4F42)
      (#x81CE #x4F44)
      (#x81CF #x4F45)
      (#x81D0 #x4F47)
      (#x81D1 #x4F48)
      (#x81D2 #x4F49)
      (#x81D3 #x4F4A)
      (#x81D4 #x4F4B)
      (#x81D5 #x4F4C)
      (#x81D6 #x4F52)
      (#x81D7 #x4F54)
      (#x81D8 #x4F56)
      (#x81D9 #x4F61)
      (#x81DA #x4F62)
      (#x81DB #x4F66)
      (#x81DC #x4F68)
      (#x81DD #x4F6A)
      (#x81DE #x4F6B)
      (#x81DF #x4F6D)
      (#x81E0 #x4F6E)
      (#x81E1 #x4F71)
      (#x81E2 #x4F72)
      (#x81E3 #x4F75)
      (#x81E4 #x4F77)
      (#x81E5 #x4F78)
      (#x81E6 #x4F79)
      (#x81E7 #x4F7A)
      (#x81E8 #x4F7D)
      (#x81E9 #x4F80)
      (#x81EA #x4F81)
      (#x81EB #x4F82)
      (#x81EC #x4F85)
      (#x81ED #x4F86)
      (#x81EE #x4F87)
      (#x81EF #x4F8A)
      (#x81F0 #x4F8C)
      (#x81F1 #x4F8E)
      (#x81F2 #x4F90)
      (#x81F3 #x4F92)
      (#x81F4 #x4F93)
      (#x81F5 #x4F95)
      (#x81F6 #x4F96)
      (#x81F7 #x4F98)
      (#x81F8 #x4F99)
      (#x81F9 #x4F9A)
      (#x81FA #x4F9C)
      (#x81FB #x4F9E)
      (#x81FC #x4F9F)
      (#x81FD #x4FA1)
      (#x81FE #x4FA2)
      (#x8240 #x4FA4)
      (#x8241 #x4FAB)
      (#x8242 #x4FAD)
      (#x8243 #x4FB0)
      (#x8244 #x4FB1)
      (#x8245 #x4FB2)
      (#x8246 #x4FB3)
      (#x8247 #x4FB4)
      (#x8248 #x4FB6)
      (#x8249 #x4FB7)
      (#x824A #x4FB8)
      (#x824B #x4FB9)
      (#x824C #x4FBA)
      (#x824D #x4FBB)
      (#x824E #x4FBC)
      (#x824F #x4FBD)
      (#x8250 #x4FBE)
      (#x8251 #x4FC0)
      (#x8252 #x4FC1)
      (#x8253 #x4FC2)
      (#x8254 #x4FC6)
      (#x8255 #x4FC7)
      (#x8256 #x4FC8)
      (#x8257 #x4FC9)
      (#x8258 #x4FCB)
      (#x8259 #x4FCC)
      (#x825A #x4FCD)
      (#x825B #x4FD2)
      (#x825C #x4FD3)
      (#x825D #x4FD4)
      (#x825E #x4FD5)
      (#x825F #x4FD6)
      (#x8260 #x4FD9)
      (#x8261 #x4FDB)
      (#x8262 #x4FE0)
      (#x8263 #x4FE2)
      (#x8264 #x4FE4)
      (#x8265 #x4FE5)
      (#x8266 #x4FE7)
      (#x8267 #x4FEB)
      (#x8268 #x4FEC)
      (#x8269 #x4FF0)
      (#x826A #x4FF2)
      (#x826B #x4FF4)
      (#x826C #x4FF5)
      (#x826D #x4FF6)
      (#x826E #x4FF7)
      (#x826F #x4FF9)
      (#x8270 #x4FFB)
      (#x8271 #x4FFC)
      (#x8272 #x4FFD)
      (#x8273 #x4FFF)
      (#x8274 #x5000)
      (#x8275 #x5001)
      (#x8276 #x5002)
      (#x8277 #x5003)
      (#x8278 #x5004)
      (#x8279 #x5005)
      (#x827A #x5006)
      (#x827B #x5007)
      (#x827C #x5008)
      (#x827D #x5009)
      (#x827E #x500A)
      (#x8280 #x500B)
      (#x8281 #x500E)
      (#x8282 #x5010)
      (#x8283 #x5011)
      (#x8284 #x5013)
      (#x8285 #x5015)
      (#x8286 #x5016)
      (#x8287 #x5017)
      (#x8288 #x501B)
      (#x8289 #x501D)
      (#x828A #x501E)
      (#x828B #x5020)
      (#x828C #x5022)
      (#x828D #x5023)
      (#x828E #x5024)
      (#x828F #x5027)
      (#x8290 #x502B)
      (#x8291 #x502F)
      (#x8292 #x5030)
      (#x8293 #x5031)
      (#x8294 #x5032)
      (#x8295 #x5033)
      (#x8296 #x5034)
      (#x8297 #x5035)
      (#x8298 #x5036)
      (#x8299 #x5037)
      (#x829A #x5038)
      (#x829B #x5039)
      (#x829C #x503B)
      (#x829D #x503D)
      (#x829E #x503F)
      (#x829F #x5040)
      (#x82A0 #x5041)
      (#x82A1 #x5042)
      (#x82A2 #x5044)
      (#x82A3 #x5045)
      (#x82A4 #x5046)
      (#x82A5 #x5049)
      (#x82A6 #x504A)
      (#x82A7 #x504B)
      (#x82A8 #x504D)
      (#x82A9 #x5050)
      (#x82AA #x5051)
      (#x82AB #x5052)
      (#x82AC #x5053)
      (#x82AD #x5054)
      (#x82AE #x5056)
      (#x82AF #x5057)
      (#x82B0 #x5058)
      (#x82B1 #x5059)
      (#x82B2 #x505B)
      (#x82B3 #x505D)
      (#x82B4 #x505E)
      (#x82B5 #x505F)
      (#x82B6 #x5060)
      (#x82B7 #x5061)
      (#x82B8 #x5062)
      (#x82B9 #x5063)
      (#x82BA #x5064)
      (#x82BB #x5066)
      (#x82BC #x5067)
      (#x82BD #x5068)
      (#x82BE #x5069)
      (#x82BF #x506A)
      (#x82C0 #x506B)
      (#x82C1 #x506D)
      (#x82C2 #x506E)
      (#x82C3 #x506F)
      (#x82C4 #x5070)
      (#x82C5 #x5071)
      (#x82C6 #x5072)
      (#x82C7 #x5073)
      (#x82C8 #x5074)
      (#x82C9 #x5075)
      (#x82CA #x5078)
      (#x82CB #x5079)
      (#x82CC #x507A)
      (#x82CD #x507C)
      (#x82CE #x507D)
      (#x82CF #x5081)
      (#x82D0 #x5082)
      (#x82D1 #x5083)
      (#x82D2 #x5084)
      (#x82D3 #x5086)
      (#x82D4 #x5087)
      (#x82D5 #x5089)
      (#x82D6 #x508A)
      (#x82D7 #x508B)
      (#x82D8 #x508C)
      (#x82D9 #x508E)
      (#x82DA #x508F)
      (#x82DB #x5090)
      (#x82DC #x5091)
      (#x82DD #x5092)
      (#x82DE #x5093)
      (#x82DF #x5094)
      (#x82E0 #x5095)
      (#x82E1 #x5096)
      (#x82E2 #x5097)
      (#x82E3 #x5098)
      (#x82E4 #x5099)
      (#x82E5 #x509A)
      (#x82E6 #x509B)
      (#x82E7 #x509C)
      (#x82E8 #x509D)
      (#x82E9 #x509E)
      (#x82EA #x509F)
      (#x82EB #x50A0)
      (#x82EC #x50A1)
      (#x82ED #x50A2)
      (#x82EE #x50A4)
      (#x82EF #x50A6)
      (#x82F0 #x50AA)
      (#x82F1 #x50AB)
      (#x82F2 #x50AD)
      (#x82F3 #x50AE)
      (#x82F4 #x50AF)
      (#x82F5 #x50B0)
      (#x82F6 #x50B1)
      (#x82F7 #x50B3)
      (#x82F8 #x50B4)
      (#x82F9 #x50B5)
      (#x82FA #x50B6)
      (#x82FB #x50B7)
      (#x82FC #x50B8)
      (#x82FD #x50B9)
      (#x82FE #x50BC)
      (#x8340 #x50BD)
      (#x8341 #x50BE)
      (#x8342 #x50BF)
      (#x8343 #x50C0)
      (#x8344 #x50C1)
      (#x8345 #x50C2)
      (#x8346 #x50C3)
      (#x8347 #x50C4)
      (#x8348 #x50C5)
      (#x8349 #x50C6)
      (#x834A #x50C7)
      (#x834B #x50C8)
      (#x834C #x50C9)
      (#x834D #x50CA)
      (#x834E #x50CB)
      (#x834F #x50CC)
      (#x8350 #x50CD)
      (#x8351 #x50CE)
      (#x8352 #x50D0)
      (#x8353 #x50D1)
      (#x8354 #x50D2)
      (#x8355 #x50D3)
      (#x8356 #x50D4)
      (#x8357 #x50D5)
      (#x8358 #x50D7)
      (#x8359 #x50D8)
      (#x835A #x50D9)
      (#x835B #x50DB)
      (#x835C #x50DC)
      (#x835D #x50DD)
      (#x835E #x50DE)
      (#x835F #x50DF)
      (#x8360 #x50E0)
      (#x8361 #x50E1)
      (#x8362 #x50E2)
      (#x8363 #x50E3)
      (#x8364 #x50E4)
      (#x8365 #x50E5)
      (#x8366 #x50E8)
      (#x8367 #x50E9)
      (#x8368 #x50EA)
      (#x8369 #x50EB)
      (#x836A #x50EF)
      (#x836B #x50F0)
      (#x836C #x50F1)
      (#x836D #x50F2)
      (#x836E #x50F4)
      (#x836F #x50F6)
      (#x8370 #x50F7)
      (#x8371 #x50F8)
      (#x8372 #x50F9)
      (#x8373 #x50FA)
      (#x8374 #x50FC)
      (#x8375 #x50FD)
      (#x8376 #x50FE)
      (#x8377 #x50FF)
      (#x8378 #x5100)
      (#x8379 #x5101)
      (#x837A #x5102)
      (#x837B #x5103)
      (#x837C #x5104)
      (#x837D #x5105)
      (#x837E #x5108)
      (#x8380 #x5109)
      (#x8381 #x510A)
      (#x8382 #x510C)
      (#x8383 #x510D)
      (#x8384 #x510E)
      (#x8385 #x510F)
      (#x8386 #x5110)
      (#x8387 #x5111)
      (#x8388 #x5113)
      (#x8389 #x5114)
      (#x838A #x5115)
      (#x838B #x5116)
      (#x838C #x5117)
      (#x838D #x5118)
      (#x838E #x5119)
      (#x838F #x511A)
      (#x8390 #x511B)
      (#x8391 #x511C)
      (#x8392 #x511D)
      (#x8393 #x511E)
      (#x8394 #x511F)
      (#x8395 #x5120)
      (#x8396 #x5122)
      (#x8397 #x5123)
      (#x8398 #x5124)
      (#x8399 #x5125)
      (#x839A #x5126)
      (#x839B #x5127)
      (#x839C #x5128)
      (#x839D #x5129)
      (#x839E #x512A)
      (#x839F #x512B)
      (#x83A0 #x512C)
      (#x83A1 #x512D)
      (#x83A2 #x512E)
      (#x83A3 #x512F)
      (#x83A4 #x5130)
      (#x83A5 #x5131)
      (#x83A6 #x5132)
      (#x83A7 #x5133)
      (#x83A8 #x5134)
      (#x83A9 #x5135)
      (#x83AA #x5136)
      (#x83AB #x5137)
      (#x83AC #x5138)
      (#x83AD #x5139)
      (#x83AE #x513A)
      (#x83AF #x513B)
      (#x83B0 #x513C)
      (#x83B1 #x513D)
      (#x83B2 #x513E)
      (#x83B3 #x5142)
      (#x83B4 #x5147)
      (#x83B5 #x514A)
      (#x83B6 #x514C)
      (#x83B7 #x514E)
      (#x83B8 #x514F)
      (#x83B9 #x5150)
      (#x83BA #x5152)
      (#x83BB #x5153)
      (#x83BC #x5157)
      (#x83BD #x5158)
      (#x83BE #x5159)
      (#x83BF #x515B)
      (#x83C0 #x515D)
      (#x83C1 #x515E)
      (#x83C2 #x515F)
      (#x83C3 #x5160)
      (#x83C4 #x5161)
      (#x83C5 #x5163)
      (#x83C6 #x5164)
      (#x83C7 #x5166)
      (#x83C8 #x5167)
      (#x83C9 #x5169)
      (#x83CA #x516A)
      (#x83CB #x516F)
      (#x83CC #x5172)
      (#x83CD #x517A)
      (#x83CE #x517E)
      (#x83CF #x517F)
      (#x83D0 #x5183)
      (#x83D1 #x5184)
      (#x83D2 #x5186)
      (#x83D3 #x5187)
      (#x83D4 #x518A)
      (#x83D5 #x518B)
      (#x83D6 #x518E)
      (#x83D7 #x518F)
      (#x83D8 #x5190)
      (#x83D9 #x5191)
      (#x83DA #x5193)
      (#x83DB #x5194)
      (#x83DC #x5198)
      (#x83DD #x519A)
      (#x83DE #x519D)
      (#x83DF #x519E)
      (#x83E0 #x519F)
      (#x83E1 #x51A1)
      (#x83E2 #x51A3)
      (#x83E3 #x51A6)
      (#x83E4 #x51A7)
      (#x83E5 #x51A8)
      (#x83E6 #x51A9)
      (#x83E7 #x51AA)
      (#x83E8 #x51AD)
      (#x83E9 #x51AE)
      (#x83EA #x51B4)
      (#x83EB #x51B8)
      (#x83EC #x51B9)
      (#x83ED #x51BA)
      (#x83EE #x51BE)
      (#x83EF #x51BF)
      (#x83F0 #x51C1)
      (#x83F1 #x51C2)
      (#x83F2 #x51C3)
      (#x83F3 #x51C5)
      (#x83F4 #x51C8)
      (#x83F5 #x51CA)
      (#x83F6 #x51CD)
      (#x83F7 #x51CE)
      (#x83F8 #x51D0)
      (#x83F9 #x51D2)
      (#x83FA #x51D3)
      (#x83FB #x51D4)
      (#x83FC #x51D5)
      (#x83FD #x51D6)
      (#x83FE #x51D7)
      (#x8440 #x51D8)
      (#x8441 #x51D9)
      (#x8442 #x51DA)
      (#x8443 #x51DC)
      (#x8444 #x51DE)
      (#x8445 #x51DF)
      (#x8446 #x51E2)