Changeset 144103 in git

Timestamp:

Jul 1, 1999, 6:13:42 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

6de26a0e63b1ed1c30b10d4e5574fe8982f9f569

Parents:

776986f6ec49c2c9cfbbf03aa967863dd9d7cd22

Message:

* hannes: rField_is_R


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

Location:

Singular

Files:

• numbers.cc (modified) (5 diffs)
• ring.cc (modified) (2 diffs)
• ring.h (modified) (2 diffs)

Singular/numbers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: numbers.cc,v 1.16 1999-06-23 10:04:55 wenk Exp $ */
+/* $Id: numbers.cc,v 1.17 1999-07-01 16:13:40 Singular Exp $ */
 
 /*
@@ -164 +164 @@
     }
   }
-  else
-  if (rField_is_Q(r))
+  else if (rField_is_Q(r))
   {
 #ifdef LDEBUG
@@ -253 +252 @@
     }
   }
-  else
   /* -------------- GF(p^m) -----------------------*/
-  if (rField_is_GF(r))
+  else if (rField_is_GF(r))
   {
 #ifdef LDEBUG
@@ -301 +299 @@
     }
   }
-  else
   /* -------------- R -----------------------*/
   //if (c==(-1))
-  if (rField_is_R(r))
+  else if (rField_is_R(r))
   {
 #ifdef LDEBUG
@@ -346 +343 @@
     }
   }
-  else
   /* -------------- long R -----------------------*/
-  if (rField_is_long_R(r))
+  else if (rField_is_long_R(r))
   {
     setGMPFloatDigits(r->ch_flags);

Singular/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.54 1999-05-19 15:17:01 Singular Exp $ */
+/* $Id: ring.cc,v 1.55 1999-07-01 16:13:41 Singular Exp $ */
 
 /*
@@ -38 +38 @@
 
 /*0 implementation*/
+BOOLEAN rField_is_R(ring r=currRing)
+{
+  return ((r->ch == -1) && (r->ch_flags==0));
+}
+
 int rBlocks(ring r)
 {

Singular/ring.h

@@ -7 +7 @@
 * ABSTRACT - the interpreter related ring operations
 */
-/* $Id: ring.h,v 1.26 1999-05-26 16:24:00 obachman Exp $ */
+/* $Id: ring.h,v 1.27 1999-07-01 16:13:42 Singular Exp $ */
 
 /* includes */
@@ -58 +58 @@
 inline BOOLEAN rField_is_Q(ring r=currRing)
 { return (r->ch == 0) && (r->parameter==NULL); }
-inline BOOLEAN rField_is_R(ring r=currRing)
-{ return (r->ch == -1) && (r->ch_flags==0); }
+BOOLEAN rField_is_R(ring r=currRing);
 inline BOOLEAN rField_is_GF(ring r=currRing)
 { return (r->ch > 1) && (r->parameter!=NULL); }