automatic negation of with_Prep

2026-06-30 02:58:35 -06:00 · 2018-06-07 14:58:03 +02:00
parent fe72ccdec1
commit 2869eaf6e9
4 changed files with 81 additions and 54 deletions
@@ -24,8 +24,12 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
                               } ;
                          s = det.s ! True ! cn.g ! role ++ cn.s ! nf
                      in case role of {
-                           RObj Dat => "íà" ++ s; 
-                           _        => s
+                           RObj Dat      => "íà" ++ s;
+                           RObj WithPrep => case det.p of {
+                                              Pos => with_Word ++ s ;
+                                              Neg => "áåç" ++ s
+                                            } ;
+                           _             => s
                         } ;
        a = {gn = gennum cn.g (numnnum det.nn); p = P3} ;
        p = det.p