msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

probabilistic

Browse Source
This commit is contained in:
aarne
2005-10-30 22:44:00 +00:00
parent 382c8f2436
commit 260a235875
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
resource/english/SyntaxEng.gf
View File

@@ -182,8 +182,8 @@ oper
npGenDet : Number -> Numeral -> NounPhrase -> CommNounPhrase -> NounPhrase = npGenDet : Number -> Numeral -> NounPhrase -> CommNounPhrase -> NounPhrase =
\n,two,john,car -> \n,two,john,car ->
{s = \\c => variants { {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 a = toAgr n P3 car.g
} ; } ;

2
resource/scandinavian/VerbphraseScand.gf
View File

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