]> git.saurik.com Git - wxWidgets.git/blob - distrib/msw/tmake/filelist.t
Started "make dist"
[wxWidgets.git] / 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