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

started a directory of grammars testing testgf3 features

Browse Source
This commit is contained in:
aarne
2008-02-22 15:17:50 +00:00
parent 6621290502
commit 621d3fdfd1
8 changed files with 28 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource/english/ResEng.gf
View File

@@ -316,8 +316,10 @@ resource ResEng = ParamX ** open Prelude in {
agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
if_then_Str isAux [] "to" ++
case isAux of {True => [] ; False => "to"} ++
vp.inf ++ vp.s2 ! a ;
--- if_then_Str isAux [] "to" ++
--- vp.inf ++ vp.s2 ! a ;
agrVerb : Str -> Str -> Agr -> Str = \has,have,agr ->
case agr of {