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

Hrv: first words in Lexicon to test Lang

Browse Source
This commit is contained in:
Aarne Ranta
2022-09-29 10:06:03 +02:00
parent 54713a2987
commit 235fd0570f
2 changed files with 8 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
src/croatian/LexiconHrv.gf
View File

@@ -7,58 +7,13 @@ concrete LexiconHrv of Lexicon =
lin
boy_N = mkN "chlapec" ;
man_N = mkN "muž" ;
teacher_N = mkN "učiteľ" ;
horse_N = mkN "kôň" ;
father_N = mkN "otec" ;
husband_N = mkN "manžel" ;
castle_N = mkN "hrad" ;
forest_N = mkN "les" ;
machine_N = mkN "stroj" ;
cat_N = mkN "mačka" ;
black_A = mkA "crni" ;
love_V2 = mkV2 (mkV "voljeti" "volim" "volio") ;
see_V2 = mkV2 (mkV "vidjeti" "vidim" "vidio") ;
walk_V = mkV "hodati" ;
man_N = mkN "čovjek" ;
woman_N = mkN "žena" ;
school_N = mkN "učilište" ;
skirt_N = mkN "sukňa";
street_N = mkN "ulica" ;
rose_N = mkN "ruže" ;
song_N = mkN "pieseň" ;
bed_N = mkN "posteľ" ;
{-
door_N = mkN "dveře" ;
bone_N = declKOST "kost" ;
village_N = declKOST "ves" ; ----
city_N = declMESTO "město" ;
apple_N = declMESTO "jablko" ; ----
sea_N = declMORE "moře" ;
airport_N = declMORE "letiště" ;
chicken_N = declKURE "kuře" ;
house_N = declSTAVENI "stavení" ; --- building, house
station_N = declSTAVENI "nádraží" ;
young_A = mkA "mladý" ;
old_A = mkA "starý" ;
good_A = mkA "dobrý" ;
bad_A = mkA "špatný" ;
beautiful_A = mkA "krásný" ;
clean_A = mkA "čistý" ;
dirty_A = mkA "špinavý" ;
-}
--- from Google translate dictionary
white_A = mkA "biely" ;
black_A = mkA "čierny" ;
red_A = mkA "červený" ;
brown_A = mkA "hnedý" ;
blue_A = mkA "modrý" ; --- belasý
green_A = mkA "zelený" ;
yellow_A = mkA "žltý" ;
---- buy_V2 = mkV2 (iii_kupovatVerbForms "kupovať") ;
---- love_V2 = mkV2 (iii_kupovatVerbForms "milovať") ;
}

2
src/croatian/ResHrv.gf
View File

@@ -380,6 +380,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
vel + "ao" => vel + "l" ;
vel + "ak" => voicing vel + "k" ;
vel + "a" + k@? => vel + k ;
vel + "i" => vel ;
_ => velik
}
in {
@@ -415,6 +416,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
smartVerbForms : Str -> VerbForms = \s -> case s of {
cit + "ati" => aeiVerbForms s (cit + "am") (cit + "ao") ;
vid + "jeti" => aeiVerbForms s (vid + "im") (vid + "io") ;
radi + "ti" => aeiVerbForms s (init radi + "em") (radi + "o") ;
_ => Predef.error ("expect infinitive form \"-ti\", found" ++ s)
} ;