msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
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 860b25fff3
commit 1366c2a53e
19 changed files with 928 additions and 719 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/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 ;