From 30e03ee3be68c7e14cf5a2b9b63090f91954254e Mon Sep 17 00:00:00 2001 From: Christian Bauer Date: Mon, 2 Aug 2004 19:44:49 +0000 Subject: [PATCH 1/1] added integer_content() function --- ginsh/ginsh.1.in | 3 +++ ginsh/ginsh_parser.yy | 6 ++++++ 2 files changed, 9 insertions(+) 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}, -- 2.44.0