GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

added missig functions

Browse Source
This commit is contained in:
Krasimir Angelov
2025-10-25 08:20:33 +02:00
parent 35a650141e
commit 1aed4c3b5f
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/basque/CatEus.gf
View File

@@ -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

11
src/basque/ParadigmsEus.gf
View File

@@ -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} ;
--.
-------------------------------------------------------------------------------