msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

make mkPN more portable across languages

Browse Source
This commit is contained in:
Krasimir Angelov
2022-08-02 16:07:27 +02:00
parent a181ab36a4
commit 607f4d68ae
4 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/turkish/ParadigmsTur.gf
View File

@@ -142,6 +142,11 @@ resource ParadigmsTur = open
-- Paradigm for regular noun
regN : Str -> N ;
mkPN = overload {
mkPN : Str -> PN = regPN ;
mkPN : Str -> Str -> PN = makePN ;
} ;
-- Paradigm for proper noun
regPN : Str -> PN ;
@@ -405,7 +410,7 @@ resource ParadigmsTur = open
pln
har ;
makePN sn sy = makeHarPN sn sy (getHarmony sn) ;
makePN sn sy = lin PN (makeHarPN sn sy (getHarmony sn)) ;
linkNoun n1 n2 lt ct =
let n1sn = n1.s ! Sg ! Nom ;--tere