From 1aed4c3b5fdc7ccd69342b99a4616e2606236f4b Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sat, 25 Oct 2025 08:20:33 +0200 Subject: [PATCH] added missig functions --- src/basque/CatEus.gf | 2 +- src/basque/ParadigmsEus.gf | 11 +++++++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/src/basque/CatEus.gf b/src/basque/CatEus.gf index 28687c0c..cc982df0 100644 --- a/src/basque/CatEus.gf +++ b/src/basque/CatEus.gf @@ -121,7 +121,7 @@ concrete CatEus of Cat = CommonX ** open ResEus, Prelude in { N = ResEus.Noun ; N2 = ResEus.Noun2 ; N3 = ResEus.Noun3 ; - PN = ResEus.PNoun ; + PN,LN,GN,SN = ResEus.PNoun ; linref diff --git a/src/basque/ParadigmsEus.gf b/src/basque/ParadigmsEus.gf index 4bbce1da..c2146107 100644 --- a/src/basque/ParadigmsEus.gf +++ b/src/basque/ParadigmsEus.gf @@ -42,7 +42,10 @@ oper } ; mkPN : Str -> PN = \s -> lin PN (mkPNoun s) ; - + mkLN : Str -> LN = \s -> lin LN (mkPNoun s) ; + mkGN : Str -> GN = \s -> lin GN (mkPNoun s) ; + mkSN : Str -> SN = \s -> lin SN (mkPNoun s) ; + mkN2 = overload { mkN2 : Str -> N2 = \s -> lin N2 (mkNoun2 s genitive) ; mkN2 : Str -> Case -> N2 = \s,cas -> lin N2 (mkNoun2 s cas) ; @@ -101,7 +104,7 @@ oper mkV2A : Str -> V2A = \s -> lin V2A (mkVerbDu s) ; -- Nor-nork mkVQ : Str -> VQ = \s -> lin VQ (mkVerbDu s) ; -- Nor-nork mkVS : Str -> VS = \s -> lin VS (mkVerbDu s) ; -- Nor-nork - + mkVV : V -> VV = \v -> v ; mkV2V : Str -> V2V = \s -> lin V2V (mkVerbDio s) ; -- ??? TODO check valency mkV2S : Str -> V2S = \s -> lin V2S (mkVerbDio s) ; -- Nor-nori-nork: (mutilari) (neska datorrela) erantzun diot @@ -154,6 +157,10 @@ oper mkAdA : Str -> AdA = \s -> lin AdA {s = s} ; + oper mkAdN : Str -> AdN = \s -> lin AdN {s=s} ; + + oper mkInterj : Str -> Interj = \s -> lin Interj {s=s} ; + oper mkVoc : Str -> Voc = \s -> lin Voc {s=s} ; --. -------------------------------------------------------------------------------