Changeset 0a64d50 in git for Singular/newstruct.cc

Timestamp:

Jun 18, 2012, 10:21:31 PM (12 years ago)

Author:

Alexander Dreyer <alexander.dreyer@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

33337c143d6dc39838d00eaa1ff98d10aab9f874

Parents:

2262abc0b0f7509cc606cb82563a0117962af611

git-author:

Alexander Dreyer <alexander.dreyer@itwm.fraunhofer.de>2012-06-18 22:21:31+02:00

git-committer:

Alexander Dreyer <alexander.dreyer@itwm.fraunhofer.de>2012-08-01 22:47:27+02:00

Message:

Enhancement: unary custom operation for newstruct

File:

• Singular/newstruct.cc (modified) (2 diffs)

Singular/newstruct.cc

@@ -176 +176 @@
   return TRUE;
 }
+
+BOOLEAN newstruct_Op1(int op, leftv res, leftv arg)
+{
+  // interpreter: arg is newstruct
+  blackbox *a=getBlackboxStuff(arg->Typ());
+  newstruct_desc nt=(newstruct_desc)a->data;
+  newstruct_proc p=nt->procs;
+
+  while((p!=NULL) &&( (p->t!=op) || (p->args!=1) )) p=p->next;
+
+  if (p!=NULL)
+  {
+    leftv sl;
+    sleftv tmp;
+    memset(&tmp,0,sizeof(sleftv));
+    tmp.Copy(arg);
+    idrec hh;
+    memset(&hh,0,sizeof(hh));
+    hh.id=Tok2Cmdname(p->t);
+    hh.typ=PROC_CMD;
+    hh.data.pinf=p->p;
+    sl=iiMake_proc(&hh,NULL,&tmp);
+    if (sl==NULL) return TRUE;
+    else
+    {
+      res->Copy(sl);
+      return FALSE;
+    }
+  }
+  return blackboxDefaultOp1(op,res,arg);
+}
+
+
 
 BOOLEAN newstruct_Op2(int op, leftv res, leftv a1, leftv a2)
@@ -476 +509 @@
   b->blackbox_Copy=newstruct_Copy;
   b->blackbox_Assign=newstruct_Assign;
-  //b->blackbox_Op1=blackboxDefaultOp1;
+  b->blackbox_Op1=newstruct_Op1;
   b->blackbox_Op2=newstruct_Op2;
   //b->blackbox_Op3=blackbox_default_Op3;