diff options
author | Micael Karlberg <[email protected]> | 2010-12-02 21:02:12 +0100 |
---|---|---|
committer | Micael Karlberg <[email protected]> | 2010-12-02 21:02:12 +0100 |
commit | 5210341783f4c3ca9611c7ea5e630fde4d067f10 (patch) | |
tree | 2dd08a6c2b45f0c33b12c7be2fbfb3ca0b1d223f /lib/snmp/src/compile/snmpc_tok.erl | |
parent | bd7410308177659ad15c770d6d4700219bbe6978 (diff) | |
download | otp-5210341783f4c3ca9611c7ea5e630fde4d067f10.tar.gz otp-5210341783f4c3ca9611c7ea5e630fde4d067f10.tar.bz2 otp-5210341783f4c3ca9611c7ea5e630fde4d067f10.zip |
Really time to go home checkin.
Diffstat (limited to 'lib/snmp/src/compile/snmpc_tok.erl')
-rw-r--r-- | lib/snmp/src/compile/snmpc_tok.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/snmp/src/compile/snmpc_tok.erl b/lib/snmp/src/compile/snmpc_tok.erl index 6b99e7ae43..e238b256d0 100644 --- a/lib/snmp/src/compile/snmpc_tok.erl +++ b/lib/snmp/src/compile/snmpc_tok.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2009. All Rights Reserved. +%% Copyright Ericsson AB 1996-2010. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -37,6 +37,8 @@ -export([null_get_line/0, format_error/1, terminate/2, handle_call/3, init/1, test/0]). +-include("snmpc_lib.hrl"). + %%---------------------------------------------------------------------- %% Reserved_words: list of KeyWords. Example: ['IF', 'BEGIN', ..., 'GOTO'] @@ -130,6 +132,10 @@ test() -> 'current','deprecated','not-accessible','obsolete', 'read-create','read-only','read-write', 'IMPORTS', 'FROM', 'MODULE-COMPLIANCE', + 'AGENT-CAPABILITIES', + 'PRODUCT-RELEASE', + 'SUPPORTS', + 'INCLUDES', 'DisplayString', 'PhysAddress', 'MacAddress', @@ -225,6 +231,7 @@ get_all_tokens(Str,Toks) -> case catch tokenise(Str) of {error, ErrorInfo} -> {error, ErrorInfo}; {Token, RestChars} when is_tuple(Token) -> + %% ?vtrace("get_all_tokens -> Token: ~p", [Token]), get_all_tokens(RestChars, [Token|Toks]) end. |