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

Latvian: added no_Quant, changed otherwise_PConj and therefore_PConj

Browse Source 
Other changes are due to formatting.
This commit is contained in:
Normunds Gruzitis
2012-10-09 18:46:46 +00:00
parent ea4ed8b4db
commit 4df3ce107f
2 changed files with 108 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/latvian/SentenceLav.gf
View File

@@ -66,10 +66,10 @@ oper
} }
} ++ } ++
case vp.agr of { -- Verb case vp.agr of { -- Verb
Topic Nom => buildVerb vp.v mood pol np.a ; Topic Nom => buildVerb vp.v mood pol np.a ;
Topic _ => buildVerb vp.v mood pol (AgP3 Sg Masc) ; -- TODO: test me Topic _ => buildVerb vp.v mood pol (AgP3 Sg Masc) ; -- TODO: test me
TopicFocus Nom _ => buildVerb vp.v mood pol np.a ; TopicFocus Nom _ => buildVerb vp.v mood pol np.a ;
TopicFocus _ agr => buildVerb vp.v mood pol agr TopicFocus _ agr => buildVerb vp.v mood pol agr
} ++ } ++
vp.compl ! np.a -- Object(s), complements, adverbial modifiers vp.compl ! np.a -- Object(s), complements, adverbial modifiers
} ; } ;

203
lib/src/latvian/StructuralLav.gf
View File

@@ -29,37 +29,42 @@ lin
} ; } ;
somePl_Det = { somePl_Det = {
s = (\\g,c => (mkPronoun_Gend "kāds").s ! g ! Pl ! c) ; -- lai atļautu arī tukšo, jāliek (\\_,_ => []) | klāt s = (\\g,c => (mkPronoun_Gend "kāds").s ! g ! Pl ! c) ; -- lai atļautu arī tukšo, jāliek (\\_,_ => []) | klāt
n = Pl ; n = Pl ;
d = Indef d = Indef
} ; } ;
few_Det = { few_Det = {
s = (\\g,c => (mkPronoun_Gend "dažs").s ! g ! Pl ! c) ; s = (\\g,c => (mkPronoun_Gend "dažs").s ! g ! Pl ! c) ;
n = Pl ; n = Pl ;
d = Indef d = Indef
} ; } ;
many_Det = { many_Det = {
s = (\\g,c => (mkPronoun_Gend "daudzs").s ! g ! Pl ! c) ; -- 'daudzs' izlocīsies korekti uz daudzskaitļa 'daudzi' s = (\\g,c => (mkPronoun_Gend "daudzs").s ! g ! Pl ! c) ; -- 'daudzs' izlocīsies korekti uz daudzskaitļa 'daudzi'
n = Pl ; n = Pl ;
d = Indef d = Indef
} ; } ;
much_Det = { much_Det = {
s = (\\g,c => "daudz") ; -- FIXME - ņem saistību ar ģenitīvu; kā to realizēt? s = (\\g,c => "daudz") ; -- FIXME - ņem saistību ar ģenitīvu; kā to realizēt?
n = Sg ; n = Sg ;
d = Indef d = Indef
} ; } ;
this_Quant = { this_Quant = {
s = (mkPronoun_ThisThat This).s ; s = (mkPronoun_ThisThat This).s ;
d = Def d = Def
} ; } ;
that_Quant = { that_Quant = {
s = (mkPronoun_ThisThat That).s ; s = (mkPronoun_ThisThat That).s ;
d = Def d = Def
} ;
no_Quant = {
s = (mkPronoun_Gend "neviens").s ;
d = Indef
} ; } ;
-- P1 -- P1
@@ -106,15 +111,15 @@ lin
with_Prep = mkPrep "ar" Acc Dat ; -- ar sievu, ar sievām with_Prep = mkPrep "ar" Acc Dat ; -- ar sievu, ar sievām
in_Prep = mkPrep Loc ; in_Prep = mkPrep Loc ;
to_Prep = mkPrep "līdz" Dat Dat ; -- See also: ExtraLav.to8uz_Prep to_Prep = mkPrep "līdz" Dat Dat ; -- See also: ExtraLav.to8uz_Prep
possess_Prep = mkPrep Gen ; -- FIXME: reku vajadzētu vārdu secību otrādi, ka pirms paskaidrojamā vārda likt possess_Prep = mkPrep Gen ; -- FIXME: vajadzētu vārdu secību otrādi - pirms paskaidrojamā vārda likt
under_Prep = mkPrep "zem" Gen Dat ; under_Prep = mkPrep "zem" Gen Dat ;
with_Prep = mkPrep "ar" Acc Dat ; with_Prep = mkPrep "ar" Acc Dat ;
without_Prep = mkPrep "bez" Gen Dat ; without_Prep = mkPrep "bez" Gen Dat ;
by8agent_Prep = nom_Prep ; -- A was attacked by B -> A-Dat uzbruka B-Nom by8agent_Prep = nom_Prep ; -- A was attacked by B -> A-Dat uzbruka B-Nom
by8means_Prep = mkPrep "ar" Acc Dat ; by8means_Prep = mkPrep "ar" Acc Dat ;
during_Prep = mkPrep "laikā" Gen Gen ; -- FIXME: nevaru saprast; laikam postfix 'X laikā' jāliek during_Prep = mkPrep "laikā" Gen Gen ; -- FIXME: laikam postfix 'X laikā' jāliek
in8front_Prep = mkPrep "priekšā" Dat Dat ; in8front_Prep = mkPrep "priekšā" Dat Dat ;
part_Prep = mkPrep Gen ; --FIXME - reku vajadzētu vārdu secību otrādi, ka pirms paskaidrojamā vārda likt part_Prep = mkPrep Gen ; --FIXME - vajadzētu vārdu secību otrādi - pirms paskaidrojamā vārda likt
through_Prep = mkPrep "cauri" Dat Dat ; through_Prep = mkPrep "cauri" Dat Dat ;
except_Prep = mkPrep "izņemot" Acc Acc ; except_Prep = mkPrep "izņemot" Acc Acc ;
@@ -125,15 +130,15 @@ lin
and_Conj = mkConj "un" ; and_Conj = mkConj "un" ;
or_Conj = mkConj "vai" Sg ; or_Conj = mkConj "vai" Sg ;
if_then_Conj = mkConj "ja" "tad"; if_then_Conj = mkConj "ja" "tad" ;
but_PConj = ss "bet" ; but_PConj = ss "bet" ;
otherwise_PConj = ss "tomēr" ; --? otherwise_PConj = ss "citādi" ;
therefore_PConj = ss "tātad" ; --? therefore_PConj = ss "tāpēc" ;
more_CAdv = (mkCAdv [] "nekā" Compar) | (mkCAdv "vairāk" "nekā" Posit); more_CAdv = (mkCAdv [] "nekā" Compar) | (mkCAdv "vairāk" "nekā" Posit) ;
less_CAdv = mkCAdv "mazāk" "nekā" Posit; less_CAdv = mkCAdv "mazāk" "nekā" Posit ;
as_CAdv = mkCAdv "tikpat" "kā" Posit; as_CAdv = mkCAdv "tikpat" "kā" Posit ;
here_Adv = mkAdv "šeit" ; here_Adv = mkAdv "šeit" ;
there_Adv = mkAdv "tur" ; there_Adv = mkAdv "tur" ;
@@ -141,7 +146,7 @@ lin
here7to_Adv = mkAdv ["uz šejieni"] ; here7to_Adv = mkAdv ["uz šejieni"] ;
here7from_Adv = mkAdv ["no šejienes"] ; here7from_Adv = mkAdv ["no šejienes"] ;
there7to_Adv = mkAdv "uz turieni" ; there7to_Adv = mkAdv "uz turieni" ;
there7from_Adv = mkAdv "no turienes"; there7from_Adv = mkAdv "no turienes" ;
somewhere_Adv = mkAdv "kaut kur" ; somewhere_Adv = mkAdv "kaut kur" ;
quite_Adv = mkAdv "diezgan" ; quite_Adv = mkAdv "diezgan" ;
@@ -150,50 +155,53 @@ lin
want_VV = mkVV (mkV "vēlēties" third_conjugation) ; want_VV = mkVV (mkV "vēlēties" third_conjugation) ;
whoSg_IP = { whoSg_IP = { -- FIXME: Fem
s = table { s = table {
Nom => "kurš"; -- FIXME - Fem? Nom => "kurš" ;
Gen => "kura"; Gen => "kura" ;
Dat => "kuram"; Dat => "kuram" ;
Acc => "kuru"; Acc => "kuru" ;
Loc => "kurā"; Loc => "kurā" ;
ResLav.Voc => NON_EXISTENT ResLav.Voc => NON_EXISTENT
}; } ;
n = Sg n = Sg
}; } ;
whoPl_IP = {
s = table { whoPl_IP = { -- FIXME: Fem
Nom => "kuri"; s = table {
Gen => "kuru"; Nom => "kuri" ;
Dat => "kuriem"; Gen => "kuru" ;
Acc => "kurus"; Dat => "kuriem" ;
Loc => "kuros"; Acc => "kurus" ;
ResLav.Voc => NON_EXISTENT Loc => "kuros" ;
}; ResLav.Voc => NON_EXISTENT
n = Pl } ;
}; n = Pl
} ;
whatSg_IP = { whatSg_IP = {
s = table { s = table {
Nom => "kas"; -- FIXME - Fem? standarta locīšana? Nom => "kas" ;
Gen => "kā"; Gen => "kā" ;
Dat => "kam"; Dat => "kam" ;
Acc => "ko"; Acc => "ko" ;
Loc => "kur"; Loc => "kur" ;
ResLav.Voc => NON_EXISTENT ResLav.Voc => NON_EXISTENT
}; } ;
n = Sg n = Sg
}; } ;
whatPl_IP = { whatPl_IP = {
s = table { s = table {
Nom => "kas"; -- FIXME - Fem? standarta locīšana? Nom => "kas" ;
Gen => "kā"; Gen => "kā" ;
Dat => "kam"; Dat => "kam" ;
Acc => "ko"; Acc => "ko" ;
Loc => "kur"; Loc => "kur" ;
ResLav.Voc => NON_EXISTENT ResLav.Voc => NON_EXISTENT
}; } ;
n = Pl n = Pl
}; } ;
why_IAdv = ss "kāpēc" ; why_IAdv = ss "kāpēc" ;
how_IAdv = ss "kā" ; how_IAdv = ss "kā" ;
@@ -201,25 +209,23 @@ lin
when_IAdv = ss "kad" ; when_IAdv = ss "kad" ;
where_IAdv = ss "kur" ; where_IAdv = ss "kur" ;
which_IQuant = {s = table { which_IQuant = {
Masc => table { Sg => "kurš"; Pl => "kuri"}; s = table {
Fem => table { Sg => "kura"; Pl => "kuras"} Masc => table { Sg => "kurš"; Pl => "kuri" } ;
} Fem => table { Sg => "kura"; Pl => "kuras" }
}
} ; } ;
when_Subj = ss "kad" ; when_Subj = ss "kad" ;
although_Subj = ss "kaut arī" ; although_Subj = ss "kaut arī" ;
because_Subj = ss "jo" ; because_Subj = ss "jo" ;
if_Subj = ss "ja" ; if_Subj = ss "ja" ;
that_Subj = ss "ka" ; -- ja pareizi saprotu šo konkrēto 'that' pielietojumu that_Subj = ss "ka" ;
all_Predet = { s = table { all_Predet = { s = table { Masc => "visi" ; Fem => "visas" } } ;
Masc => "visi";
Fem => "visas" only_Predet = { s = table { _ => "tikai"} } ;
} most_Predet = { s = table { _ => "vairums"} } ;
};
only_Predet = { s = table { _ => "tikai"} };
most_Predet = { s = table { _ => "vairums"} };
yes_Utt = ss "jā" ; yes_Utt = ss "jā" ;
please_Voc = ss "lūdzu" ; please_Voc = ss "lūdzu" ;
@@ -230,20 +236,17 @@ lin
always_AdV = mkAdV "vienmēr" ; always_AdV = mkAdV "vienmēr" ;
-- TODO: jātestē kā to pielieto un vai nevajag vēl kaut ko
how8many_IDet = { how8many_IDet = {
s = table { _ => "cik" } ; s = table { _ => "cik" } ;
n = Pl n = Pl
} ; } ;
everybody_NP = DetCN emptyPl_Det (UseN (mkN "visi")) ;
everybody_NP = DetCN emptyPl_Det (UseN (mkN "visi")); everything_NP = DetCN emptySg_Det (UseN (mkN "viss")) ;
everything_NP = DetCN emptySg_Det (UseN (mkN "viss")); nobody_NP = DetCN emptySg_Det (UseN (mkN "neviens")) ;
nobody_NP = DetCN emptySg_Det (UseN (mkN "neviens")); nothing_NP = DetCN emptySg_Det (UseN (mkN "nekas")) ;
nothing_NP = DetCN emptySg_Det (UseN (mkN "nekas")); somebody_NP = DetCN emptySg_Det (UseN (mkN "kāds")) ;
somebody_NP = DetCN emptySg_Det (UseN (mkN "kāds")); something_NP = DetCN emptySg_Det (UseN (mkN "kaut kas")) ;
something_NP = DetCN emptySg_Det (UseN (mkN "kaut kas"));
have_V2 = mkV2 (mkV "būt") nom_Prep Dat ; have_V2 = mkV2 (mkV "būt") nom_Prep Dat ;
have_V3 = mkV3 (mkV "būt") nom_Prep dat_Prep Dat ; have_V3 = mkV3 (mkV "būt") nom_Prep dat_Prep Dat ;
@@ -252,27 +255,29 @@ lin
must_VV = mkVV (mkV "vajadzēt" third_conjugation) Dat ; must_VV = mkVV (mkV "vajadzēt" third_conjugation) Dat ;
oper oper
reflPron : Case => Str = table { reflPron : Case => Str = table {
Nom => NON_EXISTENT; Nom => NON_EXISTENT ;
Gen => "sevis"; Gen => "sevis" ;
Dat => "sev"; Dat => "sev" ;
Acc => "sevi"; Acc => "sevi" ;
Loc => "sevī"; Loc => "sevī" ;
ResLav.Voc => NON_EXISTENT ResLav.Voc => NON_EXISTENT
} ; } ;
lai_Subj = ss "lai" ; lai_Subj = ss "lai" ;
kameer_Subj = ss "kamēr" ; kameer_Subj = ss "kamēr" ;
emptyPl_Det = { emptyPl_Det = {
s:Gender => Case => Str = \\_,_ => []; s : Gender => Case => Str = \\_,_ => [] ;
n = Pl ; n = Pl ;
d = Indef d = Indef
} ; } ;
emptySg_Det = { emptySg_Det = {
s:Gender => Case => Str = \\_,_ => []; s : Gender => Case => Str = \\_,_ => [] ;
n = Sg ; n = Sg ;
d = Indef d = Indef
} ; } ;
no_Utt = ss "nē" ; no_Utt = ss "nē" ;