===================================================================
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