GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 12:08:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

extend the names API

Browse Source
This commit is contained in:
Krasimir Angelov
2023-02-07 08:47:34 +01:00
parent a6faaeb351
commit 828bf9c677
33 changed files with 182 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/slovenian/ParadigmsSlv.gf
+41
View File
@@ -16,6 +16,9 @@ oper
feminine = AFem;
neuter = ANeut;
male = Male ;
female = Female ;
singular : Number = Sg ;
dual : Number = Dl ;
plural : Number = Pl ;
@@ -200,6 +203,44 @@ oper
};
} ;
mkGN = overload {
mkGN : Str -> Sex -> GN =
\s,g -> lin GN {
s = \\_ => s ;
g = g
};
mkGN : (_,_,_,_,_,_ : Str) -> Sex -> GN =
\nom,gen,dat,acc,loc,instr,g -> lin GN {
s = table {
Nom => nom;
Gen => gen;
Dat => dat;
Acc => acc;
Loc => loc;
Instr => instr
};
g = g
};
} ;
mkSN = overload {
mkSN : Str -> SN =
\s -> lin SN {
s = \\_,_ => s
};
mkPN : (_,_,_,_,_,_ : Str) -> SN =
\nom,gen,dat,acc,loc,instr -> lin SN {
s = \\_ => table {
Nom => nom;
Gen => gen;
Dat => dat;
Acc => acc;
Loc => loc;
Instr => instr
}
};
} ;
mkV = overload {
mkV : (inf : Str) -> V = \v -> regV v (dp 2 v) ;
mkV : (inf,stem : Str) -> V = regV ;