texlive[69857] trunk: eolang (14feb24)
commits+karl at tug.org
commits+karl at tug.org
Wed Feb 14 22:27:53 CET 2024
Revision: 69857
https://tug.org/svn/texlive?view=revision&revision=69857
Author: karl
Date: 2024-02-14 22:27:53 +0100 (Wed, 14 Feb 2024)
Log Message:
-----------
eolang (14feb24)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/eolang/eolang.pl
trunk/Build/source/texk/texlive/linked_scripts/scripts.lst
trunk/Master/texmf-dist/doc/latex/eolang/README.md
trunk/Master/texmf-dist/doc/latex/eolang/eolang.pdf
trunk/Master/texmf-dist/doc/man/man1/eolang.1
trunk/Master/texmf-dist/doc/man/man1/eolang.man1.pdf
trunk/Master/texmf-dist/scripts/eolang/eolang.pl
trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx
trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty
Modified: trunk/Build/source/texk/texlive/linked_scripts/eolang/eolang.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/eolang/eolang.pl 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Build/source/texk/texlive/linked_scripts/eolang/eolang.pl 2024-02-14 21:27:53 UTC (rev 69857)
@@ -21,7 +21,7 @@
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
-# 2024-01-11 0.18.0
+# 2024-02-14 0.18.1
package eolang;
use warnings;
@@ -45,6 +45,8 @@
open(my $f, '>', $path) or error('Cannot open file for writing: ' . $path);
print $f $content;
close($f);
+ my $size = -s $path;
+ info("File saved to '$path' ($size bytes)");
}
# Print INFO message to the console.
@@ -78,7 +80,7 @@
" --tmpdir=path Temp directory with .tex files ('_eolang' by default)\n\n" .
"If any issues, report to GitHub: https://github.com/yegor256/bibcop");
} elsif (exists $args{'--version'} or exists $args{'-v'}) {
- info('0.18.0 2024-01-11');
+ info('0.18.1 2024-02-14');
} else {
my ($src, $target) = grep { not($_ =~ /^-.*$/) } @ARGV;
if (not $src) {
@@ -146,7 +148,6 @@
}
debug('Target: ' . $target);
savefile($target, $tex);
- info("New TeX file save to: ". $target);
}
# In order to finish it with success:
Modified: trunk/Build/source/texk/texlive/linked_scripts/scripts.lst
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/scripts.lst 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Build/source/texk/texlive/linked_scripts/scripts.lst 2024-02-14 21:27:53 UTC (rev 69857)
@@ -179,7 +179,6 @@
texlive/fmtutil-user.sh
texlive/fmtutil.pl
texlive/mktexlsr
-texlive/mktexlsr.pl
texlive/mktexmf
texlive/mktexpk
texlive/mktextfm
Modified: trunk/Master/texmf-dist/doc/latex/eolang/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/eolang/README.md 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Master/texmf-dist/doc/latex/eolang/README.md 2024-02-14 21:27:53 UTC (rev 69857)
@@ -22,7 +22,7 @@
\end{document}
```
-Otherwise, you can download [`eolang.sty`](https://yegor256.github.io/eolang.sty) and add to your project.
+Otherwise, you can download [`eolang.sty`](https://objectionary.github.io/eolang.sty/eolang.sty) and add to your project.
If you want to contribute yourself, make a fork, then create a branch,
then run `l3build ctan` in the root directory.
Modified: trunk/Master/texmf-dist/doc/latex/eolang/eolang.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/eolang.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/eolang.1 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Master/texmf-dist/doc/man/man1/eolang.1 2024-02-14 21:27:53 UTC (rev 69857)
@@ -1,4 +1,4 @@
-.TH eolang 1 "2024-01-11"
+.TH eolang 1 "2024-02-14"
.SH NAME
eolang \- Automated Editor of TeX Files that Use "eolang" Package
.SH SYNOPSIS
Modified: trunk/Master/texmf-dist/doc/man/man1/eolang.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/scripts/eolang/eolang.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/eolang/eolang.pl 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Master/texmf-dist/scripts/eolang/eolang.pl 2024-02-14 21:27:53 UTC (rev 69857)
@@ -21,7 +21,7 @@
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
-# 2024-01-11 0.18.0
+# 2024-02-14 0.18.1
package eolang;
use warnings;
@@ -45,6 +45,8 @@
open(my $f, '>', $path) or error('Cannot open file for writing: ' . $path);
print $f $content;
close($f);
+ my $size = -s $path;
+ info("File saved to '$path' ($size bytes)");
}
# Print INFO message to the console.
@@ -78,7 +80,7 @@
" --tmpdir=path Temp directory with .tex files ('_eolang' by default)\n\n" .
"If any issues, report to GitHub: https://github.com/yegor256/bibcop");
} elsif (exists $args{'--version'} or exists $args{'-v'}) {
- info('0.18.0 2024-01-11');
+ info('0.18.1 2024-02-14');
} else {
my ($src, $target) = grep { not($_ =~ /^-.*$/) } @ARGV;
if (not $src) {
@@ -146,7 +148,6 @@
}
debug('Target: ' . $target);
savefile($target, $tex);
- info("New TeX file save to: ". $target);
}
# In order to finish it with success:
Modified: trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Master/texmf-dist/source/latex/eolang/eolang.dtx 2024-02-14 21:27:53 UTC (rev 69857)
@@ -50,7 +50,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}
%<package>\ProvidesPackage{eolang}
%<*package>
-[2024-01-11 0.18.0 Formulas and Graphs for EO Programming Language]
+[2024-02-14 0.18.1 Formulas and Graphs for EO Programming Language]
%</package>
%<*driver>
\documentclass{ltxdoc}
@@ -877,7 +877,7 @@
$macro = $ARGV[0];
open(my $fh, '<', $ARGV[1]);
my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.18.0\n";
+print "% This file is auto-generated by 0.18.1\n";
print '% There are ', length($tex),
' chars in the input: ', $ARGV[1], "\n";
print '% ---', "\n";
@@ -1219,6 +1219,10 @@
$tex =~ s/\|([^\|]+)\|/\\textnormal{\\texttt{\1}}/g;
return $tex;
}
+sub toem {
+ my ($cm) = @_;
+ return $cm * 2.8;
+}
sub vertex {
my ($v) = @_;
if (index($v, 'v0') == 0) {
@@ -1315,7 +1319,7 @@
$draw = $draw . " (<MF:${to}><B:break-v>)";
if (exists $opts{'break'}) {
print tailor($draw, 'F') . ";\n";
- print ' \node[outer sep=.1cm,inner sep=0cm] ' .
+ print ' \node[outer sep=' . toem(0.1) . 'em,inner sep=0em] ' .
'at (break) (break-v) {$' . vertex($to) .
'$};' . "\n";
print ' ' . tailor($draw, 'B');
@@ -1326,10 +1330,10 @@
my ($from, $to) = split (/=+>/, $head);
my $size = () = $head =~ /=/g;
if ($from eq '') {
- print '\node [phi-arrow, left=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, left=' . toem($size * 0.6) . 'em of ' .
$to . '.center]';
} elsif ($to eq '') {
- print '\node [phi-arrow, right=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, right=' . toem($size * 0.6) . 'em of ' .
$from . '.center]';
} else {
print '\node [phi-arrow] at ($(' .
@@ -1340,7 +1344,7 @@
my ($v, $marker) = split (/!+/, $head);
my $size = () = $head =~ /!/g;
print '\node [phi-marker, left=' .
- ($size * 0.6) . 'cm of ' .
+ toem($size * 0.6) . 'em of ' .
$v . '.center]{' . fmt($marker) . '}';
} elsif (index($head, '+') >= 0) {
my ($v, $suffix) = split (/\+/, $head);
@@ -1417,8 +1421,8 @@
$loc = $loc . 'left';
}
print ',' . $loc . '=';
- print abs(num($down)) . 'cm and ' .
- abs(num($right)) . 'cm of ' . $v . '.center';
+ print toem(abs(num($down))) . 'em and ' .
+ toem(abs(num($right))) . 'em of ' . $v . '.center';
}
if (exists $opts{'data'}) {
print ',phi-data';
@@ -1521,17 +1525,17 @@
% \begin{macrocode}
\newenvironment{phicture}%
{\noindent\begin{tikzpicture}[
- ->,>=stealth',node distance=0,thick,
+ ->,>=stealth',node distance=0,line width=.08em,
pics/parallel arrow/.style={
code={\draw[-latex,phi-rho] (##1) -- (-##1);}}]}%
{\end{tikzpicture}}
\tikzstyle{phi-arrow} = [fill=white!80!black, single arrow,
- minimum height=0.5cm, minimum width=0.5cm,
+ minimum height=0.05em, minimum width=0.05em,
single arrow head extend=2mm]
\tikzstyle{phi-marker} = [inner sep=0pt, minimum height=1.4em,
minimum width=1.4em, font={\small\color{white}\ttfamily},
fill=gray]
-\tikzstyle{phi-thing} = [thick,inner sep=0pt,minimum height=2.4em,
+\tikzstyle{phi-thing} = [inner sep=0pt,minimum height=2.4em,
draw,font={\small}]
\tikzstyle{phi-object} = [phi-thing,circle]
\tikzstyle{phi-data} = [phi-thing,regular polygon,
@@ -1593,7 +1597,7 @@
\tikzstyle{phi-pi} = [draw,dotted]
\tikzstyle{phi-atom} = [phi-object,double]
\tikzstyle{phi-box} = [xshift=-5pt,yshift=3pt,draw,fill=white,
- rectangle,thin,minimum width=1.2em,anchor=north west,
+ rectangle,line width=.04em,minimum width=1.2em,anchor=north west,
font={\scriptsize}]
\tikzstyle{phi-attr} = [midway,sloped,inner sep=0pt,
above=2pt,sloped/.append style={transform shape},
Modified: trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty 2024-02-14 21:27:26 UTC (rev 69856)
+++ trunk/Master/texmf-dist/tex/latex/eolang/eolang.sty 2024-02-14 21:27:53 UTC (rev 69857)
@@ -31,7 +31,7 @@
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{eolang}
-[2024-01-11 0.18.0 Formulas and Graphs for EO Programming Language]
+[2024-02-14 0.18.1 Formulas and Graphs for EO Programming Language]
@@ -148,7 +148,7 @@
$macro = $ARGV[0];
open(my $fh, '<', $ARGV[1]);
my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.18.0\n";
+print "% This file is auto-generated by 0.18.1\n";
print '% There are ', length($tex),
' chars in the input: ', $ARGV[1], "\n";
print '% ---', "\n";
@@ -435,6 +435,10 @@
$tex =~ s/\|([^\|]+)\|/\\textnormal{\\texttt{\1}}/g;
return $tex;
}
+sub toem {
+ my ($cm) = @_;
+ return $cm * 2.8;
+}
sub vertex {
my ($v) = @_;
if (index($v, 'v0') == 0) {
@@ -531,7 +535,7 @@
$draw = $draw . " (<MF:${to}><B:break-v>)";
if (exists $opts{'break'}) {
print tailor($draw, 'F') . ";\n";
- print ' \node[outer sep=.1cm,inner sep=0cm] ' .
+ print ' \node[outer sep=' . toem(0.1) . 'em,inner sep=0em] ' .
'at (break) (break-v) {$' . vertex($to) .
'$};' . "\n";
print ' ' . tailor($draw, 'B');
@@ -542,10 +546,10 @@
my ($from, $to) = split (/=+>/, $head);
my $size = () = $head =~ /=/g;
if ($from eq '') {
- print '\node [phi-arrow, left=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, left=' . toem($size * 0.6) . 'em of ' .
$to . '.center]';
} elsif ($to eq '') {
- print '\node [phi-arrow, right=' . ($size * 0.6) . 'cm of ' .
+ print '\node [phi-arrow, right=' . toem($size * 0.6) . 'em of ' .
$from . '.center]';
} else {
print '\node [phi-arrow] at ($(' .
@@ -556,7 +560,7 @@
my ($v, $marker) = split (/!+/, $head);
my $size = () = $head =~ /!/g;
print '\node [phi-marker, left=' .
- ($size * 0.6) . 'cm of ' .
+ toem($size * 0.6) . 'em of ' .
$v . '.center]{' . fmt($marker) . '}';
} elsif (index($head, '+') >= 0) {
my ($v, $suffix) = split (/\+/, $head);
@@ -633,8 +637,8 @@
$loc = $loc . 'left';
}
print ',' . $loc . '=';
- print abs(num($down)) . 'cm and ' .
- abs(num($right)) . 'cm of ' . $v . '.center';
+ print toem(abs(num($down))) . 'em and ' .
+ toem(abs(num($right))) . 'em of ' . $v . '.center';
}
if (exists $opts{'data'}) {
print ',phi-data';
@@ -721,17 +725,17 @@
\newenvironment{phicture}%
{\noindent\begin{tikzpicture}[
- ->,>=stealth',node distance=0,thick,
+ ->,>=stealth',node distance=0,line width=.08em,
pics/parallel arrow/.style={
code={\draw[-latex,phi-rho] (##1) -- (-##1);}}]}%
{\end{tikzpicture}}
\tikzstyle{phi-arrow} = [fill=white!80!black, single arrow,
- minimum height=0.5cm, minimum width=0.5cm,
+ minimum height=0.05em, minimum width=0.05em,
single arrow head extend=2mm]
\tikzstyle{phi-marker} = [inner sep=0pt, minimum height=1.4em,
minimum width=1.4em, font={\small\color{white}\ttfamily},
fill=gray]
-\tikzstyle{phi-thing} = [thick,inner sep=0pt,minimum height=2.4em,
+\tikzstyle{phi-thing} = [inner sep=0pt,minimum height=2.4em,
draw,font={\small}]
\tikzstyle{phi-object} = [phi-thing,circle]
\tikzstyle{phi-data} = [phi-thing,regular polygon,
@@ -793,7 +797,7 @@
\tikzstyle{phi-pi} = [draw,dotted]
\tikzstyle{phi-atom} = [phi-object,double]
\tikzstyle{phi-box} = [xshift=-5pt,yshift=3pt,draw,fill=white,
- rectangle,thin,minimum width=1.2em,anchor=north west,
+ rectangle,line width=.04em,minimum width=1.2em,anchor=north west,
font={\scriptsize}]
\tikzstyle{phi-attr} = [midway,sloped,inner sep=0pt,
above=2pt,sloped/.append style={transform shape},
More information about the tex-live-commits
mailing list.