Changeset 9ea39f in git for Singular/LIB/standard.lib

Timestamp:

Nov 4, 2005, 3:23:10 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7d45e39b6de4d8e3208f9bddd84b185d63f76940

Parents:

7c17e985ff301c2b000c316fbde312c165fccd55

Message:

*hannes: more slimgb


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

File:

• Singular/LIB/standard.lib (modified) (2 diffs)

Singular/LIB/standard.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: standard.lib,v 1.75 2005-10-28 13:22:28 Singular Exp $";
+version="$Id: standard.lib,v 1.76 2005-11-04 14:23:10 Singular Exp $";
 category="Miscellaneous";
 info="
@@ -251 +251 @@
   }
 
-  //if ordering is global, there are parameters and minpoly is 0
-  if (((npars(basering)>0) &&(minpoly==0)) &&(typeof(basering)=="ring"))
-  { return(slimgb(i)); }
-
+  if (typeof(basering)=="ring") // slimgb does not know qrings
+  {
+     //if ordering is global, there are parameters and minpoly is 0
+     if (((npars(basering)>0) &&(minpoly==0)))
+     { return(slimgb(i)); }
+     // oerdering dp, char 0
+     if((char(P)==0) && (system("nblocks") <= 2) && (find(ordstr_P,"dp")>0))
+     { return(slimgb(i)); }
+  }
   // for module case, not already hadled by slimgb:
   if (nrows(i)>1)