knifeblock: wip

[reprap-play.git] / knifeblock-knives-filter

diff --git a/knifeblock-knives-filter b/knifeblock-knives-filter
new file mode 100755 (executable)
index 0000000..0a353b2
--- /dev/null
+++ b/knifeblock-knives-filter
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -wn
+
+use strict;
+
+our $want;
+
+BEGIN {
+      $want = shift @ARGV;
+      die unless $want =~ m/^\d+$/;
+}
+
+our $drop;
+
+if (m/^\S/) {
+    $drop = 
+       m/^2 / ||
+       m/^3 \d+ \d+ \d+ (?!$want )\d+ /;
+}
+
+next if $drop;
+
+print or die $!;