mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 00:39:32 -06:00
20 lines
601 B
Haskell
20 lines
601 B
Haskell
import SG
|
|
|
|
main = do
|
|
ls <- fmap lines $ readFile "../../../lib/src/translator/Dictionary.gf"
|
|
writeFile "assets/glosses.txt" (unlines ["<"++fn++",gloss,"++show gloss++">" | Just (fn,gloss) <- map gloss ls])
|
|
|
|
gloss l =
|
|
case words l of
|
|
("fun":fn:_) -> case dropWhile (/='\t') l of
|
|
'\t':l -> Just (fn,l)
|
|
_ -> Nothing
|
|
_ -> Nothing
|
|
|
|
test = do
|
|
db <- openSG "semantics.db"
|
|
ls <- fmap lines $ readFile "assets/glosses.txt"
|
|
inTransaction db $
|
|
sequence_ [insertTriple db s p o | Just (s,p,o) <- map readTriple ls]
|
|
closeSG db
|