[perl5.git] / epoc / link.pl

#!/usr/bin/perl -w

$epoc="/usr/local/epoc";
@objs=@ARGV;
$basname=$objs[0];
$basname =~ s/.o//;
$baspe = $basname . "pe";


system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " .
       "-o $baspe.exe $epoc/lib/eexe.o @objs " .
       "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");

system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " .
       "--base-file $basname.bas $epoc/lib/eexe.o @objs " .
       "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib  $epoc/lib/euser.lib");

system("arm-pe-ld -s -e _E32Startup $basname.exp " .
       "-o $baspe.exe $epoc/lib/eexe.o @objs " .
       "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");

system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " .
        "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " .
        "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" ");
Commit	Line	Data
3a2f06e9 GS	1	#!/usr/bin/perl -w
	2
	3	$epoc="/usr/local/epoc";
	4	@objs=@ARGV;
	5	$basname=$objs[0];
	6	$basname =~ s/.o//;
	7	$baspe = $basname . "pe";
	8
	9
	10	system("arm-pe-ld -s -e _E32Startup --base-file $basname.bas " .
	11	"-o $baspe.exe $epoc/lib/eexe.o @objs " .
	12	"$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
	13
	14	system("arm-pe-dlltool --as=arm-pe-as --output-exp $basname.exp " .
	15	"--base-file $basname.bas $epoc/lib/eexe.o @objs " .
	16	"$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
	17
ed79a026	18	system("arm-pe-ld -s -e _E32Startup $basname.exp " .
3a2f06e9 GS	19	"-o $baspe.exe $epoc/lib/eexe.o @objs " .
	20	"$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
	21
ed79a026	22	system( "wine $epoc/bin/petran.exe \"$baspe.exe $basname.exe " .
3a2f06e9	23	"-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " .
ed79a026	24	"-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000\" ");
3a2f06e9	25