工程提交

4G/code/lib/socket.lua

@@ -0,0 +1,121 @@
+--- 模块功能：数据链路激活、SOCKET管理(创建、连接、数据收发、状态维护)
+-- @module socket
+-- @author openLuat
+-- @license MIT
+-- @copyright openLuat
+-- @release 2017.9.25
+require "socket4G"
+module(..., package.seeall)
+
+--- SOCKET 是否有可用
+-- @return 可用true,不可用false
+socket.isReady = link.isReady
+local tSocketModule = nil
+local function init()
+    tSocketModule = tSocketModule or {
+        [link.CELLULAR] = socket4G,
+        [link.CH395] = socketCh395,
+        [link.W5500] = socketW5500,
+        [link.ESP8266] = socketESP8266
+    }
+end
+--- 创建基于TCP的socket对象
+-- @bool[opt=nil] ssl 是否为ssl连接，true表示是，其余表示否
+-- @table[opt=nil] cert ssl连接需要的证书配置，只有ssl参数为true时，此参数才有意义，cert格式如下：
+-- {
+--     caCert = "ca.crt", --CA证书文件(Base64编码 X.509格式)，如果存在此参数，则表示客户端会对服务器的证书进行校验；不存在则不校验
+--     clientCert = "client.crt", --客户端证书文件(Base64编码 X.509格式)，服务器对客户端的证书进行校验时会用到此参数
+--     clientKey = "client.key", --客户端私钥文件(Base64编码 X.509格式)
+--     clientPassword = "123456", --客户端证书文件密码[可选]
+-- }
+-- @table[opt=nil] tCoreExtPara 建立链接扩展参数，4G链接和ch395链接所需扩展参数不一样
+-- @bool[ipv6=nil] ipv6 是否为ipv6连接，true表示是，其余表示否
+-- @return client，创建成功返回socket客户端对象；创建失败返回nil
+-- @usage
+-- c = socket.tcp()
+-- c = socket.tcp(true)
+-- c = socket.tcp(true, {caCert="ca.crt"})
+-- c = socket.tcp(true, {caCert="ca.crt", clientCert="client.crt", clientKey="client.key"})
+-- c = socket.tcp(true, {caCert="ca.crt", clientCert="client.crt", clientKey="client.key", clientPassword="123456"})
+
+function tcp(ssl, cert, tCoreExtPara, ipv6)
+    init()
+    return tSocketModule[link.getNetwork()].tcp(ssl, cert, tCoreExtPara, ipv6)
+end
+--- 创建基于UDP的socket对象
+-- @bool[ipv6=nil] ipv6 是否为ipv6连接，true表示是，其余表示否
+-- @return client，创建成功返回socket客户端对象；创建失败返回nil
+-- @usage c = socket.udp()
+function udp(ipv6)
+    init()
+    return tSocketModule[link.getNetwork()].udp(ipv6)
+end
+--- 设置TCP层自动重传的参数
+-- @number[opt=4] retryCnt 重传次数；取值范围0到12
+-- @number[opt=16] retryMaxTimeout 限制每次重传允许的最大超时时间(单位秒)，取值范围1到16
+-- @return nil
+-- @usage
+-- setTcpResendPara(3,8)
+-- setTcpResendPara(4,16)
+function setTcpResendPara(retryCnt, retryMaxTimeout)
+    init()
+    return tSocketModule[link.getNetwork()].setTcpResendPara(retryCnt, retryMaxTimeout)    
+end
+
+--- 设置域名解析参数
+-- 注意：0027以及之后的core版本才支持此功能
+-- @number[opt=4] retryCnt 重传次数；取值范围1到8
+-- @number[opt=4] retryTimeoutMulti 重传超时时间倍数，取值范围1到5
+--                第n次重传超时时间的计算方式为：第n次的重传超时基数*retryTimeoutMulti，单位为秒
+--                重传超时基数表为{1, 1, 2, 4, 4, 4, 4, 4}
+--                第1次重传超时时间为：1*retryTimeoutMulti 秒
+--                第2次重传超时时间为：1*retryTimeoutMulti 秒
+--                第3次重传超时时间为：2*retryTimeoutMulti 秒
+--                ...........................................
+--                第8次重传超时时间为：8*retryTimeoutMulti 秒
+-- @return nil
+-- @usage
+-- socket.setDnsParsePara(8,5)
+function setDnsParsePara(retryCnt, retryTimeoutMulti)
+    init()
+    return tSocketModule[link.getNetwork()].setDnsParsePara(retryCnt, retryTimeoutMulti)
+end
+
+--- 打印所有socket的状态
+-- @return 无
+-- @usage socket.printStatus()
+function printStatus()
+    init()
+    return tSocketModule[link.getNetwork()].printStatus()
+end
+
+--- 设置数据传输后，允许进入休眠状态的延时时长
+-- 3024版本以及之后的版本才支持此功能
+-- 此功能设置的参数，设置成功后，掉电会自动保存
+-- @number tm 数据传输后，允许进入休眠状态的延时时长，单位为秒，取值范围1到20
+--             注意：此时间越短，允许进入休眠状态越快，功耗越低；但是在某些网络环境中，此时间越短，可能会造成数据传输不稳定
+--                   建议在可以接受的功耗范围内，此值设置的越大越好
+--                   如果没有设置此参数，此延时时长是和基站的配置有关，一般来说是10秒左右
+-- @return nil
+-- @usage
+-- socket.setLowPower(5)
+function setLowPower(tm)
+    init()
+    return tSocketModule[link.getNetwork()].setLowPower(tm)
+end
+
+
+--- 设置IP数据流量统计上报间隔
+-- 此功能设置的参数，设置成功后，掉电不会保存，每次开机，应用脚本需要重新设置
+-- @number interval IP数据流量统计上报间隔，单位为秒，建议取值不要小于60秒；0表示关闭此功能，默认为0
+-- @return nil
+-- @usage
+-- socket.setIpStatis(60)
+-- 每隔60秒会通过sys.publish("LIB_IP_STATIS_RPT", dataFlow)
+-- 应用脚本通过sys.subscribe("LIB_IP_STATIS_RPT", function(dataFlow)
+--                 --自行处理interval间隔内，新增的数据流量dataFlow，单位字节
+--             end)
+function setIpStatis(interval)
+    init()
+    return tSocketModule[link.getNetwork()].setIpStatis(interval or 0)
+end