GaBuZoMeu/check-wf.hs

17 lines
465 B
Haskell
Raw Permalink Normal View History

2023-06-08 21:49:35 +02:00
import Grammar
import System.Environment (getArgs)
analyze language input
= case (parse language "" input) of
Left err -> (input ++ " is NOT well-formed: " ++ (show err) ++
"\n")
Right x -> (input ++ " is well-formed\n")
main = do
myargs <- getArgs
putStr (concat (map (analyze tag) myargs))
2023-10-01 15:56:20 +02:00
-- We do not set return code since it is possible that some are well-formed and some are not.
2023-06-08 21:49:35 +02:00