HSFFIG-1.1: programs/testparser.hs

module Main where

import C_Lexer
import ProcHdr
import qualified Data.Map as Map

main = do
  s <- getContents
  let shs = scanHeader s
  case (procHeader shs) of
    Right x -> (do putStrLn "Parsed Declarations"
                   mapM (putStrLn . show) (fst x)
                   putStrLn "Type Alias Map"
                   mapM (putStrLn . show) (Map.toList $ snd x))
    Left  y -> error (show y)