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

completing Idiom implementations

Browse Source
This commit is contained in:
aarne
2006-02-21 11:09:30 +00:00
parent 29aa2b8499
commit 0365c6f346
13 changed files with 101 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/abstract/Cat.gf
View File

@@ -1,5 +1,7 @@
--1 The category system
-- Some categories are inherited from [Common Common.html].
abstract Cat = Common ** {
cat
@@ -105,7 +107,6 @@ abstract Cat = Common ** {
--2 Words of open classes
-- These are constructed in [Lexicon Lexicon.html] and in additional lexicon modules.
V ; -- one-place verb e.g. "sleep"
V2 ; -- two-place verb e.g. "love"
V3 ; -- three-place verb e.g. "show"

2
lib/resource-1.0/abstract/Noun.gf
View File

@@ -19,7 +19,7 @@ abstract Noun = Cat ** {
-- A noun phrase already formed can be modified by a Predeterminer.
PredetNP : Predet -> NP -> NP; -- only the man
PredetNP : Predet -> NP -> NP; -- only the man
--2 Determiners

35
lib/resource-1.0/finnish/IdiomFin.gf
View File

@@ -3,5 +3,40 @@ concrete IdiomFin of Idiom = CatFin **
flags optimize=all_subs ;
lin
ExistNP np =
let
cas : Polarity -> NPForm = \p -> case p of {
Pos => NPCase Nom ; -- on olemassa luku
Neg => NPCase Part -- ei ole olemassa lukua
}
in
mkClause [] (agrP3 Sg) (insertObj
(\\_,b,_ => "olemassa" ++ np.s ! cas b) (predV olla)) ;
ImpersCl vp = mkClause [] (agrP3 Sg) vp ;
GenericCl vp = mkClause [] (agrP3 Sg) {
s = \\_ => vp.s ! VIPass ;
s2 = vp.s2 ;
ext = vp.ext ;
sc = vp.sc
} ;
ProgrVP vp =
let
inf = (vp.s ! VIInf Inf3Iness ! Simul ! Pos ! agrP3 Sg).fin ;
on = predV olla
in {
s = on.s ;
s2 = \\b,p,a => inf ++ vp.s2 ! b ! p ! a ;
ext = vp.ext ;
sc = vp.sc
} ;
oper
olla = verbOlla ** {sc = NPCase Nom} ;
}

2
lib/resource-1.0/french/CatFre.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../romance:../common:../abstract:../common:prelude
concrete CatFre of Cat = TenseX ** CatRomance with
concrete CatFre of Cat = CommonX ** CatRomance with
(ResRomance = ResFre) ;

12
lib/resource-1.0/german/IdiomGer.gf
View File

@@ -3,5 +3,17 @@ concrete IdiomGer of Idiom = CatGer **
flags optimize=all_subs ;
lin
ExistNP np =
let geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben")
in
mkClause "es" (agrP3 Sg)
(insertObj (\\_ => appPrep geben.c2 np.s)
(predV geben)) ;
ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
ProgrVP = insertAdv "eben" ; ----
}

2
lib/resource-1.0/italian/CatIta.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../romance:../abstract:../common:prelude
concrete CatIta of Cat = TenseX ** CatRomance with
concrete CatIta of Cat = CommonX ** CatRomance with
(ResRomance = ResIta) ;

22
lib/resource-1.0/italian/IdiomIta.gf
View File

@@ -1,7 +1,27 @@
concrete IdiomIta of Idiom = CatIta **
open MorphoIta, ParadigmsIta, Prelude in {
open PhonoIta, MorphoIta, ParadigmsIta, Prelude in {
flags optimize=all_subs ;
lin
ExistNP np =
mkClause [] (agrP3 np.a.g np.a.n)
(insertClit2 (elision "ci" "c'" "ci")
(insertComplement (\\_ => np.s ! Ton Nom)
(predV copula))) ;
ImpersCl vp = mkClause [] (agrP3 Masc Sg) vp ;
GenericCl vp = mkClause "si" (agrP3 Masc Sg) vp ; ---- se ci fanno cose
ProgrVP vp =
insertComplement
(\\agr =>
let
clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
in
(vp.s ! VPGerund).inf ! (aagr agr.g agr.n) ++ clpr.p1 ++ obj
)
(predV (essereV (regV "stare"))) ;
}

2
lib/resource-1.0/norwegian/CatNor.gf
View File

@@ -1,2 +1,2 @@
concrete CatNor of Cat = TenseX ** CatScand with
concrete CatNor of Cat = CommonX ** CatScand with
(ResScand = ResNor) ;

12
lib/resource-1.0/norwegian/IdiomNor.gf
View File

@@ -1,7 +1,17 @@
concrete IdiomNor of Idiom = CatNor **
open MorphoNor, ParadigmsNor, Prelude in {
open MorphoNor, ParadigmsNor, IrregNor, Prelude in {
flags optimize=all_subs ;
lin
ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finne_V))) ;
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
ProgrVP vp =
insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;
}

1
lib/resource-1.0/romance/CommonRomance.gf
View File

@@ -102,6 +102,7 @@ param
VPForm =
VPFinite TMood Anteriority
| VPImperat
| VPGerund
| VPInfinit Anteriority ;
-- Agreement of adjectives, verb phrases, and relative pronouns.

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

@@ -54,6 +54,7 @@ oper
vfin : TMood -> Agr -> Str = \tm,a -> verb.s ! VFin tm a.n a.p ;
vpart : AAgr -> Str = \a -> verb.s ! VPart a.g a.n ;
vinf = verb.s ! VInfin ;
vger = verb.s ! VGer ;
typ = verb.vtyp ;
aux = auxVerb typ ;
@@ -80,6 +81,7 @@ oper
VPFinite t Simul => vf (vfin t) (\_ -> []) ;
VPFinite t Anter => vf (habet t) vpart ;
VPImperat => vf vimp (\_ -> []) ;
VPGerund => vf (\_ -> []) (\_ -> vger) ;
VPInfinit Simul => vf (\_ -> []) (\_ -> vinf) ;
VPInfinit Anter => vf (\_ -> []) (\a -> habere ++ vpart a)
} ;
@@ -192,7 +194,7 @@ oper
inf = (vp.s ! VPInfinit Simul).inf ! (aagr agr.g agr.n) ;
neg = vp.neg ! Pos ; --- Neg not in API
clpr = pronArg agr.n agr.p vp.clAcc vp.clDat ;
obj = clpr.p2 ++ vp.comp ! agr
obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! Pos ---- pol
in
clitInf (clpr.p1 ++ vp.clit2) inf ++ obj ;

2
lib/resource-1.0/spanish/CatSpa.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:../romance:../abstract:../common:prelude
concrete CatSpa of Cat = TenseX ** CatRomance with
concrete CatSpa of Cat = CommonX ** CatRomance with
(ResRomance = ResSpa) ;

12
lib/resource-1.0/swedish/IdiomSwe.gf
View File

@@ -1,7 +1,17 @@
concrete IdiomSwe of Idiom = CatSwe **
open MorphoSwe, ParadigmsSwe, Prelude in {
open MorphoSwe, ParadigmsSwe, IrregSwe, Prelude in {
flags optimize=all_subs ;
lin
ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finna_V))) ;
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 neutrum Sg) vp ;
ProgrVP vp =
insertObj (\\a => "att" ++ infVP vp a) (predV (partV hålla_V "på")) ;
}