GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 19:48:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

first version of MorphoDictHrv extracted from wiktionary; TODO better use of PN and V forms

Browse Source
This commit is contained in:
Aarne Ranta
2022-10-12 10:11:12 +02:00
parent 8755f9da65
commit c20e9b6383
6 changed files with 21937 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/croatian/ResHrv.gf
+4 -4
View File
@@ -338,12 +338,12 @@ voicing : Str -> Str = \s -> case s of {
msins : Str ; -- nsins, pdat, ploc, pins = msins
fsins : Str ; -- no o/e variation like in msdat
mpnom : Str ; -- mpvoc = mpnom
pgen : Str ; --
mpgen : Str ; --
} ;
invarAdjForms : Str -> AdjForms = \s -> {
msnom, fsnom, nsnom, msgen, fsgen, msdat,
fsdat, fsacc, msins, fsins, mpnom, pgen = s ;
fsdat, fsacc, msins, fsins, mpnom, mpgen = s ;
} ;
-- used in PositA but will also work in Compar and Superl by calling their record fields
@@ -368,7 +368,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
| <Pl,Dat|Loc|Ins, _> => afs.msins ;
<Sg, Ins, Fem> => afs.fsins ;
<Pl, Nom|Voc, Masc _> => afs.mpnom ;
<Pl, Gen,_> => afs.pgen
<Pl, Gen,_> => afs.mpgen
}
} ;
@@ -395,7 +395,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
msins = velk + "im" ;
fsins = velk + "om" ;
mpnom = velk + "i" ;
pgen = velk + "ih" ;
mpgen = velk + "ih" ;
} ;
regComparAForms : AdjForms -> AdjForms