Changeset 4508ce5 in git for Singular/longrat.cc

Timestamp:

Dec 15, 2000, 7:49:36 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a5f564c88c2600acb20b8afdd6dd84d9d3f715df

Parents:

d3bf0986c4b1a7bac5ffc43b873646317a0d91de

Message:

*hannes: nMap removed nSetMap returns now the routine


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

File:

• Singular/longrat.cc (modified) (3 diffs)

Singular/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.33 2000-09-25 10:44:48 obachman Exp $ */
+/* $Id: longrat.cc,v 1.34 2000-12-15 18:49:32 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -124 +124 @@
 static number nlMapR(number from);
 
-BOOLEAN nlSetMap(ring r)
-{
-  if (rField_is_Q(r))
-  {
-    nMap = nlCopy;   /*Q -> Q*/
-    return TRUE;
-  }
-  if (rField_is_Zp(r))
-  {
-    nlPrimeM=rChar(r);
-    nMap = nlMapP; /* Z/p -> Q */
-    return TRUE;
-  }
-  if (rField_is_R(r))
-  {
-    nMap = nlMapR; /* short R -> Q */
-    return TRUE;
+nMapFunc nlSetMap(ring src, ring dst)
+{
+  if (rField_is_Q(src))
+  {
+    return nlCopy;
+  }
+  if (rField_is_Zp(src))
+  {
+    nlPrimeM=rChar(src);
+    return nlMapP;
+  }
+  if (rField_is_R(src))
+  {
+    return nlMapR;
   }
 //  if (rField_is_long_R(r))
@@ -147 +144 @@
 //    return TRUE;
 //  }
-  return FALSE;
+  return NULL;
 }