Add some prepositions, merge with pronouns (TODO: merge with articles too)
This commit is contained in:
1 parent
a539db3d55
commit
c85e7a514b
7 files changed
+87
-42
No files matched your search
@@ -9,6 +9,7 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
|
||||
-- : Det -> CN -> NP
|
||||
DetCN det cn = emptyNP ** {
|
||||
s = \\c => det.s ! cn.g ! c ++ cn.s ! getNForm det.n det.d c ;
|
||||
a = NotPron det.n ;
|
||||
d = det.d
|
||||
} ;
|
||||
{-
|
||||
|
||||
Reference in new issue
Block a user