--[[
    创建日期： 2021-9-3
    创建人：   HAN

    名称: oi_base_func

    功能：
        一些常用的 Lua 函数封装 Lua Wrapper Function 简称 lwf

    变更记录:
        V6.0  HAN 2023/9/8
        V7.0  HAN 2025/1/27 从oi_basestrfunc 分离出来
--]]
json  = require ("json")

local lua = {_version = "0.1.1"} -- 定义一个空表，用于存储模块的函数和变量
-------------------------------------------------------------------------------------------------
-- 字符串根据特殊符号reps进行分割
-- 分割为一个数组
-------------------------------------------------------------------------------------------------

function lua.split( str,reps )
    local resultStrList = {}
 
    if ( reps == nil or reps == '' ) then return "" end
    if ( str == nil or str == '' ) then return resultStrList end
    string.gsub( str,'[^'..reps..']+',function ( w )
                 table.insert(resultStrList,w) end )
    return resultStrList
    
 end
 
 -------------------------------------------------------------------------------------------------
 -- 表转成字符串
 -------------------------------------------------------------------------------------------------
 function lua.table2str(t)  
     local function serialize(tbl)  
             local tmp = {}  
             for k, v in pairs(tbl) do  
                     local k_type = type(k)  
                     local v_type = type(v)  
                     if ( v_type == "string" ) then
                        v = string.gsub(v,'\\',"\\\\")
                        v = string.gsub(v,'"','\\"')
                     end
                     local key = (k_type == "string" and "\"" .. k .. "\":")  
                         or (k_type == "number" and "")  
                     local value = (v_type == "table" and serialize(v))  
                         or (v_type == "boolean" and tostring(v))  
                         or (v_type == "string" and "\"" .. v .. "\"")  
                         or (v_type == "number" and v)  
                     tmp[#tmp + 1] = key and value and tostring(key) .. tostring(value) or nil  
             end  
             if #tbl == 0 then  
                     return "{" .. table.concat(tmp, ",") .. "}"  
             else  
                     return "[" .. table.concat(tmp, ",") .. "]"  
             end  
     end  
     assert(type(t) == "table")  
     return serialize(t)  
 end  

-- 把t2表加到t1后面
function lua.table_merge( t1, t2 )
    local n
    for n = 1, #t2 do
        table.insert( t1, t2[n] )
    end
end

function lua.table_is_empty(t) return t and next(t) == nil or true end

-- 获取table的长度
function lua.GetTableCount( t )
    if ( t == nil or type(t) ~= "table" ) then return 0 end
    return #t
end
 
 --[[
     取消字符串前后的空格
 --]]
 function lua.trim( strbuf )
    if ( strbuf == nil ) then error( "trim 函数的输入参数不能为 nil!") end
    if ( strbuf == '' ) then return "" end
    
    return string.gsub(strbuf, '^[%s]*([^%s].*[^%s])[%s]*$', "%1")
 end
 --[[
     取消字符串前后的"",比如字符串："ABC",执行后变成 ABC
 --]]
 function lua.trim_quotation_mark( strbuf )
    if ( strbuf == nil ) then error( "trim_quotation_mark 函数的输入参数不能为 nil!") end
    if ( strbuf == '' ) then return "" end
     return string.gsub(strbuf, '^["]*([^"].*[^"])["]*$', "%1")
 end
 
 -------------------------------------------------------------------------------------------------
 -- 把一个GUID字符串的前面和后面的 {}取消
 -- 输入 strvalue = {XXXXX-XXX-XXXX}  返回 XXXXX-XXX-XXXX}
 -------------------------------------------------------------------------------------------------
 
 function lua.trim_guid_str( strvalue )
    if ( strvalue == nil or strvalue == '' ) then return "" end
     local nSize =  string.len( strvalue )
 
     if ( nSize ~= 38 ) then
         return strvalue
     end
     strvalue = string.sub( strvalue, 1, nSize-1 )
     strvalue = string.sub( strvalue, 2, -1 )
     return strvalue
  end
  
 --[[ 
    把一个字符串去头去尾，比如["A","B"],执行后变成 "A","B"
 --]]
 function lua.trim_str_head_end( strvalue )
    if ( strvalue == nil or strvalue == '' ) then return "" end
     local nSize =  string.len( strvalue )
 
     if ( nSize < 2 ) then return strvalue end
     strvalue = string.sub( strvalue, 1, nSize-1 )
     strvalue = string.sub( strvalue, 2, -1 )
     return strvalue
  end

 -------------------------------------------------------------------------------------------------
 -- 取消字符串最后面的一个符号
 -------------------------------------------------------------------------------------------------
  function lua.trim_laster_char( strBuf )
    if ( strBuf == nil ) then return "" end
     local nSize = string.len(strBuf)
     if ( nSize == 0) then
         return ''
     end
     return string.sub( strBuf, 1, nSize-1 )
  end
 
-------------------------------------------------------------------------------------------------
-- 把一个字符串数组["A","B"]转成 'A','B'
-------------------------------------------------------------------------------------------------
function lua.strArray2string(t)  
    local ret_str = ''
    for k,v in ipairs(t) do
        ret_str = ret_str.."'"..v.."',"
    end
    return lua.trim_laster_char( ret_str )
end  

 --[[
     判断 value 是否在 tbl 表中，这个tbl表是一个["a","b"]这样的数组
 --]]
 function lua.IsInTable(value, tbl)
     for k,v in ipairs(tbl) do
       if v == value then
         return true;
       end
     end
     return false;
 end

-- 判断表是否为空表
function lua.IsTableEmpty(t)
    if t == nil or next(t) == nil then
        return true
    else
        return false
    end
end

 -- 加一个字符串到一个字符串数组，如果数组里存在这个字符串就不增加
function lua.Add_StrArray( strArray, strValue )
    local n

    if ( type(strArray) ~= "table" ) then return end
    if ( strValue == nil or strValue == '' ) then return end

    for n = 1, #strArray do
        if (strArray[n] == strValue ) then return end
    end
    n = #strArray + 1
    strArray[n] = strValue
end

-- 浮点数相等
function lua.equation( f1, f2 )
    return math.abs( f1 - f2 ) < 0.000001 
end

 --[[
     时间的加减计算
     srcDateTime --  日期时间
     interval    --  加减值
     dateUnit    --  计算事件单位  DAY 天 HOUR 小时  MINUTE 分钟 SECOND 秒
 --]]
 
 function lua.getNewDate( srcDateTime, interval ,dateUnit )  
 
     local Y = string.sub(srcDateTime,1,4)  
     local M = string.sub(srcDateTime,5,6)  
     local D = string.sub(srcDateTime,7,8)  
     local H = string.sub(srcDateTime,9,10)  
     local MM = string.sub(srcDateTime,11,12)  
     local SS = string.sub(srcDateTime,13,14)  
   
     local dt1 = os.time{year=Y, month=M, day=D, hour=H,min=MM,sec=SS}  
     local ofset=0  
   
     if dateUnit =='DAY' then  
         ofset = 60 *60 * 24 * interval  
     elseif dateUnit == 'HOUR' then  
         ofset = 60 *60 * interval  
     elseif dateUnit == 'MINUTE' then  
         ofset = 60 * interval  
     elseif dateUnit == 'SECOND' then  
         ofset = interval  
     end  
     local newTime = os.date("*t", dt1 + tonumber(ofset))  
     return newTime  
 end  
 
 --[[
     计算两个日期之间的天数
 --]]
 function lua.dateDiff(date1,date2)
     local day1 = {};
     local day2 = {};
     local numDay1;
     local numDay2;
     
     if date1 < 19700101 or date2 < 19700101 then
         return 0;
     end
     day1.year,day1.month,day1.day = string.match(date1,"(%d%d%d%d)(%d%d)(%d%d)");
     day2.year,day2.month,day2.day = string.match(date2,"(%d%d%d%d)(%d%d)(%d%d)");
     numDay1 = os.time(day1);
     numDay2 = os.time(day2);
     
     return (numDay1-numDay2)/(3600*24);
 end

-- 根据年月日获取是星期几
 -- 输入 strDate 2021-9-7
 -- 返回星期几
 function lua.getWeekNum(strDate)
    if ( strDate == '' or strDate == nil ) then return 0 end

     local ymd = lua.split(strDate,"-")
     if ( ymd == nil or #ymd ~= 3 ) then
         return 0
     end
     t = os.time({year=tostring(ymd[1]),month=tostring(ymd[2]),day=tostring(ymd[3])})
     local weekNum = os.date("*t",t).wday  -1
     if weekNum == 0 then
         weekNum = 7
     end
     return weekNum
 end

-- 把时间字符串转 os.time 输入：2024-9-12 8:20:10
function lua.toTimestamp(dateStr)
    local pattern = "(%d+)%-(%d+)%-(%d+) (%d+):(%d+):(%d+)"
    local year, month, day, hour, min, sec = dateStr:match(pattern)
    return os.time({day=day, month=month, year=year, hour=hour, min=min, sec=sec})
end

-- 比较两个日期字符串
function lua.DateTimeIsBefore( dateStr1, dateStr2 )
    local timestamp1 = lua.toTimestamp(dateStr1)
    local timestamp2 = lua.toTimestamp(dateStr2)
    return timestamp1 < timestamp2
end

 --[[
     日期格式转换
     输入 2021/9/2  2021-9-2 2021.9.2 转化为 2021-09-02    
 --]]
 function lua.DayFormatConversion( strDay )
     local seg = {}
     seg = lua.split( strDay, '/' )
     local nCount
 
     nCount = #seg
     if ( nCount == 1 ) then
         seg = lua.split( strDay, '-' )
         nCount = #seg
         if ( nCount == 1 ) then
             seg = lua.split( strDay, '.' )
             nCount = #seg
         end
     end
 
     if ( nCount ~= 3 ) then
         return 1, "日期格式不正确!"
     end
     local nYear = tonumber( seg[1] )
     local nMonth = tonumber( seg[2] )
     local nDay = tonumber( seg[3] )
     strDays = string.format( '%d-%02d-%02d', nYear, nMonth, nDay )
     return 0, strDays
 end

 -- 规整日期时间格式，输入 2024-1-20 8:20:1 变成  2024-01-20 08:20:01
 -- 如果格式匹配不上返回 1，正确返回 0，第二个参数是规整过后的时间
 function lua.Regular_Datetime( str_datetime )
    local pattern = "(%d+)%-(%d+)%-(%d+) (%d+):(%d+):(%d+)"
    local year, month, day, hour, min, sec = str_datetime:match(pattern)
    if (year == nil) then
        return 1, "输入格式非法,格式要求是:   2024-11-30 8:20:1"
    end
    return 0, string.format( '%d-%02d-%02d %02d:%02d:%02d', year, month, day, hour, min, sec )
  end
 
 --[[
     日期格式转换
     输入 20210902  转化为 2021-09-02    
 --]]
 function lua.DayFormatConversion2( strDay )
     local nSize = string.len( strDay )
 
     if ( nSize ~= 8 ) then
         return 1, "日期格式不正确!"
     end
 
     local strYear = string.sub( strDay, 1, nSize-4 )
     local strMonth = string.sub( strDay, 5, 6 )
     local strDay = string.sub( strDay, 7, 8 )
 
     local nYear = tonumber( strYear )
     local nMonth = tonumber( strMonth )
     local nDay = tonumber( strDay )
     local strNewDay = string.format( '%d-%02d-%02d', nYear, nMonth, nDay )
     return 0, strNewDay
 end
 
 --[[
     计算某天是星期几
 --]]
 function lua.CalculateWeekNumber( nYear, nMonth, nDay )
     return os.date("%W",os.date(os.time{year=nYear,month=nMonth,day=nDay}))
 end
 
 -- 生成一个 GUID
 function lua.guid()
     local seed={'e','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
     local tb={}
     for i=1,32 do
         table.insert(tb,seed[math.random(1,16)])
     end
     local sid=table.concat(tb)
     return string.format('%s-%s-%s-%s-%s',
         string.sub(sid,1,8),
         string.sub(sid,9,12),
         string.sub(sid,13,16),
         string.sub(sid,17,20),
         string.sub(sid,21,32)
     )
 end
 
 --[[
     把数值转换成大写中文数字: 12080    壹万贰仟零捌拾
 --]]
 function lua.finance_format(szNum)
     local szChMoney = ""
     local iLen = 0
     local iNum = 0
     local iAddZero = 0
     local hzUnit = {"", "十", "百", "千", "万", "十", "百", "千", "亿","十", "百", "千", "万", "十", "百", "千"}
     local hzNum = {"零", "一", "二", "三", "四", "五", "六", "七", "八", "九"}

     if nil == tonumber(szNum) then
         return tostring(szNum)
     end

     if ( type(szNum) == "number" ) then 
        szNum = tostring(szNum)
     end

     iLen =string.len(szNum)
     if iLen > 10 or iLen == 0 or tonumber(szNum) < 0 then
         return tostring(szNum)
     end
     for i = 1, iLen  do
         iNum = string.sub(szNum,i,i)
         if iNum == 0 and i ~= iLen then
             iAddZero = iAddZero + 1
         else
             if iAddZero > 0 then
             szChMoney = szChMoney..hzNum[1]
         end
             szChMoney = szChMoney..hzNum[iNum + 1] --//转换为相应的数字
             iAddZero = 0
         end
         if (iAddZero < 4) and (0 == (iLen - i) % 4 or 0 ~= tonumber(iNum)) then
             szChMoney = szChMoney..hzUnit[iLen-i+1]
         end
     end
     return szChMoney
 end
 
 --[[
     根据输入的字符串获取年月日 如：输入 2021-09-10
     返回 2021,9, 10
 --]]
 function lua.GetYearMonthDay( strDay )
     local seg = {}
 
     if ( strDay == '' or strDay == nil ) then
         return 2, "GetYearMonthDay 输入参数不能为空!","",""
     end
     seg = lua.split( strDay, "-" )
     if ( #seg ~= 3 ) then
         return 2, "GetYearMonthDay 格式非法!"..strDay,"",""
     end
     return 0, tonumber( seg[1] ), tonumber( seg[2] ), tonumber( seg[3] )
 end
 
 --[[
    计算两个日期差几天
    建议取消：HAN 2024-2-11
 --]]
 function lua.time_diff(start_time, end_time)
     local t1 = os.date("%Y%m%d", start_time)
     local t2 = os.date("%Y%m%d", end_time)
     local day1 = {}
     local day2 = {}
     day1.year,day1.month,day1.day = string.match(t1,"(%d%d%d%d)(%d%d)(%d%d)")
     day2.year,day2.month,day2.day = string.match(t2,"(%d%d%d%d)(%d%d)(%d%d)")
     local numDay1 = os.time(day1)
     local numDay2 = os.time(day2)
     return (numDay2 - numDay1)/(3600*24)
 end
 
 
 --[[
     数组里增加一个值，如果这个值不存在就新增
 --]]
 function lua.AddArray( array, value )
     local k, v
     local exist = 0
 
     for k,v in ipairs(array) do
         if ( v == value ) then
             exist = 1
             break
         end
     end
     if ( exist == 0 ) then
         table.insert( array, value )
     end
 end
 
 --[[
     获取文件名
     strPathFileName --"C:/Windows/assembly/temp.lua"
 --]]
 function lua.getFileNameInPath ( strPathFileName )
     local ts = string.reverse( strPathFileName )
     local i = string.find ( ts, "/" )
 
     if ( i == 0 or i == nil ) then
         return 1, "文件名格式不符合要求!"
     end
 
     local nSize = string.len(ts)
     local m = nSize - i + 1
 
     return 0, string.sub(strPathFileName, m+1, nSize)
 end
 
 --[[
     如果要把一个字符串加入到 json 中， 如果字符串本身带 " 符号回造成JSON格式错误，因此必须要把"替换掉
     另外，如果对字符串的长度有要求，也需要进行裁剪
     另外返回的字符串中有<T>的特殊字符串要把<>替换成 《》

     建议取消: HAN 2024-2-11
 ]]
 function lua.proJsonStrNode( strJson, nLen )
     -- 把字符串中的"取消，用'替换
     strJson = string.gsub(strJson, '"',"'")
     -- 返回信息中<T>的处理把 <> 替换 
     strJson = string.gsub(strJson, '<',"《")
     strJson = string.gsub(strJson, '>',"》")
     if (#strJson > nLen ) then 
         strJson = string.sub( strJson, 1, nLen ) 
     end 
     return  strJson
 end
 --[[
      FormatJsonString，在设置属性时我们一般会用到 "attr":"xxx","value":"strValue"
      如果 strValue 里有 " 系统会出错，因此
 --]]
 function lua.FormatJsonString( strJson )
     return string.gsub(strJson, '"','\\\"')
 end

  --[[
      FormatSQLString，把字符加入SQL语句前把 ' 符号用"进行替换否则SQL会出错
 --]]
function lua.FormatSQLString( strSQL )
    return string.gsub(strSQL, "'",'"')
end
 
 --[[
      返回一个 {"attr"：“xxx”,"value":"xxx"} 的JSON对象
      -- 不建议使用
 --]]
 function lua.KeyValueObj( strAttr, strValue )
     local key_value = {}
     
     strAttr = lua.trim( strAttr )
     key_value.attr = strAttr
     key_value.value = tostring(strValue)
     
     return key_value
 end
 
 
 --[[
     截掉字符串开头的某个字符，比如输入的字符串 = 000232G090  需要截掉开始的 000
     trime_char -- 需要截掉的字符
 --]]
 function lua.TrimStrHead( str, trim_char )
     local n,nCount, m
     local ascii = string.byte( trim_char )
 
     nCount = string.len(str)
     m = 0
 
     if (string.byte( str,1) == ascii) then
         for n = 2, nCount do
             if (string.byte( str,n ) ~= ascii ) then
                 m = n
                 break
             end
         end
         if ( m ~= 0 ) then
             str = string.sub( str, m, -1)
         end
     end
     return str
 end
 
 --[[
     如果输入字符串的长度不够nLen，用 cFill 字符在前面进行填充
  --]]
 function lua.strFill( str, nLen, cFill )
     local nSize = #str
     local strHead = ''
 
     if (nSize >= nLen) then return str end
     local n, nCount
     nCount = nLen - nSize
     for n = 1, nCount do
         strHead = strHead..cFill
     end
     return strHead..str
 end
 
 --[[
     输入月份返回这个月份是第几个季度
 --]]
 function lua.month_to_quarter(month)
     if month < 1 or month > 12 then
       return -1 -- 无效的月份
     elseif month >= 1 and month <= 3 then
       return 1 -- 第一季度
     elseif month >= 4 and month <= 6 then
       return 2 -- 第二季度
     elseif month >= 7 and month <= 9 then
       return 3 -- 第三季度
     else
       return 4 -- 第四季度
     end
 end
 
 -- 字符串转数值，如果是空字符串返回0
 function lua.StrToNumber( strValue )
     if ( strValue == '' or strValue == nil ) then return 0 end
     return tonumber( strValue )
 end
 
 -- 从json对象中获取属性
 function lua.Get_StrAttrValue( value )
     if ( value == nil ) then return "" end
     return value
 end
 
 -- 从json对象中获取属性
 function lua.Get_NumAttrValue( value )
     if ( value == '' or value == nil ) then return 0 end
     local attr_type = type(value)
     if ( attr_type == "number" ) then return value end
     if ( attr_type == "string") then return tonumber( value ) end
     return 0
 end

 function lua.Get_BoolAttrValue( value )
    if ( value == '' or value == nil ) then return false end
    if ( type(value) == "boolean" ) then return value end
    return false
end
 
 -- 输出日志文件
 -- XX
 function lua.WriteLog(strLuaDEID, logType, lua_file, line, key, value)
    local day_hour = os.date("%Y%m%d%H")
    local curTime = os.date("%Y-%m-%d %H:%M:%S")
    local nRet, strRetInfo

    if ( value == nil ) then value = '' end
    nRet, strRetInfo = mobox.getLuaDEInfo(strLuaDEID)

    if (nRet ~= 0 or strRetInfo == '') then return end
    local lua_info, success
    success, lua_info = pcall( json.decode, strRetInfo)
    if ( success == false ) then return end
 
    local strLog = strLuaDEID.."|"..logType.."|"..lua_info.class_name.."|"..lua_info.event_source.."|"..lua_info.event_name.."|"..lua_info.event_code.."|"..lua_file.."|"..line.."|"..lua_info.user_name.."|"..key.."|"..value

    nRet = mobox.writeLuaLog( strLog )
 end
 
 local function get_filename_line( debug_info )
     local line = 0
     local lua_file = ''
 
     if (debug_info == nil or type(debug_info) ~= "table" ) then
         return 0,""
     else
         local pos1, pos3
         line = debug_info.currentline
         if (line == nil) then line = 0 end
         lua_file = debug_info.short_src
         pos1, pos2 = string.find(lua_file, ".lua")
         if (lua_file == nil or pos1 == nil) then lua_file = '' end
     end
     return  line, lua_file
 end

 function lua.Wait( strLuaDEID, strMsg )
    -- 4 条件不具备，等待后续处理
    mobox.setInfo( strLuaDEID, strMsg )
    mobox.returnValue( strLuaDEID, 0, "", 4 )
 end

 -- strLuaCode Lua 脚本编码  line 第几行 key -- 属性 value 值
 -- 主要用于调试的时候脚本输出
 -- 输出：Lua_Debug|时间|strLuaDEID|类型|数据类|事件名称|事件编码|第几行|操作者|属性|值
 function lua.Debug( strLuaDEID, debug_info, key, value )
     local line = 0
     local lua_file = ''
 
     if( type(value) == "table"  and value.cls ~= nil ) then
        local nRet
        nRet, value = mobox.formatLuaJson( lua.table2str(value) )
    end

     if ( value == nil ) then error( "Debug 函数中value值不能是nil") end
     local value_type = type(value)
     if ( value_type == "boolean") then
        if ( value ) then 
            value = "true"
        else
            value = "false"
        end
     elseif ( value_type == "table") then
        value = lua.table2str( value )
     end

     line, lua_file = get_filename_line( debug_info )
 
     local day_hour = os.date("%Y%m%d%H")
     local curTime = os.date("%Y-%m-%d %H:%M:%S")
     local nRet, strRetInfo
 
     nRet, strRetInfo = mobox.getLuaDEInfo(strLuaDEID)
     if (nRet ~= 0 or strRetInfo == '') then error( "WriteLog 函数调用 getLuaDEInfo 失败!"..strRetInfo  ) end
     local lua_info, success
     success, lua_info = pcall( json.decode, strRetInfo)
     if ( success == false ) then
         error( "Lua数据包的JSON格式非法! 原因:"..lua_info..'  --> '..strRetInfo )
     end
     -- 如果设置了不显示Debug信息，马上返回
     if (lua_info.gen_lua_log == 0 ) then return end

     local strLog = strLuaDEID.."|调试|"..lua_info.class_name.."|"..lua_info.event_source.."|"..lua_info.event_name.."|"..lua_info.event_code.."|"..lua_file.."|"..line.."|"..lua_info.user_name.."|"..key.."|"..value
     nRet = mobox.writeLuaLog( strLog )
     if ( nRet ~= 0 ) then  error( "writeLuaLog失败!" ) end
 end

-- DebugEx 和 Debug的区别是少输入一个 debug.getinfo , 效率比 Debug 要高一些
-- 建议用这个函数
-- 主要用于调试的时候脚本输出
-- 输出：Lua_Debug|时间|strLuaDEID|类型|数据类|事件名称|事件编码|第几行|操作者|属性|值
function lua.DebugEx( strLuaDEID, key, value )
    local line = 0
    local lua_file = ''
    local nRet, strRetInfo

    nRet, strRetInfo = mobox.getLuaDEInfo(strLuaDEID)
    if (nRet ~= 0 or strRetInfo == '') then return end
    local lua_info, success
    success, lua_info = pcall( json.decode, strRetInfo)
    if ( success == false ) then return end
    if ( lua_info.gen_lua_info == 0 ) then return end

    local debug_info = debug.getinfo(2)
    if( type(value) == "table"  and value.cls ~= nil ) then
       local nRet
       nRet, value = mobox.formatLuaJson( lua.table2str(value) )
    end
    if ( value == nil ) then value = "nil" end

    local value_type = type(value)
    if ( value_type == "boolean") then
       if ( value ) then 
           value = "true"
       else
           value = "false"
       end
    elseif ( value_type == "table") then
       value = lua.table2str( value )
    end

    line, lua_file = get_filename_line( debug_info )

    local day_hour = os.date("%Y%m%d%H")
    local curTime = os.date("%Y-%m-%d %H:%M:%S")
    local strLog = strLuaDEID.."|调试|"..lua_info.class_name.."|"..lua_info.event_source.."|"..lua_info.event_name.."|"..lua_info.event_code.."|"..lua_file.."|"..line.."|"..lua_info.user_name.."|"..key.."|"..value
    nRet = mobox.writeLuaLog( strLog )
    --if ( nRet ~= 0 ) then  error( "writeLuaLog失败!" ) end
 end 

 -- 设置mobox.stopProgram
function lua.Stop( strLuaDEID, msg )
    local line = 0
    local lua_file = ''

    nRet, strRetInfo = mobox.getLuaDEInfo(strLuaDEID)
    if (nRet ~= 0 or strRetInfo == '') then return end
    local lua_info, success
    success, lua_info = pcall( json.decode, strRetInfo)
    if ( success == false ) then return end

    local debug_info = debug.getinfo(2)

    line, lua_file = get_filename_line( debug_info ) 
    local str_msg = "在编码'"..lua_info.event_code.."' 名称:',"..lua_info.event_name.."'的脚本中第("..line..")行终止执行，原因:"..msg

    if ( lua_info.gen_lua_info == 0 ) then 
        -- 不输出 Debug 信息，那么在客户端就不要显示 错误行信息，把错误信息作为警告输出
        mobox.stopProgram( strLuaDEID, msg ) 
        lua.WriteLog( strLuaDEID, "警告", lua_file, line, "", str_msg )
    else
        mobox.stopProgram( strLuaDEID, str_msg )        
    end
end


 -- 用于输出Lua脚本执行时的警告信息 warning
 function lua.Warning( strLuaDEID, debug_info, warnInfo )
     local line = 0
     local lua_file = ''
 
     line, lua_file = get_filename_line( debug_info )  
     lua.WriteLog( strLuaDEID, "警告", lua_file, line, "", warnInfo)
 end
 
 -- 用于输出Lua脚本执行时的错误信息 errorInfo
 function lua.Error( strLuaDEID, debug_info, errorInfo )
     local line = 0
     local lua_file = ''
 
     line, lua_file = get_filename_line( debug_info )  
     lua.WriteLog( strLuaDEID, "错误", lua_file, line, "", errorInfo)
     error( errorInfo )
 end

 
-- 把字符 Y 转成 true N 转成false
-- XX
function lua.YesNo2Bool( strYesNo )
    if ( strYesNo == nil or strYesNo == '' ) then return false end
    if ( strYesNo == 'Y' ) then
        return true
    elseif ( strYesNo == 'N') then
        return false
    end
    return false
end

-- 字符串为空（无效的一个字符串参数）
function lua.StrIsEmpty( strValue )
    if ( strValue == '' or strValue == nil or type( strValue ) ~= "string" ) then 
        return true
    else
        return false
    end
end

-- 字符减1
function lua.DecrementChar(char)
    local ascii = string.byte(char) - 1
    return string.char(ascii)
end

-- 字符加1
function lua.IncrementalChar(char)
    local ascii = string.byte(char) + 1
    return string.char(ascii)
end

return lua