mControl

-- This is eniallator's Control program.
-- It works by trying to run commands sent by the remote computer.
-- The remote program (the program that can run this) is http://pastebin.com/MY9HDL52 and runs like a command line.
--
-- ================================================================================
--
-- An on going project that im still working on.
--
-- ================================================================================
--
-- This program can use plugins!
-- The reason i have made it able to use plugins is so that you can easily install multiple function packs/functions by simply downloading the pastebin into the plugin folder
-- To create a plugin, follow the plugin template guide here: http://pastebin.com/YmmnaqXP
--
-- ================================================================================
--
-- To create a new function in this file do the following steps.
-- In the helpTable table put the following value.
--
-- *insert your function name here* = "*insert your function's help here*"
--
-- To make your function just add a new key/value to the functionTable on line 66 where the key is how you are going to call your function in the remote command line. For example inputting "testFunc arg1 arg2" would call the function testfunc from the functionTable and in the function argument it would then pass the following arguments: ({"arg1","arg2"},*ID of remote computer thats connected*,*protocol thats being used*).
--
-- If you want to send an output to the remote program from your function then use the following rednet code:
--
-- rednet.send(connectID, "*insert string you want to send here*", mProt)
--
-- If you would like to modify the prefix of the remote's command line then instead of sending a string through to the remote, send the following table:
--
-- {"*insert output you want to send here*","*insert prefix you want to send here*"}
--
-- If you want people to be able to turn on/off your function then do the following step.
--
-- *insert your function name here* = 1
--
-- The program will automatically detect if theres a status key/value for your function so thats all you need to do.

version = "1.2.2.1"
-- Version is used for the updater program i've made here: http://pastebin.com/jSWFQsA1

mProt = "masterRC"
rednet.open("right")
-- mProt is the protocol the computer will be using. You can also configure what side the wireless modem is on

pluginFolder = "mControlPlugins"
-- Where the plugins for the program are read from. Plugins are easily installable functions for the control program

myFunction = "Default mControl program!"
-- Called when the remote computer lists available computers it can connect with

-- ======================= Default function declaring below =======================

functions = {

status = {upload = 1, download = 1, filelist = 1, redstone = 1},
-- Easily configure which programs you want running and which ones you don't by simply setting 1 for those you want running and 0 for those you don't want running.

helpTable = {
  upload = "upload a file to connected computer",
  download = "download a file from connected computer",
  filelist = "list files on connected computer",
  redstone = "control sides of connected computer to emit redstone on"
},
-- Default help messages for each program

functionTable = {

help = function()

  rednet.send(connectID,help,mProt)
end,

upload = function (item)
  if fs.exists(item[2]) == false then

    rednet.send(connectID, "send", mProt)
    uselessID, downloadedFile = rednet.receive(mProt)
    openFile = fs.open(item[2], 'w')
    openFile.write(downloadedFile)
    openFile.close()
  else

    rednet.send(connectID, "File already exists on connected computer.", mProt)
  end
  -- Handles the upload function
end,

download = function (item)
  if fs.exists(item[1]) == true and fs.isDir(item[1]) == false then

    fileOpen = fs.open(item[1], 'r')
    stringSend = fileOpen.readAll()
    fileOpen.close()
    tableSend = {stringSend, "Successfully downloaded file."}
    rednet.send(connectID, tableSend, mProt)
  else

    rednet.send(connectID, "File does not exist on connected computer.", mProt)
  end
  -- Handles the download function
end,

filelist = function ()

  programList = fs.list("")
  files = ""

  for i=1,#programList do
    if fs.isDir(programList[i]) == false then
      if files == "" then

        files = programList[i]
      else

        files = files .. ", " .. programList[i]
      end
    end
  end
  -- Handles the fileList function by sending a list of files (not directories) through

  rednet.send(connectID, files, mProt)
end,

redstone = function(item)
  if item[1] == "top" or item[1] == "down" or item[1] == "back" or item[1] == "front" or item[1] == "left" or item[1] == "right" then
    if item[2] == "on" then

      -- First checks to see if item[1] is a valid side then checks if item[2] is a valid state
      redstone.setOutput(item[1], true)
      rednet.send(connectID, "Set output " .. item[1] .. " to " .. item[2], mProt)
      -- Turns the side in item[1] on

    elseif item[2] == "off" then

      redstone.setOutput(item[1], false)
      rednet.send(connectID, "Set output " .. item[1] .. " to " .. item[2], mProt)
      -- Turns the side in item[1] off
    else

      rednet.send(connectID, 'Invalid syntax. Use "redstone [side] [on/off]"', mProt)
    end
  else

    rednet.send(connectID, 'Invalid side. Available sides are: top, down, back, front, left, right', mProt)
  end
  -- Error messages to catch every combination
end
}
}

-- ============================ Plugin handling below =============================

local args = { ... }

if args[1] then

pluginFolder = args[1] .. "/" .. pluginFolder
end
-- Seeing if when running the program you have specified a folder in the arguments

tablesToMerge = {"status", "helpTable", "functionTable"}
-- Defining what tables are okay to merge with the plugin's table

function mergeTable(mergeTab, tabName)
for key, value in pairs(mergeTab) do
  functions[tabName][key:lower()] = value
end
end
-- Function for merging 2 tables

if not fs.exists(pluginFolder) then
fs.makeDir(pluginFolder)
end
-- Checking if the plugin folder is a directory yet or not and if its not then it creates it

pluginFiles = fs.list(pluginFolder)

for i=1,#pluginFiles do
if not fs.isDir(pluginFolder .. pluginFiles[i]) then

  os.loadAPI(pluginFolder .. "/" .. pluginFiles[i])

  for j=1,#tablesToMerge do
    if _G[pluginFiles[i]][tablesToMerge[j]] then

      mergeTable(_G[pluginFiles[i]][tablesToMerge[j]], tablesToMerge[j])
    end
  end
end
end
-- Merging the existing table with the plugin's table

-- ========================== Help string handling below ==========================

help = "exit - Disconnects from current connected computer\n"

for program, progHelp in pairs(functions.helpTable) do
if functions.status[program] == 1 then
  help = help .. program .. " - " .. progHelp .. "\n"
end
end

help = help:sub(1,string.len(help) - 1)
-- Creates the help variable from the programs that are active

-- ====================== Putting everything together below =======================

function progRunning()

local terminate = false
-- Declaring the terminate variable as false

repeat

  local ID, newMsg = rednet.receive(mProt)
  -- Getting the connected computer's messages

  if ID == sendID and connected then
  -- Checking if the computer that sent the message is the connected computer aswell as seeing if the connected variable is still true

    local newMsgIsWord = newMsg ~= ""
    -- Checking if the incoming message is a word or not

    if newMsgIsWord and newMsg[1]:lower() == "terminate" then

      terminate = true
      rednet.send(ID, "Terminated " .. funcToRun .. ".", mProt)
      -- Seeing if the connected computer has sent "terminate" through and setting the terminate variable to true if they have
    elseif newMsgIsWord and newMsg[1]:lower() == "exit" then

      connected = false
      rednet.send(ID, "Disconnecting from current computer but continuing to run " .. funcToRun .. ".", mProt)
      -- Still executing current function even if connected computer has exitted

    elseif newMsgIsWord and newMsg[1]:lower() == "fuel" and turtle then

      rednet.send(ID, "Fuel level currently at: " .. turtle.getFuelLevel(), mProt)
      -- Sending the current fuel level through to the connected computer
    else

      local sendMessage = "Currently executing " .. funcToRun .. ". Available commands are -\nterminate: terminate current function\nexit: continue to run function but disconnect."
      -- Defining the message variable to send

      if turtle and turtle.getFuelLevel() ~= "unlimited" then
        sendMessage = sendMessage .. "\nfuel: get the fuel level"
      end
      -- Adding fuel to the help if the connected computer is a turtle

      rednet.send(ID, sendMessage, mProt)
      -- Responding to the user if they send a message
    end
  end

until terminate
-- Runs until the terminate variable is true
end
-- Function to respond to the connected computer while the local computer is running a function

function callFunc()

functions.functionTable[funcToRun](msg, connectID, mProt)
end
-- Function for calling the correct function

while true do
sendID, msg = rednet.receive(mProt)

  if msg == "list" then
    rednet.send(sendID, myFunction, mProt)
    -- Will respond to computers that are running list unless running connect

  elseif msg == "connect" then
    rednet.send(sendID, {"Connected!",functions.status}, mProt)
    -- Making the link from the mRemote program to the mControl program

    connected = true

    while connected do
      invalid = true
      connectID, msg = rednet.receive(mProt)
      -- Getting the new message from the connected computer

      if connectID == sendID then
        -- Comparing the connectID with the sendID to see if its the same id so no other computer can send messages
        if msg[1] ~= nil then

          msg[1] = msg[1]:lower()
        end

        if msg[1] == "exit" then

          rednet.send(connectID,"Disconnecting from current computer.",mProt)
          invalid = false
          connected = false
          -- Exits the connect cycle so that it will respond to list and for other computers to connect to it
        end

        for key,value in pairs(functions.functionTable) do
          if key == msg[1] then

            invalid = false
            table.remove(msg,1)
            funcToRun = key
            parallel.waitForAny(callFunc,progRunning)
          end
        end

        if invalid then

          rednet.send(connectID, 'Invalid command. Type "help" for options.', mProt)
          -- Default path if msg[1] doesn't get caught by the for loop
        end
      end
    end
  end
end