summaryrefslogtreecommitdiff
path: root/epoc/createpkg.pl
blob: 5ce70fc92c00d478ea4ab7baf2eb70b2f8e0e9d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl

use File::Find;
use Cwd;

$VERSION="5.7";
$PATCH="1";
$EPOC_VERSION=27;
$CROSSCOMPILEPATH=cwd;
$CROSSREPLACEPATH="H:\\perl";


sub filefound {
    my $f = $File::Find::name;
    
    return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
    my $back = $f;

    $back =~ s|$CROSSCOMPILEPATH||;

    $back =~ s|/|\\|g;

    my $psiback = $back;

    $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;

    print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n"  if ( -f $f );
;
}

open OUT,">perl.pkg";

print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
print OUT "\"$CROSSREPLACEPATH\\Artistic\"-\"\",FT,TA\n";
print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";

find(\&filefound, cwd.'/lib');
print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"