added decomp_rational()

[ginac.git] / ginsh / ginsh_parser.yy

diff --git a/ginsh/ginsh_parser.yy b/ginsh/ginsh_parser.yy
index be3f6862d1dae63c3636c1b15d6886a41c1b5410..2e514778b27085a9d4db6f1bfbb30f86201f768a 100644 (file)
--- a/ginsh/ginsh_parser.yy
+++ b/ginsh/ginsh_parser.yy
@@ -319,6 +319,12 @@ static ex f_content(const exprseq &e)
        return e[0].content(ex_to<symbol>(e[1]));
 }
 
+static ex f_decomp_rational(const exprseq &e)
+{
+       CHECK_ARG(1, symbol, decomp_rational);
+       return decomp_rational(e[0], ex_to<symbol>(e[1]));
+}
+
 static ex f_determinant(const exprseq &e)
 {
        CHECK_ARG(0, matrix, determinant);
@@ -489,6 +495,7 @@ static const fcn_init builtin_fcns[] = {
        {"collect", fcn_desc(f_collect, 2)},
        {"collect_distributed", fcn_desc(f_collect_distributed, 2)},
        {"content", fcn_desc(f_content, 2)},
+       {"decomp_rational", fcn_desc(f_decomp_rational, 2)},
        {"degree", fcn_desc(f_degree, 2)},
        {"denom", fcn_desc(f_denom, 1)},
        {"determinant", fcn_desc(f_determinant, 1)},