gecko-dev/lib/libparse/gentab.pl

93 строки
2.4 KiB
Perl
Исходник Обычный вид История

1998-03-28 05:44:41 +03:00
#! /usr/local/bin/perl
#
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
1998-03-28 05:44:41 +03:00
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
1998-03-28 05:44:41 +03:00
#
# The Original Code is mozilla.org code.
#
# The Initial Developer of the Original Code is Netscape
1998-03-28 05:44:41 +03:00
# Communications Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s):
1998-03-28 05:44:41 +03:00
#
open(PA_TAGS, "<pa_tags.h");
open(HASH, "|/usr/local/bin/gperf -T -t -l -Npa_LookupTag -p -k1,\$,2,3 > gperf.out.$$");
print HASH 'struct pa_TagTable { char *name; int id; };
%%
';
open(RMAP, ">pa_hash.rmap");
$nextval = 0;
while (<PA_TAGS>) {
if (/^#[ ]*define[ ]([A-Z_][A-Z0-9_]+)[ ]*(.*)/) {
$var = $1;
$val = $2;
$val =~ s/"//g;
$pre = $var;
$pre =~ s/_.*//;
$post = $var;
$post =~ s/$pre//;
$post =~ s/_//;
if ($pre eq "PT") {
$strings{$post} = $val;
} elsif ($pre eq "P") {
if ($strings{$post} ne "") {
print HASH $strings{$post} . ", $var\n";
}
if ($var ne "P_UNKNOWN" && $var ne "P_MAX") {
while ($nextval < $val) {
print RMAP "/* $nextval */\t\"\",\n";
$nextval++;
}
$newval = $strings{$post};
$newval =~ tr/a-z/A-Z/;
print RMAP "/*$val*/\t\"$newval\",\n";
$nextval = $val + 1;
}
}
}
}
close(PA_TAGS);
close(HASH);
close(RMAP);
open(C, "<gperf.out.$$");
unlink("gperf.out.$$");
open(T, "<pa_hash.template");
while (<T>) {
if (/^@begin/) {
($name, $start, $end) =
m#@begin[ ]*([A-Za-z0-9_]+)[ ]*/([^/]*)/[ ]*/([^/]*)/#;
$line = <C> until (eof(C) || $line =~ /$start/);
if ($line =~ /$start/) {
$template{$name} .= $line;
do {
$line = <C>;
$template{$name} .= $line;
} until ($line =~ /$end/ || eof(C));
}
} elsif (/^@include/) {
($name) = /@include[ ]*(.*)$/;
print $template{$name};
} elsif (/^@sub/) {
($name, $old, $new) =
m#@sub[ ]*([A-Za-z0-9_]*)[ ]/([^/]*)/([^/]*)/#;
$template{$name} =~ s/$old/$new/g;
} elsif (/^@/) {
;
} else {
print $_;
}
}