Changeset 3e96095 in git for Singular/extra.cc

Timestamp:

Jan 29, 2009, 11:12:19 AM (15 years ago)

Author:

Martin Monerjan

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

ca41c348440e7c6d985f6aefddf5840eddd132c5

Parents:

a3771a2fa294bd63a632b48d298e68b0f1118e5b

Message:

*** empty log message ***


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

File:

• Singular/extra.cc (modified) (3 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.286 2008-12-17 15:10:37 Singular Exp $ */
+/* $Id: extra.cc,v 1.287 2009-01-29 10:12:19 monerjan Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -3062 +3062 @@
               */
 
-
-#endif
+#endif
+
+/*======== GFAN ==============*/
+if (strcmp(sys_cmd,"gfan")==0)
+{
+        if ((h==NULL) or (h!=NULL and h->Typ()!=IDEAL_CMD)){
+                Werror("system(\"gfan\"...) Ideal expected");
+                return TRUE; //Ooooops
+        }
+ideal myideal=((ideal)h->Data());
+printf("Addr: %l\n",*myideal); 
+//printf(myideal.next());
+        
+return FALSE; //Everything went fine    
+}
+else
+
+
 /*==================== Error =================*/
       Werror( "system(\"%s\",...) %s", sys_cmd, feNotImplemented );
@@ -3069 +3085 @@
   return TRUE;
 }
+
 #endif // HAVE_EXTENDED_SYSTEM
 
+