mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-26 11:36:27 -06:00
refactored adjectives in StemFin to get correct tags in tagged/
This commit is contained in:
@@ -125,6 +125,9 @@ param
|
||||
|
||||
oper
|
||||
SAdj = {s : SAForm => Str ; h : Harmony} ;
|
||||
SAdjFull = {s : Degree => SAForm => Str ; h : Harmony} ;
|
||||
|
||||
sAdjFull2nforms : Degree -> SAdjFull -> NForm => Str = \d,a -> (snoun2nounSep {s = \\nc => a.s ! d ! sAN nc ; h = a.h}).s ;
|
||||
|
||||
snoun2sadj : SNoun -> SAdj = snoun2sadjComp True ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user