Changeset 0c85269 in git

Timestamp:

Nov 14, 1999, 10:34:26 PM (24 years ago)

Author:

Moritz Wenk <wenk@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5c6758194dadaac47d32a4de500eb5cfe05b7dc0

Parents:

60d1814861f37aa4f614568c807702cf3e2723de

Message:

wenk: complexNearZero


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.113 1999-11-02 15:19:05 Singular Exp $ */
+/* $Id: extra.cc,v 1.114 1999-11-14 21:34:26 wenk Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -470 +470 @@
     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=(int)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=(int)getGMPFloatDigits();
+      return FALSE;
+    }
+=======
 /*==================== poly debug ==================================*/
     if(strcmp(sys_cmd,"p")==0)