Changeset 499bdc in git for Singular/ipassign.cc

Timestamp:

Oct 13, 1997, 5:39:03 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b5ae525ed6a2020a638241140d0a4aabbc162e57

Parents:

d43a4d843e5403a3f9def8f515fb1c80302fd722

Message:

* hannes: added SINGULAR_SUB_VERSION in configure.in
          poly,poly,...=vector in ipassign.cc
          corrected minor bug in LDEBUG version of clapconv.cc


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

File:

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

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.17 1997-08-14 13:10:43 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.18 1997-10-13 15:39:02 Singular Exp $ */
 
 /*
@@ -418 +418 @@
 static BOOLEAN jiA_QRING(leftv res, leftv a,Subexpr e)
 {
+  // the follwing can only happen, if:
+  //   - the left side is of type qring AND not an id
   if ((e!=NULL)||(res->rtyp!=IDHDL))
   {
@@ -739 +741 @@
   return FALSE;
 }
+static BOOLEAN jiA_VECTOR_L(leftv l,leftv r)
+{
+  /* right side is vector, left side is list (of poly)*/
+  BOOLEAN nok;
+  leftv l1=l;
+  ideal I=idVec2Ideal((poly)r->Data());
+  leftv h;
+  sleftv t;
+  int i=0;
+  while (l!=NULL)
+  {
+    memset(&t,0,sizeof(sleftv));
+    t.rtyp=POLY_CMD;
+    if (i>=IDELEMS(I))
+    {
+      t.data=NULL;
+    }
+    else
+    {
+      t.data=(char *)I->m[i];
+      I->m[i]=NULL;
+    }
+    h=l->next;
+    l->next=NULL;
+    nok=jiAssign_1(l,&t);
+    t.CleanUp();
+    if (nok)
+    {
+      idDelete(&I);
+      return TRUE;
+    }
+    i++;
+    l=h;
+  }
+  idDelete(&I);
+  l1->CleanUp();
+  r->CleanUp();
+  return FALSE;
+}
 static BOOLEAN jjA_L_LIST(leftv l, leftv r)
 /* left side: list
@@ -1218 +1259 @@
     if (rt==INTVEC_CMD)
       return jiA_INTVEC_L(l,r);
+    else if (rt==VECTOR_CMD)
+      return jiA_VECTOR_L(l,r);
     else if ((rt==IDEAL_CMD)||(rt==MATRIX_CMD))
       return jiA_MATRIX_L(l,r);