--The Following is mandatory for a logic file:
--    -define function get_file_list() that returns a table of all announcement
--    files referenced in the logic file.
--    -define function get_play_list() that takes the logic input string as argument,
--    and returns the table of announcement files to play.
local announcement_file_list = {
    [0] = "basic/en-GB/0.wav",
    [1] = "basic/en-GB/1.wav",
    [2] = "basic/en-GB/2.wav",
    [3] = "basic/en-GB/3.wav",
    [4] = "basic/en-GB/4.wav",
    [5] = "basic/en-GB/5.wav",
    [6] = "basic/en-GB/6.wav",
    [7] = "basic/en-GB/7.wav",
    [8] = "basic/en-GB/8.wav",
    [9] = "basic/en-GB/9.wav"
}
function get_file_list()
    file_list = {}
    for i = 0, 9 do
        table.insert(file_list, announcement_file_list[i])
    end
    return file_list
end
function get_play_list(input)
    play_list = {}
    for i = 1, input:len() do
        digit = tonumber(input:sub(i, i))
        if digit then
            table.insert(play_list, announcement_file_list[digit])
        else
            error("Only digits were expected")
        end
    end
    return play_list
end

--The Following is mandatory for a logic file:
--    -define function get_file_list() that returns a table of all announcement
--    files referenced in the logic file.
--    -define function get_play_list() that takes the logic input string as argument,
--    and returns the table of announcement files to play.
local ordered_number_list = {
    [1] = "basic/en-GB/first.wav",
    [2] = "basic/en-GB/second.wav",
    [3] = "basic/en-GB/third.wav",
    [4] = "basic/en-GB/fourth.wav",
    [5] = "basic/en-GB/fifth.wav",
    [6] = "basic/en-GB/sixth.wav",
    [7] = "basic/en-GB/seventh.wav",
    [8] = "basic/en-GB/eigth.wav",
    [9] = "basic/en-GB/ninth.wav",
    [10] = "basic/en-GB/tength.wav",
    [11] = "basic/en-GB/eleventh.wav",
    [12] = "basic/en-GB/twelfth.wav",
    [13] = "basic/en-GB/thirteenth.wav",
    [14] = "basic/en-GB/fourteenth.wav",
    [15] = "basic/en-GB/fifteenth.wav",
    [16] = "basic/en-GB/sixteenth.wav",
    [17] = "basic/en-GB/seventeenth.wav",
    [18] = "basic/en-GB/eighteenth.wav",
    [19] = "basic/en-GB/nineteenth.wav",
    [20] = "basic/en-GB/twentieth.wav",
    [30] = "basic/en-GB/thirtieth.wav"
}
local number_list = {
    [1] = "basic/en-GB/1.wav",
    [2] = "basic/en-GB/2.wav",
    [3] = "basic/en-GB/3.wav",
    [4] = "basic/en-GB/4.wav",
    [5] = "basic/en-GB/5.wav",
    [6] = "basic/en-GB/6.wav",
    [7] = "basic/en-GB/7.wav",
    [8] = "basic/en-GB/8.wav",
    [9] = "basic/en-GB/9.wav",
    [10] = "basic/en-GB/10.wav",
    [11] = "basic/en-GB/11.wav",
    [12] = "basic/en-GB/12.wav",
    [13] = "basic/en-GB/13.wav",
    [14] = "basic/en-GB/14.wav",
    [15] = "basic/en-GB/15.wav",
    [16] = "basic/en-GB/16.wav",
    [17] = "basic/en-GB/17.wav",
    [18] = "basic/en-GB/18.wav",
    [19] = "basic/en-GB/19.wav",
    [20] = "basic/en-GB/20.wav",
    [30] = "basic/en-GB/30.wav",
    [40] = "basic/en-GB/40.wav",
    [50] = "basic/en-GB/50.wav",
    [60] = "basic/en-GB/60.wav",
    [70] = "basic/en-GB/70.wav",
    [80] = "basic/en-GB/80.wav",
    [90] = "basic/en-GB/90.wav"
}
local month_list = {
    [1] = "basic/en-GB/january.wav",
    [2] = "basic/en-GB/february.wav",
    [3] = "basic/en-GB/march.wav",
    [4] = "basic/en-GB/april.wav",
    [5] = "basic/en-GB/may.wav",
    [6] = "basic/en-GB/june.wav",
    [7] = "basic/en-GB/july.wav",
    [8] = "basic/en-GB/august.wav",
    [9] = "basic/en-GB/september.wav",
    [10] = "basic/en-GB/october.wav",
    [11] = "basic/en-GB/november.wav",
    [12] = "basic/en-GB/december.wav"
}
local word_list = {
    ["of"] = "basic/en-GB/of.wav",
    ["oh"] = "basic/en-GB/oh.wav",
    ["hundred"] = "basic/en-GB/hundred.wav",
    ["thousand"] = "basic/en-GB/thousand.wav"
}
function get_file_list ()
    file_list = {}
    for k,v in pairs(ordered_number_list) do
        table.insert(file_list, v)
    end
    for k,v in pairs(number_list) do
        table.insert(file_list, v)
    end
    for k,v in pairs(month_list) do
        table.insert(file_list, v)
    end
    for k,v in pairs(word_list) do
        table.insert(file_list, v)
    end
    return file_list
end
function get_play_list(input)
    if input:len() ~= 8 then
        error("Input length is not 8")
    end
    century = tonumber(input:sub(1,2))
    first_century_digit = tonumber(input:sub(1,1))
    last_century_digit = tonumber(input:sub(2,2))
    year = tonumber(input:sub(3,4))
    last_year_digit = tonumber(input:sub(4,4))
    month = tonumber(input:sub(5,6))
    day = tonumber(input:sub(7,8))
    audio_file_list = {}
    if day >= 1 and day <= 20 then
        table.insert(audio_file_list, ordered_number_list[day])
    elseif day > 20 and day < 30 then
        table.insert(audio_file_list, number_list[20])
        table.insert(audio_file_list, ordered_number_list[day-20])
    elseif day == 30 then
        table.insert(audio_file_list, ordered_number_list[day])
    elseif day == 31 then
        table.insert(audio_file_list, number_list[30])
        table.insert(audio_file_list, ordered_number_list[1])
    else
        error("Day is bigger than 31")
    end
    table.insert(audio_file_list, word_list["of"])
    if month >= 1 and month <= 12 then
        table.insert(audio_file_list, month_list[month])
    else
        error("Month is bigger than 12")
    end
    if last_century_digit == 0 and first_century_digit > 0 then
        table.insert(audio_file_list, number_list[first_century_digit])
        table.insert(audio_file_list, word_list["thousand"])
    elseif century >= 1 and century <= 20 then
        table.insert(audio_file_list, number_list[century])
    elseif century > 20 and last_century_digit == 0 then
        table.insert(audio_file_list, number_list[century])
    elseif century > 20 then
        table.insert(audio_file_list, number_list[first_century_digit * 10])
        table.insert(audio_file_list, number_list[last_century_digit])
    end
    if last_century_digit ~= 0 then
        if year == 0 then
            table.insert(audio_file_list, word_list["hundred"])
        elseif year < 10 then
            table.insert(audio_file_list, word_list["oh"])
        end
    end
    if year >= 20 then
        table.insert(audio_file_list, number_list[year-last_year_digit])
    end
end

--The Following is mandatory for a logic file:
--    -define function get_file_list() that returns a table of all announcement
--    files referenced in the logic file.
--    -define function get_play_list() that takes the logic input string as argument,
--    and returns the table of announcement files to play.
local ones_list = {
    [1] = "basic/en-GB/1.wav",
    [2] = "basic/en-GB/2.wav",
    [3] = "basic/en-GB/3.wav",
    [4] = "basic/en-GB/4.wav",
    [5] = "basic/en-GB/5.wav",
    [6] = "basic/en-GB/6.wav",
    [7] = "basic/en-GB/7.wav",
    [8] = "basic/en-GB/8.wav",
    [9] = "basic/en-GB/9.wav",
    [10] = "basic/en-GB/10.wav",
    [11] = "basic/en-GB/11.wav",
    [12] = "basic/en-GB/12.wav",
    [13] = "basic/en-GB/13.wav",
    [14] = "basic/en-GB/14.wav",
    [15] = "basic/en-GB/15.wav",
    [16] = "basic/en-GB/16.wav",
    [17] = "basic/en-GB/17.wav",
    [18] = "basic/en-GB/18.wav",
    [19] = "basic/en-GB/19.wav"
}
local tens_list = {
    [2] = "basic/en-GB/20.wav",
    [3] = "basic/en-GB/30.wav",
    [4] = "basic/en-GB/40.wav",
    [5] = "basic/en-GB/50.wav"
}
local oh_ones_list = {
    [0] = "basic/en-GB/HOURS_PRECISELY.wav",
    [1] = "basic/en-GB/OH1.wav",
    [2] = "basic/en-GB/OH2.wav",
    [3] = "basic/en-GB/OH3.wav",
    [4] = "basic/en-GB/OH4.wav",
    [5] = "basic/en-GB/OH5.wav",
    [6] = "basic/en-GB/OH6.wav",
    [7] = "basic/en-GB/OH7.wav",
    [8] = "basic/en-GB/OH8.wav",
    [9] = "basic/en-GB/OH9.wav",
    [10] = "basic/en-GB/HOUR_PRECISELY.wav"
}
function get_file_list()
    file_list = {}
    for i = 1, 19 do
        table.insert(file_list, ones_list[i])
    end
    for i = 2, 5 do
        table.insert(file_list, tens_list[i])
    end
    for i = 0, 10 do
        table.insert(file_list, oh_ones_list[i])
    end
    return file_list
end
function get_play_list(input)
    play_list = {}
    if input:len() ~= 4 then
        error("Wrong input length")
    end
    if (tonumber(input) == nil) then
        error("Only digits were expected")
    end
    minute_ones = tonumber(input:sub(4, 4))
    minute_tens = tonumber(input:sub(3, 3))
    hour_ones =  tonumber(input:sub(2, 2))
    hour_tens =  tonumber(input:sub(1, 1))
    if hour_tens + hour_ones == 0 then
        hour_tens = 2
        hour_ones = 4
    end
    if (hour_tens * 10 + hour_ones) > 24 then
        error("Invalid input for hours")
    elseif hour_tens == 2 then
        table.insert(play_list, tens_list[2])
        if hour_ones ~= 0 then
            table.insert(play_list, ones_list[hour_ones])
        end
    else
        hours = hour_tens * 10 + hour_ones
        table.insert(play_list, ones_list[hours])
    end
    if minute_tens > 5 then
        error("Invalid input for minutes")
    elseif minute_tens > 1 then
        table.insert(play_list, tens_list[minute_tens])
        if minute_ones ~= 0 then
            table.insert(play_list, ones_list[minute_ones])
        end
    elseif minute_tens == 1 then
        minutes = minute_tens * 10 + minute_ones
        table.insert(play_list, ones_list[minutes])
    elseif minute_tens + minute_ones == 0 then
        if hour_tens*10 + hour_ones == 1 then
            table.insert(play_list, oh_ones_list[10])
        else
            table.insert(play_list, oh_ones_list[0])
        end
    else
        table.insert(play_list, oh_ones_list[minute_ones])
    end
    return play_list
end

--The Following is mandatory for a logic file:
--    -define function get_file_list() that returns a table of all announcement
--    files referenced in the logic file.
--    -define function get_play_list() that takes the logic input string as argument,
--    and returns the table of announcement files to play.
local number_list = {
    [0] = "basic/en-GB/0.wav",
    [1] = "basic/en-GB/1.wav",
    [2] = "basic/en-GB/2.wav",
    [3] = "basic/en-GB/3.wav",
    [4] = "basic/en-GB/4.wav",
    [5] = "basic/en-GB/5.wav",
    [6] = "basic/en-GB/6.wav",
    [7] = "basic/en-GB/7.wav",
    [8] = "basic/en-GB/8.wav",
    [9] = "basic/en-GB/9.wav",
    [10] = "basic/en-GB/10.wav",
    [11] = "basic/en-GB/11.wav",
    [12] = "basic/en-GB/12.wav",
    [13] = "basic/en-GB/13.wav",
    [14] = "basic/en-GB/14.wav",
    [15] = "basic/en-GB/15.wav",
    [16] = "basic/en-GB/16.wav",
    [17] = "basic/en-GB/17.wav",
    [18] = "basic/en-GB/18.wav",
    [19] = "basic/en-GB/19.wav",
    [20] = "basic/en-GB/20.wav",
    [30] = "basic/en-GB/30.wav",
    [40] = "basic/en-GB/40.wav",
    [50] = "basic/en-GB/50.wav",
    [60] = "basic/en-GB/60.wav",
    [70] = "basic/en-GB/70.wav",
    [80] = "basic/en-GB/80.wav",
    [90] = "basic/en-GB/90.wav"
}
local number_big_units_list = {
    [0] = "basic/en-GB/100.wav",
    [1] = "basic/en-GB/1000.wav",
    [2] = "basic/en-GB/million.wav",
    [3] = "basic/en-GB/billion.wav"
}
function get_file_list()
    file_list = {}
    for i = 0, 19 do
        table.insert(file_list, number_list[i])
    end
    for i = 20, 90, 10 do
        table.insert(file_list, number_list[i])
    end
    for i = 0, 3 do
        table.insert(file_list, number_big_units_list[i])
    end
    return file_list
end
function get_play_list(input)
    play_list = {}
    if input:len() > 12 or input:len() < 1 then
        error("Input length must be between 1 and 12 digits")
    end
    if 'number' ~= type(tonumber(input)) then
        error("Input must be a number. The invalid input was: " .. input)
    end
    if tonumber(input) < 0 then
        error("Input must be a positive number. The invalid input was: " .. input)
    end
    -- Remove leading zeros
    input = input:match("0*(%d+)")
    -- Add zeros in front of the input data in order to have always 3, 6, 9 or
    -- 12 digits for processing:
    padding = (3 - (input:len() % 3) ) % 3
    input = string.rep("0",padding) .. input
    iterations = (input:len() / 3) - 1
    for i = 0, iterations do
        hundreds = tonumber(input:sub(i*3 + 1, i*3 + 1))
        tens = tonumber(input:sub(i*3 + 2, i*3 + 2))
        ones = tonumber(input:sub(i*3 + 3, i*3 + 3))
        -- Special case for zero '0'
        if iterations == 0  and (hundreds == 0 and tens == 0 and ones == 0) then
            table.insert(play_list, number_list[ones])
        end
        -- Add 'hundreds' audio file
        if hundreds ~= 0 then
            table.insert(play_list, number_list[hundreds])
            table.insert(play_list, number_big_units_list[0])
        end
        -- Add 'tens' audio file
        if tens ~= 0 then
            if tens == 1 then
                table.insert(play_list, number_list[10 + ones])
            else
                table.insert(play_list, number_list[10 * tens])
            end
        end
        -- Add 'units' audio file
        if tens ~= 1 and ones ~= 0 then
            table.insert(play_list, number_list[ones])
        end
        -- Add billions, millions or thousands audio file
        if (iterations - i) == 3 then
            table.insert(play_list, number_big_units_list[3])
        elseif ((iterations - i) == 2) and (hundreds ~= 0 or tens ~= 0 or ones ~=0) then
            table.insert(play_list, number_big_units_list[2])
        elseif ((iterations - i) == 1) and (hundreds ~= 0 or tens ~= 0 or ones ~=0) then
            table.insert(play_list, number_big_units_list[1])
        end
    end
    return play_list
end

--The Following is mandatory for a logic file:
--    -define function get_file_list() that returns a table of all announcement
--    files referenced in the logic file.
--    -define function get_play_list() that takes the logic input string as argument,
--    and returns the table of announcement files to play
local number_list = {
    [0] = "basic/en-GB/0.wav",
    [1] = "basic/en-GB/1.wav",
    [2] = "basic/en-GB/2.wav",
    [3] = "basic/en-GB/3.wav",
    [4] = "basic/en-GB/4.wav",
    [5] = "basic/en-GB/5.wav",
    [6] = "basic/en-GB/6.wav",
    [7] = "basic/en-GB/7.wav",
    [8] = "basic/en-GB/8.wav",
    [9] = "basic/en-GB/9.wav",
    [10] = "basic/en-GB/10.wav",
    [11] = "basic/en-GB/11.wav",
    [12] = "basic/en-GB/12.wav",
    [13] = "basic/en-GB/13.wav",
    [14] = "basic/en-GB/14.wav",
    [15] = "basic/en-GB/15.wav",
    [16] = "basic/en-GB/16.wav",
    [17] = "basic/en-GB/17.wav",
    [18] = "basic/en-GB/18.wav",
    [19] = "basic/en-GB/19.wav",
    [20] = "basic/en-GB/20.wav",
    [30] = "basic/en-GB/30.wav",
    [40] = "basic/en-GB/40.wav",
    [50] = "basic/en-GB/50.wav",
    [60] = "basic/en-GB/60.wav",
    [70] = "basic/en-GB/70.wav",
    [80] = "basic/en-GB/80.wav",
    [90] = "basic/en-GB/90.wav"
}
local number_big_units_list = {
    [0] = "basic/en-GB/100.wav",
    [1] = "basic/en-GB/1000.wav",
    [2] = "basic/en-GB/million.wav",
    [3] = "basic/en-GB/billion.wav"
}
local money_units_list = {
    [0] = "basic/en-GB/POUNDS.wav",
    [1] = "basic/en-GB/POUND.wav",
    [2] = "basic/en-GB/PENCE.wav",
    [3] = "basic/en-GB/PENNY.wav",
    [4] = "basic/en-GB/POUNDS_EXACTLY.wav",
    [5] = "basic/en-GB/POUND_EXACTLY.wav",
    [6] = "basic/en-GB/NEGATIVE.wav"
}
function get_file_list()
    file_list = {}
    for i = 0, 19 do
        table.insert(file_list, number_list[i])
    end
    for i = 20, 90, 10 do
        table.insert(file_list, number_list[i])
    end
    for i = 0, 3 do
        table.insert(file_list, number_big_units_list[i])
    end
    for i = 0, 6 do
        table.insert(file_list, money_units_list[i])
    end
    return file_list
end
function get_play_list(input)
    play_list = {}
    if input:len() > 14 or input:len() < 1 then
        error("Input length must be between 1 and 14 digits")
    end
    if 'number' ~= type(tonumber(input)) then
        error("Input must be a number. The invalid input was: " .. input)
    end
    -- Check for negative sign, process and remove it before processing the number
    if input:sub(1,1) == "-" then
        table.insert(play_list, money_units_list[6])
        input = input:sub(2)
    end
    -- Remove leading zeros
    input = input:match("0*(%d+)")
    -- The input is in the smallest monetary unit which is pence. The last two
    -- digits are pence, the remaining digits are pounds. The input is padded
    -- with zeros in front of the pounds data and zeros between pounds and pence
    -- in order to have always 3, 6, 9 or 12 or 15 digits for processing:
    pence = input:sub(-2,-1)
    pounds = input:sub(1,-3)
    padding = (3 - (pounds:len() % 3) ) % 3
    pounds = string.rep("0",padding) .. pounds
    padding = (3 - (pence:len() % 3) ) % 3
    pence = string.rep("0",padding) .. pence
    input = pounds .. pence
    iterations = (input:len() / 3) - 1
    for i = 0, iterations do
        hundreds = tonumber(input:sub(i*3 + 1, i*3 + 1))
        tens = tonumber(input:sub(i*3 + 2, i*3 + 2))
        ones = tonumber(input:sub(i*3 + 3, i*3 + 3))
        -- Special case for zero '0'
        if iterations == 0  and (hundreds == 0 and tens == 0 and ones == 0) then
            -- In case of zero remove the 'negative'
            table.remove(play_list)
            table.insert(play_list, number_list[ones])
        end
        -- Add 'hundreds' audio file
        if hundreds ~= 0 then
            table.insert(play_list, number_list[hundreds])
            table.insert(play_list, number_big_units_list[0])
        end
        -- Add 'tens' audio file
        if tens ~= 0 then
            if tens == 1 then
                table.insert(play_list, number_list[10 + ones])
            else
                table.insert(play_list, number_list[10 * tens])
            end
        end
        -- Add 'units' audio file
        if tens ~= 1 and ones ~= 0 then
            table.insert(play_list, number_list[ones])
        end
        -- Add billions, millions, thousands, pounds or pence audio file
        if (iterations - i) == 4 then
            table.insert(play_list, number_big_units_list[3])
        elseif ((iterations - i) == 3) and (hundreds ~= 0 or tens ~= 0 or ones ~=0) then
            table.insert(play_list, number_big_units_list[2])
        elseif ((iterations - i) == 2) and (hundreds ~= 0 or tens ~= 0 or ones ~=0) then
            table.insert(play_list, number_big_units_list[1])
        elseif ((iterations - i) == 1) and (input:len() == 6 and ( hundreds == 0 and tens == 0 and ones == 1)) then
            table.insert(play_list, money_units_list[1])
        elseif ((iterations - i) == 1) then
            table.insert(play_list, money_units_list[0])
        elseif ((iterations - i) == 0) and (hundreds ~= 0 or tens ~= 0 or ones ~= 0) then
            if tens ~= 0 or ones > 1 then
                table.insert(play_list, money_units_list[2])
            else
                table.insert(play_list, money_units_list[3])
            end
        elseif ((iterations - i) == 0) then
            if (input:len() == 3) then
                -- Case for 0 pence
                table.insert(play_list, money_units_list[2])
            else
                -- Case for 0 pence but having a pound value
                result = table.remove(play_list)
                if string.find(result, "POUNDS") then
                    table.insert(play_list, money_units_list[4])
                else
                    table.insert(play_list, money_units_list[5])
                end
            end
        end
    end
return play_list
end