github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-25 03:35:21 +00:00
Code Issues Projects Releases Wiki Activity

change strtol:parse/2 to return a standard {ok,Result} 2-tuple

Browse Source
This commit is contained in:
Mikael Pettersson
2019-08-14 17:57:27 +02:00
parent ce0595ef44
commit 180fcbc1b9
3 changed files with 15 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
erlang/apps/od/src/od.erl
View File

@@ -1,7 +1,7 @@
%%% -*- erlang-indent-level: 2 -*-
%%%
%%% 'od' clone for files with 9-bit bytes
%%% Copyright (C) 2013-2018 Mikael Pettersson
%%% Copyright (C) 2013-2019 Mikael Pettersson
%%%
%%% This file is part of pdp10-tools.
%%%
@@ -139,7 +139,7 @@ parse_radix(String) ->
parse_bytes(String) ->
case strtol:parse(String, 0) of
{ok, Value, Rest} ->
{ok, {Value, Rest}} ->
Value * parse_multiplier(Rest);
{error, _Reason} ->
escript_runtime:fatal("invalid number '~s'\n", [String])
@@ -178,7 +178,7 @@ parse_size(String, OutputType, Opts) ->
[$L | Rest] -> parse_z(Rest, 4, OutputType, Opts);
_ ->
case strtol:parse(String, 10) of
{ok, Size, Rest} when Size =:= 1; Size =:= 2; Size =:= 4 ->
{ok, {Size, Rest}} when Size =:= 1; Size =:= 2; Size =:= 4 ->
parse_z(Rest, Size, OutputType, Opts);
_ -> escript_runtime:fatal("invalid type size '~s'\n", [String])
end