msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-01-30 16:01:15 +00:00
parent 45d0484894
commit c1e4f8ba84
10 changed files with 388 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
grammars/health/ExtraRus.gf
View File

@@ -9,11 +9,11 @@ resource ExtraRus = open ResourceRus, Prelude, SyntaxRus in {
flags coding=utf8 ;
oper
predNeedShortAdjective: Bool -> NP -> CN -> S = \b, Jag, Dig -> { s =
predNeedShortAdjective: Bool -> NP -> NP -> S = \b, Jag, Dig -> { s =
let {
mne = Jag.s ! (mkPronForm Dat No NonPoss) ;
nuzhen = need.s ! AF Nom Inanimate (gNum Dig.g Sg) ;
doctor = Dig.s ! Sg ! Nom ;
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 ;