eval4tex.tex

% eval4tex.tex
% Dorai Sitaram
% Last change 2017-01-16

\let\maybeendinput\relax
\ifx\shipout\UnDeFiNeD
  \let\maybeendinput\endinput
\fi
\maybeendinput

\newcount\evalQauxfilecount
\evalQauxfilecount=0

{\catcode`\^^M=12 %
\gdef\evalfortexQsetup{%
  \expandafter\csname newwrite\endcsname \evalfortexQport %
  %
  \immediate\openout\evalfortexQport \jobname-Z-E-D.lisp %
  \newlinechar=`\^^M%
  \immediate\write\evalfortexQport{
  (defmacro define (lhs &rest body)
    (if (consp lhs) `(defun ,(car lhs) ,(cdr lhs) ,@body)
        `(defvar ,lhs ,@body)))

  (defun current-output-port (&optional p)
    (if p (setq *standard-output* p) *standard-output*))

  (defun file-exists? (f) (probe-file f))

  (defun open-output-file (f)
    (open f :direction :output :if-exists :supersede))

  (defun close-output-port (p) (close p))

  (defun display (x) (princ x))

  (defun newline () (terpri))

  (defun integer->char (n) (code-char n))
  }%
  \immediate\closeout\evalfortexQport %
  %
  \immediate\openout\evalfortexQport \jobname-Z-E.lisp %
  %\newlinechar=`\^^M%
  \immediate\write\evalfortexQport{
  (if (not 'nil)
      (eval '(load "\jobname-Z-E-D.lisp"))
      (not 0))

  (define *eval4tex-current-output-port* (current-output-port))

  (define (eval4tex-preamble f)
    (if (file-exists? f) (delete-file f) 0)
    (current-output-port (open-output-file f)))

  (define (eval4tex-postamble)
    (display (integer->char 92))
    (display "relax") (newline)
    (close-output-port (current-output-port))
    (current-output-port *eval4tex-current-output-port*))
  }%
  \newlinechar=-1 %
}%
}

\def\eval{\evalQi d} %display the output
\def\evalq{\evalQi q} %don't display the output

\def\evalQi#1{\begingroup
  \ifx\evalfortexQport\UNDEFINED \evalfortexQsetup\fi
  \global\advance\evalQauxfilecount by 1
  \edef\evalQauxfile{\jobname-Z-E-\the\evalQauxfilecount}%
  \immediate\write\evalfortexQport
    {(eval4tex-preamble "\evalQauxfile.tex")}%
  % should the following \input be in a group?
  \ifx#1d{\immediate\openin0=\evalQauxfile.tex
   \ifeof0 \immediate\closein0
   \else \immediate\closein0 \input \evalQauxfile.tex \fi}\fi
  \def\do##1{\catcode`##1=12 }\dospecials
  \catcode`\{=1 \catcode`\}=2
  \catcode`\|=0
  \catcode`\^^M=12
  \newlinechar=`\^^M%
  \evalQii}

\def\evalQii#1{%
  \immediate\write\evalfortexQport{#1}%
  \immediate\write\evalfortexQport{(eval4tex-postamble)}%
  \newlinechar=-1 %
  \endgroup}

% end of file