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

generalize infinitive_form

Browse Source
This commit is contained in:
krangelov committed 2021-04-27 10:06:12 +02:00
1 parent 85282418a7
commit 617cb25f1e
3 files changed
+7 -8
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/polish/VerbMorphoPol.gf
+5 -6
View File
@@ -493,14 +493,14 @@ resource VerbMorphoPol = ResPol ** open Prelude, CatPol, (Predef=Predef), (Adj=A
}
};
infinitive_form : Verb -> Bool -> Polarity -> Str;
infinitive_form verb imienne pol =
infinitive_form : Verb -> Bool -> Polarity -> GenNum -> Str;
infinitive_form verb imienne pol gn =
case imienne of {
True =>
let byc = case verb.asp of { Perfective => "zostać"; _ => "być" }; in
case pol of {
Pos => byc ++ (mkAtable (table2record verb.pparti))! AF MascPersSg Nom;
Neg => "nie" ++ byc ++ (mkAtable (table2record verb.pparti))! AF MascPersSg Nom
Pos => byc ++ (mkAtable (table2record verb.pparti))! AF gn Nom;
Neg => "nie" ++ byc ++ (mkAtable (table2record verb.pparti))! AF gn Nom
};
False =>
let sie = verb.refl; in
@@ -509,8 +509,7 @@ resource VerbMorphoPol = ResPol ** open Prelude, CatPol, (Predef=Predef), (Adj=A
Neg => "nie" ++ verb.si ! VInfM ++ sie
}
};
badz_op : Number * Person => Str = table {
<Sg, P1> => ["niech będę"];
<Sg, P2> => ["bądź"];