epoc/createpkg.pl

   1 #!/usr/bin/perl
   2
   3 use File::Find;
   4 use Cwd;
   5
   6 $VERSION="5.005";
   7 $PATCH=62;
   8 $EPOC_VERSION=11;
   9 $CROSSCOMPILEPATH="Y:";
  10
  11
  12 sub filefound {
  13     my $f = $File::Find::name;
  14
  15     return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i);
  16     my $back = $f;
  17
  18     $back =~ s|$CROSSCOMPILEPATH||;
  19
  20     $back =~ s|/|\\|g;
  21
  22     my $psiback = $back;
  23
  24     $psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
  25
  26     print OUT "\"$back\"-\"!:$psiback\"\n"  if ( -f $f );
  27 ;
  28 }
  29
  30
  31
  32
  33
  34 open OUT,">perl.pkg";
  35
  36 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
  37
  38 print OUT "\"\\epoc32\\release\\marm\\rel\\perl.exe\"-\"!:\\perl.exe\"\n";
  39 print OUT "\"\\perl$VERSION\\perl${VERSION}_$PATCH\\epoc\\Config.pm\"-\"!:\\perl\\lib\\$VERSION$PATCH\\Config.pm\"\n";
  40
  41 find(\&filefound, cwd.'/lib');
  42
  43 print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n"
  44
  45