texi2p.tex

% texi2p.tex
% Dorai Sitaram

% last changed 2017-01-13

% This macro file is loaded by TeX2page when processing Texinfo files.  If
% the input document, say jobname.texi, needs additional TeX2page-specific
% macros, you may put them in jobname.t2p (as for input documents in plain
% or LaTeX).  If you wish to redefine any of the macros already defined in
% texi2p.tex, you will need to explicitly \input texi2p in
% jobname.t2p, _before_ the redefinitions.  Whether or not jobname.t2p
% explicitly \inputs it, texi2p.tex will be loaded by TeX2page only
% once.  If jobname.t2p does not exist, or if it does _not_ explicitly
% \input texi2p, jobname.texi will implicitly \input texi2p where it
% tries to \input texinfo.

\ifx\ifinfo\UnDeFiNeD
\let\endloadingtexiiip\relax
\else
\let\endloadingtexiiip\endinput
\message{texi2p already loaded}
\fi
\endloadingtexiiip

\evalq{
(setq *tex-format* :texinfo)
(activate-cdef #\newline)
(tex-def-char #\newline '() "\\TIIPnewline" nil)
(set-catcode #\@ 0)
}

\let\comment\TIIPcomment
\let\c\comment
\let\changepagesizes\c
\let\internalpagesizes\c
\let\setchapternewpage\c
\let\setfilename\c
%\let\settitle\c
\let\headings\c
\let\synindex\c
\let\syncodeindex\c
\let\footnotestyle\c
\let\paragraphindent\c
\let\dircategory\c
\let\defcodeindex\c
\let\shorttitlepage\c

\def\settitle#1
{\externaltitle{#1}}

\def\.{.}

%\let\contents\tableofcontents

\def\contents{\evalh{
(toss-back-string "\\tableofcontents")
(toss-back-string
(if *using-chapters-p*
"\\NONTEXINFOchapter*{Contents}"
"\\NONTEXINFOsection*{Contents}"))
}}

\def\titlefont#1{{\Huge #1}}

%\def\titlepage{\let\pageOLD\page
%\TIIPendgraf\begingroup\large
%\def\page{\endgroup\pageOLD\titlepage}}
%
%\let\endtitlepage\endgroup

\let\titlepage\relax
\let\endtitlepage\relax

\def\titlepage{\TIIPendgraf\begingroup\large}
\let\endtitlepage\endgroup

\evalq{(defvar *texinfo-values* '())}

\def\setQii{\evalq{
(let* ((var (get-peeled-group))
       (val (get-peeled-group)))
  ;(format t "var= ~s; val= ~s~%" var val)
  (push (cons var val) *texinfo-values*)
  ;(format t "tvv= ~s~%" *texinfo-values*)
  )
}}

\def\set#1 #2
{\setQii{#1}{#2}}

\def\value{\evalh{
(let* ((var (get-peeled-group))
       (c (assoc var *texinfo-values* :test #'string=)))
  ;(format t "var= ~s; c= ~s~%" var c)
  (when c (tex2page-string (cdr c))))
}}

\let\NONTEXINFOend\end

\def\end #1
{\message{doing end #1}\csname end#1\endcsname}

\let\group\begingroup

%\let\NONTEXINFOnode\node

%\def\node#1
%{\NONTEXINFOnode{#1}}

\def\ignorespacestillnewlineinclusive{\evalh{
(let (c)
  (loop
    (setq c (snoop-actual-char))
    (when (eq c :eof-object) (return))
    (unless (char-whitespace-p c) (return))
    (get-actual-char)
    (when (char= c #\newline) (return))))
}}

\def\node{\evalh{
(let (c (r '()))
  (loop
    (setq c (snoop-actual-char))
    (case c
      ((#\, #\return #\newline)
       (when (char= c #\,) (eat-till-eol))
       (setq *recent-node-name*
         (concatenate 'string (reverse r)))
       (return))
      (t (get-actual-char)
         (push c r)))))
}}

\def\anchor#1{\tag{#1}{#1}}

\def\menu{\iffalse}
\def\endmenu{\fi}

\def\macro{\iffalse}
\def\endmacro{\fi}

\def\direntry{\iffalse}
\def\enddirentry{\fi}

\def\ignore{\iffalse}
\def\endignore{\fi}

\def\ifplaintext{\iffalse}
\def\endifplaintext{\fi}

\def\ifxml{\iffalse}
\def\endifxml{\fi}

\def\ifinfo{\iffalse}
\def\endifinfo{\fi}

\def\ifdocbook{\iffalse}
\def\endifdocbook{\fi}

\def\ifnottex{\iffalse}
\def\endifnottex{\fi}

\def\ifhtml{\iftrue}
\def\endifhtml{\fi}

\let\html\rawhtml
\let\endhtml\endrawhtml

%

\def\uref#1{\urefQii #1,,,\finish}

\def\urefQii#1,#2,#3,#4\finish{%
\def\urefQiii{#2}%
\ifx\urefQiii\empty\url{#1}%
\else\urlh{#1}{\urefQiii}\fi}

%

\let\include\input

%\verbescapechar\\

\let\code\verb
\let\key\verb
\let\kbd\verb
\let\samp\verb

\def\xref{See \S\ref}

\def\pxref{see \S\ref}

\let\\\TIIPbackslash

\let\dfn\textit
\let\file\texttt
\let\cite\textit
\let\b\textbf
\let\var\textit
\let\t\texttt
\let\sc\textsc
\let\email\texttt
\let\r\textrm

%

\def\tie{ }

% index

\def\cindex#1
{\index{#1}}

\let\pindex\cindex
%\def\pindex#1
%{\index{#1@{\tt#1}}}

\let\findex\pindex

\let\kindex\pindex

\let\vindex\pindex

%\let\opindex\index
\let\opindex\pindex

%\let\cmindex\index
\let\cmindex\pindex

\let\footnote\numfootnote

\def\center#1
{\centerline{#1}\TIIPnewline}

\let\NONTEXINFOitem\item

\let\TABLEitemstyle\relax

\def\TABLEitem#1
{\NONTEXINFOitem \TABLEitemstyle{#1}\break}

\def\table#1
{\begingroup\description
\def\TABLEitemstyle{#1}
\let\item\TABLEitem
\let\itemx\TABLEitem
}

\def\endtable{\enddescription\endgroup}

\let\ftable\table
\let\endftable\endtable

\let\multitable\table
\let\endmultitable\endtable

\def\sp#1
{\par}

\let\NONTEXINFOitemize\itemize

\def\itemize#1
{\NONTEXINFOitemize}

\def\example{\par\TIIPendgraf\bgroup\tt\obeywhitespace\ignorespacestillnewlineinclusive}

\def\endexample{\egroup\par}

% check above and @smallexample

\let\lisp\example
\let\endlisp\endexample

\let\NONTEXINFOenumerate\enumerate
\let\NONTEXINFOendenumerate\endenumerate
\def\enumerate#1
{\bgroup\NONTEXINFOenumerate
\let\item\NONTEXINFOitem}

\def\endenumerate{\NONTEXINFOendenumerate\egroup}

\def\display{\par\bgroup%
\def\end#1#2
{\enddisplay}\obeywhitespace
}

\def\enddisplay{\egroup\par}

%

\let\NONTEXINFOauthor\author
\let\NONTEXINFOchapter\chapter
\let\NONTEXINFOsection\section
\let\NONTEXINFOsubsection\subsection
\let\NONTEXINFOsubsubsection\subsubsection
\let\NONTEXINFOappendix\appendix

\let\page\eject

\let\NONTEXINFOtitle\title

\def\title#1
{\NONTEXINFOtitle{#1}\hrule}

\def\subtitle#1
{\rightline{#1}}

\newcount\authorcalled

\def\author#1
{\ifnum\authorcalled=0
\bigskip\bigskip\bigskip
\global\authorcalled=1
\plainfootnote{\ }{}
\fi
\leftline{\bf#1}}

\def\appendix{\NONTEXINFOappendix
\let\NONTEXINFOappendix\relax
\chapter}

%\def\author#1
%{\NONTEXINFOauthor{#1}}

\let\top\title

\def\chapter#1
{\NONTEXINFOchapter{#1}\label{#1}}

\def\unnumbered#1
{\NONTEXINFOchapter*{#1}}

\def\section#1
{\NONTEXINFOsection{#1}\label{#1}}

\def\unnumberedsec#1
{\NONTEXINFOsection*{#1}}

\def\subsection#1
{\NONTEXINFOsubsection{#1}\label{#1}}

\def\subsubsection#1
{\NONTEXINFOsubsubsection{#1}\label{#1}}

\def\appendixsec#1
{\NONTEXINFOappendix\NONTEXINFOsection{#1}\label{#1}}

\def\appendixsubsec#1
{\NONTEXINFOappendix\NONTEXINFOsubsection{#1}\label{#1}}

\def\appendixsubsubsec#1
{\NONTEXINFOappendix\NONTEXINFOsubsubsection{#1}\label{#1}}

\def\chapheading#1{\NONTEXINFOchapter*{#1}}
\def\heading#1{\NONTEXINFOsection*{#1}}
\def\subheading#1
{\NONTEXINFOsubsection*{#1}}
\def\subsubheading#1
{\NONTEXINFOsubsubsection*{#1}}

%only one index

\def\printindex#1#2{
\def\printindex##1##2{}
\NONTEXINFOchapter*{Index}
{\let\end\NONTEXINFOend
\inputindex}}

\def\printindex#1#2{%
\def\printindex##1##2{}%
{\let\end\NONTEXINFOend
\inputindex}}

% is foll right?

%\def\iftex{\bgroup
%  \def\tex{\fi\iftrue}
%  \def\endtex{\fi\iffalse}
%  \iffalse}
%\def\endiftex{\fi\egroup}

\def\iftex{\iftrue}
\def\tex{\iftrue}
\def\endtex{\fi}
\def\endiftex{\fi}

\let\backslash\\