Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Annlix
ShellCheck
提交
95cfd875
S
ShellCheck
项目概览
Annlix
/
ShellCheck
与 Fork 源项目一致
Fork自
镜像 / koalaman / ShellCheck
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
S
ShellCheck
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
95cfd875
编写于
7月 23, 2015
作者:
C
Chad Brewbaker
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
cleanup
上级
0a1beb88
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
6 addition
and
6 deletion
+6
-6
ShellCheck/Analytics.hs
ShellCheck/Analytics.hs
+5
-5
shellcheck.hs
shellcheck.hs
+1
-1
未找到文件。
ShellCheck/Analytics.hs
浏览文件 @
95cfd875
...
...
@@ -376,7 +376,7 @@ dist a b
oneDiag
a
b
diagAbove
diagBelow
=
thisdiag
where
doDiag
[]
b
nw
n
w
=
[]
doDiag
a
[]
nw
n
w
=
[]
doDiag
(
ach
:
as
)
(
bch
:
bs
)
nw
n
w
=
me
:
(
doDiag
as
bs
me
(
tail
n
)
(
tail
w
)
)
doDiag
(
ach
:
as
)
(
bch
:
bs
)
nw
n
w
=
me
:
doDiag
as
bs
me
(
tail
n
)
(
tail
w
)
where
me
=
if
ach
==
bch
then
nw
else
1
+
min3
(
head
w
)
nw
(
head
n
)
firstelt
=
1
+
head
diagBelow
thisdiag
=
firstelt
:
doDiag
a
b
firstelt
diagAbove
(
tail
diagBelow
)
...
...
@@ -426,7 +426,7 @@ checkEchoSed _ (T_Pipeline id _ [a, b]) =
sedRe
=
mkRegex
"^s(.)([^
\n
]*)g?$"
isSimpleSed
s
=
fromMaybe
False
$
do
[
first
,
rest
]
<-
matchRegex
sedRe
s
let
delimiters
=
filter
(
==
(
first
!!
0
))
rest
let
delimiters
=
filter
(
==
(
head
first
))
rest
guard
$
length
delimiters
==
2
return
True
...
...
@@ -2364,7 +2364,7 @@ getModifiedVariableCommand base@(T_SimpleCommand _ _ (T_NormalWord _ (T_Literal
lastArg
<-
listToMaybe
(
reverse
arguments
)
name
<-
getLiteralString
lastArg
guard
$
isVariableName
name
return
(
base
,
lastArg
,
name
,
DataArray
$
SourceExternal
)
return
(
base
,
lastArg
,
name
,
DataArray
SourceExternal
)
getModifiedVariableCommand
_
=
[]
...
...
@@ -2837,7 +2837,7 @@ checkUnassignedReferences params t = warnings
any
(`
isPrefixOf
`
rest
)
[
"-"
,
":-"
,
"?"
,
":?"
]
where
name
=
concat
$
deadSimple
v
rest
=
dropWhile
isVariableChar
$
dropWhile
(`
elem
`
"#!"
)
$
name
rest
=
dropWhile
isVariableChar
$
dropWhile
(`
elem
`
"#!"
)
name
isGuarded
_
=
False
match
var
candidate
=
...
...
@@ -3415,7 +3415,7 @@ checkFindActionPrecedence params = checkCommand "find" (const f)
pattern
=
[
isMatch
,
const
True
,
isParam
[
"-o"
,
"-or"
],
isMatch
,
const
True
,
isAction
]
f
list
|
length
list
<
length
pattern
=
return
()
f
list
@
(
_
:
rest
)
=
if
a
ll
i
d
(
zipWith
(
$
)
pattern
list
)
if
a
n
d
(
zipWith
(
$
)
pattern
list
)
then
warnFor
(
list
!!
(
length
pattern
-
1
))
else
f
rest
isMatch
=
isParam
[
"-name"
,
"-regex"
,
"-iname"
,
"-iregex"
,
"-wholename"
,
"-iwholename"
]
...
...
shellcheck.hs
浏览文件 @
95cfd875
...
...
@@ -71,7 +71,7 @@ printErr = hPutStrLn stderr
instance
JSON
(
JsonComment
)
where
showJSON
(
JsonComment
filename
c
)
=
makeObj
[
(
"file"
,
showJSON
$
filename
),
(
"file"
,
showJSON
filename
),
(
"line"
,
showJSON
$
scLine
c
),
(
"column"
,
showJSON
$
scColumn
c
),
(
"level"
,
showJSON
$
scSeverity
c
),
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录