QPQ-AG/getopt
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #17 from tuncer/dialyzer

Browse Source 
Fix Dialyzer warnings
This commit is contained in:
Juan Jose Comellas 2012-10-05 06:01:40 -07:00
commit 0c8bc94c35
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/getopt.erl
View File

@ -660,7 +660,7 @@ tokenize_quoted_arg(_QuotationMark, CmdLine, Acc, ArgAcc) ->
tokenize(CmdLine, Acc, ArgAcc). tokenize(CmdLine, Acc, ArgAcc).
-spec expand_env_var(CmdLine :: string()) -> string(). -spec expand_env_var(CmdLine :: string()) -> {string(), string()}.
expand_env_var(CmdLine) -> expand_env_var(CmdLine) ->
case CmdLine of case CmdLine of
"${" ++ Tail -> "${" ++ Tail ->
@ -671,7 +671,7 @@ expand_env_var(CmdLine) ->
expand_env_var("%", $%, Tail, []) expand_env_var("%", $%, Tail, [])
end. end.
-spec expand_env_var(Prefix :: string(), EndMark :: char(), CmdLine :: string(), Acc :: string()) -> string(). -spec expand_env_var(Prefix :: string(), EndMark :: char(), CmdLine :: string(), Acc :: string()) -> {string(), string()}.
expand_env_var(Prefix, EndMark, [Char | Tail], Acc) expand_env_var(Prefix, EndMark, [Char | Tail], Acc)
when (Char >= $A andalso Char =< $Z) orelse (Char >= $a andalso Char =< $z) orelse when (Char >= $A andalso Char =< $Z) orelse (Char >= $a andalso Char =< $z) orelse
(Char >= $0 andalso Char =< $9) orelse (Char =:= $_) -> (Char >= $0 andalso Char =< $9) orelse (Char =:= $_) ->
@ -682,7 +682,7 @@ expand_env_var(Prefix, _EndMark, CmdLine, Acc) ->
{CmdLine, Prefix ++ lists:reverse(Acc)}. {CmdLine, Prefix ++ lists:reverse(Acc)}.
-spec expand_env_var(Prefix :: string(), CmdLine :: string(), Acc :: string()) -> string(). -spec expand_env_var(Prefix :: string(), CmdLine :: string(), Acc :: string()) -> {string(), string()}.
expand_env_var(Prefix, [Char | Tail], Acc) expand_env_var(Prefix, [Char | Tail], Acc)
when (Char >= $A andalso Char =< $Z) orelse (Char >= $a andalso Char =< $z) orelse when (Char >= $A andalso Char =< $Z) orelse (Char >= $a andalso Char =< $z) orelse
(Char >= $0 andalso Char =< $9) orelse (Char =:= $_) -> (Char >= $0 andalso Char =< $9) orelse (Char =:= $_) ->