probabilistic

This commit is contained in:
aarne
2005-10-30 22:44:00 +00:00
parent d08695f71f
commit e64822f921
7 changed files with 306 additions and 37 deletions

View File

@@ -182,8 +182,8 @@ oper
npGenDet : Number -> Numeral -> NounPhrase -> CommNounPhrase -> NounPhrase =
\n,two,john,car ->
{s = \\c => variants {
artDef ++ two.s ! Nom ++ car.s ! n ! Nom ++ "of" ++ john.s ! GenSP ;
john.s ! GenP ++ two.s ! Nom ++ car.s ! n ! toCase c
john.s ! GenP ++ two.s ! Nom ++ car.s ! n ! toCase c ;
artDef ++ two.s ! Nom ++ car.s ! n ! Nom ++ "of" ++ john.s ! GenSP
} ;
a = toAgr n P3 car.g
} ;

View File

@@ -22,6 +22,8 @@
incomplete concrete VerbphraseScand of Verbphrase = CategoriesScand **
open Prelude, SyntaxScand in {
flags optimize=all_subs ;
lin
UseV = predVerb ;
UsePassV = passVerb ;