GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

=Implemented SlashVP in sentence

Browse Source
This commit is contained in:
David Bamutura
2019-05-20 03:12:04 +02:00
parent b79c1bca57
commit 143a9e9686
2 changed files with 23 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/rukiga/CatCgg.gf
View File

@@ -56,7 +56,15 @@ lincat
s : Str ; --subject s : Str ; --subject
subjAgr : Res.Agreement; subjAgr : Res.Agreement;
root : Str; root : Str;
morphs : Res.VFormMini => Res.VerbMorphPos =>Str --; compl : Str -- after verb: complement, adverbs pres: Str;
perf:Str;
morphs : Res.VFormMini => Res.VerbMorphPos =>Str; --; compl : Str -- after verb: complement, adverbs
ap:Str;
isRegular:Bool;
adv:Str;
containsAdv:Bool;
adV:Str;
containsAdV:Bool
} ; } ;
Numeral = {s : Res.CardOrd=>Res.Agreement=> Str ; g : Res.Gender; n: Res.Number} ; Numeral = {s : Res.CardOrd=>Res.Agreement=> Str ; g : Res.Gender; n: Res.Number} ;
Digits = {s : Res.CardOrd => Res.Agreement=>Str ; n : Res.Number ; tail : Px.DTail} ; Digits = {s : Res.CardOrd => Res.Agreement=>Str ; n : Res.Number ; tail : Px.DTail} ;

14
src/rukiga/SentenceCgg.gf
View File

@@ -108,6 +108,20 @@ lin
-- *Note* the set is not complete and lacks e.g. verbs with more than 2 places. -- *Note* the set is not complete and lacks e.g. verbs with more than 2 places.
--SlashVP : NP -> VPSlash -> ClSlash ; -- (whom) he sees --SlashVP : NP -> VPSlash -> ClSlash ; -- (whom) he sees
SlashVP np vpslash ={
s = np.s ! Nom;
subjAgr = np.agr;
root = vpslash.s;
pres = vpslash.pres;
perf = vpslash.perf;
morphs = vpslash.morphs;
ap = vpslash.ap;
isRegular = vpslash.isRegular;
adv = vpslash.adv;
containsAdv = vpslash.containsAdv;
adV = vpslash.adV;
containsAdV = vpslash.containsAdV
};
--SlashVP np vpslash = --SlashVP np vpslash =
--AdvSlash : ClSlash -> Adv -> ClSlash ; -- (whom) he sees today --AdvSlash : ClSlash -> Adv -> ClSlash ; -- (whom) he sees today