Changeset 14ca45 in git


Ignore:
Timestamp:
Oct 29, 1998, 10:50:43 AM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
06da87746f5373c1b9d4629100737c938d3e30a1
Parents:
8c5a0ad829425c9582f179d0d8583928ea03275c
Message:
*hannes: removed jiA_L_LIST


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

Legend:

Unmodified
Added
Removed
  • Singular/ipassign.cc

    r8c5a0ad r14ca45  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipassign.cc,v 1.38 1998-10-22 12:26:14 krueger Exp $ */
     4/* $Id: ipassign.cc,v 1.39 1998-10-29 09:50:43 Singular Exp $ */
    55
    66/*
     
    831831}
    832832static BOOLEAN jjA_L_LIST(leftv l, leftv r)
    833 /* left side: list
     833/* left side: list, has to be a "real" variable
    834834*  right side: expression list
    835835*/
     
    858858      L->Clean();
    859859      Werror("`%s` is undefined",h->Fullname());
    860       return TRUE;
     860      goto err;
    861861    }
    862862    //if ((rt==RING_CMD)||(rt==QRING_CMD))
     
    868868    //else
    869869      L->m[i].Copy(h);
     870      if(errorreported)
     871      {
     872        L->Clean();
     873        goto err;
     874      }
    870875  }
    871876  IDLIST((idhdl)l->data)->Clean();
     
    882887#endif /* HAVE_NAMESPACES */
    883888    ipMoveId((idhdl)l->data);
    884   o_r->CleanUp();
    885   return FALSE;
    886 }
    887 static BOOLEAN jiA_L_LIST(leftv l, leftv r)
    888 /* left side: list
    889 *  right side: expression list
    890 */
    891 {
    892   int sl = r->listLength();
    893   lists L=(lists)Alloc(sizeof(slists));
    894   leftv h=NULL,o_r=r;
    895   int i;
    896   int rt;
    897 
    898   L->Init(sl);
    899   for (i=0;i<sl;i++)
    900   {
    901     if (h!=NULL) { /* e.g. not in the first step:
    902                    * h is the pointer to the old sleftv,
    903                    * r is the pointer to the next sleftv
    904                    * (in this moment) */
    905                    h->next=r;
    906                  }
    907     h=r;
    908     r=r->next;
    909     h->next=NULL;
    910     rt=h->Typ();
    911     if ((rt==0)||(rt==DEF_CMD))
    912     {
    913       Werror("`%s` is undefined",h->Fullname());
    914       goto err;
    915     }
    916     if ((rt==RING_CMD)||(rt==QRING_CMD))
    917     {
    918       L->m[i].rtyp=rt;
    919       L->m[i].data=h->Data();
    920       ((ring)L->m[i].data)->ref++;
    921     }
    922     L->m[i].Copy(h);
    923     if(errorreported)  goto err;
    924   }
    925   IDLIST((idhdl)l->data)->Clean();
    926   IDLIST((idhdl)l->data)=L;
    927   ipMoveId((idhdl)l->data);
    928   o_r->CleanUp();
    929   return FALSE;
    930889err:
    931890  o_r->CleanUp();
    932   L->Clean();
    933   return TRUE;
     891  return errorreported;
    934892}
    935893static BOOLEAN jjA_L_INTVEC(leftv l,leftv r,intvec *iv)
Note: See TracChangeset for help on using the changeset viewer.