diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/stex/bin/rng2dot/rng2dot')
-rwxr-xr-x | Master/texmf-dist/source/latex/stex/bin/rng2dot/rng2dot | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/Master/texmf-dist/source/latex/stex/bin/rng2dot/rng2dot b/Master/texmf-dist/source/latex/stex/bin/rng2dot/rng2dot deleted file mode 100755 index 588b8827c63..00000000000 --- a/Master/texmf-dist/source/latex/stex/bin/rng2dot/rng2dot +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/perl -w - -use ModelRNC; - -die "No input file\n" unless $ARGV[0]; -my $opt = $ARGV[1] || ''; - -my $rnc = ModelRNC->new(); -$rnc->process($ARGV[0]); -print STDERR 'Unable to properly parse ('.$rnc->data.")\n" if $rnc->data; - -my %seen = (); -sub make_graph { - my ($node) = @_; - my @children = $rnc->tagChildren($node); - my $pnode = $node; - $pnode =~ s/^\{[^\}]*\}://; $pnode =~ s/\-|\+|\*|\s/_/g; - my @pchildren = @children; - for (my $i = 0 ; $i < @pchildren; $i++) { - $pchildren[$i] =~ s/^\{[^\}]*\}://; - $pchildren[$i] =~ s/\-|\+|\*|\s/_/g; } - if ($opt eq 'txt') { - print "$pnode: ".join(', ', @pchildren)."\n\n"; } - else { - for (my $i = 0 ; $i < @pchildren; $i++) { - print "$pnode -> ".$pchildren[$i].";\n"; }} - return 0 if $seen{$node}; - $seen{$node} = 1; - foreach my $child(@children) { - make_graph($child); } - 1; } - -print "digraph RNC {\n" unless $opt eq 'txt'; -make_graph('_Document_'); -print "}\n" unless $opt eq 'txt'; - -__END__ |