X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=blobdiff_plain;f=ginsh%2Fginsh_parser.yy;h=2c99794548e9303b091084227774d0f79027ce9d;hp=be65cf8e0f8f2a81d32d438b1edfdb39362d19a0;hb=30e03ee3be68c7e14cf5a2b9b63090f91954254e;hpb=bc6dacb50cc13691efc466d2cc1900048158ec8d

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},