Changeset e5db0a in git for Singular/extra.cc

Timestamp:

Sep 3, 2010, 11:21:59 AM (14 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e128fda56ac773be45f4a851d82371ff728c25a9

Parents:

5e016e27b98b70a42edca584335f57145f3a8dc0

Message:

extra command "GNUmpLoad" to load bigint from file with digits to the base 10

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

File:

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

Singular/extra.cc

@@ -15 +15 @@
 #include <signal.h>
 #include <Singular/mod2.h>
+#include <misc_ip.h>
 
 #ifdef TIME_WITH_SYS_TIME
@@ -606 +607 @@
         return FALSE;
       }
+  /*==================== mpz_t loader ======================*/
+      if(strcmp(sys_cmd, "GNUmpLoad")==0)
+      {
+        if ((h != NULL) && (h->Typ() == STRING_CMD))
+        {
+          char* filename = (char*)h->Data();
+          FILE* f = fopen(filename, "r");                         printf("check 1\n");
+          if (f == NULL)
+          {
+            Werror( "invalid file name (in paths use '/')");
+            return FALSE;
+          }                                                       printf("check 2\n");
+          mpz_t m; mpz_init(m);                                   printf("check 3\n");
+          mpz_inp_str(m, f, 10);                                  printf("check 4\n");
+          fclose(f);                                              printf("check 5\n");
+          number n = mpz2number(m);                               printf("check 6\n");
+          res->rtyp = BIGINT_CMD;
+          res->data = (void*)n;
+          return FALSE;
+        }
+        else
+        {
+          Werror( "expected valid file name as a string");
+          return FALSE;
+        }
+      }
   /*==================== neworder =============================*/
   // should go below