source: git/Singular/lists.h @ 7194edf

spielwiese
Last change on this file since 7194edf was b1dfaf, checked in by Frank Seelisch <seelisch@…>, 13 years ago
patch from Kai (checked for problems under Windows OS: no problems) git-svn-id: file:///usr/local/Singular/svn/trunk@13210 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • 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
50lists lCopy(lists L);
51lists lInsert0(lists ul, leftv v, int pos);
52BOOLEAN lInsert(leftv res, leftv u, leftv v);
53BOOLEAN lInsert3(leftv res, leftv u, leftv v, leftv w);
54BOOLEAN lAppend(leftv res, leftv u, leftv v);
55BOOLEAN lDelete(leftv res, leftv u, leftv v);
56BOOLEAN lAdd(leftv res, leftv u, leftv v);
57BOOLEAN lRingDependend(lists L);
58char* lString(lists l, BOOLEAN typed = FALSE, int dim = 1);
59
60
61lists liMakeResolv(resolvente r, int length, int reallen, int typ0, intvec ** weights,int add_row_shift);
62resolvente liFindRes(lists L, int * len, int *typ0,intvec *** weights=NULL);
63
64#if ! defined(MDEBUG) || defined(LISTS_CC)
65INLINE_THIS void slists::Init(int l)
66      { nr=l-1; m=(sleftv *)((l>0) ? omAlloc0(l*sizeof(sleftv)): NULL);
67      }
68#endif
69
70#undef INLINE_THIS
71
72#endif
Note: See TracBrowser for help on using the repository browser.