mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-08 02:32:50 -06:00
More improvements to the Latvian resource grammar (motivated by PhrasebookLav)
- Few bug-fixes (agreement between Pron and ComplAP; C1 verb paradigm; how8much_IAdv / how8many_IDet). - Differentiation between male and female pronouns. - Irregular verbs now can have prefixes. - Code refactoring.
This commit is contained in:
@@ -11,8 +11,8 @@ flags
|
||||
coding = utf8 ;
|
||||
|
||||
oper
|
||||
Noun : Type = {s : Number => Case => Str ; g : Gender} ;
|
||||
ProperNoun : Type = {s : Case => Str; g : Gender; n : Number} ;
|
||||
Noun : Type = { s : Number => Case => Str ; g : Gender } ;
|
||||
ProperNoun : Type = { s : Case => Str ; g : Gender ; n : Number } ;
|
||||
|
||||
masculine : Gender = Masc ;
|
||||
feminine : Gender = Fem ;
|
||||
@@ -21,15 +21,13 @@ oper
|
||||
mkNoun : Str -> Noun = \lemma ->
|
||||
mkNounByPal lemma True ;
|
||||
|
||||
mkProperNoun : Str -> Number -> ProperNoun = \lemma,number ->
|
||||
mkProperNoun : Str -> Number -> ProperNoun = \lemma,number ->
|
||||
let noun = mkNoun lemma
|
||||
in {
|
||||
s = table {
|
||||
c => noun.s ! number ! c
|
||||
} ;
|
||||
g = noun.g ;
|
||||
n = number
|
||||
} ;
|
||||
in {
|
||||
s = \\c => noun.s ! number ! c ;
|
||||
g = noun.g ;
|
||||
n = number
|
||||
} ;
|
||||
|
||||
{-
|
||||
mkCardinalNumeral : Str -> CardinalNumeral = \lemma ->
|
||||
@@ -78,7 +76,8 @@ oper
|
||||
s + "s" => case gend of {Masc => D1 ; Fem => D6} ;
|
||||
s + "a" => D4 ;
|
||||
s + "e" => D5 ;
|
||||
s + #vowel => D0
|
||||
s + #vowel => D0 ;
|
||||
_ => D0
|
||||
}
|
||||
in mkNounByGendDeclPal lemma gend decl pal ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user