started a separate module for names

This commit is contained in:
Krasimir Angelov
2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions
+1 -9
View File
@@ -1,7 +1,7 @@
--# -path=.:../common:../abstract
concrete ExtendRon of Extend =
CatRon ** ExtendFunctor - [PassVPSlash, GivenName, MaleSurname, FemaleSurname, FullName]
CatRon ** ExtendFunctor - [PassVPSlash]
with
(Grammar = GrammarRon) **
open ResRon in {
@@ -17,12 +17,4 @@ lin iFem_Pron = mkPronoun "eu" "mine" "mie" [] [] "meu" "mea" "mei" "mele" Fem S
-- KA: derived from PassV2, objects are ignored
lin PassVPSlash vps = insertSimpObj (\\a => vps.s ! PPasse a.g a.n Indef ANomAcc) auxPassive ** {lock_VP = <>};
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = { -- KA: guessed
s = \\c => gn.s ! No ++ sn.s ! c ;
g = gn.g ;
n = gn.n ;
a = gn.a
} ;
}