epoc/createpkg.pl

   1 #!/usr/bin/perl
   2
   3 use File::Find;
   4 use Cwd;
   5
   6 $VERSION="5.7";
   7 $PATCH="1";
   8 $EPOC_VERSION=27;
   9
  10
  11 sub filefound {
  12
  13   my $f = $File::Find::name;
  14
  15   return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
  16   my $back = $f;
  17
  18   my $psiback = $back;
  19
  20   $psiback =~ s|.*/lib/|\\perl\\lib\\$VERSION.$PATCH\\|;
  21
  22   print OUT "\"$back\"-\"!:$psiback\"\n"  if ( -f $f );
  23 }
  24
  25 open OUT,">perl.pkg";
  26
  27 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
  28 print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TA\n";
  29 print OUT "\"" . cwd . "/perl\"-\"!:\\system\\programs\\perl.exe\"\n";
  30
  31 find(\&filefound, cwd.'/lib');
  32 # print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n";
  33
  34 open IN,  "<Artistic";
  35 open OUT, ">Artistic.txt";
  36 while (my $line = <IN>) {
  37   chomp $line;
  38   print OUT "$line\x13\x10";
  39 }
  40
  41 close IN;
  42 close OUT;
  43