summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex')
-rw-r--r--Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex290
1 files changed, 290 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex b/Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex
new file mode 100644
index 00000000000..a92c5b778ca
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/expex/source/X-local-doc.tex
@@ -0,0 +1,290 @@
+\makeatletter
+\def\slname#1{\@ifnextchar\relax{{\sl #1}}{{\sl #1\/}}}
+\def\ExPex{\slname{ExPex}}
+\def\LaTex{\slname{LaTex}}
+\def\Tex{\slname{Tex}}
+\def\XKeyVal{\slname{XKeyVal}}
+\def\PSTricks{\slname{PSTricks}}
+
+\def\index#1{%
+ \ifgatherindex
+ \write@index{#1, \the\pageno}%
+ \fi
+}
+% abbreviations
+\def\pst#1{{\sl pst-#1}}
+\def\backslash{\char"5C }
+\def\titlemacro#1{{\tt \backslash #1}}
+\def\titlekey#1{{\tt #1}}
+\def\value#1{\hbox{$\vert|#1|\vert$}}
+% headline for finished version
+\dimpuba=-\vsize \advance\dimpuba by -.4in
+\lingset{headline=\hfil \ifnum\pageno<1 \else \the\pageno\hfil \fi,
+ headlinelevel=\dimpuba}
+% formatting
+\def\parinventory{\pst@ifstar\parinventory@a}
+%\def\parinventory@a{%
+% \par \noindent Parameter{\if@star\else s\fi}:\par\nobreak
+% \noindent\qquad
+% \vtop\bgroup\openup1pt
+% \halign\bgroup##\hfil&& \qquad ##\hfil\cr}
+\def\parinventory@a{%
+ \par\bgroup \parindent=0pt
+ \halign\bgroup ##\hfil& \quad ##\hfil&& \qquad ##\hfil\cr
+ \omit Parameter{\if@star\else s\fi}:\hidewidth\cr
+ \noalign{\par\nobreak}}
+\def\endparinventory{\egroup\egroup\bigskip\noindent}
+%\def\begininventory{\@getoptionalarg\begininventory@a}
+%\def\begininventory@a{\medskip\vbox\bgroup\hrule\medskip \bgroup
+% \openup2pt
+% \halign\bgroup \quad ##\hfil&&
+% \hskip \ifx\@optionalarg\empty 2em \else\@optionalarg\fi ##\hfil\cr
+%}
+%\def\endinventory{\egroup\egroup \medskip\hrule\bigskip\egroup\noindent}
+\def\parameters{\omit Parameters:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial setting}
+\def\parameter{\omit Parameter:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial setting}
+
+\def\begininventory{\@getoptionalarg\begininventory@a}
+\def\begininventory@a{\medskip\vbox\bgroup\line{\leaders\hrule\hfil}\bgroup
+ \openup2pt
+ \halign\bgroup \quad ##\hfil&&
+ \hskip \ifx\@optionalarg\empty 2em \else\@optionalarg\fi ##\hfil\cr
+}
+\def\endinventory{\egroup\egroup \medskip\hrule\egroup\bigskip\noindent}
+\def\parameters{\omit Parameters:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial setting}
+\def\parameter{\omit Parameter:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial setting}
+\def\parameters{\omit\pst@ifstar\parameters@a}
+\def\parameters@a{Parameter\if@star\else s\fi:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial
+ value\cr}
+\def\parametersdef{\omit\pst@ifstar\parametersdef@a}
+\def\parametersdef@a{Parameter\if@star\else s\fi:\hidewidth\cr
+ \hfil\it key& \hfil\it value& \hfil\it initial
+ value& \hfil\it default value\cr}
+\def\macros{\omit\pst@ifstar\macros@a}
+\def\counter{\omit Counter:\enspace}
+\def\endmc{\hidewidth\cr}
+\def\macros@a{Macro\if@star\else s\fi:\enspace}
+
+\def\beginmacinventory{\pst@ifstar\beginmacinventory@a}
+\def\beginmacinventory@a{\bgroup\parindent=0pt \hrule\medskip
+ Macro{\if@star \else s\fi}:\enspace}
+\def\endmacinventory{\medskip\egroup\hrule\bigskip\noindent}
+
+
+%\def\begininventory{\bigskip\bgroup
+% \setbox0=\vtop\bgroup\openup2pt
+% \halign\bgroup \quad ##\hfil&& \tspace ##\hfil\cr
+%}
+%\def\endinventory{\egroup\egroup
+% \noindent
+% \psframebox[framesep=1ex,boxsep=false,doubleline=true]{\box0}%
+% \egroup\bigskip}
+
+
+\def\smalldisplay{\medskip\noindent\hfil}
+\def\endsmalldisplay{\medskip\noindent}
+\def\excentered{\@getoptionalarg\exc@a}
+\def\exc@a{%
+\vbox\bgroup\bigskip \leftskip=0pt plus 1fil
+ \rightskip=0pt plus 1.2fil \parindent=0pt \parfillskip=0pt
+ \ifx\@optionalarg\@empty \else \hsize=\jf@pars \fi
+ \let\xe=\exc@b
+ \hrule
+ \par\nobreak
+ \bigskip
+}
+\def\exc@b{\par\nobreak\bigskip\hrule\bigskip\egroup}
+% \tfb (tight frame box)
+\def\tfb{\medskip \setbox\tmpbox=\hbox\bgroup}
+\def\endtfb{\egroup\noindent
+ \psframebox[boxsep=true,framesep=3pt]{\box\tmpbox}\medskip}
+
+% pst-asr utilities
+
+\def\slant#1{{\sl #1}}
+
+\parindent=2em
+\rightskip=0pt plus 2em
+
+\newbox\@framedisplaybox
+\newskip\abovefdskip
+\newskip\abovefdtildeskip
+\newskip\aboveexskipfd
+\abovefdskip=\lingaboveexskip
+\abovefdtildeskip=1ex
+\define@ling@cmdkeys{abovefdskip,belowfdskip,
+ fdtopcorrect,fdbotcorrect,everyfd}
+\Lingset{%
+ boxsep=false,
+ framesep=1.5ex,
+ abovefdskip=2.8ex plus .5ex,
+ belowfdskip=2ex plus .3ex minus .1ex,
+ fdtopcorrect=\lingaboveexskip,
+ fdbotcorrect=\lingbelowexskip
+}
+\def\framedisplay{\@tildecheck\framedisplay@a}
+\def\framedisplay@a{\@getoptionalarg\framedisplay@aa}
+\def\framedisplay@aa{\bgroup
+ \Ling@usearg
+ \setbox\@framedisplaybox=\vbox\bgroup\vskip-\ling@fdtopcorrect
+}
+\def\endframedisplay{%
+ \vskip-\ling@fdbotcorrect
+ \egroup
+ \vskip\ling@abovefdskip
+ \noindent
+ \psframebox[boxsep=false,linewidth=1.2pt]%
+ {\copy\@framedisplaybox}%
+ \vskip\ling@belowfdskip
+ \egroup
+}
+\define@choicekey{ling}{fdcorrect}[\ling@fdcorrect\@N]%
+ {none,both,bottom,top}{%
+ \ifcase\@N
+ \lingset{fdtopcorrect=0pt,fdbotcorrect=0pt}
+ \or
+ \lingset{fdtopcorrect=\lingaboveexskip,
+ fdbotcorrect=\lingbelowexskip}
+ \or
+ \lingset{fdtopcorrect=0pt,
+ fdbotcorrect=\lingbelowexskip}
+ \or
+ \lingset{fdtopcorrect=\lingaboveexskip,
+ fdbotcorrect=0pt}
+ \fi
+}
+\lingset{fdcorrect=both}
+
+% code fragment display
+\def\codefragment{\medskip\begingroup \leftskip=3em \parindent=0pt
+ \obeylines}
+\def\endcodefragment{\medskip\endgroup \noindent}
+\def\exfrag{%
+ \exdisplay[exskip=1.3ex plus.4ex minus.4ex]\noexno}
+% #2 can be \par, so \long is needed
+\long\def\if@tildeverb#1#2{\ifx#2~\@tildetrue\def\next{#1}\else
+ \@tildefalse\def\next{\expandafter #1\string#2}\fi \next}
+\def\codedisplay{\if@tildeverb\codedisplay@a}
+\def\codedisplay@a{%
+ \edef\@@aboveexskip{\ifx\next\empty 0pt\else 1.5ex\fi}%
+ \exdisplay[aboveexskip=\@@aboveexskip,
+ belowexskip=1.5ex]\noexno
+ \verbatim}
+\def\endcodedisplay{\endverbatim\xe}
+\def\ellide{\kern.6em\dots\kern.3em}
+\def\verbdots{\endverbatim \ellide\verbatim}
+
+\def\normalss{\def\leftss{.55}\def\rightss{.35}}
+\def\setss #1 #2 {\def\leftss{#1}\def\rightss{#2}}
+\normalss
+
+% side by side, code and output
+\def\beginss{\if@tildeverb\beginss@a}
+\def\beginss@a{%
+ \if@tilde\else\bigskip\fi
+ \bgroup
+ \parindent=0pt
+ \noindent
+ \line
+ \bgroup\vtop\bgroup
+ \hsize=\leftss\hsize
+ \verbatim
+}
+\def\midss{%
+ \endverbatim
+ \egroup
+ \hsize=\rightss\hsize
+ \setbox\@framedisplaybox=\vtop\bgroup
+ \lingset{exskip=0pt}
+
+}
+\def\endss{%
+ \egroup
+ \hfill
+ \vtop{%
+ \psframebox[boxsep=false]{\box\@framedisplaybox}%
+ \bigskip}%
+ \egroup\egroup
+ \bigskip
+ \noindent
+}
+% auxiliary fonts
+\font\spacefont=txsya at 10pt
+\font\titlett=txtt at 13.3pt
+
+\edef\spacesym{\lower1.6pt
+ \hbox to\wd0{\spacefont \kern.3pt\char"78 \hss\char"79 \kern.3pt}}
+\def\ttcs#1{{\tt \char"5C #1}}
+
+\outer\def\section #1\par{%
+ \global\advance\secno by 1 \global\subsecno=0
+ \global\subsubsecno=0
+ \vfil\eject
+ {\noindent \sectiontitlefont
+ \the\secno.\enskip #1\par}\nobreak
+ \xdef\sectiontitle{\twelverm Section \the\secno:\enspace #1}%
+ \ifgathercontents \edef\temp{{\the\secno}}%
+ \expandafter\writecontents\temp{#1}\sec\fi \nobreak
+ \medskip\nobreak\noindent
+}
+%\def\mkheadline{%\rput[Bl](0,\lingheadlinelevel){%
+% \rput[Bl](0,5.5ex){\hbox to\hsize{\sectiontitle\hfil
+% \ifnum\pageno>0 \the\pageno \fi}}}
+\def\sectiontitle{}
+\font\sectiontitlefont=t1xss at 14pt
+
+\def\chapscurrsec{\ifnum\chapno>0 \the\chapno
+ \ifnum\secno>0 .\the\secno
+ \ifnum\subsecno>0 .\the\subsecno
+ \ifnum\subsubsecno>0 .\the\subsubsecno \fi\fi\fi\fi}
+\def\nochapscurrsec{\ifnum\secno>0 \the\secno
+ \ifnum\subsecno>0 .\the\subsecno
+ \ifnum\subsubsecno>0 .\the\subsubsecno \fi\fi\fi}
+\let\currsec\nochapscurrsec
+\def\deftagsec#1{\deftag\currsec{#1}}
+\def\introsec#1{%
+ \noindent \the\introsecno.\enspace
+ \advance\introsecno by 1
+ {\it #1}
+ \medskip
+}
+\newcount\introsecno
+\introsecno=1
+\define@lingcmdkeys{secfil}
+\outer\def\section #1\par{%
+ \global\advance\secno by 1
+ \global\subsecno=0
+ \global\subsubsecno=0
+ \vskip0pt plus \lingsecfil
+ \penalty-20
+ \vskip0pt plus -\lingsecfil
+ \bigskip
+ \vskip\parskip
+ {\noindent \titlefont{main}
+ \the\secno.\enskip #1}\par\nobreak
+ \ifgathercontents \edef\temp{{\the\secno}}%
+ \expandafter\writecontents\temp{#1}\sec\fi
+ \medskip\noindent
+}
+\lingset{secfil=.2\vsize}
+
+\resetatcatcode
+
+\lingset{exbreakfil=8ex}
+\raggedbottom
+\def\dimskip{\hskip.12em}
+\def\textdim#1{\textdimA#1 }
+\def\textdimA#1 #2 {\hbox{#1\dimskip #2}}
+\def\user{\raise.2ex\hbox{$\dag $}}
+\def\inc{(!)\kern.7pt}
+% ---- small caps
+%\font\twelvesc=cmcsc10 scaled\magstep1
+\let\sc=\twelvesc
+\def\textsc#1{{\sc #1}}
+%
+