Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
COPYING.UCD	1.33 KB	-rw-r--r--
COPYING.gz	6.68 KB	-rw-r--r--
INSTALL.eng.gz	1.63 KB	-rw-r--r--
INSTALL.gz	2.13 KB	-rw-r--r--
README.gz	1.68 KB	-rw-r--r--
changes.txt	1.94 KB	-rw-r--r--
encdoc-e.pdf	108.85 KB	-rw-r--r--
encdoc-e.tex.gz	11.26 KB	-rw-r--r--
encdoc.pdf	131 KB	-rw-r--r--
encdoc.tex.gz	16.56 KB	-rw-r--r--
math-example.tex	885 B	-rw-r--r--
unimap.diff.gz	10.89 KB	-rw-r--r--
unimap.py.gz	2.08 KB	-rw-r--r--
vlna.tex	1.84 KB	-rw-r--r--

Code Editor : vlna.tex

% Vlna implementovana jako makra v encTeXu
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Leden 2003                    Petr Olsak

% Toto je ukazka moznosti encTeXu. Na urovni maker muzeme
% naprogramovat program vlna.

% Pomocna makra:

\def\setmu #1#2{\mubyte #1##1 #2\endmubyte} % use encTeX Feb 2003
\bgroup \uccode`X=\endlinechar \uppercase{\gdef\endchar{X}}
        \uccode`X=`\{          \uppercase{\gdef\leftbrace{X}}
\egroup

\def\sylabi #1{%
   \setmu \spacesylab {\space#1}     % <mezera>v lese -> <mezera>v~lese
   \setmu \normalsylab {(#1}         % (v lese        -> (v~lese
   \setmu \normalsylab {\endchar#1}  % <zacatek radku>v lese -> v~lese
   \setmu \normalsylab {[#1}         % [v lese        -> [v~lese
   \setmu \specsylab  {\leftbrace#1} % {v lese        -> {v~lese
}
% dve moznosti za predlozkou: mezera nebo konec radku:

\def\sylab #1{\sylabi {#1\space}\sylabi {#1\endchar}}

% seznam predlozek:

\sylab v \sylab k \sylab o \sylab s \sylab u \sylab z
\sylab V \sylab K \sylab O \sylab S \sylab U \sylab Z
\sylab A \sylab I \sylab i \sylab a

% makra neudelaji nic v matematickem modu a verbatim prostredi:

\def\exx{\expandafter\expandafter\expandafter}
\def\spacesylab {\ifmmode\else\ifnum\catcode`\ =10 \exx\spacesylabP \fi\fi}
\def\normalsylab {\ifmmode\else\ifnum\catcode`\ =10 \exx\normalsylabP \fi\fi}
\def\specsylab {\ifmmode\else\ifnum\catcode`\ =10 \exx\specsylabP \fi\fi}
                
\def\spacesylabP {\afterassignment\spacesylabR \let\next= }
\def\spacesylabR {\ifhmode\unskip\fi \next \normalsylabP}
\def\normalsylabP #1 {#1~}
\def\specsylabP #1{{\normalsylabP #1}}

\def\uv{\futurelet\next\uvR}
\def\uvR{\ifx \next\specsylab \expandafter \uvS \else \expandafter \uvP \fi}
\long\def\uvP #1{\clqq#1\crqq}
\long\def\uvS \specsylab #1{\normalsylab \clqq#1\crqq}

\mubytein=2  % potrebujeme i konstrukce "a v lese -> a~v~lese"

\endinput

${this.title}

Code Editor : vlna.tex