summaryrefslogtreecommitdiff
path: root/epoc/createpkg.pl
blob: f6519a61c3c8bc4b2810713d6dc415e4bcc9175e (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
41
#!/usr/bin/perl

use File::Find;
use Cwd;

$VERSION="5.9.5";
$EPOC_VERSION=1;


sub filefound {

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

  my $psiback = $back;

  $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
  $psiback =~ s|/|\\|g;
  print OUT "\"$back\"-\"!:$psiback\"\n"  if ( -f $f );
}

open OUT,">perl.pkg";

print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";

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

open IN,  "<Artistic";
open OUT, ">Artistic.txt";
while (my $line = <IN>) {
  chomp $line;
  print OUT "$line\r\n";
}

close IN;
close OUT;