Merge branch 'latin'

This commit is contained in:
Herbert Lange
2019-06-28 16:22:49 +02:00
17 changed files with 106 additions and 180 deletions
+7 -7
View File
@@ -3,12 +3,12 @@
concrete SymbolLat of Symbol = CatLat ** open Prelude, ResLat, ParadigmsLat, TenseX in {
lin
SymbPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c
IntPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c
FloatPN i = {s = \\n,c => i.s ; g = Neutr} ; --- c
NumPN i = {s = \\n,c => i.s ! Neutr ! c; g = Neutr} ; --- c
SymbPN i = {s = \\c => i.s ; g = Neutr ; n = Sg } ; --- c
IntPN i = {s = \\c => i.s ; g = Neutr ; n = Sg } ; --- c
FloatPN i = {s = \\c => i.s ; g = Neutr ; n = Sg } ; --- c
NumPN i = {s = \\c => i.s ! Neutr ! c; g = Neutr ; n = Pl } ; --- c
CNIntNP cn i = {
s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
s = \\_,c => (cn.s ! Sg ! Nom ++ i.s) ;
g = cn.g ;
n = Sg ;
adv = [] ;
@@ -18,7 +18,7 @@ lin
preap = { s = \\_ => [] } ;
} ;
CNSymbNP det cn xs = {
s = \\c => (cn.s ! Sg ! Nom ++ xs.s ) ;
s = \\_,c => (cn.s ! Sg ! Nom ++ xs.s ) ;
g = cn.g ;
n = det.n ;
adv = [] ;
@@ -32,7 +32,7 @@ lin
-- } ;
-- } ;
CNNumNP cn i = {
s = \\c => (cn.s ! Sg ! Nom ++ i.s ! cn.g ! Nom ) ;
s = \\_,c => (cn.s ! Sg ! Nom ++ i.s ! cn.g ! Nom ) ;
g = cn.g ;
n = Sg ;
adv = [] ;