GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 12:08:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

Latvian RG: approaching RGL API

Browse Source
This commit is contained in:
normundsg
2011-12-19 06:03:21 +00:00
parent 592ce4c909
commit e76587d06e
39 changed files with 1324 additions and 90521 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/latvian/IdiomLav.gf
+65 -78
View File
@@ -1,88 +1,75 @@
concrete IdiomLav of Idiom = CatLav ** open Prelude, ResLav, VerbLav, ParadigmsVerbsLav in {
flags optimize=all_subs ;
--# -path=.:../abstract:../common:../prelude
lin
ImpersCl vp = let
a = AgP3 Sg Masc
in{
concrete IdiomLav of Idiom = CatLav ** open
Prelude,
ResLav,
VerbLav,
ParadigmsVerbsLav
in {
flags
coding = utf8 ;
optimize = all_subs ;
lin
ImpersCl vp =
let a = AgP3 Sg Masc
in {
s = \\mood,pol =>
buildVerb vp.v mood pol a ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers;
} ;
GenericCl vp = let
a = AgP3 Sg Masc
in{
buildVerb vp.v mood pol a ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers
} ;
GenericCl vp =
let a = AgP3 Sg Masc
in {
s = \\mood,pol =>
buildVerb vp.v mood pol a ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers;
} ;
ExistNP np = let
v = lin V mkVerb_toBe;
a = np.a
buildVerb vp.v mood pol a ++
vp.s2 ! a
} ;
ExistNP np =
let
v = lin V mkVerb_toBe ;
a = np.a
in {
s = \\mood,pol =>
buildVerb v mood pol a ++
np.s ! Nom
} ;
ExistIP ip =
let
v = lin V mkVerb_toBe ;
a = AgP3 ip.n Masc
in {
s = \\mood,pol =>
buildVerb v mood pol a ++ -- Verb
np.s ! Nom
} ;
ExistIP ip = let
v = lin V mkVerb_toBe;
a = AgP3 ip.n Masc
in {
s = \\mood,pol =>
ip.s ! Nom ++
buildVerb v mood pol a -- Verb
} ;
ProgrVP v = v; -- FIXME - needs restriction so that only VerbMood Indicative _ _ Present is allowed; but can't do that on VP level..
ImpPl1 vp = let
a = AgP1 Pl
in {
s =
vp.v.s ! Pos ! (Indicative P1 Pl Pres) ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers;
ip.s ! Nom ++
buildVerb v mood pol a
} ;
-- FIXME: needs restriction so that only VerbMood Indicative _ _ Present is allowed;
-- can't do that on VP level...
ProgrVP v = v ;
ImpPl1 vp =
let a = AgP1 Pl
in {
s =
vp.v.s ! Pos ! (Indicative P1 Pl Pres) ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers
} | {
s =
vp.v.s ! Pos ! (Indicative P1 Pl Fut) ++ -- Verb
vp.s2 ! a -- Object(s), complements, adverbial modifiers;
};
ImpP3 np vp = {
s = "lai" ++ np.s ! Nom ++ buildVerb vp.v (Ind Simul Pres) Pos np.a ++ vp.s2 ! np.a;
};
--FIXME placeholder
CleftNP np rs = { s = \\_,_ => NON_EXISTENT } ;
CleftAdv ad s = { s = \\_,_ => NON_EXISTENT } ;
{-
ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
s =
vp.v.s ! Pos ! (Indicative P1 Pl Fut) ++
vp.s2 ! a
} ;
CleftNP np rs = mkClause "it" (agrP3 Sg)
(insertObj (\\_ => rs.s ! np.a)
(insertObj (\\_ => np.s ! rs.c) (predAux auxBe))) ;
ImpP3 np vp = {
s = "lai" ++ np.s ! Nom ++ buildVerb vp.v (Ind Simul Pres) Pos np.a ++ vp.s2 ! np.a ;
} ;
CleftAdv ad s = mkClause "it" (agrP3 Sg)
(insertObj (\\_ => conjThat ++ s.s)
(insertObj (\\_ => ad.s) (predAux auxBe))) ;
-- FIXME: placeholder
CleftNP np rs = { s = \\_,_ => NON_EXISTENT } ;
CleftAdv ad s = { s = \\_,_ => NON_EXISTENT } ;
ExistNP np =
mkClause "there" (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
ExistIP ip =
mkQuestion (ss (ip.s ! Nom))
(mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
ImpPl1 vp = {s = "let's" ++ infVP True vp (AgP1 Pl)} ;
ImpP3 np vp = {s = "let" ++ np.s ! Acc ++ infVP True vp np.a} ;
-}
}