summaryrefslogtreecommitdiff
path: root/next-lib/src/russian/AdjectiveRus.gf
diff options
context:
space:
mode:
Diffstat (limited to 'next-lib/src/russian/AdjectiveRus.gf')
-rw-r--r--next-lib/src/russian/AdjectiveRus.gf66
1 files changed, 0 insertions, 66 deletions
diff --git a/next-lib/src/russian/AdjectiveRus.gf b/next-lib/src/russian/AdjectiveRus.gf
deleted file mode 100644
index 23336bb98..000000000
--- a/next-lib/src/russian/AdjectiveRus.gf
+++ /dev/null
@@ -1,66 +0,0 @@
-
---# -path=.:../abstract:../common:../../prelude
-
-
-concrete AdjectiveRus of Adjective = CatRus ** open ResRus, Prelude in {
-flags coding=utf8 ;
-
- lin
-
- PositA a = { s = a.s!Posit; p = False};
- -- Comparative forms are used with an object of comparison, as
- -- adjectival phrases ("больше тебя").
-
- ComparA bolshoj tu =
- {s = \\af => bolshoj.s ! Compar ! af ++ tu.s ! (mkPronForm Gen Yes NonPoss) ;
- p = True
- } ;
-
- ---- AR 17/12/2008
- UseComparA bolshoj =
- {s = \\af => bolshoj.s ! Compar ! af ;
- p = True
- } ;
-
- ---- AR 17/12/2008
- CAdvAP ad ap np = let adp = ad.s in { ---- should be ad.p
- s = \\af => ad.s ++ ap.s ! af ++ adp ++ np.s ! (mkPronForm Gen Yes NonPoss) ;
- p = True ----?
- } ;
-
- ---- AR 17/12/2008
- AdjOrd a = {
- s = a.s ;
- p = True ---- ?
- } ;
-
--- $SuperlA$ belongs to determiner syntax in $Noun$.
-
- ComplA2 vlublen tu =
- {s = \\af => vlublen.s !Posit! af ++ vlublen.c2.s ++
- tu.s ! (mkPronForm vlublen.c2.c No NonPoss) ;
- p = True
- } ;
-
- ReflA2 vlublen =
- {s = \\af => vlublen.s !Posit! af ++ vlublen.c2.s ++ sam.s ! vlublen.c2.c;
- p = True
- } ;
-
- SentAP vlublen sent=
- {s = \\af => vlublen.s ! af ++ [", "] ++ sent.s;
- p = True
- } ;
-
-
- AdAP ada ap = {
- s = \\af => ada.s ++ ap.s ! af ;
- p = True
- } ;
-
- UseA2 a = {
- s = \\af => a.s ! Posit ! af ;
- p = True
- } ;
-}
-