Changeset b27003e in git

Timestamp:

Dec 9, 2008, 6:32:52 PM (15 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

d141f0ace180cabeccf7e5bfb22a69f529547357

Parents:

a470ebe18bdea9bcb99b87e3b9d94210efd4d584

Message:

*levandov: introducing the attribute isLPring for letterplace rings


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

Files:

• Singular/attrib.cc (modified) (5 diffs)
• kernel/structs.h (modified) (2 diffs)

Singular/attrib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: attrib.cc,v 1.30 2008-09-19 14:06:00 Singular Exp $ */
+/* $Id: attrib.cc,v 1.31 2008-12-09 17:32:52 levandov Exp $ */
 
 /*
@@ -316 +316 @@
     res->data=(void *)(((ring)v->Data())->OrdSgn==1);
   }
+#ifdef HAVE_SHIFTBBA
+  else if ((strcmp(name,"isLPring")==0)
+  &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
+  {
+    res->rtyp=INT_CMD;
+    res->data=(void *)(((ring)v->Data())->isLPring);
+  }
+#endif
   else
   {
@@ -349 +357 @@
     if (c->Typ()!=INT_CMD)
     {
-      WerrorS("attrib isSB must be int");
+      WerrorS("attribute isSB must be int");
       return TRUE;
     }
@@ -367 +375 @@
     if (c->Typ()!=INT_CMD)
     {
-      WerrorS("attrib `rank` must be int");
+      WerrorS("attribute `rank` must be int");
       return TRUE;
     }
@@ -376 +384 @@
   &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
   {
-    WerrorS("can not set attribut `global`");
+    WerrorS("can not set attribute `global`");
     return TRUE;
   }
+#ifdef HAVE_SHIFTBBA
+  else if ((strcmp(name,"isLPring")==0)
+  &&(((t=v->Typ())==RING_CMD)||(t==QRING_CMD)))
+  {
+    if (c->Typ()==INT_CMD)
+      ((ring)v->Data())->isLPring=(int)(long)c->Data();
+    else
+    {
+      WerrorS("attribute `isLPring` must be int");
+      return TRUE;
+    }
+  }
+#endif
   else
   {

kernel/structs.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: structs.h,v 1.57 2008-12-08 15:00:43 Singular Exp $ */
+/* $Id: structs.h,v 1.58 2008-12-09 17:32:52 levandov Exp $ */
 /*
 * ABSTRACT
@@ -616 +616 @@
 #endif
 
+#ifdef HAVE_SHIFTBBA
+  short          isLPring; /* 0 for non-letterplace rings, otherwise the number of LP blocks, at least 1, known also as lV */
+#endif
 
   BOOLEAN   VectorOut;