mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
fix minor fixes for Malay RGL
This commit is contained in:
@@ -265,7 +265,6 @@ fun
|
|||||||
short_A : A ;
|
short_A : A ;
|
||||||
silver_N : N ;
|
silver_N : N ;
|
||||||
sing_V : V ;
|
sing_V : V ;
|
||||||
sing_V2 : V2 ;
|
|
||||||
sister_N : N ;
|
sister_N : N ;
|
||||||
sit_V : V ;
|
sit_V : V ;
|
||||||
skin_N : N ;
|
skin_N : N ;
|
||||||
|
|||||||
@@ -56,7 +56,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
|
|||||||
|
|
||||||
DetNP det = {
|
DetNP det = {
|
||||||
-- s = case det.hasNum of {True => \\_ => det.s ; _ => \\c => det.sp ! c} ;
|
-- s = case det.hasNum of {True => \\_ => det.s ; _ => \\c => det.sp ! c} ;
|
||||||
s = \\c => det.sp ! Neutr ! False ! c ++ "whatevr" ;
|
s = \\c => det.sp ! Neutr ! False ! c ;
|
||||||
a = agrP3 det.n
|
a = agrP3 det.n
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
|
|||||||
|
|
||||||
-- : A -> AP ;
|
-- : A -> AP ;
|
||||||
PositA a = a ** {
|
PositA a = a ** {
|
||||||
compar = a.s ;
|
compar = [] ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- : A -> NP -> AP ;
|
-- : A -> NP -> AP ;
|
||||||
|
|||||||
@@ -3,4 +3,6 @@
|
|||||||
concrete AllMay of AllMayAbs =
|
concrete AllMay of AllMayAbs =
|
||||||
LangMay,
|
LangMay,
|
||||||
ExtendMay
|
ExtendMay
|
||||||
** {} ;
|
** {
|
||||||
|
lin sing_V2 = mkV2 "nyanyi" ;
|
||||||
|
} ;
|
||||||
|
|||||||
@@ -324,7 +324,6 @@ lin sell_V3 = mkV3 (mkV "jual" Meng) emptyPrep emptyPrep ; -- TODO
|
|||||||
-- lin short_A = mkA "" ;
|
-- lin short_A = mkA "" ;
|
||||||
-- lin silver_N = mkN "" ;
|
-- lin silver_N = mkN "" ;
|
||||||
lin sing_V = mkV "nyanyi" ;
|
lin sing_V = mkV "nyanyi" ;
|
||||||
lin sing_V2 = mkV2 "nyanyi" ;
|
|
||||||
-- lin sister_N = mkN "" ;
|
-- lin sister_N = mkN "" ;
|
||||||
-- lin sit_V = mkV "" ;
|
-- lin sit_V = mkV "" ;
|
||||||
-- lin skin_N = mkN "" ;
|
-- lin skin_N = mkN "" ;
|
||||||
|
|||||||
Reference in New Issue
Block a user