summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex')
-rw-r--r--Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex372
1 files changed, 0 insertions, 372 deletions
diff --git a/Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex b/Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex
deleted file mode 100644
index 116b21f5c50..00000000000
--- a/Master/texmf-dist/doc/fonts/lh/tex/cod-edt.tex
+++ /dev/null
@@ -1,372 +0,0 @@
-%
-% cod-edt.tex
-%
-%% Cyrillic font container with T2 encoding beta-support
-%
-% This file is future part of lxfonts package
-% Version 3.4 // Patchlevel=0
-% (c) O.Lapko
-%
-% This package belongs to the public domain under conditions similar to
-% those of D. E. Knuth specified for the Computer Modern family of fonts.
-% In particular, only the authors are entitled to modify this file
-% and to save it under the same name.
-%
-% Content:
-%
-% Generating Cyrillic codings for both MF and TeX
-% and uccode/lccode/mathcode for TeX
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\lhvercheck(3,4)
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\catcode`\_=11
-\catcode`\~=11
-%
-\ifx\encodingletters\undefined\let\encodingletters\fonttwoletters\fi
-\ifBabel\Berestafalse\fi
-%
-\long\def\CodesToBeGenerated{\input \codebase}
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-% The idea and macros were borrowed from
-% dcstdedt.tex (V1.1/22.3.92) (DC fonts package)
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\let\EA\expandafter
-\def\empty{}
-\def\minus{-}
-\def\blank{ }
-\def\Del#1{}
-
-%%% TeX encoding config files creation macros
-\def\singlecode#1 {
- \def\lettercode{#1}%
- \ifx\lettercode\blank\let\next\singlecode
- \else
- \ifx\lettercode\empty\let\next\singlecode
- \else
- \ifx\lettercode\minus\Del\lettercode\let\next\relax
- \else
- \advance\tablecount1
- \ifnum\tablecount=\currtable\let\next\docode
- \else
- \ifnum\tablecount<\currtable\let\next\singlecode
- \else
- \ifnum\currtable=0
- \message{Wrong currtable: currtable=\the\currtable}%
- \Del\lettercode\let\next\singlecode
- \fi
- \Del\lettercode\let\next\singlecode
- \fi\fi
- \fi\fi\fi
- \next}
-
-\def\singletablevalue#1 {%
- \edef\lettercode{#1}%
- \ifx\lettercode\blank\let\next\singletablevalue
- \else
- \ifx\minus\lettercode\Del\lettercode\let\next\relax
- \else
- \ifx\encodingletters\lettercode\currtable\codecount
- \let\next\singletablevalue
- \else\advance\codecount1\let\next\singletablevalue
- \fi
- \fi\fi
- \next}
-
-\def\tablevalues(#1){\codecount=0\singletablevalue#1 -
- }
-
-\def\Makecod #1 #2 (#3){%
- \edef\letternamemf{#1}%
- \edef\letnamestring{#2}%
- \tablecount=0\singlecode #3 -
- }
-
-\def\makecod{\chardeffalse\upperfalse\Makecod
- }
-\def\makeCOD{\chardeffalse\uppertrue\Makecod
- }
-\def\makechr{\chardeftrue\accentfalse\Makecod
- }
-\def\makeacc{\chardeftrue\accenttrue\Makecod
- }
-
-\def\makechardef#1#2{%
- \def\charletter{#1}\edef\charcode{#2}\Dochfile%
- }
-\def\makeaccdef#1#2{%
- \def\charletter{#1}\edef\charcode{#2}\Doacfile%
- }
-
-\def\makeuclcletter#1#2#3#4{%
- \ifx#1\undefined %relax
- \else
- \def\upperletter{#1}\def\uppercode{#2}%
- \ifx#3\undefined %
- \message{\string#1: Uppercase letter has not pair}
- \else
- \def\lowerletter{#3}\def\lowercode{#4}\Doucfile
- \fi
- \fi
- }
-
-\def\docodetest#1[#2]#3\nothing{%
-\def\lettercode{#2}%
-\ifx\lettercode\empty
- \def\lettercodelig{#1}%
- \def\lettercode{#1}%
-\else
- \def\lettercode{#1}%
- \def\lettercodelig{#2}%
-\fi}
-
-\def\docode{\expandafter\docodetest\lettercode[]\nothing
- \expandafter\codesUP\lettercode\endcodesUP
-\Docode}
-
-\def\LetA{A}\def\LetB{B}\def\LetC{C}\def\LetD{D}\def\LetE{E}\def\LetF{F}
-\def\Leta{a}\def\Letb{b}\def\Letc{c}\def\Letd{d}\def\Lete{e}\def\Letf{f}
-\def\codesUP#1#2\endcodesUP{\gdef\firstlet{#1}\gdef\secondlet{#2}%
- \ifx\firstlet\Leta\let\firstlet\LetA\else
- \ifx\firstlet\Letb\let\firstlet\LetB\else
- \ifx\firstlet\Letc\let\firstlet\LetC\else
- \ifx\firstlet\Letd\let\firstlet\LetD\else
- \ifx\firstlet\Lete\let\firstlet\LetE\else
- \ifx\firstlet\Letf\let\firstlet\LetF\else
- \fi\fi\fi\fi\fi\fi
- \ifx\secondlet\Leta\let\secondlet\LetA\else
- \ifx\secondlet\Letb\let\secondlet\LetB\else
- \ifx\secondlet\Letc\let\secondlet\LetC\else
- \ifx\secondlet\Letd\let\secondlet\LetD\else
- \ifx\secondlet\Lete\let\secondlet\LetE\else
- \ifx\secondlet\Letf\let\secondlet\LetF\else
- \fi\fi\fi\fi\fi\fi\Del\firstlet\Del\secondlet
-}
-
-{\catcode`\%=11 \catcode`\|=14
-\gdef\MakeHeadFileDefinition#1#2{|
- \immediate\write#1{% This is #2\space in text format as of \today^^J%\space
- created by LHfonts (TeX4MF) version\space
- \number\lhmajver.\number\lhminver^^J%^^J%^^J}|
-}
-\ifchartest|
- \gdef\Docode{|
- \edef\dowrite{|
- \ifnum\chartestcount>\charteststart
- \ifnum\chartestcount<\chartestfinish
- \def\csname MF\letternamemf\endcsname{-1}|for ligs&kerning file
- \immediate\write\encfontoutput{CYR_.\letternamemf\space:=-1;}|
- \immediate\write\testfontoutput{testchar (\letternamemf);}|
- \immediate\write16{CYR_.\letternamemf:= \number\chartestcount;\blank}|
- \fi\fi\advance\chartestcount1
- }\dowrite\singlecode
- }
-\else
- \catcode`\{=12 \catcode`\}=12
- \catcode`\(=1 \catcode`\)=2
- \catcode`\^=12
- \gdef\Docode(|
- \edef\dowrite(|
- \ifx\lettercode\nolettercode|relax
- \else
- \ifx\letnamestring\nolettercode|relax
- \else
- \ifMakeFontEnc
- \ifBeresta\else
- \ifchardef
- \immediate\write\chardefoutput(|
- \ifaccent
- \string\makeaccdef {\letnamestring} {"\firstlet\secondlet}|
- \else
- \string\makechardef {\letnamestring} {"\firstlet\secondlet}|
- \fi)|
- \else
- \immediate\write\rusdefoutput(|
- \ifupper
- \string\makeuclcletter\expandafter\string\csname\letnamestring\endcsname{\firstlet\secondlet}%|tempdefinition
- \else
- \|\expandafter\string\csname\letnamestring\endcsname{\firstlet\secondlet}
- \fi)|
- \expandafter\def\expandafter\csname\letnamestring\endcsname(\lettercode)|for lccode/uccode file
- \fi
- \fi
- \ifBabel\else
- \ifchardef
- \ifBeresta
- \immediate\write\codeoutput(|
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char"\firstlet\secondlet\else--\fi}|
- )|
- \fi
- \else|only letters
- \immediate\write\codeoutput(|
- \ifx\lettercode\lettercodelig|no letter ligatures
- \ifcodehats|Cyrillic letter defined as ^^hex
- \ifBeresta
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char"\firstlet\secondlet\else--\fi}|
- \else
- \string\def\expandafter\string\csname\letnamestring\endcsname{^^\lettercode}|
- \fi
- \else
- \ifBeresta
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char"\firstlet\secondlet\else--\fi}|
- \else
- \string\chardef\expandafter\string\csname\letnamestring\endcsname="\firstlet\secondlet|
- \fi
- \fi
- \else
- \ifBeresta
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char"\firstlet\secondlet\else--\fi}|
- \else
- \string\def\expandafter\string\csname\letnamestring\endcsname{\lettercodelig}|
- \fi
- \fi
- )|
- \fi
- \fi
- \fi
- \fi
- \def\csname MF\letternamemf\endcsname(\lettercode)|for ligs&kerning file
- \immediate\write\encfontoutput(CYR_.\letternamemf\space:= hex"\lettercode";)|
- \immediate\write16(CYR_.\letternamemf:=hex"\lettercode";\blank)|
- \fi
- )\dowrite\singlecode
- )
-\fi
-\ifchartest|
-\else|
-(\catcode`\#=12 |\catcode`\^=7
-\gdef\Doucfile(|
- \edef\dowrite(|
- \ifBabel
- \immediate\write\codeoutput(|
- \string\@tmpb\expandafter\string\upperletter{\uppercode}|
- \expandafter\string\lowerletter{\lowercode}|
- )|
- \else
- \ifBeresta\else
- \immediate\write\codeoutput(|
- \string\letter{^^\upperletter}{^^\lowerletter}
- )|
- \fi
- \fi
- )\dowrite|\singlecode
-)
-\gdef\Dochfile(|
- \edef\dowrite(|
- \immediate\write\codeoutput(|
- \ifBabel
- \string\@tmpd\expandafter\string\csname\charletter\endcsname{\charcode}
- \else
- \ifBeresta
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char\charcode\else--\fi}|
- \else
- \string\chardef\expandafter\string\csname\charletter\endcsname=\charcode
- \fi
- \fi)|
- )\dowrite|\singlecode
-)
-\gdef\Doacfile(|
- \edef\dowrite(|
- \immediate\write\codeoutput(|
- \ifBabel
- \string\@tmpc\expandafter\string\csname\charletter\endcsname{\charcode}
- \else
- \ifBeresta
- \string\def\expandafter\string\csname\berestachar CYR_\letternamemf\endcsname{\ifcodehats\string\char\charcode\else--\fi}|
- \else
- \string\def\expandafter\string\csname\charletter\endcsname{\string\accent\charcode}
- \fi
- \fi)|
- )\dowrite|\singlecode
-)
-\gdef\Doucfilehead(\ifBabel\else\ifBeresta\else|
- \edef\dowrite(|
- \immediate\write\codeoutput(%)
- \immediate\write\codeoutput(\string\def\string\letter#1#2{%\space
- catcodes for Russian letters = \string\letter\space
- \string(like A-Z,a-z\string))
- \immediate\write\codeoutput(\string\catcode`#1=11\string\catcode`#2=11%)
- \immediate\write\codeoutput(\string\uccode`#1=`#1\string\lccode`#1=`#2%)
- \immediate\write\codeoutput(\string\uccode`#2=`#1\string\lccode`#2=`#2%)
- \immediate\write\codeoutput(|
- \string\count0`#1\string\advance\string\count0 by7000|
- \string\mathcode`#1=\string\count0%)
- \immediate\write\codeoutput(|
- \string\count0`#2\string\advance\string\count0 by7000|
- \string\mathcode`#2=\string\count0%)
- \immediate\write\codeoutput(})
- )\dowrite\fi\fi|\singlecode
- )\catcode`\#=6)
-\gdef\Doucfilefoot(\ifBabel\else\ifBeresta\else|
- \edef\dowrite(|
- \immediate\write\codeoutput(\string\def\string\letter{}%)
- \immediate\write\codeoutput(%)
- )\dowrite\fi\fi|\singlecode
-)|
-\fi
-\catcode`\{=1 \catcode`\}=2
-}
-
-\immediate\write16{generated letters:}
-\immediate\write16{==================}
-
-\immediate\openout\encfontoutput=\encfontname
-\ifchartest
- \immediate\openout\testfontoutput=\testfontname
-\fi
-\MakeHeadFileDefinition\encfontoutput{\Nencfontname}
-\ifMakeFontEnc
- \immediate\openout\codeoutput =\codefilename
- \MakeHeadFileDefinition\codeoutput{\Ncodefilename}
- \ifBabel
- {\catcode`\{=12 \catcode`\}=12
- \catcode`\(=1 \catcode`\)=2
- \immediate\write\codeoutput(%
- \string\ifx\string\ProvidesFile\string\undefined^^J%
- \|\def\string\ProvidesFile\string#1[\string#2]{}^^J\string\fi^^J^^J%
- \string\ProvidesFile{\Ncodefilename}^^J%
- \|\|\|[\today\space v1.1^^J%
- \|\|\|8-bit Cyrillic font encoding based on CM fonts^^J%
- \|\|\|created by LHfonts version\space
- \number\lhmajver.\number\lhminver])
- \catcode`\{=1 \catcode`\}=2
- }
- \fi
- \ifBeresta\else
- \immediate\openout\rusdefoutput =\rusdefname
- \immediate\openout\chardefoutput=\chardefname
- \fi
-\fi
-%
-\CodesToBeGenerated
-%
-\immediate\closeout\encfontoutput
-\ifchartest
- \immediate\closeout\testfontoutput
-\fi
-\ifMakeFontEnc
- \ifBeresta\else
- \immediate\closeout\rusdefoutput
- \immediate\closeout\chardefoutput
- \fi
- \Doucfilehead
- \ifBeresta\else
- \input \rusdefname
- \fi
- \Doucfilefoot
- \ifBeresta\else
- \input \chardefname
- \fi
- \ifBabel\else\ifBeresta\else\begingroup\catcode`\%=11
- \immediate\write\codeoutput{%^^J\string\input\space rusdef %input additional macros}
- \endgroup\fi\fi
- \immediate\closeout\codeoutput
-\fi
-\catcode`\~=13
-\endinput