Commit | Line | Data |
---|---|---|
14bdf8d3 | 1 | #!/usr/bin/perl |
2 | ||
3 | use File::Find; | |
4 | use Cwd; | |
5 | ||
ed79a026 | 6 | $VERSION="5.7"; |
b250498f | 7 | $PATCH="0"; |
ed79a026 | 8 | $EPOC_VERSION=24; |
3a2f06e9 | 9 | $CROSSCOMPILEPATH=cwd; |
b250498f | 10 | $CROSSREPLACEPATH="H:\\perl"; |
14bdf8d3 | 11 | |
12 | ||
13 | sub filefound { | |
14 | my $f = $File::Find::name; | |
15 | ||
f83d2536 | 16 | return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i); |
14bdf8d3 | 17 | my $back = $f; |
18 | ||
19 | $back =~ s|$CROSSCOMPILEPATH||; | |
20 | ||
21 | $back =~ s|/|\\|g; | |
22 | ||
23 | my $psiback = $back; | |
24 | ||
f83d2536 | 25 | $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i; |
14bdf8d3 | 26 | |
3a2f06e9 | 27 | print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n" if ( -f $f ); |
14bdf8d3 | 28 | ; |
29 | } | |
30 | ||
14bdf8d3 | 31 | open OUT,">perl.pkg"; |
32 | ||
33 | print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n"; | |
34 | ||
ed79a026 | 35 | print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n"; |
14bdf8d3 | 36 | |
37 | find(\&filefound, cwd.'/lib'); | |
f83d2536 | 38 | print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n" |
14bdf8d3 | 39 | |
40 |