diff options
Diffstat (limited to 'tools/release')
-rwxr-xr-x | tools/release | 115 |
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 | |||
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`; | ||