7x31/shellcheck
1
0
Fork 0
mirror of https://github.com/koalaman/shellcheck.git synced 2025-08-07 22:38:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

Parse the shebang separately

Browse Source
This commit is contained in:
Vidar Holen
2012-12-02 12:02:29 -08:00
parent 8c1ab0c9b6
commit 3c2d9557e0
2 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ShellCheck/Parser.hs
View File

@@ -1335,16 +1335,24 @@ wtf = do
x <- many anyChar
parseProblem ErrorC x
readShebang = do
try $ string "#!"
str <- anyChar `reluctantlyTill` oneOf "\r\n"
optional $ carriageReturn
linefeed
return str
readScript = do
id <- getNextId
sb <- option "" readShebang
do {
allspacing;
commands <- readTerm;
eof <|> (parseProblem ErrorC "Parsing stopped here because of parsing errors.");
return $ T_Script id commands;
return $ T_Script id sb commands;
} <|> do {
parseProblem WarningC "Couldn't read any commands.";
return $ T_Script id $ [T_EOF id];
return $ T_Script id sb $ [T_EOF id];
}
rp p filename contents = Ms.runState (runParserT p initialState filename contents) ([], [])