[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323

Bernhard R. Link brlink at debian.org
Tue Apr 24 15:53:27 UTC 2012


The following commit has been merged in the cleanedupstream branch:
commit 6f9dcfaa6bc157e945a8d3ab6f4389f1887fa3d0
Author: Hans Schoenemann <hannes at mathematik.uni-kl.de>
Date:   Thu Feb 23 13:25:54 2012 +0100

    chg: allow assignment def=def (for "undefinig" list entries)

diff --git a/Singular/ipassign.cc b/Singular/ipassign.cc
index 2d55355..5eb8351 100644
--- a/Singular/ipassign.cc
+++ b/Singular/ipassign.cc
@@ -1,7 +1,6 @@
 /****************************************
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id$ */
 
 /*
 * ABSTRACT: interpreter:
@@ -706,7 +705,7 @@ static BOOLEAN jiAssign_1(leftv l, leftv r)
     if (!errorreported) Werror("left side `%s` is undefined",l->Fullname());
     return TRUE;
   }
-  if((rt==DEF_CMD)||(rt==NONE))
+  if(rt==NONE)
   {
     WarnS("right side is not a datum, assignment ignored");
     // if (!errorreported)
@@ -720,21 +719,25 @@ static BOOLEAN jiAssign_1(leftv l, leftv r)
 
   if (lt==DEF_CMD)
   {
-    if (l->rtyp==IDHDL)
+    if (rt!=DEF_CMD)
     {
-      IDTYP((idhdl)l->data)=rt;
-    }
-    else if (l->name!=NULL)
-    {
-      sleftv ll;
-      iiDeclCommand(&ll,l,myynest,rt,&IDROOT);
-      memcpy(l,&ll,sizeof(sleftv));
-    }
-    else
-    {
-      l->rtyp=rt;
+      if (l->rtyp==IDHDL)
+      {
+        IDTYP((idhdl)l->data)=rt;
+      }
+      else if (l->name!=NULL)
+      {
+        sleftv ll;
+        iiDeclCommand(&ll,l,myynest,rt,&IDROOT);
+        memcpy(l,&ll,sizeof(sleftv));
+      }
+      else
+      {
+        l->rtyp=rt;
+      }
+      lt=rt;
     }
-    lt=rt;
+    // else: def=def: silently ignored
   }
   else
   {
@@ -1665,7 +1668,7 @@ void jjNormalizeQRingId(leftv I)
       switch (I->Typ())
       {
         case IDEAL_CMD:
-	case MODUL_CMD:
+        case MODUL_CMD:
         {
           ideal F=idInit(1,1);
           ideal II=kNF(F,currQuotient,I0);

-- 
an open source computer algebra system



More information about the debian-science-commits mailing list