Changeset b8fdd5 in git

Timestamp:

May 18, 1998, 7:23:00 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

3d7392fc05befdecec7c04733944a76bbb7ce22e

Parents:

bc4886a03f2f4ce055ba9526441a43fae4fe27cb

Message:

* hannes: allowed assignment of ring to list elements


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.28 1998-04-28 17:57:52 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.29 1998-05-18 17:23:00 Singular Exp $ */
 
 /*
@@ -474 +474 @@
 static BOOLEAN jiA_RING(leftv res, leftv a, Subexpr e)
 {
+  BOOLEAN have_id=TRUE;
   if ((e!=NULL)||(res->rtyp!=IDHDL))
   {
-    WerrorS("id expected");
-    return TRUE;
+    //WerrorS("id expected");
+    //return TRUE;
+    have_id=FALSE;
   }
   ring r=(ring)a->Data();
-  idhdl rl=(idhdl)res->data;
-  if (&IDRING(rl)!=NULL) rKill(rl);
+  if (have_id)
+  {
+    idhdl rl=(idhdl)res->data;
+    if (&IDRING(rl)!=NULL) rKill(rl);
+    IDRING(rl)=r;
+    if ((IDLEV((idhdl)a->data)!=myynest) && (r==currRing))
+      currRingHdl=(idhdl)res->data;
+  }
+  else
+  {
+    if (e==NULL) res->data=(char *)r;
+    else
+    {
+      WerrorS("id expected");
+      return TRUE;
+    }
+  }
   r->ref++;
-  IDRING(rl)=r;
-  if ((IDLEV((idhdl)a->data)!=myynest) && (r==currRing))
-    currRingHdl=(idhdl)res->data;
   return FALSE;
 }