ref: f21d3e4c74b23380f397a7ee0416928ee971a15d
dir: /wceinf.pl/
#!/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"; }