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>"

    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 checkmatch = mw.ustring.match("(" .. full_query_arg .. ")", "(%b())")
    if checkmatch == nil then
      check_for_unmatched_parentheses = "full_query_arg has unmatched '(' or ')'"
    else
      check_for_unmatched_parentheses = "full_query_arg is OK"
    end

    ordered_array_of_page_name_positions = {}

    --positions of page names in full_query_arg:
    for i, page_name in ipairs(page_names_array) do
      pos1, pos2 = mw.ustring.find(full_query_arg, page_name)
      ordered_array_of_page_name_positions[tostring(pos1)] = page_name
    end

    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 = ""
    for k, v in pairs(query_output_tbl) do
      concatenated_full_query_tbl = concatenated_full_query_tbl .. v .. ", "
    end
    concatenated_full_query_tbl = mw.ustring.sub(concatenated_full_query_tbl, 1, -3)
    local length_concatenated_full_query_tbl = 0
    for k, v in pairs(query_output_tbl) do
      length_concatenated_full_query_tbl = length_concatenated_full_query_tbl .. mw.ustring.len(v) + 2
    end
    length_concatenated_full_query_tbl = length_concatenated_full_query_tbl - 2 
    local length_match_advisory = ""
    local concatenated_length = mw.ustring.len(concatenated_full_query_tbl)
    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 is the same as the original full_query_arg"
    else
      length_match_advisory = "length of the concatenated query_ouput_table 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 .. "</ul></li>"  .. concatenated_string_2 .. "<ul><li>" .. length_match_advisory .. "</ul></li>" .. "<ul><li>" .. "Original length: " .. original_length .. "</li><li>" .. "Concatenated length: " .. concatenated_length .. "</li><li>" .. "Calculated length of concatenated table: " .. length_concatenated_full_query_tbl .. "</li></ul>"

 
    
    
end

return p