[0e1846] | 1 | #ifndef LISTS_H |
---|
| 2 | #define LISTS_H |
---|
| 3 | /**************************************** |
---|
| 4 | * Computer Algebra System SINGULAR * |
---|
| 5 | ****************************************/ |
---|
[6d281ac] | 6 | /* $Id: lists.h,v 1.5 1998-08-25 13:33:20 krueger Exp $ */ |
---|
[0e1846] | 7 | /* |
---|
| 8 | * ABSTRACT: handling of the list type |
---|
| 9 | */ |
---|
| 10 | #include "structs.h" |
---|
| 11 | #include "mmemory.h" |
---|
| 12 | #include "subexpr.h" |
---|
[6d281ac] | 13 | #include "ipid.h" |
---|
[0e1846] | 14 | #include "tok.h" |
---|
| 15 | |
---|
| 16 | class slists |
---|
| 17 | { |
---|
| 18 | public: |
---|
| 19 | void Clean() |
---|
| 20 | { |
---|
| 21 | if (this!=NULL) |
---|
| 22 | { |
---|
| 23 | if (nr>=0) |
---|
| 24 | { |
---|
| 25 | int i; |
---|
| 26 | for(i=nr;i>=0;i--) |
---|
| 27 | { |
---|
| 28 | if (m[i].rtyp!=DEF_CMD) m[i].CleanUp(); |
---|
| 29 | } |
---|
| 30 | Free((ADDRESS)m, (nr+1)*sizeof(sleftv)); |
---|
| 31 | nr=-1; |
---|
| 32 | } |
---|
| 33 | Free((ADDRESS)this, sizeof(slists)); |
---|
| 34 | } |
---|
| 35 | } |
---|
| 36 | inline void Init(int l=0) |
---|
[6d281ac] | 37 | { nr=l-1; m=(sleftv *)((l>0) ? Alloc0(l*sizeof(sleftv)): NULL); |
---|
| 38 | #ifdef HAVE_NAMESPACES |
---|
| 39 | packhdl = namespaceroot->get(namespaceroot->name, 0, TRUE); |
---|
| 40 | #endif /* HAVE_NAMESPACES */ |
---|
| 41 | } |
---|
[0e1846] | 42 | int nr; /* the number of elements in the list -1 */ |
---|
| 43 | /* -1: empty list */ |
---|
[6d281ac] | 44 | #ifdef HAVE_NAMESPACES |
---|
| 45 | idhdl packhdl; |
---|
| 46 | #endif /* HAVE_NAMESPACES */ |
---|
[0e1846] | 47 | sleftv *m; /* field of sleftv */ |
---|
| 48 | }; |
---|
| 49 | |
---|
| 50 | lists lCopy(lists L); |
---|
| 51 | lists lInsert0(lists ul, leftv v, int pos); |
---|
| 52 | BOOLEAN lInsert(leftv res, leftv u, leftv v); |
---|
| 53 | BOOLEAN lInsert3(leftv res, leftv u, leftv v, leftv w); |
---|
| 54 | BOOLEAN lAppend(leftv res, leftv u, leftv v); |
---|
| 55 | BOOLEAN lDelete(leftv res, leftv u, leftv v); |
---|
| 56 | BOOLEAN lAdd(leftv res, leftv u, leftv v); |
---|
| 57 | BOOLEAN lRingDependend(lists L); |
---|
| 58 | |
---|
| 59 | lists liMakeResolv(resolvente r, int length, int reallen, int typ0, intvec ** weights); |
---|
[25003c] | 60 | resolvente liFindRes(lists L, int * len, int *typ0,intvec *** weights=NULL); |
---|
[0e1846] | 61 | #endif |
---|