diff options
author | Karl Berry <karl@freefriends.org> | 2013-10-12 22:48:28 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-10-12 22:48:28 +0000 |
commit | 246b5665edc2af75b55662b748e9ad83f3dac101 (patch) | |
tree | ee34732675812d84422a6593f588e528e3d6fdf2 /Master/texmf-dist/source/latex/babel/bbplain.dtx | |
parent | 0ec188e4bda5bbce1ca6bb39f8e121f7c47d0adf (diff) |
babel (12oct13)
git-svn-id: svn://tug.org/texlive/trunk@31886 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/babel/bbplain.dtx')
-rw-r--r-- | Master/texmf-dist/source/latex/babel/bbplain.dtx | 728 |
1 files changed, 0 insertions, 728 deletions
diff --git a/Master/texmf-dist/source/latex/babel/bbplain.dtx b/Master/texmf-dist/source/latex/babel/bbplain.dtx deleted file mode 100644 index b454b897fd6..00000000000 --- a/Master/texmf-dist/source/latex/babel/bbplain.dtx +++ /dev/null @@ -1,728 +0,0 @@ -% \iffalse meta-comment -% -% Copyright 2012-2013 Javier Bezos and Johannes L. Braams. -% Copyright 1989-2008 Johannes L. Braams and any individual authors -% listed elsewhere in this file. All rights reserved. -% -% This file is part of the Babel system. -% -------------------------------------- -% -% It may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either version 1.3 -% of this license or (at your option) any later version. -% The latest version of this license is in -% http://www.latex-project.org/lppl.txt -% and version 1.3 or later is part of all distributions of LaTeX -% version 2003/12/01 or later. -% -% This work has the LPPL maintenance status "maintained". -% -% The Current Maintainer of this work is Javier Bezos. -% -% The list of all files belonging to the Babel system is -% given in the file `manifest.bbl. See also `legal.bbl' for additional -% information. -% -% The list of derived (unpacked) files belonging to the distribution -% and covered by LPPL is defined by the unpacking scripts (with -% extension .ins) which are part of the distribution. -% \fi -% \CheckSum{795} -% -% \iffalse -%<*dtx> -\ProvidesFile{bbplain.dtx} - [2013/04/10 v1.0t Babel support for plain-based formats] -%</dtx> -% -%% File `bbplain.dtx' -%% Babel package for LaTeX version 2e -%% Copyright (C) 1989 - 2008 -%% by Johannes Braams -%% Copyright (C) 2013 by Johannes Braams -%% TeXniek -%% by Javier Bezos -%% all rights reserved. -% -% -% This file is part of the babel system, it provides the source -% code for the extra definitions needed to be able to use babel -% with a plain-based format. -%<*filedriver> -\documentclass{ltxdoc} -\font\manual=logo10 % font used for the METAFONT logo, etc. -\newcommand*\MF{{\manual META}\-{\manual FONT}} -\newcommand*{\babel}{\textsf{babel}} -\newcommand*{\langvar}{$\langle \it lang \rangle$} -\newcommand*{\note}[1]{} -\newcommand*{\pkg}[1]{\textsf{#1}} -\newcommand*{\Lopt}[1]{\textsf{#1}} -\newcommand*{\file}[1]{\texttt{#1}} -\begin{document} - \DocInput{bbplain.dtx} -\end{document} -%</filedriver> -% \fi -% -% \GetFileInfo{bbplain.dtx} -% \StopEventually{} -% \changes{bbplain-1.0n}{1998/06/08}{Added the source for the format -% wrapper files} -% -% \section{Support for Plain \TeX} -% -% \subsection{Not renaming \file{hyphen.tex}} -% As Don Knuth has declared that the filename \file{hyphen.tex} may -% only be used to designate \emph{his} version of the american -% English hyphenation patterns, a new solution has to be found in -% order to be able to load hyphenation patterns for other languages -% in a plain-based \TeX-format. -% When asked he responded: -% \begin{quote} -% That file name is "sacred", and if anybody changes it they will -% cause severe upward/downward compatibility headaches. -% -% People can have a file localhyphen.tex or whatever they like, -% but they mustn't diddle with hyphen.tex (or plain.tex except to -% preload additional fonts). -% \end{quote} -% -% The files \file{bplain.tex} and \file{blplain.tex} can be used as -% replacement wrappers around \file{plain.tex} and -% \file{lplain.tex} to acheive the desired effect, based on the -% \pkg{babel} package. If you load each of them with ini\TeX, you -% will get a file called either \file{bplain.fmt} or -% \file{blplain.fmt}, which you can use as replacements for -% \file{plain.fmt} and \file{lplain.fmt}. -% -% As these files are going to be read as the first thing ini\TeX\ -% sees, we need to set some category codes just to be able to -% change the definition of |\input| -% \begin{macrocode} -%<*bplain|blplain> -\catcode`\{=1 % left brace is begin-group character -\catcode`\}=2 % right brace is end-group character -\catcode`\#=6 % hash mark is macro parameter character -% \end{macrocode} -% Now let's see if a file called \file{hyphen.cfg} can be found -% somewhere on \TeX's input path by trying to open it for -% reading... -% \begin{macrocode} -\openin 0 hyphen.cfg -% \end{macrocode} -% If the file wasn't found the following test turns out true. -% \begin{macrocode} -\ifeof0 -\else -% \end{macrocode} -% When \file{hyphen.cfg} could be opened we make sure that -% \emph{it} will be read instead of the file \file{hyphen.tex} -% which should (according to Don Knuth's ruling) contain the -% american English hyphenation patterns and nothing else. -% -% We do this by first saving the original meaning of |\input| (and -% I use a one letter control sequence for that so as not to waste -% multi-letter control sequence on this in the format). -% \begin{macrocode} - \let\a\input -% \end{macrocode} -% Then |\input| is defined to forget about its argument and load -% \file{hyphen.cfg} instead. -% \begin{macrocode} - \def\input #1 {% - \let\input\a - \a hyphen.cfg -% \end{macrocode} -% Once that's done the original meaning of |\input| can be restored -% and the definition of |\a| can be forgotten. -% \begin{macrocode} - \let\a\undefined - } -\fi -%</bplain|blplain> -% \end{macrocode} -% Now that we have made sure that \file{hyphen.cfg} will be loaded -% at the right moment it is time to load \file{plain.tex}. -% \begin{macrocode} -%<bplain>\a plain.tex -%<blplain>\a lplain.tex -% \end{macrocode} -% Finally we change the contents of |\fmtname| to indicate that -% this is \emph{not} the plain format, but a format based on plain -% with the \pkg{babel} package preloaded. -% \begin{macrocode} -%<bplain>\def\fmtname{babel-plain} -%<blplain>\def\fmtname{babel-lplain} -% \end{macrocode} -% -% When you are using a different format, based on plain.tex you can -% make a copy of blplain.tex, rename it and replace \file{plain.tex} -% with the name of your format file. -% -% \subsection{Emulating some \LaTeX{} features} -% -% The following code duplicates or emulates parts of \LaTeXe\ that -% are needed for \babel. -% -% \changes{bbplain-1.0f}{1996/07/09}{Consistently use \cs{@undefined} -% instead of \cs{undefined}} -% \changes{bbplain-1.0f}{1996/07/09}{added \cs{@empty}} -% \changes{bbplain-1.0h}{1996/10/07}{Only load the necessary parts -% into the format, let this file be read agian by babel.def} -% \changes{bbplain-1.0h}{2012/12/21}{Use \cs{orig@dump} as flag to -% decide if we are building the format, defined in hyphen.cfg} -% -% When |\adddialect| is still undefined we are making a -% format. In that case only the first part of this file is needed. -% \begin{macrocode} -%<*code> -\def\@empty{} -\ifx\orig@dump\@undefined\else -% \end{macrocode} -% -% \changes{bbplain-1.0c}{1995/11/08}{Moved the \cs{dump} code here from -% \file{babel.dtx}} -% \changes{bbplain-0.1}{1991/10/31}{Added redefinition of \cs{dump} to -% add a message to \cs{everyjob}} -% We want to add a message to the message \LaTeX$\:$2.09 puts in -% the |\everyjob| register. This could be done by the following -% code: -% \begin{verbatim} -% \let\orgeveryjob\everyjob -% \def\everyjob#1{% -% \orgeveryjob{#1}% -% \orgeveryjob\expandafter{\the\orgeveryjob\immediate\write16{% -% hyphenation patterns for \the\loaded@patterns loaded.}}% -% \let\everyjob\orgeveryjob\let\orgeveryjob\@undefined} -% \end{verbatim} -% The code above redefines the control sequence \cs{everyjob} -% in order to be able to add something to the current contents of -% the register. This is necessary because the processing of -% hyphenation patterns happens long before \LaTeX\ fills the -% register. -% -% There are some problems with this approach though. -% \begin{itemize} -% \item When someone wants to use several hyphenation patterns with -% \SliTeX\ the above scheme won't work. The reason is that \SliTeX\ -% overwrites the contents of the |\everyjob| register with its own -% message. -% \item Plain \TeX\ does not use the |\everyjob| register so the -% message would not be displayed. -% \end{itemize} -% To circumvent this a `dirty trick' can be used. As this code is -% only processed when creating a new format file there is one -% command that is sure to be used, |\dump|. Therefore the original -% |\dump| is saved in |\org@dump| and a new definition is supplied. -% -% To make sure that \LaTeX$\:$2.09 executes the -% |\@begindocumenthook| we would want to alter |\begin{document}|, -% but as this done too often already, we add the new code at the -% front of |\@preamblecmds|. But we can only do that after it has -% been defined, so we add this piece of code to |\dump|. -% \changes{bbplain-1.0c}{1995/11/19}{Add execution of -% \cs{@begindocumenthook} to \cs{@preamblecmds}} -% \changes{bbplain-1.0i}{1997/01/02}{\cs{document} is not a -% \LaTeX2.09-only command; AMS\TeX defines it too; now use -% \cs{@ztryfc} to detect \LaTeX2.09} -% \changes{bbplain-1.0j}{1997/01/07}{Add the definition of -% \cs{@begindocumenthook} to the \LaTeX2.09 format} -% \begin{macrocode} - \def\dump{% - \ifx\@ztryfc\@undefined - \else - \toks0=\expandafter{\@preamblecmds} - \edef\@preamblecmds{\noexpand\@begindocumenthook\the\toks0} - \def\@begindocumenthook{} - \fi -% \end{macrocode} -% This new definition starts by adding an instruction to write a -% message on the terminal and in the transcript file to inform the -% user of the preloaded hyphenation patterns. -% \changes{bbplain-1.0f}{1996/07/09}{Use \cs{toks8} instead of -% \cs{patterns@loaded}} -% \begin{macrocode} - \everyjob\expandafter{\the\everyjob% - \immediate\write16{\the\toks8 loaded.}}% -% \end{macrocode} -% Then everything is restored to the old situation and the format -% is dumped. -% \begin{macrocode} - \let\dump\orig@dump\let\orig@dump\@undefined\dump} - \expandafter\endinput -\fi -% \end{macrocode} -% The rest of this file is not processed by ini\TeX\ but during the -% normal document run. -% -% We need to define |\loadlocalcfg| for plain users as the -% \LaTeX\ definition uses |\InputIfFileExists|. We have to execute -% \cs{@endofldf} in this case. -% \changes{bbplain-1.0c}{1995/07/26}{Added definition of -% \cs{loadlocalcfg}} -% \changes{bbplain-1.0d}{1996/01/08}{Also reset category codes after -% loading the configuration file as \cs{AtEndOfPackage} is -% undefined in this case} -% \changes{bbplain-1.0s}{2012/12/21}{\cs{loadlocalcfg} not loaded in -% the format} -% \begin{macrocode} -\def\loadlocalcfg#1{% - \openin0#1.cfg - \ifeof0 - \closein0 - \else - \closein0 - {\immediate\write16{*************************************}% - \immediate\write16{* Local config file #1.cfg used}% - \immediate\write16{*}% - } - \input #1.cfg\relax - \fi - \@endofldf} -% \end{macrocode} -% -% A number of \LaTeX\ macro's that are needed later on. -% \changes{bbplain-1.0n}{1998/06/10}{Added \cs{@secondoftwo}} -% \changes{bbplain-1.0q}{1999/09/16}{Added \cs{@ifundefined}} -% \changes{bbplain-1.0t}{2013/04/10}{Added \cs{@expandtwoargs}} -% \begin{macrocode} -\long\def\@firstofone#1{#1} -\long\def\@firstoftwo#1#2{#1} -\long\def\@secondoftwo#1#2{#2} -\def\@ifstar#1{\@ifnextchar *{\@firstoftwo{#1}}} -\def\@star@or@long#1{% - \@ifstar - {\let\l@ngrel@x\relax#1}% - {\let\l@ngrel@x\long#1}} -\let\l@ngrel@x\relax -\def\@car#1#2\@nil{#1} -\def\@cdr#1#2\@nil{#2} -\let\@typeset@protect\relax -\long\def\@gobble#1{} -\edef\@backslashchar{\expandafter\@gobble\string\\} -\def\strip@prefix#1>{} -\def\g@addto@macro#1#2{{% - \toks@\expandafter{#1#2}% - \xdef#1{\the\toks@}}} -\def\@namedef#1{\expandafter\def\csname #1\endcsname} -\def\@nameuse#1{\csname #1\endcsname} -\def\@ifundefined#1{% - \expandafter\ifx\csname#1\endcsname\relax - \expandafter\@firstoftwo - \else - \expandafter\@secondoftwo - \fi} -\def\@expandtwoargs#1#2#3{% - \edef\reserved@a{\noexpand#1{#2}{#3}}\reserved@a} -% \end{macrocode} -% \LaTeXe\ has the command |\@onlypreamble| which adds commands to -% a list of commands that are no longer needed after -% |\begin{document}|. -% \begin{macrocode} -\ifx\@preamblecmds\@undefined - \def\@preamblecmds{} -\fi -\def\@onlypreamble#1{% - \expandafter\gdef\expandafter\@preamblecmds\expandafter{% - \@preamblecmds\do#1}} -\@onlypreamble\@onlypreamble -% \end{macrocode} -% Mimick \LaTeX's |\AtBeginDocument|; for this to work the user -% needs to add |\begindocument| to his file. -% \begin{macrocode} -\def\begindocument{% - \@begindocumenthook - \global\let\@begindocumenthook\@undefined - \def\do##1{\global\let ##1\@undefined}% - \@preamblecmds - \global\let\do\noexpand - } -% \end{macrocode} -% -% \changes{bbplain-1.0j}{1997/01/07}{\cs{@begindocumenthook} might -% already be defined} -% \changes{bbplain-1.0k}{1997/01/14}{missing \cs{@undefined} added} -% \begin{macrocode} -\ifx\@begindocumenthook\@undefined - \def\@begindocumenthook{} -\fi -\@onlypreamble\@begindocumenthook -\def\AtBeginDocument{\g@addto@macro\@begindocumenthook} -% \end{macrocode} -% We also have to mimick \LaTeX's |\AtEndOfPackage|. Our -% replacement macro is much simpler; it stores its argument in -% |\@endofldf|. -% \begin{macrocode} -\def\AtEndOfPackage#1{\g@addto@macro\@endofldf{#1}} -\@onlypreamble\AtEndOfPackage -\def\@endofldf{} -\@onlypreamble\@endofldf -\let\bbl@afterlang\@empty -% \end{macrocode} -% \LaTeX\ needs to be able to switch off writing to its auxiliary -% files; plain doesn't have them by default. -% \changes{bbplain-1.0m}{1997/04/28}{Set \cs{if@filesw} to -% \cs{iffalse} only for plain \TeX} -% \changes{bbplain-1.0n}{1997/09/11}{Repaired typo and added missing -% \cs{endcsname}} -% \begin{macrocode} -\ifx\if@filesw\@undefined - \expandafter\let\csname if@filesw\expandafter\endcsname - \csname iffalse\endcsname -\fi -% \end{macrocode} -% Mimick \LaTeX's commands to define control sequences. -% \changes{bbplain-1.0e}{1996/02/22}{Provide a more complete emulation -% of \cs{DeclareRobustCommand} and \cs{newcommand}} -% \begin{macrocode} -\def\newcommand{\@star@or@long\new@command} -\def\new@command#1{% - \@testopt{\@newcommand#1}0} -\def\@newcommand#1[#2]{% - \@ifnextchar [{\@xargdef#1[#2]}% - {\@argdef#1[#2]}} -\long\def\@argdef#1[#2]#3{% - \@yargdef#1\@ne{#2}{#3}} -\long\def\@xargdef#1[#2][#3]#4{% - \expandafter\def\expandafter#1\expandafter{% - \expandafter\@protected@testopt\expandafter #1% - \csname\string#1\expandafter\endcsname{#3}}% - \expandafter\@yargdef \csname\string#1\endcsname - \tw@{#2}{#4}} -\long\def\@yargdef#1#2#3{% - \@tempcnta#3\relax - \advance \@tempcnta \@ne - \let\@hash@\relax - \edef\reserved@a{\ifx#2\tw@ [\@hash@1]\fi}% - \@tempcntb #2% - \@whilenum\@tempcntb <\@tempcnta - \do{% - \edef\reserved@a{\reserved@a\@hash@\the\@tempcntb}% - \advance\@tempcntb \@ne}% - \let\@hash@##% - \l@ngrel@x\expandafter\def\expandafter#1\reserved@a} -\let\providecommand\newcommand -% \end{macrocode} -% -% \begin{macrocode} -\def\DeclareRobustCommand{\@star@or@long\declare@robustcommand} -\def\declare@robustcommand#1{% - \edef\reserved@a{\string#1}% - \def\reserved@b{#1}% - \edef\reserved@b{\expandafter\strip@prefix\meaning\reserved@b}% - \edef#1{% - \ifx\reserved@a\reserved@b - \noexpand\x@protect - \noexpand#1% - \fi - \noexpand\protect - \expandafter\noexpand\csname - \expandafter\@gobble\string#1 \endcsname - }% - \expandafter\new@command\csname - \expandafter\@gobble\string#1 \endcsname -} -\def\x@protect#1{% - \ifx\protect\@typeset@protect\else - \@x@protect#1% - \fi -} -\def\@x@protect#1\fi#2#3{% - \fi\protect#1% -} -% \end{macrocode} -% -% The following little macro |\in@| is taken from latex.ltx; it -% checks whether its first argument is part of its second -% argument. It uses the boolean |\in@|; allocating a new boolean -% inside conditionally executed code is not possible, hence the -% construct with the temporary definition of |\bbl@tempa|. -% \changes{bbplain-1.0o}{1998/07/02}{Added definition of \cs{in@}} -% \changes{bbplain-1.0s}{2013/01/15}{Use \cs{bbl@tempa} as documented} -% \begin{macrocode} -\def\bbl@tempa{\csname newif\endcsname\ifin@} -\ifx\in@\@undefined - \def\in@#1#2{% - \def\in@@##1#1##2##3\in@@{% - \ifx\in@##2\in@false\else\in@true\fi}% - \in@@#2#1\in@\in@@} -\else - \let\bbl@tempa\@empty -\fi -\bbl@tempa -% \end{macrocode} -% -% \LaTeX\ has a macro to check whether a certain package was loaded -% with specific options. The command has two extra arguments which -% are code to be executed in either the true or false case. -% This is used to detect whether the document needs one of the -% accents to be activated (\Lopt{activegrave} and -% \Lopt{activeacute}). For plain \TeX\ we assume that the user -% wants them to be active by default. Therefore the only thing we -% do is execute the third argument (the code for the true case). -% -% \begin{macrocode} -\def\@ifpackagewith#1#2#3#4{% - #3} -% \end{macrocode} -% The \LaTeX\ macro |\@ifl@aded| checks whether a file was -% loaded. This functionality is not needed for plain \TeX\ but we -% need the macro to be defined as a no-op. -% \changes{bbplain-1.0p}{1999/04/27}{Added \cs{@ifl@aded} as a no-op} -% \begin{macrocode} -\def\@ifl@aded#1#2#3#4{} -% \end{macrocode} -% -% \changes{bbplain-1.0e}{1996/01/15}{Added the \cs{newcommand} code} -% For the following code we need to make sure that the commands -% |\newcommand| and |\providecommand| exist with some sensible -% definition. They are not fully equivalent to their \LaTeXe\ -% versions; just enough to make things work in plain~\TeX -% environments. -% -% \changes{bbplain-1.0k}{1997/01/14}{\cs{newcount} is an \cs{outer} -% command, can't use it inside an \cs{if} construct} -% \changes{bbplain-1.0l}{1997/01/19}{Mixed up the definition of -% \cs{@tempcntb}} -% \begin{macrocode} -\ifx\@tempcnta\@undefined - \csname newcount\endcsname\@tempcnta\relax -\fi -\ifx\@tempcntb\@undefined - \csname newcount\endcsname\@tempcntb\relax -\fi -% \end{macrocode} -% To prevent wasting two counters in \LaTeX$\:$2.09 (because -% counters with the same name are allocated later by it) we reset -% the counter that holds the next free counter (|\count10|). -% \begin{macrocode} -\ifx\bye\@undefined - \advance\count10 by -2\relax -\fi -\ifx\@ifnextchar\@undefined - \def\@ifnextchar#1#2#3{% - \let\reserved@d=#1% - \def\reserved@a{#2}\def\reserved@b{#3}% - \futurelet\@let@token\@ifnch} - \def\@ifnch{% - \ifx\@let@token\@sptoken - \let\reserved@c\@xifnch - \else - \ifx\@let@token\reserved@d - \let\reserved@c\reserved@a - \else - \let\reserved@c\reserved@b - \fi - \fi - \reserved@c} - \def\:{\let\@sptoken= } \: % this makes \@sptoken a space token - \def\:{\@xifnch} \expandafter\def\: {\futurelet\@let@token\@ifnch} -\fi -\def\@testopt#1#2{% - \@ifnextchar[{#1}{#1[#2]}} -\def\@protected@testopt#1{%% - \ifx\protect\@typeset@protect - \expandafter\@testopt - \else - \@x@protect#1% - \fi} -\long\def\@whilenum#1\do #2{\ifnum #1\relax #2\relax\@iwhilenum{#1\relax - #2\relax}\fi} -\long\def\@iwhilenum#1{\ifnum #1\expandafter\@iwhilenum - \else\expandafter\@gobble\fi{#1}} -% \end{macrocode} -% Code from \file{ltoutenc.dtx}, adapted for use in the plain \TeX\ -% environment. -% \begin{macrocode} -\def\DeclareTextCommand{% - \@dec@text@cmd\providecommand -} -\def\ProvideTextCommand{% - \@dec@text@cmd\providecommand -} -\def\DeclareTextSymbol#1#2#3{% - \@dec@text@cmd\chardef#1{#2}#3\relax -} -\def\@dec@text@cmd#1#2#3{% - \expandafter\def\expandafter#2% - \expandafter{% - \csname#3-cmd\expandafter\endcsname - \expandafter#2% - \csname#3\string#2\endcsname - }% -% \let\@ifdefinable\@rc@ifdefinable - \expandafter#1\csname#3\string#2\endcsname -} -\def\@current@cmd#1{% - \ifx\protect\@typeset@protect\else - \noexpand#1\expandafter\@gobble - \fi -} -\def\@changed@cmd#1#2{% - \ifx\protect\@typeset@protect - \expandafter\ifx\csname\cf@encoding\string#1\endcsname\relax - \expandafter\ifx\csname ?\string#1\endcsname\relax - \expandafter\def\csname ?\string#1\endcsname{% - \@changed@x@err{#1}% - }% - \fi - \global\expandafter\let - \csname\cf@encoding \string#1\expandafter\endcsname - \csname ?\string#1\endcsname - \fi - \csname\cf@encoding\string#1% - \expandafter\endcsname - \else - \noexpand#1% - \fi -} -\def\@changed@x@err#1{% - \errhelp{Your command will be ignored, type <return> to proceed}% - \errmessage{Command \protect#1 undefined in encoding \cf@encoding}} -\def\DeclareTextCommandDefault#1{% - \DeclareTextCommand#1?% -} -\def\ProvideTextCommandDefault#1{% - \ProvideTextCommand#1?% -} -\expandafter\let\csname OT1-cmd\endcsname\@current@cmd -\expandafter\let\csname?-cmd\endcsname\@changed@cmd -\def\DeclareTextAccent#1#2#3{% - \DeclareTextCommand#1{#2}[1]{\accent#3 ##1} -} -\def\DeclareTextCompositeCommand#1#2#3#4{% - \expandafter\let\expandafter\reserved@a\csname#2\string#1\endcsname - \edef\reserved@b{\string##1}% - \edef\reserved@c{% - \expandafter\@strip@args\meaning\reserved@a:-\@strip@args}% - \ifx\reserved@b\reserved@c - \expandafter\expandafter\expandafter\ifx - \expandafter\@car\reserved@a\relax\relax\@nil - \@text@composite - \else - \edef\reserved@b##1{% - \def\expandafter\noexpand - \csname#2\string#1\endcsname####1{% - \noexpand\@text@composite - \expandafter\noexpand\csname#2\string#1\endcsname - ####1\noexpand\@empty\noexpand\@text@composite - {##1}% - }% - }% - \expandafter\reserved@b\expandafter{\reserved@a{##1}}% - \fi - \expandafter\def\csname\expandafter\string\csname - #2\endcsname\string#1-\string#3\endcsname{#4} - \else - \errhelp{Your command will be ignored, type <return> to proceed}% - \errmessage{\string\DeclareTextCompositeCommand\space used on - inappropriate command \protect#1} - \fi -} -\def\@text@composite#1#2#3\@text@composite{% - \expandafter\@text@composite@x - \csname\string#1-\string#2\endcsname -} -\def\@text@composite@x#1#2{% - \ifx#1\relax - #2% - \else - #1% - \fi -} -% -\def\@strip@args#1:#2-#3\@strip@args{#2} -\def\DeclareTextComposite#1#2#3#4{% - \def\reserved@a{\DeclareTextCompositeCommand#1{#2}{#3}}% - \bgroup - \lccode`\@=#4% - \lowercase{% - \egroup - \reserved@a @% - }% -} -% -\def\UseTextSymbol#1#2{% -% \let\@curr@enc\cf@encoding -% \@use@text@encoding{#1}% - #2% -% \@use@text@encoding\@curr@enc -} -\def\UseTextAccent#1#2#3{% -% \let\@curr@enc\cf@encoding -% \@use@text@encoding{#1}% -% #2{\@use@text@encoding\@curr@enc\selectfont#3}% -% \@use@text@encoding\@curr@enc -} -\def\@use@text@encoding#1{% -% \edef\f@encoding{#1}% -% \xdef\font@name{% -% \csname\curr@fontshape/\f@size\endcsname -% }% -% \pickup@font -% \font@name -% \@@enc@update -} -\def\DeclareTextSymbolDefault#1#2{% - \DeclareTextCommandDefault#1{\UseTextSymbol{#2}#1}% -} -\def\DeclareTextAccentDefault#1#2{% - \DeclareTextCommandDefault#1{\UseTextAccent{#2}#1}% -} -\def\cf@encoding{OT1} -% \end{macrocode} -% Currently we only use the \LaTeXe\ method for accents for those -% that are known to be made active in \emph{some} language -% definition file. -% \begin{macrocode} -\DeclareTextAccent{\"}{OT1}{127} -\DeclareTextAccent{\'}{OT1}{19} -\DeclareTextAccent{\^}{OT1}{94} -\DeclareTextAccent{\`}{OT1}{18} -\DeclareTextAccent{\~}{OT1}{126} -% \end{macrocode} -% The following control sequences are used in \file{babel.def} -% but are not defined for \textsc{plain} \TeX. -% \changes{bbplain-1.0f}{1996/07/10}{Added \cs{textquotedblright} and -% \cs{textquoteright}} -% \changes{bbplain-1.0g}{1996/08/15}{Added \cs{ss} and \cs{i}} -% \changes{bbplain-1.0r}{2000/10/02}{Added \cs{textquotedblleft} and -% \cs{textquoteleft}} -% \begin{macrocode} -\DeclareTextSymbol{\textquotedblleft}{OT1}{92} -\DeclareTextSymbol{\textquotedblright}{OT1}{`\"} -\DeclareTextSymbol{\textquoteleft}{OT1}{`\`} -\DeclareTextSymbol{\textquoteright}{OT1}{`\'} -\DeclareTextSymbol{\i}{OT1}{16} -\DeclareTextSymbol{\ss}{OT1}{25} -% \end{macrocode} -% For a couple of languages we need the \LaTeX-control sequence -% |\scriptsize| to be available. Because plain \TeX\ doesn't have -% such a sofisticated font mechanism as \LaTeX\ has, we just |\let| -% it to |\sevenrm|. -% \changes{bbplain-1.0f}{1996/07/10}{Added definition of -% \cs{scriptsize}} -% \begin{macrocode} -\ifx\scriptsize\@undefined - \let\scriptsize\sevenrm -\fi -%</code> -% \end{macrocode} -% -\endinput -%% -%% \CharacterTable -%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -%% Digits \0\1\2\3\4\5\6\7\8\9 -%% Exclamation \! Double quote \" Hash (number) \# -%% Dollar \$ Percent \% Ampersand \& -%% Acute accent \' Left paren \( Right paren \) -%% Asterisk \* Plus \+ Comma \, -%% Minus \- Point \. Solidus \/ -%% Colon \: Semicolon \; Less than \< -%% Equals \= Greater than \> Question mark \? -%% Commercial at \@ Left bracket \[ Backslash \\ -%% Right bracket \] Circumflex \^ Underscore \_ -%% Grave accent \` Left brace \{ Vertical bar \| -%% Right brace \} Tilde \~} |