modified scilab socket library functions

modified_scilab_sockets.sci

prot=funcprot()
funcprot(0)

function mat=SOCKET_read(id)
	mat=[];
	cmd=["set tclsocketlong 0;";
	"set response 0;";
	"while {$tclsocketlong >= 0 || $response != 1} {";
	"set tclsocketlong [gets $tclsocket"+string(id)+" tclsocketline];";
	"if {$tclsocketlong >= 0} {";
	"flush $tclsocket"+string(id)+";";
	"set response 1;";
	"ScilabEval ""mat=\[\""[string map {\"" \""\"" \'' \''\''} $tclsocketline]\"";mat\];""";
	"}";
	"}"];
	TCL_EvalStr(strcat(cmd," "));
endfunction

function mat=SOCKET_query(id,commande)
	SOCKET_write(id,commande);
	mat=SOCKET_read(id);
endfunction

funcprot(prot)