(Eng) Add mkVoc in Paradigms, exclude from TryEng

This commit is contained in:
Inari Listenmaa
2021-08-02 09:48:45 +08:00
parent 848e3e5ceb
commit 1853365942
2 changed files with 3 additions and 1 deletions

View File

@@ -1,6 +1,6 @@
--# -path=.:../english:../common:../abstract:../prelude --# -path=.:../english:../common:../abstract:../prelude
resource TryEng = SyntaxEng-[mkAdN], LexiconEng, ParadigmsEng - [mkAdv,mkAdN,mkOrd,mkQuant] ** resource TryEng = SyntaxEng-[mkAdN], LexiconEng, ParadigmsEng - [mkAdv,mkAdN,mkOrd,mkQuant,mkVoc] **
open (P = ParadigmsEng) in { open (P = ParadigmsEng) in {
oper oper

View File

@@ -359,6 +359,8 @@ oper
mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --% mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
mkInterj : Str -> Interj mkInterj : Str -> Interj
= \s -> lin Interj (ss s) ; = \s -> lin Interj (ss s) ;
mkVoc : Str -> Voc ; -- Any other vocative expression not coming from a NP or a preconstructed Voc
mkVoc s = lin Voc (ss s) ;
--. --.
--2 Definitions of paradigms --2 Definitions of paradigms