add N2, N3 and PN

This commit is contained in:
krasimir
2008-02-21 11:31:39 +00:00
parent 16ce34eee7
commit 8b2003cd80
4 changed files with 18 additions and 0 deletions

View File

@@ -81,6 +81,10 @@ oper
dirV3 : V -> Prep -> V3 ; -- give,_,to
dirdirV3 : V -> V3 ; -- give,_,_
mkPN : Str -> Gender -> PN ;
mkAdv x = ss x ** {lock_Adv = <>} ;
mkPrep p = ss p ** {lock_Prep = <>} ;
@@ -92,4 +96,7 @@ oper
mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; c3 = q.s ; lock_V3 = <>} ;
dirV3 v p = mkV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ;
mkPN s g = {s = s; g = g ; lock_PN = <>} ;
}