make MorphoPol usable as an API

This commit is contained in:
Krasimir Angelov
2023-01-20 18:52:06 +01:00
parent 7085acacc9
commit 14cabc847a
9 changed files with 61 additions and 70 deletions
+4 -4
View File
@@ -98,12 +98,12 @@
mkNGender = overload {
-- 1 string
mkNGender : Str -> Gender -> N = \sgnom,gender ->
let ntable : SubstForm => Str = guess_paradigm_basic sgnom in
lin N (NM.mkN ntable gender) ;
let ntable : SubstForm => Str = guess_paradigm_basic sgnom
in NM.mkN ntable gender ;
-- 2 string
mkNGender : Str -> Str -> Gender -> N = \sgnom,sggen,gender ->
let ntable : SubstForm => Str = guess_paradigm sgnom in
lin N (NM.mkN ntable gender) ;
let ntable : SubstForm => Str = guess_paradigm sgnom
in NM.mkN ntable gender ;
};
guess_paradigm = overload {