diff options
Diffstat (limited to 'src/odbc/ejabberd_odbc.erl')
| -rw-r--r-- | src/odbc/ejabberd_odbc.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/odbc/ejabberd_odbc.erl b/src/odbc/ejabberd_odbc.erl index 8227dfcb6..6ac5414ba 100644 --- a/src/odbc/ejabberd_odbc.erl +++ b/src/odbc/ejabberd_odbc.erl @@ -40,6 +40,8 @@ escape/1, escape_like/1, to_bool/1, + encode_term/1, + decode_term/1, keep_alive/1]). %% gen_fsm callbacks @@ -169,6 +171,14 @@ to_bool(true) -> true; to_bool(1) -> true; to_bool(_) -> false. +encode_term(Term) -> + escape(erl_prettypr:format(erl_syntax:abstract(Term))). + +decode_term(Str) -> + {ok, Tokens, _} = erl_scan:string(Str ++ "."), + {ok, Term} = erl_parse:parse_term(Tokens), + Term. + %%%---------------------------------------------------------------------- %%% Callback functions from gen_fsm %%%---------------------------------------------------------------------- |