diff options
| -rwxr-xr-x | gi/pipeline/scripts/xfeats.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/gi/pipeline/scripts/xfeats.pl b/gi/pipeline/scripts/xfeats.pl new file mode 100755 index 00000000..bdb9224c --- /dev/null +++ b/gi/pipeline/scripts/xfeats.pl @@ -0,0 +1,36 @@ +#!/usr/bin/perl -w +use strict; + +die "Usage: $0 x-grammar.scfg < cat-grammar.scfg\n" unless scalar @ARGV > 0; + +my $xgrammar = shift @ARGV; +open F, "<$xgrammar" or die "Can't read $xgrammar: $!"; +print STDERR "Reading X-feats from $xgrammar...\n"; +my %dict; +while(<F>) { + chomp; + my ($lhs, $f, $e, $feats) = split / \|\|\| /; + my $xfeats; + my $cc = 0; + if ($feats =~ /(EGivenF=[^ ]+)( |$)/) { + $xfeats = "X_$1"; $cc++; + } + if ($feats =~ /(FGivenE=[^ ]+)( |$)/) { + $xfeats = "$xfeats X_$1"; $cc++; + } + die "EGivenF and FGivenE features not found: $_" unless $cc == 2; + #print "$lhs ||| $f ||| $e ||| $xfeats\n"; + $dict{"$lhs ||| $f ||| $e"} = $xfeats; +} +close F; + +print STDERR "Add features...\n"; +while(<>) { + chomp; + my ($lhs, $f, $e) = split / \|\|\| /; + $f=~ s/\[[^]]+,([12])\]/\[X,$1\]/g; + my $xfeats = $dict{"[X] ||| $f ||| $e"}; + die "Can't find x features for: $_\n" unless $xfeats; + print "$_ $xfeats\n"; +} + |