Changeset 115639 in git for Singular/extra.cc

Timestamp:

Mar 1, 2011, 6:21:05 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b521f3698286cefec0d2866b873155439fcc9619

Parents:

2c470d08ccdc9d28a3c5007e5cc99fe10e6d522c

Message:

ADD: call bigintm_setup using system("bigintm_setup"); (due to extra.cc)
ADD: bigintm_setup should better return BOOLEAN
ADD: better development prints for blackbox objects
ADD: save static type (bigintm) ID

From: Oleksandr Motsak <motsak@mathematik.uni-kl.de>

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

File:

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

Singular/extra.cc

@@ -162 +162 @@
 //#endif /* not HAVE_DYNAMIC_LOADING */
 
+#include <Singular/bigintm.h>
+
 #ifdef ix86_Win
 //#include <Python.h>
@@ -175 +177 @@
 #ifdef ix86_Win  /* PySingular initialized? */
 static int PyInitialized = 0;
+#endif
+
+#if SIZEOF_LONG == 8
+static number jjLONG2N(long d)
+{
+  int i=(int)d;
+  if ((long)i == d)
+  {
+    return nlInit(i, NULL);
+  }
+  else
+  {
+#if !defined(OM_NDEBUG) && !defined(NDEBUG)
+    omCheckBin(rnumber_bin);
+#endif
+    number z=(number)omAllocBin(rnumber_bin);
+#if defined(LDEBUG)
+    z->debug=123456;
+#endif
+    z->s=3;
+    mpz_init_set_si(z->z,d);
+    return z;
+  }
+}
+#else
+#define jjLONG2N(D) nlInit((int)D, NULL)
 #endif
 
@@ -3878 +3906 @@
     printBlackboxTypes();
     return FALSE;
-  }
-  else
+  } else
+/*==================== init the bigintm (a sample blackbox) type =========*/
+  if(strcmp(sys_cmd,"bigintm_setup") == 0)
+  {
+    return bigintm_setup();
+  } else
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );