Permalink
Browse files

Emit requirements.

  • Loading branch information...
1 parent bcbf4f8 commit 992e80adc25c46571f00fc83bfcaa20b2e414551 Jesse Alama committed Sep 30, 2012
Showing with 5 additions and 4 deletions.
  1. +5 −4 perl/bin/mptp.pl
View
@@ -50,11 +50,11 @@ sub to_mptp {
return $already_resolved;
}
+ my $answer = undef;
+
if ($item =~ / \A ([a-z_0-9]+) [:] ([a-z]+) [:] ([0-9]+) ([[] ([a-z]+) []])? \z /) {
(my $article, my $kind, my $number, my $property) = ($1, $2, $3, $5);
- my $answer = undef;
-
if (defined $property) {
if ($kind =~ /\A ([lmvrk])constructor \z/) {
my $constructor_kind = $1;
@@ -100,7 +100,8 @@ sub to_mptp {
$mptp_for_item{$item} = $answer;
return $answer;
-
+ } elsif ($item =~ /rq[a-zA-Z]/) {
+ $answer = $item;
} else {
die 'Error: cannot make sense of the item ', $item;
}
@@ -152,7 +153,7 @@ sub handled {
}
}
} elsif ($item =~ /\A rq [a-zA-Z]+ \z /) {
- $answer = 0;
+ $answer = 1;
} else {
die 'Error: cannot make sense of the item ', $item;
}

0 comments on commit 992e80a

Please sign in to comment.