diff options
author | Karl Berry <karl@freefriends.org> | 2018-01-15 22:20:09 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-01-15 22:20:09 +0000 |
commit | 7a4b66cc343bf7b3c01817fc4b5b0ed1934249d9 (patch) | |
tree | 25929c8dd99ea7a16a6da211b688e85af50259e8 /Master/texmf-dist/tex/latex/polexpr/polexpr.sty | |
parent | 1cffeb47b775226f1d947b95055f86daac06c88a (diff) |
polexpr (15jan18)
git-svn-id: svn://tug.org/texlive/trunk@46318 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/polexpr/polexpr.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/polexpr/polexpr.sty | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/latex/polexpr/polexpr.sty b/Master/texmf-dist/tex/latex/polexpr/polexpr.sty index 983016987ea..9f2bd0c0ea5 100644 --- a/Master/texmf-dist/tex/latex/polexpr/polexpr.sty +++ b/Master/texmf-dist/tex/latex/polexpr/polexpr.sty @@ -1,7 +1,7 @@ % author: Jean-François Burnol % License: LPPL 1.3c (author-maintained) \ProvidesPackage{polexpr}% - [2018/01/11 v0.1 Polynomial expressions with rational coefficients (JFB)]% + [2018/01/14 v0.2 Polynomial expressions with rational coefficients (JFB)]% \RequirePackage{xintexpr}[2016/03/19]% xint 1.2g (or 1.2c 2015/11/16 at least) \edef\POL@restorecatcodes {\catcode`\noexpand\_ \the\catcode`\_ \catcode0 \the\catcode0\relax}% @@ -572,7 +572,7 @@ %% CORE ALGEBRA MACROS %% We do this non-expandably, but in a nestable way... this is the whole -%% point because \xintdeffunc as used by \PolNewPol creates a big nested macro. +%% point because \xintdeffunc as used by \poldef creates a big nested macro. %% The idea is to execute it with another meaning given to \xintAdd etc.., %% so that it operates on "polynomials". This is a mixture of expandable %% and non-expandable techniques. @@ -920,7 +920,10 @@ %% EXPANDABLE MACROS \newcommand\PolEval{}% -\def\PolEval#1#2\At#3{\romannumeral`^^@\xinttheexpr reduce(#1(#3))\relax}% +\def\PolEval#1#2\At#3{% + \romannumeral0\xintpraw % only serves to not print denominator if = 1 + {\xintIrr{\csname XINT_expr_userfunc_#1\endcsname {#3},}[0]}% +}% % \newcommand\PolNthCoeff[2]{\romannumeral`^^@% \expandafter\POL@nthcoeff |