Changeset d6cc54 in git for Singular/LIB/latex.lib

Timestamp:

Dec 10, 1998, 2:07:19 PM (25 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

561cbff6c8bde79e69464018b2b6da689bcf69b3

Parents:

c4041ef202c36f5e5c59e227cb2e701c7e1a0fc3

Message:

Added check for namespaces before export


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

File:

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

Singular/LIB/latex.lib

@@ -1 @@
-// $Id: latex.lib,v 1.5 1998-10-21 10:28:25 krueger Exp $   
+// $Id: latex.lib,v 1.6 1998-12-10 13:07:19 krueger Exp $   
 //                        1998/04/17
 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de
@@ -481 +481 @@
 { "EXAMPLE:"; echo = 2;
   string fname = "tldemo";
-  ring r1=0,(x,y,z),dp;   export r1;
+  ring r1=0,(x,y,z),dp;
+  if(system("with","Namespaces")) { exportto(Current, r1); }
+  else { export r1; }
   ring r2=0,(u,v),dp;
   map phi =(r1,u2,uv -v,v2); export phi;
@@ -1744 +1746 @@
    }
 
-
-
- export randompoly;
+  if(system("with","Namespaces")) { exportto(Current, randompoly); }
+  else { export randompoly; }
 
   proc randomintv(int n, int m)
@@ -1902 +1903 @@
 " A ring in characteristic 0 with short variablenames and polynomial ordering.
 " +nl);
- ring r0=0,(x,y,z),dp;        export r0;
+ ring r0=0,(x,y,z),dp;
+ if(system("with","Namespaces")) { exportto(Current, r0); }
+ else { export r0; }
  poly g = -x2y +2y13z +1;           export g;
  poly f = randompoly(5,25,25); f;      export f;
@@ -1937 +1940 @@
 " A ring in characteristic 7 with indexed variablenames and local ordering.
 " +nl);
- ring r1=7,(x1,x2,x3,x4),Ds;    export r1;
+ ring r1=7,(x1,x2,x3,x4),Ds;
+ if(system("with","Namespaces")) { exportto(Current, r1); }
+ else { export r1; }
  poly g = -2*x1 +x4 -1;                    
  poly f = randompoly(5,25,25); f; export f;
@@ -1979 +1984 @@
 " A ring in characteristic 0 with indexed variablenames and weighted  ordering.
 " +nl);
- ring r3=0,(x_1,x_2,x_3),wp(3,2,1);         export r3;
+ ring r3=0,(x_1,x_2,x_3),wp(3,2,1);
+ 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 f = randompoly(5,25,25); f;            export f;
@@ -2021 +2028 @@
 " A ring in characteristic 0 and indexed parameters.
 " +nl);
- ring r0t=(0,s,t),(x,y),dp;     export r0t; 
+ 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 f = randompoly(5,25,25); f;  export f;
@@ -2087 +2096 @@
 " 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;   export r49;
+ 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 f = randompoly(5,25,25); f;
@@ -2315 +2326 @@
 write(fname,nl2);
 
-export r0,ralg;
+if(system("with","Namespaces")) { exportto(Current, r0, ralg); }
+else { export r0,ralg; }
 "end part 1" + nl;
 }
@@ -2720 +2732 @@
 setring r; 
 ideal I = 3xz5+x2y3-3z,7xz5+y3z+x-z,-xyz2+4yz+2x;
-export r;
-export I;
+if(system("with","Namespaces")) { exportto(Current, r, I); }
+else {
+  export r;
+  export I;
+}
 listvar(r);
 texobj(fname,"I");
@@ -2754 +2769 @@
 > texmap(fname,phi,r1,r2,\"\\\\C\");" + nl +
 ev );
- ring r1=0,(x,y,z),dp;  export r1;
+ ring r1=0,(x,y,z),dp;
+ if(system("with","Namespaces")) { exportto(Current, r1); }
+ else { export r1; }
  ring r2=0,(u,v),dp;
  map phi =r1,u2,uv -v,v2;  export phi;