Changeset 917fb5 in git for Singular/LIB/latex.lib

Timestamp:

Jul 6, 1999, 5:33:00 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

8e7ed6b81b8840e62d72f281eef096b71dc1b37e

Parents:

ce7ba606241efb95de4d1ab5581428b7143b3be2

Message:

* hannes: removed pause; (scanner.l, febase.*)
          introduced pause([string]) (standard.lib)


git-svn-id: file:///usr/local/Singular/svn/trunk@3237 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/latex.lib (modified) (149 diffs)

Singular/LIB/latex.lib

@@ -1 @@
-// $Id: latex.lib,v 1.7 1999-07-06 11:33:00 obachman Exp $   
+// $Id: latex.lib,v 1.8 1999-07-06 15:32:52 Singular Exp $
 //                        1998/04/17
 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de
-// 
+//
 ///////////////////////////////////////////////////////////////////////////////
 
@@ -26 +26 @@
  xdvi(s);             calls xdvi for dvi-file s
          (parameters in square brackets [] are optional)
- 
-GLOBAL VARIABLES: 
+
+GLOBAL VARIABLES:
   TeXwidth, TeXnofrac, TeXbrack, TeXproj, TeXaligned, TeXreplace, NoDollars
-                  are used to control the typesetting  
+                  are used to control the typesetting
     Call example texdemo; to become familiar with the features of latex.lib
 
@@ -45 +45 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc closetex(string fname, list #) 
+proc closetex(string fname, list #)
 "USAGE:   closetex(fname[,style]); fname,style = string
 RETURN:  nothing; writes a LaTeX2e closing line into file fname
-NOTE:    style overwrites the default setting latex2e; maybe latex,amstex,tex 
-         preceeding >> end ending \".tex\" may miss in fname; 
+NOTE:    style overwrites the default setting latex2e; maybe latex,amstex,tex
+         preceeding >> end ending \".tex\" may miss in fname;
          overwriting an existing file is not possible
 EXAMPLE: example closetex; shows an example
 "
 {
-  string default = "latex2e";    
+  string default = "latex2e";
   string s;
   int i = 1;
@@ -61 +61 @@
   if (size(#)) { default = #[1];}
 
-  if (default=="latex2e" or default == "latex") 
+  if (default=="latex2e" or default == "latex")
    {  s = "\\end{document}"; flag = 1;}
   if (default=="amstex") {s = "\\enddocument"; flag = 1;}
   if (default=="tex") {s = "\\bye"; flag = 1;}
-  if (not(flag)) { s = "";} 
-
-  if (size(fname))                     
+  if (not(flag)) { s = "";}
+
+  if (size(fname))
   {
    while (fname[i]==">"){i++;}
    fname = fname[i,size(fname)-i+1];
- 
+
    if (size(fname)>=4)               // check if filename is ending with ".tex"
    { if(fname[size(fname)-3,4]!=".tex") {fname = fname +".tex"; }
@@ -77 +77 @@
    else {fname = fname + ".tex";}
    write(fname, s);
-   write(fname," - Thanks latex.lib and Singular - "); 
-  }
-  else {return(s);} 
+   write(fname," - Thanks latex.lib and Singular - ");
+  }
+  else {return(s);}
 }
 example
@@ -92 +92 @@
 "USAGE:   tex(fname[,style]); fname,style = string
 RETURN:  nothing; calls latex2e for compiling the file fname
-NOTE:    style overwrites the default setting latex2e; maybe latex,amstex,tex 
-         ending ".tex" may miss in fname        
+NOTE:    style overwrites the default setting latex2e; maybe latex,amstex,tex
+         ending ".tex" may miss in fname
 EXAMPLE: example tex; shows an example
 "
-{ 
+{
   string default = "latex2e";
-  int retval;          
+  int retval;
   int i=1;
 
@@ -107 +107 @@
    while (fname[i]==">"){i++;}
    fname = fname[i,size(fname)-i+1];
- 
+
    if (size(fname)>=4)               // check if filename is ending with ".tex"
    { if(fname[size(fname)-3,4]!=".tex") {fname = fname +".tex"; }
@@ -113 +113 @@
    else {fname = fname + ".tex";}
    "calling ",default, " for :",fname,newline;
- 
+
    retval = system("sh",default + " " +  fname);
   }
@@ -135 +135 @@
   tex("exp002","tex");
   echo = 0;
-  print("the created files will be deleted after pressing <RETURN> ");
-  pause;
+  pause("the created files will be deleted after pressing <RETURN>");
   echo = 2;
   system("sh","rm -i exp00?.*");
@@ -142 +141 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc opentex(string fname, list #)         
+proc opentex(string fname, list #)
 "USAGE:   opentex(fname[,style]); fname,style = string
 RETURN:  nothing; writes as LaTeX2e header into a new file fname
 NOTE:    suffix .tex may miss in fname
-         style overwrites the default setting latex2e; may be latex,amstex,tex 
+         style overwrites the default setting latex2e; may be latex,amstex,tex
 EXAMPLE: example opentex; shows an example
 "
-{ 
+{
   string default = "latex2e";
   string s;
@@ -157 +156 @@
   if (size(#)) { default = #[1];}
 
-  if (default == "latex2e")          // the default  latex2e header 
-  { s =      
+  if (default == "latex2e")          // the default  latex2e header
+  { s =
       "\\documentclass[12pt]{article}" + newline +
    //   "\\usepackage{fullpage,amsmath,amscd,amsthm,amssymb,amsxtra,latexsym,epsfig}" + newline +
       "\\usepackage{amsmath,amssymb}" + newline +
-      "\\parindent=0pt" + newline + 
-      "\\newcommand{\\C}{{\\Bbb C}}" + newline + 
-      "\\newcommand{\\F}{{\\Bbb F}}" + newline + 
+      "\\parindent=0pt" + newline +
+      "\\newcommand{\\C}{{\\Bbb C}}" + newline +
+      "\\newcommand{\\F}{{\\Bbb F}}" + newline +
       "\\newcommand{\\N}{{\\Bbb N}}" + newline +
    // "\\newcommand{\\P}{{\\Bbb P}}" + newline +
-      "\\newcommand{\\Q}{{\\Bbb Q}}" + newline + 
+      "\\newcommand{\\Q}{{\\Bbb Q}}" + newline +
       "\\newcommand{\\R}{{\\Bbb R}}" + newline +
       "\\newcommand{\\T}{{\\Bbb T}}" + newline +
@@ -175 +174 @@
   }
   if (default == "latex")
-  { s =      
+  { s =
       "\\documentstyle[12pt,amstex]{article}" + newline +
       "\\parindent=0pt" + newline +
-      "\\newcommand{\\C}{{\\Bbb C}}" + newline + 
-      "\\newcommand{\\F}{{\\Bbb F}}" + newline + 
+      "\\newcommand{\\C}{{\\Bbb C}}" + newline +
+      "\\newcommand{\\F}{{\\Bbb F}}" + newline +
       "\\newcommand{\\N}{{\\Bbb N}}" + newline +
    // "\\newcommand{\\P}{{\\Bbb P}}" + newline +
-      "\\newcommand{\\Q}{{\\Bbb Q}}" + newline + 
+      "\\newcommand{\\Q}{{\\Bbb Q}}" + newline +
       "\\newcommand{\\R}{{\\Bbb R}}" + newline +
       "\\newcommand{\\T}{{\\Bbb T}}" + newline +
@@ -188 +187 @@
       "\\begin{document}";
     flag = 1;
-  } 
-  if (default == "amstex") 
-  { s = 
+  }
+  if (default == "amstex")
+  { s =
      "\\documentstyle{amsppt} " + newline + newline +
      "\\document";
-    flag = 1; 
-  }
-
-  if (default == "tex") 
-  { s = 
-     ""; 
+    flag = 1;
+  }
+
+  if (default == "tex")
+  { s =
+     "";
     flag = 1;
   }
@@ -207 +206 @@
   if (not(flag)) { s = "";}
 
-  if (size(fname))                     
+  if (size(fname))
   {
    while (fname[i]==">"){i++;}
@@ -219 +218 @@
    write(fname,s);
   }
-  else {return(s);}   
+  else {return(s);}
 }
 example
@@ -229 +228 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc texdemo(list #) 
+proc texdemo(list #)
 "USAGE:   texdemo();
 RETURN:  nothing; generates automatically a LaTeX2e file called: texlibdemo.tex
          explaining the  features of latex.lib and its gloabl variables
-NOTE:    this proc takes a minutes         
+NOTE:    this proc takes a minutes
 EXAMPLE: example texdemo; executes the generation
 "
@@ -239 +238 @@
   string fname = "texlibdemo";
 
-  if (size(#)) 
-  { if (typeof(#[1])=="int") {TeXdemostart = #[1];}  
+  if (size(#))
+  { if (typeof(#[1])=="int") {TeXdemostart = #[1];}
   }
   system("random",TeXdemostart);
-  
+
   if (size(#) ==2)
   { if (typeof(#[2]) == "string") { fname = #[2];}
@@ -274 +273 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc texfactorize(string fname, poly f, list #) 
+proc texfactorize(string fname, poly f, list #)
 "USAGE:   opentex(fname,f); fname = string; f = poly
 RETURN:  string, the poly as as product of its irreducible factors
                  in TeX-typesetting if fname == empty string;
-         otherwise append this to file fname.tex; return nothing  
-NOTE:    preceeding >> end ending \".tex\" may miss in fname 
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding >> end ending \".tex\" may miss in fname
 EXAMPLE: example texfactorize; shows an example
 "
@@ -295 +294 @@
   else { D = ""; }
   TW = defined(TeXwidth);
-  if (TW) {Tw = TeXwidth; TeXwidth = -1;}  
+  if (TW) {Tw = TeXwidth; TeXwidth = -1;}
   else {int TeXwidth = -1; export TeXwidth;}
 
@@ -312 +311 @@
     if(size(g)>1 or (size(g)==1 and k>1))
     { t = "(" + texpoly("",l[1][i]) + ")";}
-    else { t =  texpoly("",l[1][i]);} 
+    else { t =  texpoly("",l[1][i]);}
     if (l[2][i]>1)
     { t = t+"^{" +string(l[2][i]) + "}";}
@@ -321 +320 @@
    if (TW) {TeXwidth = Tw;}
   }
-  if(size(fname)) 
+  if(size(fname))
   { i=1;
     while (fname[i]==">"){i++;}
@@ -342 +341 @@
   minpoly = a2 +a +3;
   poly f = (a24x5 + x3)*a2x6*(x+1)^2;
-  f; 
+  f;
   texfactorize("",f);
 }
@@ -351 +350 @@
 RETURN:  string, the map m from @r1 to @r2 preeceded by its name if m = string
                  in TeX-typesetting if fname == empty string;
-         otherwise append this to file fname.tex; return nothing  
-NOTE:    preceeding >> end ending \".tex\" may miss in fname 
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding >> end ending \".tex\" may miss in fname
 EXAMPLE: example texmap; shows an example
 "
-{ 
+{
   int saveDollars= defined(NoDollars);
   int TX = defined(TeXwidth);
@@ -371 +370 @@
   { int i;
 
-    for(i=1;i<=size(TeXreplace);i++) 
+    for(i=1;i<=size(TeXreplace);i++)
     { if (TeXreplace[i][1]==s) {s= TeXreplace[i][2]; break;}}
     return(s);
   }
-  
+
 // --- store all actual informations
   if(TX) { Tw = TeXwidth; TeXwidth = -1;}
@@ -429 +428 @@
   t = t + texpoly("",@J[1]);
   for (i=2;i<=n; i++)
-  {if(defined(TeXaligned)) 
+  {if(defined(TeXaligned))
    { t = t + vrg + texpoly("",@J[i]); }
    else { t = t + "\\\\" + newline + texpoly("",@J[i]);}
@@ -479 +478 @@
   else {return(s);}
 }
-example 
+example
 { "EXAMPLE:"; echo = 2;
   string fname = "tldemo";
@@ -494 +493 @@
   texmap("",phi,r1,r2,"\\C");
   kill r1,r2,TeXreplace,TeXaligned;
-}       
+}
 ///////////////////////////////////////////////////////////////////////////////
 
-proc texname(string fname, string s) 
+proc texname(string fname, string s)
 "USAGE:   texname(fname,s);  fname,s = string
 RETURN:  the string s if fname == the empty string
-         otherwise append s to file fname.tex; return nothing 
-NOTE:    preceeding >> end ending \".tex\" may miss in fname         
+         otherwise append s to file fname.tex; return nothing
+NOTE:    preceeding >> end ending \".tex\" may miss in fname
 EXAMPLE: example texname; shows an example
 "
@@ -528 +527 @@
   if (s[i]=="[") { anf = i+1;
    while(s[i]!="]"){i++;}                    // matrices and vectors
-    st = st + "_{" + s[anf,i-anf] + "}"; n = n+ 5*(i-anf); i++; 
+    st = st + "_{" + s[anf,i-anf] + "}"; n = n+ 5*(i-anf); i++;
   // besser: while s[i]<> nwline : scan forward: end, return
   }
@@ -538 +537 @@
   n = n+5*(i-anf);
   anf =i;            // the next text in ( , ) as exponent
-  if (op) { if (s[i]== ","){anf = anf+1;}             
+  if (op) { if (s[i]== ","){anf = anf+1;}
    while(s[i] !=")"){ i++;}
    if (i<>anf){st = st + "^{" + s[anf,i-anf] + "}"; n = n +5*(i-anf);}
@@ -577 +576 @@
 "USAGE:   texobj(fname,l); fname = string,l = list of Singular dataypes
 RETURN:  string, the objects in TeX-typesetting if fname == empty string;
-         otherwise append this to file fname.tex; return nothing    
-NOTE:    preceeding ">>" end ending ".tex" may miss in fname;         
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding ">>" end ending ".tex" may miss in fname;
 EXAMPLE: example texobj; shows an example
 "
@@ -591 +590 @@
  string D,DA,DE = "$","\\begin{equation*}" + newline,
                      "\\end{equation*}"+ newline;
- string OB,CB = "(",")"; 
+ string OB,CB = "(",")";
  if (defined(TeXbrack))
  {// if (TeXbrack=="(") {OB = "("; CB = ")";}
@@ -610 +609 @@
  proc absterm(poly f)
  { int k;
-   
+
    for (k=1; k<=nvars(basering); k++)
    { f = subst(f,var(k),0); }
@@ -618 +617 @@
 
  if (size(#)==1)
- { if (typeof(#[1])=="int" or typeof(#[1])=="intvec" or typeof(#[1])=="vector" 
+ { if (typeof(#[1])=="int" or typeof(#[1])=="intvec" or typeof(#[1])=="vector"
    or typeof(#[1])=="number" or defined(TeXaligned)) { DA = D; DE = D; } }
 
@@ -625 +624 @@
  for (k=1; k<=size(#); k++)
  { def obj = #[k];
-   if (typeof(obj) == "string") 
+   if (typeof(obj) == "string")
    { if (defined(`obj`))
-     { if (typeof(`obj`)=="ideal") 
+     { if (typeof(`obj`)=="ideal")
        { Iname = obj; def e = `obj`;
          kill obj; def obj = e; kill e;}
@@ -635 +634 @@
    }
    if (typeof(obj) == "int") { s = s + "  " + string(obj) + "  ";}
- 
-   if (typeof(obj) == "intvec") 
+
+   if (typeof(obj) == "intvec")
    { s = s + "  (";
      for(j=1; j<size(obj);j++) { s = s + string(obj[j]) + sep;}
@@ -642 +641 @@
    }
 
-   if (typeof(obj) == "number" ) 
+   if (typeof(obj) == "number" )
    { s = s + texpoly("",obj) + newline;
    }
@@ -654 +653 @@
    }
 
-   if (typeof(obj) == "vector") 
+   if (typeof(obj) == "vector")
    { if (obj==0) { s = s  + "0" ;}
      else
@@ -665 +664 @@
     }
 
-   if (typeof(obj) == "ideal") 
+   if (typeof(obj) == "ideal")
    { if (size(Iname))   // verwende hier align
      { if (Tw==0) {TeXwidth = -1;}
@@ -673 +672 @@
       //  { untereinander }
       // else { hintereinander }
-      //  
-      //  
-      //  s = s + Iname + "=" + texpoly("",obj,","); 
+      //
+      //
+      //  s = s + Iname + "=" + texpoly("",obj,",");
       //  siehe ebenso noch einmal am Ende : ! (TeXwidth <> 0 !? )
 
        s =  s + "\\begin{array}{rcl}" + newline;
        for (i=1;i<=size(matrix(obj));i++)
-       { s =  s + Iname+ "_{" + string(i) + "} & = & " 
+       { s =  s + Iname+ "_{" + string(i) + "} & = & "
                + texpoly("",obj[i]);
          if (i<size(matrix(obj))){ s = s  + "\\\\" + newline;}
@@ -689 +688 @@
        Iname ="";
      }
-     else 
-     {  
-      if (TeXwidth==0) 
+     else
+     {
+      if (TeXwidth==0)
       { TeXwidth = -1;
         obj= simplify(obj,2);
@@ -711 +710 @@
         }
         else   // linear
-        { s = s +  
+        { s = s +
    "\\begin{array}{*{" + string(2*nvars(basering)-1) + "}{c}cr}" + newline;
-           for(j=1; j<=size(obj);j++) 
-           { h = absterm(obj[j]); 
+           for(j=1; j<=size(obj);j++)
+           { h = absterm(obj[j]);
              ineq = attrib(obj[j],"ineq");
              if(!(size(ineq))) { ineq = "=" ; }
@@ -725 +724 @@
                 { if (t[1]!="-" and t[1]!= " " and nc ){sg = "+";}
                   if  (t[1]=="-") { sg = "-"; nc =1; t=t[2,size(t)-1];}
-                  if (t==" ") {sg ="";}  
+                  if (t==" ") {sg ="";}
                   l = l + " & " + sg + " & " + t;
                 }
@@ -744 +743 @@
      if (defined(TeXaligned))
      { s = s + texpoly("",obj,",");
-     } 
+     }
      else
      { s = s + newline + "\\begin{array}{c}" + newline +
-               texpoly("",obj,", \\\\" + newline) + 
+               texpoly("",obj,", \\\\" + newline) +
                 newline + "\\end{array}" + newline;
      }
     s = s + "\\right" + CB;
-    } // end TeXwidth <> 0 
+    } // end TeXwidth <> 0
    }  // not Iname
 // s;
   }
 
-   if (typeof(obj) == "module") 
+   if (typeof(obj) == "module")
    { M = matrix(obj);
      if (Tw ==0 or Tw > 9) { TeXwidth = -1;}
@@ -762 +761 @@
      if (!(defined(TeXaligned)))
      {  // Naechste Zeile nicht notwendig !
-     // s = s + "\\begin{array}{*{"+ string(ncols(M)) + "}{c}}" + newline; 
-      for(j=1;j<=ncols(M);j++) 
+     // s = s + "\\begin{array}{*{"+ string(ncols(M)) + "}{c}}" + newline;
+      for(j=1;j<=ncols(M);j++)
       { l = "\\left" + OB + newline + "\\begin{array}{c}" + newline;
         l = l + texpoly("",ideal(M[1..nrows(M),j]), " \\\\" + newline)
@@ -772 +771 @@
      }
      else    // TeXaligned
-     { 
-      for(j=1;j<=ncols(M);j++) 
+     {
+      for(j=1;j<=ncols(M);j++)
       { s = s + "\\left" + OB + newline +
            texpoly("",ideal(M[1..nrows(M),j]),",") + newline + "\\right" + CB;
@@ -787 +786 @@
      l = "";
    //  M = transpose(obj);
-     s = s + "\\left" + OB + newline + 
+     s = s + "\\left" + OB + newline +
              "\\begin{array}{*{"+ string(ncols(obj)) + "}{c}" + "}"+ newline;
      for(i=1;i<=nrows(obj);i++)
@@ -794 +793 @@
      }
      l = l + newline;
-     s = s + l + "\\end{array}" + newline + 
+     s = s + l + "\\end{array}" + newline +
                  "\\right" + CB + newline;
     TeXwidth = Tw;
   }
-  
+
    if (typeof(obj) == "intmat")
    { nr,nc = nrows(obj),ncols(obj);
      l = "";
-     l =  "\\left" + OB + newline + 
+     l =  "\\left" + OB + newline +
           "\\begin{array}{*{"+ string(nc) + "}{r}}"+ newline;
      for(i=1;i<=nr;i++)
-     { for(j=1;j<=nc;j++) 
+     { for(j=1;j<=nc;j++)
        { l = l + string(obj[i,j]);
          if (j <nc ) { l = l + " & ";}
@@ -811 +810 @@
        }
      }
-     l = l + newline + "\\end{array}" + newline + 
+     l = l + newline + "\\end{array}" + newline +
              "\\right" + CB + newline;
-    s = s + l; 
+    s = s + l;
   }
 
@@ -854 +853 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc texproc(string fname,string pname) 
+proc texproc(string fname,string pname)
 "USAGE:   opentex(fname,pname); fname,pname = string
-RETURN:  string, the proc in a verbatim environment in TeX-typesetting 
+RETURN:  string, the proc in a verbatim environment in TeX-typesetting
                  if fname == empty string;
-         otherwise append this to file fname.tex; return nothing  
-NOTE:    preceeding >> end ending \".tex\" may miss in fname; 
-CAUTION: texproc cannot applied on itself correctly         
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding >> end ending \".tex\" may miss in fname;
+CAUTION: texproc cannot applied on itself correctly
 EXAMPLE: example texproc; shows an example
 "
@@ -900 +899 @@
     { if(fname[size(fname)-3,4]!=".tex") {fname = fname +".tex"; }
     }
-    else {fname = fname + ".tex";} 
+    else {fname = fname + ".tex";}
     write(fname,s);
   }
-  else{return(s);}      
+  else{return(s);}
 }
 example
@@ -918 +917 @@
   }
   export exp;
-  texproc("","exp"); 
+  texproc("","exp");
 }
 
 ///////////////////////////////////////////////////////////////////////////////
 
-proc texring(string fname, def r, list #) 
+proc texring(string fname, def r, list #)
 "USAGE:   texring(fname, r[,l]); fname = string; r = ring;
          l=list of strings : controls the symbol for
-         coefficient field etc. see example texdemo(); 
+         coefficient field etc. see example texdemo();
 RETURN:  string, the ring in TeX-typesetting if fname == empty string;
-         otherwise append this to file fname.tex; return nothing    
-NOTE:    preceeding >> end ending \".tex\" may miss in fname;        
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding >> end ending \".tex\" may miss in fname;
 EXAMPLE: example texring; shows an example
 "
-{ 
+{
   int i,galT,flag,mipo,nopar,Dollars,TB,TA;
   string ob,cb,cf,en,s,t,savebrack; //opening bracket, closing br, coef.field
@@ -939 +938 @@
 
   proc tvar(intvec v)
-  { 
+  {
     int i,j,ldots;
     string s;
-    
+
     j = 1;
     s = texpoly("",var(1));
-    
+
     if (nvars(basering)==1) { return(s);}
     if (nvars(basering)==2) { return(s + "," + texpoly("",var(2)));}
@@ -957 +956 @@
         ldots =1;
       }
-      if (i== v[j]) 
+      if (i== v[j])
       { s = s + "," + texpoly("",var(i));
         ldots =0;
@@ -986 +985 @@
   if (size(#))
   { if (typeof(#[1])=="list") { # = #[1];}
-  } 
+  }
   for (i=1;i<=size(#);i++)
   { flag =0;
@@ -1018 +1017 @@
    s = s + texpoly("",par(npars(r))) + ")";
   }                               // parameters done
-  if (!(galT) and mipo and minpoly!=0) 
+  if (!(galT) and mipo and minpoly!=0)
   { s = s + "/" + list(parsp(string(minpoly),0))[1];}
   s = s + ob;
@@ -1029 +1028 @@
   if (typeof(r)=="qring")
   { ideal @I = ideal(r);
-    if (defined(TeXbrack)) 
+    if (defined(TeXbrack))
     {
-      TB =1; savebrack = TeXbrack; 
+      TB =1; savebrack = TeXbrack;
       if (TeXbrack!= "<" and TeXbrack!="(") { TeXbrack = "<";}
     }
@@ -1044 +1043 @@
   }
 
-  if (Dollars) 
+  if (Dollars)
   { kill NoDollars;
     s =  "$" + s + "$";
@@ -1060 +1059 @@
   }
   else{return(s);}
-} 
+}
 example
 { "EXAMPLE:"; echo=2;
   ring r0 = 0,(x,y,z),dp;       // short varnames polynomial ordering
   texring("",r0);
-  ring r7 =0,(x(0..2)),ds;      // char =7, long varnames 
+  ring r7 =0,(x(0..2)),ds;      // char =7, long varnames
   texring("",r7);
   ring r1 = 0,(x1,x2,y1,y2),wp(1,2,3,4);
@@ -1074 +1073 @@
   texring("",rr);
   ring r;
-  texring("",r); 
+  texring("",r);
   ring rabc =(0,t1,t2,t3),(x,y),dp;  // parameters
   texring("",rabc);
@@ -1082 +1081 @@
   texring("",ralg,"mipo");
   ring r49=(49,a),x,dp;              // Galoisfield
-  texring("",r49);  
+  texring("",r49);
   setring r0;
   ideal i = x2-z,xy2+1;
@@ -1094 +1093 @@
   intvec v = 5,6;
   texring("",rxy,v);
-  texring("",r0,"C","{"); 
+  texring("",r0,"C","{");
   texring("",ralg,"k");
   texring("",r7,"^G");
@@ -1110 +1109 @@
 proc rmx(string fname)
 "USAGE:   rmx(fname); fname = string
-RETURN:  nothing; removes .log and .aux files associated to file <fname>      
+RETURN:  nothing; removes .log and .aux files associated to file <fname>
          removes tex and xdvi file too, if suffix \".tex\" or \".dvi\" is given
-NOTE:    if fname ends by .dvi or .tex 
-         fname.dvi or fname.dvi and fname.tex will be deleted, too           
+NOTE:    if fname ends by .dvi or .tex
+         fname.dvi or fname.dvi and fname.tex will be deleted, too
 EXAMPLE: example rmx; shows an example
 "
 {
   int i,suffix= 1,0;
-  int retval;  
+  int retval;
 
   if (size(fname))
@@ -1128 +1127 @@
      if (fname[size(fname)-3,4]==".dvi") { suffix = 1; }
      if (suffix) { fname = fname[1,size(fname)-4]; }
-   } 
+   }
    retval = system("sh","rm " + fname + ".aux");
    retval = system("sh","rm " + fname + ".log");
@@ -1137 +1136 @@
   {" -- Need a filename ";
     return();
-  } 
+  }
 }
 example
@@ -1155 +1154 @@
   rmx("exp002.tex");  // removes aux, log, dvi and tex file of exp002
   echo = 0;
-  print("remaining files will be deleted after pressing <RETURN> ");
-  pause;
+  pause("remaining files will be deleted after pressing <RETURN>");
   echo = 2;
   system("sh","rm -i exp00?.*");
@@ -1172 +1170 @@
   int i=1;
   int retval;
-  string default = "xdvi";  
-  
+  string default = "xdvi";
+
   if (size(#)) {default = string(#[1]);}
-  
+
   if (size(fname))
   {
@@ -1183 +1181 @@
    if (size(fname)>=4)
    { if(fname[size(fname)-3,4]==".tex") {fname = fname[1,size(fname)-4];}}
-  
-   "calling ",default, " for :",fname,newline; 
- 
+
+   "calling ",default, " for :",fname,newline;
+
    retval = system("sh",default + " " +  fname + " &");
   }
@@ -1203 +1201 @@
   xdvi("exp001");
   echo = 0;
-  print("the created files will be deleted after pressing <RETURN> ");
-  pause;
+  pause("the created files will be deleted after pressing <RETURN>");
   echo = 2;
-  system("sh","rm -i exp00?.*");  
+  system("sh","rm -i exp00?.*");
 }
 ///////////////////////////////////////////////////////////////////////////////
@@ -1213 +1210 @@
 "USAGE:   texpoly(fname,p[,l]); fname = string; p = poly,ideal; l formation str
 RETURN:  string, the objects in TeX-typesetting if fname == empty string;
-         otherwise append this to file fname.tex; return nothing    
-NOTE:    preceeding ">>" end ending ".tex" may miss in fname;      
+         otherwise append this to file fname.tex; return nothing
+NOTE:    preceeding ">>" end ending ".tex" may miss in fname;
 EXAMPLE: example texpoly; shows an example
 "
-{ 
+{
   def @r = basering;
 
@@ -1225 +1222 @@
   string sign,cfmt,pt,s,bg,t,monomt,  lnbreak;
   string sep = newline;
-  int i,b,b2,n, msz,linesz, count,k; 
+  int i,b,b2,n, msz,linesz, count,k;
   int realT, parT, galT;
   int C = 2 + defined(TeXdisplay);
@@ -1234 +1231 @@
   if (typeof(p)  == "ring" or typeof(p) == "qring")
   { " -- Call  texring  instead "; return();}
-  if (find(notvalid,typeof(p))) 
+  if (find(notvalid,typeof(p)))
   { " -- Call  texobj  instead "; return();}
   if (typeof(p)  == "map")
@@ -1247 +1244 @@
 
   proc parsr(string s)                     // parse real
-  { string t; 
-                             
-    if (s=="      Inf") { return("\\infty",3);}   
+  { string t;
+
+    if (s=="      Inf") { return("\\infty",3);}
     if (s=="     -Inf") { return("\\-infty",6);}
     if (s[7]=="-"){t ="-";}
     if (s[8]<>"0"){t = t + s[8];}
     if (s[9]<>"0" or s[8]<>"0"){t = t + s[9];}
-    if (size(t)) 
+    if (size(t))
     { if (t=="1") {return(s[1,5]+"*10",21);}
       if (size(t)>1) {return(s[1,5]+"*10^{"+t+"}",21+2*size(t));}
@@ -1265 +1262 @@
   { int i,j = 1,1;
     string t;
-    
+
     if (short)
-    { t =s[1]; 
+    { t =s[1];
      if(size(s)>1) {return(t+"^{" + s[2,size(s)-1] + "}",3+2*(size(s)-1));}
-     else{return(t,5);}     
+     else{return(t,5);}
     }
     else
     { return(parselong(s+"!"));}
   }
-  
+
   if (defined(TeXdisplay)) { bg = "& ";}
   if (!(defined(TeXwidth))) { int TeXwidth = -1; export TeXwidth;}
@@ -1280 +1277 @@
 
 // -- Type check
- 
+
  if (typeof(p)=="string")
   { if(defined(`p`))
-    { pt = p + " = "; 
-      p = `p`; 
+    { pt = p + " = ";
+      p = `p`;
     }
   }
   if (typeof(p)=="poly" or typeof(p)=="number") {I = p;}
- 
-  if (typeof(p)=="ideal") 
+
+  if (typeof(p)=="ideal")
   { I = p;
     if(size(#)){ sep = #[1];}
   }
 
-  if (I==0) 
+  if (I==0)
   { if (!(defined(NoDollars))){return("$0$");}
     else {return("0");}
   }
 
-// -- Type check ende 
-
-//--------------------- 
+// -- Type check ende
+
+//---------------------
 
 
 //------- set flags: --------------------------------------------------------
-   
+
   if (size(#))
   { if (typeof(#[1])=="int") { linesz = #[1];}
@@ -1317 +1314 @@
   { t = charstr(@r)[1,i-1];
     galT = (t <> string(char(@r)));  // the char is not the same as the ...
-  } 
+  }
   i = 0;
-  
+
 //------- parse the polynom
   pt = bg;
- 
+
  for(k=1;k<=size(matrix(I));k++)
  { i = 0; linesz = 0; count =0;
-   sign =""; 
+   sign ="";
    f = I[k];
    if (f==0) { pt = pt + "0";}
@@ -1332 +1329 @@
 
 // ------ tex the coefficient
-    monom = lead(f);    
-    f = f - monom;       
+    monom = lead(f);
+    f = f - monom;
     cfm = leadcoef(monom);
     if (cfm*1 != 0) { monom = monom/cfm;} // the normalized monom
     s = string(monom) + "!";              // add a terminating sign
     cfmt = "";
-    
+
     if (defined(TeXreplace)) { short =0;}  // this is essential
     cfmt = string(cfm);
@@ -1362 +1359 @@
      if (b) {b++;}
      n = size(cfmt);
-     if (!(parT) and  !(realT) and !(galT))   
-     { if( !(b2) or defined(TeXnofrac)) 
+     if (!(parT) and  !(realT) and !(galT))
+     { if( !(b2) or defined(TeXnofrac))
        { monomt = cfmt; msz = 3*size(monomt);}
        else
@@ -1377 +1374 @@
 // -- now parse the monom
     if (monom <> 1)
-    { i = 1;    
+    { i = 1;
       if(short)
       { while(s[i]<>"!")
-        { monomt = monomt + s[i]; i++; 
+        { monomt = monomt + s[i]; i++;
           b = i;
           msz = msz + 3; // it was a single lettered var
@@ -1396 +1393 @@
       }
     }
-    
+
 
 
@@ -1403 +1400 @@
 
    if (TeXwidth > 10 and (linesz + msz > 3*TeXwidth) and linesz)
-   { pt = pt + lnbreak + bg; 
-     linesz = msz; 
+   { pt = pt + lnbreak + bg;
+     linesz = msz;
    }
-   else { linesz = linesz + msz; }  // 3 for sign 
+   else { linesz = linesz + msz; }  // 3 for sign
     pt = pt + sign + monomt;
    sign = "+";
@@ -1430 +1427 @@
    }
   else {return(pt);}
-}   
+}
 example
 { "EXAMPLE:"; echo =2;
@@ -1437 +1434 @@
   texpoly("",f);
   texpoly("",2x2y23z);
-  
+
 
   ring rr= real,(x,y),dp;
@@ -1448 +1445 @@
   f;
   texpoly("",f);
-}     
+}
 
 static proc parsp(string cfmt, int b)
@@ -1489 +1486 @@
 // sec parameter to see if in parsp a fraction follows
 { int i,j =1,-1;
-  int b,k,jj,mz;                         // begin and end 
+  int b,k,jj,mz;                         // begin and end
   int saveshort=short;
             string t,c,vn,nom,denom,sg;
@@ -1784 +1781 @@
  if(system("with","Namespaces")) { exportto(Current,splt); }
  else { export splt; }
-                
+
 // string fname = "texlibdemo.tex";
  string nl = newline;
@@ -1811 +1808 @@
  Singular in \\LaTeX \\ text.
  Most of the examples in this document are generated
- randomly by Singular itself and passed through the procs from 
- \\verb|latex.lib|. Consequently, 
+ randomly by Singular itself and passed through the procs from
+ \\verb|latex.lib|. Consequently,
  every document does not show merely how the \\verb|latex.lib| works
  but looks differently in large parts.");
@@ -1843 +1840 @@
 ev);
 
-write(fname,"A flag means in the following that a variable with the indicated 
+write(fname,"A flag means in the following that a variable with the indicated
 name has to be defined. Usually it is from type \\verb|int|.");
 
@@ -1858 +1855 @@
   TeXreplace    : list, entries twoelemented list for replacing symbols
   NoDollars     : (int) flag, suppresses surrounding \\$ signs
-   
+
 " +
 ev);
@@ -1913 +1910 @@
 "> ring r0=0,(x,y,z),dp;                       texring(fname,r0);
 > poly g = -x2y +2y13z +1; g;                 texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
  splt(string(f)) + nl2 +
@@ -1930 +1927 @@
 write(fname,
 bv +
-"> f = f/280; 
+"> f = f/280;
 > texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
 );
@@ -1944 +1941 @@
  if(system("with","Namespaces")) { exportto(Current, r1); }
  else { export r1; }
- poly g = -2*x1 +x4 -1;                    
+ poly g = -2*x1 +x4 -1;
  poly f = randompoly(5,25,25); f; export f;
 write(fname,
@@ -1950 +1947 @@
 "> ring r1=7,(x1,x2,x3,x4),Ds;                 texring(fname,r1);
 > poly g =  -2*x1 +x4 -1; g;                  texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,r1);             write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -1965 +1962 @@
 " +nl);
  ring r2=0,(x(1..5),y(1..2)),(ds(5),dp(2));
- poly g = -y(1)*x(5) +y(1)*x(2); g;           
+ poly g = -y(1)*x(5) +y(1)*x(2); g;
  poly f = randompoly(5,25,25); f;
 write(fname,
@@ -1971 +1968 @@
 "> ring r2=0,(x(1..5),y(1..2)),(ds(5),dp(2));  texring(fname,r2);
 > poly g = -y(1)*x(5) +y(1)*x(2); g;          texpoly(fname,g);"  +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
-ev 
-); 
+ splt(string(f)) + nl2 +
+ev
+);
   texring(fname,r2);             write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -1988 +1985 @@
  if(system("with","Namespaces")) { exportto(Current, r3); }
  else { export r3; }
- poly g = -x_1*x_2 + 2*x_2*x_3 + x_1*x_3; g;     
+ poly g = -x_1*x_2 + 2*x_2*x_3 + x_1*x_3; g;
  poly f = randompoly(5,25,25); f;            export f;
 write(fname,
@@ -1994 +1991 @@
 "> ring r3=0,(x_1,x_2,x_3),wp(3,2,1);          texring(fname,r3);
 > poly g = -x_1*x_2 + 2*x_2*x_3 + x_1*x_3; g; texpoly(fname,g);"  +nl +
-  string(g) + nl + 
+  string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,r3);             write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2008 +2005 @@
 " A ring with real coefficients and matrix ordering.
 " +nl);
- ring rr =real,(x,y),M(1,2,3,4);            
- poly g = -1.2e-10*x + y +1;    
+ ring rr =real,(x,y),M(1,2,3,4);
+ poly g = -1.2e-10*x + y +1;
  poly f = randompoly(5,25,25); f;
 write(fname,
@@ -2015 +2012 @@
 "> ring rr =real,(x,y),M(1,2,3,4);             texring(fname,rr);
 > poly g = -1.2e-10*x + y +1; g;              texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,rr);             write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2029 +2026 @@
 " A ring in characteristic 0 and indexed parameters.
 " +nl);
- ring r0t=(0,s,t),(x,y),dp; 
+ ring r0t=(0,s,t),(x,y),dp;
  if(system("with","Namespaces")) { exportto(Current, r0t); }
  else { export r0t; }
- poly g = 8*(-s+2t)/(st+t3)*x + t2*x -1; g;      
+ poly g = 8*(-s+2t)/(st+t3)*x + t2*x -1; g;
  poly f = randompoly(5,25,25); f;  export f;
 write(fname,
@@ -2038 +2035 @@
 "> ring r0t=(0,s,t),(x,y),dp;                  texring(fname,r0t);
 > poly g = 8*(-s+2t)/(st+t3)*x + t2*x -1; g;  texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,r0t);            write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2053 +2050 @@
 " A ring in characteristic 11 and indexed parameters.
 " +nl);
- ring rt=(11003,t1,t2,t3),(X,Y),dp;            
- poly g = 8*(-t1+t2)/(t1+t3)*X + t2*Y -1; g;      
+ ring rt=(11003,t1,t2,t3),(X,Y),dp;
+ poly g = 8*(-t1+t2)/(t1+t3)*X + t2*Y -1; g;
  poly f = randompoly(5,25,25); f;
 write(fname,
@@ -2060 +2057 @@
 "> ring rt=(11003,t1,t2,t3),(X,Y),dp;             texring(fname,rt);
 > poly g = 8*(-t1+t2)/(t1+t3)*X + t2*Y -1; g; texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,rt);             write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2074 +2071 @@
 " A ring over an algebraic extension in char 7.
 " +nl);
- ring ralg = (7,a),x,dp;                 
- minpoly = a2-a+3;                        
- poly g = -(2a13 +a)*x2 + a2*x -a +1; g;         
+ ring ralg = (7,a),x,dp;
+ minpoly = a2-a+3;
+ poly g = -(2a13 +a)*x2 + a2*x -a +1; g;
  poly f = randompoly(5,25,25); f;
 write(fname,
 bv +
-"> ring ralg = (7,a),x,dp;               
+"> ring ralg = (7,a),x,dp;
 > minpoly = a2-a+3;                           texring(fname,ralg);
 > poly g = -(2a13 +a)*x2 + a2*x -a +1; g;    texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,ralg);           write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2095 +2092 @@
 // -8-------- the same ring a in 7 ralg, defined with gftables -- F_49 -------
 write(fname,
-" A ring defined with \\verb|gftables|, the same as \\verb|ralg| before, but 
+" A ring defined with \\verb|gftables|, the same as \\verb|ralg| before, but
 with primitive element in the Galoisfield $\\F_{49}$." +nl);
  ring r49 =(49,a),x,dp;
  if(system("with","Namespaces")) { exportto(Current, r49); }
  else { export r49; }
- poly g = -(2a13 +a)*x2 + a2*x -a +1; g;  export g;    
+ poly g = -(2a13 +a)*x2 + a2*x -a +1; g;  export g;
  poly f = randompoly(5,25,25); f;
 write(fname,
@@ -2106 +2103 @@
 "> ring r49 =(49,a),x,dp;                     texring(fname,r49);
 > poly g = -(2a13 +a)*x2 + a2*x -a +1; g;    texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;           texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,r49);            write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2121 +2118 @@
 " +nl);
  ring ri=(0,i),(x,y,z),ls;
- minpoly = i2 +1;                         
- poly g = -(i+1)*x +2i2y2 +i +x; g;          
+ minpoly = i2 +1;
+ poly g = -(i+1)*x +2i2y2 +i +x; g;
  poly f = randompoly(5,25,25); f;
 write(fname,
@@ -2129 +2126 @@
 > minpoly = i2 +1;                            texring(fname,ri);
 > poly g = -(i+1)*x +2i2y2 +i +x; g;          texpoly(fname,g);" +nl +
- string(g) + nl + 
+ string(g) + nl +
 "> poly f = randompoly(5,25,25); f;            texpoly(fname,f);" +nl +
- splt(string(f)) + nl2 + 
+ splt(string(f)) + nl2 +
 ev
-); 
+);
   texring(fname,ri);              write(fname,lb);
-  texpoly(fname,g);              write(fname,lb); 
+  texpoly(fname,g);              write(fname,lb);
   texpoly(fname,f);              write(fname,lb);
 write(fname,"\\Line");
@@ -2144 +2141 @@
 " +nl);
  setring r0;
- ideal I = x2-y,y+z2, xy;            
+ ideal I = x2-y,y+z2, xy;
  I = std(I);
 string sI = string(I);
@@ -2155 +2152 @@
 > string(I);" + nl +
 splt(sI) + nl +
-"> qring qr = I;                   texring(fname,qr);" + 
+"> qring qr = I;                   texring(fname,qr);" +
 ev
-); 
+);
   texring(fname,qr);              write(fname,lb);
 
@@ -2170 +2167 @@
 // changing the brackets
 
-write(fname,"If the displayed  and defaulted brackets for the ring are not 
+write(fname,"If the displayed  and defaulted brackets for the ring are not
 the rigth one,
 correct brackets my be passed over to \\verb|texring|",nl,
@@ -2180 +2177 @@
 write(fname,
 bv +
-"> texring(fname,rr,\"{{\");" + nl +  
+"> texring(fname,rr,\"{{\");" + nl +
 ev
-); 
+);
 
 texring(fname,rr,"{{");
@@ -2188 +2185 @@
 write(fname,
 bv +
-"> texring(fname,r2,\"[\");" + nl +  
+"> texring(fname,r2,\"[\");" + nl +
 ev
-); 
+);
 
 texring(fname,r2,"[");
@@ -2196 +2193 @@
 write(fname,nl2);
 
-write(fname,nl2,"The brackets around the ideal in a quotientring can be 
-changed  with the global variable \\verb|TeXbrack| (see the section 
+write(fname,nl2,"The brackets around the ideal in a quotientring can be
+changed  with the global variable \\verb|TeXbrack| (see the section
 {\\tt ideal}).",nl);
 
@@ -2204 +2201 @@
 bv +
 "> string TeXbrack = \"<\";
-> texring(fname,qr);  
+> texring(fname,qr);
 > kill TeXbrack;" + nl +
 ev
-); 
+);
 
 string TeXbrack = "<"; export TeXbrack;
@@ -2223 +2220 @@
 write(fname,
 bv +
-"> texring(fname,r3,\"\\\\C\");" + nl +  
+"> texring(fname,r3,\"\\\\C\");" + nl +
 ev
-); 
+);
 
 texring(fname,r3,"\\C");
@@ -2232 +2229 @@
 write(fname,nl2, "naechster abschnitt stimmt nicht"+lb,nl2);
 
-write(fname,"Predefined and accepted values here are 
+write(fname,"Predefined and accepted values here are
 \\verb|\"\\\\C\"|, \\verb|\"\\\\R\"|,
  \\verb|\"\\\\C\"|, \\verb|\"k\"|, \\verb|\"K\"|, \\verb|\"R\"|.");
-write(fname,"The latter are useful to print a ring whose coefficientfield is 
+write(fname,"The latter are useful to print a ring whose coefficientfield is
 defined by an algebraic extension. Now the parameters will omitted completely.
 ");
-write(fname,"The user may specify then the field in more detail."+lb,nl2); 
+write(fname,"The user may specify then the field in more detail."+lb,nl2);
 
 write(fname,"Any correct letter in \\LaTeX \\ notation may be used to describe
-the coefficientfield. If the letter is k, K or R it  forces \\verb|texring| 
+the coefficientfield. If the letter is k, K or R it  forces \\verb|texring|
 not to print the parameters. This will be useful for a ring described by an
 algebraic extension",nl2);
@@ -2247 +2244 @@
 write(fname,
 bv +
-"> texring(fname,ralg,\"k\");" + nl +  
+"> texring(fname,ralg,\"k\");" + nl +
 ev
-); 
+);
 
 texring(fname, ralg,"k");
- 
+
 // texobj(fname,"with k = ");
 
@@ -2260 +2257 @@
 write(fname,
 bv +
-"> texring(fname,ralg,\"mipo\");" + nl +  
+"> texring(fname,ralg,\"mipo\");" + nl +
 ev
-); 
+);
 
 texring(fname, ralg,"mipo");
@@ -2278 +2275 @@
 "> intvec v = 5,6;
 > texring(fname,r2,v);
-> kill v;" + nl +  
+> kill v;" + nl +
 ev
-); 
+);
 
 intvec v = 5,6;
@@ -2292 +2289 @@
 write(fname,
 bv +
-"> texring(fname,r1,1);" + nl +  
+"> texring(fname,r1,1);" + nl +
 ev
-); 
+);
 texring(fname,r1,1);
 
@@ -2307 +2304 @@
 write(fname,
 bv +
-"> texring(fname,r0,\"^G\");" + nl +  
+"> texring(fname,r0,\"^G\");" + nl +
 ev
-); 
+);
 
 texring(fname, r0,"^G");
- 
-write(fname,nl2,"All these arguments may be passed over in any order as 
-optional arguments, but it may give a rather nonsense result if too much of 
+
+write(fname,nl2,"All these arguments may be passed over in any order as
+optional arguments, but it may give a rather nonsense result if too much of
 them  are used at the same time",nl);
 
 write(fname,
 bv +
-"> texring(fname,r3,\"\\\\R\",1,\"{{\",\"^G\");" + nl +  
+"> texring(fname,r3,\"\\\\R\",1,\"{{\",\"^G\");" + nl +
 ev
-); 
+);
 
 texring(fname, r3,"\\R",1,"<<","^G");
@@ -2344 +2341 @@
   }
   else { texdemopart=2; }
- 
+
  "Continuing Part2 of " + fname + nl;
 
@@ -2352 +2349 @@
 write(fname,"The command \\verb|texfactorize| calls internally the Singular
 command \\verb|factorize| and returns the product of the irreducible factors.
-at the present it is not possible to pass the optional arguments of 
+at the present it is not possible to pass the optional arguments of
 \\verb|factorize| through \\verb|texfactorize|."+lb);
 
@@ -2407 +2404 @@
 // TeXreplace
 // ---------------------------------------------
-write(fname,"The global variable \\verb|TeXreplace| must be a list 
+write(fname,"The global variable \\verb|TeXreplace| must be a list
 whose entries are twoelemented lists again; wherby the first entry is the
 word which should be replaced and second is the replacing word."  +
-"This is may be applied to replace variablenames, but holds  also for texname 
+"This is may be applied to replace variablenames, but holds  also for texname
 anmd texmap" + lb +
 "It is most useful to write the greece letters correctly. Notice that it
 is necesarry to write
-a double backslash \\verb|\\\\\ | at the beginning of 
+a double backslash \\verb|\\\\\ | at the beginning of
 a \\TeX \\ symbol." + lb);
 
@@ -2473 +2470 @@
 
 write(fname,"If \\verb|TeXreplace| is defined, the translation into \\TeX  code
-runs significantly slower, because every polynomial will be compiled in the 
+runs significantly slower, because every polynomial will be compiled in the
 \\verb|non short| mode."+ lb );
 
@@ -2480 +2477 @@
 //linebreaking   TeXwdith
 //-----------------------------------------------------------------------
-write(fname,"The global variable \\verb|TeXwidth| controls the wrapping of 
+write(fname,"The global variable \\verb|TeXwidth| controls the wrapping of
 polynomials; possible values are:" + lb);
 
@@ -2489 +2486 @@
 " -1 & \\text{no linebreaking} \\\\ ",
 "  0 & \\text{print the polynom as equation} f=0 \\\\ ",
-" 1,\\ldots,5 & \\text{ the first n termes followed by the sign of the next 
+" 1,\\ldots,5 & \\text{ the first n termes followed by the sign of the next
 term} \\\\ ",
 " > 5 & \\text{wrapping after n letters corresponding x} ",
@@ -2495 +2492 @@
 "\\]",nl);
 
-write(fname,"Notice that two letters like x counts as three subscripts or 
+write(fname,"Notice that two letters like x counts as three subscripts or
 exponents",nl);
 
@@ -2503 +2500 @@
 
 write(fname,"\\verb|TeXwidth| is the only global variable which will be defined
-automatically from Singular. Its default value is -1 
+automatically from Singular. Its default value is -1
 i.e. wrapping is set off."+ lb);
 
@@ -2577 +2574 @@
 //write(fname,nl2,"\\Line",nl);
 
-write(fname,"As seen there are two possibilities to tex a polynomial. The 
+write(fname,"As seen there are two possibilities to tex a polynomial. The
 command \\verb|texpoly| is the most basic one and sets the polynomials in
 textmode. Notice that it counts the length of the terms convenientely." + lb +
@@ -2588 +2585 @@
 bv +
 "> setring r3;
-> texpoly(fname,f/180);" + nl + 
+> texpoly(fname,f/180);" + nl +
 ev);
 
 
 setring r3;
-texpoly(fname,f/180); 
+texpoly(fname,f/180);
 
 write(fname,nl2, "Now the same again with \\verb|texobj| "+ lb,nl);
@@ -2608 +2605 @@
 write(fname,"Some explaination how it works: if \\verb|texobj| is called for
 a polynomial, then it defines a global variable \\verb|TeXdisp| which forces
-\\verb|texpoly| to count fraction with space corresponding 
+\\verb|texpoly| to count fraction with space corresponding
 the displaymode."+lb,nl2);
 
@@ -2618 +2615 @@
 
 
-ring r; 
+ring r;
 ideal I = 3xz5+x2y3-3z,7xz5+y3z+x-z,-xyz2+4yz+2x;
 
@@ -2672 +2669 @@
  ideal I = -x(1) + 2*x(3) + x(5),x(2) -x(4) +2*x(5) -1,8*x(1) +x(4) +2;
 
- TeXwidth = 0; 
-write(fname,
-bv +
-"> ring r5 = 0,x(1..5),dp ; 
+ TeXwidth = 0;
+write(fname,
+bv +
+"> ring r5 = 0,x(1..5),dp ;
 > ideal I = -x(1) + 2*x(3) + x(5),x(2) -x(4) +2*x(5) -1,8*x(1) +x(4) +2;
 > string(I);" + nl +
-splt(string(I)) + nl2 + 
-"> TeXwidth = 0; 
+splt(string(I)) + nl2 +
+"> TeXwidth = 0;
 > texobj(fname,I);" +
 //> TeXwidth = 0;" +
 ev
-); 
+);
 
  texobj(fname,I);
 // TeXwidth = -1;
- 
+
  setring r;
  ideal J;
@@ -2714 +2711 @@
 write(fname,
 bv +
-"> texobj(fname,J);" + 
+"> texobj(fname,J);" +
 ev
-); 
- 
+);
+
  texobj(fname,J);
 //% TeXwidth = 0; TeXbrackets
@@ -2731 +2728 @@
 ev);
 
-setring r; 
+setring r;
 ideal I = 3xz5+x2y3-3z,7xz5+y3z+x-z,-xyz2+4yz+2x;
 if(system("with","Namespaces")) { exportto(Current, r, I); }
@@ -2765 +2762 @@
 // int TeXwidth =-1;
 write(fname,bv +
-"> ring r1=0,(x,y,z),dp; 
+"> ring r1=0,(x,y,z),dp;
 > ring r2=0,(u,v),dp;
 > map phi = r1,u2,uv -v,v2;
@@ -2786 +2783 @@
 write(fname,"\\item",nl);
 
-write(fname,"If the map will be called by its name \\verb|texmap| can in 
+write(fname,"If the map will be called by its name \\verb|texmap| can in
 combination with \\verb|TeXreplace| print the name of the map." + lb ,nl);
 
@@ -2792 +2789 @@
 "> list TeXreplace;
 > TeXreplace[1] = list(\"phi\",\"\\\\phi\");
-> texmap(fname,\"phi\",r1,r2);" + nl + 
+> texmap(fname,\"phi\",r1,r2);" + nl +
 ev);
 
@@ -2814 +2811 @@
 write(fname,"\\item",nl);
 
-write(fname,nl2,"The addtional arguments for \\verb|rings| may be passed over 
+write(fname,nl2,"The addtional arguments for \\verb|rings| may be passed over
 in \\verb|texmap|.",nl);
 
-write(fname,"In the following form the arguments are valid for both 
+write(fname,"In the following form the arguments are valid for both
 \\verb|rings|.",nl);
 
@@ -2867 +2864 @@
 texobj(fname,H);
 
-// probiere auch V = 0 bei texobj aus 
+// probiere auch V = 0 bei texobj aus
 matrix M = H;
 
@@ -2905 +2902 @@
 //------------------------------------------------------------------------
 
-write(fname,"All the features for \\verb|poly| and the features for 
+write(fname,"All the features for \\verb|poly| and the features for
 \\verb|intmat| or \\verb|intvec| hold here, too.");
 
@@ -2912 +2909 @@
 write(fname,bv +
 "> TeXwidth = 1;",
-"> texobj(fname,H);", 
+"> texobj(fname,H);",
 "> TeXwidth = -1;",
 ev );
 
 TeXwidth = 1;
-texobj(fname,H); 
+texobj(fname,H);
 TeXwidth = -1;
 
@@ -2936 +2933 @@
 
 write(fname,bv +
-"> int TeXnofrac;", 
+"> int TeXnofrac;",
 "> texobj(fname,M);",
 "> kill TeXnofrac;",
@@ -3002 +2999 @@
 > v;" + nl +
 string(v) + nl +
-"> nrows(v);" + nl + 
+"> nrows(v);" + nl +
 string(nrows(v)) + nl +
 "texobj(fname,v);" + nl2 +
@@ -3017 +3014 @@
 "> intmat m[3][4] = -1,3,5,2,-2,8,6,0,2,5,8,7;" + nl +
 "> m;" + nl +
-string(m) + nl + 
+string(m) + nl +
 "> texobj(fname,m);" + nl2 +
 ev );
@@ -3070 +3067 @@
 "> intmat mat[3][3] = 1,2,3,4,5,6,7,8,9;" + nl +
 "> string TeXbrack = \"|\";" + nl +
-"> texobj(fname,mat,\"=\",det(mat)); " + nl2 + 
+"> texobj(fname,mat,\"=\",det(mat)); " + nl2 +
 ev );
 
@@ -3083 +3080 @@
 
 
-//write(fname,"The proc \\verb|texname| is used to write indexed names in a 
+//write(fname,"The proc \\verb|texname| is used to write indexed names in a
 //correct way"+lb,nl);
 
@@ -3112 +3109 @@
 
  proc cleantexdemo()
- { 
+ {
   kill fname,nl,nl2,lb,bv,ev;
   return();