xameius ipod WPS and my first take at a script that generates a .cfg file for

the WPS. This is only a first step. There are lots of more things to do.


git-svn-id: svn://svn.rockbox.org/rockbox/trunk@7856 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 55 insertions, 0 deletions

diff --git a/apps/wps/wpsbuild.pl b/apps/wps/wpsbuild.pl
new file mode 100755
index 0000000000..2eb76c6b06
--- /dev/null
+++ b/apps/wps/wpsbuild.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+
+my $wpslist=$ARGV[0];
+
+if(!$wpslist) {
+    print "Usage: wpsbuilds.pl [WPSLIST]\n";
+    exit;
+}
+
+sub buildcfg {
+    my $cfg = $wps;
+
+    $cfg =~ s/\.wps/.cfg/;
+
+    open(CFG, ">$cfg");
+
+    print CFG <<MOO
+\# $cfg generated by wpsbuild.pl
+\#
+wps: /.rockbox/wps/$wps
+font: /.rockbox/fonts/$font
+statusbar: $statusbar
+MOO
+;
+    close(CFG);
+}
+
+open(WPS, "<$wpslist");
+while(<WPS>) {
+    my $l = $_;
+    if($l =~ /^ *\#/) {
+        # skip comment
+        next;
+    }
+    if($l =~ /^ *<wps>/i) {
+        $within = 1;
+        next;
+    }
+    if($within) {
+        if($l =~ /^ *<\/wps>/i) {
+            buildcfg();
+            $within = 0;
+        }
+        elsif($l =~ /^Name: (.*)/i) {
+            $wps = $1;
+        }
+        elsif($l =~ /^Font: (.*)/i) {
+            $font = $1;
+        }
+        elsif($l =~ /^Statusbar: (.*)/i) {
+            $statusbar = $1;
+        }
+    }
+}
+