source: git/Singular/lists.h @ 3342df

spielwiese
Last change on this file since 3342df was f5a3a23, checked in by Martin Lee <martinlee84@…>, 13 years ago
added typedef lists from kernel/structs.h to lists.h changed pVariables to currRing->N and idRankFreeModule(arg) to id_RankFreeModule(arg,currRing) in lists.cc added include lists.h to ipshell.h and commented out include structs.h
  • 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/* $Id$ */
7/*
8* ABSTRACT: handling of the list type
9*/
10#include <omalloc/omalloc.h>
11#include <kernel/structs.h>
12#include <kernel/ideals.h>
13#include <Singular/subexpr.h>
14#include <Singular/tok.h>
15
16#ifdef MDEBUG
17#define INLINE_THIS
18#else
19#define INLINE_THIS inline
20#endif
21
22extern omBin slists_bin;
23class slists
24{
25  public:
26    void Clean(ring r=currRing)
27    {
28      if (this!=NULL)
29      {
30        if (nr>=0)
31        {
32          int i;
33          for(i=nr;i>=0;i--)
34          {
35            if (m[i].rtyp!=DEF_CMD) m[i].CleanUp(r);
36          }
37          omFreeSize((ADDRESS)m, (nr+1)*sizeof(sleftv));
38          nr=-1;
39        }
40        //omFreeSize((ADDRESS)this, sizeof(slists));
41        omFreeBin((ADDRESS)this,slists_bin);
42      }
43    }
44  INLINE_THIS void Init(int l=0);
45    int    nr; /* the number of elements in the list -1 */
46               /* -1: empty list */
47    sleftv  *m;  /* field of sleftv */
48};
49
50typedef slists *           lists;
51
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.