{- |
Module : ./OWL2/scripts/runManchester.hs
Copyright : (c) Felix Gabriel Mance
License : GPLv2 or higher, see LICENSE.txt
Maintainer : f.mance@jacobs-university.de
Stability : provisional
Portability : portable
script for running the manchester syntax parsing
-}
import System.Environment
import OWL2.ManchesterParser
import OWL2.Print ()
import OWL2.ManchesterPrint ()
import Common.DocUtils
import Common.Parsec
import Text.ParserCombinators.Parsec
processFile :: String -> IO ()
processFile file = do
str <- readFile file
case runParser (basicSpec << eof) () file str of
Right o -> print o
Left err -> print err
main :: IO ()
main = do
args <- getArgs
mapM_ processFile args