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

CompBareCN in ExtraScand

Browse Source
This commit is contained in:
aarne
2011-12-02 09:49:50 +00:00
parent efd2596be3
commit 4f46a96ffb
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/abstract/Extra.gf
View File

@@ -11,6 +11,7 @@ abstract Extra = Cat ** {
GenIP : IP -> IQuant ; -- whose GenIP : IP -> IQuant ; -- whose
GenRP : Num -> CN -> RP ; -- whose car GenRP : Num -> CN -> RP ; -- whose car
ComplBareVS : VS -> S -> VP ; -- know you go ComplBareVS : VS -> S -> VP ; -- know you go
CompBareCN : CN -> Comp ; -- (est) professeur
StrandRelSlash : RP -> ClSlash -> RCl ; -- that he lives in StrandRelSlash : RP -> ClSlash -> RCl ; -- that he lives in
EmptyRelSlash : ClSlash -> RCl ; -- he lives in EmptyRelSlash : ClSlash -> RCl ; -- he lives in

6
lib/src/scandinavian/ExtraScand.gf
View File

@@ -9,6 +9,12 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ; ComplBareVS v s = insertObj (\\_ => s.s ! Sub) (predV v) ;
CompBareCN cn = {s = \\a => case a.n of {
Sg => cn.s ! Sg ! DIndef ! Nom ;
Pl => cn.s ! Pl ! DIndef ! Nom
}
} ;
StrandRelSlash rp slash = { StrandRelSlash rp slash = {
s = \\t,a,p,ag,_ => s = \\t,a,p,ag,_ =>
rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ; rp.s ! ag.g ! ag.n ! RNom ++ slash.s ! t ! a ! p ! Sub ++ slash.c2.s ;