GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 03:58:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

Maltese RG: big improvements with clitics in VPs

Browse Source
This commit is contained in:
john
2013-05-28 14:45:53 +00:00
parent f42061837b
commit 9b36796a65
16 changed files with 761 additions and 305 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/maltese/AdverbMlt.gf
+44 -18
View File
@@ -8,40 +8,66 @@ concrete AdverbMlt of Adverb = CatMlt ** open ResMlt, Prelude in {
lin
-- A -> Adv ; -- warmly
-- A -> Adv
-- warmly
PositAdvAdj a = {
s = "b'mod" ++ a.s ! APosit (GSg Masc)
s = "b'mod" ++ a.s ! APosit (GSg Masc) ;
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
-- CAdv -> A -> NP -> Adv ; -- more warmly than John
-- CAdv -> A -> NP -> Adv
-- more warmly than John
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s ! APosit (GSg Masc) ++ cadv.p ++ np.s ! npNom
s = cadv.s ++ a.s ! APosit (GSg Masc) ++ cadv.p ++ np.s ! npNom ;
joinsVerb = False ;
a = np.a ; -- ignored when joinsVerb = False
} ;
-- CAdv -> A -> S -> Adv ; -- more warmly than he runs
-- CAdv -> A -> S -> Adv
-- more warmly than he runs
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s ! APosit (GSg Masc) ++ cadv.p ++ s.s
s = cadv.s ++ a.s ! APosit (GSg Masc) ++ cadv.p ++ s.s ;
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
-- Prep -> NP -> Adv ; -- in the house
-- Prep -> NP -> Adv
-- in the house
PrepNP prep np = {
s = prepNP prep np
s = prepNP prep np ;
joinsVerb = prep.joinsVerb ;
a = np.a ;
};
-- AdA -> Adv -> Adv ; -- very quickly
AdAdv = cc2 ;
-- A -> AdA ; -- extremely
PositAdAAdj a = {
s = a.s ! APosit (GSg Masc) ++ "ħafna" ;
-- AdA -> Adv -> Adv
-- very quickly
AdAdv a b = cc2 a b ** {
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
-- Subj -> S -> Adv ; -- when she sleeps
SubjS = cc2 ;
-- A -> AdA
-- extremely
PositAdAAdj a = {
s = a.s ! APosit (GSg Masc) ++ "ħafna" ;
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
-- CAdv -> AdN ; -- less (than five)
-- Subj -> S -> Adv
-- when she sleeps
SubjS s r = cc2 s r ** {
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
-- CAdv -> AdN
-- less (than five)
AdnCAdv cadv = {
s = cadv.s ++ cadv.p
s = cadv.s ++ cadv.p ;
joinsVerb = False ;
a = agrP3 Sg Masc ; -- ignored when joinsVerb = False
} ;
}