summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xint/xintkernel.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintkernel.sty')
-rw-r--r--Master/texmf-dist/tex/generic/xint/xintkernel.sty179
1 files changed, 87 insertions, 92 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xintkernel.sty b/Master/texmf-dist/tex/generic/xint/xintkernel.sty
index 3e6c0afa591..6d793505eb6 100644
--- a/Master/texmf-dist/tex/generic/xint/xintkernel.sty
+++ b/Master/texmf-dist/tex/generic/xint/xintkernel.sty
@@ -21,7 +21,7 @@
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%% ---------------------------------------------------------------
-%% The xint bundle 1.4k 2022/05/18
+%% The xint bundle 1.4l 2022/05/29
%% Copyright (C) 2013-2022 by Jean-Francois Burnol
%% xintkernel: Paraphernalia for the xint packages
%% ---------------------------------------------------------------
@@ -30,116 +30,111 @@
\endlinechar=13 %
\catcode123=1 % {
\catcode125=2 % }
- \catcode35=6 % #
\catcode44=12 % ,
- \catcode45=12 % -
\catcode46=12 % .
\catcode58=12 % :
- \catcode95=11 % _
- \expandafter
- \ifx\csname PackageInfo\endcsname\relax
- \def\y#1#2{\immediate\write-1{Package #1 Info: #2.}}%
+ \catcode94=7 % ^
+ \def\space{ }\newlinechar10
+ \let\z\relax
+ \expandafter\ifx\csname numexpr\endcsname\relax
+ \expandafter\ifx\csname PackageWarning\endcsname\relax
+ \immediate\write128{^^JPackage xintkernel Warning:^^J%
+ \space\space\space\space
+ \numexpr not available, aborting input.^^J}%
\else
- \def\y#1#2{\PackageInfo{#1}{#2}}%
+ \PackageWarningNoLine{xintkernel}{\numexpr not available, aborting input}%
\fi
- \let\z\relax
- \expandafter
- \ifx\csname numexpr\endcsname\relax
- \y{xintkernel}{\numexpr not available, aborting input}%
- \def\z{\endgroup\endinput}%
+ \def\z{\endgroup\endinput}%
+ \else
+ \expandafter\ifx\csname XINTsetupcatcodes\endcsname\relax
\else
- \expandafter
- \ifx\csname XINTsetupcatcodes\endcsname\relax
- \else
- \y{xintkernel}{I was already loaded, aborting input}%
\def\z{\endgroup\endinput}%
- \fi
\fi
+ \fi
\ifx\z\relax\else\expandafter\z\fi%
\def\PrepareCatcodes
{%
\endgroup
\def\XINTrestorecatcodes
- {% takes care of all, to allow more economical code in modules
- \catcode0=\the\catcode0 %
- \catcode59=\the\catcode59 % ; xintexpr
- \catcode126=\the\catcode126 % ~ xintexpr
- \catcode39=\the\catcode39 % ' xintexpr
- \catcode34=\the\catcode34 % " xintbinhex, and xintexpr
- \catcode63=\the\catcode63 % ? xintexpr
- \catcode124=\the\catcode124 % | xintexpr
- \catcode38=\the\catcode38 % & xintexpr
- \catcode64=\the\catcode64 % @ xintexpr
- \catcode33=\the\catcode33 % ! xintexpr
- \catcode93=\the\catcode93 % ] -, xintfrac, xintseries, xintcfrac
- \catcode91=\the\catcode91 % [ -, xintfrac, xintseries, xintcfrac
- \catcode36=\the\catcode36 % $ xintgcd only $
- \catcode94=\the\catcode94 % ^
- \catcode96=\the\catcode96 % `
- \catcode47=\the\catcode47 % /
- \catcode41=\the\catcode41 % )
- \catcode40=\the\catcode40 % (
- \catcode42=\the\catcode42 % *
- \catcode43=\the\catcode43 % +
- \catcode62=\the\catcode62 % >
- \catcode60=\the\catcode60 % <
- \catcode58=\the\catcode58 % :
- \catcode46=\the\catcode46 % .
- \catcode45=\the\catcode45 % -
- \catcode44=\the\catcode44 % ,
- \catcode35=\the\catcode35 % #
- \catcode95=\the\catcode95 % _
- \catcode125=\the\catcode125 % }
- \catcode123=\the\catcode123 % {
- \endlinechar=\the\endlinechar
- \catcode13=\the\catcode13 % ^^M
- \catcode32=\the\catcode32 %
- \catcode61=\the\catcode61\relax % =
+ {% prepared for use in \edef
+ \catcode0=\the\catcode0 % ^^@
+ \catcode1=\the\catcode1 % ^^A
+ \catcode13=\the\catcode13 % ^^M
+ \catcode32=\the\catcode32 % <space>
+ \catcode33=\the\catcode33 % !
+ \catcode34=\the\catcode34 % "
+ \catcode35=\the\catcode35 % #
+ \catcode36=\the\catcode36 % $
+ \catcode38=\the\catcode38 % &
+ \catcode39=\the\catcode39 % '
+ \catcode40=\the\catcode40 % (
+ \catcode41=\the\catcode41 % )
+ \catcode42=\the\catcode42 % *
+ \catcode43=\the\catcode43 % +
+ \catcode44=\the\catcode44 % ,
+ \catcode45=\the\catcode45 % -
+ \catcode46=\the\catcode46 % .
+ \catcode47=\the\catcode47 % /
+ \catcode58=\the\catcode58 % :
+ \catcode59=\the\catcode59 % ;
+ \catcode60=\the\catcode60 % <
+ \catcode61=\the\catcode61 % =
+ \catcode62=\the\catcode62 % >
+ \catcode63=\the\catcode63 % ?
+ \catcode64=\the\catcode64 % @
+ \catcode91=\the\catcode91 % [
+ \catcode93=\the\catcode93 % ]
+ \catcode94=\the\catcode94 % ^
+ \catcode95=\the\catcode95 % _
+ \catcode96=\the\catcode96 % `
+ \catcode123=\the\catcode123 % {
+ \catcode124=\the\catcode124 % |
+ \catcode125=\the\catcode125 % }
+ \catcode126=\the\catcode126 % ~
+ \endlinechar=\the\endlinechar\relax
}%
\edef\XINTrestorecatcodesendinput
{%
\XINTrestorecatcodes\noexpand\endinput %
}%
\def\XINTsetcatcodes
- {%
- \catcode61=12 % =
- \catcode32=10 % space
- \catcode13=5 % ^^M
- \endlinechar=13 %
- \catcode123=1 % {
- \catcode125=2 % }
- \catcode95=11 % _ LETTER
- \catcode35=6 % #
- \catcode44=12 % ,
- \catcode45=12 % -
- \catcode46=12 % .
- \catcode58=11 % : LETTER
- \catcode60=12 % <
- \catcode62=12 % >
- \catcode43=12 % +
- \catcode42=12 % *
- \catcode40=12 % (
- \catcode41=12 % )
- \catcode47=12 % /
- \catcode96=12 % `
- \catcode94=11 % ^ LETTER
- \catcode36=3 % $
- \catcode91=12 % [
- \catcode93=12 % ]
- \catcode33=12 % ! (xintexpr.sty will use catcode 11)
- \catcode64=11 % @ LETTER
- \catcode38=7 % & for \romannumeral`&&@ trick.
- \catcode124=12 % |
- \catcode63=11 % ? LETTER
- \catcode34=12 % "
- \catcode39=12 % '
- \catcode126=3 % ~ MATH
- \catcode59=12 % ;
- \catcode0=12 % for \romannumeral`&&@ trick
- \catcode1=3 % for ultra-safe séparateur &&A
+ {% standard settings with a few xint*sty specific ones
+ \catcode0=12 % for \romannumeral`&&@
+ \catcode1=3 % for safe separator &&A
+ \catcode13=5 % ^^M
+ \catcode32=10 % <space>
+ \catcode33=12 % ! but used as LETTER inside xintexpr.sty
+ \catcode34=12 % "
+ \catcode35=6 % #
+ \catcode36=3 % $
+ \catcode38=7 % & SUPERSCRIPT for && as replacement of ^^
+ \catcode39=12 % '
+ \catcode40=12 % (
+ \catcode41=12 % )
+ \catcode42=12 % *
+ \catcode43=12 % +
+ \catcode44=12 % ,
+ \catcode45=12 % -
+ \catcode46=12 % .
+ \catcode47=12 % /
+ \catcode58=11 % : LETTER
+ \catcode59=12 % ;
+ \catcode60=12 % <
+ \catcode61=12 % =
+ \catcode62=12 % >
+ \catcode63=11 % ? LETTER
+ \catcode64=11 % @ LETTER
+ \catcode91=12 % [
+ \catcode93=12 % ]
+ \catcode94=11 % ^ LETTER
+ \catcode95=11 % _ LETTER
+ \catcode96=12 % `
+ \catcode123=1 % {
+ \catcode124=12 % |
+ \catcode125=2 % }
+ \catcode126=3 % ~ MATH SHIFT
+ \endlinechar=13 %
}%
- \let\XINT_setcatcodes\XINTsetcatcodes
- \let\XINT_restorecatcodes\XINTrestorecatcodes
\XINTsetcatcodes
}%
\PrepareCatcodes
@@ -159,7 +154,7 @@
\fi
\XINT_providespackage
\ProvidesPackage {xintkernel}%
- [2022/05/18 v1.4k Paraphernalia for the xint packages (JFB)]%
+ [2022/05/29 v1.4l Paraphernalia for the xint packages (JFB)]%
\chardef\xint_c_ 0
\chardef\xint_c_i 1
\chardef\xint_c_ii 2