Changeset 6a7528 in git for Singular/LIB

Timestamp:

Oct 14, 1998, 4:34:47 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7dd1eb69f369db2af3361bc75dca312c9b13fd5a

Parents:

71b3e09c22ef3f3c49a802901ccf49f7ea706f6f

Message:

*hannes: lag number soutput


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

File:

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

Singular/LIB/latex.lib

@@ -1 @@
-// $Id: latex.lib,v 1.3 1998-08-07 17:33:55 gorzel Exp $   
+// $Id: latex.lib,v 1.4 1998-10-14 14:34:47 Singular Exp $   
 //                        1998/04/17
 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de
@@ -1489 +1489 @@
   int saveshort=short;
             string t,c,vn,nom,denom,sg;
-
-  s = s[2,size(s)-2];    s = s + "!";
+  if (s[1]=="(") { s = s[2,size(s)-2]; }
+  s = s + "!";
 
   if(defined(TeXreplace)){ short =0;}   // only then replacing works correctly
@@ -1497 +1497 @@
     { b=i; j++;
       while(s[i]>="0" and s[i]<="9" or (s[i]=="+" or s[i]=="-") and s[i]!="!")
-      {i++;}     // scan the number 
+      {i++;}     // scan the number
         t =s[b,i-b];
     //  if (t=="-1" and s[i]!="!" and s[i]!="-" and s[i]!="+"){t = "-";}
       if (t=="-1" and (s[i]<="0" or s[i]>="9") and s[i]!= "/" and s[i]!="!")
        {
-     t = "-";} 
-      if (s[i]=="/")     
+     t = "-";}
+      if (s[i]=="/")
       { i++;
         sg = "";
@@ -1511 +1511 @@
         }
         else { nom = t;}
-        b =i; 
+        b =i;
         while(s[i]>="0" and s[i]<="9") {i++;}
         denom = s[b,i-b];
@@ -1519 +1519 @@
         { t = sg + "(" + nom + "/" + denom + ")";
         }
-      }  
+      }
       c = c + t;
       if(s[i]!="!"){c = c + s[i]; i++;}      // the parameter
@@ -1529 +1529 @@
    }
    else                         // if not short ....
-   { while (s[i] <> "!") 
+   { while (s[i] <> "!")
      { b=i; j++;
        while(s[i]=="-" or s[i]=="+" or (s[i]>="0" and s[i]<="9")){i++;}
        t = s[b,i-b];
        if (t=="-1" and s[i]=="*" ) {t="-";}
-      if (s[i]=="/") 
+      if (s[i]=="/")
       { i++;
         sg = "";
@@ -1542 +1542 @@
         }
         else { nom = t;}
-        b =i; 
+        b =i;
         while(s[i]>="0" and s[i]<="9") {i++;}
         denom = s[b,i-b];
@@ -1550 +1550 @@
         { t = sg + "(" + nom + "/" + denom + ")";
         }
-      }  
-       c = c+t; t="";   
-       if (s[i]=="*"){i++;} 
+      }
+       c = c+t; t="";
+       if (s[i]=="*"){i++;}
        b=i;
        while(s[i]!="+" and s[i]!="-" and s[i]!="!")  //pass a monom
-       { // start with letters 
+       { // start with letters
         // alternativ:
         while((s[i]>="a" and s[i]<="z") or (s[i]>="A" and s[i]<="Z")){i++;}
-             k = i-b; 
+             k = i-b;
         vn = s[b,k];
         if (defined(TeXreplace))
-        { for (jj=1; jj<= size(TeXreplace);jj++) 
-         { if (vn == TeXreplace[jj][1]) 
+        { for (jj=1; jj<= size(TeXreplace);jj++)
+         { if (vn == TeXreplace[jj][1])
            {vn = TeXreplace[jj][2]; k=1;
-             if (s[i]=="*") {vn = vn + " ";} 
+             if (s[i]=="*") {vn = vn + " ";}
             break;} //suppose replacing by a single sign
          }
@@ -1598 +1598 @@
   f;
   parst(string(f));
- 
+
   f =(-a +4b2 -2);
   f;
   parst(string(f));
- 
+
   f = a23;
   f;
@@ -1618 +1618 @@
 
 static proc parselong(string s)
-{ 
+{
   int i,j,k,b,mz;
   string t,vn;              // varname
-  
+
  // "s=" + s;
-  i = 1; 
-  while (s[i] <> "!") 
-  { b=i;     
-    
+  i = 1;
+  while (s[i] <> "!")
+  { b=i;
+
 // -- scan now the letter ...
 
@@ -1635 +1635 @@
  { i++;}
  // s[i]; i;
-   k = i-b; 
+   k = i-b;
    vn = s[b,k];
 
    if (defined(TeXreplace))
-   { for (j=1; j<= size(TeXreplace);j++) 
-     { if (vn == TeXreplace[j][1]) 
+   { for (j=1; j<= size(TeXreplace);j++)
+     { if (vn == TeXreplace[j][1])
        {vn = TeXreplace[j][2]; k=1;
-        if (s[i]=="*") {vn = vn + " ";} 
+        if (s[i]=="*") {vn = vn + " ";}
          break;} //suppose replacing by a single sign
      }
@@ -1667 +1667 @@
 }
 example
-{ "EXAMPLE:"; echo =2;  
+{ "EXAMPLE:"; echo =2;
   ring r =(49,a),x,dp;
   number f = a13;
@@ -1674 +1674 @@
   TeXreplace[1] = list("b","\\beta");
   TeXreplace[2] = list("a","\\alpha");
-  TeXreplace[3] = list("c","\\gamma"); 
+  TeXreplace[3] = list("c","\\gamma");
   parselong(string(f)+"!");
 }
@@ -1717 +1717 @@
     poly f,g;
     int nv,np=nvars(basering),npars(basering);
- 
+
     for (i=1; i<=n; i++)
-    { 
-      if (np) 
-      {  
+    {
+      if (np)
+      {
          nm=random(-cm,cm);
          for (j=1;j<=np;j++)
@@ -1751 +1751 @@
   {
    int i;
-   
+
    for(i=1; i<=n; i++)
-   { 
+   {
     v[i];
    }
@@ -1763 +1763 @@
     int p;
     string t;
-   
+
     while(n-i+1 >pagewidth)
     { p = find(s,newline,i);
@@ -1831 +1831 @@
  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
 
@@ -1864 +1864 @@
 //----------------------- opentex -----------------------------
    write(fname,"\\section{Opening a \\LaTeX\\ file}");
-   write(fname,"All starts by defining a variable " + nl 
+   write(fname,"All starts by defining a variable " + nl
                 + bv + "> string fname = \"" + fname + "\";" + nl +
                 "> texopen(fname);" + ev + nl);
  write(fname,"This variable \\verb|fname| has to given as first argument to
  all procedures in \\verb|latex.lib|");
- 
+
  //% opentex, defaulted to latex, possibly extension are ... and
- //% ``own'' 
+ //% ``own''
 
 
@@ -1891 +1891 @@
   }
   else { texdemopart=1; }
- 
+
 "Continuing part1 of " + fname + nl;
 
@@ -1902 +1902 @@
 " +nl);
  ring r0=0,(x,y,z),dp;        export r0;
- poly g = -x2y +2y13z +1;           export g;          
+ poly g = -x2y +2y13z +1;           export g;
  poly f = randompoly(5,25,25); f;      export f;
 write(fname,
@@ -1910 +1910 @@
  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,r0);              write(fname,nl2);
-  texpoly(fname,g);              write(fname,nl2); 
+  texpoly(fname,g);              write(fname,nl2);
   texpoly(fname,f);              write(fname,nl2);
 // write(fname,"\\Line");
@@ -1929 +1929 @@
  splt(string(f)) + nl2 + 
 ev
-); 
+);
   texpoly(fname,f);              write(fname,nl2);
 write(fname,"\\Line");