mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
33 lines
786 B
Haskell
33 lines
786 B
Haskell
lang1 = "Eng"
|
|
lang2 = "Gre"
|
|
|
|
-- to write a comparison for two languages
|
|
|
|
main = do
|
|
ss1 <- readFile (exx lang1) >>= return . lines
|
|
ss2 <- readFile (exx lang2) >>= return . lines
|
|
mkExx (ss1, ss2)
|
|
|
|
exx lang = "api-examples-" ++ lang ++ ".txt"
|
|
|
|
mkExx sss = case sss of
|
|
(s1:ss1,s2:ss2) | isMsg s1 -> mkExx (ss1,s2:ss2)
|
|
(s1:ss1,s2:ss2) | isMsg s2 -> mkExx (s1:ss1,ss2)
|
|
(s1:ss1,s2:ss2) | s1 /= s2 ->
|
|
putStrLn (drops s1) >> putStrLn (drops s2) >> putStrLn [] >> mkExx (ss1,ss2) -- show strings
|
|
(s1:ss1,s2:ss2) | s1 == s2 && not (isJunk s1) ->
|
|
putStrLn (drops s1) >> mkExx (ss1,ss2) -- show the term
|
|
(s1:ss1,s2:ss2) | s1 == s2 -> mkExx (ss1,ss2)
|
|
_ -> return ()
|
|
|
|
isMsg s = case s of
|
|
'>':_ -> False
|
|
_ -> True
|
|
|
|
drops = drop 4
|
|
|
|
isJunk s = any (flip elem s) "*-"
|
|
|
|
|
|
|