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

ResEng.mkS to mkClause

Browse Source
This commit is contained in:
aarne
2005-12-07 21:51:40 +00:00
parent b7cb68eb08
commit 5a9db982dc
5 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/resource-1.0/english/ResEng.gf
View File

@@ -232,12 +232,12 @@ resource ResEng = ParamEng ** open Prelude in {
s : Tense => Anteriority => Polarity => Ord => Str
} ;
mkS : Str -> Agr -> VerbForms -> (Agr => Str) -> Clause =
\subj,agr,verb,compl0 -> {
mkClause : Str -> Agr -> VP -> Clause =
\subj,agr,vp -> {
s = \\t,a,b,o =>
let
verb = verb ! t ! a ! b ! o ! agr ;
compl = compl0 ! agr
verb = vp.s ! t ! a ! b ! o ! agr ;
compl = vp.s2 ! agr
in
case o of {
ODir => subj ++ verb.fin ++ verb.inf ++ compl ;