From ebb3abad9f13de52dc7f26af3a65af3cb64f4acc Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 13 Nov 2015 17:28:11 +0000 Subject: now by default the app shows glosses for the words for which we have something. this requires one more step in the App compilation which is described in the README --- src/ui/android/glosses.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/ui/android/glosses.hs (limited to 'src/ui/android/glosses.hs') diff --git a/src/ui/android/glosses.hs b/src/ui/android/glosses.hs new file mode 100644 index 000000000..0bb3c8af0 --- /dev/null +++ b/src/ui/android/glosses.hs @@ -0,0 +1,19 @@ +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 -- cgit v1.2.3