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

more examples in synopsis

Browse Source
This commit is contained in:
aarne
2010-12-13 17:28:34 +00:00
parent 61b2192ac8
commit 6a2912bb1c
9 changed files with 622 additions and 300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
lib/src/api/Constructors.gf
View File

@@ -1172,8 +1172,12 @@ incomplete resource Constructors = open Grammar in { --%
= \s,v,p -> QuestVP s (ComplVS v p) ; --%
mkQCl : IP -> VQ -> QS -> QCl -- who wonders who sleeps
= \s,v,q -> QuestVP s (ComplVQ v q) ; --%
mkQCl : IP -> VA -> A -> QCl -- who becomes old
= \s,v,q -> QuestVP s (ComplVA v (PositA q)) ; --%
mkQCl : IP -> VA -> AP -> QCl -- who becomes old
= \s,v,q -> QuestVP s (ComplVA v q) ; --%
mkQCl : IP -> V2A -> NP -> A -> QCl -- who paints it red
= \s,v,n,q -> QuestVP s (ComplV2A v n (PositA q)) ; --%
mkQCl : IP -> V2A -> NP -> AP -> QCl -- who paints it red
= \s,v,n,q -> QuestVP s (ComplV2A v n q) ; --%
mkQCl : IP -> V2S -> NP -> S -> QCl -- who tells her that we sleep
@@ -1200,7 +1204,7 @@ incomplete resource Constructors = open Grammar in { --%
= \x,y -> QuestVP x (UseComp (CompAdv y)) ; --%
mkQCl : IP -> NP -> V2 -> QCl -- who does she love
= \ip,np,v -> QuestSlash ip (SlashVP np (SlashV2a v)) ; --%
mkQCl : IP -> ClSlash -> QCl -- who does she today --:
mkQCl : IP -> ClSlash -> QCl -- who does she love today --:
= QuestSlash ; --%
-- Adverbial 'wh' questions are built with interrogative adverbials, with the
@@ -1223,11 +1227,20 @@ incomplete resource Constructors = open Grammar in { --%
-- Existentials are a special construction.
mkQCl : IP -> QCl -- which houses are there --:
mkQCl : IP -> QCl -- which cities are there --:
= ExistIP ; --%
} ; --%
--3 IComp, interrogative complements
mkIComp = overload { --%
mkIComp : IAdv -> IComp -- where (is it) --:
= CompIAdv ; --%
mkIComp : IP -> IComp -- who (is it) --:
= CompIP ; --%
} ; --%
--3 IP, interrogative pronouns
mkIP = overload { --%
@@ -1241,9 +1254,9 @@ incomplete resource Constructors = open Grammar in { --%
= \i,n -> IdetCN i (UseN n) ; --%
mkIP : IDet -> IP -- which five --:
= IdetIP ; --%
mkIP : IQuant -> CN -> IP -- which big cities
mkIP : IQuant -> CN -> IP -- which big city
= \i,n -> IdetCN (IdetQuant i NumSg) n ; --%
mkIP : IQuant -> Num -> CN -> IP -- which five cities
mkIP : IQuant -> Num -> CN -> IP -- which five big cities
= \i,nu,n -> IdetCN (IdetQuant i nu) n ; --%
mkIP : IQuant -> N -> IP -- which city
= \i,n -> IdetCN (IdetQuant i NumSg) (UseN n) ; --%
@@ -1341,10 +1354,53 @@ incomplete resource Constructors = open Grammar in { --%
mkRCl : RP -> VP -> RCl -- that loves she --:
= RelVP ; --%
mkRCl : RP -> ClSlash -> RCl -- whom she loves today --:
= RelSlash ; --%
mkRCl : RP -> NP -> V2 -> RCl -- whom she loves
= \rp,np,v2 -> RelSlash rp (SlashVP np (SlashV2a v2)) ; --%
mkRCl : RP -> V -> RCl -- who sleeps
= \s,v -> RelVP s (UseV v); --%
mkRCl : RP -> V2 -> NP -> RCl -- who loves her
= \s,v,o -> RelVP s (ComplV2 v o); --%
mkRCl : RP -> V3 -> NP -> NP -> RCl -- who sends it to her
= \s,v,o,i -> RelVP s (ComplV3 v o i); --%
mkRCl : RP -> VV -> VP -> RCl -- who wants to sleep
= \s,v,vp -> RelVP s (ComplVV v vp) ; --%
mkRCl : RP -> VS -> S -> RCl -- who says that she sleeps
= \s,v,p -> RelVP s (ComplVS v p) ; --%
mkRCl : RP -> VQ -> QS -> RCl -- who wonders who sleeps
= \s,v,q -> RelVP s (ComplVQ v q) ; --%
mkRCl : RP -> VA -> A -> RCl -- who becomes old
= \s,v,q -> RelVP s (ComplVA v (PositA q)) ; --%
mkRCl : RP -> VA -> AP -> RCl -- who becomes old
= \s,v,q -> RelVP s (ComplVA v q) ; --%
mkRCl : RP -> V2A -> NP -> A -> RCl -- who paints it red
= \s,v,n,q -> RelVP s (ComplV2A v n (PositA q)) ; --%
mkRCl : RP -> V2A -> NP -> AP -> RCl -- who paints it red
= \s,v,n,q -> RelVP s (ComplV2A v n q) ; --%
mkRCl : RP -> V2S -> NP -> S -> RCl -- who tells her that we sleep
= \s,v,n,q -> RelVP s (ComplSlash (SlashV2S v q) n) ; --%
mkRCl : RP -> V2Q -> NP -> QS -> RCl -- who asks her who sleeps
= \s,v,n,q -> RelVP s (ComplSlash (SlashV2Q v q) n) ; --%
mkRCl : RP -> V2V -> NP -> VP -> RCl -- who forces her to sleep
= \s,v,n,q -> RelVP s (ComplSlash (SlashV2V v q) n) ; --%
mkRCl : RP -> A -> RCl -- who is old
= \x,y -> RelVP x (UseComp (CompAP (PositA y))) ; --%
mkRCl : RP -> A -> NP -> RCl -- who is older than her
= \x,y,z -> RelVP x (UseComp (CompAP (ComparA y z))) ; --%
mkRCl : RP -> A2 -> NP -> RCl -- who is married to her
= \x,y,z -> RelVP x (UseComp (CompAP (ComplA2 y z))) ; --%
mkRCl : RP -> AP -> RCl -- who is very old
= \x,y -> RelVP x (UseComp (CompAP y)) ; --%
mkRCl : RP -> NP -> RCl -- who is the man
= \x,y -> RelVP x (UseComp (CompNP y)) ; --%
mkRCl : RP -> N -> RCl -- who is a man
= \x,y -> RelVP x (UseComp (CompCN (UseN y))) ; --%
mkRCl : RP -> CN -> RCl -- who is an old man
= \x,y -> RelVP x (UseComp (CompCN y)) ; --%
mkRCl : RP -> Adv -> RCl -- who is here
= \x,y -> RelVP x (UseComp (CompAdv y)) ; --%
mkRCl : RP -> NP -> V2 -> RCl -- who does she love
= \ip,np,v -> RelSlash ip (SlashVP np (SlashV2a v)) ; --%
mkRCl : RP -> ClSlash -> RCl -- who does she love today --:
= RelSlash ; --%
-- There is a simple 'such that' construction for forming relative
-- clauses from clauses.

8
lib/src/finnish/ResFin.gf
View File

@@ -261,6 +261,14 @@ oper
qp = vp.qp
} ;
insertObjPre : (Bool => Polarity => Agr => Str) -> VP -> VP = \obj,vp -> {
s = vp.s ;
s2 = \\fin,b,a => obj ! fin ! b ! a ++ vp.s2 ! fin ! b ! a ;
ext = vp.ext ;
sc = vp.sc ;
qp = vp.qp
} ;
insertExtrapos : Str -> VP -> VP = \obj,vp -> {
s = vp.s ;
s2 = vp.s2 ;

6
lib/src/finnish/VerbFin.gf
View File

@@ -50,7 +50,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
ap.s ! False ! (NCase Sg (npform2case Sg v.c3.c))) ----agr to obj
(predV v) ** {c2 = v.c2} ;
ComplSlash vp np = insertObj (\\fin,b,_ => appCompl fin b vp.c2 np) vp ;
ComplSlash vp np = insertObjPre (\\fin,b,_ => appCompl fin b vp.c2 np) vp ;
UseComp comp =
insertObj (\\_,_ => comp.s) (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"})) ;
@@ -68,7 +68,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
) ** {c2 = vp.c2} ; ---- correct ??
SlashV2VNP v np vp =
insertObj
insertObjPre
(\\fin,b,a => appCompl True b v.c2 np ++ ---- fin -> stack overflow
infVP v.sc b a vp v.vi)
(predV v) ** {c2 = vp.c2} ;
@@ -77,7 +77,7 @@ concrete VerbFin of Verb = CatFin ** open Prelude, ResFin in {
AdVVP adv vp = insertObj (\\_,_,_ => adv.s) vp ;
ReflVP v = insertObj (\\fin,b,agr => appCompl fin b v.c2 (reflPron agr)) v ;
ReflVP v = insertObjPre (\\fin,b,agr => appCompl fin b v.c2 (reflPron agr)) v ;
PassV2 v = let vp = predV v in {
s = \\_ => vp.s ! VIPass ;