now ago_Prep is postposition in English

This commit is contained in:
kr.angelov
2013-11-13 20:58:08 +00:00
parent a18fccd338
commit 90e2f11045
6 changed files with 7 additions and 8 deletions

View File

@@ -202,6 +202,7 @@ oper
-- build $PP$s in the resource API, just requires a string.
mkPrep : Str -> Prep ; -- e.g. "in front of"
mkPost : Str -> Prep ; -- e.g. "ago"
noPrep : Prep ; -- no preposition
-- (These two functions are synonyms.)
@@ -486,7 +487,8 @@ mkInterj : Str -> Interj
mkAdA x = lin AdA (ss x) ;
mkAdN x = lin AdN (ss x) ;
mkPrep p = lin Prep (ss p) ;
mkPrep p = lin Prep {s=p; isPre=True} ;
mkPost p = lin Prep {s=p; isPre=False} ;
noPrep = mkPrep [] ;
mk5V a b c d e = lin V (mkVerb a b c d e ** {s1 = []}) ;