317 lines
12 KiB
Lua
317 lines
12 KiB
Lua
|
--- 模块功能：配置管理-序列号、IMEI、底层软件版本号、时钟、是否校准、飞行模式、查询电池电量等功能
|
|||
|
|
-- @module misc
|
|||
|
|
-- @author openLuat
|
|||
|
|
-- @license MIT
|
|||
|
|
-- @copyright openLuat
|
|||
|
|
-- @release 2017.10.20
|
|||
|
|
require "ril"
|
|||
|
|
local req = ril.request
|
|||
|
|
module(..., package.seeall)
|
|||
|
|
--sn：序列号
|
|||
|
|
--imei：IMEI
|
|||
|
|
--modeltype:模块型号，例如724，720，722等
|
|||
|
|
--calib: 校准标志
|
|||
|
|
--ant: 耦合测试标志位
|
|||
|
|
--temp:模块温度
|
|||
|
|
local sn, imei, calib, ver, muid, ant,modeltype,temp
|
|||
|
|
local setSnCbFnc,setImeiCbFnc,setClkCbFnc,getTemperatureCbFnc
|
|||
|
|
|
|||
|
|
local function timeReport()
|
|||
|
|
sys.publish("TIME_CLK_IND")
|
|||
|
|
sys.timerStart(setTimeReport,2000)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
function setTimeReport()
|
|||
|
|
sys.timerStart(timeReport,(os.time()%60==0) and 50 or (60-os.time()%60)*1000)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--[[
|
|||
|
|
函数名：rsp
|
|||
|
|
功能 ：本功能模块内“通过虚拟串口发送到底层core软件的AT命令”的应答处理
|
|||
|
|
参数 ：
|
|||
|
|
cmd：此应答对应的AT命令
|
|||
|
|
success：AT命令执行结果，true或者false
|
|||
|
|
response：AT命令的应答中的执行结果字符串
|
|||
|
|
intermediate：AT命令的应答中的中间信息
|
|||
|
|
返回值：无
|
|||
|
|
]]
|
|||
|
|
local function rsp(cmd, success, response, intermediate)
|
|||
|
|
local prefix = string.match(cmd, "AT(%+%u+)")
|
|||
|
|
--查询序列号
|
|||
|
|
if cmd == "AT+WISN?" then
|
|||
|
|
result = (intermediate~="*CME ERROR: Missing SN")
|
|||
|
|
if result then
|
|||
|
|
sn = intermediate
|
|||
|
|
sys.publish('SN_READY_IND')
|
|||
|
|
end
|
|||
|
|
if setSnCbFnc then setSnCbFnc(result) end
|
|||
|
|
--查询IMEI
|
|||
|
|
elseif cmd == "AT+CGSN" then
|
|||
|
|
imei = intermediate
|
|||
|
|
if setImeiCbFnc then setImeiCbFnc(true) end
|
|||
|
|
sys.publish('IMEI_READY_IND')
|
|||
|
|
--查询模块温度
|
|||
|
|
elseif cmd =="AT+RFTEMPERATURE?" then
|
|||
|
|
temp = string.match(intermediate, ':(.+)')
|
|||
|
|
if getTemperatureCbFnc and type(getTemperatureCbFnc)=="function" then
|
|||
|
|
if success then
|
|||
|
|
getTemperatureCbFnc(temp)
|
|||
|
|
else
|
|||
|
|
getTemperatureCbFnc("")
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
--查询模块型号
|
|||
|
|
elseif cmd == 'AT+CGMM' then
|
|||
|
|
modeltype = string.match(intermediate, '"(.+)"')
|
|||
|
|
if success then
|
|||
|
|
sys.publish('MODEL_NUMBER_READY_IND')
|
|||
|
|
end
|
|||
|
|
elseif cmd == 'AT+VER' then
|
|||
|
|
ver = intermediate
|
|||
|
|
elseif prefix == '+CCLK' then
|
|||
|
|
if success then
|
|||
|
|
sys.publish('TIME_UPDATE_IND')
|
|||
|
|
setTimeReport()
|
|||
|
|
end
|
|||
|
|
if setClkCbFnc then setClkCbFnc(getClock(),success) end
|
|||
|
|
elseif cmd:match("AT%+WISN=") then
|
|||
|
|
if success then
|
|||
|
|
req("AT+WISN?")
|
|||
|
|
else
|
|||
|
|
if setSnCbFnc then setSnCbFnc(false) end
|
|||
|
|
end
|
|||
|
|
elseif cmd:match("AT%+CALIBINFO%?") then
|
|||
|
|
if intermediate then
|
|||
|
|
local LTE_afc = intermediate:match("LTE_afc:(%d)")
|
|||
|
|
local LTE_TDD_agc = intermediate:match("LTE_TDD_agc:(%d)")
|
|||
|
|
local LTE_TDD_apc = intermediate:match("LTE_TDD_apc:(%d)")
|
|||
|
|
local LTE_FDD_agc = intermediate:match("LTE_FDD_agc:(%d)")
|
|||
|
|
local LTE_FDD_apc = intermediate:match("LTE_FDD_apc:(%d)")
|
|||
|
|
local ANT_LTE = intermediate:match("ANT_LTE:(%d)")
|
|||
|
|
|
|||
|
|
calib = (LTE_afc == "1" and LTE_TDD_agc == "1" and LTE_TDD_apc == "1" and LTE_FDD_agc == "1" and LTE_FDD_apc == "1")
|
|||
|
|
ant = (ANT_LTE == "1")
|
|||
|
|
end
|
|||
|
|
elseif cmd:match("AT%*CALINFO%=R") then
|
|||
|
|
if intermediate then
|
|||
|
|
local LteTest=intermediate:match("LteTest%,PASS")
|
|||
|
|
local LteCal=intermediate:match("LteCal%,PASS")
|
|||
|
|
if LteCal then
|
|||
|
|
calib=(LteCal=="LteCal,PASS")
|
|||
|
|
end
|
|||
|
|
if LteTest then
|
|||
|
|
ant=(LteTest=="LteTest,PASS")
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
elseif cmd:match("AT%+WIMEI=") then
|
|||
|
|
if success then
|
|||
|
|
req("AT+CGSN")
|
|||
|
|
else
|
|||
|
|
if setImeiCbFnc then setImeiCbFnc(false) end
|
|||
|
|
end
|
|||
|
|
elseif cmd:match("AT%+MUID?") then
|
|||
|
|
if intermediate then muid = intermediate:match("+MUID:%s*(.+)") end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 获取core固件名
|
|||
|
|
-- @return string version，core固件名
|
|||
|
|
-- @usage
|
|||
|
|
-- local version = misc.getVersion()
|
|||
|
|
-- 如果core为Luat_V0026_RDA8910_TTS_FLOAT，则version为string类型的"Luat_V0026_RDA8910_TTS_FLOAT"
|
|||
|
|
function getVersion()
|
|||
|
|
return rtos.get_version()
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 设置系统时间
|
|||
|
|
-- @table t 系统时间，格式参考：{year=2017,month=2,day=14,hour=14,min=2,sec=58}
|
|||
|
|
-- @function[opt=nil] cbFnc 设置结果回调函数，回调函数的调用形式为：
|
|||
|
|
-- cbFnc(time，result)
|
|||
|
|
-- result为true表示成功，false或者nil为失败
|
|||
|
|
-- time表示设置之后的系统时间，table类型，例如{year=2017,month=2,day=14,hour=14,min=19,sec=23}
|
|||
|
|
-- @return nil
|
|||
|
|
-- @usage misc.setClock({year=2017,month=2,day=14,hour=14,min=2,sec=58})
|
|||
|
|
function setClock(t,cbFnc)
|
|||
|
|
if type(t) ~= "table" or (t.year-2000>38) then
|
|||
|
|
if cbFnc then cbFnc(getClock(),false) end
|
|||
|
|
return
|
|||
|
|
end
|
|||
|
|
setClkCbFnc = cbFnc
|
|||
|
|
req(string.format("AT+CCLK=\"%02d/%02d/%02d,%02d:%02d:%02d+32\"", string.sub(t.year, 3, 4), t.month, t.day, t.hour, t.min, t.sec), nil, rsp)
|
|||
|
|
end
|
|||
|
|
--- 获取系统时间
|
|||
|
|
-- @return table time,{year=2017,month=2,day=14,hour=14,min=19,sec=23}
|
|||
|
|
-- @usage time = getClock()
|
|||
|
|
function getClock()
|
|||
|
|
return os.date("*t")
|
|||
|
|
end
|
|||
|
|
--- 获取星期
|
|||
|
|
-- @return number week，1-7分别对应周一到周日
|
|||
|
|
-- @usage week = misc.getWeek()
|
|||
|
|
function getWeek()
|
|||
|
|
local clk = os.date("*t")
|
|||
|
|
return ((clk.wday == 1) and 7 or (clk.wday - 1))
|
|||
|
|
end
|
|||
|
|
--- 获取校准标志
|
|||
|
|
-- @return bool calib, true表示已校准，false或者nil表示未校准
|
|||
|
|
-- @usage calib = misc.getCalib()
|
|||
|
|
function getCalib()
|
|||
|
|
return calib
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 获取耦合测试标志
|
|||
|
|
-- @return bool ant, true表示已耦合测试，false或者nil表示未耦合测试
|
|||
|
|
-- @usage ant = misc.getAnt()
|
|||
|
|
function getAnt()
|
|||
|
|
return ant
|
|||
|
|
end
|
|||
|
|
--- 设置SN
|
|||
|
|
-- @string s 新sn的字符串
|
|||
|
|
-- @function[opt=nil] cbFnc 设置结果回调函数，回调函数的调用形式为：
|
|||
|
|
-- cnFnc(result)，result为true表示成功，false或者nil为失败
|
|||
|
|
-- @return nil
|
|||
|
|
-- @usage
|
|||
|
|
-- misc.setSn("1234567890")
|
|||
|
|
-- misc.setSn("1234567890",cbFnc)
|
|||
|
|
function setSn(s, cbFnc)
|
|||
|
|
if s ~= sn then
|
|||
|
|
setSnCbFnc = cbFnc
|
|||
|
|
req("AT+WISN=\"" .. s .. "\"")
|
|||
|
|
else
|
|||
|
|
if cbFnc then cbFnc(true) end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
--- 获取模块序列号
|
|||
|
|
-- @return string sn,序列号，如果未获取到返回""
|
|||
|
|
-- 注意：开机lua脚本运行之后，会发送at命令去查询sn，所以需要一定时间才能获取到sn。开机后立即调用此接口，基本上返回""
|
|||
|
|
-- @usage sn = misc.getSn()
|
|||
|
|
function getSn()
|
|||
|
|
return sn or ""
|
|||
|
|
end
|
|||
|
|
--- 设置IMEI
|
|||
|
|
-- @string s 新IMEI字符串
|
|||
|
|
-- @function[opt=nil] cbFnc 设置结果回调函数，回调函数的调用形式为：
|
|||
|
|
-- cnFnc(result)，result为true表示成功，false或者nil为失败
|
|||
|
|
-- @return nil
|
|||
|
|
-- @usage misc.setImei(”359759002514931”)
|
|||
|
|
function setImei(s, cbFnc)
|
|||
|
|
if s ~= imei then
|
|||
|
|
setImeiCbFnc = cbFnc
|
|||
|
|
req("AT+WIMEI=\"" .. s .. "\"")
|
|||
|
|
else
|
|||
|
|
if cbFnc then cbFnc(true) end
|
|||
|
|
end
|
|||
|
|
end
|
|||
|
|
--- 获取模块IMEI
|
|||
|
|
-- @return string,IMEI号，如果未获取到返回""
|
|||
|
|
-- 注意：开机lua脚本运行之后，会发送at命令去查询imei，所以需要一定时间才能获取到imei。开机后立即调用此接口，基本上返回""
|
|||
|
|
-- @usage imei = misc.getImei()
|
|||
|
|
function getImei()
|
|||
|
|
return imei or ""
|
|||
|
|
end
|
|||
|
|
--- 获取模块型号
|
|||
|
|
-- @return string,模块型号，如果未获取到返回""
|
|||
|
|
-- 例如：模块型号为724UG,则返回值为Air724UG;模块型号为722UG,则返回值为Air722UG;模块型号为820UG,则返回值为Air820UG
|
|||
|
|
-- 注意：开机lua脚本运行之后，会发送at命令去查询模块型号，所以需要一定时间才能获取到模块型号。开机后立即调用此接口，基本上返回""
|
|||
|
|
-- @usage modeltype = getModelType()
|
|||
|
|
function getModelType()
|
|||
|
|
return modeltype or ""
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
-- 获取模块温度
|
|||
|
|
-- @return string,模块温度，如果要对该值进行运算，可以使用带float的固件将该值转为number
|
|||
|
|
-- 例如：模块温度为29.77摄氏度,则返回值为29.77
|
|||
|
|
function getTemperature(cb)
|
|||
|
|
getTemperatureCbFnc = cb
|
|||
|
|
ril.request("AT+RFTEMPERATURE?")
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 获取VBAT的电池电压
|
|||
|
|
-- @return number,电池电压,单位mv
|
|||
|
|
-- @usage vb = getVbatt()
|
|||
|
|
function getVbatt()
|
|||
|
|
if type(pmd.libScriptInit)=="function" then pmd.libScriptInit() end
|
|||
|
|
local v1, v2, v3, v4, v5 = pmd.param_get()
|
|||
|
|
return v2
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 获取VBUS连接状态
|
|||
|
|
-- @return boolean，true表示VBUS连接，false表示未连接
|
|||
|
|
-- @usage vbus = getVbus()
|
|||
|
|
function getVbus()
|
|||
|
|
local v1, v2, v3, v4, v5 = pmd.param_get()
|
|||
|
|
log.info("misc.getVbus",v1, v2, v3, v4, v5)
|
|||
|
|
return v4
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 获取模块MUID
|
|||
|
|
-- @return string,MUID号，如果未获取到返回""
|
|||
|
|
-- 注意：开机lua脚本运行之后，会发送at命令去查询muid，所以需要一定时间才能获取到muid。开机后立即调用此接口，基本上返回""
|
|||
|
|
-- @usage muid = misc.getMuid()
|
|||
|
|
function getMuid()
|
|||
|
|
return muid or ""
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 打开并且配置PWM(支持2路PWM，仅支持输出)
|
|||
|
|
-- @number id PWM输出通道，仅支持0和1
|
|||
|
|
-- 0使用MODULE_STATUS/GPIO_5引脚
|
|||
|
|
-- 1使用GPIO_13引脚，注意：上电的时候不要把 GPIO_13 拉高到V_GLOBAL_1V8，否则模块会进入校准模式，不正常开机
|
|||
|
|
-- @number para1 当id为0时，para1表示分频系数，最大值为2047；分频系数和频率的换算关系为：频率=25000000/para1（Hz）；例如para1为500时，频率为50000Hz
|
|||
|
|
-- 分频系数和周期的换算关系为：周期=para1/25000000（ｓ）；例如para1为500时，周期为20ｕｓ
|
|||
|
|
-- 当id为1时，para1表示时钟周期，取值范围为0-7，仅支持整数
|
|||
|
|
-- 0-7分别对应125、250、500、1000、1500、2000、2500、3000毫秒
|
|||
|
|
-- @number para2 当id为0时，para2表示占空比计算系数，最大值为1023；占空比计算系数和占空比的计算关系为：占空比=para2/para1
|
|||
|
|
-- 当id为1时，para2表示一个时钟周期内的高电平时间，取值范围为1-15，仅支持整数
|
|||
|
|
-- 1-15分别对应15.6、31.2、46.8、62、78、94、110、125、140、156、172、188、200、218、234毫秒
|
|||
|
|
-- @return nil
|
|||
|
|
-- @usage
|
|||
|
|
-- 通道0，频率为50000Hz，占空比为0.2：
|
|||
|
|
-- 频率为50000Hz，表示时钟周期为1/50000=0.00002秒=0.02毫秒=20微秒
|
|||
|
|
-- 占空比表示在一个时钟周期内，高电平的时长/时钟周期的时长，本例子中的0.2就表示，高电平时长为4微秒，低电平时长为16微秒
|
|||
|
|
-- misc.openPwm(0,500,100)
|
|||
|
|
--
|
|||
|
|
-- 通道1，时钟周期为500ms，高电平时间为125毫秒：
|
|||
|
|
-- misc.openPwm(1,2,8)
|
|||
|
|
function openPwm(id, para1, para2)
|
|||
|
|
pwm.open(id)
|
|||
|
|
pwm.set(id,para1,para2)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--- 关闭PWM
|
|||
|
|
-- @number id PWM输出通道，仅支持0和1
|
|||
|
|
-- 0使用MODULE_STATUS/GPIO_5引脚
|
|||
|
|
-- 1使用GPIO_13引脚，注意：上电的时候不要把 GPIO_13 拉高到V_GLOBAL_1V8，否则模块会进入校准模式，不正常开机
|
|||
|
|
-- @return nil
|
|||
|
|
function closePwm(id)
|
|||
|
|
assert(id == 0 or id == 1, "closepwm id error: " .. id)
|
|||
|
|
pwm.close(id)
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
--注册以下AT命令的应答处理函数
|
|||
|
|
ril.regRsp("+WISN", rsp)
|
|||
|
|
ril.regRsp("+CGSN", rsp)
|
|||
|
|
ril.regRsp("+RFTEMPERATURE",rsp)
|
|||
|
|
ril.regRsp("+CGMM", rsp)
|
|||
|
|
ril.regRsp("+MUID", rsp)
|
|||
|
|
ril.regRsp("+WIMEI", rsp)
|
|||
|
|
ril.regRsp("+AMFAC", rsp)
|
|||
|
|
--ril.regRsp('+VER', rsp, 4, '^[%w_]+$')
|
|||
|
|
ril.regRsp("+CALIBINFO",rsp)
|
|||
|
|
ril.regRsp("*CALINFO",rsp)
|
|||
|
|
--req('AT+VER')
|
|||
|
|
--查询序列号
|
|||
|
|
req("AT+WISN?")
|
|||
|
|
--查询IMEI
|
|||
|
|
req("AT+CGSN")
|
|||
|
|
req("AT+MUID?")
|
|||
|
|
req("AT*EXINFO?")
|
|||
|
|
--查询模块温度
|
|||
|
|
-- req("AT+RFTEMPERATURE?")
|
|||
|
|
--查询模块型号
|
|||
|
|
if string.match(rtos.get_version(),"ASR1603") then
|
|||
|
|
req("AT*CALINFO=R,LteCal")
|
|||
|
|
req("AT*CALINFO=R,LteTest")
|
|||
|
|
end
|
|||
|
|
req("AT+CGMM")
|
|||
|
|
setTimeReport()
|