source: git/Singular/lists.h @ aee346d

spielwiese
Last change on this file since aee346d was ecf019, checked in by Hans Schoenemann <hannes@…>, 12 years ago
chg: consider lists with only DEF_CMD as empty lists(print, delete)(from master)
  • Property mode set to 100644
File size: 1.8 KB
Line 
1#ifndef LISTS_H
2#define LISTS_H
3/****************************************
4*  Computer Algebra System SINGULAR     *
5****************************************/
6/*
7* ABSTRACT: handling of the list type
8*/
9#include <omalloc/omalloc.h>
10#include <kernel/structs.h>
11#include <kernel/ideals.h>
12#include <Singular/subexpr.h>
13#include <Singular/tok.h>
14
15#ifdef MDEBUG
16#define INLINE_THIS
17#else
18#define INLINE_THIS inline
19#endif
20
21extern omBin slists_bin;
22class slists
23{
24  public:
25    void Clean(ring r=currRing)
26    {
27      if (this!=NULL)
28      {
29        if (nr>=0)
30        {
31          int i;
32          for(i=nr;i>=0;i--)
33          {
34            if (m[i].rtyp!=DEF_CMD) m[i].CleanUp(r);
35          }
36          omFreeSize((ADDRESS)m, (nr+1)*sizeof(sleftv));
37          nr=-1;
38        }
39        //omFreeSize((ADDRESS)this, sizeof(slists));
40        omFreeBin((ADDRESS)this,slists_bin);
41      }
42    }
43  INLINE_THIS void Init(int l=0);
44    int    nr; /* the number of elements in the list -1 */
45               /* -1: empty list */
46    sleftv  *m;  /* field of sleftv */
47};
48
49typedef slists *           lists;
50
51int lSize(lists L);
52lists lCopy(lists L);
53lists lInsert0(lists ul, leftv v, int pos);
54BOOLEAN lInsert(leftv res, leftv u, leftv v);
55BOOLEAN lInsert3(leftv res, leftv u, leftv v, leftv w);
56BOOLEAN lAppend(leftv res, leftv u, leftv v);
57BOOLEAN lDelete(leftv res, leftv u, leftv v);
58BOOLEAN lAdd(leftv res, leftv u, leftv v);
59BOOLEAN lRingDependend(lists L);
60char* lString(lists l, BOOLEAN typed = FALSE, int dim = 1);
61
62
63lists liMakeResolv(resolvente r, int length, int reallen, int typ0, intvec ** weights,int add_row_shift);
64resolvente liFindRes(lists L, int * len, int *typ0,intvec *** weights=NULL);
65
66#if ! defined(MDEBUG) || defined(LISTS_CC)
67INLINE_THIS void slists::Init(int l)
68      { nr=l-1; m=(sleftv *)((l>0) ? omAlloc0(l*sizeof(sleftv)): NULL);
69      }
70#endif
71
72#undef INLINE_THIS
73
74#endif
Note: See TracBrowser for help on using the repository browser.