Changeset b3e45f in git

Timestamp:

Feb 6, 2009, 4:16:17 PM (14 years ago)

Author:

Martin Monerjan

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

9bb97ef0a0e640ba336498902b874a16dc7b978e

Parents:

50ab25a42bd6c030a238eab6104c61f1242e474c

Message:

*** empty log message ***


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

Files:

• Singular/extra.cc (modified) (2 diffs)
• kernel/gfan.cc (modified) (1 diff)
• kernel/gfan.h (modified) (1 diff)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.290 2009-02-06 07:54:11 monerjan Exp $ */
+/* $Id: extra.cc,v 1.291 2009-02-06 15:16:16 monerjan Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -3075 +3075 @@
 ideal I=((ideal)h->Data());
 res->rtyp=IDEAL_CMD;
-/*
- to do: 
- create ../kernel/gfan.h & ../kernel/gfan.cc
- #include "gfan.h"
-
-res->data=(void*) gfan(I); //needs to be included
-*/
+res->data=(ideal) gfan(I);
         
 return FALSE; //Everything went fine    

kernel/gfan.cc

@@ +1 @@
+/*
+Compute the Gröbner fan of an ideal
+*/
+
 #include "mod2.h"
 #include "kstd1.h"
 #include "intvec.h"
 
-int getGB(ideal inputIdeal){
-//kStd(inputIdeal);
+#ifndef gfan_DEBUG
+#define gfan_DEBUG
+#endif
+
+ideal getGB(ideal inputIdeal){
+        ideal gb;
+        gb=kStd(inputIdeal,NULL,testHomog,NULL); //Possible to call without testHomog/isHomog?
+                                                // Why are 64 "results" printed?
+        #ifdef gfan_DEBUG
+        printf("Now in getGB\n");
+        #endif
+        return gb;
 }
 
+ideal gfan(ideal inputIdeal){
+        #ifdef gfan_DEBUG
+        printf("Now in subroutine gfan\n");
+        #endif
+        ideal res;
+        res=getGB(inputIdeal);
+        return res;
+}
+

kernel/gfan.h

@@ -2 +2 @@
 
 ideal getGB(ideal inputIdeal);
+ideal gfan(ideal inputIdeal);