msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(May) Conditional + new tests

Browse Source
This commit is contained in:
Inari Listenmaa
2020-08-20 15:36:16 +02:00
parent 00a72f907b
commit 7f032c511f
4 changed files with 23 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/malay/AdverbMay.gf
View File

@@ -20,11 +20,12 @@ lin
-- Like adverbs, adadjectives can be produced by adjectives. -- Like adverbs, adadjectives can be produced by adjectives.
-- : A -> AdA ; -- extremely -- : A -> AdA ; -- extremely
-- PositAdAAdj a = { } ; -- PositAdAAdj a = { } ;
-- Subordinate clauses can function as adverbs.
-- Subordinate clauses can function as adverbs.
-- : Subj -> S -> Adv ; -- : Subj -> S -> Adv ;
-- SubjS subj s = SubjS subj s = {s = subj.s ++ s.s} ;
-- Comparison adverbs also work as numeral adverbs. -- Comparison adverbs also work as numeral adverbs.

3
src/malay/GrammarMay.gf
View File

@@ -12,7 +12,7 @@ concrete GrammarMay of Grammar =
TextX, TextX,
StructuralMay, StructuralMay,
IdiomMay, IdiomMay,
TenseX - [AAnter, TFut] TenseX - [AAnter, TFut, TCond]
** open ParamX in { ** open ParamX in {
flags startcat = Phr ; flags startcat = Phr ;
@@ -20,5 +20,6 @@ concrete GrammarMay of Grammar =
lin lin
AAnter = {s = "sudah" ; a = ParamX.Anter} ; AAnter = {s = "sudah" ; a = ParamX.Anter} ;
TFut = {s = "akan" ; t = ParamX.Fut} ; TFut = {s = "akan" ; t = ParamX.Fut} ;
TCond = {s = "akan" ; t = ParamX.Cond} ;
} ; } ;

4
src/malay/StructuralMay.gf
View File

@@ -138,9 +138,9 @@ lin they_Pron = mkPron "mereka" P3 ;
-- lin although_Subj = -- lin although_Subj =
-- lin because_Subj = -- lin because_Subj =
-- lin if_Subj = lin if_Subj = ss "sekiranya" ;
-- lin that_Subj = -- lin that_Subj =
-- lin when_Subj = lin when_Subj = ss "kalau" ;
------ ------

14
src/malay/unittest/tenses.gftest
View File

@@ -1,3 +1,6 @@
-------------
-- Basics
Lang: UseCl (TTAnt TPres AAnter) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)) Lang: UseCl (TTAnt TPres AAnter) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V))
LangEng: the cat has walked LangEng: the cat has walked
LangMay: kucing sudah berjalan LangMay: kucing sudah berjalan
@@ -9,3 +12,14 @@ LangMay: kucing berjalan
Lang: UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)) Lang: UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V))
LangEng: the cat will walk LangEng: the cat will walk
LangMay: kucing akan berjalan LangMay: kucing akan berjalan
-------------
-- Conditions
Lang: ExtAdvS (SubjS if_Subj (UseCl (TTAnt TPast ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TCond ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
LangEng: if I walked , the cat would walk
LangMay: sekiranya saya berjalan , kucing akan berjalan
Lang: ExtAdvS (SubjS when_Subj (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
LangEng: when I walk , the cat will walk
LangMay: kalau saya berjalan , kucing akan berjalan