36 lines
984 B
Haskell
36 lines
984 B
Haskell
|
import qualified System.IO
|
||
|
|
|
||
|
|
import Registry.Utils
|
||
|
|
import Registry.Grammar (registry)
|
||
|
|
import Registry.Registry
|
||
|
|
|
||
|
|
infile = "./language-subtag-registry"
|
||
|
|
|
||
|
|
displayAll reg thistype =
|
||
|
|
(foldr (++) "" (map toString
|
||
|
|
(filter (onlyThisType thistype) reg)))
|
||
|
|
|
||
|
|
displayOne reg thistype thisvalue =
|
||
|
|
concat (map toString
|
||
|
|
(filter (onlyThisValue thistype thisvalue) reg))
|
||
|
|
|
||
|
|
toTextFile reg thetype = do
|
||
|
|
-- TODO: add the date in the filename
|
||
|
|
let outfile = "lsr-" ++ thetype ++ ".txt"
|
||
|
|
f <- System.IO.openFile (outfile) System.IO.WriteMode
|
||
|
|
System.IO.hPutStr f (displayAll reg thetype)
|
||
|
|
System.IO.hClose f
|
||
|
|
|
||
|
|
foreach [] func = return ()
|
||
|
|
foreach a func = do
|
||
|
|
func (head a)
|
||
|
|
foreach (tail a) func
|
||
|
|
|
||
|
|
main = do
|
||
|
|
f <- System.IO.openFile (infile) System.IO.ReadMode
|
||
|
|
input <- System.IO.hGetContents f
|
||
|
|
let theregistry = getRegistry input
|
||
|
|
foreach ["language", "script", "region", "variant", "redundant", "grandfathered"]
|
||
|
|
(toTextFile theregistry)
|
||
|
|
|