[Pkg-ocaml-maint-commits] r5942 - /trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck

[treinen at users.alioth.debian.org]

Author: treinen
Date: Tue Aug 12 22:07:39 2008
New Revision: 5942

URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/?sc=1&rev=5942
Log:
start with option handling

Added:
    trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck   (with props)

Added: trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck
URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck?rev=5942&op=file
==============================================================================
--- trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck (added)
+++ trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck Tue Aug 12 22:07:39 2008
@@ -1,0 +1,39 @@
+#!/usr/bin/perl
+
+$debug=1;
+
+$edosoptions = "";
+while ( $arg = shift @ARGV ) {
+    if ( $arg eq '-a' || $arg eq '--architecture' ) {
+	if ($#ARGV == -1) {
+	    die "-a option needs a value";
+	} else {
+	    $architecture = shift @ARGV;
+	}
+    } elsif ( $arg =~ /^-.*/ ) {
+	$edosoptions .= " $arg";
+    } else {
+	last;
+    }
+}
+
+print "$#ARGV\n";
+
+if ($#ARGV != 0) {
+    die "Usage: edos-debbuildcheck [options] Packages Sources"
+} else {
+    $packagefile = $arg;
+    $sourcesfile = shift(@ARGV);
+}
+
+if ($debug) {
+    print "Arch: $architecture\n";
+    print "Packages: $packagefile\n";
+    print "Sources:  $sourcesfile\n";
+    print "Edos options: $edosoptions\n";
+}
+
+#arches=`grep ^Architecture $packagefile | grep -v "Architecture: all" | uniq`
+
+
+

Propchange: trunk/packages/edos-debcheck/trunk/debian/edos-builddebcheck
------------------------------------------------------------------------------
    svn:executable = *