Changeset 508d46 in git

Timestamp:

May 5, 2014, 1:51:59 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

8e326a9a1677ad827e4eec80d61205c222a3ef7a

Parents:

f09a99a885e518f4cedb5b143ef4984f1b995a6b

Message:

attribute via ssi: part1: BIT-attributes

File:

• Singular/links/ssiLink.cc (modified) (5 diffs)

Singular/links/ssiLink.cc

@@ -783 +783 @@
 }
 
+void ssiReadAttrib(leftv res, si_link l)
+{
+  ssiInfo *d=(ssiInfo*)l->data;
+  leftv tmp=ssiRead1(l);
+  memcpy(res,tmp,sizeof(sleftv));
+  memset(tmp,0,sizeof(sleftv));
+  omFreeSize(tmp,sizeof(sleftv));
+  BITSET fl=(BITSET)s_readint(d->f_read);
+  int nr_of_attr=s_readint(d->f_read);
+  if (nr_of_attr>0)
+  {
+    for(int i=1;i<nr_of_attr;i++)
+    {
+    }
+  }
+  res->flag=fl;
+}
 //**************************************************************************/
 
@@ -1341 +1358 @@
     case 20: ssiReadBlackbox(res,l);
              break;
+    case 21: ssiReadAttrib(res,l);
+             break;
     // ------------
     case 98: // version
@@ -1411 +1430 @@
     int tt=data->Typ();
     void *dd=data->Data();
+    attr *aa=data->Attribute();
+    if (((*aa)!=NULL)||(data->flag!=0))
+    {
+      fprintf(d->f_write,"21 %d ",data->flag);
+    }
     if ((dd==NULL) && (data->name!=NULL) && (tt==0)) tt=DEF_CMD;
       // return pure undefined names as def
@@ -1509 +1533 @@
             break;
     }
+    if (((*aa)!=NULL)||(data->flag!=0))
+    {
+      attr a=*aa;
+      int n=0;
+      while(a!=NULL) { n++; a=a->next;}
+      fprintf(d->f_write,"%d ",n);
+      a=*aa;
+    }
     if (d->level<=1) { fputc('\n',d->f_write); fflush(d->f_write); }
     data=data->next;
@@ -2078 +2110 @@
 // 18 intmat
 // 19 bigintmat <r> <c> ...
-//
 // 20 blackbox <name> 1 <len> ...
+// 21 attrib <bit-attribs> <data> <len> <a-name1> <val1>...
 //
 // 98: verify version: <ssi-version> <MAX_TOK> <OPT1> <OPT2>