From a32b73e9c3461e3917963871c5638234635904da Mon Sep 17 00:00:00 2001
From: Jonas Häggqvist <rasher@rasher.dk>
Date: Fri, 6 Mar 2009 18:11:51 +0000
Subject: Smarten up the w32sims.pl script and rename it to sims.pl, since it
 does all sorts of sims now.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@20215 a1c6a512-1295-4272-9138-f99709370657
---
 tools/release/sims.pl | 183 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 183 insertions(+)
 create mode 100755 tools/release/sims.pl

(limited to 'tools')

diff --git a/tools/release/sims.pl b/tools/release/sims.pl
new file mode 100755
index 0000000000..932611794b
--- /dev/null
+++ b/tools/release/sims.pl
@@ -0,0 +1,183 @@
+#!/usr/bin/perl
+# This is basically a copy of tools/release/bins.pl, with small changes.
+use File::Basename;
+use File::Path;
+use Cwd;
+
+my $verbose, $update, $doonly, $version;
+my @doonly;
+
+my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
+$year+=1900;
+$mon+=1;
+$verbose=0;
+
+my $filename = "rockbox-sim-<target>-<version>";
+
+while (scalar @ARGV > 0) {
+    if ($ARGV[0] eq "-h") {
+        print $ARGV[0]."\n";
+        print <<MOO
+Usage: w32sims [-v] [-u] [-r VERSION] [-f filename] [buildonly]
+       -v Verbose output
+       -u Run svn up before building
+       -r Use the specified version string for filenames (defaults to SVN
+          revision)
+       -f Filename format string (without extension). This can include a
+          filepath (relative or absolute) May include the following special
+          strings:
+            <version> - Replaced by the revision (or version name if -r is
+                        used)
+            <target>  - Target shortname
+            <YYYY>    - Year (4 digits)
+            <MM>      - Month (2 digits)
+            <DD>      - Day of month (2 digits - 0-padded)
+            <HH>      - Hour of day (2 digits, 0-padded, 00-23)
+            <mm>      - Minute (2 digits, 0-padded)
+          The default filename is rockbox-sim-<target>-<version>
+MOO
+;
+        exit 1;
+    }
+    elsif ($ARGV[0] eq "-v") {
+        $verbose =1;
+    }
+    elsif ($ARGV[0] eq "-u") {
+        $update =1;
+    }
+    elsif ($ARGV[0] eq "-r") {
+        $version =$ARGV[1];
+        shift @ARGV;
+    }
+    elsif ($ARGV[0] eq "-f") {
+        $filename = $ARGV[1];
+        shift @ARGV;
+    }
+    else {
+        push(@doonly,$ARGV[0]);
+        # This will only be printed if the -v flag comes earler
+        print "only build ${ARGV[0]}\n" if($verbose);
+    }
+    shift @ARGV;
+}
+
+if($update) {
+    # svn update!
+    system("svn -q up");
+}
+
+$test = `sdl-config --libs`;
+if ($test eq "") {
+    printf("You don't appear to have sdl-config\n");
+    die();
+}
+
+$rev = `tools/version.sh .`;
+chomp $rev;
+print "rev $rev\n" if($verbose);
+
+if (!defined($version)) {
+    $version = $rev;
+}
+
+# made once for all targets
+sub runone {
+    my ($dir, $confnum, $extra)=@_;
+    my $a;
+
+    if(!grep(/$dir/, @doonly)) {
+        return;
+    }
+
+    mkdir "build-$dir";
+    chdir "build-$dir";
+    print "Build in build-$dir\n" if($verbose);
+
+    # build the target
+    $a = buildit($dir, $confnum, $extra);
+
+    chdir "..";
+
+    my $newo=$filename;
+
+    $newo =~ s/<version>/$version/g;
+    $newo =~ s/<target>/$dir/g;
+    $newo =~ s/<YYYY>/$year/g;
+    $newo =~ s/<MM>/$mon/g;
+    $newo =~ s/<DD>/$mday/g;
+    $newo =~ s/<HH>/$hour/g;
+    $newo =~ s/<mm>/$min/g;
+
+
+    print "Zip up the sim and associated files\n" if ($verbose);
+    print("Output: $newo\n");
+    print("Dir: " . dirname($newo) . "\n");
+    mkpath(dirname($newo));
+    system("mv build-$dir $newo");
+    if (-f "$newo/rockboxui.exe") {
+        print "Find and copy SDL.dll\n" if ($verbose);
+        `cp \`dirname \\\`which sdl-config\\\`\`/SDL.dll ./$newo/`;
+    }
+    my $toplevel = getcwd();
+    chdir(dirname($newo));
+    print(getcwd()."\n");
+    $cmd = "zip -9 -r -q ".basename($newo)." ".basename($newo)."/{rockboxui*,UI256.bmp,SDL.dll,simdisk}";
+    print("$cmd\n");
+    `$cmd`;
+    chdir($toplevel);
+
+    print "remove all contents in $newo\n" if($verbose);
+#    system("rm -rf $newo");
+
+    return $a;
+};
+
+sub buildit {
+    my ($target, $confnum, $extra)=@_;
+
+    `rm -rf * >/dev/null 2>&1`;
+
+    my $c = sprintf('printf "%s\n%ss\n" | ../tools/configure',
+                    $confnum, $extra);
+
+    print "C: $c\n" if($verbose);
+    `$c`;
+
+    print "Run 'make'\n" if($verbose);
+    `make 2>/dev/null`;
+
+    print "Run 'make install'\n" if($verbose);
+    `make install 2>/dev/null`;
+}
+
+runone("player", "player", '\n');
+runone("recorder", "recorder", '\n');
+runone("recorder8mb", "recorder", '8\n');
+runone("fmrecorder", "fmrecorder", '\n');
+runone("fmrecorder8mb", "fmrecorder", '8\n');
+runone("recorderv2", "recorderv2", '\n');
+runone("ondiosp", "ondiosp", '\n');
+runone("ondiofm", "ondiofm", '\n');
+runone("h100", "h100");
+runone("h120", "h120");
+runone("h300", "h300");
+runone("ipodcolor", "ipodcolor");
+runone("ipodnano", "ipodnano");
+runone("ipod4gray", "ipod4g");
+runone("ipodvideo", "ipodvideo", '32\n');
+runone("ipodvideo64mb", "ipodvideo", '64\n');
+runone("ipod3g", "ipod3g");
+runone("ipod1g2g", "ipod1g2g");
+runone("iaudiox5", "x5");
+runone("iaudiom5", "m5");
+runone("iaudiom3", "m3");
+runone("ipodmini1g", "ipodmini");
+runone("ipodmini2g", "ipodmini2g");
+runone("h10", "h10");
+runone("h10_5gb", "h10_5gb");
+runone("gigabeatf", "gigabeatf");
+runone("sansae200", "e200");
+runone("sansac200", "c200");
+#runone("mrobe500", "mrobe500");
+runone("mrobe100", "mrobe100");
+runone("cowond2", "cowond2");
-- 
cgit v1.2.3