[p5sagit/p5-mst-13.2.git] / epoc / createpkg.pl

#!/usr/bin/perl

use File::Find;
use Cwd;

$VERSION="5.005";
$PATCH=62;
$EPOC_VERSION=11;
$CROSSCOMPILEPATH="Y:";


sub filefound {
    my $f = $File::Find::name;
    
    return if ( $f =~ /ExtUtils|unicode|CGI|CPAN|Net|IPC|User|DB.pm/i);
    my $back = $f;

    $back =~ s|$CROSSCOMPILEPATH||;

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

    my $psiback = $back;

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

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


open OUT,">perl.pkg";

print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";

print OUT "\"\\epoc32\\release\\marm\\rel\\perl.exe\"-\"!:\\perl.exe\"\n";
print OUT "\"\\perl$VERSION\\perl${VERSION}_$PATCH\\epoc\\Config.pm\"-\"!:\\perl\\lib\\$VERSION$PATCH\\Config.pm\"\n";

find(\&filefound, cwd.'/lib');

print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n"
Commit	Line	Data
14bdf8d3	1	#!/usr/bin/perl
	2
	3	use File::Find;
	4	use Cwd;
	5
	6	$VERSION="5.005";
	7	$PATCH=62;
	8	$EPOC_VERSION=11;
	9	$CROSSCOMPILEPATH="Y:";
	10
	11
	12	sub filefound {
	13	my $f = $File::Find::name;
	14
	15	return if ( $f =~ /ExtUtils\|unicode\|CGI\|CPAN\|Net\|IPC\|User\|DB.pm/i);
	16	my $back = $f;
	17
	18	$back =~ s\|$CROSSCOMPILEPATH\|\|;
	19
	20	$back =~ s\|/\|\\\|g;
	21
	22	my $psiback = $back;
	23
	24	$psiback =~ s/\\perl$VERSION\\perl$VERSION\_$PATCH\\lib\\/\\perl\\lib\\$VERSION$PATCH\\/i;
	25
	26	print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
	27	;
	28	}
	29
	30
	31
	32
	33
	34	open OUT,">perl.pkg";
	35
	36	print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
	37
	38	print OUT "\"\\epoc32\\release\\marm\\rel\\perl.exe\"-\"!:\\perl.exe\"\n";
	39	print OUT "\"\\perl$VERSION\\perl${VERSION}_$PATCH\\epoc\\Config.pm\"-\"!:\\perl\\lib\\$VERSION$PATCH\\Config.pm\"\n";
	40
	41	find(\&filefound, cwd.'/lib');
	42
	43	print OUT "@\"\\epoc32\\release\\marm\\rel\\stdlib.sis\",(0x010002c3)\n"
	44
	45