-- 获取源文件信息
local handle = io.popen("cd")
local script_dir
if handle then
    script_dir = handle:read("*a"):gsub("[\r\n]+$", "")
    handle:close()
end
print(jit and jit.arch or "unknown")
-- 设置脚本目录
-- package.path  = package.path  .. ";./bin/;./jx/?.lua;./jx_base/?.lua;./mobox_base/?.lua;./wms/?.lua;./wms_base/?.lua;" 
-- 动态获取当前脚本目录（关键！）
-- local script_dir = debug.getinfo(1, "S").source:match("@?(.*/)")
print("当前脚本所在的目录是: " .. script_dir)

-- 重置 package.path（避免旧路径干扰）
package.path = ""
package.path = package.path .. ";" .. script_dir .. "./?.lua"
-- 添加必要路径（使用正确的模板格式）
package.path = package.path .. ";" .. script_dir .. "/bin/?.lua" .. -- 子目录 bin
";" .. script_dir .. "/lualibs/?.lua" .. -- 子目录 bin
";" .. script_dir .. "/jx/?.lua" .. -- 子目录 jx
";" .. script_dir .. "/jx_base/?.lua" .. ";" .. script_dir .. "/wms/?.lua" .. ";" .. script_dir ..
                   "/lualibs/xml2lua-master/?.lua" .. ";" .. script_dir .. "/wms_base/?.lua" .. ";" .. script_dir ..
                   "/mobox_base/?.lua"

-- 添加 C 模块搜索路径（针对 Windows 的 .dll 文件）
package.cpath = package.cpath .. ";" .. script_dir .. "/bin/clibs/?.dll" .. ";" .. script_dir .. "/bin/socket/?.dll" ..
                    ";" .. script_dir .. "/bin/clibs/socket/?.dll"

local xml2lua = require("xml2lua")
-- Uses a handler that converts the XML to a Lua table
local handler = require("xmlhandler.tree")
local cjson = require("json")

-- SOAP XML 数据
local soap_xml = [[
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <v1:InCompanyReq xmlns:v1="http://www.gkht.com/Information/INV/Ebs/Schemas/InCompany/V1.0">
      <v1:Company_Input>
        <v1:RESTHeader>
          <v1:NLSLanguage>SIMPLIFIED CHINESE</v1:NLSLanguage>
          <v1:Org_Id>0</v1:Org_Id>
        </v1:RESTHeader>
        <v1:InputParameters>
          <v1:COMPANY_TB>
            <v1:COMPANY_TB_ITEM>
              <v1:companyCode>CBJJT1</v1:companyCode>
              <v1:companyName>北京京泰日晟科技有限公司</v1:companyName>
              <v1:memo>个</v1:memo>
            </v1:COMPANY_TB_ITEM>
            <v1:COMPANY_TB_ITEM>
              <v1:companyCode>CBJJXK</v1:companyCode>
              <v1:companyName>北京吉鑫康商贸有限公司</v1:companyName>
              <v1:memo>个</v1:memo>
            </v1:COMPANY_TB_ITEM>
          </v1:COMPANY_TB>
        </v1:InputParameters>
      </v1:Company_Input>
    </v1:InCompanyReq>
  </soap:Body>
</soap:Envelope>
]]
soap_xml = [[
<soapenv:Envelope
    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
    <soap:Header
        xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
    </soap:Header>
    <soapenv:Body>
        <v1:inCommodityReq
            xmlns:v1="http://www.gkht.com/Information/INV/Ebs/Schemas/InCommodity/V1.0">
            <v1:COMMODITY_Input>
                <v1:RESTHeader>
                    <v1:Responsibility/>
                    <v1:RespApplication/>
                    <v1:SecurityGroup/>
                    <v1:NLSLanguage>SIMPLIFIED CHINESE</v1:NLSLanguage>
                    <v1:Org_Id>0</v1:Org_Id>
                </v1:RESTHeader>
                <v1:InputParameters>
                    <v1:COMMODITY_TB>
                        <!--1 or more repetitions:-->
                        <v1:COMMODITY_TB_ITEM>
                            <v1:skuId>KH32803017</v1:skuId>
                            <v1:storerId>CGKHTY</v1:storerId>
                            <v1:skuName>螺旋刀片式髓内钉</v1:skuName>
                            <v1:skuDec>螺旋刀片式股骨近端髓内钉10×170</v1:skuDec>
                            <v1:spec>JGDⅥ φ10×170</v1:spec>
                            <v1:packageCode>个</v1:packageCode>
                            <v1:packageQty>1</v1:packageQty>
                            <v1:goodsUnit>件</v1:goodsUnit>
                            <v1:length>1</v1:length>
                            <v1:width>2</v1:width>
                            <v1:height>3</v1:height>
                            <v1:abcType></v1:abcType>
                            <v1:isBatchMgr>1</v1:isBatchMgr>
                            <v1:isSnMgr>1</v1:isSnMgr>
                            <v1:isSnStorageMgr>0</v1:isSnStorageMgr>
                            <v1:imgUrl></v1:imgUrl>
                            <v1:cidtype>A</v1:cidtype>
                            <v1:productLine>KH-创伤</v1:productLine>
                            <v1:storageConditions>常温</v1:storageConditions>
                            <v1:skuType>small</v1:skuType>
                            <v1:maxCount>50</v1:maxCount>
                            <v1:sptm></v1:sptm>
                            <v1:barcode1></v1:barcode1>
                            <v1:barcode2></v1:barcode2>
                            <v1:barcode3></v1:barcode3>
                            <v1:barcode_pk></v1:barcode_pk>
                        </v1:COMMODITY_TB_ITEM>
                    </v1:COMMODITY_TB>
                </v1:InputParameters>
            </v1:COMMODITY_Input>
        </v1:inCommodityReq>
    </soapenv:Body>
</soapenv:Envelope>
]]
-- 解析配置
local parser = xml2lua.parser(handler)
-- parser:parse(soap_xml) -- 注意冒号调用[7](@ref)

-- 数据清洗函数（处理命名空间和空值）
local function clean_data(data)
    local function process(tbl)
        local result = {}
        for k, v in pairs(tbl) do
            -- 去除命名空间前缀[6,9](@ref)
            local new_key = k:gsub("v1:", ""):gsub("soap:", "")

            if type(v) == "table" then
                -- 处理数组结构[4](@ref)
                if #v > 0 then
                    local arr = {}
                    for i, item in ipairs(v) do
                        arr[i] = process(item)
                    end
                    result[new_key] = arr
                else
                    result[new_key] = process(v)
                end
            else
                result[new_key] = v ~= "" and v or nil
            end
        end
        return result
    end
    return process(handler.root)
end

-- 生成 JSON
-- local cleaned = clean_data(handler.root)
-- local json_str = cjson.encode(cleaned) -- 使用 cjson 序列化[3,4](@ref)

print(json_str)
-- 安全解析函数
local function safe_parse(xml_str)
    local ok, err = pcall(function()
        parser:parse(xml_str) -- 使用 pcall 捕获异常[7](@ref)
    end)
    if not ok then
        print("XML解析失败:", err)
        return nil
    end
    return handler.root
end
local cleaned = nil;
-- 执行解析
local parsed_data = safe_parse(soap_xml)
if parsed_data then
    cleaned = clean_data(parsed_data)
    print(cjson.encode(cleaned))
end

-- 查找 Req 元素（body 下的第一个元素）
-- 获取 soapenv:Body 下的所有键
local body_keys = {}
local body = cleaned["soapenv:Envelope"]["soapenv:Body"]
for k, _ in pairs(body) do
    table.insert(body_keys, k)
end

-- 使用数字索引 1 获取 Req 元素（Lua 索引从 1 开始）
local req_key = body_keys[1]
local req = body[req_key]

-- 获取 Req 下的所有键
local req_keys = {}
for k, _ in pairs(req) do
    table.insert(req_keys, k)
end

-- 使用数字索引 2 获取 Input 元素
local input_key = req_keys[2]
local input = req[input_key]

-- 提取 InputParameters 数据
local input_parameters = input["InputParameters"]

-- 打印 InputParameters 数据
local function print_table(t, indent)
    indent = indent or 0
    for k, v in pairs(t) do
        local prefix = string.rep("  ", indent)
        if type(v) == "table" then
            print(prefix .. tostring(k) .. ":")
            print_table(v, indent + 1)
        else
            print(prefix .. tostring(k) .. ": " .. tostring(v))
        end
    end
end

print_table(input_parameters)