Changeset da408f in git for Singular/extra.cc

Timestamp:

Jul 8, 1999, 12:18:13 PM (24 years ago)

Author:

Moritz Wenk <wenk@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

b719a30005f8bcbcca9d638b7908dda038ffee56

Parents:

4deddb979be065737d63e926fc05f264a6b1078a

Message:

*wenk: changed uressolve CMD_3 -> CMD_M (4)
	       laguerre  CMD2_ -> CMD_3
       removed "setFloatDigits" in extra.cc
       fixed output (2.2e33 -> 2.2e+33)
       adapted solve.lib to uressolve, laguerre, extended examples


git-svn-id: file:///usr/local/Singular/svn/trunk@3247 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.94 1999-06-28 12:48:07 wenk Exp $ */
+/* $Id: extra.cc,v 1.95 1999-07-08 10:18:07 wenk Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -409 +409 @@
     char *sys_cmd=(char *)(h->Data());
     h=h->next;
-/*==================== setFloatDigits ================================*/
-    if(strcmp(sys_cmd,"setFloatDigits")==0)
-    {
-      if ((h!=NULL) && (h->Typ()==INT_CMD)) 
-        {
-          if ( !(rField_is_R()||rField_is_long_R()||rField_is_long_C()) ) 
-          {
-            setGMPFloatDigits( (unsigned long int)h->Data() );
-            res->rtyp=INT_CMD;
-            res->data=(void*)getGMPFloatDigits();
-          }
-          else
-          {
-            res->rtyp=INT_CMD;
-            res->data=(void*)0;
-          }
-          return FALSE;
-        }
-      else
-        {
-          WerrorS("int expected as second parameter");
-        }
-    }
-    else
 /*==================== pcv ==================================*/
 #ifndef HAVE_DYNAMIC_LOADING