added NamesIna

This commit is contained in:
Krasimir Angelov
2024-10-22 20:26:18 +02:00
parent 6dfce2943c
commit 89dc2a13f0
4 changed files with 70 additions and 4 deletions
+6 -2
View File
@@ -185,8 +185,12 @@ oper
-- cnN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ;
--
mkPN : Str -> PN = regGenPN;
mkLN : Str -> LN = \s -> lin LN {s=s};
mkLN = overload {
mkLN : Str -> LN = \s -> lin LN {s=s; n=Sg; art=False};
mkLN : Str -> Number -> LN = \s,n -> lin LN {s=s; n=n; art=False};
} ;
mkGN : Str -> Sex -> GN = \s,g -> lin GN {s=s; g=g};
mkSN = overload {
mkSN : Str -> SN = \s -> lin SN {s=\\_ => s; pl=s};