aboutsummaryrefslogtreecommitdiff
path: root/wceinf.pl
diff options
context:
space:
mode:
Diffstat (limited to 'wceinf.pl')
-rw-r--r--wceinf.pl65
1 files changed, 0 insertions, 65 deletions
diff --git a/wceinf.pl b/wceinf.pl
deleted file mode 100644
index 4756f3c..0000000
--- a/wceinf.pl
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/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";
-}