create or replace library socketlibrary as
'/home/oracle/utlsocks.so' ;
/


CREATE OR REPLACE PACKAGE utl_socks
AUTHID DEFINER 
AS
   function hostconnect ( host  VARCHAR2,port  BINARY_INTEGER )   return  BINARY_INTEGER
   AS LANGUAGE C
        NAME "hostconnect"
	LIBRARY socketlibrary ;

   function recvsocket (socket  BINARY_INTEGER )   return  STRING
   AS LANGUAGE C
        NAME "recvsocket"
	LIBRARY socketlibrary 
	WITH CONTEXT
	PARAMETERS ( 
	CONTEXT,  
	socket  INT ,
	RETURN INDICATOR short,  
	RETURN LENGTH short,  
	RETURN STRING); 



   procedure  socketrecv (socket in  BINARY_INTEGER, result  in out  STRING) 
   AS LANGUAGE C
        NAME "socketrecv"
	LIBRARY socketlibrary 
	WITH CONTEXT
	PARAMETERS ( 
	CONTEXT,  
	socket  INT ,
	result STRING,
	result  INDICATOR ,
--	result LENGTH,
	result MAXLEN
	);



   function socketclose( socket in  BINARY_INTEGER )   return  BINARY_INTEGER
   AS LANGUAGE C
        NAME "socketclose"
	LIBRARY socketlibrary ;


END;





--create or replace  function opensocket ( 
--host  IN VARCHAR2,
--port  IN BINARY_INTEGER)  return  BINARY_INTEGER 
--AS LANGUAGE C
--LIBRARY socketlibrary
--name "opensocket" ;