GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 05:49:31 -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

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

@@ -1,6 +1,6 @@
--# -path=.:alltenses:prelude:../latvian
resource TryLav = SyntaxLav-[mkAdN], LexiconLav, ParadigmsLav - [mkAdv,mkAdN,mkOrd,mkQuant] **
resource TryLav = SyntaxLav-[mkAdN], LexiconLav, ParadigmsLav-[mkAdv,mkAdN,mkOrd,mkQuant] **
open (P = ParadigmsLav) in {
oper
@@ -14,9 +14,9 @@ oper
mkAdN : Str -> AdN = P.mkAdN ;
} ;
mkOrd = overload SyntaxLav {
mkOrd : Str -> Ord = P.mkOrd ;
} ;
--mkOrd = overload SyntaxLav {
-- mkOrd : Str -> Ord = P.mkOrd ;
--} ;
}

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

@@ -19,7 +19,7 @@ lincat
lin
num x = x ;
n2 = mkNum "divi" "otrais" Pl ;
n2 = mkNumReg "divi" "otrais" Pl ;
n3 =
let trijs = mkNumSpec "trijs" "trešais" "trīs" "trīs" Pl
@@ -37,12 +37,12 @@ lin
}
} ;
n4 = mkNum "četri" "ceturtais" Pl ;
n5 = mkNum "pieci" "piektais" Pl ;
n6 = mkNum "seši" "sestais" Pl ;
n7 = mkNum "septiņi" "septītais" Pl ;
n8 = mkNum "astoņi" "astotais" Pl ;
n9 = mkNum "deviņi" "devītais" Pl ;
n4 = mkNumReg "četri" "ceturtais" Pl ;
n5 = mkNumReg "pieci" "piektais" Pl ;
n6 = mkNumReg "seši" "sestais" Pl ;
n7 = mkNumReg "septiņi" "septītais" Pl ;
n8 = mkNumReg "astoņi" "astotais" Pl ;
n9 = mkNumReg "deviņi" "devītais" Pl ;
pot01 = { s = viens.s ! unit } ** { n = Sg } ;
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 ;
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 ;
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
concrete SentenceLav of Sentence = CatLav ** open
Prelude,
ResLav,
VerbLav
in {
@@ -52,7 +51,7 @@ lin
AdvS a s = { s = NON_EXISTENT } ;
oper
mkClause : NP -> VP -> Cl = \np,vp -> lin Cl {
mkClause : NP -> CatLav.VP -> Cl = \np,vp -> lin Cl {
s = \\mood,pol =>
case mood of { -- Subject
-- 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
-- Eng: PredSCVP sc vp = mkClause sc.s (agrP3 Sg) vp
-- 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)
} ;