| #************************************************************** |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| #************************************************************** |
| |
| |
| |
| $ARGV0 = shift @ARGV; |
| $ARGV1 = shift @ARGV; |
| $ARGV2 = shift @ARGV; |
| $ARGV3 = shift @ARGV; |
| |
| open( INFILE, $ARGV0 ) or die "Error: cannot open input file: $!"; |
| my %tokens; |
| while ( <INFILE> ) |
| { |
| # trim newline |
| chomp( $_ ); |
| # trim leading/trailing whitespace |
| $_ =~ s/^\s*//g; |
| $_ =~ s/\s*$//g; |
| # check for valid characters |
| $_ =~ /^[a-zA-Z0-9-_]+$/ or die "Error: invalid character in token '$_'"; |
| $id = "XML_$_"; |
| $id =~ s/-/_/g; |
| $tokens{$_} = $id; |
| } |
| close ( INFILE ); |
| |
| # generate output files |
| |
| open ( IDFILE, ">$ARGV1" ) or die "Error: cannot open output file: $!"; |
| open ( NAMEFILE, ">$ARGV2" ) or die "Error: cannot open output file: $!"; |
| open ( GPERFFILE, ">$ARGV3" ) or die "Error: cannot open output file: $!"; |
| |
| print( GPERFFILE "%language=C++\n" ); |
| print( GPERFFILE "%global-table\n" ); |
| print( GPERFFILE "%null-strings\n" ); |
| print( GPERFFILE "%struct-type\n" ); |
| print( GPERFFILE "struct xmltoken {\n" ); |
| print( GPERFFILE " const sal_Char *name;\n" ); |
| print( GPERFFILE " sal_Int32 nToken;\n" ); |
| print( GPERFFILE "};\n" ); |
| print( GPERFFILE "%%\n" ); |
| |
| $i = 0; |
| foreach( sort( keys( %tokens ) ) ) |
| { |
| print( IDFILE "const sal_Int32 $tokens{$_} = $i;\n" ); |
| print( NAMEFILE "\"$_\",\n" ); |
| print( GPERFFILE "$_,$tokens{$_}\n" ); |
| ++$i; |
| } |
| |
| print( IDFILE "const sal_Int32 XML_TOKEN_COUNT = $i;\n" ); |
| print( GPERFFILE "%%\n" ); |
| |
| close( IDFILE ); |
| close( NAMEFILE ); |
| close( GPERFFILE ); |