From 7928695272b000de7142b91e05959a8fab6b1d2a Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@allegro.clab.cs.cmu.edu>
Date: Wed, 14 Nov 2012 20:33:51 -0500
Subject: major mert clean up, stuff for simple system demo

---
 corpus/support/fix-contract.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 corpus/support/fix-contract.pl

(limited to 'corpus/support/fix-contract.pl')

diff --git a/corpus/support/fix-contract.pl b/corpus/support/fix-contract.pl
new file mode 100755
index 00000000..f1e191ab
--- /dev/null
+++ b/corpus/support/fix-contract.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+use strict;
+while(<>) {
+  #s/ (pre|anti|re|pro|inter|intra|multi|e|x|neo) - / $1- /ig;
+  #s/ - (year) - (old)/ -$1-$2/ig;
+  s/ ' (s|m|ll|re|d|ve) / '$1 /ig;
+  s/n ' t / n't /ig;
+  print;
+}
+
-- 
cgit v1.2.3