epoc/createpkg.pl

   1 #!/usr/bin/perl
   2
   3 use File::Find;
   4 use Cwd;
   5
   6 $VERSION="5.005";
   7 $PATCH=63;
   8 $EPOC_VERSION=16;
   9 $CROSSCOMPILEPATH=cwd;
  10 $CROSSREPLACEPATH="H:\\devel\\perl5.005_63";
  11
  12
  13 sub filefound {
  14     my $f = $File::Find::name;
  15
  16     return if ( $f =~ /unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
  17     my $back = $f;
  18
  19     $back =~ s|$CROSSCOMPILEPATH||;
  20
  21     $back =~ s|/|\\|g;
  22
  23     my $psiback = $back;
  24
  25     $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
  26
  27     print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n"  if ( -f $f );
  28 ;
  29 }
  30
  31 open OUT,">perl.pkg";
  32
  33 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
  34
  35 print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n";
  36
  37 find(\&filefound, cwd.'/lib');
  38 print OUT "@\"G:\\lib\\stdlib.sis\",(0x010002c3)\n"
  39
  40