Changeset 8838ab in git for factory/singext.cc

Timestamp:

Jun 15, 1999, 10:34:18 AM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

df4422b2fdaedca7c8e3cbd827167ed22d5024c7

Parents:

3c8e50bcc6eb720109f4b83d71567c36d48d8ae1

Message:

*hannes: GF-conversion


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

File:

• factory/singext.cc (modified) (3 diffs)

factory/singext.cc

@@ -1 +1 @@
 /* emacs edit mode for this file is -*- C++ -*- */
-/* $Id: singext.cc,v 1.2 1997-06-19 12:21:59 schmidt Exp $ */
+/* $Id: singext.cc,v 1.3 1999-06-15 08:34:18 Singular Exp $ */
 
 #include <config.h>
@@ -54 +54 @@
 }
 
+int gf_value (const CanonicalForm & f )
+{
+    InternalCF * ff = f.getval();
+    return ((int)ff) >>2; 
+}
+
 CanonicalForm
 make_cf ( const MP_INT & n )
@@ -65 +71 @@
     return CanonicalForm( CFFactory::rational( n, d, normalize ) );
 }
+
+CanonicalForm make_cf_from_gf ( const int z )
+{
+    return CanonicalForm(int2imm_gf(z));
+}