]> git.saurik.com Git - wxWidgets.git/blame_incremental - distrib/msw/tmake/filelist.t
Typos.
[wxWidgets.git] / distrib / msw / tmake / filelist.t
... / ...
CommitLineData
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 "R" ) {
43 $wxGTK{$fields[0]} = $fields[2];
44 } elsif ( $fields[1] eq "H" ) {
45 $wxHTML{$fields[0]} = $fields[2];
46 } elsif ( $fields[1] eq "U" ) {
47 $wxUNIX{$fields[0]} = $fields[2];
48 } else {
49 warn "Unknown file type $fields[1] for $fields[0], ignoring.\n";
50 next line;
51 }
52 }
53
54 close(FILELIST);
55#$}
56#! vim:sw=4:ts=4:list:et