Changeset 17f056 in git for Singular/blackbox.cc

Timestamp:

Sep 28, 2020, 4:50:16 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

15c03feaf8805bafa1bed1acf4e149692c392f8d

Parents:

9c1d9359fa3db45cd4c1804d7d9d27a35e8e5aec

Message:

chg: impl. backbox_default_Assign

File:

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

Singular/blackbox.cc

@@ -4 +4 @@
 #include "Singular/subexpr.h"
 #include "Singular/ipshell.h"
+#include "Singular/ipid.h"
 
 #include "Singular/blackbox.h"
@@ -37 +38 @@
   return NULL;
 }
-BOOLEAN blackbox_default_Assign(leftv /*b*/,leftv /*d*/)
-{
-  WerrorS("missing blackbox_Assign");
-  return TRUE;
+BOOLEAN blackbox_default_Assign(leftv l, leftv r)
+{
+  int lt=l->Typ();
+  blackbox* b=getBlackboxStuff(lt);
+  if ((lt==r->Typ())
+  && (l->Data()!=r->Data()))
+  {
+    b->blackbox_destroy(b,(void*)l->Data());
+    if (l->rtyp==IDHDL)
+      IDDATA((idhdl)l->data)=(char*)b->blackbox_Copy(b,r->Data());
+    else
+      l->data=b->blackbox_Copy(b,r->Data());
+  }
+  return FALSE;
 }
 void blackbox_default_Print(blackbox *b,void *d)