mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
55 lines
970 B
Haskell
55 lines
970 B
Haskell
-- runghc Globes.hs >globe.dot
|
|
-- circo -Tsvg globe.dot >globe.svg
|
|
|
|
main = do
|
|
putStrLn $ graph languages
|
|
|
|
graph langs = unlines $[
|
|
"digraph {",
|
|
"node [shape = oval] ;",
|
|
"edge [dir = none] ;"
|
|
-- "edge [dir = both] ;"
|
|
] ++ links langs ++ [
|
|
"}"
|
|
]
|
|
|
|
links langs = [a ++ " -> " ++ b ++ " ;" | a <- langs, b <- langs, a < b] -- transfer
|
|
-- links langs = [a ++ " -> " ++ interlingua ++ " ;" | a <- langs] -- interlingua
|
|
|
|
interlingua = "Meaning"
|
|
|
|
languages = [
|
|
"afrikaans",
|
|
-- "አማርኛ",
|
|
-- "العربية",
|
|
"Български",
|
|
"català",
|
|
"中文",
|
|
"dansk",
|
|
"nederlands",
|
|
"English",
|
|
"eesti",
|
|
"suomi",
|
|
"français",
|
|
"Deutsch",
|
|
"Ελληνικά",
|
|
"हिन्दी",
|
|
"italiano",
|
|
"日本語",
|
|
-- "latina",
|
|
"latviešu",
|
|
"Malti",
|
|
"Монгол",
|
|
"नेपाली",
|
|
"norsk",
|
|
"پeرسن",
|
|
"polski",
|
|
"پنجابی",
|
|
"Русский",
|
|
"ٻولي",
|
|
"español",
|
|
"svenska",
|
|
"ไทย",
|
|
"اردو"
|
|
]
|