symbian/test/mmpmake.pl

   1 use strict;
   2
   3 my $ii = -1;
   4 my $count = @ARGV;
   5 my $docomp = 0;
   6 my $target;
   7 my @libs;
   8 my @files;
   9 my $uid = 0;
  10 my $targetdir;
  11 my $pkgfile;
  12 my $bldinffile;
  13 my $srcdir;
  14 my @userinc;
  15 my @sysinc;
  16 my @exclude;
  17 my $mathlibneed = 0;
  18 my $gllibneed = 0;
  19 while(1)
  20         {
  21         ++$ii;
  22         last unless $ii < $count;
  23
  24
  25         if($ARGV[$ii] =~ /\@CC\@/)
  26                 {
  27                 $docomp = 1;
  28                 next;
  29                 }
  30         if($docomp)
  31                 {
  32                 if($ARGV[$ii] eq "-o")
  33                         {
  34                         ++$ii;
  35                         $target = $ARGV[$ii];
  36                         next;
  37                         }
  38                 if($ARGV[$ii] eq "\@CFLAGS\@")
  39                         {
  40                         next;
  41                         }
  42                 if($ARGV[$ii] eq "\@LIBS\@")
  43                         {
  44                         push(@libs, "euser.lib");
  45                         push(@libs, "sdl.lib");
  46                         push(@libs, "sdlexe.lib");
  47                         next;
  48                         }
  49                 if($ARGV[$ii] eq "\@MATHLIB\@")
  50                         {
  51                         $mathlibneed = 1;
  52                         next;
  53                         }
  54                 if($ARGV[$ii] eq "\@GLLIB\@")
  55                         {
  56                         $gllibneed = 1;
  57                         next;
  58                         }
  59                 if($ARGV[$ii] eq "-uid")
  60                         {
  61                         ++$ii;
  62                         $uid += hex($ARGV[$ii]);
  63                         next;
  64                         }
  65                 if($ARGV[$ii] eq "-targetdir")
  66                         {
  67                         ++$ii;
  68                         $targetdir = $ARGV[$ii];
  69                         next;
  70                         }
  71                 if($ARGV[$ii] eq "-pkgfile")
  72                         {
  73                         ++$ii;
  74                         $pkgfile = $ARGV[$ii];
  75                         next;
  76                         }
  77                 if($ARGV[$ii] eq "-bldinffile")
  78                         {
  79                         ++$ii;
  80                         $bldinffile = $ARGV[$ii];
  81                         next;
  82                         }
  83                 if($ARGV[$ii] eq "-uinc")
  84                         {
  85                         ++$ii;
  86                         push(@userinc, split(/;/, $ARGV[$ii]));
  87                         next;
  88                         }
  89                 if($ARGV[$ii] eq "-sinc")
  90                         {
  91                         ++$ii;
  92                         push(@sysinc, split(/;/, $ARGV[$ii]));
  93                         next;
  94                         }
  95                 if($ARGV[$ii] eq "-excl")
  96                         {
  97                         ++$ii;
  98                         push(@exclude, split(/;/, $ARGV[$ii]));
  99                         next;
 100                         }
 101                 if($ARGV[$ii] =~ /^#(\d+)/)
 102                         {
 103                         $uid += $1;
 104                         next;
 105                         }
 106                 if($ARGV[$ii] eq "-srcdir")
 107                         {
 108                         ++$ii;
 109                         $srcdir = $ARGV[$ii];
 110                         next;
 111                         }
 112                 if($ARGV[$ii] eq "-lib")
 113                         {
 114                         ++$ii;
 115                         push(@libs, split(/;/, $ARGV[$ii]));
 116                         next;
 117                         }
 118                 if($ARGV[$ii] eq "-mathlib")
 119                         {
 120                         ++$ii;
 121                         push(@libs, split(/;/, $ARGV[$ii])) if $mathlibneed;
 122                         next;
 123                         }
 124                 if($ARGV[$ii] eq "-gllib")
 125                         {
 126                         ++$ii;
 127                         push(@libs, split(/;/, $ARGV[$ii])) if $gllibneed;
 128                         next;
 129                         }
 130                 push(@files, $ARGV[$ii]);
 131                 }
 132         }
 133
 134
 135
 136 my $name;
 137 if($target =~ /(.*?)\@EXE\@/)
 138         {
 139         $name = $1;
 140         }
 141
 142 foreach my $exl (@exclude)
 143         {
 144         exit if($name =~ /$exl/);
 145         }
 146
 147 my $mmpname = "$targetdir\\$name.mmp";
 148
 149
 150 open(MMP, ">$mmpname") or die "cannot open mmpfile; $mmpname\n";
 151
 152 print MMP "\n\n";
 153
 154 print MMP "TARGET $name.exe\n";
 155 print MMP "TARGETTYPE exe\n";
 156 printf MMP "UID 0 0x%x\n", $uid;
 157 print MMP "CAPABILITY ReadUserData WriteUserData\n";
 158 print MMP "EPOCHEAPSIZE 1000000 20000000\n\n";
 159
 160 print MMP "USERINCLUDE ";
 161
 162 foreach my $uinc (@userinc)
 163         {
 164         print MMP "$uinc ";
 165         }
 166 print MMP "\n";
 167 print MMP "SYSTEMINCLUDE \\epoc32\\include ";
 168
 169 foreach my $sinc (@sysinc)
 170         {
 171         print MMP "$sinc ";
 172         }
 173
 174 print MMP "\n";
 175
 176 my $currentpath;
 177 foreach my $filepath (@files)
 178         {
 179         my $curfile;
 180         $filepath =~ s/\@srcdir\@/$srcdir/;
 181         if($filepath =~ /(.*?)[\/]+(.*)$/)
 182                 {
 183                 if($currentpath ne $1)
 184                         {
 185                         $currentpath = $1;
 186                         print MMP "SOURCEPATH $currentpath\n";
 187                         }
 188                 $curfile = $2;
 189                 }
 190         else
 191                 {
 192                 $curfile = $filepath;
 193                 }
 194
 195         print MMP "SOURCE $curfile\n";
 196         }
 197
 198 print MMP "\n";
 199
 200 print MMP "SOURCEPATH .\n";
 201 print MMP "START RESOURCE ";
 202 print MMP "$name";
 203 print MMP "_reg.rss\n";
 204 print MMP "TARGETPATH \\private\\10003a3f\\apps\n";
 205 print MMP "END\n\n";
 206
 207
 208
 209 foreach my $lib (@libs)
 210         {
 211         print MMP "LIBRARY $lib\n";
 212         }
 213
 214 print MMP "\n";
 215
 216 print MMP "STATICLIBRARY sdlmain.lib\n\n";
 217
 218 close(MMP);
 219
 220 my $regname = "$targetdir\\$name" . "_reg.rss";
 221
 222 open(REG, ">$regname") or die "cannot open regfile; $regname\n";
 223
 224 print REG "#include <appinfo.rh>\n\n";
 225
 226
 227 print REG "UID2 KUidAppRegistrationResourceFile\n";
 228 printf REG "UID3 0x%x\n\n", $uid;
 229
 230
 231 print REG "RESOURCE APP_REGISTRATION_INFO\n";
 232 print REG "\t{\n";
 233 print REG "\tapp_file = \"$name\";\n";
 234 print REG "\tgroup_name = \"SDL test\";\n";
 235 print REG "\t}\n";
 236
 237 close REG;
 238
 239 open (BLD, ">>$bldinffile") or die "cannot open bld.inf; $bldinffile: $!\n";
 240 print BLD "$name.mmp\n";
 241 close BLD;
 242
 243 open (PKG, ">>$pkgfile") or die "cannot open pkg file; $pkgfile: $!\n";
 244 print PKG "\"\\epoc32\\release\\armv5\\urel\\$name.exe\"-\"!:\\sys\\bin\\$name.exe\"\n";
 245 print PKG "\"\\epoc32\\data\\z\\private\\10003a3f\\apps\\$name";
 246 print PKG "_reg.rsc\"-\"!:\\private\\10003a3f\\import\\apps\\$name";
 247 print PKG "_reg.rsc\"\n\n";
 248 close PKG;
 249
 250
 251
 252
 253
 254