]> oss.titaniummirror.com Git - tinyos-2.x.git/blobdiff - tools/release/extractor
Merge devel code into the trunk.
[tinyos-2.x.git] / tools / release / extractor
diff --git a/tools/release/extractor b/tools/release/extractor
new file mode 100755 (executable)
index 0000000..dc9b894
--- /dev/null
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+$name = $ARGV[0];
+
+@files = split /\n/, `find .`;
+@result = @files;
+
+while (<STDIN>) {
+    if (/^!(.*)/) { # exclude
+       $pat = $1;
+       @result = grep !/$pat/, @result;
+    }
+    else { # include
+       $pat = $_;
+       chop $pat;
+       push @result, grep /$pat/, @files;
+    }
+}
+
+mkdir $name;
+open TAR, "|tar cf - -T - --no-recursion | tar xf - -C $name";
+print TAR join("\n", @result);
+close TAR;
+#print join("\n", @result);
+system("tar cf - $name");
+
+