forked from GitHub/gf-rgl
39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
concrete AdverbSom of Adverb = CatSom ** open ResSom, ParamSom, Prelude in {
|
|
|
|
lin
|
|
|
|
-- : A -> Adv ;
|
|
--PositAdvAdj adj = { } ;
|
|
|
|
-- : CAdv -> A -> NP -> Adv ; -- more warmly than John
|
|
-- ComparAdvAdj cadv a np = { } ;
|
|
|
|
-- ComparAdvAdjS : CAdv -> A -> S -> Adv ; -- more warmly than he runs
|
|
|
|
-- : Prep -> NP -> Adv ;
|
|
PrepNP prep np = {s = prep.s ! np.a ; s2 = np.s ! Abs} ; ---- ?
|
|
|
|
-- Adverbs can be modified by 'adadjectives', just like adjectives.
|
|
|
|
--AdAdv : AdA -> Adv -> Adv ; -- very quickly
|
|
AdAdv ada adv = adv ** { s = ada.s ++ adv.s } ;
|
|
-- Like adverbs, adadjectives can be produced by adjectives.
|
|
|
|
-- : A -> AdA ; -- extremely
|
|
-- PositAdAAdj a = { } ;
|
|
-- Subordinate clauses can function as adverbs.
|
|
|
|
-- : Subj -> S -> Adv ;
|
|
-- SubjS subj s = {} ;
|
|
|
|
-- Comparison adverbs also work as numeral adverbs.
|
|
|
|
--AdnCAdv : CAdv -> AdN ; -- less (than five)
|
|
--AdnCAdv cadv = {s = } ;
|
|
} ;
|
|
|
|
{-
|
|
gt PrepNP in_Prep (DetCN (DetQuant DefArt ?) (UseN ?) | l -bind
|
|
gt PrepNP from_Prep (DetCN (DetQuant DefArt ?) (UseN ?)) | l -bind
|
|
-}
|