1 
2 
3 
4 #include "kernel/mod2.h"
5 #include "kernel/GBEngine/kutil.h"
6 #include "Singular/lists.h"
7 
get_denom_list()8 lists get_denom_list()
9 {
10   int size;
11   denominator_list d = DENOMINATOR_LIST;
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);
20   d=DENOMINATOR_LIST;
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;
26     omFree(DENOMINATOR_LIST);
27     DENOMINATOR_LIST=d;
28   }
29   return l;
30 }
31