7x31
/
shellcheck
mirror of https://github.com/koalaman/shellcheck.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added error for cat << (foo)

This commit is contained in:
Vidar Holen 2012-11-28 19:21:11 -08:00
parent 5d408875f1
commit 8cf899300d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ShellCheck/Parser.hs
View File

@ -735,10 +735,15 @@ readHereDoc = do
let stripLiteral (T_Literal _ x) = x let stripLiteral (T_Literal _ x) = x
stripLiteral (T_SingleQuoted _ x) = x stripLiteral (T_SingleQuoted _ x) = x
fid <- getNextId fid <- getNextId
pos <- getPosition
try $ string "<<" try $ string "<<"
dashed <- (char '-' >> return True) <|> return False dashed <- (char '-' >> return True) <|> return False
tokenPosition <- getPosition tokenPosition <- getPosition
spacing sp <- spacing
optional $ do
try . lookAhead $ char '('
let message = "Shells are space sensitive. Use '< <(cmd)', not '<<" ++ sp ++ "(cmd)'."
parseProblemAt pos ErrorC message
hid <- getNextId hid <- getNextId
(quoted, endToken) <- (readNormalLiteral >>= (\x -> return (False, stripLiteral x)) ) (quoted, endToken) <- (readNormalLiteral >>= (\x -> return (False, stripLiteral x)) )
<|> (readDoubleQuotedLiteral >>= return . (\x -> (True, stripLiteral x))) <|> (readDoubleQuotedLiteral >>= return . (\x -> (True, stripLiteral x)))