Search 'GA' first and then throw out if the argument does not satisfy

co-occurence restriction.
mamorlis · Apr 20, 2007 · 58438df · 58438df
1 parent 6acb6ff
commit 58438df
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/mugicha/bin/classify_hier.pl b/mugicha/bin/classify_hier.pl
@@ -11,6 +11,7 @@
 
 use MyCabocha;
 use NCVTool;
+my $ncvtool = new NCVTool;
 
 use English;
 local $LIST_SEPARATOR = '';
@@ -267,14 +268,17 @@ sub tournament {
 
 sub set_event_arg {
     my ($event, $vframe, $arg) = @_;
+    return if ($ncvtool->get_score($arg->get_surface.$vframe) < 0);
     my $case = (split q[:], $vframe)[1];
-    my $event_str;
     my $arg_id = $arg->get_text_id.':'.$arg->get_chunk_id.':'.$arg->get_id;
     my %marker = ( 'が' => 'GA', 'を' => 'WO', 'に' => 'NI' );
+    my $event_str = $event->get_relation;
     if ($event->get_type eq 'event') {
-        $event_str = 'TYPE:event EVENT:'.$marker{$case}.'='.$arg_id;
-    } else {
-        $event_str = $event->get_relation.','.$marker{$case}.'='.$arg_id;
+        if ($event->get_relation =~ m/EVENT:/gmx) {
+            $event_str = $event->get_relation.','.$marker{$case}.'='.$arg_id;
+        } else {
+            $event_str = 'TYPE:event EVENT:'.$marker{$case}.'='.$arg_id;
+        }
     }
     $event->set_relation($event_str);
 }

diff --git a/mugicha/bin/predict_case.pl b/mugicha/bin/predict_case.pl
@@ -10,7 +10,7 @@
 
 sub predict_case {
     my $morph = shift; # Morph
-    my @type;
+    my @type = ('GA');
     if ($morph->get_type eq 'event') {
         my %case = ( '¤¬' => 'GA', '¤ò'=>'WO', '¤Ë'=>'NI' );
         for my $case (keys %case) {