1e6feb95a7
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@10673 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
85 lines
3.1 KiB
Perl
85 lines
3.1 KiB
Perl
#!#############################################################################
|
|
#! File: filelist.t
|
|
#! Purpose: tmake template file containig Perl code to parse the filelist.txt
|
|
#! file - this is used by all other templates.
|
|
#! Author: Vadim Zeitlin
|
|
#! Created: 14.07.99
|
|
#! Version: $Id$
|
|
#!#############################################################################
|
|
#${
|
|
open(FILELIST, "filelist.txt") or die "Can't open filelist file: $!\n";
|
|
|
|
line: while ( defined($_ = <FILELIST>) ) {
|
|
chomp;
|
|
|
|
#! comment or blank line, skip
|
|
next line if ( $_ eq "" or /^#/ );
|
|
|
|
#! if ( $verbose ) {
|
|
#! print STDERR "Processing line: '$_'\n";
|
|
#! }
|
|
|
|
my @fields = split "\t";
|
|
if ( $#fields > 2 ) {
|
|
warn "Ignoring malformed line $_ in the filelist file.\n";
|
|
next line;
|
|
} elsif ( $#fields == 1 ) {
|
|
#! add an empty flags string
|
|
$fields[2] = "";
|
|
}
|
|
|
|
if ( $verbose ) {
|
|
print STDERR "File $fields[0]: type '$fields[1]', flags '$fields[2]'\n";
|
|
}
|
|
|
|
#! first column is filename, second is type, third is flags
|
|
if ( $fields[1] eq "C" ) {
|
|
$wxCommon{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "G" ) {
|
|
$wxGeneric{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "M" ) {
|
|
$wxMSW{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "X" ) {
|
|
$wxMOTIF{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "R" ) {
|
|
$wxGTK{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "V" ) {
|
|
$wxUNIV{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "Z" ) {
|
|
$wxMGL{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "O" ) {
|
|
$wxOS2PM{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "H" ) {
|
|
$wxHTML{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "U" ) {
|
|
$wxUNIX{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "B" ) {
|
|
$wxBase{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "W" ) {
|
|
$wxWXINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "P" ) {
|
|
$wxPROTOCOLINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "L" ) {
|
|
$wxHTMLINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "F" ) {
|
|
$wxMOTIFINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "9" ) {
|
|
$wxMSWINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "K" ) {
|
|
$wxGTKINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "2" ) {
|
|
$wxOS2PMINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "S" ) {
|
|
$wxUNIXINCLUDE{$fields[0]} = $fields[2];
|
|
} elsif ( $fields[1] eq "N" ) {
|
|
$wxGENERICINCLUDE{$fields[0]} = $fields[2];
|
|
} else {
|
|
warn "Unknown file type $fields[1] for $fields[0], ignoring.\n";
|
|
next line;
|
|
}
|
|
}
|
|
|
|
close(FILELIST);
|
|
#$}
|
|
#! vim:sw=4:ts=4:list:et
|