github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-07-16 10:03:08 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add support for coproc

Browse source
This commit is contained in:
Vidar Holen 2015-01-26 22:21:04 -08:00
parent 895d83afc5
commit a485482979
3 changed files with 35 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ShellCheck/AST.hs
View file

@ -123,6 +123,7 @@ data Token =
| T_WhileExpression Id [Token] [Token]
| T_Annotation Id [Annotation] Token
| T_Pipe Id String
| T_CoProc Id (Maybe String) Token
deriving (Show)
data Annotation = DisableComment Integer deriving (Show, Eq)
@ -248,6 +249,7 @@ analyze f g i =
delve (TA_Expansion id t) = dl t $ TA_Expansion id
delve (TA_Index id t) = d1 t $ TA_Index id
delve (T_Annotation id anns t) = d1 t $ T_Annotation id anns
delve (T_CoProc id var body) = d1 body $ T_CoProc id var
delve t = return t
getId t = case t of
@ -341,6 +343,7 @@ getId t = case t of
T_DollarBracket id _ -> id
T_Annotation id _ _ -> id
T_Pipe id _ -> id
T_CoProc id _ _ -> id
blank :: Monad m => Token -> m ()
blank = const $ return ()