scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merges from tex2page 4p6

This commit is contained in:
mainzelm 2003-01-09 13:00:17 +00:00
parent 25c9cb046a
commit 37695d923b
1 changed files with 31 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
doc/scsh-manual/man.t2p
View File

@ -9,7 +9,7 @@
% tex2page man % tex2page man
\input css.t2p \input css.t2p
\dontuseimgforhtmlmath \htmlmathstyle{no-image}
\let\pagebreak\relax \let\pagebreak\relax
@ -63,34 +63,41 @@
\imgdef\vdots{\bf.\par.\par.} \imgdef\vdots{\bf.\par.\par.}
\evalh{ %\evalh{
%
%(define all-blanks?
% (lambda (s)
% (andmap
% char-whitespace?
% (string->list s))))
%
%}
%
%
%\def\spaceifnotempty{\evalh{
%
%(let ((x (ungroup (get-token))))
% (unless (all-blanks? x)
% (emit #\space)))
%
%}}
(define all-blanks? \def\spaceifnotempty#1{%
(lambda (s) \def\TEMP{#1}%
(andmap \ifx\TEMP\empty\else\ \fi}
char-whitespace?
(string->list s))))
}
\def\spaceifnotempty{\evalh{
(let ((x (ungroup (get-token))))
(unless (all-blanks? x)
(emit #\space)))
}}
\def\dfnix#1#2#3#4{\leftline{{\tt(#1\spaceifnotempty{#2}{\it#2})} \quad $\longrightarrow$ \quad {\it #3} \qquad (#4)} \index} \def\dfnix#1#2#3#4{\leftline{{\tt(#1\spaceifnotempty{#2}{\it#2})} \quad $\longrightarrow$ \quad {\it #3} \qquad (#4)} \index}
\def\ex#1{{\tt #1}} %\def\ex#1{{\tt #1}}
%\let\ex\texttt
\def\l#1{lambda (#1)} \def\l#1{lambda (#1)}
\def\lx#1{lambda {#1}} \def\lx#1{lambda {#1}}
%\def\notenum#1{} %\def\notenum#1{}
%\def\project#1{} %\def\project#1{}
\def\var#1{{\it #1\/}} %\def\var#1{{\it #1\/}}
\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}} %\let\var\textit
%\def\vari#1#2{\mbox{{\it #1\/}\undefcsactive\$$_{#2}$}}
%\def\vari#1#2{\textit{#1}$_{#2}$}
\renewenvironment{boxedfigure}{\def\srecomment#1{\\#1\\}% \renewenvironment{boxedfigure}{\def\srecomment#1{\\#1\\}%
\begin{figure}\pagestyle}{\end{figure}} \begin{figure}\pagestyle}{\end{figure}}
@ -103,8 +110,8 @@
\def\evalto{==> }% \def\evalto{==> }%
\defcsactive\%{\%}\obeywhitespace} \defcsactive\%{\%}\obeywhitespace}
\newenvironment{code}{\begin{quote}\bgroup\setupcode\GOBBLEOPTARG} \newenvironment{code}{\begin{quote}\setupcode\GOBBLEOPTARG}
{\egroup\end{quote}} {\end{quote}}
\newenvironment{codebox}{\begin{tableplain}\bgroup\setupcode\GOBBLEOPTARG} \newenvironment{codebox}{\begin{tableplain}\bgroup\setupcode\GOBBLEOPTARG}
{\egroup\end{tableplain}} {\egroup\end{tableplain}}
@ -123,4 +130,4 @@
\renewenvironment{leftinset}{\begin{quote}}{\end{quote}} \renewenvironment{leftinset}{\begin{quote}}{\end{quote}}
\renewenvironment{tightinset}{\begin{quote}}{\end{quote}} \renewenvironment{tightinset}{\begin{quote}}{\end{quote}}
\renewenvironment{tightleftinset}{\begin{quote}}{\end{quote}} \renewenvironment{tightleftinset}{\begin{quote}}{\end{quote}}
} }