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

prepositional verbs bootstrapped for DictionaryFin

Browse Source
This commit is contained in:
aarne
2014-12-07 17:26:16 +00:00
parent 34e3431c32
commit 98558d85e7
3 changed files with 1452 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/translator/CheckDict.hs
View File

@@ -2,7 +2,7 @@ import qualified Data.Map
import qualified Data.Set
import Data.List
langs = words "Bul Chi Dut Eng Fin Fre Ger Hin Ita Spa Swe"
langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Spa Swe"
-- apply a function to every line, changing it to a list
changeLinesLang :: (String -> [String]) -> String -> IO ()

1450
lib/src/translator/DictionaryFin.gf
View File

File diff suppressed because it is too large Load Diff

2
lib/src/translator/PrepVerb.hs
View File

@@ -31,7 +31,7 @@ advV s = "advV " ++ s
v2V v = "(lin V " ++ v ++ "_V2) "
getPrepsAdvs lang = do
mkPrepVerbDict lang = do
rs <- readFile ("Dictionary" ++ lang ++ ".gf") >>= return . lines
let dict = M.fromList [(f,unwords r) | "lin":f:"=":r <- map words rs]
let look x = maybe ("","variants {} ;") (\r -> ("--DD ",r)) (M.lookup x dict)