1
0
forked from GitHub/gf-core

added a version of compoundN which combines adjective and noun into a new noun

This commit is contained in:
kr.angelov
2013-09-20 12:04:37 +00:00
parent fd430a40fe
commit d2dc171508
3 changed files with 17 additions and 12 deletions

View File

@@ -181,10 +181,15 @@ oper
NFPlCount => n1.s ! NFPlCount ++ n2.s ! (NF Pl Indef) ;
NFVocative => n1.s ! NFVocative ++ n2.s ! (NF Sg Indef)
} ;
rel = \\aform => n1.rel ! aform;
g = n1.g ;
g = n1.anim
rel = \\aform => n1.rel ! aform;
g = n1.g
} ;
compoundN : A -> N -> N
= \a,n -> lin N
{s = \\nf => (a.s ! nform2aform nf n.g) ++ (n.s ! (indefNForm nf)) ;
rel = \\aform => a.s ! aform ++ n.rel ! indefAForm aform ;
g = n.g
} ;
} ;
relativeN : N -> A -> N;