TeX4ht writes its tags into .ref files until ProTex takes over and gets the tags into .xref files.
<..check that TeX4ht is not loaded after protex..>
\def\:warning#1{\immediate\write16{l.\the\inputlineno\space
--- TeX4ht warning --- #1 ---}}
\ifx \:ShowCode\:UnDeF \else
\:warning{<.TeX4ht name.>.sty loaded after ProTeX?}
\fi
-_-_-
\NewHaddr provides an address that encodes a location together with its file name.
Is the followint true? We can have for hadresses \Link{Haddr}{} \Link{}{Haddr} without worrying about extracting the file names as long as we use HAddress we get from \NewHaddr!!! That is, in \Linkthe [] option is needed just for external files compiled separately. WELL, it seems to be true for any tags because they are resolved indirectly through thr REF file!!!! Great , how could I have forgotten about this pearl?
AlProTex used something like the following. Create saving at direct programming of HREF and HTAG in <A> coomands, because we don’t need now Ref/Tag intermediates.
<..html utilities..>+
\def\NewHaddr#1{\html:addr \let#1=\last:haddr}
\def\GetHref#1{\expandafter\get:href#1-}
\def\GetHname#1{\expandafter\get:htag#1-}
\ifx \make:addr\:UnDeF
\def\make:addr#1{<.tail for file name.>#1} \fi
-_-_-
make:addr may already be defined from AlProTex. It had\space after #1 that has been removed (see AlProTex).
<..html utilities..>+
\def\FileNumber{\file:id}
\def\c:XrefFile:#1{\def\aXrefFile{#1}}
-_-_-
<..html TeX4ht protex..>
\ifx\html:addr\:UnDeF
<.html common to TeX4ht and protex.>
\Htmltrue
\fi
-_-_-
<..non-html utilities..>
<.nohtml common to TeX4ht and protex.>
-_-_-
<..html common to TeX4ht and protex..>
\immediate\write16{--- needs --- tex4ht \jobname\space ---}%
-_-_-
<..html common to TeX4ht and protexNO..>
\ifx\HDir\:UnDef \let\HDir=\empty \fi
\let\:HDir=\HDir
\immediate\write16{--- needs --- TeX4ht \ifx\HDir\empty
\else-d \HDir\space\space\fi \jobname\space ---}%
-_-_-
<..new ifs..>+
\ifx \Htmltrue\:UnDef
\def\:temp{\csname newif\endcsname}
\expandafter\:temp \csname ifHtml\endcsname \Htmlfalse
\fi
-_-_-
<..html common to TeX4ht and protex..>+
\ifx\tmp:cnt\:UnDeF \csname newcount\endcsname\tmp:cnt \fi
\def\g:advance#1{\bgroup \def\:temp{#1}%
\tmp:cnt=#1\afterassignment\:gplus \advance\tmp:cnt}
\def\:gplus{\expandafter\xdef\:temp{\the\tmp:cnt}\egroup}
\def\html:lbl{1}
\def\html:addr{\xdef\last:haddr{\file:id-\html:lbl}%
\g:advance\html:lbl by 1\relax }
-_-_-
<..html common to TeX4ht and protex..>+
\ifx \file:id\:UnDef
\gdef\file:id{<.first file id.>}
\global\let\maxfile:id=\file:id
\fi
-_-_-
<..first file id..>
1-_-_-
<..html common to TeX4ht and protex..>+
\hbadness=10000 \vbadness=10000
\:CheckOption{fussy} \if:Option \else
\hfuzz=99in \vfuzz=\hfuzz
\fi
\hyphenpenalty=1000 \exhyphenpenalty=1000
\def\html:rightskip{\rightskip = 0pt plus 0.5\hsize minus0.5\hsize }
\html:rightskip
-_-_-
<..html protex..>
\ifx \footline\:UnDef \else
\footline={\hfil} \headline={\hfil}
\fi
-_-_-
The \let\ht:special=\special is for protection against redefinitions of the \special, as is the case in french.sty.
<..html common to TeX4ht and protex..>+
\ifx \ht:special\:UnDef
\let\ht:special=\special
\fi
\def\HCode#1{\ifx \EndPicture\:UnDef
\relax\ifvmode\leavevmode\fi\ht:special{t4ht=#1}\fi}
\let\:HCode=\HCode
\let\Hbrakets\empty
\def\NewLineChar{\bgroup \catcode‘\^=7 \:NewLineChar}
\def\:NewLineChar#1{\egroup \def\:newlnch{ #1}}
\NewLineChar{^^J}
-_-_-
<..nohtml common to TeX4ht and protex..>
\def\HCode#1{}
-_-_-
The \HCode’ starts a new paragraph if introduced in vertical mode. The \leavevmode’ is included for proper spacing in dviht.
- NCSA Mosaic can’t handle the end-of-anchor </...> tag if it is not on one line. For instance, in <A>...<A
>, Mosaic paints everything blue until the next </A> it finds that is entirely on one line.
<..html+nohtml common to TeX4ht and protex..>
\def\EndLink{\ifx \empty:lnk\empty \HCode{\Hbrakets</\tag:A>}\fi}
\def\:HRef{\ifx [\:temp \expandafter\::HRef
\else \expandafter\:::HRef \fi }
\def\HT:tag{\ifx -\let:val \expandafter\H:Tag
\else \expandafter\HTa:g\fi }
\def\HTa:g{\H:Tag-}
\def\Link{\let\:attr\empty \futurelet\let:val\HRefT:ag}
\def\HRefT:ag{\ifx -\let:val \expandafter\H:RefTag
\else \expandafter\HRefTa:g\fi }
\def\HRefTa:g{\H:RefTag-}
\def\H:RefTag#1{\futurelet\:temp\:HRefTag}
\def\:HRefTag{\ifx [\:temp \expandafter\::HRefTag
\else \expandafter\:::HRefTag \fi }
-_-_-
A \Link-{..}{b} asks that a \Tag will not be produced for ‘b’. A \Link[\empty]{b}{..} asks that a \Ref will not be produced for ‘a’. The same is true for any other non-empty replacement to \empty A ‘b’ for which we neither have a \Tag and a \Ref provides a memory save in ‘strings out of’, ‘string characters out of’, and ‘multiletter control sequences’ (see log files).
<..html common to TeX4ht and protex..>+
\def\::HRef[#1]{\get:attr{#1}\::hRef\:::HRef}
\def\::HRefTag[#1]{\get:attr{#1}\::hRefTag\:::HRefTag}
\def\get:attr#1{\edef\:attr{\noexpand\get:atr #1 <.par del.>}\:attr}
\def\get:atr#1 #2<.par del.>#3#4{\def\:attr{\space#2}%
\def\:te:mpa{#1}\ifx \:te:mpa\empty \let\:te:mpa#4\else
\def\:te:mpa{#3[#1]}\fi \:te:mpa}
-_-_-
<..html common to TeX4ht and protex..>+
\def\H:Tag#1#2{\:TagHTag{#2}\HCode{\Hbrakets<\tag:A\:newlnch
\NAME:"#2"\empty:lnk>}}
\def\::hRef[#1]#2{%
\HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1#2\relax \NOHREF:{}\else
\HREF:"#1\if\relax#1\relax \else\:sharp #2\fi"\fi
\:attr \empty:lnk>}}
\def\:::HRef#1{%
\HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1\relax \NOHREF:{}\else
\HREF:"\get:hfile{#1}\:sharp #1"\fi \:attr \empty:lnk>}}
-_-_-
\def\::hRef[#1]#2{\def\:te:mp{#1}\def\:te:mpa{#1#2}%
\HCode{<\tag:A\:newlnch \ifx\:te:mpa\empty \NOHREF: \else
\HREF:"#1\ifx\:te:mp\empty \else\:sharp #2\fi"\fi
\:attr \empty:lnk>}}
\def\:::HRef#1{\def\:te:mpa{#1}%
\HCode{<\tag:A\:newlnch \ifx\:te:mpa\empty \NOHREF: \else
\HREF:"\get:hfile{#1}\:sharp #1"\fi \:attr \empty:lnk>}}
-_-_-
<..html common to TeX4ht and protex..>+
\def\::hRefTag[#1]#2#3{%
\if\relax#3\relax\else\:TagHTag{#3}\fi
\HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1#2\relax \NOHREF:{#3}\else
\HREF:"#1\if\relax#2\relax \else\:sharp #2\fi"\fi
\if\relax#3\relax\else\space \NAME:"#3"\fi
\:attr \empty:lnk>}}
\def\:::HRefTag#1#2{%
\if\relax#2\relax\else\:TagHTag{#2}\fi
\HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1\relax \NOHREF:{#2}%
\else\HREF:"\get:hfile{#1}\:sharp #1"\fi
\if\relax#2\relax\else\space \NAME:"#2"\fi
\:attr \empty:lnk>}}
\let\empty:lnk=\empty
\def\NOHREF#1{\space}
-_-_-
\def\::hRefTag[#1]#2#3{\def\:te:mp{#2}\def\:te:mpa{#1#2}\def\:te:mpb{#3}%
\ifx\:te:mpb\empty\else\:TagHTag{#3}\fi
\HCode{<\tag:A\:newlnch \ifx\:te:mpa\empty \NOHREF: \else
\HREF:"#1\ifx\:te:mp\empty \else\:sharp #2\fi"\fi
\ifx\:te:mpb\empty\else\space \NAME:"#3"\fi
\:attr \empty:lnk>}}
\def\:::HRefTag#1#2{\def\:te:mp{#1}\def\:te:mpa{#2}%
\ifx\:te:mpa\empty\else\:TagHTag{#2}\fi
\HCode{<\tag:A\:newlnch \ifx\:te:mp\empty \NOHREF:
\else\HREF:"\get:hfile{#1}\:sharp #1"\fi
\ifx\:te:mpa\empty\else\space \NAME:"#2"\fi
\:attr \empty:lnk>}}
-_-_-
\def\NOHREF:#1{\ifx \hrEF:\HREF: \space NOHREF \fi} is not part of html!
<..html protex..>+
\def\HREF:{ href=}
\def\tag:A{a}
\def\NAME:{ name=}
-_-_-
We don’t use ^^J to break lines in \write because user may change it, and because I had unexplained problem with it in emtex.
<..html common to TeX4ht and protex..>+
\def\:TagHTag#1{\ifx -\let:val\else \Tag{<.HTag tag.>#1}{\file:id}\fi}
-_-_-
<..nohtml common to TeX4ht and protex..>+
\def\H:Tag#1#2{}
\def\::HRef[#1]#2{}
\def\:::HRef#1{}
\def\::HRefTag[#1]#2#3{}
\def\:::HRefTag#1#2{}
\def\:TagHTag#1{}
-_-_-
<..html common to TeX4ht and protex..>+
\def\get:href{\expandafter\get::href}
\def\get::href#1-#2-{\ifnum #1=\file:id\space \else
<.get html file name.>\fi
\:sharp <.make html addr.>}
-_-_-
<..html common to TeX4ht and protexNO..>+
\def\get:href{\expandafter\get::href}
\def\get::href#1-#2-{\ifnum #1=\file:id\space \else
\:HDir <.get html file name.>\fi
\:sharp <.make html addr.>}
-_-_-
<..html common to TeX4ht and protex..>+
\def\get:htag{\expandafter\get::htag}
\def\get::htag#1-#2-{<.make html addr.>}
-_-_-
<..make html addr..>
\make:addr{#2}-_-_-
<..html protex..>+
\def\make:addr#1{%
\ifnum\clearcode:id>0 \romannumeral\clearcode:id Q\else PrTx\fi
<.tail for file name.>#1}
\ifx\clearcode:id\:UnDef
\def\clearcode::id{0} \def\clearcode:id{0}
\fi
-_-_-
We had before \space after #1. It was not a problem because |<tail... was a \roman.. that absorbed the space. But now with no one absorbing it, it became a problem.
<..html protexNO..>
\def\make:addr#1{%
\ifnum\clearcode:id>0 \romannumeral\clearcode:id Q\fi
<.tail for file name.>#1\space}
\ifx\clearcode:id\:UnDef
\def\clearcode::id{0} \def\clearcode:id{0}
\fi
-_-_-
Originally, we had \romannumeral for tail, but it created named that are too long, and cause memory overflow.
The condition \ifnum\clearcode:id>0 is set to hold only for references to code fragments.
Romannumeral might be better tags then just numerals because they might be less likely to be generater manually.
\Ref and \Tag are mechanisms to exchange information. The following can be used to connect locations. (Note, however, that \Tag may appear in more than one location sending a sequences of tags separated by comma. In such cases, we arbitrarily go for the first choise.)
<..init XrefFile..>
\ifx \aXrefFile\:UnDef \let\aXrefFile=\empty \fi
-_-_-
<..html common to TeX4ht and protex..>+
<.init XrefFile.>
\def\get:hfile#1{%
\expandafter\ifx\csname
<.tag of Tag.><.HTag tag.>#1\endcsname\relax
\get@hfile{#1}%
\else
\expandafter\expandafter\expandafter\get::hfile
\csname <.tag of Tag.><.HTag tag.>#1\endcsname,//%
\fi }
\def\get::hfile#1,#2//{%
\ifnum \file:id=0#1 \else
<.get file name for tag.>%
\fi }
\ifx\get@hfile\:Undef \let\get@hfile=\:gobble \fi
-_-_-
<..get file name for tag..>
\expandafter\ifx
\csname <.tag of Tag.><.auto file tag.>#1%
<.Tag/Ref: file-id -> file-name.>\endcsname\relax \else
\:LikeRef{<.auto file tag.>#1<.Tag/Ref: file-id -> file-name.>}%
\fi -_-_-
<..get file name for tagNO..>
\expandafter\ifx
\csname <.tag of Tag.><.auto file tag.>#1%
<.Tag/Ref: file-id -> file-name.>\endcsname\relax \else
\:HDir \:LikeRef{<.auto file tag.>#1<.Tag/Ref: file-id -> file-name.>}%
\fi -_-_-
<..get html file name..>
\:LikeRef{<.auto file tag.>#1<.Tag/Ref: file-id -> file-name.>}-_-_-
The following alternative can act as basis for retrieving all the file names, instead of just the first one.
<..COMMENT..>
\def\get:hfile#1{%
\expandafter\ifx\csname
cw:<.HTag tag.>#1\endcsname\relax
\get@hfile{#1}%
\else
\expandafter\expandafter\expandafter\get::hfile
\csname cw:<.HTag tag.>#1\endcsname,\empty end:Links,/
\fi }
\def\end:Links#1//{}
\def\get::hfile#1,#2//{%
\expandafter \ifx \csname #1\endcsname\end:Links
\expandafter\end:Links
\else
\ifnum \file:id=0#1 \FileName\else
\expandafter\ifx
\csname cw:<.auto file tag.>#1%
\empty F-\endcsname\relax \else
\:LikeRef{<.auto file tag.>#1\empty F-}%
\fi %
\fi
\expandafter\get::hfileA
\fi #2//}
\def\get::hfileA#1{%
\ifx #1\space
\expandafter\get::hfile\else
\ifx #1\empty \else \space\fi%
\expandafter\get::hfile\expandafter#1\fi}
-_-_-
Dviht produce new line only after nonempty lines. The following can be used to force non empty lines.
<..html common to TeX4ht and protex..>+
\def\HComment#1{\def\html:src{#1}}
\HComment{} \let\html:src=\empty
\catcode‘\#=12 \def\:sharp{#} \catcode‘\#=6
-_-_-
<..html protex..>+
\ifx \html:par\:UnDef \def\html:par{\HCode{<p>}} \fi
\def\html:invisible{<!--x-->\string&\#x00A0;}
-_-_-
The <!--x--> is needed for blank lines in <PRE> within netscape. Opposite order of comment and non-breaking-space will not work, and the same if one of the entities is sliminates. On the other other, mosaic show the nobreaking space as strin. Well, ...
<..nohtml common to TeX4ht and protex..>+
\def\HComment#1{}
-_-_-
\HComment seems to have no real value, unless we want to trace the input for debugging.
<..tag of Tag..>
cw:-_-_-
<..HTag tag..>
<.auto tag.>Q\aXrefFile -_-_-
<..Tag/Ref: file-id -> file-name..>
\empty F--_-_-
<..auto file tag..>
<.auto tag.>F\aXrefFile -_-_-
<..warnings for missing /Link..>
\ifx \:::HRefTag\:UnDef\else
\pend:defII\:::HRefTag{%
\if \relax##1\relax\else
\expandafter\ifx\csname cw:)Q\aXrefFile ##1\endcsname\relax
\:warning{\string\Link{##1}?}\csname a:?Link\endcsname
\fi\fi }
\fi
-_-_-
<..cross references..>+
\NewConfigure{?Link}{1}
-_-_-