symbian编译过程（perl）

核心提示：}BEGIN {# get the current working directory$WorkPath=cwd;$WorkPath=~s-/-\-go; # separator from Perl 5.005_02+ is forward slash$WorkPath=~s/^(.:)//o; # remove dr

}

BEGIN {

# get the current working directory

$WorkPath=cwd;

$WorkPath=~s-/-\-go; # separator from Perl 5.005_02+ is forward slash

$WorkPath=~s/^(.:)//o; # remove drive letter

$Drive=$1;

$WorkPath=~s-^(.*[^\])$-$1\-o; # ensure workpath ends with a backslash

@WorkPathList=&Path_Dirs($WorkPath);

}

--------------------

view plaincopy to clipboardprint?

unless (-e "${BldInfPath}BLD.INF") {

&FatalError("Can't find \"${BldInfPath}BLD.INF\"");

unless (-e "${BldInfPath}BLD.INF") {

&FatalError("Can't find \"${BldInfPath}BLD.INF\"");

如果不存在 bld.inf 文件，提示错误

--------------------

# decide the output directory

my $OutDir=&Path_Chop($E32env::Data{BldPath}).$BldInfPath;

$OutDir = Symbian9.1S60_3rd_MREPOC32BUILDworkspacehizhigroup

--------------------

# Work out the path for the IBY files

my $RomDir=&Path_Chop($E32env::Data{RomPath}).$BldInfPath;

$RomDir = Symbian9.1S60_3rd_MREPOC32ROMworkspacehizhigroup

--------------------

# Work out the name for the BLD.INF module

my @Dirs=&Path_Dirs($BldInfPath);

my $Module = pop @Dirs;

if (lc($Module) eq 'group') {

$Module = pop @Dirs;

}

$Module = Zhizhi

--------------------

view plaincopy to clipboardprint?

if ($Command eq 'CLEAN') {

unlink "${BldInfPath}ABLD.BAT";

$OutDir=~m-(.*)\-o;

if (-d $1) { # remove backslash for test because some old versions of perl can't cope

opendir DIR, $1;

my @Files=grep s/^([^.].*)$/$OutDir$1/, readdir DIR;

closedir DIR;

unlink @Files;

}

exit;