feat: 9.5.9
This commit is contained in:
tmtt
parent
cb1753732b
commit
35f43a7909
1084 changed files with 558985 additions and 0 deletions
50
release_notes/gifs/Makefile
Normal file
50
release_notes/gifs/Makefile
Normal file
|
|
@ -0,0 +1,50 @@
|
|||
gifs = ghostRightarrow.gif
|
||||
|
||||
density=-r90x90
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .tex .gif
|
||||
|
||||
# translate ps file to ppm, crop to minimum background, and translate ppm
|
||||
# to gif with white (background) transparent
|
||||
#
|
||||
.tex.gif:
|
||||
echo | latex $* &&\
|
||||
dvips -f < $*.dvi |\
|
||||
gs -q -dNOPAUSE -dSAFER -sDEVICE=ppmraw -sOutputFile=-\
|
||||
${density} - |\
|
||||
pnmcrop |\
|
||||
ppmtogif -transparent white > $*.gif
|
||||
rm -f $*.dvi $*.log *.aux
|
||||
test -f $*.gif && chmod 644 $*.gif
|
||||
|
||||
all: ${gifs}
|
||||
|
||||
# make ghostRightarrow.gif a completely transparent version of Rightarrow.ps
|
||||
#
|
||||
# translate ps to gif as above but w/o making white transparent, map black
|
||||
# to white, convert to ppm, and convert back to gif with white transparent
|
||||
#
|
||||
# could skip intermediate conversion to gif if we could map black to white
|
||||
# with some ppm tool
|
||||
#
|
||||
# it seems like should be able to replace last three steps with
|
||||
# giftrans -g '#000000=#ffffff' -t '#ffffff'
|
||||
# or at least
|
||||
# giftrans -g '#000000=#ffffff' | giftrans -t '#ffffff'
|
||||
# but giftrans changes only the first white color it sees, not all
|
||||
#
|
||||
ghostRightarrow.gif: Rightarrow.tex
|
||||
echo | latex Rightarrow &&\
|
||||
dvips -f < Rightarrow.dvi |\
|
||||
gs -q -dNOPAUSE -dSAFER -sDEVICE=ppmraw -sOutputFile=-\
|
||||
${density} - |\
|
||||
pnmcrop |\
|
||||
ppmtogif |\
|
||||
giftrans -g '#000000=#ffffff' |\
|
||||
giftopnm |\
|
||||
ppmtogif -transparent white > $*.gif
|
||||
rm -f Rightarrow.dvi Rightarrow.log Rightarrow.aux
|
||||
test -f $*.gif && chmod 644 $*.gif
|
||||
|
||||
clean: ; rm -f *.gif Make.out
|
||||
5
release_notes/gifs/Rightarrow.tex
Normal file
5
release_notes/gifs/Rightarrow.tex
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
\documentclass[12pt]{article}
|
||||
\begin{document}
|
||||
\pagestyle{empty}
|
||||
$\Rightarrow$
|
||||
\end{document}
|
||||
BIN
release_notes/gifs/ghostRightarrow.gif
Normal file
BIN
release_notes/gifs/ghostRightarrow.gif
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 50 B |
4
release_notes/macros.stex
Normal file
4
release_notes/macros.stex
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
\def\ChezScheme{\textsl{Chez Scheme}}
|
||||
\def\PetiteChezScheme{\textsl{Petite Chez Scheme}}
|
||||
\def\CSUG#1{\hyperlink{http://www.scheme.com/csug#1/}{\emph{Chez Scheme Version #1 User's Guide}}}
|
||||
\def\TSPL#1#2{\hyperlink{http://www.scheme.com/tspl#1/}{\emph{The Scheme Programming Language, #1#2 edition}}}
|
||||
26
release_notes/math/Makefile
Normal file
26
release_notes/math/Makefile
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
include mathfiles
|
||||
|
||||
density=-r90x90
|
||||
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .tex .gif
|
||||
|
||||
# translate ps file to ppm, crop to minimum background, and translate ppm
|
||||
# to gif with white (background) transparent
|
||||
#
|
||||
.tex.gif:
|
||||
TEXINPUTS=.:../..:$(TEXINPUTS);\
|
||||
echo | latex $* &&\
|
||||
dvips -f < $*.dvi |\
|
||||
gs -q -dNOPAUSE -dSAFER -sDEVICE=ppmraw -sOutputFile=-\
|
||||
${density} - |\
|
||||
pnmcrop |\
|
||||
ppmtogif -transparent white > $*.gif
|
||||
rm -f $*.dvi $*.log $*.aux
|
||||
test -f $*.gif && chmod 644 $*.gif
|
||||
|
||||
all: ${gifs}
|
||||
|
||||
${gifs}: mathmacros
|
||||
|
||||
clean: ; rm -f *.gif Make.out
|
||||
19
release_notes/math/mathmacros
Normal file
19
release_notes/math/mathmacros
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
\catcode`@=11 % borrow the private macros of PLAIN (with care)
|
||||
\def\W#1{W_{\!\!#1}}
|
||||
\def\fftcases#1{\left\{\,\vcenter{\m@th\baselineskip=18pt
|
||||
\ialign{$##\hfil$&\quad##\hfil\crcr#1\crcr}}\right.}
|
||||
\input epsf
|
||||
|
||||
\usepackage{graphicx}
|
||||
|
||||
\setlength\fboxrule{.4\p@}
|
||||
\newlength{\chpicsize}
|
||||
\setlength{\chpicsize}{30pc}
|
||||
\addtolength{\chpicsize}{-\fboxrule}
|
||||
\addtolength{\chpicsize}{-\fboxrule}
|
||||
\def\chpic#1{\begingroup%
|
||||
\def\epsfsize##1##2{##1}
|
||||
\fboxsep=0pt
|
||||
\vbox{\noindent%
|
||||
\fbox{\vbox{\hbox to \chpicsize{\hfil\vbox to \chpicsize{\vfil%
|
||||
\epsfbox{#1}\vfil}\hfil}}}}\endgroup}
|
||||
2903
release_notes/release_notes.stex
Normal file
2903
release_notes/release_notes.stex
Normal file
File diff suppressed because it is too large
Load diff
110
release_notes/releasenotes.cls
Normal file
110
release_notes/releasenotes.cls
Normal file
|
|
@ -0,0 +1,110 @@
|
|||
%%% releasenotes.cls
|
||||
|
||||
\ProvidesClass{releasenotes}
|
||||
|
||||
\def\ProvidesClass#1[#2]{\relax}
|
||||
|
||||
% \input article.cls
|
||||
\LoadClass{article}
|
||||
|
||||
\def\ps@plain{\let\@mkboth\@gobbletwo
|
||||
\let\@oddhead\@empty\def\@oddfoot{\reset@font
|
||||
\footer}\let\@evenhead\@empty\let\@evenfoot\@oddfoot}
|
||||
\def\footer{\hfil \parbox[t]{6in}{\hfil Chez Scheme Version {\thisversion} Release Notes Page \thepage\\
|
||||
\strut\hfil \copyright~{\pubyear} Cisco Systems, Inc. Licensed under the Apache License Version 2.0\\
|
||||
\strut\hfil http://www.apache.org/licenses/LICENSE-2.0}\hfil}
|
||||
|
||||
\newif\ifthisversion\thisversionfalse
|
||||
\newif\ifthatversion\thatversionfalse
|
||||
\newif\ifpubmonth\pubmonthfalse
|
||||
\newif\ifpubyear\pubyearfalse
|
||||
\def\thisversion#1{\thisversiontrue\def\thisversion{#1}}
|
||||
\def\thatversion#1{\thatversiontrue\def\thatversion{#1}}
|
||||
\def\pubmonth#1{\pubmonthtrue\def\pubmonth{#1}}
|
||||
\def\pubyear#1{\pubyeartrue\def\pubyear{#1}}
|
||||
|
||||
\def\maketitle{%
|
||||
\ifthisversion\else\@latex@warning{`thisversion' undefined}\fi
|
||||
\ifthatversion\else\@latex@warning{`thatversion' undefined}\fi
|
||||
\ifpubmonth\else\@latex@warning{`pubmonth' undefined}\fi
|
||||
\ifpubyear\else\@latex@warning{`pubyear' undefined}\fi
|
||||
\begingroup\Large\bfseries
|
||||
\begin{flushleft}
|
||||
Chez Scheme {\thisversion} Release Notes\\
|
||||
{\pubmonth}~{\pubyear}
|
||||
\end{flushleft}
|
||||
\endgroup}
|
||||
|
||||
%%% to support hypertext index entries
|
||||
\def\hindex#1{\index} % ignore the label here---no links in printed version
|
||||
|
||||
\def\hyperlink#1#2{#2}
|
||||
\newcommand{\href}[3][ref]{#3}
|
||||
|
||||
\newif\iflatex\latextrue
|
||||
\newif\ifhtml\htmlfalse
|
||||
|
||||
%%% latex.ltx redefinitions
|
||||
%% leave padding page blank (no header)
|
||||
\def\cleardoublepage{\clearpage\if@twoside \ifodd\c@page\else
|
||||
{\pagestyle{empty}\hbox{}\newpage\if@twocolumn\hbox{}\newpage\fi}\fi\fi}
|
||||
%% change section headers to "1.1. foo" instead of "1.1 foo"
|
||||
\def\@seccntformat#1{\csname the#1\endcsname. }
|
||||
%% change numbered table of contents lines to "1.1. foo" instead of "1.1 foo"
|
||||
\def\numberline#1{#1. }
|
||||
|
||||
\renewenvironment{description}
|
||||
{\list{}{\labelwidth\z@ \itemindent-\leftmargin
|
||||
\let\makelabel\descriptionlabel}}
|
||||
{\endlist}
|
||||
\renewcommand*\descriptionlabel[1]{\hspace\labelsep #1}
|
||||
|
||||
\def\itemvdots{\item[] \mbox{\vdots}}
|
||||
|
||||
\def\parheader#1 {\medskip\noindent{\bf #1.}~~}
|
||||
|
||||
%%% grammar support
|
||||
\newenvironment{grammar}
|
||||
{\begingroup
|
||||
\def\orbar{&\bar&}
|
||||
\def\nobar{&&}
|
||||
\def\longis{&$\longrightarrow$&}
|
||||
\penalty-100\vskip 4pt\begin{tabular}{lcl}}
|
||||
{\end{tabular}\penalty-200\vskip 4pt\endgroup}
|
||||
\def\bar{$\vert$}
|
||||
\def\ang#1{$\langle${\small\rm{}#1}$\rangle$}
|
||||
\def\kstar{\raise.5ex\hbox{\scheme{*}}}
|
||||
\def\kplus{\raise.5ex\hbox{\scheme{+}}}
|
||||
|
||||
\newcounter{alphacount}
|
||||
\def\alphalabel{\textit{\alph{alphacount}}.}
|
||||
\newenvironment{alphalist}
|
||||
{\begingroup\let\beforeschemedisplay=\relax\let\afterschemedisplay=\relax
|
||||
\begin{list}{\alphalabel}{\usecounter{alphacount}\itemsep=0pt\parsep=0pt%
|
||||
\topsep=0pt}}
|
||||
{\end{list}\endgroup}
|
||||
|
||||
%%% final set up
|
||||
\renewcommand{\contentsname}{Contents}
|
||||
\renewcommand{\today}{\ifcase\month\or
|
||||
January\or February\or March\or April\or May\or June\or
|
||||
July\or August\or September\or October\or November\or December\fi
|
||||
\space\number\day, \number\year}
|
||||
\setlength\columnsep{10\p@}
|
||||
\setlength\columnseprule{0\p@}
|
||||
\pagestyle{plain}
|
||||
\pagenumbering{arabic}
|
||||
|
||||
\if@twoside\else\raggedbottom\fi
|
||||
|
||||
\usepackage{fullpage}
|
||||
\usepackage{scheme}
|
||||
|
||||
\schemeindent=0pt
|
||||
\parskip=4pt
|
||||
\parindent=0pt
|
||||
|
||||
\input macros.tex
|
||||
|
||||
\endinput
|
||||
%%% end of assignment.cls
|
||||
57
release_notes/releasenotes.css
Normal file
57
release_notes/releasenotes.css
Normal file
|
|
@ -0,0 +1,57 @@
|
|||
BODY {background-color: #FFFFFF}
|
||||
A:link {color:#880000; text-decoration:underline}
|
||||
A:active {color:#880000; text-decoration:underline}
|
||||
A:visited {color:#000088; text-decoration:underline}
|
||||
A:hover {color:white; text-decoration:underline; background:#880000}
|
||||
|
||||
A.plain:link {color:#880000; text-decoration:none}
|
||||
A.plain:active {color:#880000; text-decoration:none}
|
||||
A.plain:visited {color:#000088; text-decoration:none}
|
||||
A.plain:hover {color:white; text-decoration:none; background:#880000}
|
||||
|
||||
A.static:link {color:#880000; text-decoration:underline}
|
||||
A.static:active {color:#880000; text-decoration:underline}
|
||||
A.static:visited {color:#880000; text-decoration:underline}
|
||||
A.static:hover {color:white; text-decoration:underline; background:#880000}
|
||||
|
||||
A.plainstatic:link {color:#880000; text-decoration:none}
|
||||
A.plainstatic:active {color:#880000; text-decoration:none}
|
||||
A.plainstatic:visited {color:#880000; text-decoration:none}
|
||||
A.plainstatic:hover {color:white; text-decoration:none; background:#880000}
|
||||
|
||||
A.ref:link {color:#880000; text-decoration:underline}
|
||||
A.ref:active {color:#880000; text-decoration:underline}
|
||||
A.ref:visited {color:#880000; text-decoration:underline}
|
||||
A.ref:hover {color:white; text-decoration:underline; background:#880000}
|
||||
|
||||
A.plainlink:link {color:#880000; text-decoration:none}
|
||||
A.plainlink:active {color:#880000; text-decoration:none}
|
||||
A.plainlink:visited {color:#880000; text-decoration:none}
|
||||
A.plainlink:hover {color:white; text-decoration:none; background:#880000}
|
||||
|
||||
A.toc:link {color:#000088; text-decoration:none}
|
||||
A.toc:active {color:#000088; text-decoration:none}
|
||||
A.toc:visited {color:#000088; text-decoration:none}
|
||||
A.toc:hover {color:white; text-decoration:none; background:#000088}
|
||||
|
||||
input.default { background: #ffffff; color: #000000; vertical-align: middle}
|
||||
|
||||
H1, H2 { margin-top: 1em; margin-bottom: 1em }
|
||||
H3, H4, H5, H6 { margin-top: 1em; margin-bottom: 0em }
|
||||
|
||||
H1, H2 {color: #880000}
|
||||
H3, H4 {color: #000088}
|
||||
H1 {font-size: 2em}
|
||||
H2 {font-size: 1.5em}
|
||||
H3 {font-size: 1.17em}
|
||||
H1, H2, H3, H4 {font-weight: bold}
|
||||
|
||||
table.indent {margin-left: 20px}
|
||||
|
||||
.pruned{ color: red; }
|
||||
.inserted{ color: green; }
|
||||
.attr{ font-weight: bold; }
|
||||
.attrvalue{ color: blue; }
|
||||
.tag{ color: navy; font-weight: bold; }
|
||||
.entity{ color: purple; font-weight: bold; }
|
||||
.errflag{ color: red; font-weight: bold; }
|
||||
154
release_notes/releasenotes.hcls
Normal file
154
release_notes/releasenotes.hcls
Normal file
|
|
@ -0,0 +1,154 @@
|
|||
%%% releasenotes.hcls
|
||||
|
||||
\newif\iflatex\latexfalse
|
||||
\newif\ifhtml\htmltrue
|
||||
|
||||
% should be built in
|
||||
\newenvironment{center}
|
||||
{\raw{<center>}}
|
||||
{\raw{</center>}}
|
||||
|
||||
\let\trueenddocument=\enddocument
|
||||
\def\enddocument{
|
||||
\copyright~{\pubyear} Cisco Systems, Inc.\\
|
||||
Licensed under the \hyperlink{http://www.apache.org/licenses/LICENSE-2.0}{Apache License Version 2.0}\\
|
||||
\iftoc
|
||||
\begin{divertoutput}[toc]
|
||||
\ifsubsubsec\raw{</table></td></tr>}\fi
|
||||
\ifsubsec\raw{</table></td></tr>}\fi
|
||||
\end{divertoutput}
|
||||
\fi
|
||||
\trueenddocument}
|
||||
|
||||
\newif\ifthisversion\thisversionfalse
|
||||
\newif\ifthatversion\thatversionfalse
|
||||
\newif\ifpubmonth\pubmonthfalse
|
||||
\newif\ifpubyear\pubyearfalse
|
||||
\def\thisversion#1{\thisversiontrue\def\thisversion{#1}}
|
||||
\def\thatversion#1{\thatversiontrue\def\thatversion{#1}}
|
||||
\def\pubmonth#1{\pubmonthtrue\def\pubmonth{#1}}
|
||||
\def\pubyear#1{\pubyeartrue\def\pubyear{#1}}
|
||||
|
||||
\def\maketitle{%
|
||||
\ifthisversion\else\@latex@warning{`thisversion' undefined}\fi
|
||||
\ifthatversion\else\@latex@warning{`thatversion' undefined}\fi
|
||||
\ifpubmonth\else\@latex@warning{`pubmonth' undefined}\fi
|
||||
\ifpubyear\else\@latex@warning{`pubyear' undefined}\fi
|
||||
\raw{<h2>}Chez Scheme {\thisversion} Release Notes\\
|
||||
{\pubmonth}~{\pubyear}\raw{</h2>}}
|
||||
|
||||
%%% table of contents
|
||||
\newif\iftoc\tocfalse
|
||||
\newif\ifsubsec\subsecfalse
|
||||
\newif\ifsubsubsec\subsubsecfalse
|
||||
\newcommand{\tableofcontents}{\toctrue
|
||||
\raw{<table cellpadding=0 cellspacing=0>}
|
||||
\rawinput{\jobname.htoc}
|
||||
\raw{</table>}
|
||||
\openrawfile{toc}{\jobname.htoc}}
|
||||
|
||||
%%% \section
|
||||
\newcounter{section}
|
||||
\renewcommand{\thesection}{\arabic{section}}
|
||||
\newcommand{\section}[1]{
|
||||
\refstepcounter{section}
|
||||
\edef\templabel{\genlab}
|
||||
\sectionstar{\label{\templabel}\thesection. #1}
|
||||
\iftoc
|
||||
\begin{divertoutput}[toc]
|
||||
\ifsubsubsec\raw{</table></td></tr>}\fi
|
||||
\subsubsecfalse
|
||||
\ifsubsec\raw{</table></td></tr>}\fi
|
||||
\subsecfalse
|
||||
\raw{<tr><td align="right">}\textbf{\thesection.~}\raw{<td>}\textbf{\href[toc]{\templabel}{#1}}\raw{</td></tr>}
|
||||
\end{divertoutput}
|
||||
\fi
|
||||
}
|
||||
\newcommand{\sectionstar}[1]{
|
||||
\raw{<h3>}#1\raw{</h3>}
|
||||
}
|
||||
|
||||
%%% \subsection
|
||||
\newcounter{subsection}[section]
|
||||
\renewcommand{\thesubsection}{\thesection.\arabic{subsection}}
|
||||
\newcommand{\subsection}[1]{
|
||||
\refstepcounter{subsection}
|
||||
\edef\templabel{\genlab}
|
||||
\subsectionstar{\label{\templabel}\thesubsection. #1}
|
||||
\iftoc
|
||||
\begin{divertoutput}[toc]
|
||||
\ifsubsubsec\raw{</table></td></tr>}\fi
|
||||
\subsubsecfalse
|
||||
\ifsubsec\else\raw{<tr><td></td><td><table cellpadding=0 cellspacing=0>}\fi
|
||||
\subsectrue
|
||||
\raw{<tr><td>}\textbf{\thesubsection.~}\raw{</td><td>}\textbf{\href[toc]{\templabel}{#1}}\raw{</td></tr>}
|
||||
\end{divertoutput}
|
||||
\fi
|
||||
}
|
||||
\newcommand{\subsectionstar}[1]{
|
||||
\raw{<h4>}#1\raw{</h4>}
|
||||
}
|
||||
|
||||
%%% \subsubsection
|
||||
\newcounter{subsubsection}[subsection]
|
||||
\renewcommand{\thesubsubsection}{\thesubsection.\arabic{subsubsection}}
|
||||
\newcommand{\subsubsection}[1]{
|
||||
\refstepcounter{subsubsection}
|
||||
\edef\templabel{\genlab}
|
||||
\subsubsectionstar{\label{\templabel}\thesubsubsection. #1}
|
||||
\iftoc
|
||||
\begin{divertoutput}[toc]
|
||||
\ifsubsubsec\else\raw{<tr><td></td><td><table cellpadding=0 cellspacing=0>}\fi
|
||||
\subsubsectrue
|
||||
\raw{<tr><td>}\textbf{\thesubsubsection.~}\raw{</td><td>}\textbf{\href[toc]{\templabel}{#1}}\raw{</td></tr>}
|
||||
\end{divertoutput}
|
||||
\fi
|
||||
}
|
||||
\newcommand{\subsubsectionstar}[1]{
|
||||
\raw{<h4>}#1\raw{</h4>}
|
||||
}
|
||||
|
||||
|
||||
%%% alphalist
|
||||
\newcounter{alphalist}
|
||||
\def\alphalist{\begingroup\setcounter{alphalist}{0}
|
||||
\def\endalphalistitem{}%
|
||||
\renewcommand{\item}{\endalphalistitem
|
||||
\def\endalphalistiem{\raw{</td></tr>}}%
|
||||
\stepcounter{alphalist}%
|
||||
\raw{<tr valign=top><td>}\alph{alphalist}.\raw{</td><td>}}
|
||||
\raw{<table>}}
|
||||
\def\endalphalist{\endalphalistitem\raw{</table>}\endgroup}
|
||||
|
||||
%%% define our own (compact) description environment
|
||||
\def\description{\begingroup
|
||||
\renewcommand{\item}[1][]{\raw{<dt>}##1\raw{<dd>}}\raw{<dl compact>}}
|
||||
\def\enddescription{\raw{</dl>}\endgroup}
|
||||
|
||||
\def\parheader#1 {\medskip\noindent{\bf #1.}~~}
|
||||
|
||||
%%% grammar support
|
||||
\newenvironment{grammar}
|
||||
{\begingroup
|
||||
\def\orbar{&\bar&}
|
||||
\def\nobar{&&}
|
||||
\def\longis{&$\longrightarrow$&}
|
||||
\begin{tabular}{lcl}}
|
||||
{\end{tabular}\endgroup}
|
||||
\def\bar{\raw{|}}
|
||||
\def\kplus{\raw{<sup>+</sup>}}
|
||||
\def\kstar{\raw{*}}
|
||||
\def\ang#1{\raw{<}#1\raw{>}}
|
||||
|
||||
\def\mbox#1{#1}
|
||||
|
||||
%%% hyperlink support
|
||||
\def\hyperlink#1#2{\raw{<a class="ref" href="#1">}#2\raw{</a>}}
|
||||
|
||||
\usepackage{scheme}
|
||||
|
||||
\input{macros.tex}
|
||||
|
||||
\documenttitle[releasenotes.css]{Chez Scheme Release Notes}
|
||||
|
||||
%%% end of assignment.hcls
|
||||
47
release_notes/scheme.sty
Normal file
47
release_notes/scheme.sty
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
\usepackage{color}
|
||||
\def\transerr#1{\begingroup\slshape}
|
||||
\def\transin#1{\begingroup\color{red}}
|
||||
\def\transout#1{\begingroup\color{blue}}
|
||||
\def\endtranserr#1{\endgroup}
|
||||
\def\endtransin#1{\endgroup}
|
||||
\def\endtransout#1{\endgroup}
|
||||
|
||||
\newskip\ttglue
|
||||
\let\ninefivett=\tt % \font\ninefivett=cmtt9 at 9.5pt
|
||||
\ttglue=.5em plus .25em minus .15em
|
||||
\newskip\schemeindent
|
||||
\schemeindent=0pt
|
||||
{\obeyspaces\global\let =\ }
|
||||
\def\schtilde{\raisebox{-.5ex}{\hbox{\char`\~}}}
|
||||
\def\schdot{.}
|
||||
\def\schcarat{\char`\^}
|
||||
\def\schbackslash{\char`\\}
|
||||
\def\schatsign{\char`\@}
|
||||
\def\schunderscore{\char`\_}
|
||||
\def\schlbrace{\char`\{}
|
||||
\def\schrbrace{\char`\}}
|
||||
\def\scheme#1{\mbox{\ttfamily\ninefivett\frenchspacing\spaceskip=\ttglue#1}}
|
||||
|
||||
\def\schemeblankline{\par\beforeschemedisplay}
|
||||
\def\schemelinestart{{\leavevmode\hbox{\hskip \schemeindent\relax}}}
|
||||
%%% handle numbered lines in scheme.sty and scheme.hsty
|
||||
%%% ---have scheme-prep produce only \schemelinestart
|
||||
\def\schemelinestartnumbered#1{{\leavevmode\hbox{\hbox to 1em {\hfil{\rm #1}} \hskip .5\schemeindent\relax}}}
|
||||
|
||||
\def\noskip\schemedisplay{\begingroup%
|
||||
\parindent=0pt%
|
||||
\parskip=0pt%
|
||||
\def\becomes{\hbox to 2em{\hfil$\rightarrow$\hfil}}%
|
||||
\def\is{\hbox to 2em{\hfil$\Rightarrow$\hfil}}%
|
||||
\def\si{\hbox to 2em{\hfil}}%
|
||||
\interlinepenalty=2000%
|
||||
\baselineskip=11pt plus 1pt\ninefivett\obeyspaces\frenchspacing}
|
||||
\def\schemedisplay{\beforeschemedisplay\noskip\schemedisplay}
|
||||
\def\longcode\schemedisplay{\penalty-200\vskip 8pt plus 4pt%
|
||||
\kern3pt\hrule\kern5pt\nobreak\noskip\schemedisplay}
|
||||
\def\endschemedisplay{\par\endgroup\afterschemedisplay}
|
||||
\def\var#1{{\normalsize\textrm{\textit{#1}}}}
|
||||
\def\raw#1{#1}
|
||||
\def\beforeschemedisplay{\penalty-100\vskip\parskip\vskip5pt}
|
||||
\def\afterschemedisplay{\penalty-200\vskip5pt}
|
||||
|
||||
Reference in a new issue