From e89fdae2fa1626348d8025824a7469252fa85e42 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Jun 2009 15:39:08 +0000 Subject: next-lib renamed to lib, lib to old-lib --- next-lib/src/russian/AdjectiveRus.gf | 66 ------------------------------------ 1 file changed, 66 deletions(-) delete mode 100644 next-lib/src/russian/AdjectiveRus.gf (limited to 'next-lib/src/russian/AdjectiveRus.gf') 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 - } ; -} - -- cgit v1.2.3