Merge remote-tracking branch 'upstream/master'

1 files changed, 0 insertions, 36 deletions

diff --git a/gi/scfg/abc/Release/process_grammar.pl b/gi/scfg/abc/Release/process_grammar.pl
deleted file mode 100644
index f82a8e5a..00000000
--- a/gi/scfg/abc/Release/process_grammar.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!perl
-
-use warnings;
-use strict;
-
-my $grammar_file = $ARGV[0];
-
-my %nt_count; #maps nt--> count rules whose lhs is nt 
-
-open(G, "<$grammar_file") or die "Can't open file $grammar_file";
-
-while (<G>){
-
-    chomp();
-
-    s/\|\|\|.*//g;
-    s/\s//g;
-
-    $nt_count{$_}++;
-}
-
-
-close (G);
-
-open(G, "<$grammar_file") or die "Can't open file $grammar_file";
-
-while (<G>){
-
-    chomp();
-
-    (my $nt = $_) =~ s/\|\|\|.*//g;
-    $nt =~ s/\s//g;
-
-    s/(.+\|\|\|.+\|\|\|.+\|\|\|).+/$1/g;
-    print $_ . " MinusLogP=" .(log($nt_count{$nt})) ."\n";
-}