GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

revised 200+ most frequent V2's in DictEngFin, leading to changes of patterns for most verbs.

Browse Source
This commit is contained in:
aarne
2013-03-30 10:49:41 +00:00
parent 00a789d624
commit c2f2fc66a7
6 changed files with 359 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files

512
lib/src/finnish/stemmed/DictEngFin.gf
View File

File diff suppressed because it is too large Load Diff

2
lib/src/finnish/stemmed/ElimPredef.hs
View File

@@ -2,7 +2,7 @@ import qualified Data.Set as S
-- comment out words that are predefined in another lexicon
-- runghc ElimPredef.hs <DictEngFin.gf
removeFile = "KoeFin.gf"
removeFile = "v2.txt"
removeMsg = "MANUAL"
-- also used for temporarily eliminating whatever from compilation

2
lib/src/finnish/stemmed/ParadigmsFin.gf
View File

@@ -204,6 +204,7 @@ oper
mkV2 : overload {
mkV2 : Str -> V2 ; -- predictable direct transitive
mkV2 : Str -> Case -> V2 ; -- predictable with another case
mkV2 : V -> V2 ; -- direct transitive
mkV2 : V -> Case -> V2 ; -- complement just case
mkV2 : V -> Prep -> V2 ; -- complement pre/postposition
@@ -689,6 +690,7 @@ mkVS = overload {
mkV2 = overload {
mkV2 : Str -> V2 = \s -> dirV2 (mk1V s) ;
mkV2 : Str -> Case -> V2 = \s -> caseV2 (mk1V s) ;
mkV2 : V -> V2 = dirV2 ;
mkV2 : V -> Case -> V2 = caseV2 ;
mkV2 : V -> Prep -> V2 = mk2V2 ;

10
lib/src/finnish/stemmed/StemFin.gf
View File

@@ -327,9 +327,9 @@ oper
defaultStemEnding : SNForm -> Str = \c -> case c of {
0 => "" ;
1 => "" ;
2 => "a" ;
3 => "na" ;
1 => "i" ;
2 => "ia" ;
3 => "ina" ;
4 => "ii" ;
5 => "ie" ;
6 => "ia" ;
@@ -338,11 +338,11 @@ oper
9 => "ihi"
} ;
bindIfS : SNForm -> Str = \c -> case c of {
0|1 => [] ;
0 => [] ;
_ => BIND
} ;
bindColonIfS : SNForm -> Str = \c -> case c of {
0|1 => [] ;
0 => [] ;
_ => BIND ++ ":" ++ BIND
} ;

3
lib/src/finnish/stemmed/WNKotus.gf
View File

@@ -63,7 +63,10 @@ oper
mkWV2 = overload {
mkWV2 : (_ : Str) -> V2 = \s -> mkV2 s ;
mkWV2 : (_ : VForms) -> V2 = \vf -> mkV2 (lin VK {s = vf}) ;
mkWV2 : (_ : VForms) -> Case -> V2 = \vf,c -> mkV2 (mkV (lin VK {s = vf})) c ;
mkWV2 : (_ : V) -> V2 = \v -> mkV2 v ;
mkWV2 : (_ : V) -> Case -> V2 = \v,c -> mkV2 v c ;
mkWV2 : (_ : V) -> Str -> V2 = \v,s -> mkV2 (mkV v s) ;
mkWV2 : VForms -> Str -> V2 = \vf,s -> mkV2 (mkV (mkV (lin VK {s = vf})) s) ;
} ;

8
lib/src/finnish/stemmed/log.txt
View File

@@ -88,5 +88,13 @@ Fixed obvious errors in "date" (taateli -> päivämäärä) and "force" (polttam
24 examples.
30/3
Version 9: Changed subcat's of 170 of 230 V2's (the ones with 3 occurrences or more). One hour's work. Changes in 1124
translations.
Also changed the default genitive of symbol (+n) to +in, to be uniform with the other cases. Works for words ending
in a consonant: Inteln -> Intelin. But a proper morphological analysis with dynamic lex extension is what would
really be needed.