msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

checked words for wsj-100 experiments

Browse Source
This commit is contained in:
aarne
2013-04-07 10:06:37 +00:00
parent 70304b45d3
commit d182ae6fce
5 changed files with 237 additions and 233 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/api/TryFin.gf
View File

@@ -1,3 +1,3 @@
--# -path=.:alltenses:prelude --# -path=.:alltenses:prelude
resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv] ; resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv,mkAdN,mkDet,mkQuant,mkPConj] ;

456
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

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

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

@@ -129,8 +129,12 @@ oper
-- Nouns where the parts are separate (should perhaps be treated as CN) -- Nouns where the parts are separate (should perhaps be treated as CN)
separateN : Str -> N -> N separateN = overload {
= \s,n -> mkN (s + "_") n ; separateN : Str -> N -> N
= \s,n -> mkN (s + "_") n ;
separateN : N -> N -> N
= \oma, asunto -> lin N {s = \\c => oma.s ! c + "_" + asunto.s ! c ; h = asunto.h} ;
} ;
-- Nouns used as functions need a case, of which the default is -- Nouns used as functions need a case, of which the default is
-- the genitive. -- the genitive.

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

@@ -3,7 +3,7 @@
concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin, StemFin in { concrete SymbolFin of Symbol = CatFin ** open Prelude, NounFin, ResFin, MorphoFin, StemFin in {
lin lin
SymbPN i = {s = \\c => i.s ++ bindIfS c ++ defaultStemEnding c ; h = Back} ; --- c SymbPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
IntPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c IntPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
FloatPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c FloatPN i = {s = \\c => i.s ++ bindColonIfS c ++ defaultStemEnding c ; h = Back} ; --- c
NumPN i = {s = \\c => i.s!Sg!Nom ; h = Back} ; --- c NumPN i = {s = \\c => i.s!Sg!Nom ; h = Back} ; --- c