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

Maltese RG: first proper release

Browse Source 
Of course some bugs remain and more testing is needed,
but all functions are complete and Maltese now builds as part
of the normal GF install.
This commit is contained in:
john
2013-06-10 21:37:10 +00:00
parent 7ea9ed83cb
commit 84beb227da
18 changed files with 925 additions and 716 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/maltese/VerbMlt.gf
+5 -3
View File
@@ -66,7 +66,7 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- Get enclitic version of c2
<True,True> => {
s = vp.s ;
v = vp.v ;
s2 = \\agr => vp.s2 ! agr ++ vp.c2.enclitic ! np.a ;
dir = NullAgr ;
ind = NullAgr ;
@@ -136,7 +136,10 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- V2 -> VP
-- be loved
PassV2 v2 = insertObj (\\agr => (v2.s ! VPassivePart (toGenNum agr)).s1 ++ v2.c2.s ! Definite) CopulaVP ;
PassV2 v2 = case v2.hasPastPart of {
True => insertObj (\\agr => (v2.s ! VPastPart (toGenNum agr)).s1 ++ v2.c2.s ! Definite) CopulaVP ;
False => insertObj (\\agr => (v2.s ! VPerf (toVAgr agr)).s1 ++ v2.c2.s ! Definite) CopulaVP
} ;
-- AP -> Comp
-- (be) small
@@ -172,7 +175,6 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- VP -> Prep -> VPSlash
-- live in (it)
VPSlashPrep vp p = vp ** {
-- c2 = lin Compl (p ** {isPresent = True}) ;
c2 = {
s = p.s ;
enclitic = p.enclitic ;