progress on the Names API

This commit is contained in:
Krasimir Angelov
2023-08-07 21:15:48 +02:00
parent 9fcee982e5
commit 531e2c2dd2
36 changed files with 220 additions and 22 deletions
+8
View File
@@ -11,4 +11,12 @@ lin FullName gn sn = {
isPron = False
} ;
UseLN, PlainLN = \n -> {
s = \\c => n.s ! caseNP c ;
a = agrP3 n.g n.n ;
isPron = False
} ;
InLN n = {s = n.c.s ++ n.s ! caseNP accusative} ;
}