My Project  debian-1:4.1.2-p1+ds-2
denom_list.cc
Go to the documentation of this file.
1 
2 
3 
4 #include "kernel/mod2.h"
6 #include "Singular/lists.h"
7 
9 {
10  int size;
12  size=0;
13  while(d!=NULL)
14  {
15  size++;
16  d=d->next;
17  }
18  lists l=(lists)omAlloc(sizeof(*l));
19  l->Init(size);
21  for (int i=0;i<size;i++)
22  {
23  l->m[i].rtyp=NUMBER_CMD;
24  l->m[i].data=d->n;
25  d=d->next;
28  }
29  return l;
30 }
int size(const CanonicalForm &f, const Variable &v)
int size ( const CanonicalForm & f, const Variable & v )
Definition: cf_ops.cc:600
int l
Definition: cfEzgcd.cc:93
int i
Definition: cfEzgcd.cc:125
Definition: lists.h:24
lists get_denom_list()
Definition: denom_list.cc:8
@ NUMBER_CMD
Definition: grammar.cc:288
VAR denominator_list DENOMINATOR_LIST
Definition: kutil.cc:88
denominator_list next
Definition: kutil.h:61
slists * lists
Definition: mpr_numeric.h:146
#define omAlloc(size)
Definition: omAllocDecl.h:210
#define omFree(addr)
Definition: omAllocDecl.h:261
#define NULL
Definition: omList.c:12