refactored adjectives in StemFin to get correct tags in tagged/

2016-09-22 06:33:43 +00:00
parent 9c4cb67da8
commit 58df464c6a
5 changed files with 18 additions and 8 deletions
@@ -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 ;