GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix A2 to show NP in Malay RGL

Browse Source
This commit is contained in:
Meowyam
2023-03-07 22:20:28 +08:00
parent 9ca05bae95
commit bd23dfa08d
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/malay/AdjectiveMay.gf
View File

@@ -20,10 +20,8 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
} ; } ;
-- : A2 -> NP -> AP ; -- married to her -- : A2 -> NP -> AP ; -- married to her
ComplA2 a2 np = a2 ** {
compl = np.s
} ;
ComplA2 a np = {s = a.s ++ np.s ! Bare} ;
-- : A2 -> AP ; -- married to itself -- : A2 -> AP ; -- married to itself
-- ReflA2 a2 = a2 ** { } ; -- ReflA2 a2 = a2 ** { } ;

4
src/malay/ResMay.gf
View File

@@ -206,7 +206,9 @@ oper
mkAdj : Str -> Adjective = \str -> {s = str} ; mkAdj : Str -> Adjective = \str -> {s = str} ;
AdjPhrase : Type = Adjective ; -- ** {compar : Str} ; AdjPhrase = {
s : Str
} ; -- ** {compar : Str} ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Verbs -- Verbs

2
src/malay/VerbMay.gf
View File

@@ -118,7 +118,7 @@ lin
-- SlashV2VNP v2v np vps = -- SlashV2VNP v2v np vps =
-- : Comp -> VP ; -- : Comp -> VP ;
UseComp comp = comp ; UseComp comp = comp;
-- : VP -> Adv -> VP ; -- sleep here -- : VP -> Adv -> VP ; -- sleep here
AdvVP vp adv = vp ** { AdvVP vp adv = vp ** {