symbian/test/common_files.pl

   1
   2 use strict;
   3
   4 my $bldfile = $ARGV[0];
   5 my $pkgfile = $ARGV[1];
   6
   7 open(BLD, ">$bldfile") or die "Cannot open $bldfile: $!\n";
   8
   9 my $exp_source = "..\\..\\..\\test";
  10 my $exp_target = "\\EPOC32\\winscw\\c\\Private";
  11 my @pkgdata;
  12
  13 print BLD "PRJ_PLATFORMS\n";
  14 print BLD "\n\n";
  15 print BLD "PRJ_EXPORTS\n";
  16 doexp("sample.bmp",     "e000101c");
  17 doexp("sample.wav", "e0001003");
  18 doexp("icon.bmp",               "e0001004");
  19 doexp("sample.bmp",     "e0001006");
  20 doexp("moose.dat", "e0001013");
  21 doexp("sample.bmp", "e0001014");
  22 doexp("sail.bmp",       "e0001015");
  23 doexp("icon.bmp",       "e0001018");
  24 print BLD "\n\n";
  25 print BLD "PRJ_MMPFILES\n";
  26 close(BLD);
  27
  28 open(PKG, ">$pkgfile") or die "Cannot open $pkgfile: $!\n";
  29 print PKG ";Package header\n\n";
  30
  31 print PKG ";Languages\n";
  32 print PKG "&EN\n";
  33 print PKG ";Header\n\n";
  34
  35
  36 print PKG "#{\"SDL Test\"}, (0xE0001000), 1, 0, 0\n\n";
  37 print PKG "%{\"SDL-EN\"} : \"SDL\"\n\n";
  38 print PKG "*\"\\certificates\\selfsigned.key\", \"\\certificates\\selfsigned.cer\"\n\n";
  39 print PKG "[0x101F7961], 0, 0, 0, {\"Series60ProductID\"}\n";
  40 print PKG ";Installed files\n";
  41
  42 print "Common file created\n";
  43
  44 foreach my $pkgln (@pkgdata)
  45         {
  46         print PKG $pkgln;
  47         }
  48
  49 print PKG "\n\n";
  50
  51 close(PKG);
  52
  53 sub doexp
  54         {
  55         my ($s, $t) = @_;
  56         print BLD "$exp_source\\$s $exp_target\\$t\\$s\n";
  57         push(@pkgdata, "\"$exp_source\\$s\"-\"!:\\Private\\$t\\$s\"\n");
  58         }
  59
  60
  61
  62
  63