summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/pdftex/manual/syntaxform.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/pdftex/manual/syntaxform.pl')
-rwxr-xr-xMaster/texmf-dist/doc/pdftex/manual/syntaxform.pl131
1 files changed, 131 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/pdftex/manual/syntaxform.pl b/Master/texmf-dist/doc/pdftex/manual/syntaxform.pl
new file mode 100755
index 00000000000..ad92b3ce303
--- /dev/null
+++ b/Master/texmf-dist/doc/pdftex/manual/syntaxform.pl
@@ -0,0 +1,131 @@
+#!/usr/bin/env perl
+# $Id: syntaxform.pl 743 2016-04-25 17:34:08Z karl $
+# Public domain. Originally written by Karl Berry, 2016.
+# Read pdftex-t.tex, generate pdftex-syntax.tex
+# by looking for the primitive descriptions.
+
+use warnings;
+
+sub main {
+ my %primitive = &read_manual_for_primitives ();
+
+ # group primitives into classes based on their \Whatever construct.
+ my %class;
+ for my $p (sort keys %primitive) {
+ my ($class) = $primitive{$p} =~ /\\Whatever *\{(.*?)\}/;
+ # general commands don't have a \Whatever.
+ $class = "general" if ! $class;
+
+ # append this primitive, comma-separated.
+ $class{$class} .= "$p,"
+ }
+
+ print <<END_HEADER;
+%%S \$Id: syntaxform.pl 742 2016-04-25 17:30:55Z karl \$
+%%S This is the list of new or extended primitives provided by pdftex.
+%%S Don't edit this file, as it is now auto-generated from the
+%%S pdfTeX manual source pdftex-t.tex (and the generated
+%%S pdftex-syntax.tex) by the script syntaxform.awk.
+%%S Syntax rule conventions borrowed from `TeXbook naruby' by Petr Olsak.
+END_HEADER
+ &print_by_class (\%class, \%primitive);
+ return 0;
+}
+
+{
+ # classes should be shown in a specific order,
+ # and have specific text for the headings.
+ # sorry for using an array.
+ my %class_info = (
+ "integer" => [1, "Integer registers"],
+ "read||only integer" => [2, "Read-only integers"],
+ "dimen" => [3, "Dimen registers"],
+ "tokens" => [4, "Token registers"],
+ "expandable" => [5, "Expandable commands"],
+ "general" => [6, "General commands"],
+ );
+
+sub print_by_class {
+ my ($class_ref,$primitive_ref) = @_;
+ my %class = %$class_ref;
+
+ for my $c (sort by_class keys %class) {
+ my $aref = $class_info{$c};
+ my $heading_name = $class_info{$c}->[1];
+ # the %%S lines are for syntaxform.awk
+ print <<END_START_CLASS;
+%%S NL
+%%S $heading_name:
+\\subsubject{$heading_name}
+
+\\startpacked
+END_START_CLASS
+
+ # extract list of primitives for this class.
+ my @prims = split (/,/, $class{$c});
+ for my $p (@prims) {
+ my $val = $primitive_ref->{$p};
+
+ # get rid of the \pdftexprimitive{ and trailing }
+ $val =~ s,^\\pdftexprimitive *\{,,;
+ $val =~ s, *\} *$,,;
+
+ # leading \Syntax and trailing } on their own lines for syntaxform.awk.
+ $val =~ s,^ *\\Syntax *\{,\\Syntax\{\n,;
+ $val =~ s, *\} *$,\n\},;
+
+ # collapse multiple spaces
+ $val =~ s, +, ,g;
+
+ print "\n$val\n";
+ }
+ print "\n\\stoppacked\n";
+ }
+}
+
+sub by_class { $class_info{$a}->[0] <=> $class_info{$b}->[0]; }
+
+} # end block for %class_info
+
+
+# read <> for \pdftexprimitive blocks. Return hash with keys being the
+# primitive name (including the leading \) and values the entire block,
+# without newlines.
+#
+sub read_manual_for_primitives {
+ my $printing = 0;
+ my $primitive = "";
+
+ while (<>) {
+ # \pdftexprimitive block ends at next unindented blank or \... line.
+ $printing = 0 if /^($|\\)/;
+ if (/^\\pdftexprimitive/) {
+ $printing = 1;
+
+ my $type;
+ # \tex is used for primitives specified without a leading \.
+ ($type,$primitive) = m/\\([Tt])ex *\{(.*?)\}/;
+ warn "$ARGV:$.: no primitive found in: $_" if (! $primitive);
+ $primitive = "\\$primitive" if $type eq "t";
+
+ # \pdfmovechars is still in the manual, but doesn't do anything.
+ # Omit it from the output.
+ next if $primitive eq "\\pdfmovechars";
+
+ # Just one case, \special, has multiple instances of \pdftexprimitive.
+ # kludge by appending spaces to the name to make it unique;
+ # we later reduce multiple spaces to one, so it's not visible.
+ $primitive .= " " until ! exists $primitive{$primitive};
+ }
+
+ if ($printing) {
+ # concatenate lines of definition; assume spacing is reasonable.
+ chomp;
+ $primitive{$primitive} .= $_;
+ }
+ }
+
+ return %primitive;
+}
+
+exit (&main ());