Changeset 1de0ed in git

Timestamp:

Mar 30, 2000, 1:47:52 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

119757281f1af0949ef91c82c7aa9f7f8a614c9b

Parents:

2d7f0fe3aa9857697ff4f1c260cf1dc43cd0c4f9

Message:

* hannes/krueger: fixes for ix86_linux_libc5


git-svn-id: file:///usr/local/Singular/svn/trunk@4240 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

modules

Files:

• modgen/makefile.cc (modified) (2 diffs)
• pcv/pcv/pcv.cc (modified) (1 diff)
• pcv/pcv/pcv.h (modified) (1 diff)

modules/modgen/makefile.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: makefile.cc,v 1.5 2000-03-30 06:35:44 krueger Exp $ */
+/* $Id: makefile.cc,v 1.6 2000-03-30 11:47:48 Singular Exp $ */
 /*
 * ABSTRACT: lib parsing
@@ -133 +133 @@
 /*===  Machine depend Makefile creation                                ===*/
 /*========================================================================*/
-#ifdef ix86_Linux
+#if defined(ix86_Linux) || defined(ix86_Linux_libc5)
 void build_compile_section(
   FILE *fp,

modules/pcv/pcv/pcv.cc

@@ -1 @@
-/*****************************************
-*  Computer Algebra System SINGULAR      *
-*****************************************/
-/* $Id: pcv.cc,v 1.2 1998-12-21 10:55:13 mschulze Exp $ */
 /*
-* ABSTRACT: conversion between polys and coef vectors
-*/
-
-#include "mod2.h"
-#include "tok.h"
-#include "ipid.h"
-#include "numbers.h"
-#include "polys.h"
-#include "lists.h"
-#include "febase.h"
+ * This was automaticly generated by modgen
+ * version 0.2
+ * module pcv
+ * Don't edit this file
+ */
+
+
+#line 10 "pcv.cc"
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+
+
+#include <locals.h>
 #include "pcv.h"
-
-static int pcvDegBound;
-static int pcvTableSize;
-static int pcvIndexSize;
-static unsigned* pcvTable=NULL;
-static unsigned** pcvIndex=NULL;
-
-int pcvDeg(poly p)
-{
-  int dp=0;
-  for(int i=1;i<=pVariables;i++) dp+=pGetExp(p,i);
-  return dp;
-}
-
-int pcvMinDeg(poly p)
-{
-  if(!p) return 0;
-  int md=pcvDeg(p);
-  pIter(p);
-  while(p)
+#line 19 "pcv.cc"
+
+idhdl enter_id(char *name, char *value, idtyp t)
+{
+  idhdl h;
+
+  h=enterid(mstrdup(name),0, t, &IDROOT, TRUE/*FALSE*/);
+  if(h!=NULL) {
+     switch(t) {
+         case STRING_CMD: IDSTRING(h) = mstrdup(value);break;
+         case PACKAGE_CMD: break;
+         case PROC_CMD: break;
+     }
+  } else 
+      Warn("Cannot create '%s'\n", name);
+  return(h);
+}
+
+#line 37 "pcv.cc"
+
+idhdl add_singular_proc(char *procname, int line,
+                       long pos, long end, BOOLEAN pstatic)
+{
+  idhdl h;
+  procinfov pi;
+
+  h = enter_id(procname, NULL, PROC_CMD);
+  if(h == NULL) return NULL;
+
+  pi->procname = mstrdup(procname);
+  pi->language = LANG_SINGULAR;
+  pi->ref = 1;
+  pi->is_static = pstatic;
+  pi->data.s.proc_start = pos;
+  pi->data.s.def_end    = pos;
+  pi->data.s.help_start = 0L;
+  pi->data.s.help_end   = 0L;
+  pi->data.s.body_start = pos;
+  pi->data.s.body_end   = end;
+  pi->data.s.proc_end   = end;
+  pi->data.s.example_start = 0L;
+  pi->data.s.proc_lineno = line;
+  pi->data.s.body_lineno = line;
+  pi->data.s.example_lineno = 0;
+  pi->data.s.body = NULL;
+  pi->data.s.help_chksum = 0;
+  
+  return(h);
+}
+
+void fill_help_package(idhdl pl);
+void fill_example_package(idhdl pl);
+
+#line 2 "pcv.mod"
+/*
+ *  $Id: pcv.cc,v 1.3 2000-03-30 11:47:51 Singular Exp $
+ *
+ *  Test mod fuer modgen
+ */
+
+#include <stdio.h>
+#include "Pcv.h"
+#line 11 "pcv.mod"
+
+
+#line 84 "pcv.cc"
+extern "C"
+int mod_init(int(*iiAddCproc)())
+{
+  idhdl h;
+  idhdl helphdl = enter_id("Help", NULL, PACKAGE_CMD);
+  idhdl examplehdl = enter_id("Example", NULL, PACKAGE_CMD);
+
+  
+   if( helphdl == NULL)
+     Warn("Cannot create help-package\n");
+   else fill_help_package(helphdl);
+  
+   if( examplehdl == NULL)
+     Warn("Cannot create example-package\n");
+   else fill_example_package(examplehdl);
+#line 15 "pcv.mod"
+  enter_id("version","$Id: pcv.cc,v 1.3 2000-03-30 11:47:51 Singular Exp $", STRING_CMD);
+#line 25 "pcv.mod"
+  enter_id("info","
+LIBRARY: pcv.so  CONVERSION BETWEEN POLYS AND COEF VECTORS
+AUTHOR:  Mathias Schulze, email: mschulze@mathematik.uni-kl.de
+
+ MinDeg(p);      min deg of monomials of poly p
+ P2CV(l,d0,d1);  list of coef vectors from deg d0 to d1 of polys in list l
+ CV2P(l,d0,d1);  list of polys with coef vectors from deg d0 to d1 in list l
+ Dim(d0,d1);     number of monomials from deg d0 to d1
+ Basis(d0,d1);   list of monomials from deg d0 to d1
+", STRING_CMD);
+
+#line 31 "pcv.mod"
+  iiAddCproc("pcv","MinDeg",FALSE, mod_MinDeg);
+
+#line 37 "pcv.mod"
+  iiAddCproc("pcv","P2CV",FALSE, mod_P2CV);
+
+#line 51 "pcv.mod"
+  iiAddCproc("pcv","CV2P",FALSE, mod_CV2P);
+
+#line 66 "pcv.mod"
+  iiAddCproc("pcv","Dim",FALSE, mod_Dim);
+
+#line 81 "pcv.mod"
+  iiAddCproc("pcv","Basis",FALSE, mod_Basis);
+
+  return 0;
+}
+
+#line 132 "pcv.cc"
+/* Help section */
+void fill_help_package(idhdl pl) {
+  namespaceroot->push(IDPACKAGE(pl), IDID(pl));
+
+#line 137 "pcv.cc"
+  namespaceroot->pop();
+}  /* End of Help section */
+
+/* Example section */
+void fill_example_package(idhdl pl) {
+  namespaceroot->push(IDPACKAGE(pl), IDID(pl));
+
+#line 145 "pcv.cc"
+  namespaceroot->pop();
+} /* End of Example section */
+
+#line 31 "pcv.mod"
+BOOLEAN mod_MinDeg(leftv res, leftv h)
+{
+#line 31 "pcv.mod"
+#line 153 "pcv.cc"
+
+#line 32 "pcv.mod"
+#line 156 "pcv.cc"
+  leftv v = h, v_save;
+  int tok = NONE, index = 0;
+  sleftv sp; leftv zp = &sp;
+  poly p;
+#line 32 "pcv.mod"
+
+
+#line 33 "pcv.mod"
+#line 165 "pcv.cc"
+  if(v==NULL) goto mod_MinDeg_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, POLY_CMD))==0)
+     goto mod_MinDeg_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, POLY_CMD, index, v, zp))
+     goto mod_MinDeg_error;
+  v = v_save;
+  p = (poly)zp->Data();
+  if(v!=NULL) { tok = v->Typ(); goto mod_MinDeg_error; }
+
+#line 33 "pcv.mod"
+
+#line 34 "pcv.mod"
+#line 181 "pcv.cc"
+  res->rtyp = INT_CMD;
+  res->data = (void *)pcvMinDeg(p);
+  if(res->data != NULL) return FALSE;
+  else return TRUE;
+
+
+  mod_MinDeg_error:
+    Werror("MinDeg(`%s`) is not supported", Tok2Cmdname(tok));
+    Werror("expected MinDeg('poly')");
+    return TRUE;
+}
+
+#line 37 "pcv.mod"
+BOOLEAN mod_P2CV(leftv res, leftv h)
+{
+#line 37 "pcv.mod"
+#line 198 "pcv.cc"
+
+#line 38 "pcv.mod"
+#line 201 "pcv.cc"
+  leftv v = h, v_save;
+  int tok = NONE, index = 0;
+  sleftv spl; leftv zpl = &spl;
+  lists pl;
+  sleftv sd0; leftv zd0 = &sd0;
+  int d0;
+  sleftv sd1; leftv zd1 = &sd1;
+  int d1;
+#line 38 "pcv.mod"
+
+
+
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
   {
-    int d=pcvDeg(p);
-    if(d<md) md=d;
-    pIter(p);
+    WerrorS("no ring active");
+    return TRUE;
   }
-  return md;
-}
-
-int pcvMaxDeg(poly p)
-{
-  if(!p) return 0;
-  int md=pcvDeg(p);
-  pIter(p);
-  while(p)
+  
+#line 47 "pcv.mod"
+#line 222 "pcv.cc"
+  if(v==NULL) goto mod_P2CV_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, LIST_CMD))==0)
+     goto mod_P2CV_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, LIST_CMD, index, v, zpl))
+     goto mod_P2CV_error;
+  v = v_save;
+  pl = (lists)zpl->Data();
+  if(v==NULL) goto mod_P2CV_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_P2CV_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd0))
+     goto mod_P2CV_error;
+  v = v_save;
+  d0 = (int)zd0->Data();
+  if(v==NULL) goto mod_P2CV_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_P2CV_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd1))
+     goto mod_P2CV_error;
+  v = v_save;
+  d1 = (int)zd1->Data();
+  if(v!=NULL) { tok = v->Typ(); goto mod_P2CV_error; }
+
+#line 47 "pcv.mod"
+
+#line 48 "pcv.mod"
+#line 258 "pcv.cc"
+  res->rtyp = LIST_CMD;
+  res->data = (void *)pcvP2CV(pl, d0, d1);
+  if(res->data != NULL) return FALSE;
+  else return TRUE;
+
+
+  mod_P2CV_error:
+    Werror("P2CV(`%s`) is not supported", Tok2Cmdname(tok));
+    Werror("expected P2CV('list','int','int')");
+    return TRUE;
+}
+
+#line 51 "pcv.mod"
+BOOLEAN mod_CV2P(leftv res, leftv h)
+{
+#line 52 "pcv.mod"
+#line 275 "pcv.cc"
+
+#line 53 "pcv.mod"
+#line 278 "pcv.cc"
+  leftv v = h, v_save;
+  int tok = NONE, index = 0;
+  sleftv spl; leftv zpl = &spl;
+  lists pl;
+  sleftv sd0; leftv zd0 = &sd0;
+  int d0;
+  sleftv sd1; leftv zd1 = &sd1;
+  int d1;
+#line 53 "pcv.mod"
+
+
+
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
   {
-    int d=pcvDeg(p);
-    if(d>md) md=d;
-    pIter(p);
+    WerrorS("no ring active");
+    return TRUE;
   }
-  return md;
-}
-
-BOOLEAN pcvMinDeg(leftv res,leftv h)
-{
-  if(h)
+  
+#line 62 "pcv.mod"
+#line 299 "pcv.cc"
+  if(v==NULL) goto mod_CV2P_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, LIST_CMD))==0)
+     goto mod_CV2P_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, LIST_CMD, index, v, zpl))
+     goto mod_CV2P_error;
+  v = v_save;
+  pl = (lists)zpl->Data();
+  if(v==NULL) goto mod_CV2P_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_CV2P_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd0))
+     goto mod_CV2P_error;
+  v = v_save;
+  d0 = (int)zd0->Data();
+  if(v==NULL) goto mod_CV2P_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_CV2P_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd1))
+     goto mod_CV2P_error;
+  v = v_save;
+  d1 = (int)zd1->Data();
+  if(v!=NULL) { tok = v->Typ(); goto mod_CV2P_error; }
+
+#line 62 "pcv.mod"
+
+#line 63 "pcv.mod"
+#line 335 "pcv.cc"
+  res->rtyp = LIST_CMD;
+  res->data = (void *)pcvCV2P(pl, d0, d1);
+  if(res->data != NULL) return FALSE;
+  else return TRUE;
+
+
+  mod_CV2P_error:
+    Werror("CV2P(`%s`) is not supported", Tok2Cmdname(tok));
+    Werror("expected CV2P('list','int','int')");
+    return TRUE;
+}
+
+#line 66 "pcv.mod"
+BOOLEAN mod_Dim(leftv res, leftv h)
+{
+#line 67 "pcv.mod"
+#line 352 "pcv.cc"
+
+#line 68 "pcv.mod"
+#line 355 "pcv.cc"
+  leftv v = h, v_save;
+  int tok = NONE, index = 0;
+  sleftv sd0; leftv zd0 = &sd0;
+  int d0;
+  sleftv sd1; leftv zd1 = &sd1;
+  int d1;
+#line 68 "pcv.mod"
+
+
+
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
   {
-    if(h->Typ()==POLY_CMD)
-    {
-      res->rtyp=INT_CMD;
-      res->data=(void*)pcvMinDeg((poly)h->Data());
-      return FALSE;
-    }
+    WerrorS("no ring active");
+    return TRUE;
   }
-  WerrorS("<poly> expected");
-  return TRUE;
-}
-
-BOOLEAN pcvMaxDeg(leftv res,leftv h)
-{
-  if(h)
+  
+#line 77 "pcv.mod"
+#line 374 "pcv.cc"
+  if(v==NULL) goto mod_Dim_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_Dim_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd0))
+     goto mod_Dim_error;
+  v = v_save;
+  d0 = (int)zd0->Data();
+  if(v==NULL) goto mod_Dim_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_Dim_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd1))
+     goto mod_Dim_error;
+  v = v_save;
+  d1 = (int)zd1->Data();
+  if(v!=NULL) { tok = v->Typ(); goto mod_Dim_error; }
+
+#line 77 "pcv.mod"
+
+#line 78 "pcv.mod"
+#line 400 "pcv.cc"
+  res->rtyp = INT_CMD;
+  res->data = (void *)pcvDim(d0, d1);
+  if(res->data != NULL) return FALSE;
+  else return TRUE;
+
+
+  mod_Dim_error:
+    Werror("Dim(`%s`) is not supported", Tok2Cmdname(tok));
+    Werror("expected Dim('int','int')");
+    return TRUE;
+}
+
+#line 81 "pcv.mod"
+BOOLEAN mod_Basis(leftv res, leftv h)
+{
+#line 82 "pcv.mod"
+#line 417 "pcv.cc"
+
+#line 83 "pcv.mod"
+#line 420 "pcv.cc"
+  leftv v = h, v_save;
+  int tok = NONE, index = 0;
+  sleftv sd0; leftv zd0 = &sd0;
+  int d0;
+  sleftv sd1; leftv zd1 = &sd1;
+  int d1;
+#line 83 "pcv.mod"
+
+
+
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
   {
-    if(h->Typ()==POLY_CMD)
-    {
-      res->rtyp=INT_CMD;
-      res->data=(void*)pcvMaxDeg((poly)h->Data());
-      return FALSE;
-    }
+    WerrorS("no ring active");
+    return TRUE;
   }
-  WerrorS("<poly> expected");
-  return TRUE;
-}
-
-void pcvInit(int d)
-{
-  if(d<0) d=0;
-  pcvDegBound=d;
-  pcvTableSize=pVariables*pcvDegBound*sizeof(unsigned);
-  pcvTable=(unsigned*)Alloc0(pcvTableSize);
-  pcvIndexSize=pVariables*sizeof(unsigned*);
-  pcvIndex=(unsigned**)Alloc(pcvIndexSize);
-  for(int i=0;i<pVariables;i++)
-    pcvIndex[i]=pcvTable+i*pcvDegBound;
-  for(int i=0;i<pcvDegBound;i++)
-    pcvIndex[0][i]=i;
-  for(int i=1;i<pVariables;i++)
-  {
-    unsigned x=0;
-    for(int j=0;j<pcvDegBound;j++)
-    {
-      x+=pcvIndex[i-1][j];
-      pcvIndex[i][j]=x;
-    }
-  }
-}
-
-void pcvClean()
-{
-  if(pcvTable)
-  {
-    Free(pcvTable,pcvTableSize);
-    pcvTable=NULL;
-  }
-  if(pcvIndex)
-  {
-    Free(pcvIndex,pcvIndexSize);
-    pcvIndex=NULL;
-  }
-}
-
-int pcvM2N(poly m)
-{
-  unsigned n=0,d=0;
-  for(int i=0;i<pVariables;i++)
-  {
-    d+=pGetExp(m,i+1);
-    n+=pcvIndex[i][d];
-  }
-  return n+1;
-}
-
-poly pcvN2M(int n)
-{
-  n--;
-  poly m=pOne();
-  int i,j,k;
-  for(i=pVariables-1;i>=0;i--)
-  {
-    k=j;
-    for(j=0;j<pcvDegBound&&pcvIndex[i][j]<=n;j++);
-    j--;
-    n-=pcvIndex[i][j];
-    if(i<pVariables-1) pSetExp(m,i+2,k-j);
-  }
-  if(n==0)
-  {
-    pSetExp(m,1,j);
-    pSetm(m);
-    return m;
-  }
-  else
-  {
-    pDelete1(&m);
-    return NULL;
-  }
-}
-
-poly pcvP2CV(poly p,int d0,int d1)
-{
-  poly cv=NULL;
-  while(p)
-  {
-    int d=pcvDeg(p);
-    if(d0<=d&&d<d1)
-    {
-      poly c=pOne();
-      pSetComp(c,pcvM2N(p));
-      pSetCoeff(c,nCopy(pGetCoeff(p)));
-      cv=pAdd(cv,c);
-    }
-    pIter(p);
-  }
-  return cv;
-}
-
-poly pcvCV2P(poly cv,int d0,int d1)
-{
-  poly p=NULL;
-  while(cv)
-  {
-    poly m=pcvN2M(pGetComp(cv));
-    if(m)
-    {
-      int d=pcvDeg(m);
-      if(d0<=d&&d<d1)
-      {
-        pSetCoeff(m,nCopy(pGetCoeff(cv)));
-        p=pAdd(p,m);
-      }
-    }
-    pIter(cv);
-  }
-  return p;
-}
-
-lists pcvP2CV(lists pl,int d0,int d1)
-{
-  lists cvl=(lists)Alloc(sizeof(slists));
-  cvl->Init(pl->nr+1);
-  pcvInit(d1);
-  for(int i=pl->nr;i>=0;i--)
-  {
-    if(pl->m[i].rtyp==POLY_CMD)
-    {
-      cvl->m[i].rtyp=VECTOR_CMD;
-      cvl->m[i].data=pcvP2CV((poly)pl->m[i].data,d0,d1);
-    }
-  }
-  pcvClean();
-  return cvl;
-}
-
-lists pcvCV2P(lists cvl,int d0,int d1)
-{
-  lists pl=(lists)Alloc(sizeof(slists));
-  pl->Init(cvl->nr+1);
-  pcvInit(d1);
-  for(int i=cvl->nr;i>=0;i--)
-  {
-    if(cvl->m[i].rtyp==VECTOR_CMD)
-    {
-      pl->m[i].rtyp=POLY_CMD;
-      pl->m[i].data=pcvCV2P((poly)cvl->m[i].data,d0,d1);
-    }
-  }
-  pcvClean();
-  return pl;
-}
-
-BOOLEAN pcvP2CV(leftv res,leftv h)
-{
-  if(currRingHdl)
-  {
-    if(h&&h->Typ()==LIST_CMD)
-    {
-      lists pl=(lists)h->Data();
-      h=h->next;
-      if(h&&h->Typ()==INT_CMD)
-      {
-        int d0=(int)h->Data();
-        h=h->next;
-        if(h&&h->Typ()==INT_CMD)
-        {
-          int d1=(int)h->Data();
-          res->rtyp=LIST_CMD;
-          res->data=pcvP2CV(pl,d0,d1);
-          return FALSE;
-        }
-      }
-    }
-    WerrorS("<list>,<int>,<int> expected");
-    return TRUE;
-  }
-  WerrorS("no ring active");
-  return TRUE;
-}
-
-BOOLEAN pcvCV2P(leftv res,leftv h)
-{
-  if(currRingHdl)
-  {
-    if(h&&h->Typ()==LIST_CMD)
-    {
-      lists pl=(lists)h->Data();
-      h=h->next;
-      if(h&&h->Typ()==INT_CMD)
-      {
-        int d0=(int)h->Data();
-        h=h->next;
-        if(h&&h->Typ()==INT_CMD)
-        {
-          int d1=(int)h->Data();
-          res->rtyp=LIST_CMD;
-          res->data=pcvCV2P(pl,d0,d1);
-          return FALSE;
-        }
-      }
-    }
-    WerrorS("<list>,<int>,<int> expected");
-    return TRUE;
-  }
-  WerrorS("no ring active");
-  return TRUE;
-}
-
-int pcvDim(int d0,int d1)
-{
-  if(d0<0) d0=0;
-  if(d1<0) d1=0;
-  pcvInit(d1+1);
-  int d=pcvIndex[pVariables-1][d1]-pcvIndex[pVariables-1][d0];
-  pcvClean();
-  return d;
-}
-
-BOOLEAN pcvDim(leftv res,leftv h)
-{
-  if(currRingHdl)
-  {
-    if(h&&h->Typ()==INT_CMD)
-    {
-      int d0=(int)h->Data();
-      h=h->next;
-      if(h&&h->Typ()==INT_CMD)
-      {
-        int d1=(int)h->Data();
-        res->rtyp=INT_CMD;
-        res->data=(void*)pcvDim(d0,d1);
-        return FALSE;
-      }
-    }
-    WerrorS("<int>,<int> expected");
-    return TRUE;
-  }
-  WerrorS("no ring active");
-  return TRUE;
-}
-
-int pcvBasis(lists b,int i,poly m,int d,int n)
-{
-  if(n<pVariables)
-  {
-    for(int k=0,l=d;k<=l;k++,d--)
-    {
-      pSetExp(m,n,k);
-      i=pcvBasis(b,i,m,d,n+1);
-    }
-  }
-  else
-  {
-    pSetExp(m,n,d);
-    pSetm(m);
-    b->m[i].rtyp=POLY_CMD;
-    b->m[i++].data=pCopy(m);
-  }
-  return i;
-}
-
-lists pcvBasis(int d0,int d1)
-{
-  if(d0<0) d0=0;
-  if(d1<0) d1=0;
-  lists b=(lists)Alloc(sizeof(slists));
-  b->Init(pcvDim(d0,d1));
-  poly m=pOne();
-  for(int d=d0,i=0;d<d1;d++)
-    i=pcvBasis(b,i,m,d,1);
-  pDelete1(&m);
-  return b;
-}
-
-BOOLEAN pcvBasis(leftv res,leftv h)
-{
-  if(currRingHdl)
-  {
-    if(h&&h->Typ()==INT_CMD)
-    {
-      int d0=(int)h->Data();
-      h=h->next;
-      if(h&&h->Typ()==INT_CMD)
-      {
-        int d1=(int)h->Data();
-        res->rtyp=LIST_CMD;
-        res->data=pcvBasis(d0,d1);
-        return FALSE;
-      }
-    }
-    WerrorS("<int>,<int> expected");
-    return TRUE;
-  }
-  WerrorS("no ring active");
-  return TRUE;
-}
+  
+#line 92 "pcv.mod"
+#line 439 "pcv.cc"
+  if(v==NULL) goto mod_Basis_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_Basis_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd0))
+     goto mod_Basis_error;
+  v = v_save;
+  d0 = (int)zd0->Data();
+  if(v==NULL) goto mod_Basis_error;
+  tok = v->Typ();
+  if((index=iiTestConvert(tok, INT_CMD))==0)
+     goto mod_Basis_error;
+  v_save = v->next;
+  v->next = NULL;
+  if(iiConvert(tok, INT_CMD, index, v, zd1))
+     goto mod_Basis_error;
+  v = v_save;
+  d1 = (int)zd1->Data();
+  if(v!=NULL) { tok = v->Typ(); goto mod_Basis_error; }
+
+#line 92 "pcv.mod"
+
+#line 93 "pcv.mod"
+#line 465 "pcv.cc"
+  res->rtyp = LIST_CMD;
+  res->data = (void *)pcvBasis(d0, d1);
+  if(res->data != NULL) return FALSE;
+  else return TRUE;
+
+
+  mod_Basis_error:
+    Werror("Basis(`%s`) is not supported", Tok2Cmdname(tok));
+    Werror("expected Basis('int','int')");
+    return TRUE;
+}
+
+
+#line 478 "pcv.cc"

modules/pcv/pcv/pcv.h

@@ -1 @@
-/****************************************
-*  Computer Algebra System SINGULAR     *
-****************************************/
-/* $Id: pcv.h,v 1.2 1998-12-21 10:55:17 mschulze Exp $ */
 /*
-* ABSTRACT: conversion between polys and coef vectors
-*/
+ * This was automaticly generated by modgen
+ * version 0.2
+ * module pcv
+ * Don't edit this file
+ */
 
-#ifndef PCV_H
-#define PCV_H
 
-int pcvDeg(poly p);
-int pcvMinDeg(poly p);
-int pcvMaxDeg(poly p);
-BOOLEAN pcvMinDeg(leftv res,leftv h);
-BOOLEAN pcvMaxDeg(leftv res,leftv h);
-void pcvInit(int d);
-void pcvClean();
-poly pcvP2CV(poly p,int d0,int d1);
-poly pcvCV2P(poly cv,int d0,int d1);
-lists pcvP2CV(lists pl,int d0,int d1);
-lists pcvCV2P(lists cvl,int d0,int d1);
-BOOLEAN pcvP2CV(leftv res,leftv h);
-BOOLEAN pcvCV2P(leftv res,leftv h);
-int pcvDim(int d0,int d1);
-BOOLEAN pcvDim(leftv res,leftv h);
-int pcvBasis(lists b,int i,poly m,int d,int n);
-lists pcvBasis(int d0,int d1);
-BOOLEAN pcvBasis(leftv res,leftv h);
+#line 113 "pcv.cc"
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <ctype.h>
 
-#endif
+
+#include <locals.h>
+
+BOOLEAN mod_MinDeg(leftv res, leftv h);
+//int pcvMinDeg(poly p);
+
+BOOLEAN mod_P2CV(leftv res, leftv h);
+//lists pcvP2CV(lists pl, int d0, int d1);
+
+BOOLEAN mod_CV2P(leftv res, leftv h);
+//lists pcvCV2P(lists pl, int d0, int d1);
+
+BOOLEAN mod_Dim(leftv res, leftv h);
+//int pcvDim(int d0, int d1);
+
+BOOLEAN mod_Basis(leftv res, leftv h);
+//lists pcvBasis(int d0, int d1);
+