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

add mkV2V is str and v prep prep

Browse Source
This commit is contained in:
Meowyam
2023-02-23 15:27:56 +08:00
parent fd51156369
commit 5ed93e6a03
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/malay/ParadigmsMay.gf
View File

@@ -57,10 +57,15 @@ oper
mkVS : overload { mkVS : overload {
mkVS : V -> VS ; mkVS : V -> VS ;
} ; } ;
--
mkVA : overload { mkVA : overload {
mkVA : V -> VA ; mkVA : V -> VA ;
} ; } ;
mkV2V : overload {
mkV2V : Str -> V2V ;
mkV2V : V -> Prep -> Prep -> V2V ;
} ;
-- mkVQ : Str -> VQ -- mkVQ : Str -> VQ
-- = \s -> lin VQ (regV s) ; -- = \s -> lin VQ (regV s) ;
@@ -170,6 +175,15 @@ oper
mkVA = overload { mkVA = overload {
mkVA : V -> VA = \v -> lin VA (v) mkVA : V -> VA = \v -> lin VA (v)
} ; } ;
mkV2V = overload {
mkV2V : Str -> V2V = \v -> lin V2V (mkVerb2 (mkVerb v Meng) dirPrep) ;
mkV2V : V -> Prep -> Prep -> V2V = \v,p1,p2 -> lin V2V (mkVerb3 v p1 p2)
} ;
-- lin like_V2 = let like' : V2 = mkV2 "suka" in like' ** {
-- s = \\_ => "suka" ;
-- passive = "disukai" ;
-- } ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
} }