Changeset d6049b in git

Timestamp:

Dec 8, 1999, 5:47:04 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

80bc9a2a19792eac466f11fdaf38b3f89b93c9d2

Parents:

8f659dcd63bdda50d728bb99b7b23866b6d00834

Message:

* moved getPrecDigits to normal system calls


git-svn-id: file:///usr/local/Singular/svn/trunk@3975 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.127 1999-12-03 13:26:21 obachman Exp $ */
+/* $Id: extra.cc,v 1.128 1999-12-08 16:47:04 obachman Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -419 +419 @@
       res->rtyp=INT_CMD;
       res->data=(void*) siRandomStart;
+      return FALSE;
+    }
+/*==================== complexNearZero ======================*/
+    if(strcmp(sys_cmd,"complexNearZero")==0)
+    {
+      if (h->Typ()==NUMBER_CMD )
+      {
+        if ( h->next!=NULL && h->next->Typ()==INT_CMD )
+        {
+          if ( !rField_is_long_C() )
+            {
+              Werror( "unsupported ground field!");
+              return TRUE;
+            }
+          else
+            {
+              res->rtyp=INT_CMD;
+              res->data=(void*)complexNearZero((gmp_complex*)h->Data(),(int)h->next->Data());
+              return FALSE;
+            }
+        }
+        else
+        {
+          Werror( "expected <int> as third parameter!");
+          return TRUE;
+        }
+      }
+      else
+      {
+        Werror( "expected <number> as second parameter!");
+        return TRUE;
+      }
+    }
+/*==================== getPrecDigits ======================*/
+    if(strcmp(sys_cmd,"getPrecDigits")==0)
+    {
+      if ( !rField_is_long_C() && !rField_is_long_R() )
+      {
+        Werror( "unsupported ground field!");
+        return TRUE;
+      }
+      res->rtyp=INT_CMD;
+      res->data=(void*)getGMPFloatDigits();
       return FALSE;
     }
@@ -580 +623 @@
     char *sys_cmd=(char *)(h->Data());
     h=h->next;
-/*==================== complexNearZero ======================*/
-    if(strcmp(sys_cmd,"complexNearZero")==0)
-    {
-      if (h->Typ()==NUMBER_CMD )
-      {
-        if ( h->next!=NULL && h->next->Typ()==INT_CMD )
-        {
-          if ( !rField_is_long_C() )
-            {
-              Werror( "unsupported ground field!");
-              return TRUE;
-            }
-          else
-            {
-              res->rtyp=INT_CMD;
-              res->data=(void*)complexNearZero((gmp_complex*)h->Data(),(int)h->next->Data());
-              return FALSE;
-            }
-        }
-        else
-        {
-          Werror( "expected <int> as third parameter!");
-          return TRUE;
-        }
-      }
-      else
-      {
-        Werror( "expected <number> as second parameter!");
-        return TRUE;
-      }
-    }
-/*==================== getPrecDigits ======================*/
-    if(strcmp(sys_cmd,"getPrecDigits")==0)
-    {
-      if ( !rField_is_long_C() && !rField_is_long_R() )
-      {
-        Werror( "unsupported ground field!");
-        return TRUE;
-      }
-      res->rtyp=INT_CMD;
-      res->data=(void*)getGMPFloatDigits();
-      return FALSE;
-    }
 /*==================== poly debug ==================================*/
     if(strcmp(sys_cmd,"p")==0)