Finnish attempto started

1 files changed, 13 insertions, 0 deletions

diff --git a/next-lib/src/finnish/MakeStructuralFin.gf b/next-lib/src/finnish/MakeStructuralFin.gf
new file mode 100644
index 000000000..2c32709cb
--- /dev/null
+++ b/next-lib/src/finnish/MakeStructuralFin.gf
@@ -0,0 +1,13 @@
+--# -path=.:../common:../abstract
+
+resource MakeStructuralFin = open CatFin, ParadigmsFin, MorphoFin, Prelude in {
+
+oper 
+  mkConj : Str -> Str -> Number -> Conj = \x,y,n -> 
+    {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
+  mkSubj : Str -> Subj = \x -> 
+    {s = x ; lock_Subj = <>} ;
+  mkIQuant : Str -> IQuant = \s ->
+    {s = \\n,c => s ; lock_IQuant = <>} ; ----
+
+}