Module:Process Query Output 3

Documentation for this module may be created at Module:Process Query Output 3/doc

local p = {}

function p.processData(frame)
    local pages_only_arg = frame.args["pages_only"]
    local full_query_arg = frame.args["full_query"]

    local page_names_array = mw.text.split(pages_only_arg, ",")
    
    for i = 1, #page_names_array do
      page_names_array[i] = mw.text.trim(page_names_array[i])
    end

    local concatenated_string = "<ul><li>Elements of page_names_array:</li>"
    for i, v in ipairs(page_names_array) do
        concatenated_string = concatenated_string .. "<li>" .. i .. ": " .. v .. "</li>"
    end
    concatenated_string = concatenated_string .. "</ul>"


    local query_output_tbl_0 = {}
    

    for i, page_name in ipairs(page_names_array) do
      match = mw.ustring.match(full_query_arg, page_name .. "%s" .. "%b()")
       if match == nil then
        -- do nothing
      else
        query_output_tbl_0[page_name] = match
      end
    end

    local query_output_tbl = {}


    for i, page_name in ipairs(page_names_array) do
      match = mw.ustring.match(full_query_arg, page_name .. "%s" .. "(%b())")
      -- if for some reason (for example, there is an unmatched "(" in the text for one of the fields) no match was found for one of the pages,
      -- the page is listed and a note indicates the missing data:
      if match == nil then
        query_output_tbl[page_name] = '<span class="error-advisory">Data for page [[' .. page_name .. "]] could not be added to the list.</span>"
      else
        query_output_tbl[page_name] = match
      end
    end
 
    local check_for_unmatched_parentheses = ""
    local comparison_length = mw.ustring.len("(" .. full_query_arg .. ")")
    -- string.find only returns a match for captures:
    local pos1, pos2, checkmatch = mw.ustring.find("(" .. full_query_arg .. ")", "(%b())")
    local length_checkmatch = mw.ustring.len(checkmatch)
    if length_checkmatch < comparison_length then
      check_for_unmatched_parentheses = "full_query_arg has unmatched '(' or ')'"
    elseif length_checkmatch == comparison_length then
      check_for_unmatched_parentheses = "full_query_arg is OK"
    elseif length_checkmatch > comparison_length then
      check_for_unmatched_parentheses = "length_checkmatch > comparison_length: I don't know what this means"
    elseif checkmatch == nil then
      check_for_unmatched_parentheses = "no balanced parentheses were found"
    else
      check_for_unmatched_parentheses = "checkmatch is inconclusive"
    end

    ordered_array_of_page_name_positions = {}

 
    local concatenated_string_2 = "<ul><li>Elements of query_output_tbl</li>"

    for k, v in pairs(query_output_tbl) do
      concatenated_string_2 = concatenated_string_2 .. "<li>" .. k .. ": " .. v .. "</li>"
    end
    concatenated_string_2 = concatenated_string_2 .. "</ul>"

    -- see if the length of the concatenated query_ouput_table is the same as the original full_query_arg

    local concatenated_full_query_tbl_0 = ""
    for k, v in pairs(query_output_tbl_0) do
      concatenated_full_query_tbl_0 = concatenated_full_query_tbl_0 .. v .. ", "
    end
    concatenated_full_query_tbl_0 = mw.ustring.sub(concatenated_full_query_tbl_0, 1, -3)
    local length_concatenated_full_query_tbl_0 = 0
    for k, v in pairs(query_output_tbl_0) do
      length_concatenated_full_query_tbl_0 = length_concatenated_full_query_tbl_0 + mw.ustring.len(v) + 2
    end
    length_concatenated_full_query_tbl_0 = length_concatenated_full_query_tbl_0 - 2 
    local length_match_advisory = ""
    local concatenated_length = mw.ustring.len(concatenated_full_query_tbl_0)
    local original_length = mw.ustring.len(full_query_arg)
    if concatenated_length == original_length then
      length_match_advisory = "length of the concatenated query_ouput_table_0 is the same as the original full_query_arg"
    else
      length_match_advisory = "length of the concatenated query_ouput_table_0 is NOT the same as the original full_query_arg"
    end


    return "<ul><li>" .. pages_only_arg .. "</ul></li>" .. concatenated_string  .. "<ul><li>" .. full_query_arg .."</li></ul>" .. "<ul><li>" .. check_for_unmatched_parentheses .. "</li><li>" .. "Length of checkmatch: " .. length_checkmatch .. "</li><li>"  .. "Comparison: " .. comparison_length .. "</li><li>" .. "checkmatch: " .. checkmatch .. "</li><li>" .. "Positions of checkmatch: " .. pos1 .. ", " .. pos2 .. " .. </li></ul>"  .. concatenated_string_2 .. "<ul><li>" .. length_match_advisory ..  "</li><li>" .. "Original length: " .. original_length .. "</li><li>" .. "Concatenated length: " .. concatenated_length .. "</li><li>" .. "Calculated length of concatenated table: " .. length_concatenated_full_query_tbl_0 .. "</li></ul>"

 
    
    
end

return p