parser-c 0.3.0

Macros for parser-c.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

{-# LANGUAGE PatternSignatures, RankNTypes #-}
-- Example demonstrating how link the AST back to the source code,
-- using a simple heuristic
module Main where
import System.Environment
import System.Exit
import System.IO
import Control.Monad ()
import Control.Monad.Error as Err
import Data.List
import Text.PrettyPrint.HughesPJ
import Data.Tree
import Data.Maybe (fromMaybe)
--import Debug.Trace


import Language.C              -- simple API
import Language.C.Data.Node
import GenericTree
import SourceBrowser

usageMsg :: String -> String
usageMsg prg = render $
  text "Usage:" <+> text prg <+> hsep (map text ["input_file.i"])
errorOnLeftM :: (MonadError e m, Err.Error e, Show a) => String -> m (Either a b) -> m b
errorOnLeftM msg action = either (throwError . strMsg . showWith) return =<< action
    where showWith s = msg ++ ": " ++ (show s)

main :: IO ()
main = do
    let usageErr = (hPutStrLn stderr (usageMsg "./Annotate") >> exitWith (ExitFailure 1))
    -- get command line arguments
    args <- getArgs
    c_file <- case args of
                [a1] -> return a1
                _    -> usageErr
    -- parse the file
    ast <- errorOnLeftM "Parse Error" (parseCFilePre c_file)
    -- split the AST by input file
    let groups = groupAstBySourceFile ast
    -- show the generic tree
    putStrLn . drawTree . fmap show . (uncurry treeView) $ last groups
    -- run the source view
    runGTK (map (uncurry treeView) groups) c_file

groupAstBySourceFile :: CTranslUnit -> [(FilePath,CTranslUnit)]
groupAstBySourceFile (CTranslUnit decls _) = 
    map (\decls -> (fileOfNode' (head decls), CTranslUnit decls (topNodePos decls))) .
    groupBy (\a b -> (fileOfNode' a) == fileOfNode' b) $ decls
    where
    fileOfNode' = maybe "<no-file>" id  . fileOfNode
    topNodePos decls = 
        let lastDecl = nodeInfo (last decls) in
        mkNodeInfoPosLen (posOf (head decls)) (getLastTokenPos lastDecl)