From: Vitaly Magerya <vmagerya@gmail.com>
Date: Sun, 6 Feb 2022 18:20:15 +0000 (+0100)
Subject: Add "series_to_poly" to ginsh.
X-Git-Tag: release_1-8-3~8
X-Git-Url: https://www.ginac.de/ginac.git/tutorial/ginac.git?a=commitdiff_plain;h=b8900e7ec2ac5275ebd8ab1bec2803ee666352b8;p=ginac.git

Add "series_to_poly" to ginsh.
---

diff --git a/ginsh/ginsh_parser.ypp b/ginsh/ginsh_parser.ypp
index 4b82d32f..88d1ce78 100644
--- a/ginsh/ginsh_parser.ypp
+++ b/ginsh/ginsh_parser.ypp
@@ -530,6 +530,12 @@ static ex f_series(const exprseq &e)
 	return e[0].series(e[1], ex_to<numeric>(e[2]).to_int());
 }
 
+static ex f_series_to_poly(const exprseq &e)
+{
+	CHECK_ARG(0, pseries, series_to_poly);
+	return series_to_poly(ex_to<pseries>(e[0]));
+}
+
 static ex f_sprem(const exprseq &e)
 {
 	return sprem(e[0], e[1], e[2]);
@@ -737,6 +743,7 @@ static const fcn_init builtin_fcns[] = {
 	{"rem", f_rem, 3},
 	{"resultant", f_resultant, 3},
 	{"series", f_series, 3},
+	{"series_to_poly", f_series_to_poly, 1},
 	{"sprem", f_sprem, 3},
 	{"sqrfree", f_sqrfree1, 1},
 	{"sqrfree", f_sqrfree2, 2},