]> www.ginac.de Git - cln.git/blobdiff - src/rational/elem/cl_RA_numerator.cc
Initial revision
[cln.git] / src / rational / elem / cl_RA_numerator.cc
diff --git a/src/rational/elem/cl_RA_numerator.cc b/src/rational/elem/cl_RA_numerator.cc
new file mode 100644 (file)
index 0000000..b4d1b4c
--- /dev/null
@@ -0,0 +1,19 @@
+// numerator().
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_rational.h"
+
+
+// Implementation.
+
+#define numerator inline_numerator
+#include "cl_RA.h"
+#undef numerator
+
+const cl_I numerator (const cl_RA& r)
+{
+       return inline_numerator(r);
+}