summaryrefslogtreecommitdiff
path: root/grammars/health/ExtraRus.gf
diff options
context:
space:
mode:
Diffstat (limited to 'grammars/health/ExtraRus.gf')
-rw-r--r--grammars/health/ExtraRus.gf36
1 files changed, 0 insertions, 36 deletions
diff --git a/grammars/health/ExtraRus.gf b/grammars/health/ExtraRus.gf
deleted file mode 100644
index 0db3c7616..000000000
--- a/grammars/health/ExtraRus.gf
+++ /dev/null
@@ -1,36 +0,0 @@
--- 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 = <>};
-};