summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/eolang/eolang.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-08-02 20:05:49 +0000
committerKarl Berry <karl@freefriends.org>2023-08-02 20:05:49 +0000
commitacb7235f08e2f54cd0c2420abba35ae06aedeca3 (patch)
treecce4a2063324c0c8afc938eeff0ef7238d5c02a9 /Master/texmf-dist/source/latex/eolang/eolang.dtx
parent88807854101cd361e92f247a3cc32f264665c5d8 (diff)
eolang (2aug23)
git-svn-id: svn://tug.org/texlive/trunk@67795 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/eolang/eolang.dtx')
-rw-r--r--Master/texmf-dist/source/latex/eolang/eolang.dtx29
1 files changed, 17 insertions, 12 deletions
diff --git a/Master/texmf-dist/source/latex/eolang/eolang.dtx b/Master/texmf-dist/source/latex/eolang/eolang.dtx
index 3260d2eaccb..a2e49446893 100644
--- a/Master/texmf-dist/source/latex/eolang/eolang.dtx
+++ b/Master/texmf-dist/source/latex/eolang/eolang.dtx
@@ -50,7 +50,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}
%<package>\ProvidesPackage{eolang}
%<*package>
-[2023-07-01 0.13.0 Formulas and Graphs for EO Programming Language]
+[2023-08-02 0.14.0 Formulas and Graphs for EO Programming Language]
%</package>
%<*driver>
\documentclass{ltxdoc}
@@ -219,15 +219,16 @@
% The following markers are supported for a vertex:
% \begin{itemize}\setlength\itemsep{0em}
-% \item ``|tag:<math>|'' puts a custom label |<math>| into the circle,
+% \item ``|tag:<math>|'' puts a custom label |<math>| into the circle;
% \item ``|data:[<box>]|'' makes it a data vertex with an optional attached ``|<box>|''
-% (the content of the box may only be numeric data),
+% (the content of the box may only be numeric data);
% \item ``|atom:[<box>]|'' makes it an atom with an optional attached ``|<box>|''
-% (the content of the box is a math formula),
-% \item ``|box:<txt>|'' attaches a ``|<box>|'' to it,
+% (the content of the box is a math formula);
+% \item ``|box:<txt>|'' attaches a ``|<box>|'' to it;
% \item ``|xy:<v>,<r>,<d>|'' places this vertex in a position relative to the vertex ``|<v>|,''
-% shifting it right by ``|<r>|'' and down by ``|<d>|'' centimetres.
-% \item ``|+:<v>|'' makes a copy of an existing vertex and all its kids.
+% shifting it right by ``|<r>|'' and down by ``|<d>|'' centimetres;
+% \item ``|+:<v>|'' makes a copy of an existing vertex and all its kids;
+% \item ``|edgeless|'' removes the border from the vertex.
% \end{itemize}
% The following markers are supported for an edge:
@@ -691,7 +692,7 @@
% \usetikzlibrary{fit}
% \begin{document}
% \begin{sodg}
-% v0
+% v0 edgeless
% v11 xy:v0,-1,1 \\ v0->v11
% v12 xy:v0,0,1 \\ v0->v12
% v13 xy:v0,1,1 \\ v0->v13
@@ -799,7 +800,7 @@
$macro = $ARGV[0];
open(my $fh, '<', $ARGV[1]);
my $tex; { local $/; $tex = <$fh>; }
-print "% This file is auto-generated by 0.13.0\n";
+print "% This file is auto-generated by 0.14.0\n";
print '% There are ', length($tex),
' chars in the input: ', $ARGV[1], "\n";
print '% ---', "\n";
@@ -1069,6 +1070,7 @@ print '\endinput';
% \changes{0.6.0}{2022/11/13}{The \texttt{rrho} attribute is retired, now \texttt{rho} works just fine in all situations.}
% \changes{0.8.0}{2022/11/20}{The \texttt{tag} attribute is introduced for changing labels inside a vertex circle.}
% \changes{0.12.1}{2023/03/01}{The bug is fixed related to the formatting of indexes of vertices.}
+% \changes{0.14.0}{2023/07/26}{The \texttt{edgeless} tag of a vertex removes the border of it.}
% Then, we create a Perl script for |sodg| graphs processing using |VerbatimOut| from
% \href{https://ctan.org/pkg/fancyvrb}{fancyvrb}:
% \begin{macrocode}
@@ -1135,7 +1137,9 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
my ($q, $t) = split(/:/, $p);
$opts{$q} = $t;
}
- if (index($head, '->') >= 0) {
+ if (index($head, '\\') == 0) {
+ print $cmd;
+ } elsif (index($head, '->') >= 0) {
my $draw = '\draw[';
if (exists $opts{'pi'}) {
$draw = $draw . '<MB:phi-pi><F:draw=none>';
@@ -1306,6 +1310,9 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
} else {
print ',phi-object';
}
+ if (exists $opts{'edgeless'}) {
+ print ',draw=none';
+ }
print ']';
print ' (' . $head . ')';
print ' {';
@@ -1326,8 +1333,6 @@ for (my $c = 0; $c < 0+@cmds; $c++) {
print $head, '.south east) {';
print $opts{'box'}, '}';
}
- } else {
- print $cmd;
}
print ";\n";
}