Finnish attempto started

2026-08-12 15:29:32 -06:00 · 2009-03-11 16:08:55 +00:00
parent 0ac664d147
commit 22b7e133fe
6 changed files with 159 additions and 1 deletions
@@ -0,0 +1,16 @@
+--# -path=.:../romance:../common:../abstract
+
+resource MakeStructuralIta = open CatIta, ParadigmsIta, MorphoIta, 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 ; m = Indic ; lock_Subj = <>} ;
+  mkSubjSubj : Str -> Subj = \x -> 
+    {s = x ; m = Conjunct ; lock_Subj = <>} ;
+
+  mkIQuant : Str -> IQuant = \s ->
+    {s = \\_,_,c => prepCase c ++ s ; lock_IQuant = <>} ;
+
+}