forked from GitHub/gf-rgl
some fragments of adjectives and nouns in Slovenian
This commit is contained in:
@@ -0,0 +1,11 @@
|
||||
concrete NounSlv of Noun = CatSlv ** open ResSlv in {
|
||||
|
||||
lin
|
||||
UseN n = {s = \\_ => n.s; g = n.g} ;
|
||||
|
||||
AdjCN ap cn = {
|
||||
s = \\spec,c,n => ap.s ! spec ! cn.g ! c ! n ++ cn.s ! Indef ! c ! n ;
|
||||
g = cn.g
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user