epoc/createpkg.pl

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