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

add mkN3 to ParadigmsEus, and a couple of new words in LexiconEus

Browse Source
This commit is contained in:
Inari Listenmaa
2018-01-11 19:44:39 +01:00
parent 8c8adb014a
commit 793a31805b
3 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/basque/LexiconEus.gf
View File

@@ -1,5 +1,5 @@
concrete LexiconEus of Lexicon = CatEus ** concrete LexiconEus of Lexicon = CatEus **
open ParadigmsEus, Prelude, (R=ResEus) in { open ParadigmsEus, Prelude, (R=ResEus), (S=StructuralEus) in {
---- ----
-- A -- A
@@ -90,7 +90,7 @@ lin day_N = mkN "egun" ; --Apertium
lin die_V = izanV "hil" ; -- | mkV "zendu" ; --Apertium lin die_V = izanV "hil" ; -- | mkV "zendu" ; --Apertium
lin dig_V = mkV "zulatu" ; --Apertium lin dig_V = mkV "zulatu" ; --Apertium
lin dirty_A = mkA "likits" ; --| mkA "zikin" ; --Apertium lin dirty_A = mkA "likits" ; --| mkA "zikin" ; --Apertium
-- lin distance_N3 = mkN3 (mkN "distantzia") fromP toP ; --Apertium lin distance_N3 = mkN3 (mkN "distantzia") toPrep S.from_Prep ; --Apertium
lin do_V2 = lin V2 egin_V ; lin do_V2 = lin V2 egin_V ;
lin doctor_N = mkN "mediku" animate ; --| mkN "doktore" ; --Apertium lin doctor_N = mkN "mediku" animate ; --| mkN "doktore" ; --Apertium
lin dog_N = mkN "txakur" ; lin dog_N = mkN "txakur" ;
@@ -100,6 +100,7 @@ lin dry_A = mkA "lehor" ; --Apertium
lin dull_A = mkA "aspergarri" ; --Apertium lin dull_A = mkA "aspergarri" ; --Apertium
lin dust_N = mkN "hauts" ; --Apertium lin dust_N = mkN "hauts" ; --Apertium
oper toPrep = (locPrep "ra") ;
---- ----
-- E -- E
@@ -190,6 +191,7 @@ lin iron_N = mkN "burdina" ; -- | mkN "plantxa" ; --Apertium
-------- --------
-- J - K -- J - K
lin john_PN = mkPN "Jon" ;
lin jump_V = mkV "jauzi" egin_V ; --Apertium lin jump_V = mkV "jauzi" egin_V ; --Apertium
lin kill_V2 = mkV2 "hil" ; --Apertium lin kill_V2 = mkV2 "hil" ; --Apertium
lin king_N = mkN "errege" animate ; --Apertium lin king_N = mkN "errege" animate ; --Apertium

9
src/basque/ParadigmsEus.gf
View File

@@ -51,6 +51,15 @@ oper
} ; } ;
mkN3 = overload {
mkN3 : Str -> N3 = \s -> lin N3 (mkNoun3 s absolutive dative) ;
mkN3 : Str -> Case -> Case -> N3 = \s,c1,c2 -> lin N3 (mkNoun3 s c1 c2) ;
mkN3 : Str -> Prep -> Prep -> N3 = \s,p1,p2 -> lin N3 (mkNoun3 s absolutive dative) ** {compl1 = p1 ; compl2 = p2 } ;
mkN3 : N -> N3 = \n -> lin N3 (n2Noun3 n absolutive dative) ;
mkN3 : N -> Case -> Case -> N3 = \n,c1,c2 -> lin N3 (n2Noun3 n c1 c2) ;
mkN3 : N -> Prep -> Prep -> N3 = \n,p1,p2 -> lin N3 (n2Noun3 n absolutive dative) ** {compl1 = p1 ; compl2 = p2 } ;
} ;
--2 Adjectives --2 Adjectives
mkA = overload { mkA = overload {

6
src/basque/ResEus.gf
View File

@@ -150,10 +150,12 @@ oper
mkNoun2 : Str -> Case -> Noun2 = \s,cas -> mkNoun s ** { compl1 = mkPost [] cas False } ; mkNoun2 : Str -> Case -> Noun2 = \s,cas -> mkNoun s ** { compl1 = mkPost [] cas False } ;
n2Noun2 : Noun -> Case -> Noun2 = \n,cas -> n ** { compl1 = mkPost [] cas False } ; n2Noun2 : Noun -> Case -> Noun2 = \n,cas -> n ** { compl1 = mkPost [] cas False } ;
mkNoun3 : Str -> (_,_ : Case) -> Noun3 = \s,c1,c2 -> mkNoun2 s c1 ** { compl2 = mkPost [] c2 False } ;
n2Noun3 : Noun -> (_,_ : Case) -> Noun3 = \n,c1,c2 -> n2Noun2 n c1 ** { compl2 = mkPost [] c2 False } ;
mkPNoun : Str -> PNoun = \s -> mkNoun s ** {nbr = Sg ; anim=Anim} ; mkPNoun : Str -> PNoun = \s -> mkNoun s ** {nbr = Sg ; anim=Anim} ;
CNoun : Type = { s : Agr => Str ; -- When we combine CN with RS, we introduce Agr distinction CNoun : Type = { s : Agr => Str ; -- When we combine CN with RS, we introduce Agr distinction
comp : Str ; -- For PartNP; "s = baso | bat | comp = ardo gorri" comp : Str ; -- For PartNP; "s = baso | bat | comp = ardo gorri"
ph : Phono ; ph : Phono ;