aboutsummaryrefslogtreecommitdiffstats
path: root/lib/parsetools/src
diff options
context:
space:
mode:
authorKostis Sagonas <[email protected]>2010-02-12 18:06:35 +0100
committerBjörn Gustavsson <[email protected]>2010-02-16 13:24:55 +0100
commit3117c771e07d8bfee5c3141aabfbc3902c65323b (patch)
tree4ad018b13ee1fd596d8cb4ed33e76bc58fa11193 /lib/parsetools/src
parent08e2d74ac0957a1a274be359d50d601a21d3ef0d (diff)
downloadotp-3117c771e07d8bfee5c3141aabfbc3902c65323b.tar.gz
otp-3117c771e07d8bfee5c3141aabfbc3902c65323b.tar.bz2
otp-3117c771e07d8bfee5c3141aabfbc3902c65323b.zip
parsetools: Modernize types and specs
Diffstat (limited to 'lib/parsetools/src')
-rw-r--r--lib/parsetools/src/yeccparser.erl13
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/parsetools/src/yeccparser.erl b/lib/parsetools/src/yeccparser.erl
index 1bd922ce5c..7cadb0a68d 100644
--- a/lib/parsetools/src/yeccparser.erl
+++ b/lib/parsetools/src/yeccparser.erl
@@ -36,21 +36,20 @@ line_of(Token) ->
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The parser generator will insert appropriate declarations before this line.%
--type(yecc_ret() :: {'error', _} | {'ok', _}).
+-type yecc_ret() :: {'error', _} | {'ok', _}.
--spec(parse/1 :: (_) -> yecc_ret()).
+-spec parse(_) -> yecc_ret().
parse(Tokens) ->
yeccpars0(Tokens, false).
--spec(parse_and_scan/1 ::
- ({function() | {atom(), atom()}, [_]} | {atom(), atom(), [_]}) ->
- yecc_ret()).
+-spec parse_and_scan({function() | {atom(), atom()}, [_]} | {atom(), atom(), [_]}) ->
+ yecc_ret().
parse_and_scan({F, A}) -> % Fun or {M, F}
yeccpars0([], {F, A});
parse_and_scan({M, F, A}) ->
yeccpars0([], {{M, F}, A}).
--spec(format_error/1 :: (any()) -> [char() | list()]).
+-spec format_error(any()) -> [char() | list()].
format_error(Message) ->
case io_lib:deep_char_list(Message) of
true ->
@@ -62,7 +61,7 @@ format_error(Message) ->
% To be used in grammar files to throw an error message to the parser
% toplevel. Doesn't have to be exported!
-compile({nowarn_unused_function,{return_error,2}}).
--spec(return_error/2 :: (integer(), any()) -> no_return()).
+-spec return_error(integer(), any()) -> no_return().
return_error(Line, Message) ->
throw({error, {Line, ?MODULE, Message}}).