GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

Tense to Common ; Idiom ; Text

Browse Source
This commit is contained in:
aarne
2006-02-20 22:11:57 +00:00
parent b6957f4e41
commit e0dc7034ac
39 changed files with 255 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/romance/CatRomance.gf
View File

@@ -1,5 +1,5 @@
incomplete concrete CatRomance of Cat =
TenseX ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
CommonX ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
flags optimize=all_subs ;
@@ -7,7 +7,7 @@ incomplete concrete CatRomance of Cat =
-- Phrase
Text, Phr, Utt, Voc = {s : Str} ;
Utt, Voc = {s : Str} ;
-- Tensed/Untensed

8
lib/resource-1.0/romance/DiffRomance.gf
View File

@@ -47,12 +47,14 @@ interface DiffRomance = open CommonRomance, Prelude in {
-- To render pronominal arguments as clitics and/or ordinary complements.
pronArg : Number -> Person -> CAgr -> CAgr -> Str * Str ;
oper pronArg : Number -> Person -> CAgr -> CAgr -> Str * Str ;
-- To render imperatives (with their clitics etc).
oper mkImperative : CommonRomance.VP -> {s : Polarity => AAgr => Str} ;
--2 Constants that must derivatively depend on language
---- nominative : Case ;
---- accusative : Case ;
dative : Case ;
genitive : Case ;

26
lib/resource-1.0/romance/ResRomance.gf
View File

@@ -61,6 +61,11 @@ oper
habet : TMood -> Agr -> Str = \tm,a -> aux ! VFin tm a.n a.p ;
habere : Str = aux ! VInfin ;
vimp : Agr -> Str = \a -> verb.s ! VImper (case a.n of {
Sg => SgP2 ;
Pl => PlP2
}) ;
vf : (Agr -> Str) -> (AAgr -> Str) -> {
fin : Agr => Str ;
inf : AAgr => Str
@@ -72,9 +77,9 @@ oper
in {
s = table {
VPFinite t Simul => vf (vfin t) (\_ -> []) ;
VPFinite t Anter => vf (habet t) vpart ;
VPImperat => vf (\_ -> verb.s ! VImper SgP2) (\_ -> []) ; ----
VPFinite t Simul => vf (vfin t) (\_ -> []) ;
VPFinite t Anter => vf (habet t) vpart ;
VPImperat => vf vimp (\_ -> []) ;
VPInfinit Simul => vf (\_ -> []) (\_ -> vinf) ;
VPInfinit Anter => vf (\_ -> []) (\a -> habere ++ vpart a)
} ;
@@ -139,6 +144,17 @@ oper
ext = vp.ext ;
} ;
insertClit2 : Str -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;
clAcc = vp.clAcc ;
clDat = vp.clDat ;
clit2 = vp.clit2 ++ co ; ---- y en
neg = vp.neg ;
comp = vp.comp ;
ext = vp.ext ;
} ;
insertExtrapos : (Polarity => Str) -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;
@@ -168,7 +184,7 @@ oper
clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
compl = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! b
in
subj ++ neg.p1 ++ clpr.p1 ++ verb ++ neg.p2 ++ inf ++ compl
subj ++ neg.p1 ++ clpr.p1 ++ vp.clit2 ++ verb ++ neg.p2 ++ inf ++ compl
} ;
infVP : VP -> Agr -> Str = \vp,agr ->
@@ -178,7 +194,7 @@ oper
clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
obj = clpr.p2 ++ vp.comp ! agr
in
clitInf clpr.p1 inf ++ obj ;
clitInf (clpr.p1 ++ vp.clit2) inf ++ obj ;
}

9
lib/resource-1.0/romance/SentenceRomance.gf
View File

@@ -8,14 +8,7 @@ incomplete concrete SentenceRomance of Sentence =
PredSCVP sc vp = mkClause sc.s (agrP3 Masc Sg) vp ;
ImpVP vp = {
s = \\pol,aag =>
let
agr = aag ** {p = P2} ;
verb = (vp.s ! VPImperat).fin ! agr
in
verb ++ vp.comp ! agr ++ vp.ext ! pol ---- neg,clit
} ;
ImpVP = mkImperative ;
SlashV2 np v2 =
mkClause