From: Christian Bauer <Christian.Bauer@uni-mainz.de>
Date: Mon, 2 Aug 2004 19:44:49 +0000 (+0000)
Subject: added integer_content() function
X-Git-Tag: release_1-3-0~47
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=30e03ee3be68c7e14cf5a2b9b63090f91954254e

added integer_content() function
---

diff --git a/ginsh/ginsh.1.in b/ginsh/ginsh.1.in
index 21db17e6..f964920d 100644
--- a/ginsh/ginsh.1.in
+++ b/ginsh/ginsh.1.in
@@ -299,6 +299,9 @@ detail here. Please refer to the GiNaC documentation.
 .BI has( expression ", " pattern )
 \- returns "1" if the first expression contains the pattern as a subexpression, "0" otherwise
 .br
+.BI integer_content( expression )
+\- integer content of a polynomial
+.br
 .BI inverse( matrix )
 \- inverse of a matrix
 .br
diff --git a/ginsh/ginsh_parser.yy b/ginsh/ginsh_parser.yy
index be65cf8e..2c997945 100644
--- a/ginsh/ginsh_parser.yy
+++ b/ginsh/ginsh_parser.yy
@@ -404,6 +404,11 @@ static ex f_find(const exprseq &e)
 	return found;
 }
 
+static ex f_integer_content(const exprseq &e)
+{
+	return e[0].integer_content();
+}
+
 static ex f_inverse(const exprseq &e)
 {
 	CHECK_ARG(0, matrix, inverse);
@@ -571,6 +576,7 @@ static const fcn_init builtin_fcns[] = {
 	{"find", f_find, 2},
 	{"gcd", f_gcd, 2},
 	{"has", f_has, 2},
+	{"integer_content", f_integer_content, 1},
 	{"inverse", f_inverse, 1},
 	{"iprint", f_dummy, 0},      // for Tab-completion
 	{"is", f_is, 1},