mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-29 18:48:37 -06:00
REPLACED old Russian RG completely
This commit is contained in:
Roman Suzi
@@ -1,12 +1,216 @@
|
||||
concrete ConstructionRus of Construction = CatRus **
|
||||
open SyntaxRus, ParadigmsRus, ResRus in {
|
||||
open Predef, SyntaxRus, SymbolicRus, ParadigmsRus, ResRus, Prelude,
|
||||
QuestionRus, SentenceRus, AdverbRus, AdjectiveRus, VerbRus, IdiomRus, (E=ExtendRus), (EX=ExtraRus) in {
|
||||
|
||||
lin
|
||||
hungry_VP = mkVP (mkA "голодный") ;
|
||||
thirsty_VP = mkVP want_VV (mkVP (regV imperfective firstE "пь" "ю" "пил" "пей" "пить")) ;
|
||||
tired_VP = mkVP (mkA "уставший" Rel) ;
|
||||
scared_VP = mkVP (mkV imperfective "боюсь" "боишься" "боится" "боимся" "бойтесь" "боятся" "боялся" "бойся" "бояться") ;
|
||||
ill_VP = mkVP (mkA "больной") ;
|
||||
ready_VP = mkVP (mkA "готовый") ;
|
||||
hungry_VP = mkVP (mkA "голодный" "" "1*a/c'" PrefShort) ;
|
||||
thirsty_VP = mkVP want_VV (mkVP (mkV imperfective "пить" "пью" "пьёт")) ;
|
||||
tired_VP = mkVP (mkA "усталый" "" "1*a/c'" PrefFull) ;
|
||||
scared_VP = mkVP (mkV imperfective "бояться" "боюсь" "боится") ; -- intran
|
||||
ill_VP = mkVP ( mkA "больной" "" "1*b" PrefShort) ;
|
||||
ready_VP = mkVP (mkA "готовый" "" "1a" PrefShort) ;
|
||||
|
||||
-- : NP -> QCl ; -- what is x's name / wie heisst x (Ger)
|
||||
what_name_QCl np = E.PredIAdvVP how_IAdv (ComplSlash (SlashV2a (mkV2 (mkV imperfective "звать" "зову" "зовёт") Gen)) np) ;
|
||||
|
||||
-- languages
|
||||
|
||||
lincat
|
||||
Language = N ;
|
||||
Timeunit = N ;
|
||||
Hour = Symb ;
|
||||
Weekday = N ;
|
||||
Monthday = NP ;
|
||||
Month = N ;
|
||||
Year = NP ;
|
||||
|
||||
oper
|
||||
mkLanguage = overload {
|
||||
mkLanguage : Str -> N = \s -> mkN (mkA s) masculine animate ;
|
||||
mkLanguage : Str -> Str -> N = \s,zi -> mkN s masculine inanimate zi;
|
||||
} ;
|
||||
mkHour : Str -> Symb = \s -> lin Symb {s=s} ;
|
||||
|
||||
lin
|
||||
-- : Card -> Timeunit -> Adv ; -- (for) three hours
|
||||
timeunitAdv card time = mkAdv ((mkNP <lin Card card : Card> time).s ! Nom) ;
|
||||
|
||||
-- : Card -> Card -> Timeunit -> Adv ; -- (cats live) ten to twenty years
|
||||
timeunitRange l u time = {
|
||||
-- TODO: Fancier logic. Also reqrite with applyPrep
|
||||
s = from_Prep.s ++ (mkAdv ((mkNP <lin Card l : Card> <lin N (ellNoun time) : N>).s ! from_Prep.c)).s
|
||||
++ EX.on_to_Prep.s ++ (mkAdv ((mkNP <lin Card u : Card> time).s ! EX.on_to_Prep.c)).s
|
||||
} ;
|
||||
|
||||
oneHour = mkHour "1" ;
|
||||
twoHour = mkHour "2" ;
|
||||
threeHour = mkHour "3" ;
|
||||
fourHour = mkHour "4" ;
|
||||
fiveHour = mkHour "5" ;
|
||||
sixHour = mkHour "6" ;
|
||||
sevenHour = mkHour "7" ;
|
||||
eightHour = mkHour "8" ;
|
||||
nineHour = mkHour "9" ;
|
||||
tenHour = mkHour "10" ;
|
||||
elevenHour = mkHour "11" ;
|
||||
twelveHour = mkHour "12" ;
|
||||
thirteenHour = mkHour "13" ;
|
||||
fourteenHour = mkHour "14" ;
|
||||
fifteenHour = mkHour "15" ;
|
||||
sixteenHour = mkHour "16" ;
|
||||
seventeenHour = mkHour "17" ;
|
||||
eighteenHour = mkHour "18" ;
|
||||
nineteenHour = mkHour "19" ;
|
||||
twentyHour = mkHour "20" ;
|
||||
twentyOneHour = mkHour "21" ;
|
||||
twentyTwoHour = mkHour "22" ;
|
||||
twentyThreeHour = mkHour "23" ;
|
||||
twentyFourHour = mkHour "24" ;
|
||||
|
||||
-- : Hour -> Adv ; -- at three a.m./p.m.
|
||||
timeHour h = mkAdv (in_Prep.s ++ h.s) ;
|
||||
|
||||
-- : Hour -> Card -> Adv ; -- at six forty a.m./p.m.
|
||||
timeHourMinute h card = mkAdv ((timeHour h).s ++ BIND ++ ":" ++ BIND ++ card.s ! Neut ! Inanimate ! Nom) ; -- TODO: ?
|
||||
|
||||
-- TODO: Fix the following (genders)
|
||||
-- : Weekday -> Adv ; -- on Monday
|
||||
weekdayPunctualAdv w = mkAdv (in_Prep.s ++ w.sacc) ; -- on Sunday
|
||||
-- : Weekday -> Adv ; -- on Mondays
|
||||
weekdayHabitualAdv w = mkAdv (EX.along_Prep.s ++ (w.pdat)) ; -- on Sundays
|
||||
-- : Weekday -> Adv ; -- last Monday
|
||||
weekdayLastAdv w = mkAdv (EX.to2_Prep.s ++ (PositA (mkA "прошлый")).s ! GSg Fem ! Inanimate ! Acc ++ w.sacc) ;
|
||||
-- : Weekday -> Adv ; -- next Monday
|
||||
weekdayNextAdv w = mkAdv (EX.to2_Prep.s ++ (PositA (mkA "следующий")).s ! GSg Fem ! Inanimate ! Acc ++ w.sacc) ;
|
||||
|
||||
-- : Month -> Adv ; -- in June
|
||||
monthAdv month = mkAdv ("в" ++ month.sloc) ;
|
||||
-- : Year -> Adv ; -- in 1976
|
||||
yearAdv year = mkAdv ("в" ++ year.s ! Loc) ;
|
||||
|
||||
-- : Monthday -> Month -> Adv ; -- on 17 May
|
||||
dayMonthAdv monthday month = mkAdv (monthday.s ! Gen ++ month.sgen) ;
|
||||
-- : Month -> Year -> Adv ; -- in May 2013
|
||||
monthYearAdv month year = mkAdv ("в" ++ month.sloc ++ year.s ! Gen ++ "года") ;
|
||||
-- : Monthday -> Month -> Year -> Adv ; -- on 17 May 2013
|
||||
dayMonthYearAdv monthday month year = mkAdv (monthday.s ! Gen ++ month.sgen ++ year.s ! Gen ++ "года") ;
|
||||
|
||||
-- : Int -> Year ; -- (year) 1963
|
||||
intYear = symb ;
|
||||
-- : Int -> Monthday ; -- 31th (March)
|
||||
intMonthday = symb ;
|
||||
|
||||
-- : Weekday -> N ; -- (this) Monday
|
||||
weekdayN wd = wd ;
|
||||
-- : Month -> N ; -- (this) November
|
||||
monthN month = month ;
|
||||
|
||||
-- : Weekday -> PN ; -- Monday (is free)
|
||||
weekdayPN wd = wd ;
|
||||
-- : Month -> PN ; -- March (is cold)
|
||||
monthPN month = month ;
|
||||
|
||||
-- : Card -> CN -> A -> AP ; -- x inches long
|
||||
n_units_AP card cn a =
|
||||
let ap=adjFormsAdjective a in
|
||||
let as_n_units=(how_IAdv.s
|
||||
++ card.s ! Neut ! Inanimate ! Nom
|
||||
++ cn.s ! numSizeNum card.size ! (numSizeCase card.size)) in {
|
||||
s=\\gn,anim,cas=> ap.s!gn!anim!cas ++ as_n_units ;
|
||||
short=\\a=> ap.short ! a ++ as_n_units ;
|
||||
preferShort=PrefFull ;
|
||||
isPost=True
|
||||
} ;
|
||||
-- This does not work in Russian naturally
|
||||
-- : Card -> CN -> NP -> NP ; -- x ounces of this flour
|
||||
n_units_of_NP card cn np = {
|
||||
s = \\cas => card.s ! Neut ! Inanimate ! cas
|
||||
++ cn.s ! numSizeNum card.size ! (numSizeCase card.size)
|
||||
++ np.s ! Gen ;
|
||||
pron=False ;
|
||||
a = Ag (gennum cn.g (numSizeNumber card.size)) P3
|
||||
} ;
|
||||
-- : Card -> CN -> CN -> CN ; -- x gallon bottle
|
||||
n_unit_CN card cn_unit cn = cn ** {
|
||||
s=\\n,cas=> cn.s ! n ! cas
|
||||
++ "на"
|
||||
++ card.s ! Neut ! Inanimate ! Nom
|
||||
++ cn_unit.s ! (numSizeNum card.size) ! (numSizeCase card.size)
|
||||
} ;
|
||||
|
||||
----------------------------------------------
|
||||
---- lexicon of special names
|
||||
|
||||
lin
|
||||
second_Timeunit = mkN "секунда" ;
|
||||
minute_Timeunit = mkN "минута" ;
|
||||
hour_Timeunit = mkN "час" Masc Inanimate "1c" ;
|
||||
day_Timeunit = mkN "день" masculine inanimate "2*b" ;
|
||||
week_Timeunit = mkN "неделя" Fem Inanimate "2a" ;
|
||||
month_Timeunit = mkN "месяц" Masc Inanimate "5a" ;
|
||||
year_Timeunit = lin N ((mkNplus (mkN "год")) ** {sloc="году"; pgen="лет"}) ;
|
||||
|
||||
monday_Weekday = mkN "понедельник" masculine inanimate ;
|
||||
tuesday_Weekday = mkN "вторник" masculine inanimate ;
|
||||
wednesday_Weekday = mkN "среда" feminine inanimate ;
|
||||
thursday_Weekday = mkN "четверг" masculine inanimate ;
|
||||
friday_Weekday = mkN "пятница" feminine inanimate ;
|
||||
saturday_Weekday = mkN "суббота" feminine inanimate ;
|
||||
sunday_Weekday = mkN "воскресенье" neuter inanimate ;
|
||||
|
||||
january_Month = mkN "январь" masculine inanimate;
|
||||
february_Month = mkN "февраль" masculine inanimate;
|
||||
march_Month = mkN "март" ;
|
||||
april_Month = mkN "апрель" masculine inanimate "2a";
|
||||
may_Month = mkN "май" ;
|
||||
june_Month = mkN "июнь" masculine inanimate ;
|
||||
july_Month = mkN "июль" masculine inanimate ;
|
||||
august_Month = mkN "август" ;
|
||||
september_Month = mkN "сентябрь" masculine inanimate ;
|
||||
october_Month = mkN "октябрь" masculine inanimate ;
|
||||
november_Month = mkN "ноябрь" masculine inanimate ;
|
||||
december_Month = mkN "декабрь" masculine inanimate ;
|
||||
|
||||
-- : Language -> Adv ; -- in English, auf englisch, englanniksi, etc
|
||||
lin
|
||||
InLanguage l = PrepNP on_Prep (mkNP l) ;
|
||||
languageCN l = mkCN l ;
|
||||
languageNP l = mkNP l ;
|
||||
|
||||
lin afrikaans_Language = mkLanguage "африкаанс" "1a" ;
|
||||
lin amharic_Language = mkLanguage "амхарский" ;
|
||||
lin arabic_Language = mkLanguage "арабский" ;
|
||||
lin bulgarian_Language = mkLanguage "болгарский" ;
|
||||
lin catalan_Language = mkLanguage "каталанский" ;
|
||||
lin chinese_Language = mkLanguage "китайский" ;
|
||||
lin danish_Language = mkLanguage "датский" ;
|
||||
lin dutch_Language = mkLanguage "голландский" ;
|
||||
lin english_Language = mkLanguage "английский" ;
|
||||
lin estonian_Language = mkLanguage "эстонский" ;
|
||||
lin finnish_Language = mkLanguage "финский" ;
|
||||
lin french_Language = mkLanguage "французский" ;
|
||||
lin german_Language = mkLanguage "немецкий" ;
|
||||
lin greek_Language = mkLanguage "греческий" ;
|
||||
lin hebrew_Language = mkLanguage "еврейский" ;
|
||||
lin hindi_Language = mkLanguage "хинди" "0" ;
|
||||
lin japanese_Language = mkLanguage "японский" ;
|
||||
lin italian_Language = mkLanguage "итальянский" ;
|
||||
lin latin_Language = mkLanguage "латинский" ;
|
||||
lin latvian_Language = mkLanguage "латвийский" ;
|
||||
lin maltese_Language = mkLanguage "мальтийский" ;
|
||||
lin nepali_Language = mkLanguage "непальский" ;
|
||||
lin norwegian_Language = mkLanguage "норвежский" ;
|
||||
lin persian_Language = mkLanguage "персидский" ;
|
||||
lin polish_Language = mkLanguage "польский" ;
|
||||
lin punjabi_Language = mkLanguage "панджаби" "0" ;
|
||||
lin romanian_Language = mkLanguage "румынский" ;
|
||||
lin russian_Language = mkLanguage "русский" ;
|
||||
lin sindhi_Language = mkLanguage "синдхи" "0" ;
|
||||
lin spanish_Language = mkLanguage "испанский" ;
|
||||
lin swahili_Language = mkLanguage "суахили" "0";
|
||||
lin swedish_Language = mkLanguage "шведский" ;
|
||||
lin thai_Language = mkLanguage "тайский" ;
|
||||
lin turkish_Language = mkLanguage "турецкий" ;
|
||||
lin urdu_Language = mkLanguage "урду" "0" ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user