forked from GitHub/gf-rgl
34 lines
955 B
Plaintext
34 lines
955 B
Plaintext
concrete AdverbSom of Adverb = CatSom ** open ResSom, ParamSom, ParadigmsSom, 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 = prepNP ;
|
|
|
|
-- Adverbs can be modified by 'adadjectives', just like adjectives.
|
|
|
|
--AdAdv : AdA -> Adv -> Adv ; -- very quickly
|
|
AdAdv ada adv = adv ** {berri = ada.s ++ adv.berri} ;
|
|
-- 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 = mkAdv (s.s ! True) ;
|
|
|
|
-- Comparison adverbs also work as numeral adverbs.
|
|
|
|
--AdnCAdv : CAdv -> AdN ; -- less (than five)
|
|
--AdnCAdv cadv = {s = } ;
|
|
} ;
|