Changeset 6c4db17 in git for Singular/attrib.cc

Timestamp:

Feb 3, 2010, 5:26:55 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

40f802d6d4a86bc39b087948ef1c21fcaf01afca

Parents:

54c5581bde5de8f3d41ede0ba11f3ba4b1c1b9c2

Message:

option(qringNF), track 149

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

File:

• Singular/attrib.cc (modified) (3 diffs)

Singular/attrib.cc

@@ -262 +262 @@
     haveNoAttribute=FALSE;
   }
-  else if (((t=v->Typ())==RING_CMD)||(t==QRING_CMD))
+  if (hasFlag(v,FLAG_QRING))
+  {
+    PrintS("attr:qringNF, type int\n");
+    haveNoAttribute=FALSE;
+  }
+  if (((t=v->Typ())==RING_CMD)||(t==QRING_CMD))
   {
     PrintS("attr:global, type int\n");
@@ -297 +302 @@
     res->data=(void *)(((ring)v->Data())->OrdSgn==1);
   }
+  else if (strcmp(name,"qringNF")==0)
+  {
+    res->rtyp=INT_CMD;
+    res->data=(void *)(long)hasFlag(v,FLAG_QRING);
+  }
 #ifdef HAVE_SHIFTBBA
   else if ((strcmp(name,"isLPring")==0)
@@ -352 +362 @@
     }
   }
+  else if (strcmp(name,"qringNF")==0)
+  {
+    if (c->Typ()!=INT_CMD)
+    {
+      WerrorS("attribute qringNF must be int");
+      return TRUE;
+    }
+    if (((long)c->Data())!=0L)
+    {
+      if (h!=NULL) setFlag(h,FLAG_QRING);
+      setFlag(v,FLAG_QRING);
+    }
+    else
+    {
+      if (h!=NULL) resetFlag(h,FLAG_QRING);
+      resetFlag(v,FLAG_QRING);
+    }
+  }
   else if ((strcmp(name,"rank")==0)&&(v->Typ()==MODUL_CMD))
   {