1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!/usr/bin/perl
# Perl script to generate a .INF file for building a Pocket PC .CAB
# archive of Puzzles. This has to be scripted so that it can read
# gamedesc.txt and automatically adjust to the current available
# set of puzzles.
# Usage:
#
# $ ./wceinf.pl gamedesc.txt > puzzles.inf
$desc = shift @ARGV;
open DESC, "<", $desc;
while (<DESC>) {
chomp;
@_ = split /:/;
push @exes, $_[1];
$names{$_[1]} = $_[2];
}
close DESC;
print '[Version]'."\n";
print 'Signature = "$Windows NT$" ; required as-is'."\n";
print 'Provider = "Simon Tatham" ; full app name will be "<Provider> <AppName>"'."\n";
print 'CESignature = "$Windows CE$" ; required as-is'."\n";
print ''."\n";
print '[CEStrings]'."\n";
print 'AppName = "Puzzle Collection" ; full app name will be "<Provider> <AppName>"'."\n";
print 'InstallDir = %CE8%\%AppName% ; "\Program Files\Games\Puzzle Collection" (default install directory)'."\n";
print ''."\n";
print '[CEDevice.x86]'."\n";
print 'ProcessorType = 686'."\n";
print ''."\n";
print '[CEDevice.ARM]'."\n";
print 'ProcessorType = 2577'."\n";
print ''."\n";
print '[SourceDisksNames.x86] ; CPU-dependent files'."\n";
print '2 = ,"x86 Files",,.'."\n";
print ''."\n";
print '[SourceDisksNames.ARMV4] ; CPU-dependent files'."\n";
print '2 = ,"ARM Files",,.'."\n";
print ''."\n";
print '[SourceDisksFiles]'."\n";
for $exe (@exes) {
print $exe.' = 2'."\n";
}
print ''."\n";
print '[DefaultInstall]'."\n";
print 'CopyFiles = PuzzleFiles'."\n";
print 'CEShortcuts = Links'."\n";
print ''."\n";
print '[DestinationDirs]'."\n";
print 'PuzzleFiles = 0, %InstallDir%'."\n";
print 'Links = 0, %CE14%\Puzzles'."\n";
print ''."\n";
print ';File copy list.'."\n";
print '[PuzzleFiles]'."\n";
for $exe (@exes) {
print $exe."\n";
}
print ''."\n";
print '[Links]'."\n";
for $exe (@exes) {
print '"'.$names{$exe}.'",0,'.$exe."\n";
}
|
