game.pl

来自「symbian 的一个 二维飞行游戏 源码 及相关技术文章」· PL 代码 · 共 47 行

#!/usr/bin/perl

# print header
print ";\r\n; Basic install file for minimal application\r\n;\r\n\r\n; Languages\r\n&EN,DU\r\n\r\n; Installation header\r\n; English and dutch\r\n";


# get uid from .h file
my $uid=readpipe("grep KUidExampleGame ../code/uiinc/CGameApplication.h");
$uid =~ /\{([^\}]*)\}/;
$uid=$1;

# get version from resource file
my $version=readpipe("grep r_version_string ../code/uisrc/Game.rss");

$version =~ /\"([^.]*)[.]0*([0-9]*)/;
my $minorVersion=$2;
my $majorVersion=$1;


# get title from resource file
my $title=readpipe("grep r_title_string ../code/uisrc/Game.rss");
$title =~ /(\"[^\"]*\")/;
$title = $1;

my $epocroot=$ENV{EPOCROOT};

#print version line
print "#{$title,$title},($uid),$majorVersion,$minorVersion,0\n\r";

print "\r\n; dll and resource file\r\n\"$epocroot/epoc32/release/armi/urel/Game.app\"-\"!:\\system\\apps\\Game\\Game.app\"\r\n";

print "{\r\n\"$epocroot/epoc32/release/armi/urel/Game.r01\"\r\n\"$epocroot/epoc32/release/armi/urel/Game.r18\"\r\n}-\"!:\\system\\apps\\Game\\Game.rsc\"\r\n\r\n";

#include level and map file
my @files=readpipe("find ../levels/ -name '*.lev' -or -name '*.map'");
my $found="";
foreach $found ( @files ) {
    chomp $found;
    $found =~ /\/([^\/]*)$/;
    print "\"../levels/$1\"-\"!:\\system\\apps\\Game\\$1\"\r\n"
}

#print footer
print "; Required files\r\n; None\r\n\r\n; Component .sis files\r\n; None\r\n"