GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 11:08:35 -06:00
Code Issues Packages Projects Releases Wiki Activity

refactored adjectives in StemFin to get correct tags in tagged/

Browse Source
This commit is contained in:
aarne
2016-09-22 06:33:43 +00:00
parent 9c4cb67da8
commit 58df464c6a
5 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/finnish/tagged/StemFin.gf
+4
View File
@@ -49,6 +49,10 @@ oper
oper
SAForm : Type = SNForm ;
SAdj : Type = SNoun ;
SAdjFull = {s : Degree => SAForm => Str ; h : Harmony} ;
sAdjFull2nforms : Degree -> SAdjFull -> NForm => Str = \d,a ->
\\nf => tagWord (adjectiveTag ++ consTag (tagDegree d) (tagNForm nf)) (a.s ! Posit ! 0) ; ---- order diff from UD
snoun2sadj : SNoun -> SAdj = snoun2sadjComp True ;