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

Adding Lithuanian

Browse Source
This commit is contained in:
Lojikas
2022-12-20 14:07:34 +02:00
parent f8dfc34895
commit 73a73d66d9
34 changed files with 5273 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/lithuanian/SymbolLit.gf
+49
View File
@@ -0,0 +1,49 @@
--# -path=.:../abstract:../common:../prelude
concrete SymbolLit of Symbol = CatLit ** open Prelude, ResLit in {
lin
SymbPN i = {nom= i.s; voc=i.s; dep = \\_=>i.s; gn = NeutSg; p=P3} ;
IntPN i = {nom= i.s; voc=i.s; dep = \\_=>i.s; gn = NeutSg; p=P3} ;
FloatPN i = {nom= i.s; voc=i.s; dep = \\_=>i.s; gn = NeutSg; p=P3} ;
NumPN i = {nom= i.s!Nom!(Masc Inanimate); voc=i.s!Nom!(Masc Inanimate); dep = \\_=>i.s!Nom!(Masc Inanimate); gn = NeutSg; p=P3} ;
CNIntNP cn i = {
nom= cn.s!Sg!Nom ++ i.s;
voc= cn.s!Sg!VocP ++ i.s;
dep = \\cc => cn.s !Sg !(extract_case! cc) ++ i.s;
-- gn = (accom_gennum !<NoNumAgr, cn.g, Sg>);
gn = cast_gennum !<cn.g, Sg>;
p=P3
} ;
CNNumNP cn i = {
nom= cn.s!Sg!Nom ++ i.s!Nom!(Masc Inanimate);
voc= cn.s!Sg!VocP ++ i.s!Nom!(Masc Inanimate);
dep = \\cc => cn.s !Sg !(extract_case! cc) ++ i.s!Nom!(Masc Inanimate);
gn = cast_gennum !<cn.g, Sg>;
p=P3
} ;
CNSymbNP kazdy facet xs = {
nom = (kazdy.s ! Nom ! facet.g) ++ (facet.s ! kazdy.n ! (accom_case! <kazdy.a,Nom, facet.g>)) ++ xs.s;
voc = (kazdy.s ! VocP ! facet.g) ++ (facet.s ! kazdy.n ! (accom_case! <kazdy.a,VocP,facet.g>)) ++ xs.s;
dep = \\cc => let c = extract_case! cc in
(kazdy.s ! c ! facet.g) ++ (facet.s ! kazdy.n ! (accom_case! <kazdy.a,c,facet.g>)) ++ xs.s;
gn = cast_gennum !<facet.g, kazdy.n>;
p = P3
} ;
SymbS sy = sy ;
SymbNum sy = { s = \\_,_=>sy.s; a=GenAgr; n=Pl };
SymbOrd sy = { s = \\af => sy.s ++ (mkAtable (guess_model "-ty"))!af} ;
lincat
Symb, [Symb] = SS ;
lin
MkSymb s = s ;
BaseSymb = infixSS "i" ;
ConsSymb = infixSS "," ;
}