summaryrefslogtreecommitdiff
path: root/apps/wps/wpsbuild.pl
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2005-11-14 14:27:15 +0000
committerDaniel Stenberg <daniel@haxx.se>2005-11-14 14:27:15 +0000
commit5e883c36b1876f00ee6c1625018c30b1bd2ac275 (patch)
tree37ce56fda13cb643d110ed87efde9f6ddc721a8a /apps/wps/wpsbuild.pl
parent4dd2748b835fca619f4651b5c2ec4629f52776b1 (diff)
downloadrockbox-5e883c36b1876f00ee6c1625018c30b1bd2ac275.tar.gz
rockbox-5e883c36b1876f00ee6c1625018c30b1bd2ac275.zip
moved to /wps
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7860 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'apps/wps/wpsbuild.pl')
-rwxr-xr-xapps/wps/wpsbuild.pl55
1 files changed, 0 insertions, 55 deletions
diff --git a/apps/wps/wpsbuild.pl b/apps/wps/wpsbuild.pl
deleted file mode 100755
index 2eb76c6b06..0000000000
--- a/apps/wps/wpsbuild.pl
+++ /dev/null
@@ -1,55 +0,0 @@
1#!/usr/bin/perl
2
3my $wpslist=$ARGV[0];
4
5if(!$wpslist) {
6 print "Usage: wpsbuilds.pl [WPSLIST]\n";
7 exit;
8}
9
10sub buildcfg {
11 my $cfg = $wps;
12
13 $cfg =~ s/\.wps/.cfg/;
14
15 open(CFG, ">$cfg");
16
17 print CFG <<MOO
18\# $cfg generated by wpsbuild.pl
19\#
20wps: /.rockbox/wps/$wps
21font: /.rockbox/fonts/$font
22statusbar: $statusbar
23MOO
24;
25 close(CFG);
26}
27
28open(WPS, "<$wpslist");
29while(<WPS>) {
30 my $l = $_;
31 if($l =~ /^ *\#/) {
32 # skip comment
33 next;
34 }
35 if($l =~ /^ *<wps>/i) {
36 $within = 1;
37 next;
38 }
39 if($within) {
40 if($l =~ /^ *<\/wps>/i) {
41 buildcfg();
42 $within = 0;
43 }
44 elsif($l =~ /^Name: (.*)/i) {
45 $wps = $1;
46 }
47 elsif($l =~ /^Font: (.*)/i) {
48 $font = $1;
49 }
50 elsif($l =~ /^Statusbar: (.*)/i) {
51 $statusbar = $1;
52 }
53 }
54}
55