60d64290f524726728912eafb220cbcfeef0e633
[perl.git] / epoc / createpkg.pl
1 #!/usr/bin/perl
2
3 use File::Find;
4 use Cwd;
5
6 $VERSION="5.13.8";
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