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

adverbs

Browse Source
This commit is contained in:
aarne
2005-11-29 15:21:45 +00:00
parent 3cd1317bda
commit dd70f6dce3
24 changed files with 323 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/gf/NounEng.gf
View File

@@ -32,7 +32,9 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
ComplN2 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c} ;
ComplN3 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c ; c2 = f.c3} ;
AdjCN ap cn = {s = \\n,c => preOrPost ap.isPre ap.s (cn.s ! n ! c)} ;
AdjCN ap cn = {
s = \\n,c => preOrPost ap.isPre (ap.s ! (agrP3 n).a) (cn.s ! n ! c)
} ;
RelCN cn rs = {s = \\n,c => cn.s ! n ! c ++ rs.s ! {n = n ; p = P3}} ;
SentCN cn s = {s = \\n,c => cn.s ! n ! c ++ conjThat ++ s.s} ;