Changeset dcafdb in git

Timestamp:

Apr 1, 1999, 12:09:53 AM (24 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

5f89ebcfc3931375fa6e2ad6e495331a4064a4e3

Parents:

6c87725945caa48b135d716568d9cf8b968ba527

Message:

Changes needed for new version of modgen


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

Location:

modules

Files:

• kernel/kernel.mod (modified) (2 diffs)
• pcv/pcv.mod (modified) (2 diffs)

modules/kernel/kernel.mod

@@ -1 +1 @@
 /*
- *  $Id: kernel.mod,v 1.1 1998-11-19 15:49:22 krueger Exp $
+ *  $Id: kernel.mod,v 1.2 1999-03-31 22:09:53 krueger Exp $
  *
  *  Test mod fuer modgen
  */
 module="kernel";
-version="$Id: kernel.mod,v 1.1 1998-11-19 15:49:22 krueger Exp $";
+version="$Id: kernel.mod,v 1.2 1999-03-31 22:09:53 krueger Exp $";
 info="
 LIBRARY: kernel.lib  PROCEDURES OF GENERAL TYPE WRITEN IN C
@@ -16 +16 @@
 /*cxxsource = sscanf.cc*/
 
-proc proclist=kProclist;
+proc proclist {
+ function=piShowProcList;
+};
 
-proc nn(string)=iiKernelMiscNN;
+proc ideal toid(ideal) {
+function=toid;
+}
+
+/*
+proc string nn(string) {
+  function=iiKernelMiscNN;
+};
+*/
 
 /*proc sscanf(string, string) = IOsscanf; */

modules/pcv/pcv.mod

@@ -1 +1 @@
 module="pcv";
 
-version="$Id: pcv.mod,v 1.2 1999-02-11 11:39:29 mschulze Exp $";
+version="$Id: pcv.mod,v 1.3 1999-03-31 22:08:13 krueger Exp $";
 info="
 LIBRARY: pcv.so  CONVERSION BETWEEN POLYS AND COEF VECTORS
@@ -16 +16 @@
 cxxsource = pcv/pcv.cc
 
-proc MinDeg(poly) = pcvMinDeg;
-proc MaxDeg(poly) = pcvMaxDeg;
-proc P2CV(list,int,int) = pcvP2CV;
-proc CV2P(list,int,int) = pcvCV2P;
-proc Dim(int,int) = pcvDim;
-proc Basis(int,int) = pcvBasis;
+proc int MinDeg(poly) {
+   function=pcvMinDeg;
+}
+
+proc int MaxDeg(poly) {
+   function=pcvMaxDeg;
+}
+
+proc list P2CV(list,int,int) {
+C={ 
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
+  {
+    WerrorS("no ring active");
+    return TRUE;
+  }
+};
+function=pcvP2CV;
+}
+
+proc list CV2P(list,int,int)
+{
+C={  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
+  {
+    WerrorS("no ring active");
+    return TRUE;
+  }
+};
+function=pcvCV2P;}
+
+proc int Dim(int,int)
+{
+C = {
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
+  {
+    WerrorS("no ring active");
+    return TRUE;
+  }
+};
+function=pcvDim;
+
+}
+
+proc list Basis(int,int)
+{
+C = {
+  /* check if current RingHandle is set */
+  if(currRingHdl == NULL)
+  {
+    WerrorS("no ring active");
+    return TRUE;
+  }
+};
+function=pcvBasis;}
+