GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 12:08:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

cardinal numbers in Slovenian

Browse Source
This commit is contained in:
krasimir
2016-05-03 08:56:50 +00:00
parent f8ce39563c
commit 01b6eab7f4
5 changed files with 38 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/slovenian/NounSlv.gf
+19 -5
View File
@@ -2,20 +2,34 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv in {
lin
DetCN det cn = {
s = \\c => det.s ! c ++ cn.s ! det.spec ! c ! det.n ;
a = {g=cn.g; n=det.n; p=P3}
s = \\c => det.s ! cn.g ! c ++
case det.n of {
UseNum n => cn.s ! det.spec ! c ! n ;
UseGen => cn.s ! det.spec ! Gen ! Pl
} ;
a = {g = cn.g ;
n = case det.n of {
UseNum n => n ;
UseGen => Pl
} ;
p = P3
}
} ;
UsePron p = p ;
DetQuant quant num = {
s = \\c => quant.s ++ num.s ! c;
s = \\c,g => quant.s ++ num.s ! c ! g;
spec = quant.spec ;
n = num.n ;
} ;
NumSg = {s = \\_ => []; n = Sg} ;
NumPl = {s = \\_ => []; n = Pl} ;
NumSg = {s = \\_,_ => []; n = UseNum Sg} ;
NumPl = {s = \\_,_ => []; n = UseNum Pl} ;
NumCard n = n ;
NumNumeral numeral = {s = numeral.s; n = numeral.n} ;
DefArt = {
s = "" ;