diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/tex4ht/th4.4ht')
| -rw-r--r-- | Master/texmf-dist/tex/generic/tex4ht/th4.4ht | 1023 |
1 files changed, 1023 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/tex4ht/th4.4ht b/Master/texmf-dist/tex/generic/tex4ht/th4.4ht new file mode 100644 index 00000000000..d82202e0f41 --- /dev/null +++ b/Master/texmf-dist/tex/generic/tex4ht/th4.4ht @@ -0,0 +1,1023 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% th4.4ht 2005-10-23-04:19 % +% Copyright (C) 1997--2005 Eitan M. Gurari % +% % +% This work 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".% +% % +% This Current Maintainer of this work % +% is Eitan M. Gurari. % +% % +% If you modify this program your changing its signature % +% with a directive of the following form will be % +% appreciated. % +% \message{signature} % +% % +% gurari@cse.ohio-state.edu % +% http://www.cse.ohio-state.edu/~gurari % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\immediate\write-1{version 2005-10-23-04:19} + + +\ifHtml + \:CheckOption{javascript} + \if:Option \else\:CheckOption{th4}\fi + \if:Option + \ScriptCommand{\JavaScript}{\vbox\bgroup \linepenalty1000 \NoFonts + \Configure{HVerbatim+}{\z@}{\nobreak\space}% + \A:JavaScript }{\B:JavaScript \EndNoFonts + \ht:special{t4ht@(}\egroup \ht:special{t4ht@)}} +\NewConfigure{JavaScript}[2]{\def\A:JavaScript{\ht:everypar{}#1}% + \def\B:JavaScript{#2}} +\def\javascript#1{\b:jv#1\e:jv} +\def\b:jv{\begingroup \vrb:tt + \leftskip\z@ \parindent\z@ + \Configure{HVerbatim}{}{}{}{}\Configure{HVerbatim+}{\z@}{ }% + \NoFonts \A:JavaScript \ht:special{t4ht@@}} +\def\e:jv{\ht:special{t4ht@@}% + \B:JavaScript\EndNoFonts\endgroup} + + \else + \Log:Note{for javascript support, + use the command line option `javascript'} + \fi + \:CheckOption{java} + \if:Option \else\:CheckOption{th4}\fi + \if:Option + \Odef\Applet[#1]#2{\Appl:[#1]#2,,,!*?: } +\def\Appl:[#1]#2,#3,#4,#5!*?: {% + \def\:temp{#3}\def\LastApplet{#4}% + \HCode{<applet code="#2.class" + \ifx \:temp\empty \else width="#3" \fi + \ifx \LastApplet\empty \else HEIGHT="#4" \fi #1\Hnewline >}% + \xdef\LastApplet{#2}\Applet:Needs{#2}} +\def\EndApplet{\HCode{</applet>}} + +\def\AppletInfo{\def\Applet:Needs##1} +\AppletInfo{\Needs-{needs #1.class}} + + \else + \Log:Note{for java support, + use the command line option `java'} + \fi + \:CheckOption{image-maps} + \if:Option \else\:CheckOption{th4}\fi + \if:Option + \Odef\Ar:a[#1]#2{{\def\tag:A{area}\Link[#1 ]{#2}{}\EndLink}} +\Odef\Map[#1]#2#3{% + \def\:tempd{\Map:[#1]{#2}{#3}}% + \rm:attr{#1}\ifx \:tempB\empty \expand:after{\let\:tempc}\csname + cw:)#2\endcsname +\ifx\:tempc\relax\else + \edef\:tempd{\noexpand\in:mp\:tempc!*?: {#1}}% + \def\:temp{#3}\ifx \:temp\empty\else + \Tag{)#3}{\:tempc}% +\fi \fi +\fi \:tempd} + +\def\in:mp#1=#2=#3==#4!*?: #5{\IMG:LINK{#1}{#4#5}{#2}{#3}} +\def\rm:attr#1{\edef\:tempB{\noexpand\rm:atr#1 !*?: }\:tempB} +\def\rm:atr#1 #2!*?: {\def\:tempB{#1}} + +\Odef\Map:[#1]#2#3{% + \NewHaddr\:tempA \def\:temp##1-{##1-imap}% +\edef\:tempA{\expandafter\:temp\:tempA}% +% + \NewHaddr\alt:map + \def\:temp{#3}\ifx \:temp\:empty\else + \rm:attr{#1}% + \Tag{)#3}{\alt:map=\:tempA=#2==\:tempB}\fi +\edef\:tempB{\noexpand\IMG:LINK{\noexpand\alt:map}{#1}}\:tempB + \:tempA{#2}\let\:Map\empty +% + \HCode{<map\Hnewline name="\GetHname\:tempA" id="imap-\:tempA">}% + \def\EndMap{% + \HPage[\alt:map]{}{\let\set:mp\st:mp \:Map}\EndHPage{}% + \HCode{</map>}% + \let\u:map\empty}} + +\let\set:mp\relax +\def\st:mp#1#2#3{\def\:temp{#1#2}\ifx \:temp\empty \else + [\Link[#1]{#2}{}#3\EndLink] + \fi } +\def\IMG:LINK#1#2#3#4{\Link[\RefFile{#1}]{}{}% + {\def\tag:A{img}\def\HREF:{src=}\def\empty:lnk{/}% + \Link[#2 alt="textual map" usemap="\GetHref#3"]{#4}{}}\EndLink} +\def\RectArea(#1){\bgroup\def\:tempa{\M:nMx#1,}\def\:tempb{rect}\Are:} +\def\CircleArea(#1){\bgroup\def\:tempa{#1}\def\:tempb{circle}\Are:} +\def\PolyArea(#1){\bgroup\def\:tempa{#1}\def\:tempb{poly}\Are:} +\def\M:nMx#1,#2,#3,#4,{\M:n{#1}{#3},% + \M:n{#2}{#4},\M:x{#1}{#3},\M:x{#2}{#4}} +\Odef\Are:[#1]#2#3{% + \xdef\:Map{\:Map\set:mp{#1}{#2}{#3}}% + \Ar:a[#1\Hnewline shape="\:tempb"\Hnewline + coords="\:tempa"\Hnewline alt="#3"]{#2}\egroup} +\def\M:n#1#2{\ifnum #1<#2 #1\else #2\fi} +\def\M:x#1#2{\ifnum #1<#2 #2\else #1\fi} + + \else + \Log:Note{for image maps support, + use the command line option `image-maps'} + \fi + \:CheckOption{frames-} + \if:Option \else\:CheckOption{frames}\fi + \if:Option \else\:CheckOption{th4}\fi + \if:Option + \def\HorFrames{\def\:tempa{cols}\:Frames} +\def\VerFrames{\def\:tempa{rows}\:Frames} +\Odef\:Frames[#1]#2{% + \PushStack\Frm:Stc{</frameset>}% + \HCode{<frameset\Hnewline \:tempa="#2" #1>}} +\def\NoFrames{% + \PopStack\Frm:Stc\:temp + \PushStack\Frm:Stc{</body></noframes></frameset>} + \HCode{<noframes><body>}} +\def\EndFrames{\PopStack\Frm:Stc\:tempc \HCode{\:tempc}} +\Odef\Frame[#1]#2{{\def\HREF:{ src=}\def\tag:A{frame}% + \def\empty:lnk{ /}\Link[#1]{#2}{}}} + + \Log:Note{for frames support, + use the command line option `frames-' or `frames'} + \fi + \:CheckOption{ShowFont} + \if:Option \else\:CheckOption{th4}\fi + \if:Option + \:CheckOption{ShowFont} \if:Option + \def\HObey{\SaveEverypar \par \ht:everypar{}% + {\parindent\z@ \leftskip\z@ \leavevmode + \HCode{ <table \Hnewline \:zbsp{HObey} + width="100\%"><tr class="HObey"><td\Hnewline + class="HObey"><pre class="HObey">}\par}} +\def\EndHObey{\HCode{</pre>}\IgnoreIndent + \end:TTT \RecallEverypar} + + \def\ShowFont#1{{\ifx \sevenrm\Undef \let\sevenrm\rm\fi + \Picture*{ \a:@Picture{ShowFont}}\begingroup \HObey + % Variants of Knuth's macros + \postdisplaypenalty=-10000 \global\tmp:cnt=0 #1 + \tabskip0.06\hsize \def\:{\setbox0=\hbox{\char\tmp:cnt}% + \ifdim\ht0>7.5pt\reposition + \else\ifdim\dp0>2.5pt\reposition\fi\fi + \box0\global\advance\tmp:cnt by1 }% +\def\cr:line{\cr \noalign{\nointerlineskip} + \multispan{17}\hrulefill& + \cr \noalign{\nointerlineskip}}% +\def\reposition{\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}% +\def\chartLine##1{\hbox to 13.8pt{\hfil\sevenrm ##1 }}% +\HAssign\:tempc0 +\def\:tempd{\chartLine\:tempc + \vrule &\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\cr:line + \noalign{\nointerlineskip}% + \gHAdvance\:tempc by 8 \ifnum \:tempc<256 \expandafter\:tempd \fi}% +% + \halign to\hsize\bgroup \lower4.5pt\vbox to14pt{}% +##\tabskip\z@ plus10pt& &\hfil##\hfil&\vrule##\cr +\lower6.5pt\null +\chartLine{}\vrule &\sevenrm 0&&\sevenrm 1&&\sevenrm + 2&&\sevenrm 3&&\sevenrm 4&&\sevenrm 5&&\sevenrm 6&&\sevenrm 7&\cr:line +\:tempd \cr +% + \egroup + \EndHObey \endgroup \EndPicture}} + \csname newread\endcsname\in:strm +\def\Uii:{\expandafter\Uii:o\in:buf xxxxxxxxx;} +\def\Uii:o#1x#2#3#4xxxx;{#2#3} +\catcode`\@=6 +\catcode`\#=12 +\def\Uiv:{\expandafter\Uiv:o\in:buf '&#xxxxxxxxx;} +\def\Uiv:o@1'&#x@2@3@4@5@6xxxx;{@2@3@4@5} +\catcode`\@=11 +\catcode`\#=6 + +\def\:gobbleM#1->{} +\def\Uni:symbols{\ifnum \char:n<256 + \HCode{\Hnewline<tr><td>}\char:n{}\HCode{</td>} + \bgroup \catcode`\#=12 \catcode`\\=12 + \catcode`\%=12 \catcode`\{=12 \catcode`\}=12 + \catcode`\_=12 \catcode`\^=12 \catcode`\~=12 +% \ifeof\in:strm \else + \read\in:strm to\in:buf + \ifeof\in:strm \gHAssign\char:n=256 \else + \def\:temp{\par} + \ifx\in:buf\:temp\else + \edef\:tempa{\Uiv:}\def\:temp{xxxx} + \ifx \:temp\:tempa \let\:tempa=\:gobble + \else \let\:tempa=\empty\fi + \HCode{<td>} + \:tempa{\Picture{http://charts.unicode.org/Unicode.charts% + /Small.Glyphs/\Uii:/U\Uiv:.gif}} + \HCode{</td><td>} + \:tempa{\Picture{http://www.w3.org/TR/PR-math/chap6/glyphs/% + \Uii:/U\Uiv:.gif}} + \HCode{</td><td>}{\font:nm\char\char:n} + \HCode{</td><td>}{\font:nm \Picture+{}\char + \char:n\EndPicture} + \HCode{</td><td class="htf">}\:tempa\Uiv: + \:tempa\:gobble{\tt\expandafter\:gobbleM\meaning\in:buf} + \HCode{</td>} + \fi\fi%\fi + \egroup + \HCode{</tr>} + \HAdvance\char:n by 1 \expandafter\Uni:symbols\fi} +\def\ShowFontU#1#2{% + \font\font:nm=#2 + \openin\in:strm=#1\relax + \ifeof\in:strm \immediate\write16{.........can't open #1}\else + \read\in:strm to\in:buf\relax + \HAssign\char:n=0 \HCode{<table class="unicodes" border="1"><tr> + <td>char<br\xml:empty>number</td> + <td>unicode<br\xml:empty>org</td> + <td>ams<br\xml:empty>org</td> + <td>htf +<br\xml:empty>browser</td> + <td>actual<br\xml:empty>(la)tex<br\xml:empty>symbol</td> + <td>htf<br\xml:empty>entry</td> + </tr>} + \Uni:symbols + \HCode{</table>} + \Css{.unicodes{border:solid 1px;}} + \Css{.unicodes td{text-align:center;}} + \Css{.unicodes td.htf{text-align:left;}} + \fi + \closein\in:strm} + +\fi + + \fi +\fi +\:CheckOption{th4}\if:Option + \edef\:temp{\meaning\everypar} + \edef\:tempa{\string\everypar} + \ifx \:temp\:tempa + \let\ht:everypar\everypar + \fi + \def\Verb{\bgroup \no:catcodes0{255}{12}\catcode`\ = 10 + \catcode`\^^M = 10 \catcode`\^^I = 10 \leavevmode \:ctgs} + +\ifHtml \def\:ctgs#1{\def\:eat##1#1{{\vrb:tt + ##1}\egroup}\:eat } + +\fi + + \long\def\c:Item:#1#2{\c:def\a:Item{#1}\c:def\b:Item{#2}} +\def\Begin:Block#1{\begingroup \def\:EndBlock{#1}} + +\def\End:Block#1{% + \expandafter\ifx \csname :EndBlock\endcsname\relax + \:warning{Block #1 is already closed}% + \else + \def\:test{#1}% + \ifx \:test\:EndBlock \endgroup + \else + \:warning{End environment #1 within + environment \:EndBlock?}% + \fi\fi} + \Def:Section\Chapter{\theChapterCounter}{#1} +\Def:Section\LikeChapter{\theChapterCounter}{#1} +\Def:Section\Appendix{\theChapterCounter}{#1} +\NewConfigure{Chapter}[4]{% + \Configure:Sec {Chapter}{#3}% + {#4\xdef\:curch{Q1-\file:id-\TitleCount }% +}% + {\ifnum \ChapterCounter<1 \gdef\ChapterCounter{1}% + \else \gHAdvance\ChapterCounter 1 \fi +\ifnum \pageno<0 \global\pageno1 \fi + \gHAssign\SectionCounter0 +% +#1}{#2}} +\NewConfigure{Appendix}[4]{% + \Configure:Sec {Appendix}{#3}% + {#4\xdef\:curch{Q1-\file:id-\TitleCount }% +}% + {\ifnum \pageno<0 \global\pageno1 \fi +\ifnum \ChapterCounter<0 \gHAdvance\ChapterCounter -1 + \else \gdef\ChapterCounter{-1}\fi + \gHAssign\SectionCounter0 +% +#1}{#2}} +\NewConfigure{LikeChapter}[4]{% + \Configure:Sec {LikeChapter}{#3}% + {#4\xdef\:curch{Q1-\file:id-\TitleCount }% +}% + {\gHAssign\ChapterCounter0 + \gHAssign\SectionCounter0 +% +#1}{#2}} +\ifx\ChapterFonts\:UnDef + \font\:ChFont=cmbx10 scaled \magstep5 + + \def\ChapterFonts{\let\bf\:ChFont + \baselineskip29.85pt} +\fi +\gHAssign\ChapterCounter0 + +\def\theChapterCounter{% + \ifnum \ChapterCounter>0 \ChapterCounter + \else \ifnum \ChapterCounter<0 \:Alph{-\ChapterCounter}\fi\fi} +\def\:Alph#1{\ifcase #1\or + A\or B\or C\or D\or E\or F\or G\or H\or I\or J\or + K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\or + U\or V\or W\or X\or Y\or Z\else \fi} + +\Def:Section\Section{\theSectionCounter}{#1} +\Def:Section\LikeSection{}{#1} +\def\theSection{\theSectionCounter} +\ifx \SectionFonts\:UnDef + \font\:SecBF=cmbx10 scaled \magstep3 + \font\:SecTT=cmtt10 scaled \magstep3 + + \def\SectionFonts{\let\tt\:SecTT + \let\bf\:SecBF \baselineskip20.74pt} +\fi +\gHAssign\SectionCounter0 + +\def\theSectionCounter{% + \ifnum \ChapterCounter=0 \else \theChapterCounter.\fi + \SectionCounter } + +\Def:Section\SubSection{}{#1} +\ifx\SubSectionFonts\:UnDef + \font\:SubSecFont=cmbx10 scaled \magstep2 + \def\SubSectionFonts{\let\bf\:SubSecFont \baselineskip17.28pt} +\fi + +\Def:Section\Part{}{#1} +\def\OddPartHPage{% + \def\:HPageBeforePart{\ifodd \pageno \else \leavevmode\ \newpage\fi}% + \def\:HPageAfterPart{\newpage\leavevmode\ }} +\def\:NoOddChapterHPage{\def\:HPageBeforePart{}\def\:HPageAfterPart{}} +\:NoOddChapterHPage + +\ht:everypar{\if:nopar \hskip -\parindent + \ShowPar \fi} + \expandafter\csname newtoks\endcsname\EveryItem +\def\ListParSkip{\def\:ListParSkip} +\ifHtml + \ListParSkip{\HtmlPar} +\fi +\def\lbl:tm{% + \def\:ord{\a:Item\ListCounter\b:Item}% + \def\:roman{\a:Item\romannumeral\ListCounter\b:Item}% + \def\:alph{{\Advance: \ListCounter 96 + \a:Item \char\ListCounter\b:Item}}% + \def\:Roman{\a:Item\uppercase{\romannumeral\ListCounter}\b:Item}% + \def\:Alph{{\Advance: \ListCounter 64 + \a:Item \char\ListCounter\b:Item}}% +} +\def\:lbl#1{\a:Item#1\b:Item} + + \def\Verbatim{\par\V:rbatim} + \def\c:Verbatim:{\Configure{HVerbatim}} + \expandafter\def\csname c:Verbatim+:\endcsname + {\Configure{HVerbatim+}} + \if:latex \else + \def\TableOfContents{\futurelet\:temp\:TOC} +\def\:TOC{\ifx [\:temp \expandafter\:TableOfContents + \else \:TableOfContents[Part,Chapter,LikeChapter,Appendix,% + Section,LikeSection]\fi} + + \ifHtml \def\tocPart#1#2#3{\IgnorePar\HCode{<div + align="center">}#2\HCode{</div>}\IgnoreIndent}% +\def\tocChapter#1#2#3{% + \ifx \tocSubSection:idnt\:UnDef + \def\tocSection:idnt{\ }% + \def\tocSubSection:idnt{\ \ }% +\fi +% + \par\ignorespaces #1 #2\par } +\def\tocLikeChapter{\tocChapter} +\def\tocAppendix{\tocChapter} +\def\tocSection#1#2#3{% + \ifx \tocSubSection:idnt\:UnDef + \let\tocSection:idnt\empty + \def\tocSubSection:idnt{\ }% +\else + \ifx \SubSection:idnt\:UnDef + \let\tocSection:idnt\empty + \def\tocSubSection:idnt{\ }% + \fi +\fi +% + \par\tocSection:idnt \ignorespaces #1 #2\par}% +\def\tocLikeSection{\tocSection} +\def\tocSubSection#1#2#3{\par\csname tocSubSection:idnt\endcsname + \ignorespaces #1 #2\par} + + \fi\fi + \ifHtml + \def\({\leavevmode\st:math} + \def\){\ed:math} +\NewConfigure{()}[2]{\def\st:math{#1}\def\ed:math{#2}} + \def\[{\st:Math} + \def\]{\ed:Math} +\NewConfigure{[]}[2]{\def\st:Math{#1}\def\ed:Math{#2}} +\Configure{()}{$}{$} +\Configure{[]}{$$}{$$} + + + + + +\def\TagCh#1{\Tag{#1(C }{\theChapterCounter}\Tag + {#1(c }{\:curch}} +\def\RefCh#1{\Link{\LikeRef{#1(c }}{}Chapter\ \Ref + {#1(C }\EndLink} +\def\TagApp#1{\Tag{#1(A }{\theChapterCounter}\Tag + {#1(a }{\:curch}} +\def\RefApp#1{\Link{\LikeRef{#1(a }}{}Appendix\ \Ref + {#1(A }\EndLink} +\def\TagSec#1{\Tag{#1(S }{\theSectionCounter}\Tag + {#1(s }{\:cursec}} +\def\RefSec#1{\Link{\LikeRef{#1(s }}{}Section\ \Ref + {#1(S }\EndLink} +\def\TagPage#1{% + \Link{}{page#1}\EndLink\Tag{#1}{}} +\def\RefPage#1{\Link{page#1}{}\Ref{#1}\EndLink} + + \def\List#1{\begingroup {\hfil\break\IgnorePar}% + \HAssign\ListCounter0 + \let\:temp\empty \def\:tempA{#1}% + \def\:tempB{ord}% +\ifx\:tempA\:tempB \else \let\:temp\:tempA \def\:tempB{1}\fi +\ifx\:tempA\:tempB \else \def\:tempB{a}\fi +\ifx\:tempA\:tempB \else \def\:tempB{A}\fi +\ifx\:tempA\:tempB \else \def\:tempB{i}\fi +\ifx\:tempA\:tempB \else \def\:tempB{I}\fi +\let\item\:LIitem +\ifx \:tempA\:tempB {\a:OList}% +\def\EndList{\b:OList\endgroup }% +% + \let\a:List\c:OList +\else \def\:tempB{}% + \ifx \:tempA\:tempB \a:DList \let\item\:DLitem \let\End:dd\empty +\def\EndList{\b:DList\endgroup }% +% + \else \def\:tempB{button}% + \ifx \:tempA\:tempB \a:buttonList +\let\Item\It:em +\edef\but:file{\RefFileNumber\FileNumber}% +\ifx \but:file\empty \edef\but:file{\j:bname tmp.\:html}\fi +\def\ALL:file##1.##2!*?: {\def\ALL:file{##1-}}% +\NewFileName\all:file \expandafter\ALL:file\all:file.!*?: % +\HPage<\all:file>{}\IgnorePar +\let\item\B:item +\def\EndList{% + \ifnum \ListCounter>1 \l:Bd{#1}\fi + \EndHPage{}% + \b:buttonList \endgroup }% +% + \else \a:UList \def\EndList{\b:UList\endgroup }% +% + \let\a:List\c:UList +\fi\fi\fi +\let\Li:Par\:ListParSkip +\ht:everypar{\if:nopar \else \HtmlPar\fi}% +% + \lbl:tm +% +} +\NewConfigure{OList}{3} +\NewConfigure{UList}{3} +\NewConfigure{DList}{4} +\let\:UL:\empty +\def\:LIitem{% + {\parindent=0pt\leavevmode}\:noparfalse \ht:everypar{\Li:Par}% + \Advance:\ListCounter 1 \a:List +} +\def\:DLitem#1{% + \Advance:\ListCounter 1 + \c:DList #1\d:DList \ht:everypar{\Li:Par}% +} +\def\B:item#1{% + \ifnum \ListCounter>0 \l:Bd{#1}\fi + \Advance:\ListCounter 1 + \FileStream\but:file + \Recall:Link\bt:fl \Recall:HPage\hpg:fl \Recall:HPageTag\hptg:fl + \L:Ba{#1}\Link[\all:file]{\ALL:file + \ListCounter}{\ALL:file\ListCounter}% + \L:Bb{#1}\EndLink + \L:Bc{#1}\FileStream\all:file + \Save:Link\bt:fl \Save:HPage\hpg:fl \Save:HPageTag\hptg:fl + \l:Ba{#1}\Link[\but:file]{\ALL:file + \ListCounter}{\ALL:file\ListCounter}% + \l:Bb{#1}\EndLink + \l:Bc{#1}\HtmlEnv} +\def\It:em{\bgroup \csname no:catcodes\endcsname0{255}{12}% + \catcode`\^^I=13\relax\:Itm} +\bgroup + \global\let\:grp\egroup + \def\:temp{% + \csname no:catcodes\endcsname0{255}{12} + \catcode`\/0 \catcode`\{1 \catcode`\}2 \catcode`\#6 + \catcode`\:11 \catcode`\g11 \catcode`\r11 \catcode`\p11 + \gdef\:Itm } +\:temp#1\ContItem{/:grp/g:rp{#1}}/:grp + + \catcode`\^^I=13 +\def\g:rp#1{% + \immediate\openout15=\jobname.tmp + {\newlinechar`\^^M \def^^I{\space\space}% + \immediate\write15{\string\ignorespaces\space#1}}% + \immediate\closeout15 + \B:item{\input \jobname.tmp}} + \catcode`\^^I=10 +\NewConfigure{buttonList}[5]{\def\a:buttonList{#1}% + \def\b:buttonList{#2}% + \def\L:Ba##1{#3}\def\L:Bb##1{#5}\def\L:Bc##1{#4}} +\NewConfigure{buttonList+}[4]{% + \def\l:Ba##1{#1}\def\l:Bb##1{#4}\def\l:Bc##1{#2}\def\l:Bd##1{#3}} + + \def\Margin{\HCode{<table \Hnewline + align="right"><tr><td \Hnewline>}} +\def\EndMargin{\HCode{</td></tr></table>}} +\def\add:col{\Advance:\:cols -1 \HAdvance\HCol 1\relax + \ifnum \:cols>0 + \c:Cols \vsplit0 to \tmp:dim \d:Cols \expandafter\add:col + \fi} +\NewConfigure{Columns}{4} +\def\c:Cols{\edef\sv:dim{\the\tmp:dim}\c:Columns} +\def\d:Cols{\d:Columns \tmp:dim\sv:dim } +\def\ColMag#1{\tmp:dim #1\tmp:dim} +\def\Columns#1{% + \a:Columns + \HAssign\:cols#1 \setbox0=\vbox\bgroup + \divide\hsize #1 } +\def\EndColumns{\egroup \HAssign\HCol0 + \tmp:dim\ht0 \advance\tmp:dim \dp0 \divide\tmp:dim \:cols + \add:col \c:Cols \box0 \d:Cols \b:Columns} + + \def\HTable{% + \let\:TR\empty + \let\TABLE:\empty + \futurelet\:temp\T:ABLE} +\def\T:ABLE{% + \ifx \bgroup\:temp \let\:temp\HT:ble + \else \ifx [\:temp \let\:temp\HT:ble + \else \let\:tempb\TA:BLE +\ifx B\:temp \edef\TABLE:{\HTable:B \TABLE:}% + \def\:tempb##1{\futurelet\:temp\T:ABLE}% +\fi +\HTable:brdr P{cellpadding}% +\HTable:brdr S{cellspacing}% +\let\:temp\:tempb +% + \fi \fi \:temp} + +\def\TA:BLE#1{% + \let\:tempb\:TR \al:gn\:TR#1% + \ifx \:tempb\:TR \expand:after{\HT:ble#1}% + \else \expand:after{\futurelet\:temp\T:ABLE}\fi +} +\def\HTable:brdr#1#2{\ifx #1\:temp + \def\:tempb##1{\afterassignment\:tempa\tmp:cnt}% + \def\:tempa{% + \edef\TABLE:{#2="\the\tmp:cnt" \TABLE:}% + \futurelet\:temp\T:ABLE }% + \fi} +\def\arg:HTable#1#2{% + \def\:temp{#1}\ifx \:temp\empty \else + \expandafter\def\csname HTable:\string#1\endcsname{#2}% + \expandafter\arg:HTable + \fi +} +\NewConfigure{HTable+}[2]{\arg:HTable{#1}{#2}} +\def\al:gn#1#2{% + \add:TD#1<#2{\csname HTable:<\endcsname }% + \add:TD#1>#2{\csname HTable:>\endcsname }% + \add:TD#1-#2{\csname HTable:-\endcsname }% + \add:TD#1^#2{\csname HTable:\string^\endcsname }% + \add:TD#1|#2{\csname HTable:|\endcsname }% + \add:TD#1_#2{\csname HTable:\string_\endcsname }% + \add:TD#1=#2{\csname HTable:=\endcsname }% +} +\def\add:TD#1#2#3#4{\chardef\:temp`#2 + \chardef\:tempa`#3 + \ifnum \:temp=\:tempa\edef#1{#1\space #4}\fi} +\let\:TR\empty +\def\HT:ble{\bgroup \let\sv:row\HRow \let\sv:col\HCol + \gHAssign\HRow1 \gHAssign\HCol0 + \htbl: } +\def\htbl:{% + \let\GetInt\Get:Int + \let\GetArg\Get:Arg \a:HTable + \let\:EndHTableScript\:EndHTblScript +\let\:HTableScript\:HTblScript +\let\:HTbleAtt\:HTblAtt +\let\:EndHTblScript\empty +\let\:HTblScript\empty +\let\:HTblAtt\empty +% +% + \c:HTable\hfil\break + \ht:everypar{}\futurelet\:temp\tbl:bd } +\NewConfigure{HTable}{6} +\def\EndHTable{% + \end:cell \d:HTable \b:HTable + \global\let\HRow\sv:row \global\let\HCol\sv:col \egroup + \let\:EndHTblScript\empty +\let\:HTblScript\empty +\let\:HTblAtt\empty +} +\def\tbl:bd{\ifx \:temp\bgroup \let\tbl:typ\tbl:bdy + \else \ifx /\:temp \def\tbl:typ##1{\env:tbl}% + \else \let\tbl:typ\env:tbl + \fi \fi \tbl:typ } +\long\def\tbl:bdy#1{% + \def\hfil{\ifx \EndPicture\:UnDef \space \else\:hfil\fi}% + \def\hfill{\ifx \EndPicture\:UnDef \space \else\:hfill\fi}% + \expandafter\let\csname cr\endcsname\:cr + \:HTable#1&\EndH:Table } +\let\:hfil\hfil +\let\:hfill\hfill +\def\env:tbl{\def\&{\end:cell \TD:cell }\TD:cell } +\def\CR{\end:cell + \gHAdvance\HRow 1 \gHAssign\HCol0 + \d:HTable\c:HTable\hfil\break \TD:cell } +\long\def\:HTable#1\EndH:Table{% + \def\:htbend{#2}% + \insert:TD#1\tok:nmath + \def\:temp{#2}\ifx\:temp\empty \EndHTable + \else \expand:after{\end:cell + \:HTable#2\EndH:Table}\fi } +\def\tok:nmath{\empty} +\def\end:cell{\:EndHTableScript \f:HTable} +\def\:cr{\ifx \EndPicture\:UnDef \expandafter\:cR + \else \expandafter\:c:r\fi} +\expandafter\let\csname :c:r\endcsname\cr +\long\def\:cR#1{\relax + \ifx\:htbend\empty + \def\:temp{#1}% + \ifx\:temp\NoArg \else \expandafter\mpty:cr\fi + \else \mpty:cr + \fi #1}% + +\def\mpty:cr{% + \expand:after{\end:cell \gHAdvance\HRow 1 \gHAssign\HCol0 + \d:HTable\c:HTable \insert:TD}} +\def\TD:cell{\gHAdvance\HCol 1 \futurelet\:temp\TD:cll } +\def\TD:cll{% + \ifx [\:temp \let\:temp\T:D + \else \expandafter\ifx\space\:temp + \expand:after{\def\:temp}\space{\futurelet\:temp\TD:cll}\else + \tbl:ch + \fi \fi \:temp} +\catcode`\^=13 \catcode`\_=13 +\def\tbl:ch{{\def^{\string^}\def_{\string_}% + \xdef\:temp{\noexpand\T:D[\:HTbleAtt]}}} +\catcode`\^=7 \catcode`\_=8 +\def\insert:TD{\futurelet\:tempc\TD:} + +\def\TD:{% + \ifx \par\:tempc \def\:temp\par{\insert:TD}\go:out\:temp\fi + \expandafter\ifx \space\:tempc + \expand:after{\def\:temp}\space{\insert:TD}% + \go:out\:temp \fi + \ifx \EndH:Table\:tempc \go:out\empty\fi + \gHAdvance\HCol 1 \chk:tblop \tbl:ch \go:out\:temp\empty + \:out} + +\def\chk:tblop{\ifx [\:tempc \go:out\T:D \fi} +\def\T:D[{\def\TD:typ{td}\let\TD:more\empty \scan:TD} +\def\scan:TD#1{% + \ifx ]#1\e:HTable + \go:out\:HTableScript \fi + \ifx /#1\def\:temp##1]{\edef\TD:more{\TD:more\space##1}\scan:TD]}% + \go:out\:temp \fi + \ifx H#1\def\TD:typ{th}\go:out\scan:TD\fi + \ifx R#1\SP:N{rowspan}\fi + \ifx C#1\SP:N{colspan}\fi + \al:gn\TD:more#1% + \go:out\scan:TD\empty\:out } + +\def\SP:N#1{% + \def\:temp{\edef\TD:more{ #1="\the\tmp:cnt"\TD:more + \Hnewline}\scan:TD}% + \def\:tempa##1{\afterassignment\:temp \tmp:cnt##1}% + \go:out\:tempa} +\def\HTableScript{\futurelet\:temp\tblScrpt:} +\def\tblScrpt:{\ifx [\:temp \expandafter\:tblScrpt + \else \expand:after{\:tblScrpt[]}\fi } +\long\def\:tblScrpt[#1]#2#3{% + \def\:HTblAtt{#1}% + \def\:HTblScript{#2\go:out\empty!*?: \:out}% + \def\:EndHTblScript{#3}} +\let\:EndHTblScript\empty +\let\:HTblScript\empty +\let\:HTblAtt\empty + +\def\go:out#1{\expand:after{\g:out#1}} +\long\def\g:out#1#2\:out{#1} +\long\def\Get:Int#1#2!*?: \:out{% + \def\:next{% + \edef\:next{\the\tmp:cnt\space}% + \HAssign#1\:next #2!*?: \:out}% + \afterassignment\:next + \tmp:cnt } +\def\DefGetArg#1#2#3{\def\:temp{#3}% + \ifx \:temp\NoArg \D:fGetArg{#1}{#2}#3#3\else + \D:fGetArg{#1}{#2}{#3}{}\fi +} +\def\D:fGetArg#1#2#3#4{% + \expand:after{\long\def}\csname + Get:Arg:#1:#2\endcsname##1##2!*?: \:out{% + \def\:next####1#3{\def##1{####1}% + \ifx \tbl:typ\tbl:bdy \else + \ifx ##1\&\let##1\NoArg\fi + \ifx ##1\CR \let##1\NoArg\fi +\fi +#4##2!*?: \:out}% + \:next }} + +\DefGetArg{}{}{} +\def\stgt:arg#1#2{% + \expand:after{\let\:tempa=}\csname Get:Arg:#1:#2\endcsname + \ifx \:tempa\relax \else \let\:temp\:tempa \fi } +\def\Get:Arg{% + \let\:temp\Get:Arg::\stgt:arg{}\HCol \stgt:arg\HRow{}% + \stgt:arg\HRow\Col \:temp} +\def\NoArg{\tok:nmath} + + \ifHtml + \:CheckOption{postscript} \if:Option + \expandafter\def\csname i:0\endcsname{0} +\expandafter\def\csname i:1\endcsname{1} +\expandafter\def\csname i:2\endcsname{2} +\expandafter\def\csname i:3\endcsname{3} +\expandafter\def\csname i:4\endcsname{4} +\expandafter\def\csname i:5\endcsname{5} +\expandafter\def\csname i:6\endcsname{6} +\expandafter\def\csname i:7\endcsname{7} +\expandafter\def\csname i:8\endcsname{8} +\expandafter\def\csname i:9\endcsname{9} +\def\i:A{10} \let\i:a\i:A +\def\i:B{11} \let\i:b\i:B +\def\i:C{12} \let\i:c\i:C +\def\i:D{13} \let\i:d\i:D +\def\i:E{14} \let\i:e\i:E +\def\i:F{15} \let\i:f\i:F + +\def\Hex:Frac#1#2{\tmp:cnt\csname i:#1\endcsname + \multiply\tmp:cnt by 16 + \advance\tmp:cnt\csname i:#2\endcsname + \multiply\tmp:cnt by 100 + \divide\tmp:cnt by 255 + \edef\:temp{\ifnum \tmp:cnt>99 1.0\else 0.\the\tmp:cnt\fi}} + +\def\df:clr#1#2#3#4#5#6#7{\Hex:Frac#2#3\let#1\:temp + \Hex:Frac#4#5\edef#1{ #1 \:temp}% + \Hex:Frac#6#7\edef#1{#1 \:temp\space setrgbcolor }} + +\def\DefPsColor#1#2{\df:clr#1#2} +\let\PsCode\relax +% +\def\MarkPsLoc(#1){% + \PsCode{ currentpoint + /Psy#1 exch def + /PsX#1 exch def +}} +\def\RecallPsLoc(#1){ PsX#1 Psy#1 } + + \ifx \PsCodeSpecial\:UnDef \def\PsCodeSpecial{ps:}\fi + + \fi +\fi + + \:CheckOption{draw} \if:Option + \NewConfigure{Fig}{2} +\Odef\Fig[#1]{\bgroup + \ifx \EndPicture\:Undef + \ifx \EndFig\:Undef + \def\EndFig{\b:Fig\egroup}% + \def\AltFig{#1}\a:Fig + \else \let\EndFig\egroup \fi + \else \let\EndFig\egroup \fi + \HAssign\y::=0 + \def\Text##1"##2"{\raise \y:: pt \hbox to 0pt{##2\hss}\ignorespaces}% + \def\Line{\afterassignment\Ln:A\tmp:cnta}% + \def\Move{\afterassignment\Mv:A\tmp:cnta}\ignorespaces} + +\def\Ln:A{\afterassignment\Ln:B\tmp:cntb} +\def\Ln:B{\bgroup \leavevmode + \HAssign\I::=\ifnum \tmp:cnta<0 -\fi \tmp:cnta +\HAssign\J::=\ifnum \tmp:cntb<0 -\fi \tmp:cntb +\ifnum \I::>\J:: \HAssign\J::=\I:: \fi \relax +\ifnum \J::>0 + \tmp:dim=\tmp:cnta pt + \ifnum \tmp:cnta<0 + \tmp:dim-\tmp:dim + \vrule depth \z@ height \z@ width \tmp:cnta pt + \HAdvance\y:: by \tmp:cntb \tmp:cntb-\tmp:cntb + \fi + \divide\tmp:dim by \J:: \edef\C::{\the\tmp:dim}% + \tmp:dima=\tmp:cntb pt \divide\tmp:dima by \J:: + \edef\D::{\the\tmp:dima}% + \tmp:dima \y:: pt + \HAssign\I::-1 \tmp:dim\z@ \Ln:C + \ifnum \tmp:cnta>0 \else + \vrule depth \z@ height \z@ width -\tmp:cnta pt +\fi\fi +% + \egroup \Mv:B } + +\def\Ln:C{\ifnum \I::<\J:: + \vrule depth \z@ height \z@ width \tmp:dim + \raise \tmp:dima \hbox{\vrule height 0.5pt depth 0.5pt width 1pt}% + \vrule depth \z@ height \z@ width -\tmp:dim + \vrule depth \z@ height \z@ width -1.0pt + \advance\tmp:dim by \C:: + \advance\tmp:dima by \D:: + \Advance:\I:: by 1 + \expandafter\Ln:C \fi } + +\def\Mv:A{\afterassignment\Mv:B\tmp:cntb} +\def\Mv:B{\leavevmode + \vrule depth \z@ height \z@ width \tmp:cnta pt + \Advance:\y:: by \tmp:cntb \ignorespaces } + +\csname newcount\endcsname\tmp:cnta +\csname newcount\endcsname\tmp:cntb +\csname newdimen\endcsname\tmp:dima + +\fi + + \:CheckOption{index} \if:Option + \let\mi:nus=\- +\def\-{\futurelet\:temp\:idxentry} +\def\:idxentry{\ifx \:temp- \expandafter\:addidx + \else\expandafter\mi:nus\fi} +\def\:addidx-#1/#2/#3/{{\def\:ii{#2}% + \csname a:--\endcsname +% + \ifx\:ii\empty + \edef\:temp{\write\:idx{\string\--{#1}{ }{#3}% + {\csname b:--\endcsname +}\relax}}% + \else + \edef\:temp{\write\:idx{\string\--{#1}{#2}{#3}% + {\csname b:--\endcsname +}\relax}}% + \fi \:temp}} +\csname newwrite\endcsname\:idx +\openout\:idx=\jobname.idx +\def\Index{% + \def\--{\IndexEntry}% + \openin15=\jobname.xdi + \ifeof15 \write\:idx{ \pageno=\the\pageno} + \else + {\a:index \input \jobname.xdi \b:index } + \fi} +\def\IndexEntry#1#2#3#4{% + \gdef\:temp{#1}\let\:tempa\empty + \ifx \:temp\prev:A \gdef\:temp{#2}\ifx \:temp\prev:B + \let\:tempa\relax + \fi\fi + \ifx \:tempa\relax ,\else + \gdef\:temp{#1}\ifx \:temp\prev:A \else \c:index #1\d:index\fi + \def\:temp{#2}\ifx \:temp\space + \else \hfill\break \e:index#2\f:index\fi + \fi + \g:index #4\h:index + \gdef\prev:A{#1}\gdef\prev:B{#2}% +} +\NewConfigure{index}{8} +\ifx \IndexFonts\:UnDef + \def\IndexFonts{% + \setbox\strutbox=\hbox{\vrule height8.0pt depth3.0pt width0pt} + \font\ninerm=cmr9 \font\ninebf=cmbx9 \font\ninesl=cmsl9 + \font\nineit=cmti9 \font\ninett=cmtt9 \font\ninei =cmmi9 + \font\ninesy=cmsy9 \font\nineex=cmex10 + \textfont0=\ninerm \textfont1=\ninei \textfont2=\ninesy + \textfont3=\nineex \scriptfont3=\nineex \scriptscriptfont3=\nineex + \textfont\bffam=\ninebf \textfont\slfam=\ninesl + \textfont\itfam=\ninei \textfont\ttfam=\ninett + \def\rm{\fam=0 \ninerm}% + \def\bf{\fam=\bffam\ninebf}% + \def\sl{\fam=\slfam\ninesl}% + \def\it{\fam=\itfam\nineit}% + \def\tt{\fam=\ttfam\ninett}% + \def\cal{\fam=2}% + \def\mit{\fam=1}% + \skewchar\ninei =127 \skewchar\ninesy =46 \rm + \baselineskip=11pt } +\fi +\NewConfigure{--}{2} +\Configure{--} + {\html:addr \Link-{}{index\last:haddr}\EndLink} + {\string\csname\space :gobble\string\endcsname{\html:lbl}% + \string\Link[\FileName]{index\last:haddr}{}\folio + \string\EndLink + } + +\fi + +% \expand:after{\Hinput{th4}} + \else + \def\List#1{% + \def\:tempa##1##2{% + \ifx\:tempA\:tempB \def\:tempb{\L:st{##1}}\fi \def\:tempB{##2}}% + \def\:tempb{\L:st{#1}}\def\:tempA{#1}\def\:tempB{ord}% + \:tempa\:ord1% + \:tempa{\:ord}{a}% + \:tempa{\:alph}{A}% + \:tempa{\:Alph}{i}% + \:tempa{\:roman}{I}% + \:tempa{\:Roman}{disc}% + \:tempa{$\bullet$}{circle}% + \:tempa{$\circle$}{square}% + \:tempa{\vrule depth \z@ height 1ex width 1ex}{}% + \:tempa{\:lbl}{}% + \:tempb } + +\def\L:st#1{\par \nobreak + {\advance \medskipamount -\parskip \:medskip}% + \:noparfalse + \Begin:Block{List}% + \Configure{Item}{}{.}% +% + \lbl:tm +% + \advance \leftskip 1.5em + \parindent0em + \HAssign\ListCounter0 +\def\item{% + \par \leavevmode \parskip\:ListParSkip + \Advance:\ListCounter 1 + \the\EveryItem}% +\def\:temp{#1}\def\:tempa{\:lbl}\ifx \:temp\:tempa + \EveryItem={\hskip-1.5em\:ListItem}% +\else \EveryItem={% + \llap{#1\hskip 0.5em}}\fi +% +} +\def\EndList{\par + \End:Block{List}% + {\advance\medskipamount -\parskip \:medskip}} +\expandafter\csname newskip\endcsname\ListParSkip +\def\:ListParSkip{\ListParSkip} +\ListParSkip4.5pt plus 1.5pt minus 1.5pt +\def\:ListItem#1{\:lbl{#1}\hskip 0.5em\ignorespaces} + + \let\Columns\:gobble +\let\EndColumns\empty +\def\:bigskip{% + \ifvmode + \ifdim \lastskip<\bigskipamount + \vskip -\lastskip \bigskip \fi + \else \bigskip\fi} + +\def\:medskip{% + \ifvmode + \ifdim \lastskip<\medskipamount + \vskip -\lastskip \medskip \fi + \else \medskip\fi} + +\def\:smallskip{% + \ifvmode + \ifdim \lastskip<\smallskipamount + \vskip -\lastskip \smallskip \fi + \else \smallskip \fi} + + + + \def\Verb:sp{\phantom{x}} +\let\Verb:boln\empty +\let\Verb:eoln\empty +\Configure{VerbatimEnv} + {\medskip \parskip0pt} + {\smallskip } +\let\vrb:tt\tt + + \def\:StartSec#1#2#3{% + % + \expandafter\ifx \csname a:#1\endcsname\relax \else + \csname a:#1\endcsname{#3}% + \fi + \:Ttle{#1}{#2}{\csname #1:ttl\endcsname{#3}}% + \expandafter\ifx \csname b:#1\endcsname\relax \else + \csname b:#1\endcsname{#3}% + \fi + % +} +\let\html:addr\empty +\let\protect:wrtoc\empty +\let\html:tocsec \empty +\let\html:sectoc\empty + + + + + + \def\:ctgs#1{\def\:eat##1#1{{\vrb:tt ##1}\egroup}\:eat} + + \fi +\fi +\ifHtml \expand:after{\Hinput{th4}}\fi +\endinput + |