]>
Commit | Line | Data |
---|---|---|
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 |