runXML.hs revision 0ec1551231bc5dfdcb3f2bd68fec7457fade7bfd
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian MaederprocessFile :: String -> IO ()
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian MaederprocessFile file = do
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian Maeder s <- readFile file
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian Maeder case parseXML s of
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian Maeder elems -> putStrLn $ show (map xmlBasicSpec $ concatMap (filterElementsName $ isSmth "Ontology") $ onlyElems elems)
cadfe9e161680261ac9d3aa5bb4a0bd4518a6164Christian Maeder args <- getArgs
4844d1fc69c65efa42828b171ca46dd1a8d33790Christian Maeder mapM_ processFile args