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

make the case an argument of mkPrep

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-18 09:25:01 +02:00
parent 96e9ee9994
commit 470f2cc796
2 changed files with 28 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/albanian/ParadigmsSqi.gf
+7 -15
View File
@@ -4,6 +4,11 @@ oper
singular : Number = Sg ;
plural : Number = Pl ;
nominative : Case = Nom ;
accusative : Case = Acc ;
dative : Case = Dat ;
ablative : Case = Ablat ;
oper
regN : Str -> N -- s;Indef;Nom;Sg
= \form -> case form of {
@@ -1435,22 +1440,9 @@ mkCard : Str -> Card = \s -> lin Card {s=s} ;
mkACard : Str -> ACard = \s -> lin ACard {s=s} ;
mkPredet : Str -> Predet = \s -> lin Predet {s=s} ;
mkPrep : Str -> Prep = \s -> lin Prep {
mkPrep : Str -> Case -> Prep = \s,c -> lin Prep {
s=s;
c=case s of {
"nga" => Nom;
"prej" => Ablat;
"gjatë" => Ablat;
"pas" => Ablat;
"para" => Ablat;
"prapa" => Ablat;
"midis" => Ablat;
"mes" => Ablat;
"përveç" => Ablat;
"përtej" => Ablat;
"krahas" => Ablat;
_ => Acc
}
c=c
} ;
noPrep : Prep = lin Prep {s=""; c=Acc} ;