From bf3609c0836e4f4efb50f56bc02f88bb706187c8 Mon Sep 17 00:00:00 2001
From: aarneranta <aarne@chalmers.se>
Date: Fri, 25 Sep 2020 15:00:53 +0200
Subject: [PATCH] ParadigmsEng.verbalN for default verbal nouns adding -ing to
 verbs

---
 src/english/ParadigmsEng.gf | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/english/ParadigmsEng.gf b/src/english/ParadigmsEng.gf
index 61896cba..57d623b6 100644
--- a/src/english/ParadigmsEng.gf
+++ b/src/english/ParadigmsEng.gf
@@ -99,6 +99,12 @@ oper
     mkN : Str -> N -> N -- e.g. baby + boom
   } ;
 
+--3 Verbal nouns
+--
+-- A systematic way to form a verbal noun is the ending "-ing".
+
+    verbalN : V -> N ; -- e.g. sing -> singing
+
 
 --3 Relational nouns 
 
@@ -406,6 +412,8 @@ mkInterj : Str -> Interj
 
   compoundN s n = lin N {s = \\x,y => s ++ n.s ! x ! y ; g=n.g} ;
 
+  verbalN v = regN (v.s ! VPresPart) ;
+
   mkPN = overload {
     mkPN : Str -> PN = regPN ;
     mkPN : N -> PN = nounPN