From e7f620fc608c31fe3e35c6b4d2acee96d147ce2a Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 4 Jun 2021 11:07:23 +0800
Subject: [PATCH] (Morphodict) Improvements in Fin config + header

---
 src/morphodict/MorphoDictFin.config    | 6 ++++++
 src/morphodict/MorphoDictFin.header    | 5 ++++-
 src/morphodict/MorphoDictFinAbs.header | 4 ++++
 3 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 src/morphodict/MorphoDictFin.config
 create mode 100644 src/morphodict/MorphoDictFinAbs.header

diff --git a/src/morphodict/MorphoDictFin.config b/src/morphodict/MorphoDictFin.config
new file mode 100644
index 000000000..df8456c7e
--- /dev/null
+++ b/src/morphodict/MorphoDictFin.config
@@ -0,0 +1,6 @@
+N : N mkN 0 1 2 4 7 13 14 16 17 19
+A : A mkA' 0 1 2 4 7 13 14 16 17 19
+V : V mkV  0 17 19 22 43 49 23 25 31 58 94 37
+V2 : V mkV 0 17 19 22 43 49 23 25 31 58 94 37
+Adv : Adv mkAdv 0
+Prep : Prep mkPrep 0
\ No newline at end of file
diff --git a/src/morphodict/MorphoDictFin.header b/src/morphodict/MorphoDictFin.header
index a59e6caad..6585abb22 100644
--- a/src/morphodict/MorphoDictFin.header
+++ b/src/morphodict/MorphoDictFin.header
@@ -7,4 +7,7 @@ concrete MorphoDictFin of MorphoDictFinAbs = CatFin ** open
 
 -- extracted from http://kaino.kotus.fi/sanat/nykysuomi/, licensed under LGPL
 
-flags coding = utf8 ;
\ No newline at end of file
+flags coding = utf8 ;
+
+oper mkA' : (x1,_,_,_,_,_,_,_,_,x10 : Str) -> A = \a,b,c,d,e,f,g,h,i,j -> mkA (mkN a b c d e f g h i j) ; -- Need a single worst-case paradigm for how config is implemented
+
diff --git a/src/morphodict/MorphoDictFinAbs.header b/src/morphodict/MorphoDictFinAbs.header
new file mode 100644
index 000000000..1beec8486
--- /dev/null
+++ b/src/morphodict/MorphoDictFinAbs.header
@@ -0,0 +1,4 @@
+abstract MorphoDictFinAbs =
+  Cat [N,A,V,Adv,Prep] **
+{
+