{- |
Module      :  $Header$
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
