(May) Add some determiners + fix word order in DetCN

2026-06-27 03:46:29 -06:00 · 2020-08-18 21:34:04 +02:00
parent c98f9a84d8
commit 53eb8ab9df
3 changed files with 16 additions and 7 deletions
@@ -8,7 +8,11 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {

 -- : Det -> CN -> NP
    DetCN det cn = {
-      s = det.s ++ cn.s ! NF det.n Bare ; -- TODO add possessive determiners
+      s =
+        case det.isPoss of {
+          True => cn.s ! NF det.n (Poss P3) ; -- TODO add possessive determiners
+          False => cn.s ! NF det.n Bare }
+        ++ det.s ;
      p = P3
      } ;