JavaScript

The following provide for ‘\javascript{...}’ and ‘\JavaScript ...\EndJavascript’ Commands.

<..javascript..>
 \ScriptCommand{\JavaScript}{\vbox\bgroup \linepenalty=1000 \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}}
 -_-_-

<..javascript..>+
 \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}
 -_-_-

The typewriter font is needed to prevent TEX from performing ?gator (e.g., fi into one character).

<..java..>
 \Odef\Applet[#1]#2{\Appl:[#1]#2,,,<.par del.>}
 \def\Appl:[#1]#2,#3,#4,#5<.par del.>{%
   \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}}
 -_-_-