GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Latvian API compiles! Does it? :)

Browse Source
This commit is contained in:
normundsg
2011-12-19 14:11:46 +00:00
parent 1f7be86dd2
commit cd671c58a9
4 changed files with 14 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/src/api/TryLav.gf
View File

@@ -14,9 +14,9 @@ oper
mkAdN : Str -> AdN = P.mkAdN ; mkAdN : Str -> AdN = P.mkAdN ;
} ; } ;
mkOrd = overload SyntaxLav { --mkOrd = overload SyntaxLav {
mkOrd : Str -> Ord = P.mkOrd ; -- mkOrd : Str -> Ord = P.mkOrd ;
} ; --} ;
} }

14
lib/src/latvian/NumeralLav.gf
View File

@@ -19,7 +19,7 @@ lincat
lin lin
num x = x ; num x = x ;
n2 = mkNum "divi" "otrais" Pl ; n2 = mkNumReg "divi" "otrais" Pl ;
n3 = n3 =
let trijs = mkNumSpec "trijs" "trešais" "trīs" "trīs" Pl let trijs = mkNumSpec "trijs" "trešais" "trīs" "trīs" Pl
@@ -37,12 +37,12 @@ lin
} }
} ; } ;
n4 = mkNum "četri" "ceturtais" Pl ; n4 = mkNumReg "četri" "ceturtais" Pl ;
n5 = mkNum "pieci" "piektais" Pl ; n5 = mkNumReg "pieci" "piektais" Pl ;
n6 = mkNum "seši" "sestais" Pl ; n6 = mkNumReg "seši" "sestais" Pl ;
n7 = mkNum "septiņi" "septītais" Pl ; n7 = mkNumReg "septiņi" "septītais" Pl ;
n8 = mkNum "astoņi" "astotais" Pl ; n8 = mkNumReg "astoņi" "astotais" Pl ;
n9 = mkNum "deviņi" "devītais" Pl ; n9 = mkNumReg "deviņi" "devītais" Pl ;
pot01 = { s = viens.s ! unit } ** { n = Sg } ; pot01 = { s = viens.s ! unit } ** { n = Sg } ;
pot0 d = { s = d.s ! unit } ** { n = Pl } ; pot0 d = { s = d.s ! unit } ** { n = Pl } ;

2
lib/src/latvian/ParadigmsLav.gf
View File

@@ -133,7 +133,7 @@ oper
viens = mkNumSpec "viens" "pirmais" "vien" "" Sg ; viens = mkNumSpec "viens" "pirmais" "vien" "" Sg ;
mkNum : Str -> Str -> Number -> { s : DForm => CardOrd => Gender => Case => Str } = mkNumReg : Str -> Str -> Number -> { s : DForm => CardOrd => Gender => Case => Str } =
\pieci,piektais,n -> mkNumSpec pieci piektais (cutStem pieci) (cutStem pieci) n ; \pieci,piektais,n -> mkNumSpec pieci piektais (cutStem pieci) (cutStem pieci) n ;
mkNumSpec : Str -> Str -> Str -> Str -> Number -> { s : DForm => CardOrd => Gender => Case => Str } = mkNumSpec : Str -> Str -> Str -> Str -> Number -> { s : DForm => CardOrd => Gender => Case => Str } =

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

@@ -1,7 +1,6 @@
--# -path=.:../abstract:../common:../prelude --# -path=.:../abstract:../common:../prelude
concrete SentenceLav of Sentence = CatLav ** open concrete SentenceLav of Sentence = CatLav ** open
Prelude,
ResLav, ResLav,
VerbLav VerbLav
in { in {
@@ -52,7 +51,7 @@ lin
AdvS a s = { s = NON_EXISTENT } ; AdvS a s = { s = NON_EXISTENT } ;
oper oper
mkClause : NP -> VP -> Cl = \np,vp -> lin Cl { mkClause : NP -> CatLav.VP -> Cl = \np,vp -> lin Cl {
s = \\mood,pol => s = \\mood,pol =>
case mood of { -- Subject case mood of { -- Subject
-- FIXME: jāčeko valences, reizēm arī īstenības izteiksmē - 'man patīk kaut kas' -- FIXME: jāčeko valences, reizēm arī īstenības izteiksmē - 'man patīk kaut kas'
@@ -66,7 +65,7 @@ oper
-- FIXME: quick&dirty - lai kompilētos pret RGL API -- FIXME: quick&dirty - lai kompilētos pret RGL API
-- Eng: PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp -- Eng: PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp
-- Ar SC nav iespējams neko saskaņot (sk. Cat.gf un Common.gf) -- Ar SC nav iespējams neko saskaņot (sk. Cat.gf un Common.gf)
mkClauseSC : SC -> VP -> Cl = \sc,vp -> lin Cl { mkClauseSC : SC -> CatLav.VP -> Cl = \sc,vp -> lin Cl {
s = \\mood,pol => sc.s ++ buildVerb vp.v mood pol (AgP3 Sg Masc) ++ vp.s2 ! (AgP3 Sg Masc) s = \\mood,pol => sc.s ++ buildVerb vp.v mood pol (AgP3 Sg Masc) ++ vp.s2 ! (AgP3 Sg Masc)
} ; } ;