texlive[67393] Master/texmf-dist: eolang (17jun23)

[commits+karl at tug.org]

Revision: 67393
          http://tug.org/svn/texlive?view=revision&revision=67393
Author:   karl
Date:     2023-06-17 21:59:17 +0200 (Sat, 17 Jun 2023)
Log Message:
-----------
eolang (17jun23)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/latex/eolang/eolang.pdf
    trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx
    trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty

Modified: trunk/Master/texmf-dist/doc/latex/eolang/eolang.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx	2023-06-17 19:59:06 UTC (rev 67392)
+++ trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx	2023-06-17 19:59:17 UTC (rev 67393)
@@ -50,7 +50,7 @@
 %<package>\NeedsTeXFormat{LaTeX2e}
 %<package>\ProvidesPackage{eolang}
 %<*package>
-[2023-03-01 0.12.1 Formulas and Graphs for EO Programming Language]
+[2023-06-17 0.12.2 Formulas and Graphs for EO Programming Language]
 %</package>
 %<*driver>
 \documentclass{ltxdoc}
@@ -463,7 +463,7 @@
 % \pagestyle{empty}
 % \begin{document}
 % \begin{phiquation*}
-% x -> \left\{\begin{matrix} \
+% foo -> \left\{\begin{matrix} \
 % ? \\
 % [[ L> ^ \times $.\alpha_0 ]] \\
 % [[ D> 42 ]] \
@@ -601,6 +601,19 @@
 % \end{document}
 % \end{docshot}
 
+% When necessary to use a percentage sign, prepend it with a backward slash:
+% \docshotOptions{firstline=5,lastline=10}
+% \begin{docshot}
+% \documentclass{article}
+% \usepackage{eolang}
+% \thispagestyle{empty}
+% \begin{document}
+% \begin{phiquation*}
+% x -> sprintf("Hello, \%s!", name)
+% \end{phiquation*}
+% \end{document}
+% \end{docshot}
+
 % You can make a copy of a vertex together with its kids:
 % \docshotOptions{firstline=5,lastline=15}
 % \begin{docshot}
@@ -783,7 +796,7 @@
 $macro = $ARGV[0];
 open(my $fh, '<', $ARGV[1]);
 my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.12.1\n";
+print "% This file is auto-generated by 0.12.2\n";
 print '% There are ', length($tex),
   ' chars in the input: ', $ARGV[1], "\n";
 print '% ---', "\n";
@@ -796,7 +809,7 @@
   print '% ', $t, "\n";
 }
 print '% ---', "\n";
-$tex =~ s/%.*\n/\n/g;
+$tex =~ s/(?<!\\)%.*\n/\n/g;
 $tex =~ s/^\s+|\s+$//g;
 my $splitting = $tex =~ /^\\begin\{split\}/;
 if ($splitting) {
@@ -1111,7 +1124,7 @@
 for (my $c = 0; $c < 0+ at cmds; $c++) {
   my $cmd = $cmds[$c];
   $cmd =~ s/^\s+//g;
-  $cmd =~ s/%.*//g;
+  $cmd =~ s/(?<!\\)%.*//g;
   my ($head, $tail) = split(/ /, $cmd, 2);
   my %opts = {};
   foreach my $p (split(/ /, $tail)) {

Modified: trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty	2023-06-17 19:59:06 UTC (rev 67392)
+++ trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty	2023-06-17 19:59:17 UTC (rev 67393)
@@ -31,7 +31,7 @@
 
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{eolang}
-[2023-03-01 0.12.1 Formulas and Graphs for EO Programming Language]
+[2023-06-17 0.12.2 Formulas and Graphs for EO Programming Language]
 
 
 
@@ -78,6 +78,7 @@
 
 
 
+
 \RequirePackage{stmaryrd}
 \RequirePackage{amsmath}
 \let\Bbbk\relax\RequirePackage{amssymb}
@@ -111,7 +112,7 @@
 $macro = $ARGV[0];
 open(my $fh, '<', $ARGV[1]);
 my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.12.1\n";
+print "% This file is auto-generated by 0.12.2\n";
 print '% There are ', length($tex),
   ' chars in the input: ', $ARGV[1], "\n";
 print '% ---', "\n";
@@ -124,7 +125,7 @@
   print '% ', $t, "\n";
 }
 print '% ---', "\n";
-$tex =~ s/%.*\n/\n/g;
+$tex =~ s/(?<!\\)%.*\n/\n/g;
 $tex =~ s/^\s+|\s+$//g;
 my $splitting = $tex =~ /^\\begin\{split\}/;
 if ($splitting) {
@@ -394,7 +395,7 @@
 for (my $c = 0; $c < 0+ at cmds; $c++) {
   my $cmd = $cmds[$c];
   $cmd =~ s/^\s+//g;
-  $cmd =~ s/%.*//g;
+  $cmd =~ s/(?<!\\)%.*//g;
   my ($head, $tail) = split(/ /, $cmd, 2);
   my %opts = {};
   foreach my $p (split(/ /, $tail)) {