From fd0ac0e15e8b6132fe2239d3b16769bcf12b6678 Mon Sep 17 00:00:00 2001
From: Eugene Koontz <ekoontz@hiro-tan.org>
Date: Thu, 1 Aug 2024 21:06:27 +0200
Subject: [PATCH] working on :nominal-verb-with support

---
 resources/english/lexicon/rules.edn | 28 ++++++++++++++++++++++++++++
 resources/english/lexicon/verbs.edn |  3 +++
 2 files changed, 31 insertions(+)

diff --git a/resources/english/lexicon/rules.edn b/resources/english/lexicon/rules.edn
index 2b1d76eb8..06bd8fe1c 100644
--- a/resources/english/lexicon/rules.edn
+++ b/resources/english/lexicon/rules.edn
@@ -99,6 +99,17 @@
   :if {:cat :verb
        :adjectival-verb? ::unspec}
   :then [{:adjectival-verb? true}]}
+
+ {:rule :nominal-verb-with-none
+  :if {:cat :verb
+       :nominal-verb-with ::unspec}
+  :then [{:nominal-verb-with :none
+          :nominal-verb? false}]}
+
+ {:rule :nominal-verb-true
+  :if {:cat :verb
+       :nominal-verb? ::unspec}
+  :then [{:nominal-verb? true}]}
  
  {:rule :intransitive-only-default-false
   :if {:cat :verb
@@ -492,6 +503,23 @@
                          :phrasal? false
                          :canonical with-adjective}
                      :3 []}}])}
+
+ {:rule :nominal-arg-verbs ;; "have lunch"
+  :if {:cat :verb
+       :nominal-verb? true}
+  :then (let [subj (atom :top)
+              with-noun (atom :top)]
+          [{:nominal-verb-with with-noun
+            :reflexive? false
+            :sem {:obj :none
+                  :iobj :none
+                  :subj subj}
+            :subcat {:1 {:sem subj}
+                     :2 {:cat :noun
+                         :subcat []
+                         :phrasal? false
+                         :canonical with-noun}
+                     :3 []}}])}
  
  {:rule :ditransitive-verbs ;; "gives" in "she gives it to her"
   :if {:cat :verb
diff --git a/resources/english/lexicon/verbs.edn b/resources/english/lexicon/verbs.edn
index 412dbbc13..8a63b1e74 100644
--- a/resources/english/lexicon/verbs.edn
+++ b/resources/english/lexicon/verbs.edn
@@ -443,6 +443,7 @@
              {:aux? false
               :reflexive? false
               :sense 4
+              :nominal-verb-with "dinner"
               :sem {:subj subj
                     :pred :have-dinner
                     :obj :none}
@@ -459,6 +460,7 @@
              {:aux? false
               :reflexive? false
               :sense 5
+              :nominal-verb-with "fun"           
               :sem {:subj subj
                     :pred :have-fun
                     :obj :none}
@@ -476,6 +478,7 @@
              {:aux? false
               :reflexive? false
               :sense 6
+              :nominal-verb-with "lunch"
               :sem {:subj subj
                     :pred :have-lunch
                     :obj :none}