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

documenting new API structure

Browse Source
This commit is contained in:
aarne
2006-02-21 15:35:14 +00:00
parent b26060262a
commit a0150f72a7
50 changed files with 284 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/romance/CatRomance.gf
View File

@@ -75,8 +75,8 @@ incomplete concrete CatRomance of Cat =
-- Open lexical classes, e.g. Lexicon
V, VQ, VA = Verb ;
V2, VV, V2A = Verb ** {c2 : Compl} ;
V3 = Verb ** {c2,c3 : Compl} ;
V2, VV = Verb ** {c2 : Compl} ;
V2A, V3 = Verb ** {c2,c3 : Compl} ;
VS = Verb ** {m : Polarity => Mood} ;
A = {s : Degree => AForm => Str ; isPre : Bool} ;

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

@@ -10,7 +10,8 @@ incomplete concrete VerbRomance of Verb =
ComplV3 v np1 np2 = insertObject v.c3 np2 (insertObject v.c2 np1 (predV v)) ;
ComplVV v vp = insertComplement (\\a => prepCase v.c2.c ++ infVP vp a) (predV v) ;
ComplVV v vp =
insertComplement (\\a => prepCase v.c2.c ++ infVP vp a) (predV v) ;
ComplVS v s = insertExtrapos (\\b => conjThat ++ s.s ! (v.m ! b)) (predV v) ;
ComplVQ v q = insertExtrapos (\\_ => q.s ! QIndir) (predV v) ;
@@ -18,9 +19,14 @@ incomplete concrete VerbRomance of Verb =
ComplVA v ap =
insertComplement (\\a => ap.s ! AF a.g a.n) (predV v) ;
ComplV2A v np ap =
let af = case v.c3.isDir of {
True => AF np.a.g np.a.n ; -- ... bleues
_ => AF Masc Sg -- il les peint en bleu
}
in
insertComplement
(\\a => ap.s ! AF np.a.g np.a.n)
(insertObject v.c2 np (predV v)) ;
(\\a => v.c3.s ++ prepCase v.c3.c ++ ap.s ! af)
(insertObject v.c2 np (predV v)) ;
UseComp comp = insertComplement comp.s (predV copula) ;