equal
deleted
inserted
replaced
85 "proof-script" |
85 "proof-script" |
86 ); |
86 ); |
87 |
87 |
88 sub collect_keywords { |
88 sub collect_keywords { |
89 while(<STDIN>) { |
89 while(<STDIN>) { |
90 if (m/^Outer syntax keyword "([^"]*)" :: (\S*)/) { |
90 if (m/^\fOuter syntax keyword "([^"]*)" :: (\S*)/) { |
91 my $name = $1; |
91 my $name = $1; |
92 my $kind = $2; |
92 my $kind = $2; |
93 if (defined $convert_kinds{$kind}) { $kind = $convert_kinds{$kind} } |
93 if (defined $convert_kinds{$kind}) { $kind = $convert_kinds{$kind} } |
94 &set_keyword($name, $kind); |
94 &set_keyword($name, $kind); |
95 } |
95 } |
96 elsif (m/^Outer syntax keyword "([^"]*)"/) { |
96 elsif (m/^\fOuter syntax keyword "([^"]*)"/) { |
97 my $name = $1; |
97 my $name = $1; |
98 &set_keyword($name, "minor"); |
98 &set_keyword($name, "minor"); |
99 } |
99 } |
100 } |
100 } |
101 } |
101 } |