Changeset 1cbb1f4 in git for Singular/iparith.cc

Timestamp:

Jan 6, 2012, 9:13:51 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

79020f1e7903b16af027b1e0a1240dd1b386a87a

Parents:

0a3fa32bcd8b202183dc9d54b4f82cb6d069f087

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-01-06 21:13:51+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-01-06 21:59:37+01:00

Message:

(Trac Ticket #389) transfer denominator() and numerator() from poly.lib to the Singular kernel

ADD: new kernel functions denominator& numerator: number -> number
CHG: removed denominator& numerator from poly.lib
ADD: added documentation for these new kernel functions
FIX: updated tests (Manual/listvar.tst)

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -81 +81 @@
 #include <kernel/timer.h>
 
+#include <polys/coeffrings.h>
 
 lists rDecompose(const ring r); ring rCompose(const lists  L);
@@ -3703 +3704 @@
   return FALSE;
 }
+
+/// Return the denominator of the input number
+/// NOTE: the input number is normalized as a side effect
+static BOOLEAN jjDENOMINATOR(leftv res, leftv v)
+{
+  number n = reinterpret_cast<number>(v->Data());
+  res->data = reinterpret_cast<void*>(n_GetDenom(n, currRing));
+  return FALSE;
+}
+
+/// Return the numerator of the input number
+/// NOTE: the input number is normalized as a side effect
+static BOOLEAN jjNUMERATOR(leftv res, leftv v)
+{
+  number n = reinterpret_cast<number>(v->Data());
+  res->data = reinterpret_cast<void*>(n_GetNumerator(n, currRing));
+  return FALSE;
+}
+
+
+
+
 #ifdef HAVE_FACTORY
 static BOOLEAN jjDET(leftv res, leftv v)