blob: 196ac37ebb5ca73d2390a2ec34908764e9e24fe6 (
plain)
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
|
$ARGV0 = shift @ARGV;
$ARGV1 = shift @ARGV;
$ARGV2 = shift @ARGV;
$ARGV3 = shift @ARGV;
open ( TOKENS, $ARGV0 ) || die "can't open $ARGV0 file: $!";
my %tokens;
while ( <TOKENS> )
{
chomp( $_ );
$_ =~ s/\s*//g;
$_ =~ /^[a-zA-Z0-9-_]+$/ or die "invalid character in token '$_'";
$id = "XML_$_";
$id =~ s/-/_/g;
$tokens{$_} = $id;
}
close ( TOKENS );
open ( HXX, ">$ARGV1" ) or die "can't open $ARGV1 file: $!";
open ( WORDS, ">$ARGV2" ) or die "can't open $ARGV2 file: $!";
open ( GPERF, ">$ARGV3" ) or die "can't open $ARGV3 file: $!";
print ( HXX "#ifndef OOX_TOKENS_HXX\n" );
print ( HXX "#define OOX_TOKENS_HXX\n\n" );
print ( HXX "#include <com/sun/star/xml/sax/FastToken.hpp>\n" );
print ( WORDS "static const sal_Char* xmltokenwordlist[] = {\n" );
print ( GPERF "%language=C++\n" );
print ( GPERF "%global-table\n" );
print ( GPERF "%null-strings\n" );
print ( GPERF "%struct-type\n" );
print ( GPERF "struct xmltoken {\n" );
print ( GPERF " const sal_Char *name;\n" );
print ( GPERF " sal_Int32 nToken;\n" );
print ( GPERF "};\n" );
print ( GPERF "%%\n" );
$i = 0;
foreach( sort( keys( %tokens ) ) )
{
print ( HXX "const sal_Int32 $tokens{$_} = $i;\n" );
print ( WORDS " \"$_\",\n" );
print ( GPERF "$_,$tokens{$_}\n" );
++$i;
}
print ( HXX "const sal_Int32 XML_TOKEN_COUNT = $i;\n" );
print ( HXX "const sal_Int32 XML_TOKEN_INVALID = ::com::sun::star::xml::sax::FastToken::DONTKNOW;\n\n" );
print ( HXX "const sal_Int32 XML_ROOT_CONTEXT = SAL_MAX_INT32;\n\n" );
print ( HXX "#endif\n" );
print ( WORDS " \"\"\n" );
print ( WORDS "};\n" );
print ( GPERF "%%\n" );
close ( HXX );
close ( WORDS );
close ( GPERF );
|
