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

---
 rule-shapes | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 rule-shapes

(limited to 'rule-shapes')

diff --git a/rule-shapes b/rule-shapes
new file mode 100755
index 0000000..589a670
--- /dev/null
+++ b/rule-shapes
@@ -0,0 +1,29 @@
+#!/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
+  f, e = line.split(/\t/)
+  f.strip!; e.strip!
+  puts shape(f).join('_')+"-"+shape(e).join('_')
+end
+
-- 
cgit v1.2.3