distrib/msw/tmake/filelist.t

   1 #!#############################################################################
   2 #! File:    filelist.t
   3 #! Purpose: tmake template file containig Perl code to parse the filelist.txt
   4 #!          file - this is used by all other templates.
   5 #! Author:  Vadim Zeitlin
   6 #! Created: 14.07.99
   7 #! Version: $Id$
   8 #!#############################################################################
   9 #${
  10     open(FILELIST, "filelist.txt") or die "Can't open filelist file: $!\n";
  11
  12     line: while ( defined($_ = <FILELIST>) ) {
  13         chomp;
  14
  15         #! comment or blank line, skip
  16         next line if ( $_ eq "" or /^#/ );
  17
  18         #! if ( $verbose ) {
  19         #!     print STDERR "Processing line: '$_'\n";
  20         #! }
  21
  22         my @fields = split "\t";
  23         if ( $#fields > 2 ) {
  24             warn "Ignoring malformed line $_ in the filelist file.\n";
  25             next line;
  26         } elsif ( $#fields == 1 ) {
  27             #! add an empty flags string
  28             $fields[2] = "";
  29         }
  30
  31         if ( $verbose ) {
  32             print STDERR "File $fields[0]: type '$fields[1]', flags '$fields[2]'\n";
  33         }
  34
  35         #! first column is filename, second is type, third is flags
  36         if ( $fields[1] eq "C" ) {
  37             $wxCommon{$fields[0]} = $fields[2];
  38         } elsif ( $fields[1] eq "G" ) {
  39             $wxGeneric{$fields[0]} = $fields[2];
  40         } elsif ( $fields[1] eq "M" ) {
  41             $wxMSW{$fields[0]} = $fields[2];
  42         } elsif ( $fields[1] eq "X" ) {
  43             $wxMOTIF{$fields[0]} = $fields[2];
  44         } elsif ( $fields[1] eq "R" ) {
  45             $wxGTK{$fields[0]} = $fields[2];
  46         } elsif ( $fields[1] eq "H" ) {
  47             $wxHTML{$fields[0]} = $fields[2];
  48         } elsif ( $fields[1] eq "U" ) {
  49             $wxUNIX{$fields[0]} = $fields[2];
  50         } elsif ( $fields[1] eq "W" ) {
  51             $wxWXINCLUDE{$fields[0]} = $fields[2];
  52         } elsif ( $fields[1] eq "P" ) {
  53             $wxPROTOCOLINCLUDE{$fields[0]} = $fields[2];
  54         } elsif ( $fields[1] eq "L" ) {
  55             $wxHTMLINCLUDE{$fields[0]} = $fields[2];
  56         } elsif ( $fields[1] eq "F" ) {
  57             $wxMOTIFINCLUDE{$fields[0]} = $fields[2];
  58         } elsif ( $fields[1] eq "B" ) {
  59             $wxMSWINCLUDE{$fields[0]} = $fields[2];
  60         } elsif ( $fields[1] eq "K" ) {
  61             $wxGTKINCLUDE{$fields[0]} = $fields[2];
  62         } elsif ( $fields[1] eq "S" ) {
  63             $wxUNIXINCLUDE{$fields[0]} = $fields[2];
  64         } elsif ( $fields[1] eq "N" ) {
  65             $wxGENERICINCLUDE{$fields[0]} = $fields[2];
  66         } else {
  67             warn "Unknown file type $fields[1] for $fields[0], ignoring.\n";
  68             next line;
  69         }
  70     }
  71
  72     close(FILELIST);
  73 #$}
  74 #! vim:sw=4:ts=4:list:et