Logic Gates Testing

--Logic Gates by Croswat & VikeStep

local gatevars = nil --variable for gates
local inputs = nil
local outputs = nil

function change(event)
    print("Press x to change gates")
    parallel.waitForAll(waitforkey,event)
end

function run()
    term.clear()
    term.setCursorPos(1,1)
    print("running "..gatevars[1])
    if gatevars[1] == "timer" then
        change(timer)
    elseif gatevars[1] == "and" then
        change(andgate)
    elseif gatevars[1] == "or" then
        change(orgate)
    elseif gatevars[1] == "nor" then
        change(norgate)
    elseif gatevars[1] == "nand" then
        change(nandgate)
    elseif gatevars[1] == "repeater" then
        change(repeater)
    elseif gatevars[1] == "xor" then
        change(xorgate)
    elseif gatevars[1] == "xnor" then
        change(xnorgate)
    end
end

function waitforkey()
    while true do
        local sEvent, param = os.pullEvent("key")
        if sEvent == "key" then
            if param == 45 then
                print("Are you sure? (y/n)")
                local sEvent, param2 = os.pullEvent("key")
                if sEvent == "key" then
                    if param2 == 21 then
                        fs.delete("lgvariables")
                        os.reboot()
                    else
                        os.reboot()
                    end
               end
            end
        end
    end
end

function loadVariables() -- get fom file
     local file = fs.open("lgvariables","r")
     gatevars = split(file.readLine(), "@")
      file.close()
end

function saveVariables(variables)
     local file = fs.open("lgvariables","w")
     file.writeLine(variables)
     file.close()
end


function split(pString, pPattern)
numchanged = 0
   local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
   local fpat = "(.-)" .. pPattern
   local last_end = 1
   local s, e, cap = pString:find(fpat, 1)
   while s do
          if s ~= 1 or cap ~= "" then
         table.insert(Table,cap)
numchanged = numchanged +1
          end
          last_end = e+1
          s, e, cap = pString:find(fpat, last_end)
   end
   if last_end <= #pString then
          cap = pString:sub(last_end)
          table.insert(Table, cap)
          numchanged = numchanged +1
   end
   return Table
end

function readgate()
    local loopflag = true
    local gatetype = nil
    while loopflag do
        gatetype = read()
        gatetype = string.lower(gatetype)
        if gatetype == "list" then
            print("AND, OR, NOT, NOR, NAND, XOR, XNOR, Timer, Repeater")
        elseif gatetype == "timer" or gatetype == "and" or gatetype == "or" or gatetype == "not" or gatetype == "nor" or gatetype == "inverter" or gatetype == "nand" or gatetype == "xor" or gatetype == "xnor" or gatetype == "buffer" or gatetype == "repeater" then -- check for gate types here
            loopflag = false
        else
            print("gate not recognised, try again")
        end
    end
    return gatetype
end

function printCube() -- The info for whether to type in inputs or not will be displayed after this
    term.clear()
    term.setCursorPos(1,1)
    print [[
           Back        Please type in the
             |             the side(s) in
          +---+---+  the following format
         /|  V   /|
        / |     / |  "front, left, right"
       /  |Top /  |
      +-------+   |<-Right
      |   |   |   |
      |   +---|---+
Left->| Front |  /
      | /     | /
      |/  ^   |/
      +-------+
          |
        Bottom
]]
end

--menu and setting up gates
function setup()
        term.clear()
        term.setCursorPos(1,1)
        print("To get started, write down what gate you wish to use")
        print("type \"list\" to see what gates are available")
        local gatetype = readgate()
        --work out what gate, then get the other inputs, and save to file. then run()
        if gatetype == "timer" then
            setuptimer()
        elseif gatetype == "and" then
            setupand()
        elseif gatetype == "or" then
            setupor()
        elseif gatetype == "nor" or gatetype == "not" or gatetype== "inverter" then
            setupnor()
        elseif gatetype == "nand" then
            setupnand()
        elseif gatetype == "xor" then
            setupxor()
        elseif gatetype == "xnor" then
            setupxnor()
        elseif gatetype == "buffer" or gatetype == "repeater" then
            setuprepeater()
        end

end

function ioToArray()
    inputs = split(gatevars[2],", ")
    outputs = split(gatevars[3],", ")
end

function getNumberInputs()
    local number = table.getn(inputs)
    return number
end

function getNumberOutputs()
    local number = table.getn(outputs)
    return number
end

function round(x)
    floor = tonumber(x)-math.floor(tonumber(x))
    ceil = math.ceil(tonumber(x))-tonumber(x)
    if floor==ceil then
        return math.ceil(tonumber(x))
    elseif floor<ceil then
        return math.floor(tonumber(x))
    elseif floor>ceil then
        return math.ceil(tonumber(x))
    end
end

function getside(printstring, minimum)
    valid=false
    tempsidesvalid=0
    printCube()
    print(printstring)
    while not valid do
        text = read()
        sides = split(text,", ")
        amountsides = table.getn(sides)
        if amountsides >= minimum then
            for i=1, amountsides do
                if sides[i] == "front" or sides[i] == "left" or sides[i] == "right" or sides[i] == "back" or sides[i] == "bottom" or sides[i] == "top" then
                    tempsidesvalid = tempsidesvalid + 1
                else
                    printCube()
                    print(sides[i].." is not a valid side")
                    print(printstring)
                    break
                end
            end
        else
            print("Please Enter more than "..minimum.." side")
            tempsidesvalid=amountsides+1
        end
        if tempsidesvalid==amountsides then
            valid=true
        else
            tempsidesvalid=0
        end
    end
    return text
end

--Timer

function setuptimer()
    local timerinput = getside("Type in the inputs (disables the timer)",1)
    local timeroutput = getside("Type in the outputs (side pulsed to)",1)
    term.clear()
    term.setCursorPos(1,1)
    print("enter how many seconds you would like the timer to cycle")
    local loopflag = true
    while loopflag do
        timerseconds = read()
        integer=tonumber(timerseconds)
        if integer == nil or integer <= 0 then
            term.clear()
            term.setCursorPos(1,1)
            print(timerseconds.." is not a valid positive number")
            print("enter how many seconds you would like the timer to cycle (can enter decimal)")
        else
            loopflag = false
        end
    end
    saveVariables("timer".."@"..tostring(timerinput).."@"..tostring(timeroutput).."@"..tostring(timerseconds))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(timer)
end

function timer()
    input = false
    pulseLength = 1 -- In ticks
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())
    clockSpeed = round(20*tonumber(gatevars[4])) -- In ticks, remember 20 ticks a second
    while true do
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                input=true
            else
            end
        end
        while not input do
            for i=1, numberOutputs do
                rs.setOutput(outputs[i], true)
            end
            sleep(pulseLength / 20)
            for i=1, numberOutputs do
                rs.setOutput(outputs[i], false)
            end
            sleep((clockSpeed - pulseLength) / 20)
            for i=1, numberInputs do
                if rs.getInput(inputs[i])==true then
                    input=true
                else
                end
            end
        end
        event = os.pullEvent("redstone")
        input=false
    end
end

--AND Gate

function setupand()
    local andinput = getside("Type in the inputs (when all are inputs are on, output is on)",1)
    local andoutput = getside("Type in the outputs (when all inputs are on, output is on)",1)
    saveVariables("and".."@"..tostring(andinput).."@"..tostring(andoutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(andgate)
end

function andgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())
    amount = 0

    while true do
        amount=0
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                amount = amount + 1
            else
            end
        end
        if amount == numberInputs then
            input=true
        else
            amount = 0
            input=false
        end
        if input == true then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- OR Gate

function setupor()
    local orinput = getside("Type in the inputs (when one of the inputs are on, output is on)",1)
    local oroutput = getside("Type in the outputs (when one of the inputs are on, output is on)",1)
    saveVariables("or".."@"..tostring(orinput).."@"..tostring(oroutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(orgate)
end

function orgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())

    while true do
        input=false
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                input=true
            else
            end
        end
        if input == true then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- Repeater

function setuprepeater()
    local delay
    local repeaterinput = getside("Type in the inputs (when one of the inputs are on, output is on)",1)
    local repeateroutput = getside("Type in the outputs (when one of the inputs are on, output is on)",1)
    term.clear()
    term.setCursorPos(1,1)
    print("Enter the delay (seconds) for the signal, type 0 for no delay (can be decimal)")
    local loopflag = true
    while loopflag do
        delay = read()
        integer=tonumber(delay)
        if integer == nil or integer < 0 then
            term.clear()
            term.setCursorPos(1,1)
            print(delay.." is not a valid positive number")
            print("Enter the delay for the signal, type 0 for no delay")
        else
            loopflag = false
        end
    end
    saveVariables("repeater".."@"..tostring(repeaterinput).."@"..tostring(repeateroutput).."@"..tostring(delay))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(orgate)
end

function repeater()
    local delay = round(20*tonumber(gatevars[4]))
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())

    while true do
        input=false
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                input=true
            else
            end
        end
        if input == true then
            sleep(delay)
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- NOT/NOR Gate

function setupnor()
    local norinput = getside("Type in the inputs (if 1 input is on, output is off)",1)
    local noroutput = getside("Type in the outputs (if 1 input is on, output is off)",1)
    saveVariables("nor".."@"..tostring(norinput).."@"..tostring(noroutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(norgate)
end

function norgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())

    while true do
        input=false
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                input=true
            else
            end
        end
        if input == false then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

--NAND Gate

function setupnand()
    local nandinput = getside("Type in the inputs (when at least 1 input is off, output is on)",1)
    local nandoutput = getside("Type in the outputs (when at least 1 input is off, output is on)",1)
    saveVariables("nand".."@"..tostring(nandinput).."@"..tostring(nandoutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(nandgate)
end

function nandgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())
    amount = 0

    while true do
        amount=0
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                amount = amount + 1
            else
            end
        end
        if amount == numberInputs then
            input=true
        else
            amount = 0
            input=false
        end
        if input == false then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- XOR Gate

function setupxor()
    local xorinput = getside("Type in the inputs (when an odd number of inputs are on, output is on)",1)
    local xoroutput = getside("Type in the outputs (when an odd number of inputs are on, output is on)",1)
    saveVariables("xor".."@"..tostring(xorinput).."@"..tostring(xoroutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(xorgate)
end

function xorgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())
    amount = 0

    while true do
        amount=0
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                amount = amount + 1
            else
            end
        end
        if amount % 2 == 1 then
            input=true
        else
            amount = 0
            input=false
        end
        if input == true then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- XNOR Gate

function setupxnor()
    local xnorinput = getside("Type in the inputs (when an even number of inputs are on, output is on)",1)
    local xnoroutput = getside("Type in the outputs (when an even number of inputs are on, output is on)",1)
    saveVariables("xnor".."@"..tostring(xnorinput).."@"..tostring(xnoroutput))
    loadVariables()
    term.clear()
    term.setCursorPos(1,1)
    change(xnorgate)
end

function xnorgate()
    input = false
    ioToArray()
    numberInputs=tonumber(getNumberInputs())
    numberOutputs=tonumber(getNumberOutputs())
    amount = 0

    while true do
        amount=0
        for i=1, numberInputs do
            if rs.getInput(inputs[i])==true then
                amount = amount + 1
            end
        end
        if amount % 2 == 1 then
            input=true
        else
            amount = 0
            input=false
        end
        if input == false then
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],true)
            end
        else
            for i=1,numberOutputs do
                rs.setOutput(outputs[i],false)
            end
        end
        event = os.pullEvent("redstone")
    end
end

-- functions go above here
term.clear()
term.setCursorPos(1,1)
--start
if fs.exists("lgvariables") then -- variables saved
    loadVariables()
    run()
else
    setup()
end