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

adjectives

Browse Source
This commit is contained in:
aarne
2005-11-28 20:53:54 +00:00
parent 2c0fdf6c3c
commit d5b8fc79fb
14 changed files with 238 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,4 +1,4 @@
concrete NounEng of Noun = CatEng ** open ResEng in {
concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
flags optimize=all_subs ;
@@ -18,16 +18,25 @@ concrete NounEng of Noun = CatEng ** open ResEng in {
NoNum, NoPredet = {s = []} ;
NumInt n = n ;
CardNumeral numeral = {s = numeral.s ! NCard} ;
OrdNumeral numeral = {s = numeral.s ! NOrd} ;
NumSuperl a = {s = a.s ! AAdj Superl} ;
DefSg = {s = "the" ; n = Sg} ;
DefPl = {s = "the" ; n = Pl} ;
IndefSg = {s = "a" ; n = Sg} ;
IndefPl = {s = [] ; n = Pl} ;
UseN n = n ;
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)} ;
SentCN cn s = {s = \\n,c => cn.s ! n ! c ++ conjThat ++ s.s} ;
QuestCN cn qs = {s = \\n,c => cn.s ! n ! c ++ qs.s ! QIndir} ;
UseN n = n ;
}