diff --git a/src/morphodict/MorphoDictFin.config b/src/morphodict/MorphoDictFin.config new file mode 100644 index 00000000..df8456c7 --- /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 a59e6caa..6585abb2 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 00000000..1beec848 --- /dev/null +++ b/src/morphodict/MorphoDictFinAbs.header @@ -0,0 +1,4 @@ +abstract MorphoDictFinAbs = + Cat [N,A,V,Adv,Prep] ** +{ +