we start the WPS collection in this new module

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

wps/WPSLIST

@@ -0,0 +1,14 @@
+<wps>
+# Name of the WPS _including_ extension
+Name: ipodVOL.wps
+# Name of the creator of the WPS
+Author: xameius
+# prefered font:
+Font: chicago12.fnt
+# Weather the WPS is designed to have the statusbar present or not
+Statusbar: off
+# The minimum required pixel height for the WPS
+Height: 128
+# The minimum required pixel width for the WPS
+Width: 160
+</wps>

wps/ipodVOL.wps

@@ -0,0 +1,41 @@
+%xl|y|play.bmp|0|2|
+%xl|p|pause.bmp|0|2|
+%xl|h|hold.bmp|20|2|
+%xl|b|blank.bmp|20|2|
+%xl|r|rep.bmp|120|2|
+%xl|s|reps.bmp|120|2|
+%xl|t|rep1.bmp|120|2|
+%xl|x|repb.bmp|120|2|
+%xl|A|be.bmp|136|2|
+%xl|B|bqe.bmp|136|2|
+%xl|B|bh.bmp|136|2|
+%xl|D|bqf.bmp|136|2|
+%xl|E|bf.bmp|136|2|
+%xl|F|bfp.bmp|136|2|
+%xl|Q|vol0.bmp|139|18|
+%xl|R|vol1.bmp|139|18|
+%xl|S|vol2.bmp|139|18|
+%xl|T|vol3.bmp|139|18|
+%xl|U|vol4.bmp|139|18|
+%xl|V|vol5.bmp|139|18|
+%xl|W|vol6.bmp|139|18|
+%xl|X|vol7.bmp|139|18|
+%xl|Y|vol8.bmp|139|18|
+%xl|Z|vol9.bmp|139|18|
+%x|g|bg.bmp|0|0|
+
+%al%pp of %pe
+
+%s%ac%?it<%it|%fn>
+%s%t3%ac%?ia<%ia|%d2>
+%s%t3%ac%?id<%id|%d1>
+
+%pb
+%al%pc %ar-%pr
+%?mp<|%xdy|%xdp||>
+%?pv<%xdQ|%xdR|%xdS|%xdT|%xdU|%xdV|%xdW|%xdX|%xdY|%xdZ>
+%?mh<%xdh|%xdb>
+%?bp<%xdF|%?bl<%xdA|%xdB|%xdC|%xdD|%xdE>>
+%?mm<%xdx|%xdr|%xdt|%xds>
+
+

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;
+        }
+    }
+}
+