From ac3375247bb62914d54478aae3c588536032d472 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 27 Oct 2015 21:08:26 +0100 Subject: CO stub --- tda.erl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'tda.erl') diff --git a/tda.erl b/tda.erl index 395f516..ba17d58 100644 --- a/tda.erl +++ b/tda.erl @@ -1,7 +1,7 @@ -module(tda). -export([start/0, client/1, stop/0]). --export([ext/0]). +-export([ext/0, co/0]). -define(TIMEOUT, 300000). -define(CONNECT_TIMEOUT, 3000). @@ -12,6 +12,7 @@ start() -> register(tdaPid, spawn(?MODULE, client, [{dial, ?HOST, ?PORT}])). stop() -> tdaPid ! {logout}. ext() -> tdaPid ! {ext}. +co() -> tdaPid ! {co}. client({dial, Host, Port}) -> io:format("Dial ~p:~p~n", [Host, Port]), @@ -48,6 +49,13 @@ loop(Sock) -> io:format("Send: ~p~n", [Rq]), gen_tcp:send(Sock, Rq), loop(Sock); + {co} -> + io:format("Request CO lines~n", []), + {ok, Rq} = rose:invoke({present, 2}, + {local, 51}, csta:co_lines()), + io:format("Send: ~p~n", [Rq]), + gen_tcp:send(Sock, Rq), + loop(Sock); {tcp, Sock, Msg} -> io:format("Reply ~p~n", [Msg]), case decode(Sock, Msg) of -- cgit v1.2.3