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