github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-01-22 18:42:34 +00:00
Code Issues Projects Releases Wiki Activity

strtol: include Base in invalid_base errors

Browse Source
This commit is contained in:
Mikael Pettersson 2020-03-16 20:39:30 +01:00
parent 7964864840
commit de6db33f71
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
erlang/apps/lib/src/strtol.erl
View File

@ -1,7 +1,7 @@
%%% -*- erlang-indent-level: 2 -*-
%%%
%%% strtol() clone for Erlang
%%% Copyright (C) 2018-2019 Mikael Pettersson
%%% Copyright (C) 2018-2020 Mikael Pettersson
%%%
%%% This file is part of pdp10-tools.
%%%
@ -73,7 +73,7 @@ scan_base(String, Base, Minus) ->
_ when Base >= 2, Base =< 36 ->
scan_digits(String, Base, Minus);
_ ->
invalid_base()
{error, {?MODULE, {invalid_base, Base}}}
end.
scan_digits(String, Base, Minus) ->
@ -104,9 +104,6 @@ return(Rest, Value0, Minus) ->
no_digits() ->
mkerror(no_digits).
invalid_base() ->
mkerror(invalid_base).
isspace(C) ->
case C of
$\s -> true;
@ -134,6 +131,6 @@ mkerror(Tag) ->
format_error(Reason) ->
case Reason of
no_digits -> "no valid digits found";
invalid_base -> "invalid base";
{invalid_base, Base} -> io_lib:format("invalid base: ~p", [Base]);
_ -> io_lib:format("~p", [Reason])
end.