tools/release

   1 #!/usr/bin/env perl
   2
   3 $version = $ARGV[0];
   4
   5 if($version eq "") {
   6     print "Enter version number!\n";
   7     exit;
   8 }
   9
  10 if(!-f "apps/version.h") {
  11     print "run this script in the root dir\n";
  12     exit;
  13 }
  14 # save the complete version string for VERSION file,
  15 # strip everything after space / hyphen for filename
  16 $longversion = $ARGV[0];
  17 $version =~ s/[ -].+//;
  18
  19 # -L allows find to follow symbolic links
  20 @files=`find -L . -name FILES`;
  21
  22 my @entries;
  23
  24 sub dirpart {
  25     my ($file)=@_;
  26     my @p=split("/", $file);
  27     $p[$#p]=""; # blank the last one
  28     my $dir=join("/", @p);
  29
  30     $dir =~ s/^\.\///; # cut off ./ beginnings
  31
  32     $dir =~ s/\/$//;  # off / trailers
  33
  34     return $dir;
  35 }
  36
  37 sub add {
  38     my ($file)=@_;
  39
  40     my $dir=dirpart($file);
  41
  42     open(FILE, "<$file");
  43     while(<FILE>) {
  44         if($_ =~ /^ *\#/) {
  45             next;
  46         }
  47         chomp;
  48         push @entries, "$dir/$_";
  49     }
  50     close(FILE);
  51 }
  52
  53 for(@files) {
  54     chomp;
  55     add($_);
  56 }
  57
  58 sub mkalldir {
  59     my ($dir) = @_;
  60
  61     my @parts = split("/", $dir);
  62
  63     #print "IN: $dir\n";
  64
  65     my $sub="";
  66     for(@parts) {
  67         #print "PART: $_\n";
  68
  69         $sub .= "$_";
  70         if($_ eq "") {
  71             next;
  72         }
  73         mkdir($sub, 0777);
  74         #print "make $sub\n";
  75         $sub .= "/";
  76     }
  77
  78 }
  79
  80 #mkalldir("rockbox-1.0/firmware/malloc");
  81 #exit;
  82
  83 for(@entries) {
  84     my $dir = dirpart("rockbox-$version/$_");
  85     #print "Create $dir\n";
  86     mkalldir($dir);
  87     #print "Copy $_ to $dir\n";
  88     `cp -p $_ $dir 2>/dev/null`;
  89 }
  90
  91 if(!open(VERSION, "<apps/version.h")) {
  92     print "Can't read version.h\n";
  93     exit;
  94 }
  95
  96 if(!open(THIS, ">rockbox-$version/apps/version.h")) {
  97     print "Can't create a new version.h for this version\n";
  98     exit;
  99 }
 100 while(<VERSION>) {
 101     $_ =~ s/^\#define APPSVERSION .*/\#define APPSVERSION \"$version\"/;
 102     print THIS $_;
 103 }
 104 close(VERSION);
 105 close(THIS);
 106
 107 if(!open(VER, ">rockbox-$version/docs/VERSION")) {
 108     print "Can't create new docs/VERSION file\n";
 109     exit;
 110 }
 111 print VER $version;
 112 close(VER);
 113
 114 `tar -cjf rockbox-$version.tar.bz2 rockbox-$version`;
 115 `rm -rf rockbox-$version`;