lib/scripts/keywords
changeset 50714 2af9e4614ba4
parent 48864 3ee314ae1e0a
child 51274 cfc83ad52571
equal deleted inserted replaced
50713:dae523e6198b 50714:2af9e4614ba4
    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 }