emqx私有tcp协议服务器开发---emqx_tcp_protocol模块(3)

deliver({message, #message{payload = Payload}},PState) ->
    send(#tcp_packet_datatrans{data = Payload,length = byte_size(Payload)}, PState);
                                 
deliver({connack, Code, Msg}, PState) ->
    send(#tcp_packet_connack{code = Code, msg = Msg},PState);
deliver(pong, PState) ->send(#tcp_packet_pong{}, PState);
    
deliver(Delivery, _PState) ->{error, {not_supported_delivery, Delivery}}.
    
send(Packet,PState = #pstate{proto_ver = Ver, sendfun = Send}) ->
     
    case Send(Packet, #{version => Ver}) of
        ok ->
            trace(send, Packet),
            {ok, PState};
        {ok, Data} ->
            trace(send, Packet),
            NPState = maybe_gc_and_check_oom(iolist_size(Data), PState),
                                            
            {ok,
             inc_stats(send,
                       begin
                           case tuple_to_l