packaging/ws-manifest.pl

   1 #
   2 # ws-manifest.pl - create a generic manifest file (including u3 information) from the wireshark.nsi
   3 # $Id$
   4 #
   5
   6 # These are the known directories in the distribution and where they should live on a U3 device
   7
   8 my %u3locs = qw(
   9         $INSTDIR device
  10         $INSTDIR\diameter device
  11         $INSTDIR\dtds device
  12         $INSTDIR\${GTK_ETC_DIR} host
  13         $INSTDIR\${GTK_SCHEMAS_DIR} host
  14         $INSTDIR\${GTK_ENGINES_DIR} host
  15         $INSTDIR\${GTK_MODULES_DIR} host
  16         $INSTDIR\etc\pango host
  17         $INSTDIR\help device
  18         $INSTDIR\plugins\${VERSION} device
  19         $INSTDIR\radius device
  20         $INSTDIR\snmp\mibs device
  21         $INSTDIR\tpncp device
  22         $INSTDIR\ui device
  23         $INSTDIR\wimaxasncp device
  24         );
  25
  26 my @dirs; # the directories in the manifest
  27 my @defines; # stack of defines
  28
  29 while ($line = <>) {
  30     if($line =~ /^SetOutPath (.+)$/) {
  31         $outpath = $1;
  32         $outpath =~ s/^'(.*)'$/$1/;
  33         if($outpath ne '$PROFILE') { # ignore the PROFILE
  34             push(@dirs, $outpath);
  35         }
  36     } elsif ($line =~ /!ifdef (.*)$/) {
  37         push(@defines, $1);
  38     } elsif ($line =~ /!endif/) {
  39         pop(@defines);
  40         if(scalar(@defines) == 0) {
  41             undef @defines;
  42         }
  43     } elsif ($line =~/^File.*uninstall/i) {
  44         next;
  45     } elsif ($line =~ /^File[^\"]+\"([^\"]+)\"/) {
  46         $file = $1;
  47         # make things relative to the root rather than the NSIS directory
  48         if($file =~ /^[^\.\$]/) { $file = "packaging\\nsis\\" . $file; }
  49         $file =~ s/\.\.\\\.\.\\//; # remove ../../
  50         push(@$outpath, $file);
  51
  52         if(defined @defines) {
  53             push(@$file, "ifdef=" . $defines[-1]);
  54         }
  55
  56         # there may be a parameter - copy it across
  57         if($line =~ /\/(\S+)/) {
  58             push(@$file, $1);
  59         }
  60     }
  61 }
  62
  63 print "#\n# DO NOT EDIT - autogenerated from wireshark.nsi\n#\n";
  64
  65 foreach $dir(sort @dirs) {
  66
  67     if($prev ne $dir) {
  68     print STDERR "looking for $dir\n";
  69         $loc = $u3locs{$dir};
  70
  71         if(defined $loc) {
  72
  73             print "[". $dir . " u3loc=" . $loc . "]\n";
  74
  75             foreach $file(sort @$dir) {
  76                 print "\t" . $file;
  77
  78                 foreach $param (sort(@$file)) {
  79                     print " " . $param;
  80                 }
  81
  82                 if($dir eq '$INSTDIR') { # try and find a better location
  83                     if($file =~ /\.dll$|\.exe$|EXE}$|DLL}$/ && !($file =~ /WinPcap/) && !($file =~ /VCREDIST_EXE/)) {
  84                         print " u3loc=host";
  85                     }
  86         }
  87
  88                 print "\n";
  89             }
  90         } else {
  91
  92             push(@ignored, $dir);
  93
  94         }
  95     }
  96     $prev = $dir;
  97 }
  98
  99 if(defined @ignored) {
 100
 101     print STDERR "ERROR\nThe following directories have no known location on a U3 device:\n";
 102
 103     foreach $dir(sort @ignored) {
 104         print STDERR "\t" . $dir . " ";
 105     }
 106
 107     print STDERR "\n";
 108
 109     exit -1;
 110 }