(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "17-Oct-2021 13:54:52" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;18) "17-Oct-2021 12:48:43" brecompiled exprs%: nothing in "FULL 17-Oct-2021 ..." dated "17-Oct-2021 12:48:49") (FILECREATED "17-Oct-2021 13:54:52" {DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;18 61702 changes to%: (VARS JAPANESECOMS) previous date%: " 8-Aug-2021 13:28:16" {DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;17) \MAKE.JIS.TO.XCCS.CONV.TABLE :D8 (P 8 TEN P 7 KU P 2 CODEMAP P 1 KU P 0 TABLES)  lgl lgl lgl n l@ l@ ```ho"H `1KD`I`Z$dHKkK HKK HIX\l ]dk`l`Ml`^NLll j K[{dKK` `dKK` 0`Pd0 O1d_OOl Ol _O Oh_O&_O[LK]\M` ! \KdKK` l!`l"`l&`h(463 PUTHASH 439 LAST 432 \APPEND2 324 PUTHASH 293 PUTHASH 267 SETA 194 SETA 180 SETA 126 CL:ENDP 88 HASHARRAY 76 HASHARRAY 64 HASHARRAY 51 ARRAY 32 ARRAY 13 ARRAY) (501 *JIS-TO-XCCS-CONV-TABLE-LIST* 491 *JIS-6KU-TO-XCCS-CONV-TABLE* 483 *JIS-2KU-TO-XCCS-CONV-TABLE* 475 *JIS-1KU-TO-XCCS-CONV-TABLE* 458 *XCCS-TO-JIS-CONV-TABLE* 427 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 337 *JIS-TO-XCCS-CODE-MAP* 319 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 303 *HANKAKU-TO-ZENKAKU-CODE-MAP* 288 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 248 *JIS-6KU-TO-XCCS-CONV-TABLE* 236 *JIS-2KU-TO-XCCS-CONV-TABLE* 225 *JIS-1KU-TO-XCCS-CONV-TABLE* 157 *JIS-TO-XCCS-CODE-MAP* 147 *HANKAKU-TO-ZENKAKU-CODE-MAP* 134 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 108 *JIS-6KU-TO-XCCS-CONV-TABLE* 103 *JIS-2KU-TO-XCCS-CONV-TABLE* 98 *JIS-1KU-TO-XCCS-CONV-TABLE* 93 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 81 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 69 *XCCS-TO-JIS-CONV-TABLE* 56 *JIS-6KU-TO-XCCS-CONV-TABLE* 44 BYTE 37 *JIS-2KU-TO-XCCS-CONV-TABLE* 25 BYTE 18 *JIS-1KU-TO-XCCS-CONV-TABLE* 6 BYTE) ( 117 (1 2 6)) \JISIN :D8 (P 12 CODE P 11 SET P 10 CONVTABLE P 4 CH3 P 3 CH2 P 2 CH1 P 1 CHARNUM P 0 IN16BITFLG I 1 COUNTP I 0 STREAM F 13 *BYTECOUNTER*) / @jhj @ Zdl@ [dl$_@ \lBLl@@kAIlԹiH @ AlIcJl!(Jl""Jl#Jl&Jl(JltJdlul!KKl~Jdl!dl"dl&W` OKl k  OKl  OlOOOl`JK`l#KJdl(&Kjl!K`|JK`ltKjelK]KnuJluOKjHlK@KntK@ @ AkIcll(H@ \lJLlH@jAIlԹhaH@ AIlcJl!(Jl""Jl#Jl&Jl(JltJdlu~l!KKl~Jdl!dl"dl&W` OKl k  OKl  OlOOOlS`JJK`l#Jdl(Kjl!K``ltKjlKKnuJluKjlKKnt@ @ AIkclHAIlcJl!(Jl""Jl#Jl&Jl(JltJdludl!KxKl~pJdl!dl"dl&W` OKl k  OKl  OlOOOl`JK`l#Jdl(Kjl!K``ltKjlKKnuJluKjlKKnt@ AIkclHAIlcJ@ ]l!(Ml""Ml#Ml&Ml(MltMdlu߿l!NyNl~qMdl!dl"dl&T`_Nl k _ONl _OlOOOl#`MN`l#NMdl(&Njl!N`MN`ltNjlNNnuMluNjlNNntNJllJAIkcJ` AIkcJ(1315 GETHASH 1130 ELT 1115 ELT 988 \BACKFILEPTR 852 ELT 837 ELT 712 \BACKFILEPTR 706 \BACKFILEPTR 570 ELT 555 ELT 445 \BACKFILEPTR 380 \BACKFILEPTR 374 \BACKFILEPTR 214 ELT 199 ELT 89 \BACKFILEPTR) (1310 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 1222 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1210 *REPLACE-NO-FONT-CODE* 1173 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1160 *REPLACE-NO-FONT-CODE* 1099 *JIS-TO-XCCS-CONV-TABLE-LIST* 936 *DEFAULT-NOT-CONVERTED-FAT-CODE* 927 *REPLACE-NO-FONT-CODE* 895 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 882 *REPLACE-NO-FONT-CODE* 818 *JIS-TO-XCCS-CONV-TABLE-LIST* 654 *DEFAULT-NOT-CONVERTED-FAT-CODE* 645 *REPLACE-NO-FONT-CODE* 613 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 600 *REPLACE-NO-FONT-CODE* 536 *JIS-TO-XCCS-CONV-TABLE-LIST* 416 STREAM 306 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 294 *REPLACE-NO-FONT-CODE* 257 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 244 *REPLACE-NO-FONT-CODE* 180 *JIS-TO-XCCS-CONV-TABLE-LIST* 62 STREAM 5 STREAM) () \JISPEEK :D8 (P 7 CODE P 6 SET P 5 CONVTABLE P 4 CH3 P 3 CH2 P 2 CH1 P 1 CHARNUM P 0 IN16BITFLG I 2 COUNTP I 1 NOERROR I 0 STREAM F 8 *DEFAULT-NOT-CONVERTED-FAT-CODE* F 9 *REPLACE-NO-FONT-CODE*) @jhj@A #JB ahI$l2@ @A [@ B 9hI$l$~@ @A \@ @ B hI$lBLl@@kBIlع@ ix@ @ HBJl!(Jl""Jl#Jl&Jl(JltJdluۿl!KKl~WJdl!dl"dl&V`MKl k MKl NlNOOlWWWJK`hl#KaJdl(%Kjl!KWWGJK`;W7ltKjlKKnu"WJluKjlKKntWWKI$Jl!(Jl""Jl#Jl&Jl(JltJdluؿl!KQKl~IJdl!dl"dl&P`MKl k MKl NlNOOlWJK`l#KJdl(#Kjl!KWJK`ltKjlKKnuJluKjlKKntKBlKl(j@ @A \@ @ BhI$lJLlH@jBl@ h@ @ HBJl!(Jl""Jl#Jl&Jl(JltJdluZl!KKl~WMJdl!dl"dl&W`MKl k MKl NlNOOlWWWJK`l#KJdl((Kjl!KWWJK`WltKjlKKnuWJluKjlKKntW}WxJl!(Jl""Jl#Jl&Jl(JltJdluRl!KKl~Jdl!dl"dl&P`MKl k MKl NlNOOlvWpJK`l#zJdl(Kjl!KWWltKjlKKnuJluKjlKKntBlI$H@ BJl!(Jl""Jl#Jl&Jl(JltJdluDl!KKl~W7Jdl!dl"dl&W`MKl k MKl NlNOOlWWWJK`l#KJdl((Kjl!KWWJK`WltKjlKKnuWJluKjlKKntkWgWbJl!(Jl""Jl#Jl&Jl(JltJdluW:W5Jl!(Jl""Jl#Jl&Jl(JltJdlul!K[Kl~SJdl!dl"dl&P`MKl k MKl NlNOOlWJK`l#7Jdl(Kjl!KW?WltKjlKKnuJluKjlKKntBhI$Jl&lJ BJ` I$J` BJI$J(2473 GETHASH 2457 GETHASH 2304 ELT 2290 ELT 2031 ELT 2017 ELT 1907 \BACKFILEPTR 1900 \PEEKBIN 1872 \BACKFILEPTR 1747 ELT 1733 ELT 1474 ELT 1460 ELT 1355 \BACKFILEPTR 1213 ELT 1199 ELT 940 ELT 926 ELT 816 \BACKFILEPTR 809 \BACKFILEPTR 755 \BACKFILEPTR 748 \BACKFILEPTR 739 \PEEKBIN 567 ELT 553 ELT 299 ELT 285 ELT 175 \BACKFILEPTR 168 \BACKFILEPTR 112 \BACKFILEPTR 105 \BACKFILEPTR 96 \PEEKBIN 65 \BACKFILEPTR 56 \PEEKBIN 20 \PEEKBIN) (2468 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2452 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 2342 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2272 *JIS-TO-XCCS-CONV-TABLE-LIST* 2122 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 2071 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1999 *JIS-TO-XCCS-CONV-TABLE-LIST* 1785 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1715 *JIS-TO-XCCS-CONV-TABLE-LIST* 1565 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1514 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1442 *JIS-TO-XCCS-CONV-TABLE-LIST* 1251 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1181 *JIS-TO-XCCS-CONV-TABLE-LIST* 1031 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 980 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 908 *JIS-TO-XCCS-CONV-TABLE-LIST* 785 STREAM 651 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 605 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 535 *JIS-TO-XCCS-CONV-TABLE-LIST* 387 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 339 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 267 *JIS-TO-XCCS-CONV-TABLE-LIST* 142 STREAM 5 STREAM) () \BACKJISCCODE :D8 (I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*) 5@ -@j@ AmcAmcAmc(26 \BACKFILEPTR 5 \BACKFILEPTR) (13 STREAM) () \SHIFTJISIN :D8 (P 5 CODE P 4 SET P 3 CONVTABLE P 1 CH2 P 0 CH1 I 1 COUNTP I 0 STREAM F 6 *BYTECOUNTER*) {@ !HdqdllHHl=nH4H@ dlllqXkظJdll~Hkظdl~lk؁lٹAlc Hl!(Hl""Hl#Hl&Hl(HltHdluοl!IIl~`Hdl!dl"dl&I`!KIl k KIl LlLMMl`HI`l#IHdl( Ijl!I`HI`ltIjnlIfInuHluXIjQlIIIntIAkc HdllHH` H(374 GETHASH 206 ELT 194 ELT) (369 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 282 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 272 *REPLACE-NO-FONT-CODE* 239 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 228 *REPLACE-NO-FONT-CODE* 176 *JIS-TO-XCCS-CONV-TABLE-LIST* 153 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \SHIFTJISPEEK :D8 (P 4 CODE P 3 SET P 2 CONVTABLE P 1 CH2 P 0 CH1 I 2 COUNTP I 1 NOERROR I 0 STREAM F 5 *DEFAULT-NOT-CONVERTED-FAT-CODE* F 6 *REPLACE-NO-FONT-CODE*) @A HB7hllHHdlRnHG@ @A Y@ Bhj$@ HdlllqXkظIdll~Hkظdl~lk؁lٹBHl!(Hl""Hl#Hl&Hl(HltHdluͿl!IIl~UHdl!dl"dl&P`JIl k JIl KlKLLlUVUHI`al#IZHdl("Ijl!IVUBHI`6U3ltIjlIInuUHluIjlIIntUUIj$Hl!(Hl""Hl#Hl&Hl(HltHdluƿl!IIl~UHdl!dl"dl&I`JIl k JIl KlKLLlVHI`l#IHdl(Ijl!IVHI`ltIjvlInInuHlu`IjYlIQIntIHl&lH BH` j$H` BHj$H(667 GETHASH 651 GETHASH 494 ELT 480 ELT 243 ELT 229 ELT 80 \BACKFILEPTR 64 \BACKFILEPTR 56 \PEEKBIN 6 \PEEKBIN) (662 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 646 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 564 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 525 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 462 *JIS-TO-XCCS-CONV-TABLE-LIST* 323 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 277 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 211 *JIS-TO-XCCS-CONV-TABLE-LIST*) () \BACKSHIFTJISCCODE :D8 (I 1 COUNTP I 0 STREAM F 1 *BYTECOUNTER*) N@ F@ 7@ HdllH HlnHAmc@ AmcAmc(21 \PEEKBIN 13 \BACKFILEPTR 5 \BACKFILEPTR) NIL () \EUCIN :D8 (P 1 CH2 P 0 CH1 I 1 COUNTP I 0 STREAM F 12 *BYTECOUNTER*)  @  HddllH AlcHl@ lZl!(Jl""Jl#Jl&Jl(JltJdlu˿l!KKl~`Jdl!dl"dl&F`\Kl k LKl MlMNNl`JK`l#KJdl( Kjl!K`JK`ltKjqlKiKnuJlu[KjTlKLKntKHlAlc@ ` Hl?Alc@ l@ l__l!/Ol"(Ol#!Ol&Ol(OltOdlul!OOl~Odl!dl"dl&X`_Ol k _OOl _OlOOOlu`lOO`l#OOdl(*OjFl!O=`4OO`ltOjlOOnuOluOjlOOntOAkcH(471 ELT 455 ELT 316 GETHASH 153 ELT 141 ELT) (571 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 557 *REPLACE-NO-FONT-CODE* 516 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 501 *REPLACE-NO-FONT-CODE* 438 *JIS-TO-XCCS-CONV-TABLE-LIST* 311 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 229 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 219 *REPLACE-NO-FONT-CODE* 186 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 175 *REPLACE-NO-FONT-CODE* 126 *JIS-TO-XCCS-CONV-TABLE-LIST* 103 *DEFAULT-NOT-CONVERTED-FAT-CODE*) () \EUCPEEK :D8 (P 1 CH2 P 0 CH1 I 2 COUNTP I 1 NOERROR I 0 STREAM F 22 *DEFAULT-NOT-CONVERTED-FAT-CODE* F 23 *REPLACE-NO-FONT-CODE*) @A `H BhlclH[@ @A Y@ Bhj$@ B HlIl]l!(Ml""Ml#Ml&Ml(MltMdluпl!NNl~W,Mdl!dl"dl&K`\Nl k LNl KlKJJlW,|W.W,uMN`hl#NaMdl(%Njl!NW.W,GMN`;W,7ltNjlNNnu"W,MluNjlNNntW,W,Nj$HlIl__l!/Ol"(Ol#!Ol&Ol(OltOdlul!OOl~W,Odl!dl"dl&Q`_Ol k _OOl _OlOOOlW.OO`l#OOdl(#Ojl!OW.|OO`ltOjblOYOnuOluIOjAlO8OntOHdlD@ @A Y@ Bshj$@ BI` j$I` l@ @A X@ B+hj$@ @A Y@ @ Bhj$@ @ B7HlIl_ _l!/Ol"(Ol#!Ol&Ol(OltOdlul!O O l~W,Odl!dl"dl&[`_O l k _OO l _OlOOOlW,W.W,OO `vl#O nOdl()O jl!O W.W,QOO `CW,?ltO jlO O nu'W,$OluO jlO O ntW,W,O j$HlIl_$_"l!/O"l"(O"l#!O"l&O"l(O"ltO"dlul!O$ O$l~O"dl!dl"dl&U`_&O$l k _(O&O$l _*O(lO(O*O*lW.O"O$`l#O$O"dl('O$jl!O$~W.xO"O$`ltO$j^lO$UO$nuO"luEO$j=lO$4O$ntO$BHj$H(1245 ELT 1229 ELT 936 ELT 920 ELT 794 \BACKFILEPTR 787 \BACKFILEPTR 771 \BACKFILEPTR 764 \BACKFILEPTR 755 \PEEKBIN 735 \BACKFILEPTR 727 \PEEKBIN 709 GETHASH 693 GETHASH 679 \BACKFILEPTR 663 \BACKFILEPTR 655 \PEEKBIN 481 ELT 465 ELT 199 ELT 187 ELT 76 \BACKFILEPTR 56 \BACKFILEPTR 47 \PEEKBIN 6 \PEEKBIN) (1339 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1287 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 1212 *JIS-TO-XCCS-CONV-TABLE-LIST* 1034 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 983 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 903 *JIS-TO-XCCS-CONV-TABLE-LIST* 704 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 688 *HANKAKU-TO-ZENKAKU-CONV-TABLE* 567 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 519 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 448 *JIS-TO-XCCS-CONV-TABLE-LIST* 281 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 236 *JIS-TO-XCCS-CONV-NO-FONT-TABLE* 172 *JIS-TO-XCCS-CONV-TABLE-LIST*) () \BACKEUCCODE :D8 (I 1 COUNTP I 0 STREAM F 0 *BYTECOUNTER*) @ {@ ljg@ W@ lAYmc@ lj.@ @ lA2mc@ A(mcA mc@ AmcAmcAmc(73 \PEEKBIN 65 \BACKFILEPTR 52 \PEEKBIN 34 \PEEKBIN 26 \BACKFILEPTR 13 \PEEKBIN 5 \BACKFILEPTR) NIL () \JISOUTCHARFN :D8 (I 1 CHARCODE I 0 OUTSTREAM F 0 STREAM) =Al @Pj@j(@l @l( @lJ @j@ PkPAdjlAlTAj)Adl!"dl"dl&dl(dllA` @g A` AAbdlH@j(@l @l$ @lB @k@A @Al @j(@l @l( @lJ @j@A (314 \BOUT 295 \BOUT 286 \BOUT 277 \BOUT 255 \BOUT 245 \BOUT 225 \BOUT 216 \BOUT 207 \BOUT 173 GETHASH 161 STREAMPROP 148 GETHASH 66 \BOUTEOL 48 \BOUT 39 \BOUT 30 \BOUT) (302 STREAM 262 STREAM 232 STREAM 192 STREAM 168 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 156 :HTOZP 143 *XCCS-TO-JIS-CONV-TABLE* 55 STREAM 15 STREAM) () \SHIFTJISOUTCHARFN :D8 (P 1 CH2 P 0 CH1 I 1 CHARCODE I 0 OUTSTREAM F 2 STREAM) Al Rj@ RkRAdjlAlTAj)Adl!"dl"dl&dl(dllA` @g A` AAbdlTdAlHkjIlعlIIkIIl~عHl!lXlHl@ظnHnI@H @I @A (223 \BOUT 215 \BOUT 208 \BOUT 121 GETHASH 109 STREAMPROP 96 GETHASH 14 \BOUTEOL) (116 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 104 :HTOZP 91 *XCCS-TO-JIS-CONV-TABLE*) () \EUCOUTCHARFN :D8 (I 1 CHARCODE I 0 OUTSTREAM F 0 STREAM) Al Pj@ PkPAdjlAlTAj)Adl!"dl"dl&dl(dllA` @g A` AAbddl@ddn! n(AAAn/~nt%A@l @Al @All llA@l @Al @A (234 \BOUT 226 \BOUT 216 \BOUT 196 \BOUT 183 \BOUT 171 \BOUT 121 GETHASH 109 STREAMPROP 96 GETHASH 14 \BOUTEOL) (116 *ZENKAKU-TO-HANKAKU-CONV-TABLE* 104 :HTOZP 91 *XCCS-TO-JIS-CONV-TABLE*) () CONVHANKAKU :D8 (P 0 ARGS) &ekag Hkkagla (34 STREAMPROP 15 STREAMPROP) (26 :HTOZP 10 :HTOZP) () \CREATE.JIS.EXTERNALFORMAT :D8 NIL !ggggg (30 MAKE-EXTERNALFORMAT) (24 \JISOUTCHARFN 19 \BACKJISCCODE 14 \JISPEEK 9 \JISIN 4 :JIS) () \CREATE.SHIFTJIS.EXTERNALFORMAT :D8 NIL Fggggg ggggghg (67 MAKE-EXTERNALFORMAT 30 MAKE-EXTERNALFORMAT) (61 CRLF 55 \SHIFTJISOUTCHARFN 50 \BACKSHIFTJISCCODE 45 \SHIFTJISPEEK 40 \SHIFTJISIN 35 :MS 24 \SHIFTJISOUTCHARFN 19 \BACKSHIFTJISCCODE 14 \SHIFTJISPEEK 9 \SHIFTJISIN 4 :W-MS) () \CREATE.EUC.EXTERNALFORMAT :D8 NIL !ggggg (30 MAKE-EXTERNALFORMAT) (24 \EUCOUTCHARFN 19 \BACKEUCCODE 14 \EUCPEEK 9 \EUCIN 4 :EUC) () (PRETTYCOMPRINT JAPANESECOMS) (RPAQQ JAPANESECOMS ((* ; "XCCS to JIS converter") (COMS (* ; "JIS to XCCS conversion table.") (VARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP*) (GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP* *JIS-1KU-TO-XCCS-CONV-TABLE* *JIS-2KU-TO-XCCS-CONV-TABLE* *JIS-6KU-TO-XCCS-CONV-TABLE* *XCCS-TO-JIS-CONV-TABLE* *HANKAKU-TO-ZENKAKU-CONV-TABLE* *ZENKAKU-TO-HANKAKU-CONV-TABLE*) (FNS \MAKE.JIS.TO.XCCS.CONV.TABLE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\MAKE.JIS.TO.XCCS.CONV.TABLE)))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (MACROS \CONV.JIS.TO.XCCS \DO.CONV.JIS.TO.XCCS)) (FNS \JISIN \JISPEEK \BACKJISCCODE \SHIFTJISIN \SHIFTJISPEEK \BACKSHIFTJISCCODE \EUCIN \EUCPEEK \BACKEUCCODE) (FNS \JISOUTCHARFN \SHIFTJISOUTCHARFN \EUCOUTCHARFN) (COMS (FNS CONVHANKAKU) (DECLARE%: DOEVAL@COMPILE DONTCOPY (MACROS \CONV.XCCS.TO.JIS \DO.CONV.XCCS.TO.JIS \ASCIIP \NOT.EQUIVALENT.TO.JIS \CONV.HANKAKU.TO.ZENKAKUP \CONV.ZENKAKU.KANA))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (* ;; "JIS specific macro") (MACROS \EXTRACT.NO.FONT.CODE \EXTARACT.CONV.TABLE \NOT.EQUIVALENT.TO.XCCS \EXTRACT.SET \EXTRACT.CODE \CHNAGE.KI.MODE \KIMODEP \HANKAKUP \KANJIP \NOTGAIJIP \INVALID.TENP \CONV.HANKAKU.KANA \OUTKI \OUTKO) (* ;; "Shift-JIS specific macro") (MACROS \CONV.SJIS.TO.JIS \CONV.JIS.TO.SJIS \SJIS.KANJI.FIRST.BYTEP) (* ;; "EUC specific macro") (MACROS \EUC.KANJI.FIRST.BYTEP \GAIJIP \EUC.HANKAKUP)) (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT \CREATE.EUC.EXTERNALFORMAT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( \CREATE.JIS.EXTERNALFORMAT) (\CREATE.SHIFTJIS.EXTERNALFORMAT) (\CREATE.EUC.EXTERNALFORMAT))) ( DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETP (QUOTE EXPORTS.ALL) (QUOTE FILE)) (PRINT "NOTE: JAPANESE requires EXPORTS.ALL for compilation" T)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CONVHANKAKU))))) (RPAQQ *JIS-TO-XCCS-CONV-NO-FONT-TABLE* ((8484 . 8484) (8485 . 8485) (8497 . 9155) (8798 . 61376) ( 8802 . 8802) (8805 . 64892) (8806 . 64894) (8820 . 9148) (8821 . 9132) (8822 . 213) (8830 . 8830) ( 10273 . 61189) (10274 . 61188) (10275 . 10275) (10276 . 10276) (10277 . 10277) (10278 . 10278) (10279 . 10279) (10280 . 10280) (10281 . 10281) (10282 . 10282) (10283 . 61414) (10284 . 61410) (10285 . 61409) (10286 . 10286) (10287 . 10287) (10288 . 10288) (10289 . 10289) (10290 . 10290) (10291 . 10291) (10292 . 10292) (10293 . 10293) (10294 . 61411) (10295 . 10295) (10296 . 10296) (10297 . 10297) ( 10298 . 10298) (10299 . 10299) (10300 . 10300) (10301 . 10301) (10302 . 10302) (10303 . 10303) (10304 . 10304))) (RPAQQ *JIS-TO-XCCS-CODE-MAP* ((1 (1 33 . 33) (2 33 . 34) (3 33 . 35) (6 0 . 183) (7 0 . 58) (8 0 . 59 ) (9 0 . 63) (10 0 . 33) (11 33 . 43) (12 33 . 44) (13 0 . 194) (14 0 . 193) (15 0 . 200) (16 0 . 195) (18 0 . 204) (19 33 . 51) (20 33 . 52) (21 33 . 53) (22 33 . 54) (23 33 . 55) (24 33 . 56) (25 33 . 57) (26 33 . 58) (27 33 . 59) (28 33 . 60) (29 239 . 36) (30 33 . 62) (31 0 . 47) (32 0 . 92) (33 0 . 126) (34 33 . 66) (35 0 . 124) (36 33 . 68) (37 33 . 69) (38 0 . 169) (39 0 . 39) (40 0 . 170) (41 0 . 186) (42 0 . 40) (43 0 . 41) (44 33 . 76) (45 33 . 77) (46 0 . 91) (47 0 . 93) (48 0 . 123) (49 0 . 125) (50 239 . 50) (51 239 . 51) (52 0 . 171) (53 0 . 187) (54 33 . 86) (55 33 . 87) (56 33 . 88) ( 57 33 . 89) (58 33 . 90) (59 33 . 91) (60 0 . 43) (61 0 . 45) (62 0 . 177) (63 0 . 180) (64 0 . 184) ( 65 0 . 61) (66 33 . 98) (67 0 . 60) (68 0 . 62) (69 33 . 101) (70 33 . 102) (71 33 . 103) (72 33 . 104 ) (73 33 . 105) (74 33 . 106) (75 0 . 176) (76 33 . 108) (77 33 . 109) (78 33 . 110) (79 0 . 165) (80 0 . 164) (81 0 . 162) (82 0 . 163) (83 0 . 37) (84 0 . 35) (85 0 . 38) (86 0 . 42) (87 0 . 64) (88 0 . 167) (89 33 . 121) (90 33 . 122) (91 33 . 123) (92 33 . 124) (93 33 . 125) (94 33 . 126)) (2 (1 34 . 33) (2 34 . 34) (3 34 . 35) (4 34 . 36) (5 34 . 37) (6 34 . 38) (7 34 . 39) (8 34 . 40) (9 34 . 41) (10 0 . 174) (11 0 . 172) (12 0 . 173) (13 0 . 175) (14 34 . 46) (26 239 . 74) (27 239 . 76) (28 239 . 89) (29 239 . 88) (30 239 . 91) (31 239 . 90) (32 239 . 87) (33 239 . 86) (42 239 . 182) (43 239 . 183) (44 239 . 106) (45 239 . 79) (46 239 . 78) (47 239 . 181) (48 239 . 180) (60 239 . 108) (61 239 . 112) (63 239 . 186) (64 239 . 185) (65 239 . 114) (67 239 . 66) (68 239 . 67) (71 239 . 113) (72 239 . 111) (73 239 . 117) (74 34 . 106) (82 241 . 40) (83 239 . 65) (87 239 . 48) (88 239 . 49) (89 0 . 176)) (6 (1 38 . 65) (2 38 . 66) (3 38 . 68) (4 38 . 69) (5 38 . 70) (6 38 . 73) (7 38 . 74) (8 38 . 75) (9 38 . 76) (10 38 . 77) (11 38 . 78) (12 38 . 79) (13 38 . 80) (14 38 . 81) (15 38 . 82) (16 38 . 83) (17 38 . 85) (18 38 . 86) (19 38 . 88) (20 38 . 89) (21 38 . 90) (22 38 . 91) (23 38 . 92) ( 24 38 . 93) (33 38 . 97) (34 38 . 98) (35 38 . 100) (36 38 . 101) (37 38 . 102) (38 38 . 105) (39 38 . 106) (40 38 . 107) (41 38 . 108) (42 38 . 109) (43 38 . 110) (44 38 . 111) (45 38 . 112) (46 38 . 113) (47 38 . 114) (48 38 . 115) (49 38 . 117) (50 38 . 118) (51 38 . 120) (52 38 . 121) (53 38 . 122) (54 38 . 123) (55 38 . 124) (56 38 . 125)))) (RPAQQ *HANKAKU-TO-ZENKAKU-CODE-MAP* ((161 . 8483) (162 . 8534) (163 . 8535) (164 . 8482) (165 . 183) (166 . 9586) (167 . 9505) (168 . 9507) (169 . 9509) (170 . 9511) (171 . 9513) (172 . 9571) (173 . 9573 ) (174 . 9575) (175 . 9539) (176 . 8508) (177 . 9506) (178 . 9508) (179 . 9510) (180 . 9512) (181 . 9514) (182 . 9515) (183 . 9517) (184 . 9519) (185 . 9521) (186 . 9523) (187 . 9525) (188 . 9527) (189 . 9529) (190 . 9531) (191 . 9533) (192 . 9535) (193 . 9537) (194 . 9540) (195 . 9542) (196 . 9544) ( 197 . 9546) (198 . 9547) (199 . 9548) (200 . 9549) (201 . 9550) (202 . 9551) (203 . 9554) (204 . 9557) (205 . 9560) (206 . 9563) (207 . 9566) (208 . 9567) (209 . 9568) (210 . 9569) (211 . 9570) (212 . 9572) (213 . 9574) (214 . 9576) (215 . 9577) (216 . 9578) (217 . 9579) (218 . 9580) (219 . 9581) (220 . 9583) (221 . 9587) (222 . 8491) (223 . 8492))) (\MAKE.JIS.TO.XCCS.CONV.TABLE) (\CREATE.JIS.EXTERNALFORMAT) (\CREATE.SHIFTJIS.EXTERNALFORMAT) (\CREATE.EUC.EXTERNALFORMAT) NIL