GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

adverbs at_home, from_home in Eng,Fin,Swe ; display categories in ParseFin ; some corrections in Fin and Swe Dict

Browse Source
This commit is contained in:
aarne
2013-12-09 15:08:09 +00:00
parent a0583ef688
commit c4ac0bd0f7
6 changed files with 60 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/finnish/DictEngFin.gf
View File

@@ -8433,9 +8433,9 @@ choc_N = mkWN (k17 "suklaa") ; --UNCHK
chock_Adv = mkWAdv (k99 "kukkuroillaan") ; --UNCHK
chock_N = mkWN (k9 "kiila") ; --UNCHK
chock_V2 = mkWV2 (k53A "pönkittää") ; --UNCHK
chocolate_N = mkWN (k10 "umbra") "poltettu" ; --UNCHK
chocolate_N = mkN "suklaa" ;
choice_A = mkWA (k38 "erinomainen") ; --UNCHK
choir_N = mkWN (kH1 "kuori") ; --UNCHK
choir_N = mkN "kuoro" ; ---ARB mkWN (kH1 "kuori") ; --UNCHK
choir_school_N = mkWN (compoundN "katedraali" (k1 "koulu")) ; --UNCHK
choirboy_N = mkWN (compoundN "kuori" (k10A "poika")) ; --UNCHK
choirmaster_N = mkWN (k6 "kanttori") ; --UNCHK
@@ -16752,7 +16752,7 @@ faucal_A = mkWA "nielu-" ; --UNCHK
fauces_N = mkWN (k1 "nielu") ; --UNCHK
faucet_N = mkWN (k9 "hana") ; --UNCHK
fauld_N = mkWN (k1 "levy") ; --UNCHK
fault_N = mkWN (k10 "moka") ; --UNCHK
fault_N = mkN "virhe" ;
fault_V2 = mkWV2 (k61A "moittia") ; --UNCHK
faultfinding_N = mkWN (k39 "nalkutus") ; --UNCHK
faultless_A = mkWA (k34A "nuhteeton") ; --UNCHK
@@ -25744,7 +25744,7 @@ lick_N = mkWN (k5 "tälli") ; --UNCHK
lick_V = mkWV (k53A "rökittää") ; --UNCHK
lick_V2 = mkWV2 (k53A "rökittää") ; --UNCHK
licking_N = mkWN (k39 "löylytys") ; --UNCHK
licorice_N = mkWN (k1 "laku") ; --UNCHK
licorice_N = mkN "lakritsi" ;
lidar_N = mkWN (compoundN "lidar-mitta" (k48A "laite")) ; --UNCHK
lidded_A = mkWA (k10 "oleva") "puoliummessa" ; --UNCHK
lidless_A = mkWA "kanneton" ; --UNCHK
@@ -28468,7 +28468,7 @@ missy_N = mkWN (k38 "neitonen") ; --UNCHK
mist_N = mkWN (k1A "utu") ; --UNCHK
mist_V = mkWV (k52A "sumentua") ; --UNCHK
mist_V2 = mkWV2 (k52A "sumentua") ; --UNCHK
mistake_N = mkWN (k10 "moka") ; --UNCHK
mistake_N = mkN "erehdys" ;
mistake_V = mkWV (k71 "tehdä") "virhe" ; --UNCHK
mistake_V2 = mkWV2 (k71 "tehdä") "virhe" ; --UNCHK
mister_N = mkWN (k9 "herra") ; --UNCHK
@@ -43758,7 +43758,7 @@ storeyed_A = mkWA (k38 "kerroksinen") ; --UNCHK
storied_A = mkWA (k41A "värikäs") ; --UNCHK
stork_N = mkWN (k12 "haikara") ; --UNCHK
storksbill_N = mkWN (k5A "pielikki") ; --UNCHK
storm_N = mkWN (k4A "rynnäkkö") ; --UNCHK
storm_N = mkN "myrsky" ; ---ARB mkWN (k4A "rynnäkkö") ;
storm_V = mkWV (k73A "rynnätä") ; --UNCHK
storm_V2 = mkWV2 (k73A "rynnätä") ; --UNCHK
storm_centre_N = mkWN (compoundN "myrsky" (k39 "keskus")) ; --UNCHK
@@ -57063,4 +57063,10 @@ wow_Interj = mkInterj "vau" ;
yeah_Interj = mkInterj "yess" ;
yes_Interj = mkInterj "kyllä" ;
-- other stuff
at_home_Adv = mkAdv "kotona" ;
from_home_Adv = mkAdv "kotoa" ;
home_Adv = mkAdv "kotiin" ;
}

18
lib/src/finnish/stemmed/ParseFin.gf
View File

@@ -128,5 +128,23 @@ lin
-- insertObj (\\_,b,a => infVPGen pol.p v.sc b a vps v.vi) (predSV v) ** {c2 = v.c2} ; --- or vps.c2 ??
--in Verb, SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash
lincat
NDisplay = {s : NForm => Str} ;
ADisplay = {s : Degree => NForm => Str} ;
VDisplay = {s : VForm => Str} ;
lin
DisplayN n = snoun2nounSep n ;
DisplayA a = {
s = table {
Posit => (snoun2nounSep {s = \\f => a.s ! Posit ! sAN f ; h = a.h}).s ;
Compar => (snoun2nounSep {s = \\f => a.s ! Compar ! sAN f ; h = a.h}).s ;
Superl => (snoun2nounSep {s = \\f => a.s ! Superl ! sAN f ; h = a.h}).s
}
} ;
DisplayV v = sverb2verbSep v ;
}