1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
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 ());
|
