protex (5jul16)

git-svn-id: svn://tug.org/texlive/trunk@41633 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 69 insertions, 42 deletions

diff --git a/Master/texmf-dist/tex/latex/protex/AlProTex.sty b/Master/texmf-dist/tex/latex/protex/AlProTex.sty
index 830377eb01e..63803c67b39 100644
--- a/Master/texmf-dist/tex/latex/protex/AlProTex.sty
+++ b/Master/texmf-dist/tex/latex/protex/AlProTex.sty
@@ -1,23 +1,21 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%  AlProTex.sty                       2008-06-09-16:59  %
-%  Copyright (C) 1992--2008  by Eitan M. Gurari         %
-%                                                       %
-% This program can redistributed and/or modified under  %
-% the terms of the LaTeX Project Public License         %
-% Distributed from CTAN archives in directory           %
-% macros/latex/base/lppl.txt; either version 1 of the   %
-% License, or (at your option) any later version.       %
-%                                                       %
-% However, you are allowed to modify this program       %
-% without changing its name, if you modify its          %
-% signature. Changes to the signature can be introduced %
-% with a directive of the form                          %
-%            \message{signature}                        %
-%                                                       %
-%                            gurari@cse.ohio-state.edu  %
-%                http://www.cse.ohio-state.edu/~gurari  %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\immediate\write-1{version 2008-06-09-16:59}
+% $Id: AlProTex.sty 185 2016-07-04 18:14:23Z karl $
+% Copyright 2016 TeX Users Group
+% Copyright 1992-2008 Eitan M. Gurari          
+%                                                      
+% This program can redistributed and/or modified under 
+% the terms of the LaTeX Project Public License        
+% Distributed from CTAN archives in directory          
+% macros/latex/base/lppl.txt; either version 1 of the  
+% License, or (at your option) any later version.      
+%                                                      
+% This work has the LPPL maintenance status "maintained".
+%
+% The Current Maintainer of this work
+% is the TeX4ht Project <http://tug.org/tex4ht>.
+% 
+% If you modify this program, changing the 
+% version identification would be appreciated.
+\immediate\write-1{version 2016-07-04}
 
 \expandafter\edef\csname :RestoreCatcodes\endcsname{%
    \catcode`\noexpand\noexpand\noexpand \^=\the\catcode`\^%
@@ -953,6 +951,21 @@
       \:temp}}
   \fi
 \fi
+
+%% Set source line numbers in the output
+%% \srclineBOL{symbol} - to change a beginning-of-line symbol
+%% \CodeInputLine - to change all the string. 
+%% 
+\:CheckOption{CodeLineNo}
+\if:Option
+  %% Set beginning-of-line symbol to #
+  %% if extension is c (case sensitive) 
+  \if\:InitAlProTex c\relax
+    \srclineBOL{\#}  
+  \fi
+ \SetOutputWithLineNo
+\fi
+
 \:CheckOption{eline}
 \catcode`\%=12
 \if:Option
@@ -1581,4 +1594,3 @@
     \endinput}
 \:RestoreCatcodes
 \csname :temp\endcsname
-
diff --git a/Master/texmf-dist/tex/latex/protex/ProTex.sty b/Master/texmf-dist/tex/latex/protex/ProTex.sty
index 55c85c71487..3908b100b65 100644
--- a/Master/texmf-dist/tex/latex/protex/ProTex.sty
+++ b/Master/texmf-dist/tex/latex/protex/ProTex.sty
@@ -1,22 +1,22 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  v 1.5
-%  ProTex                                               %
-%  Copyright (C) 1990,1991 by Eitan M. Gurari           %
-%                                                       %
-% This program can redistributed and/or modified under  %
-% the terms of the LaTeX Project Public License         %
-% Distributed from CTAN archives in directory           %
-% macros/latex/base/lppl.txt; either version 1 of the   %
-% License, or (at your option) any later version.       %
-%                                                       %
-% However, you are allowed to modify this program       %
-% without changing its name, if you modify its          %
-% signature. Changes to the signature can be introduced %
-% with a directive of the form                          %
-%            \message{signature}                        %
-%                                                       %
-%                            gurari@cis.ohio-state.edu  %
-%                http://www.cis.ohio-state.edu/~gurari  %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% $Id: ProTex.sty 185 2016-07-04 18:14:23Z karl $
+% Copyright 2016 TeX Users Group
+% Copyright 1990-1999 Eitan M. Gurari          
+%                                                      
+% This program can redistributed and/or modified under 
+% the terms of the LaTeX Project Public License        
+% Distributed from CTAN archives in directory          
+% macros/latex/base/lppl.txt; either version 1 of the  
+% License, or (at your option) any later version.      
+%                                                      
+% This work has the LPPL maintenance status "maintained".
+%
+% The Current Maintainer of this work
+% is the TeX4ht Project <http://tug.org/tex4ht>.
+% 
+% If you modify this program, changing the 
+% version identification would be appreciated.
+\immediate\write-1{version 2016-07-04}
+
 \expandafter\edef\csname :RestoreCatcodes\endcsname{%
    \catcode`\noexpand :=\the\catcode`:%
    \catcode`\noexpand @=\the\catcode`@%
@@ -67,13 +67,29 @@
 \newtoks\:tokens
 \def\:ExpandDef#1#2#3{%
    \:tokens=\expandafter{#1#2}%
-   \xdef#1{\the\:tokens #3}}\def\:defaultcats{%
+   \xdef#1{\the\:tokens #3}}
+
+\def\:defaultcats{%
   \:NoSpecials{12}{0}{255}%
   \:NoSpecials{11}{65}{90}%
   \:NoSpecials{11}{97}{122}%
   \catcode`\\=0  \catcode`\{=1    \catcode`\}=2
   \catcode`\ =13 \catcode`\^^M=13 \catcode`\^^I=13 }
 
+\newtoks\:tokensi
+\newtoks\:tokensii
+\def\:ExpandDefSrcLineNo#1#2#3{%
+   \:tokens=\expandafter{#1}%
+   \:tokensii={#2}%
+   \edef\@a@{\noexpand\:tokensi={\CodeInputLine}}\@a@
+   \xdef#1{\the\:tokens\the\:tokensi\the\:tokensii #3}}
+\def\:srclinebol{\%}
+\def\srclineBOL#1{\gdef\:srclinebol{#1}}
+\def\CodeInputLine{%
+  ^^J\:srclinebol line \CodeInputLineNo\space "./\jobname.tex"^^J}%
+\def\SetOutputWithLineNo{\let\:ExpandDef\:ExpandDefSrcLineNo}
+\let\CodeLineNo\SetOutputWithLineNo
+
 \def\:NoSpecials#1#2#3{\edef\:temp{\the\:CodeNumber}%
   \global\:CodeNumber=#3
   \def\:next{\catcode\:CodeNumber=#1
@@ -330,4 +346,3 @@
      \:oldNoSpecials{#1}{#2}{#3}\fi }
 \fi 
 \:RestoreCatcodes \endinput
-