GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-02 15:13:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

helper functions to make it possible to import Polish morphology

Browse Source
This commit is contained in:
krangelov
2021-04-23 11:19:54 +02:00
parent 1131058b68
commit 6bf2555a4a
2 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/polish/AdjectiveMorphoPol.gf
+18 -3
View File
@@ -39,7 +39,6 @@ resource AdjectiveMorphoPol = ResPol ** open Prelude, (Predef=Predef) in {
-- L |4 4 4 4 7 10 10
-- (V = N)
-- oper adj11forms : Type = { s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11 : Str };
--
-- oper Adj : Type = {
@@ -113,10 +112,26 @@ resource AdjectiveMorphoPol = ResPol ** open Prelude, (Predef=Predef) in {
s1=stem + "y"; s2=stem + "ego"; s3=stem + "emu"; s4=stem + "ym";
s5=stem + "e"; s6=stem + "a"; s7=stem + "ej"; s8=stem + "ą";
s9=form9; s10=stem + "ych"; s11=stem + "ymi"
};
};
oper model_comp : Str -> adj11forms = \comp -> model4 comp ((Predef.tk 2 comp)+"i");
oper mkAForms : adj11forms -> Str -> Adj =
\pos, comp -> {
pos = pos;
comp = model_comp comp;
super = model_comp ("naj"+comp) ;
advpos = nonExist;
advcomp = nonExist;
advsuper = nonExist;
};
oper mkA = overload {
mkA : adj11forms -> Adj =
\pos -> mkAForms pos ("bardziej" ++ pos.s1) ;
mkA : adj11forms -> Str -> Adj = mkAForms ;
} ;
oper guess_model : Str -> adj11forms = \form ->
case form of {
x + ("pi"|"bi"|"fi"|"wi"|"mi"|"si"|"zi"|"ci"|"dzi"|"ni") => model1 form;