Changeset 1bf1c0 in git

Timestamp:

Mar 21, 2011, 6:45:39 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b19ace693fa4b3a9f4acb977d2c98a32a0d7b649

Parents:

d7f196be701ba9a5f87af2509e48a4f37b57a503

Message:

warning for roing coeffs

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

Location:

Singular

Files:

• ipshell.cc (modified) (3 diffs)
• ssiLink.cc (modified) (1 diff)

Singular/ipshell.cc

@@ -2329 +2329 @@
   }
   rRenameVars(R);
+  rComplete(R);
+#ifdef HABE_RINGS
+// currently, coefficients which are ring elements require a global ordering:
+  if (rField_is_Ring(R) && (R->pOrdSgn==-1))
+  {
+    WerrorS("global ordering required for these coefficients");
+    goto rCompose_err;
+  }
+#endif
   // ------------------------ Q-IDEAL ------------------------
-  rComplete(R);
 
   if (L->m[3].Typ()==IDEAL_CMD)
@@ -4766 +4774 @@
 }
 
-#ifdef HAVE_RINGS
-char ring_warn_done=0;
-#endif
-
 ////////////////////
 //
@@ -4891 +4895 @@
   }
   pn=pn->next;
-
-#ifdef HAVE_RINGS
-  if ((ringtype > 0)&&(ring_warn_done==0))
-  {
-    WarnS("You are using coefficient rings which are not fields.");
-    WarnS("Please note that only limited functionality is available");
-    WarnS("for these coefficients.");
-    WarnS("");
-    WarnS("The following commands are meant to work:");
-    WarnS("- basic polynomial arithmetic");
-    WarnS("- std");
-    WarnS("- syz");
-    WarnS("- lift");
-    WarnS("- reduce");
-    ring_warn_done=1;
-  }
-#endif
 
   int l, last;

Singular/ssiLink.cc

@@ -46 +46 @@
 #endif
 
+//#if (_POSIX_C_SOURCE >= 200112L) || (_XOPEN_SOURCE >= 600)
+//#define HAVE_PSELECT
+//#endif
 
 #define SSI_VERSION 1