GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-28 22:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Romancs reflexives and passives

Browse Source
This commit is contained in:
aarne
2006-01-24 09:59:20 +00:00
parent a9191c404f
commit c8a52e297c
5 changed files with 51 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/resource-1.0/romance/VerbRomance.gf
View File

@@ -1,5 +1,5 @@
incomplete concrete VerbRomance of Verb =
CatRomance ** open CommonRomance, ResRomance in {
CatRomance ** open Prelude, CommonRomance, ResRomance in {
flags optimize=all_subs ;
@@ -31,14 +31,13 @@ incomplete concrete VerbRomance of Verb =
AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdv adv.s vp ;
{-
ReflV2 v = insertObj (\\a => v.c2 ++ reflPron a) (predV v) ;
ReflV2 v = case v.c2.isDir of {
True => predV {s = v.s ; vtyp = vRefl} ;
False => insertComplement
(\\a => v.c2.s ++ reflPron ! a.n ! a.p ! v.c2.c) (predV v)
} ;
PassV2 v =
insertObj
(\\a => v.s ! VI (VPtPret (agrAdj a.gn DIndef) Nom))
(predV verbBecome) ;
-}
PassV2 v = insertComplement (\\a => v.s ! VPart a.g a.n) (predV auxPassive) ;
UseVS, UseVQ = \vv -> {s = vv.s ; c2 = complAcc ; vtyp = vv.vtyp} ;