import Grammar
import System.Environment (getArgs)
import Registry.Registry

infile = "./language-subtag-registry"

analyze reg input 
        = case (getTag input) of
            Left err -> err
            Right tag  -> let result = isValid reg tag in
                          if fst result then
                              (input ++ " is valid\n") -- TODO: indicate the date of the registry
                          else
                              (input ++ " is NOT valid: " ++ snd result ++ "\n")

main = do
  myargs <- getArgs
  theregistry <- readRegistry infile
  putStr (concat (map (analyze theregistry) myargs))