github/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck synced 2025-08-14 02:27:30 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Made unquoted $(..) check more robust

Browse source
This commit is contained in:
Vidar Holen 2012-11-26 21:52:47 -08:00
commit 7025ebd633
1 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
ShellCheck/Analytics.hs
View file

@ -32,6 +32,7 @@ checks = concat [
map runBasicAnalysis basicChecks
,[subshellAssignmentCheck]
,[checkSpacefulness]
,[checkUnquotedExpansions]
]
runAllAnalytics = checkList checks
@ -43,7 +44,6 @@ basicChecks = [
,checkPipePitfalls
,checkForInQuoted
,checkForInLs
,checkUnquotedExpansions
,checkRedirectToSame
,checkShorthandIf
,checkDollarStar
@ -81,7 +81,6 @@ willSplit x =
T_Literal _ s -> isGlob s
_ -> False
isGlob str = any (`elem` str) "*?"
makeSimple (T_NormalWord _ [f]) = f
@ -189,11 +188,21 @@ checkForInLs (T_ForIn _ f [T_NormalWord _ [T_DollarExpansion id [x]]] _) =
checkForInLs _ = return ()
prop_checkUnquotedExpansions = verify checkUnquotedExpansions "rm $(ls)"
checkUnquotedExpansions (T_SimpleCommand _ _ cmds) = mapM_ check cmds
where check (T_NormalWord _ [T_DollarExpansion id _]) = warn id "Quote the expansion to prevent word splitting."
check _ = return ()
checkUnquotedExpansions _ = return ()
prop_checkUnquotedExpansions1 = verifyFull checkUnquotedExpansions "rm $(ls)"
prop_checkUnquotedExpansions2 = verifyFull checkUnquotedExpansions "rm foo$(date)"
prop_checkUnquotedExpansions3 = verifyFull checkUnquotedExpansions "[ $(foo) == cow ]"
prop_checkUnquotedExpansions4 = verifyNotFull checkUnquotedExpansions "[[ $(foo) == cow ]]"
prop_checkUnquotedExpansions5 = verifyNotFull checkUnquotedExpansions "for f in $(cmd); do echo $f; done"
checkUnquotedExpansions t metaMap =
runBasicAnalysis check t metaMap
where
tree = getParentTree t
msg id = warn id "Quote this to prevent word splitting."
check (T_NormalWord _ l) = mapM_ check' l
check _ = return ()
check' t@(T_DollarExpansion id _) = unless (inUnquotableContext tree t) $ msg id
check' _ = return ()
prop_checkRedirectToSame = verify checkRedirectToSame "cat foo > foo"
prop_checkRedirectToSame2 = verify checkRedirectToSame "cat lol | sed -e 's/a/b/g' > lol"