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

changes to mkA2, mkV and insertObj in malay rgl added

Browse Source
This commit is contained in:
Meowyam
2023-03-01 15:06:25 +08:00
parent 2fcd5bd3ae
commit b462d7893f
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/malay/ParadigmsMay.gf
View File

@@ -136,11 +136,12 @@ oper
mkA2 : (adj : Str) -> A2 = \s -> lin A2 ((mkAdj s) ** {c2 = emptyPrep}) ;
mkA2 : A -> A2 = \a -> lin A2 (a ** {c2 = emptyPrep}) ;
mkA2 : A -> Prep -> A2 = \a,p -> lin A2 (a ** {c2 = p}) ;
mkA2 : (adj : Str) -> Prep -> A2 = \a,p -> lin A2 ((mkAdj a) ** {c2 = p}) ;
} ;
mkV = overload {
mkV : Str -> V = \v -> lin V (regVerb v Ber) ;
mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p)
mkV : Str -> Prefix -> V = \v,p -> lin V (regVerb v p) ;
} ;
prefixV : V -> V = \v -> v ** {

2
src/malay/ResMay.gf
View File

@@ -257,7 +257,7 @@ oper
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
-- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
insertObj : Str -> VerbPhrase -> VerbPhrase = \str,vp -> vp ** {
s = \\vf,pol => vp.s ! Active ! Pos ++ str ;
s = \\vf,pol => str ++ vp.s ! Active ! Pos ;
} ;
insertComp : AdjPhrase -> VerbPhrase -> VerbPhrase = \ap,vp -> vp ** {

2
src/malay/SentenceMay.gf
View File

@@ -95,7 +95,7 @@ lin
oper
advS : (comma : Str) -> Adverb -> S -> S = \comma,a,sent -> sent ** {
s = a.s ++ comma ++ sent.s
s = sent.s ++ comma ++ a.s
} ;
}