module ShellCheck.Formatter.GCC (format) where

import ShellCheck.Interface

import ShellCheck.Formatter.Format

import Data.List

import GHC.Exts

import System.IO

format :: IO Formatter

format = return Formatter {

header = return (),

footer = return (),

onFailure = outputError,

onResult = outputAll

}

outputError file error = hPutStrLn stderr $ file ++ ": " ++ error

outputAll cr sys = mapM_ f groups

where

comments = crComments cr

groups = groupWith sourceFile comments

f :: [PositionedComment] -> IO ()

f group = do

let filename = sourceFile (head group)

result <- (siReadFile sys) filename

let contents = either (const "") id result

outputResult filename contents group

outputResult filename contents warnings = do

let comments = makeNonVirtual warnings contents

mapM_ (putStrLn . formatComment filename) comments

formatComment filename c = concat [

filename, ":",

show $ lineNo c, ":",

show $ colNo c, ": ",

case severityText c of

"error" -> "error"

"warning" -> "warning"

_ -> "note",

": ",

concat . lines $ messageText c,

" [SC", show $ codeNo c, "]"

]