===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/printhelp.sm1,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- OpenXM/src/kan96xx/Doc/printhelp.sm1	1999/11/10 01:46:42	1.3
+++ OpenXM/src/kan96xx/Doc/printhelp.sm1	2001/08/12 07:20:37	1.4
@@ -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,11 +40,31 @@
  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
@@ -79,7 +95,6 @@
    (\noindent ) messagen   
    [(parse) (intw.sm1)pushfile] extension ( ) message
 
-  (\begin{enumerate}) message
 %%        Offverbose must be the smallest
   /keys [(Offverbose) (ann-t-f) (appell1)  (bfunction) (rank) 
          (rrank) (characteristic)  (ch)
@@ -103,13 +118,12 @@
   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