forked from GitHub/gf-core
37 lines
1.2 KiB
Plaintext
37 lines
1.2 KiB
Plaintext
-- use this path to read the grammar from the same directory
|
||
--# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/russian
|
||
|
||
--1 Functions that are not in the API, but common in Russian
|
||
--
|
||
-- Aarne Ranta, Janna Khegai 2003
|
||
resource ExtraRus = open PredicationRus, ResourceRus, ParadigmsRus, SyntaxRus in {
|
||
|
||
flags coding=utf8 ;
|
||
|
||
oper
|
||
predNeedShortAdjective: Bool -> NP -> NP -> S = \b, Jag, Dig -> { s =
|
||
let {
|
||
mne = Jag.s ! (mkPronForm Dat No NonPoss) ;
|
||
nuzhen = need.s ! AF Nom Inanimate (gNum (pgen2gen Dig.g) Dig.n) ;
|
||
doctor = Dig.s ! (mkPronForm Nom No NonPoss) ;
|
||
ne = negation b
|
||
} in
|
||
mne ++ ne ++ nuzhen ++ doctor ;
|
||
lock_S = <>
|
||
} ;
|
||
|
||
U_predTransVerb : Bool -> TV -> NP -> NP -> S =
|
||
\b,Ser,Jag,Dig -> { s =
|
||
let {
|
||
menya = Jag.s ! (mkPronForm Gen Yes NonPoss) ;
|
||
bolit = Ser.s ! VFin (gNum (pgen2gen Dig.g) Dig.n) Dig.p ;
|
||
golova = Dig.s ! (mkPronForm Nom No NonPoss) ;
|
||
ne = negation b
|
||
} in
|
||
"у" ++ menya ++ ne ++ bolit ++ golova ;
|
||
lock_S = <>
|
||
} ;
|
||
|
||
tvHave : TV = mkDirectVerb (extVerb have active present) ** { lock_TV = <>};
|
||
};
|