(Pes) Add zero-width non-joiner + mkN in ParadigmsPes

This commit is contained in:
Inari Listenmaa
2019-02-04 10:44:44 +01:00
parent 19d4934671
commit 7cb2298b55
2 changed files with 27 additions and 11 deletions
+5 -1
View File
@@ -60,8 +60,12 @@ resource ResPes = ParamX ** open Prelude,Predef in {
contrNeg : Bool -> Polarity -> CPolarity = \b,p -> case p of {
Pos => CPos ;
Neg => CNeg b
} ;
} ;
-- Zero-width non-joiner, used for certain morphemes
-- See https://en.wikipedia.org/wiki/Persian_alphabet#Word_boundaries
ZWNJ : Str = "" ;
zwnj : Str -> Str -> Str = \s1,s2 -> s1 + ZWNJ + s2 ;
-----------------------
--- Verb Phrase
-----------------------