oox/source/token/parsexsd.pl

   1 $ARGV = shift @ARGV;
   2 my %tokens;
   3
   4 my @files = glob("$ARGV/*.rnc");
   5
   6 open( TOKEN, ">tokens.txt" ) || die "can't write token file";
   7
   8 foreach( @files )
   9 {
  10     print( "parsing $_\n" );
  11     open ( XSD, $_ ) || die "can't open token file: $!";
  12     while( <XSD> )
  13     {
  14         chomp($_);
  15         if( /element (\S*:)?(\S*)/ )
  16         {
  17             $tokens{$2} = 1;
  18             print(".");
  19         }
  20         elsif( /attribute (\S*:)?(\S*)/ )
  21         {
  22             $tokens{$2} = 1;
  23             print(".");
  24         }
  25         elsif( /list\s*\{/ )
  26         {
  27             while( <XSD> )
  28             {
  29                 chomp($_);
  30                 last if( /^\s*\}/ );
  31                 if( /"(\S*?)\"/ )
  32                 {
  33                     $tokens{$1} = 1;
  34                     print(".");
  35                 }
  36             }
  37         }
  38     }
  39     close ( XSD );
  40
  41     print("\n" );
  42 }
  43
  44 foreach( sort(keys(%tokens)) )
  45 {
  46     print TOKEN "$_\n";
  47 }
  48 close( TOKEN );