nikolz (Все сообщения пользователя)

function OnClose() fconnect=nil end
function OnConnected(flag) fconnect=1; end
function OnDisconnected() fconnect=1      end
function OnStop(flag)  fconnect=nil;return 2000 end

function OnTransReply(t)
   local stat=t.status; if stat<2 or stat==3 or sta==15 then  return; end 
   local c,s=t.class_code,t.sec_code;   
        if c~=c_old or s_old~=s then    tc=Tclas[c] if tc then ts=tc[s] end  end
   if ts then -
      local id=t.trans_id;
      local tt=ts[1]; del_trans(tt,id,M); 
      tt=ts[2]; del_trans(tt,id,M);  
   end
end

function OnTrade(t)
   local c,s=t.class_code,t.sec_code; if c~=clas or sec~=s then    tc=Tclas[c] if tc then ts=tc[s] end  end
   if ts then  tpr[Ntp]={Trade,t,tc,ts} EvSet(event);  end
end

function OnOrder(t)
   local c,s=t.class_code,t.sec_code;
   if c~=c_old or S~=s_old then  tc=Tclas[c] if tc then ts=tc[s] end  end
   if ts then
      local tt=ts[1];    local num=t.order_num;     local id=t.trans_id;
      local M=tt[0]; if M<0 then M=-M; end
      local i=0 while M>i do i=i+1; if tt[i]==id then break; end i=i+1 end
      if t.flags&1==1 then if M==i then Nor=Nor+1; tt[i]=Nor; end
      else tt[i]=nil; end 
      Ntp=Ntp+1; tpr[Ntp]={Order,t,tc,ts} EvSet(event);
   end
end

function OnQuote(c,s)
   if c~=c_old or S~=s_old then  tc=Tclas[c] if tc then ts=tc[s] end  end
   if ts then  local t={c,s}; Ntp=Ntp+1; tpr[Ntp]={Quote,t,tc,ts}
   if 3>Ntp then EvSet(event);  end
   end
end

function OnTrade(t)  tpr[#tpr+1]={"trade",t} EvSet(event); end
function OnOrder(t) tpr[#tpr+1]={"order",t} EvSet(event);end
function OnAllTrade(t) tpr[#tpr+1]={"AllTrade",t}  EvSet(event);end