multex-base 1.0-1.1 / usr / share / texmf / multex / plain / base / multexbase.tex

% mltexbase.tex
%	1.0 (Aug 2006)
% version number (same as the one that appears in banner)
\def\mlbaseversion{1.0}

\catcode`@=11

% Multi-lingual character set
\def\mcsascii{"0}
\def\mcsltni{"1}
\def\mcsltnii{"2}
\def\mcsltniii{"3}
\def\mcsltniv{"4}
\def\mcsthai{"5}
\def\mcsgrk{"6}
\def\mcsarb{"7}
\def\mcshbw{"8}
\def\mcskana{"9}
\def\mcsroman{"A}
\def\mcscrl{"C}
\def\mcsltnv{"D}
\def\mcsjpold{"10}
\def\mcscn{"11}
\def\mcsjp{"12}
\def\mcskr{"13}
\def\mcsjsp{"14}
\def\mcsbigvi{"18} \let\mcsbvi\mcsbigvi
\def\mcsbigvii{"19} \let\mcsbvii\mcsbigvii

% private charset (may be automatically generated in the future)
\def\mcssisheng{"20}
\def\mcsviscl{"22}
\def\mcsviscu{"23}
\def\mcsarbd{"24}
\def\mcsarbi{"25}
\def\mcsipa{"26}

\def\mcsnone{"80}
\def\mcseight{"81}
\def\mcssjis{"82}
\def\mcsbigvh{"83}
\def\mcsbigve{"84}

\mcsattr\mcsthai"111
\mcsattr\mcskana"111
\mcsattr\mcsjpold"122
\mcsattr\mcscn"122
\mcsattr\mcsjp"122
\mcsattr\mcskr"122
\mcsattr\mcsjsp"122
\mcsattr\mcsbigvi"122
\mcsattr\mcsbigvii"122

\mcsattr\mcssisheng"111
\mcsattr\mcsviscl"111
\mcsattr\mcsviscu"111

% macros for specifying char set
\newcount\@mltmpcode
\def\makemlinputcode#1#2#3{\@mltmpcode #1 \multiply\@mltmpcode 65536
 \count255 #2 \multiply\count255 256 \advance\@mltmpcode\count255
 \count255 #3 \advance\@mltmpcode\count255
 \mlinputcodetype\@mltmpcode}
\def\defmlinputcode#1#2#3{\makemlinputcode{#1}{#2}{#3}\defmlinputcodetype}
\def\mlinputcode#1#2#3{\makemlinputcode{#1}{#2}{#3}\setmlinputcodetype}

\def\make@mloutcode#1#2{\@mltmpcode #1 \multiply\@mltmpcode 256
 \count255 #2 \advance\@mltmpcode\count255 }
\def\defmltermcode#1#2{\make@mloutcode{#1}{#2}%
 \global\mltermcodetype\@mltmpcode \defmltermcodetype}
\def\defmllogcode#1#2{\make@mloutcode{#1}{#2}%
 \global\mllogcodetype\@mltmpcode \defmllogcodetype}
\def\defmlwritecode#1#2{\make@mloutcode{#1}{#2}%
 \global\mlwritecodetype\@mltmpcode \setmlallwritecodetype}
\def\defmlspeccode#1#2{\make@mloutcode{#1}{#2}%
 \global\mlspeccodetype\@mltmpcode \defmlspeccodetype}

% fonts
\def\@allmcsnames{%
ltni,ltnii,ltniii,ltniv,ltnv,%
crl,grk,hbw,thai,kana,%
jp,cn,kr,jsp,bvi,bvii,%
viscl,viscu}
%
\def\@mlcar#1,#2\@nil{#1}
\def\@mlcdr#1,#2\@nil{#2\noexpand\@nil}
%
\def\allmlfonts#1#2#3{\allmlsclfonts{#1}{#2}{#3}{}}
\def\allmlsclfonts#1#2#3#4{%
  \def\@mltmp@loop##1,{%
    \if>##1>%
      \let\@mltmp@loop\relax
    \else
      \edef\@mlfntmp{\expandafter\@mlcar\@mlfnlist}%
      \expandafter\font\csname#2##1\endcsname=\@mlfntmp#4
      \expandafter\fontmcs\csname#2##1\endcsname \csname mcs##1\endcsname
      \edef\@mldeftmp{\the\@mldeftmp \csname#2##1\endcsname}%
      \edef\@mlfnlist{\expandafter\@mlcdr\@mlfnlist}%
    \fi
    \@mltmp@loop}%
  \def\@mldeftmp{}\edef\@mlfnlist{#3,\noexpand\@nil}%
  \expandafter\@mltmp@loop\@allmcsnames,,%
  \edef#1{\the\@mldeftmp}%
}

% Following new definition replaces the definition in plain.tex
% to make \magstep6 and \magstep7 work.
\def\magstep#1{\ifcase#1 1000\or
  1200\or 1440\or 1728\or 2074\or 2488\or 2986\or 3583\fi\relax}

% Set up multi-lingual code for this file
\mlinputcode{1}{\mcsascii}{\mcseight}

\message{Kinsoku table initialization,}
% Kinsoku Table initialization
% Kinsoku code can be set only for ascii, japanese symbols, hiragana and
% katakana
% Note the existence of blank space after argument (#1)
\def\prekinsoku#1 {\kinsokucode#1=1}
\def\postkinsoku#1 {\kinsokucode#1=2}
\def\nokinsoku#1 {\kinsokucode#1=0}

% Kinsoku code setting for ascii characters
\postkinsoku`" \prekinsoku`' \postkinsoku``
\postkinsoku`( \prekinsoku`)
\prekinsoku`, \prekinsoku`. \prekinsoku`: \prekinsoku`; \prekinsoku`?
\postkinsoku`< \prekinsoku`>
\postkinsoku`[ \prekinsoku`]
\postkinsoku`\{ \prekinsoku`\}

% Kinsoku code setting for japanese symbols
\prekinsoku`$B!"(B \prekinsoku`$B!#(B \prekinsoku`$B!$(B %
\prekinsoku`$B!%(B \prekinsoku`$B!&(B \prekinsoku`$B!'(B %
\prekinsoku`$B!((B \prekinsoku`$B!)(B \prekinsoku`$B!*(B %
\prekinsoku`$B!+(B \prekinsoku`$B!,(B \prekinsoku`$B!3(B %
\prekinsoku`$B!4(B \prekinsoku`$B!5(B \prekinsoku`$B!6(B %
\prekinsoku`$B!7(B \prekinsoku`$B!9(B %
\prekinsoku`$B!<(B \prekinsoku`$B!=(B \prekinsoku`$B!>(B %

\postkinsoku`$B!F(B \prekinsoku`$B!G(B %
\postkinsoku`$B!H(B \prekinsoku`$B!I(B %
\postkinsoku`$B!J(B \prekinsoku`$B!K(B %
\postkinsoku`$B!L(B \prekinsoku`$B!M(B %
\postkinsoku`$B!N(B \prekinsoku`$B!O(B %
\postkinsoku`$B!P(B \prekinsoku`$B!Q(B %
\postkinsoku`$B!R(B \prekinsoku`$B!S(B %
\postkinsoku`$B!T(B \prekinsoku`$B!U(B %
\postkinsoku`$B!V(B \prekinsoku`$B!W(B %
\postkinsoku`$B!X(B \prekinsoku`$B!Y(B %
\postkinsoku`$B!Z(B \prekinsoku`$B![(B %
\prekinsoku`$B!k(B \prekinsoku`$B!l(B %
\prekinsoku`$B!m(B \prekinsoku`$B!n(B %
\postkinsoku`$B!o(B \postkinsoku`$B!p(B \postkinsoku`$B!q(B %
\postkinsoku`$B!r(B \postkinsoku`$B!w(B \postkinsoku`$B!x(B %

% Kinsoku code setting for hiragana (Sokuon and Youon)
\prekinsoku`$B$!(B \prekinsoku`$B$#(B \prekinsoku`$B$%(B %
\prekinsoku`$B$'(B \prekinsoku`$B$)(B %
\prekinsoku`$B$C(B %
\prekinsoku`$B$c(B \prekinsoku`$B$e(B \prekinsoku`$B$g(B %
\prekinsoku`$B$n(B %

% Kinsoku code setting for katakana (Sokuon and Youon)
\prekinsoku`$B%!(B \prekinsoku`$B%#(B \prekinsoku`$B%%(B %
\prekinsoku`$B%'(B \prekinsoku`$B%)(B %
\prekinsoku`$B%C(B %
\prekinsoku`$B%c(B \prekinsoku`$B%e(B \prekinsoku`$B%g(B %
\prekinsoku`$B%n(B \prekinsoku`$B%u(B \prekinsoku`$B%v(B %

%
\jendlinetype=3
\asciipunct`, 1
\asciipunct`. 1

%
% backward compatibility for JTeX
%
\def\jfont#1{\def\jf@tmp{#1}\afterassignment\jf@next\font#1 }
\def\jf@next{\expandafter\fontmcs\jf@tmp\mcsjp}

\let\jintercharskip\mlintercharskip
\let\jasciikanjiskip\mlasciimlcskip
\let\jmathkanjiskip\mlmathmlcskip
\let\jspaceskip\@@jisspaceskip
\let\prefjspaceskip\jisspaceskip

% change default values of \jintercharskip etc.
\def\defjintercharskip#1#2#3#4{\d@fjglu@{#1}{#2}{#3}{#4}{2}{3}{4}}
\def\defjasciikanjiskip#1#2#3#4{\d@fjglu@{#1}{#2}{#3}{#4}{7}{8}{9}}
\def\defjmathkanjiskip#1#2#3#4{\d@fjglu@{#1}{#2}{#3}{#4}{10}{11}{12}}
\def\defjspaceskip#1#2#3#4{\d@fjglu@{#1}{#2}{#3}{#4}{13}{14}{15}}
\def\d@fjglu@#1#2#3#4#5#6#7{%
\fontdimen#5#1#2%
\fontdimen#6#1#3%
\fontdimen#7#1#4%
}

\def\setjglues{\the\mlfont\mcsjp}

\catcode`@=12