(Fin) Update all functions that use CN to use postmod field

This commit is contained in:
Inari Listenmaa
2020-09-17 21:04:36 +02:00
parent dd813bc7cc
commit d4ee4addc5
8 changed files with 23 additions and 9 deletions
+12
View File
@@ -55,6 +55,18 @@ oper
_ => SCNom
} ;
LinCN : Type = {s : NForm => Str ; h : Harmony ; postmod : Number => Str} ;
linCN : NForm -> LinCN -> Str = \nf,cn ->
let n : Number = case nf of {
NCase n _ => n ;
NPossNom n => n ;
NPossGen n => n ;
NPossIllat n => n ;
NPossTransl n => n ;
_ => Sg
} ;
in cn.s ! nf ++ cn.postmod ! n ;
-- Agreement of $NP$ has number*person and the polite second ("te olette valmis").
param