From 2b1d7f881c19c4d4b5afae194e02d3300c7675d0 Mon Sep 17 00:00:00 2001
From: Patrick Simianer <p@simianer.de>
Date: Tue, 5 Jul 2016 11:01:46 +0200
Subject: mv

---
 filter-by-rule-shape | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 filter-by-rule-shape

(limited to 'filter-by-rule-shape')

diff --git a/filter-by-rule-shape b/filter-by-rule-shape
new file mode 100755
index 0000000..695edec
--- /dev/null
+++ b/filter-by-rule-shape
@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+
+STDIN.set_encoding 'utf-8'
+STDOUT.set_encoding 'utf-8'
+
+def shape s
+  res  = []
+  in_t = false
+  s.split.each { |i|
+    if i.match /\A\[X,\d\]\z/
+      if in_t
+        in_t = false
+      end
+      res << "NT"
+      next
+    else
+      res << "T" if not in_t
+      in_t = true
+    end
+  }
+  return res
+end
+
+while line = STDIN.gets
+  line.strip!
+  parts = line.split ' ||| '
+  f_shape = shape(parts[1])
+  e_shape = shape(parts[2])
+  next if f_shape[0]=='NT'||f_shape[-1]=='NT'||e_shape[0]=='NT'||e_shape[-1]=='NT'
+  puts line
+end
+
-- 
cgit v1.2.3