Changeset 01cda73 in git

Timestamp:

Jul 28, 2009, 4:17:00 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

d3e63080067b404bb6735cd99263a8ca6d413ed4

Parents:

40db068acd2f944f37ff293b6e23465dfa9d9765

Message:

*hannes: Namespaces by default


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

Location:

Singular/LIB

Files:

• classify.lib (modified) (2 diffs)
• deform.lib (modified) (4 diffs)
• general.lib (modified) (3 diffs)
• gmssing.lib (modified) (2 diffs)

Singular/LIB/classify.lib

@@ -1 +1 @@
 // KK,GMG last modified: 17.12.00
 ///////////////////////////////////////////////////////////////////////////////
-version  = "$Id: classify.lib,v 1.56 2009-04-15 11:11:11 seelisch Exp $";
+version  = "$Id: classify.lib,v 1.57 2009-07-28 14:17:00 Singular Exp $";
 category="Singularities";
 info="
@@ -78 +78 @@
   def ring_ext = basering;
 
-  if(system("with","Namespaces")) {
-    if(defined(A_Z)==0) { proc A_Z = general_lib::A_Z; export A_Z; }
-  }
+  // Namespaces:
+  if(defined(A_Z)==0) { proc A_Z = general_lib::A_Z; export A_Z; }
   init_debug();                    // initialize trace/debug mode
   if(checkring()) { return(f_in); }

Singular/LIB/deform.lib

@@ -1 @@
-// $Id: deform.lib,v 1.37 2006-07-31 09:11:10 Singular Exp $
+// $Id: deform.lib,v 1.38 2009-07-28 14:17:00 Singular Exp $
 // author: Bernd Martin email: martin@math.tu-cottbus.de
 //(bm, last modified 4/98)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: deform.lib,v 1.37 2006-07-31 09:11:10 Singular Exp $";
+version="$Id: deform.lib,v 1.38 2009-07-28 14:17:00 Singular Exp $";
 category="Singularities";
 info="
@@ -574 +574 @@
   br = my+"Sx";
   if (defined(`br`)) { kill `br`}
-  if(system("with","Namespaces"))
-  {
-    br = my+"Qx";
-    if (defined(Top::`br`)) { kill Top::`br`;}
-    br = my+"Ox";
-    if (defined(Top::`br`)) { kill Top::`br`;}
-    br = my+"Px";
-    if (defined(Ring::`br`)) { kill Ring::`br`;}
-    br = my+"So";
-    if (defined(Ring::`br`)) { kill Ring::`br`;}
-  }
+  //Namespaces:
+  br = my+"Qx";
+  if (defined(Top::`br`)) { kill Top::`br`;}
+  br = my+"Ox";
+  if (defined(Top::`br`)) { kill Top::`br`;}
+  br = my+"Px";
+  if (defined(Ring::`br`)) { kill Ring::`br`;}
+  br = my+"So";
+  if (defined(Ring::`br`)) { kill Ring::`br`;}
   if (defined(basering)==0)
   { "// choose new basering?";
-    if(system("with","Namespaces")) { listvar(Top,ring); }
-    else { listvar(ring); }
+    listvar(Top,ring);
   }
   return();
@@ -958 +955 @@
    intvec dv;
    int l = homog(A) ;
-   if (l==0) {
+   if (l==0)
+   {
      setring br;
-     if(system("with","Namespaces")) { kill Top::nr; }
+     kill Top::nr;
      if (defined(nr)) { kill nr; }
      return(l);
@@ -969 +967 @@
    dv = dv-l;
  setring br;
-   if(system("with","Namespaces")) { kill Top::nr; }
+   kill Top::nr;
    if (defined(nr)) { kill nr; }
    return(dv);

Singular/LIB/general.lib

@@ -3 +3 @@
 //eric, added absValue 11.04.2002
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: general.lib,v 1.65 2009-07-28 10:34:55 Singular Exp $";
+version="$Id: general.lib,v 1.66 2009-07-28 14:17:00 Singular Exp $";
 category="General purpose";
 info="
@@ -345 +345 @@
 "
 {
-  if (system("with","Namespaces"))
-  {
-    list @marie=names(Top);
-  }
-  else
-  {
-    list @marie=names();
-  }
+  list @marie=names(Top);
   int j, no_kill, @joni;
   for ( @joni=1; @joni<=size(#);  @joni++)
@@ -393 +386 @@
           if (!defined(@joni)) break;
         }
-        if ((system("with","Namespaces")) && defined(General))
+        if (defined(General))
         {
           @marie=names(General);

Singular/LIB/gmssing.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gmssing.lib,v 1.15 2009-07-28 10:34:55 Singular Exp $";
+version="$Id: gmssing.lib,v 1.16 2009-07-28 14:17:00 Singular Exp $";
 category="Singularities";
 
@@ -195 +195 @@
   attrib(gmsstd,"isSB",1);
   export gmspoly,gmsjacob,gmsstd,gmsmatrix,gmsbasis,gmsmaxdeg;
-  if (system("with","Namespaces")) { exportto(Top, gmsmaxdeg);}
-  else { export(gmsmaxdeg);}
+  exportto(Top, gmsmaxdeg);
 
   return(G);