home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / epoc / link.pl < prev   
Perl Script  |  2000-01-09  |  899b  |  26 lines
  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.  
  18. system("arm-pe-ld -s -e _E32Startup -o $basname.exe $basname.exp " .
  19.        "-o $baspe.exe $epoc/lib/eexe.o @objs " .
  20.        "$epoc/lib/ecrt0.o $epoc/lib/estlib.lib $epoc/lib/euser.lib");
  21.  
  22. system( "wine \"$epoc/bin/petran.exe $baspe.exe $basname.exe " .
  23.         "-nocall -heap 0x00000400 0x00400000 -stack 0x0000c000 " .
  24.         "-uid1 0x1000007a -uid2 0x100051d8 -uid3 0x00000000 \" ");
  25.  
  26.