Changeset d5a95c in git

Timestamp:

Dec 17, 2007, 3:24:58 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

cb8700ab17f1237cdf8eb6f42df5ce02f3c49b3b

Parents:

0e9a73c8fb9c05ddae294ee2b9212dcd19efe8fb

Message:

*hannes: handle 1.234E7 inmpr_*


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

File:

• kernel/mpr_complex.cc (modified) (3 diffs)

kernel/mpr_complex.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_complex.cc,v 1.4 2006-10-11 15:57:00 Singular Exp $ */
+/* $Id: mpr_complex.cc,v 1.5 2007-12-17 14:24:58 Singular Exp $ */
 
 /*
@@ -80 +80 @@
 void gmp_float::setFromStr( char * in )
 {
+  BOOLEAN neg=false;
+  if (*in == '-') { in++; neg=TRUE; }
+  char *s;
+  if ((s=strchr(in,'E')) !=NULL)
+  {
+    *s='e';
+  }
+
   // gmp doesn't understand number which begin with "." -- it needs 0.
   // so, insert the zero
@@ -96 +104 @@
     mpf_set_str( t, in, 10 );
   }
+  if (neg)  mpf_neg( t, t );
 }