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

some edits of Extend

Browse Source
This commit is contained in:
Aarne Ranta
2017-08-29 11:54:41 +02:00
parent 336cbf90ab
commit 945732f695
3 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/common/ExtendFunctor.gf
View File

@@ -53,10 +53,13 @@ lin
NominalizeVPSlashNP = variants {} ; -- VPSlash -> NP -> NP ;
ExistsNP = variants {} ; -- NP -> Cl ; -- there exists a number / there exist numbers
PurposeVP = variants {} ; -- VP -> Adv ; -- to become happy
ComplBareVS = variants {} ; -- VS -> S -> VP ; -- say she runs
SlashBareV2S = variants {} ; -- V2S -> S -> VPSlash ; -- answer (to him) it is good
FrontExtPredVP = variants {} ; -- NP -> VP -> Cl ; -- I am here, she said
InvFrontExtPredVP = variants {} ; -- NP -> VP -> Cl ; -- I am here, said she
ComplBareVS = ComplVS ; -- VS -> S -> VP ; -- say she runs ; DEFAULT say that she runs
SlashBareV2S = SlashV2S ; -- V2S -> S -> VPSlash ; -- answer (to him) it is good ; DEFAULT answer that it is good
ComplDirectVS vs utt = AdvVP (UseV <lin V vs : V>) (lin Adv {s = ":" ++ quoted utt.s}) ; -- DEFAULT complement added as Adv in quotes
ComplDirectVQ vq utt = AdvVP (UseV <lin V vq : V>) (lin Adv {s = ":" ++ quoted utt.s}) ; -- DEFAULT complement added as Adv in quotes
FrontComplDirectVS = variants {} ; -- NP -> VS -> Utt -> Cl ; -- "I am here", she said
FrontComplDirectVQ = variants {} ; -- NP -> VQ -> Utt -> Cl ; -- "where", she asked
PredAPVP ap vp = ImpersCl (UseComp (CompAP (SentAP ap (EmbedVP vp)))) ; -- DEFAULT it is (good to walk)
AdjAsCN = variants {} ; -- AP -> CN ; -- a green one ; en grön (Swe)
AdjAsNP = variants {} ; -- AP -> NP ; -- green (is good)
ReflRNP = variants {} ; -- VPSlash -> RNP -> VP ; -- love my family and myself
@@ -103,4 +106,7 @@ lin
UttAccIP = UttIP ; -- whom (accusative) ; DEFAULT who
UttDatIP ip = UttAccIP (lin IP ip) ; -- whom (dative) ; DEFAULT who
oper
quoted : Str -> Str = \s -> "\"" ++ s ++ "\"" ; ---- TODO bind ; move to Prelude?
}