diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /indexing/glo+idxtex/crlext.sty |
Initial commit
Diffstat (limited to 'indexing/glo+idxtex/crlext.sty')
-rw-r--r-- | indexing/glo+idxtex/crlext.sty | 387 |
1 files changed, 387 insertions, 0 deletions
diff --git a/indexing/glo+idxtex/crlext.sty b/indexing/glo+idxtex/crlext.sty new file mode 100644 index 0000000000..8851b28c8d --- /dev/null +++ b/indexing/glo+idxtex/crlext.sty @@ -0,0 +1,387 @@ +% CRL Extensions to LaTeX +% +\typeout{CRDS Extensions to LaTeX, V1.1. (RL Aurbach, 09-Sep-1986)} +% +%**************************************************************************** +%* * +%* Outline Environment * +%* * +%* Description: * +%* The outline environment is a modified enumerate environment in * +%* which the numbering is done using standard outlining conventions. * +%* * +%* Syntax: * +%* \begin{outline} \item text \end{outline} * +%* * +%**************************************************************************** +% +\@definecounter{outlni} \@definecounter{outlnii} \@definecounter{outlniii} +\@definecounter{outlniv} \@definecounter{outlnv} +\newcount\@outlndepth \@outlndepth =0 +\def\outline{\ifnum \@outlndepth >4 \@toodeep \else \advance\@outlndepth\@ne + \edef\@outlnctr{outln\romannumeral\the\@outlndepth}\list + {\csname label\@outlnctr\endcsname}{\usecounter{\@outlnctr} + \def\makelabel##1{\hss\llap{##1}}}\fi} +\let\endoutline =\endlist +\def\labeloutlni{\Roman{outlni}.} \def\theoutlni{\Roman{outlni}} +\def\labeloutlnii{\Alph{outlnii}.} \def\theoutlnii{\Alph{outlnii}} +\def\labeloutlniii{\arabic{outlniii}.} \def\theoutlniii{\arabic{outlniii}} +\def\labeloutlniv{\alph{outlniv}.} \def\theoutlniv{\alph{outlniv}} +\def\labeloutlnv{(\roman{outlnv})} \def\theoutlnv{\roman{outlnv}} +\def\p@outlnii{\theoutlni.} \def\p@outlniii{\p@outlnii\theoutlnii.} +\def\p@outlniv{\p@outlniii\theoutlniii.}\def\p@outlnv{\p@outlniv\theoutlniv.} +% +%**************************************************************************** +%* * +%* InfoMap Environment * +%* * +%* Description: * +%* The infomap environment is a modified description environment in * +%* which the label is set off from the text as a signpost. The * +%* signpost is implemented in a \parbox to allow for a multi-line * +%* label. * +%* * +%* Syntax: * +%* \begin{infomap} \item[label] text \end{infomap} * +%* * +%* Where: * +%* label is the text to be placed in the Signpost at the current * +%* left margin. * +%* * +%* Note: * +%* The signpost is implemented as a \parbox set in a \raisebox which * +%* has a depth of 0pt. This is necessary to make a multi-line sign- * +%* work correctly, but occasionally, you will need to add extra * +%* vertical space if the signpost occupies more lines than the text. * +%* * +%**************************************************************************** +% +\newdimen\infomapmargin +\newdimen\infomapwidth +\infomapmargin 115pt +\infomapwidth 103pt +\def\infomaplabel#1{\raisebox{0pt}[1em][0pt]{\makebox[\labelwidth][l] + {\parbox[t]{\infomapwidth}{\bf #1}}}} +\def\infomap{\list{}{\leftmargin\infomapmargin + \labelwidth\leftmargin\advance\labelwidth-\labelsep + \let\makelabel\infomaplabel}} +\let\endinfomap\endlist +\def\ttitem[#1]{\item[{\tt #1}]} +% +%**************************************************************************** +%* * +%* Note Environment * +%* * +%* Description: * +%* The note environment is a modified version of the quote environment.* +%* It is distinctive in that it has a centered title for the note * +%* prior to the beginning of the text. The title may be specified, * +%* using the optional argument. If no title is specified, the title * +%* "Note" is used. * +%* * +%* Syntax: * +%* \begin{note}[title] text \end{note} * +%* * +%* Where: * +%* title is the text to be used as the title. If not specified * +%* "Note" is used. The title is centered above the text, * +%* in boldface. * +%* * +%* Note: * +%* It is possible for the title and text of a note to be separated * +%* across a page break. So far, I haven't been able to discover a * +%* fool-proof way to prevent this from occurring, so check the output. * +%* * +%**************************************************************************** +% +\def\note{\@ifnextchar [{\@note}{\@note[Note]}} +\def\@note[#1]{\par \list{}{\leftmargin 2em \rightmargin\leftmargin } + \item[] \hfil {\bf #1} \hfil \par \item[]} +\let\endnote\endlist +% +%**************************************************************************** +%* * +%* Ctl Command * +%* * +%* Description: * +%* The \ctl command is used to place a representation of a control * +%* character in the document. \ctl{x} is represented as ^x. * +%* * +%* Syntax: * +%* \ctl{ch} * +%* * +%* Where: * +%* ch is the character to be represented. * +%* * +%* Note: * +%* The character is displayed in \tt. * +%* * +%**************************************************************************** +% +\def\ctl#1{{\tt $^\wedge$#1}} +% +%**************************************************************************** +%* * +%* Trademark Command * +%* * +%* Description: * +%* This command generates a trademark symbol (an R in a circle). The * +%* symbol is normally used as "foo$^\trademark$". * +%* * +%* Syntax: * +%* \trademark * +%* * +%* Note: * +%* Thanks to Kent McPherson of Lear/Siegler for this command. * +%* * +%**************************************************************************** +% +\def\trademark{{\ooalign + {\tiny \hfill \raise .085ex\hbox{R}\hfill \crcr + \scriptsize \mathhexbox20D}}} +% +%**************************************************************************** +%* * +%* ULine Command * +%* * +%* Description: * +%* The \uline command is used to underline text. Unlike the * +%* \underline command, \uline provides the user with the ability to * +%* control the thickness of the line. * +%* * +%* Syntax: * +%* \uline{text}{thickness} * +%* * +%* Where: * +%* text is the text which will be underlined. * +%* * +%* thickness is the thickness of the line. This dimension is * +%* typically .3pt --.5pt. * +%* * +%* Note: * +%* Thanks to Kent McPherson of Lear/Siegler for this command. * +%* * +%**************************************************************************** +% +\newlength{\ulength} +\newcommand{\uline}[2]{\settowidth{\ulength}{#1} + \parbox{\ulength}{{#1} \\[-.75\baselineskip] \rule{\ulength}{#2}}} +% +%**************************************************************************** +%* * +%* ClearDoublePage Command * +%* * +%* Description: * +%* This command is a modification of the standard LaTeX command of the * +%* same name. Unlike standard LaTeX, this command uses the "empty" * +%* pagestyle for the blank page it throws, so that the page is totally * +%* blank. * +%* * +%* Syntax: * +%* \cleardoublepage * +%* * +%**************************************************************************** +% +\def\cleardoublepage{\clearpage\if@twoside \ifodd\c@page\else + \if@twocolumn\hbox{}\newpage\fi\hbox{}\thispagestyle{empty}\newpage\fi\fi} +% +%**************************************************************************** +%* * +%* ForceRightPage Command * +%* * +%* Description: * +%* The \forcerightpage command is a variant on the \cleardoublepage * +%* command. It conditionally throws a blank page to force the text * +%* which follows to appear on a right-hand page. The blank page will * +%* contain an optional, centered message. * +%* * +%* Syntax: * +%* \forcerightpage[text] * +%* * +%* Where: * +%* text is the text to be displayed centered on the page. If * +%* not specified, "This page intentionally left blank" * +%* is used. * +%* * +%* Note: * +%* This command will not correctly handle a two-column document and * +%* should not be used in that environment. * +%* * +%**************************************************************************** +% +\def\forcerightpage{\@ifnextchar [{\@forcerightpage} + {\@forcerightpage[This page intentionally left blank]}} +\def\@forcerightpage[#1]{\clearpage\if@twoside \ifodd\c@page\else + \hbox{} \vfill \centerline{#1} \vfill \newpage\fi\fi} +% +%**************************************************************************** +%* * +%* ForceLeftPage Command * +%* * +%* Description: * +%* The \forceleftpage command is a variant on the \cleardoublepage * +%* command. It conditionally throws a blank page to force the text * +%* which follows to appear on a left-hand page. The blank page will * +%* contain an optional, centered message. * +%* * +%* Syntax: * +%* \forceleftpage[text] * +%* * +%* Where: * +%* text is the text to be displayed centered on the page. If * +%* not specified, "This page intentionally left blank" * +%* is used. * +%* * +%* Note: * +%* This command will not correctly handle a two-column document and * +%* should not be used in that environment. * +%* * +%**************************************************************************** +% +\def\forceleftpage{\@ifnextchar [{\@forceleftpage} + {\@forceleftpage[This page intentionally left blank]}} +\def\@forceleftpage[#1]{\clearpage \if@twoside \ifodd\c@page + \hbox{} \vfill \centerline{#1} \vfill \newpage\fi\fi} +% +%**************************************************************************** +%* * +%* Input Command * +%* * +%* Description: * +%* The \input command is a variation of the standard LaTeX command of * +%* the same name. It reads in an external file. It differs from the * +%* normal LaTeX command in that if the specified file is not found, * +%* the routine displays a message and continues, rather than prompting * +%* for a new file name. * +%* * +%* Syntax: * +%* \input{file} * +%* * +%* Where: * +%* file is the file specification of the input file to be read. * +%* By default, the file has the file type ".tex" unless * +%* specified otherwise. If the file is not found in the * +%* current default directory, it will be searched for in * +%* TEX$INPUTS. * +%* * +%**************************************************************************** +% +\def\input{\@ifnextchar \bgroup{\@input}{\@@input }} +% +%**************************************************************************** +%* * +%* CoverStyle Command * +%* * +%* Description: * +%* This routine defines a cover style for a document. It reads in a * +%* ".cvrsty" file, which contains the necessary information. * +%* * +%* Syntax: * +%* \coverstyle{name} * +%* * +%* Where: * +%* name is the name of a coverstyle. The file name.cvrsty will * +%* be input. * +%* * +%**************************************************************************** +% +\def\coverstyle#1{\def\@coverstyle{#1} + \makeatletter \input \@coverstyle.cvrsty \relax \makeatother} +% +%**************************************************************************** +%* * +%* ScreenPix Environment * +%* * +%* Description: * +%* The screenpix environment is used to display the image of a screen * +%* in a document. A curved line is drawn at the top, which represents * +%* the beginning of the screen. After the verbatim text, another line * +%* is drawn at the bottom to represent the bottom of the screen. * +%* * +%* Lines up to 80 characters long may appear. You should place a * +%* leading space at the beginning of each line, so that the text will * +%* not overwrite the curved lines. Since tabs are not expanded in * +%* verbatim mode, they should be explicitly converted to spaces. * +%* * +%* Syntax: * +%* \begin{screenpix} * +%* \begin{verbatim} * +%* lines of verbatim screen-image text * +%* \end{verbatim} * +%* \end{screenpix} * +%* * +%* Where: * +%* The lines of verbatim text may be up to 80 characters long, not * +%* counting the REQUIRED leading space on each line. * +%* * +%* Note: * +%* This environment assumes that a text width of 6 inches is available * +%* for the display of the screen. * +%* * +%**************************************************************************** +% +\def\screenpix{\small \setlength{\unitlength}{1in} \thicklines + \begin{picture}(6,.35) \put(3,0){\oval(6,.7)[t]} \end{picture}\par + \vspace*{-3\parskip}} +\def\endscreenpix{\vspace*{-3\parskip} + \begin{picture}(6,.35) \put(3,.35){\oval(6,.7)[b]} \end{picture}} +% +%**************************************************************************** +%* * +%* Glossaryfile Command * +%* * +%* Description: * +%* This command is used to specify one or more Glossary Definition * +%* files which will be searched for glossary definitions by GloTeX. * +%* * +%* Syntax: * +%* \glossaryfile{filelist} * +%* * +%* Where: * +%* filelist is a file specification of a .gdf file or a comma-list * +%* of file specifications. * +%* * +%* Note: * +%* This command writes a \glofile command to the .glo file * +%* * +%**************************************************************************** +% +\def\glossaryfile#1{\if@filesw\write\@glossaryfile{\string + \glofile{#1}}\fi} +% +%**************************************************************************** +%* * +%* InsertGlossary Command * +%* * +%* Description: * +%* This command causes a .gls file to be read in and processed. * +%* * +%* Syntax: * +%* \insertglossary * +%* * +%* Note: * +%* The .gls file is assumed to have the same name as the root latex * +%* source file. * +%* * +%**************************************************************************** +% +\def\insertglossary{\@input{\jobname.gls}} +% +%**************************************************************************** +%* * +%* InsertIndex Command * +%* * +%* Description: * +%* This command causes an .ind file to be read in and processed. * +%* * +%* Syntax: * +%* \insertindex * +%* * +%* Note: * +%* The .ind file is assumed to have the same name as the root latex * +%* source file. * +%* * +%**************************************************************************** +% +\def\insertindex{\@input{\jobname.ind}} +% |