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

Oridnal numerals added ; many fixes

Browse Source
This commit is contained in:
Roman Suzi
2020-08-08 20:30:28 +03:00
parent bbbe9bbb03
commit c0734bdfbb
25 changed files with 4061 additions and 425 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/russian/ParadigmsRus.gf
+14 -10
View File
@@ -30,7 +30,7 @@ oper
short : ShortFormPreference
= PrefShort ;
full : ShortFormPreference
= PrefFull ;
= PreferFull ;
-- Animacy is needed for nouns and some pronouns.
animate : Animacy
@@ -132,14 +132,15 @@ oper
ShortenA : A -> A ;
-- Two-place adjectives need a preposition and a case as extra arguments.
-- Two-place adjectives need a preposition
-- TODO: ? mkA2 : A -> Str -> Case -> A2 ; -- "делим на"
mkA2 : A -> Prep -> A2 ;
mkA2 : overload {
mkA2 : A -> Prep -> A2 ;
} ;
mkOrd : overload {
mkOrd : (nom : Str) -> Ord ;
} ;
} ;
-------------------------
--2 Verbs
@@ -275,7 +276,7 @@ oper
mkA : Str -> Str -> A
= \nom, comp -> lin A ((guessAdjectiveForms nom) ** {comp=comp}) ;
mkA : Str -> Str -> Str -> A
= \nom, comp, zi -> lin A (makeAdjectiveForms nom comp zi PrefFull) ;
= \nom, comp, zi -> lin A (makeAdjectiveForms nom comp zi PreferFull) ;
mkA : Str -> Str -> Str -> ShortFormPreference -> A
= \nom, comp, zi, spf -> lin A (makeAdjectiveForms nom comp zi spf) ;
} ;
@@ -285,14 +286,17 @@ oper
-- Two-place adjectives need a preposition and a case as extra arguments.
-- TODO: ? mkA2 : A -> Str -> Case -> A2 ; -- "делим на"
mkA2 : A -> Prep -> A2
= \a,p -> lin A2 (a ** {c = p}) ;
mkA2 = overload {
mkA2 : A -> Prep -> A2
= \a,p -> lin A2 (a ** {c = p}) ;
mkA2 : A -> Str -> Case -> A2
= \a,p,cas -> lin A2 (a ** {c = mkPrep p cas}) ;
} ;
mkOrd = overload {
mkOrd : (nom : Str) -> Ord
= \nom -> lin Ord (guessAdjectiveForms nom) ;
} ;
} ;
-------------------------
-- Verbs