=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/printhelp.sm1,v retrieving revision 1.1.1.1 retrieving revision 1.10 diff -u -p -r1.1.1.1 -r1.10 --- OpenXM/src/kan96xx/Doc/printhelp.sm1 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Doc/printhelp.sm1 2009/12/11 02:09:09 1.10 @@ -9,32 +9,28 @@ (\begin{document}) message (\maketitle) message (\section{Primitive Operators}) message - (\begin{enumerate}) message [(keywords)] extension /keys set 0 1 keys length 1 sub { /i set - (\item \verb! ) messagen keys i get messagen (! \\ ) message + (\subsection{ ) messagen keys i get removeIllegalChars messagen ( } ) message ({\footnotesize \begin{verbatim}) message keys i get usage ( ) message (\end{verbatim} }) message ( ) message ( ) message } for - (\end{enumerate} ) message (\newpage) message ( ) message (\section{Macro Operators}) message - (\begin{enumerate}) message @.usages { 0 get } map shell /keys set 0 1 keys length 1 sub{ /i set - (\item \verb! ) messagen keys i get messagen (! \\ ) message + (\subsection{ ) messagen keys i get removeIllegalChars messagen ( } ) message ({\footnotesize \begin{verbatim}) message keys i get usage ( ) message (\end{verbatim} }) message ( ) message ( ) message } for - (\end{enumerate}) message (\section{Macros in libraries}) message printlibhelp @@ -44,40 +40,42 @@ popVariables } def +/removeIllegalChars { + /arg1 set + [/in-removeIllegalChars /ss /i] pushVariables + [ + /ss arg1 def + ss (array) dc /ss set + 0 1 ss length 1 sub { + /i set + ss i get 95 eq %% _ + { + ss i [92 95] put %% \_ + }{ } ifelse + } for + ss flatten /ss set + ss {(string) dc}map cat /arg1 set + ] pop + popVariables + arg1 +} def + /printlibhelp { [/in-printlibhelp /keys /i] pushVariables [ (The macros described in this section can be used by loading) message - (library files by the command (cohom.sm1) run) message + (library files by the command $cohom.sm1$ run) message (\verb+ ox_asir + functions require open asir module.) message ( ) message - (\noindent ) messagen + (\noindent \begin{verbatim}) message + [(parse) (cohom.sm1) pushfile] extension ( ) message [(parse) (bfunction.sm1) pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (hol.sm1) pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (gkz.sm1) pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (appell.sm1)pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (resol0.sm1)pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (complex.sm1)pushfile] extension ( ) message - (\noindent ) messagen - /BFmessage 0 def - [(parse) (restall.sm1)pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (restall_s.sm1)pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (ox.sm1)pushfile] extension ( ) message - (\noindent ) messagen [(parse) (oxasir.sm1)pushfile] extension ( ) message - (\noindent ) messagen - [(parse) (r-interface.sm1)pushfile] extension ( ) message - (\noindent ) messagen [(parse) (intw.sm1)pushfile] extension ( ) message + [(parse) (gfan.sm1)pushfile] extension ( ) message + ( ) message + (\end{verbatim}) message - (\begin{enumerate}) message %% Offverbose must be the smallest /keys [(Offverbose) (ann-t-f) (appell1) (bfunction) (rank) (rrank) (characteristic) (ch) @@ -92,18 +90,25 @@ (intersection) (saturation) (res-div) (res-solv) (res-dual) (res-kernel-image) (ox) (oxconnect) + (ox_launch) (ox_launch_nox) (extension-oxLog) + (debugMode) (db.where) (db.restore) (db.clear) (db.clear.es) + (db.where.es) (localVariables) (restoreVariables) (db.clear.ds) + (db.clear.es) + (ecart.gb) (ecart.minimalResol) (ecart.minimalBase) (ecart.syz) + (ecartd.reduction) + (mgkz) + (gfan) ] def keys shell /keys set 0 1 keys length 1 sub{ /i set - (\item \verb! ) messagen keys i get messagen (! \\ ) message + (\subsection{ ) messagen keys i get removeIllegalChars messagen (} ) message ({\footnotesize \begin{verbatim}) message keys i get usage ( ) message (\end{verbatim} }) message ( ) message ( ) message } for - (\end{enumerate}) message ] pop %% popVariables %% I do not know the reason, but the stack seems to be broken. } def