% this is pmCs Poor Man's Chinese with simplified characters % this software is placed in the public domain 12/3/1990 % by Thomas B. Ridgeway and the Humanities and Arts Computing Center % % declare pmCs fonts stand by . . . this may take a while \font\cfaB=wccsa1 \font\cfaC=wccsa2 \font\cfaD=wccsa3 \font\cfaE=wccsa4 \font\cfaF=wccsa5 \font\cfaG=wccsa6 \font\cfaH=wccsa7 \font\cfaI=wccsa8 \font\cfaJ=wccsa9 \font\cfaa=wccsaa \font\cfab=wccsab \font\cfac=wccsac \font\cfad=wccsad \font\cfae=wccsae \font\cfaf=wccsaf \font\cfbA=wccsb0 \font\cfbB=wccsb1 \font\cfbC=wccsb2 \font\cfbD=wccsb3 \font\cfbE=wccsb4 \font\cfbF=wccsb5 \font\cfbG=wccsb6 \font\cfbH=wccsb7 \font\cfbI=wccsb8 \font\cfbJ=wccsb9 \font\cfba=wccsba \font\cfbb=wccsbb \font\cfbc=wccsbc \font\cfbd=wccsbd \font\cfbe=wccsbe \font\cfbf=wccsbf \font\cfcA=wccsc0 \font\cfcB=wccsc1 \font\cfcC=wccsc2 \font\cfcD=wccsc3 \font\cfcE=wccsc4 \font\cfcF=wccsc5 \font\cfcG=wccsc6 \font\cfcH=wccsc7 \font\cfcI=wccsc8 \font\cfcJ=wccsc9 \font\cfca=wccsca \font\cfcb=wccscb \font\cfcc=wccscc \font\cfcd=wccscd \font\cfce=wccsce \font\cfcf=wccscf \font\cfdA=wccsd0 \font\cfdB=wccsd1 \font\cfdC=wccsd2 \font\cfdD=wccsd3 \font\cfdE=wccsd4 \font\cfdF=wccsd5 \font\cfdG=wccsd6 \font\cfdH=wccsd7 \font\cfdI=wccsd8 \font\cfdJ=wccsd9 \font\cfda=wccsda \font\cfdb=wccsdb \font\cfdc=wccsdc \font\cfdd=wccsdd \font\cfde=wccsde \font\cfdf=wccsdf \font\cfeA=wccse0 \font\cfeB=wccse1 \font\cfeC=wccse2 \font\cfeD=wccse3 \font\cfeE=wccse4 \font\cfeF=wccse5 \font\cfeG=wccse6 \font\cfeH=wccse7 \font\cfeI=wccse8 \font\cfeJ=wccse9 \font\cfea=wccsea \font\cfeb=wccseb \font\cfec=wccsec \font\cfed=wccsed \font\cfee=wccsee \font\cfef=wccsef \font\cffA=wccsf0 \font\cffB=wccsf1 \font\cffC=wccsf2 \font\cffD=wccsf3 \font\cffE=wccsf4 \font\cffF=wccsf5 \font\cffG=wccsf6 \font\cffH=wccsf7 \font\cffI=wccsf8 % % a flag to show whether 1st byte of 2-byte pair has been read \newif\ifchifontset \chifontsetfalse % no, it hasn't yet been read % % our fonts are portmanteaus containing two different sizes, % set up machinery for picking one or another size \newif\ifbigC \bigCfalse % no, we are not printing big Chinese now \def\cglue{\hskip0pt plus.5pt} \newcount\Cchar % \def\cchar#1{\Cchar=#1\ifbigC\advance\Cchar by -128\fi\char\the\Cchar} % define a general macro for handling Chinese characters \def\chichar#1#2{\ifchifontset\cchar{#1}\restorefont\discretionary{}{}{}\cglue\chifontsetfalse\else\chifontsettrue\edef\restorefont{\the\font}#2\fi} % define a special macro for those characters which can only be 2nd of 2 bytes \def\chichr#1{\ifchifontset\cchar{#1}\restorefont\chifontsetfalse\else\message{!pmC! character #1 out of context!}\fi} % define macros for the individual characters % each character sets a) a current font, or b) its character in the current font % depending on ifchifontset % do chinese within a local group so that other schemes for % using chars in range 128+ might be used elsewhere % \def\chiactive{ \catcode`\^^a0=\active \catcode`\^^a1=\active \catcode`\^^a2=\active \catcode`\^^a3=\active \catcode`\^^a4=\active \catcode`\^^a5=\active \catcode`\^^a6=\active \catcode`\^^a7=\active \catcode`\^^a8=\active \catcode`\^^a9=\active \catcode`\^^aa=\active \catcode`\^^ab=\active \catcode`\^^ac=\active \catcode`\^^ad=\active \catcode`\^^ae=\active \catcode`\^^af=\active \catcode`\^^b0=\active \catcode`\^^b1=\active \catcode`\^^b2=\active \catcode`\^^b3=\active \catcode`\^^b4=\active \catcode`\^^b5=\active \catcode`\^^b6=\active \catcode`\^^b7=\active \catcode`\^^b8=\active \catcode`\^^b9=\active \catcode`\^^ba=\active \catcode`\^^bb=\active \catcode`\^^bc=\active \catcode`\^^bd=\active \catcode`\^^be=\active \catcode`\^^bf=\active \catcode`\^^c0=\active \catcode`\^^c1=\active \catcode`\^^c2=\active \catcode`\^^c3=\active \catcode`\^^c4=\active \catcode`\^^c5=\active \catcode`\^^c6=\active \catcode`\^^c7=\active \catcode`\^^c8=\active \catcode`\^^c9=\active \catcode`\^^ca=\active \catcode`\^^cb=\active \catcode`\^^cc=\active \catcode`\^^cd=\active \catcode`\^^ce=\active \catcode`\^^cf=\active \catcode`\^^d0=\active \catcode`\^^d1=\active \catcode`\^^d2=\active \catcode`\^^d3=\active \catcode`\^^d4=\active \catcode`\^^d5=\active \catcode`\^^d6=\active \catcode`\^^d7=\active \catcode`\^^d8=\active \catcode`\^^d9=\active \catcode`\^^da=\active \catcode`\^^db=\active \catcode`\^^dc=\active \catcode`\^^dd=\active \catcode`\^^de=\active \catcode`\^^df=\active \catcode`\^^e0=\active \catcode`\^^e1=\active \catcode`\^^e2=\active \catcode`\^^e3=\active \catcode`\^^e4=\active \catcode`\^^e5=\active \catcode`\^^e6=\active \catcode`\^^e7=\active \catcode`\^^e8=\active \catcode`\^^e9=\active \catcode`\^^ea=\active \catcode`\^^eb=\active \catcode`\^^ec=\active \catcode`\^^ed=\active \catcode`\^^ee=\active \catcode`\^^ef=\active \catcode`\^^f0=\active \catcode`\^^f1=\active \catcode`\^^f2=\active \catcode`\^^f3=\active \catcode`\^^f4=\active \catcode`\^^f5=\active \catcode`\^^f6=\active \catcode`\^^f7=\active \catcode`\^^f8=\active \catcode`\^^f9=\active \catcode`\^^fa=\active \catcode`\^^fb=\active \catcode`\^^fc=\active \catcode`\^^fd=\active \catcode`\^^fe=\active \catcode`\^^ff=\active } \def\inactive{ \catcode`\^^a0=12 \catcode`\^^a1=12 \catcode`\^^a2=12 \catcode`\^^a3=12 \catcode`\^^a4=12 \catcode`\^^a5=12 \catcode`\^^a6=12 \catcode`\^^a7=12 \catcode`\^^a8=12 \catcode`\^^a9=12 \catcode`\^^aa=12 \catcode`\^^ab=12 \catcode`\^^ac=12 \catcode`\^^ad=12 \catcode`\^^ae=12 \catcode`\^^af=12 \catcode`\^^b0=12 \catcode`\^^b1=12 \catcode`\^^b2=12 \catcode`\^^b3=12 \catcode`\^^b4=12 \catcode`\^^b5=12 \catcode`\^^b6=12 \catcode`\^^b7=12 \catcode`\^^b8=12 \catcode`\^^b9=12 \catcode`\^^ba=12 \catcode`\^^bb=12 \catcode`\^^bc=12 \catcode`\^^bd=12 \catcode`\^^be=12 \catcode`\^^bf=12 \catcode`\^^c0=12 \catcode`\^^c1=12 \catcode`\^^c2=12 \catcode`\^^c3=12 \catcode`\^^c4=12 \catcode`\^^c5=12 \catcode`\^^c6=12 \catcode`\^^c7=12 \catcode`\^^c8=12 \catcode`\^^c9=12 \catcode`\^^ca=12 \catcode`\^^cb=12 \catcode`\^^cc=12 \catcode`\^^cd=12 \catcode`\^^ce=12 \catcode`\^^cf=12 \catcode`\^^d0=12 \catcode`\^^d1=12 \catcode`\^^d2=12 \catcode`\^^d3=12 \catcode`\^^d4=12 \catcode`\^^d5=12 \catcode`\^^d6=12 \catcode`\^^d7=12 \catcode`\^^d8=12 \catcode`\^^d9=12 \catcode`\^^da=12 \catcode`\^^db=12 \catcode`\^^dc=12 \catcode`\^^dd=12 \catcode`\^^de=12 \catcode`\^^df=12 \catcode`\^^e0=12 \catcode`\^^e1=12 \catcode`\^^e2=12 \catcode`\^^e3=12 \catcode`\^^e4=12 \catcode`\^^e5=12 \catcode`\^^e6=12 \catcode`\^^e7=12 \catcode`\^^e8=12 \catcode`\^^e9=12 \catcode`\^^ea=12 \catcode`\^^eb=12 \catcode`\^^ec=12 \catcode`\^^ed=12 \catcode`\^^ee=12 \catcode`\^^ef=12 \catcode`\^^f0=12 \catcode`\^^f1=12 \catcode`\^^f2=12 \catcode`\^^f3=12 \catcode`\^^f4=12 \catcode`\^^f5=12 \catcode`\^^f6=12 \catcode`\^^f7=12 \catcode`\^^f8=12 \catcode`\^^f9=12 \catcode`\^^fa=12 \catcode`\^^fb=12 \catcode`\^^fc=12 \catcode`\^^fd=12 \catcode`\^^fe=12 \catcode`\^^ff=12 } % \def\endchinese{\endgroup} % \chiactive %switch on characters so we can define the macros with them active \def\beginchinese{\begingroup\chiactive % make characters used in GB/JIS encoding active so they can become macros % always end the line after saying \beginchinese % any characters on the same line will have already been read with % their non-chinese meanings \def^^a0{\chichar{160}{\cfaA}}% \def^^a1{\chichar{161}{\cfaB}}% \def^^a2{\chichar{162}{\cfaC}}% \def^^a3{\chichar{163}{\cfaD}}% \def^^a4{\chichar{164}{\cfaE}}% \def^^a5{\chichar{165}{\cfaF}}% \def^^a6{\chichar{166}{\cfaG}}% \def^^a7{\chichar{167}{\cfaH}}% \def^^a8{\chichar{168}{\cfaI}}% \def^^a9{\chichar{169}{\cfaJ}}% \def^^aa{\chichar{170}{\cfaa}}% \def^^ab{\chichar{171}{\cfab}}% \def^^ac{\chichar{172}{\cfac}}% \def^^ad{\chichar{173}{\cfad}}% \def^^ae{\chichar{174}{\cfae}}% \def^^af{\chichar{175}{\cfaf}}% \def^^b0{\chichar{176}{\cfbA}}% \def^^b1{\chichar{177}{\cfbB}}% \def^^b2{\chichar{178}{\cfbC}}% \def^^b3{\chichar{179}{\cfbD}}% \def^^b4{\chichar{180}{\cfbE}}% \def^^b5{\chichar{181}{\cfbF}}% \def^^b6{\chichar{182}{\cfbG}}% \def^^b7{\chichar{183}{\cfbH}}% \def^^b8{\chichar{184}{\cfbI}}% \def^^b9{\chichar{185}{\cfbJ}}% \def^^ba{\chichar{186}{\cfba}}% \def^^bb{\chichar{187}{\cfbb}}% \def^^bc{\chichar{188}{\cfbc}}% \def^^bd{\chichar{189}{\cfbd}}% \def^^be{\chichar{190}{\cfbe}}% \def^^bf{\chichar{191}{\cfbf}}% \def^^c0{\chichar{192}{\cfcA}}% \def^^c1{\chichar{193}{\cfcB}}% \def^^c2{\chichar{194}{\cfcC}}% \def^^c3{\chichar{195}{\cfcD}}% \def^^c4{\chichar{196}{\cfcE}}% \def^^c5{\chichar{197}{\cfcF}}% \def^^c6{\chichar{198}{\cfcG}}% \def^^c7{\chichar{199}{\cfcH}}% \def^^c8{\chichar{200}{\cfcI}}% \def^^c9{\chichar{201}{\cfcJ}}% \def^^ca{\chichar{202}{\cfca}}% \def^^cb{\chichar{203}{\cfcb}}% \def^^cc{\chichar{204}{\cfcc}}% \def^^cd{\chichar{205}{\cfcd}}% \def^^ce{\chichar{206}{\cfce}}% \def^^cf{\chichar{207}{\cfcf}}% \def^^d0{\chichar{208}{\cfdA}}% \def^^d1{\chichar{209}{\cfdB}}% \def^^d2{\chichar{210}{\cfdC}}% \def^^d3{\chichar{211}{\cfdD}}% \def^^d4{\chichar{212}{\cfdE}}% \def^^d5{\chichar{213}{\cfdF}}% \def^^d6{\chichar{214}{\cfdG}}% \def^^d7{\chichar{215}{\cfdH}}% \def^^d8{\chichar{216}{\cfdI}}% \def^^d9{\chichar{217}{\cfdJ}}% \def^^da{\chichar{218}{\cfda}}% \def^^db{\chichar{219}{\cfdb}}% \def^^dc{\chichar{220}{\cfdc}}% \def^^dd{\chichar{221}{\cfdd}}% \def^^de{\chichar{222}{\cfde}}% \def^^df{\chichar{223}{\cfdf}}% \def^^e0{\chichar{224}{\cfeA}}% \def^^e1{\chichar{225}{\cfeB}}% \def^^e2{\chichar{226}{\cfeC}}% \def^^e3{\chichar{227}{\cfeD}}% \def^^e4{\chichar{228}{\cfeE}}% \def^^e5{\chichar{229}{\cfeF}}% \def^^e6{\chichar{230}{\cfeG}}% \def^^e7{\chichar{231}{\cfeH}}% \def^^e8{\chichar{232}{\cfeI}}% \def^^e9{\chichar{233}{\cfeJ}}% \def^^ea{\chichar{234}{\cfea}}% \def^^eb{\chichar{235}{\cfeb}}% \def^^ec{\chichar{236}{\cfec}}% \def^^ed{\chichar{237}{\cfed}}% \def^^ee{\chichar{238}{\cfee}}% \def^^ef{\chichar{239}{\cfef}}% \def^^f0{\chichar{240}{\cffA}}% \def^^f1{\chichar{241}{\cffB}}% \def^^f2{\chichar{242}{\cffC}}% \def^^f3{\chichar{243}{\cffD}}% \def^^f4{\chichar{244}{\cffE}}% \def^^f5{\chichar{245}{\cffF}}% \def^^f6{\chichar{246}{\cffG}}% \def^^f7{\chichar{247}{\cffH}}% \def^^f8{\chichr{248}}% \def^^f9{\chichr{249}}% \def^^fa{\chichr{250}}% \def^^fb{\chichr{251}}% \def^^fc{\chichr{252}}% \def^^fd{\chichr{253}}% \def^^fe{\chichr{254}}% \def^^ff{\chichr{255}}}% that was the end of the \def for \beginchinese % these below might be convenient to use for user-defined characters %\def^^f9{\chichar{249}{\cffJ}} %\def^^fa{\chichar{250}{\cffa}} %\def^^fb{\chichar{251}{\cffb}} %\def^^fc{\chichar{252}{\cffc}} %\def^^fd{\chichar{253}{\cffd}} %\def^^fe{\chichar{254}{\cffe}} %\def^^ff{\chichar{255}{\cfff}} \inactive % switch the active characters back off until they are needed