summaryrefslogtreecommitdiff
path: root/tools/release
diff options
context:
space:
mode:
Diffstat (limited to 'tools/release')
-rwxr-xr-xtools/release115
1 files changed, 0 insertions, 115 deletions
diff --git a/tools/release b/tools/release
deleted file mode 100755
index 3c5d5037fe..0000000000
--- a/tools/release
+++ /dev/null
@@ -1,115 +0,0 @@
1#!/usr/bin/env perl
2
3$version = $ARGV[0];
4
5if($version eq "") {
6 print "Enter version number!\n";
7 exit;
8}
9
10if(!-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
22my @entries;
23
24sub 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
37sub 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
53for(@files) {
54 chomp;
55 add($_);
56}
57
58sub 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
83for(@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
91if(!open(VERSION, "<apps/version.h")) {
92 print "Can't read version.h\n";
93 exit;
94}
95
96if(!open(THIS, ">rockbox-$version/apps/version.h")) {
97 print "Can't create a new version.h for this version\n";
98 exit;
99}
100while(<VERSION>) {
101 $_ =~ s/^\#define APPSVERSION .*/\#define APPSVERSION \"$version\"/;
102 print THIS $_;
103}
104close(VERSION);
105close(THIS);
106
107if(!open(VER, ">rockbox-$version/docs/VERSION")) {
108 print "Can't create new docs/VERSION file\n";
109 exit;
110}
111print VER $version;
112close(VER);
113
114`tar -cjf rockbox-$version.tar.bz2 rockbox-$version`;
115`rm -rf rockbox-$version`;