From fb977729a94e99b24139a946edd566d80ae37a19 Mon Sep 17 00:00:00 2001 From: Alexey Shchepin Date: Wed, 1 Dec 2004 22:48:53 +0000 Subject: * src/expat_erl.c: Now uses port control instead of port output * src/xml_stream.erl: Likewise * src/stringprep/stringprep.erl: Now register port instead of storing it in ets table * doc/guide.tex: Updated URLs to R10C release SVN Revision: 287 --- src/stringprep/stringprep.erl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/stringprep') diff --git a/src/stringprep/stringprep.erl b/src/stringprep/stringprep.erl index 58360b29..ac06a096 100644 --- a/src/stringprep/stringprep.erl +++ b/src/stringprep/stringprep.erl @@ -26,6 +26,8 @@ code_change/3, terminate/2]). +-define(STRINGPREP_PORT, stringprep_port). + -define(NAMEPREP_COMMAND, 1). -define(NODEPREP_COMMAND, 2). -define(RESOURCEPREP_COMMAND, 3). @@ -39,8 +41,7 @@ start_link() -> init([]) -> ok = erl_ddll:load_driver(ejabberd:get_so_path(), stringprep_drv), Port = open_port({spawn, stringprep_drv}, []), - ets:new(stringprep_table, [set, public, named_table]), - ets:insert(stringprep_table, {port, Port}), + register(?STRINGPREP_PORT, Port), {ok, Port}. @@ -84,8 +85,7 @@ resourceprep(String) -> control(?RESOURCEPREP_COMMAND, String). control(Command, String) -> - [{port, Port} | _] = ets:lookup(stringprep_table, port), - case port_control(Port, Command, String) of + case port_control(?STRINGPREP_PORT, Command, String) of [0 | _] -> error; [1 | Res] -> Res end. -- cgit v1.2.3