Outraged metro patch 9

README.md

@@ -1,5 +1,5 @@
-darkprograms
+Outraged Programs
 ============
-Programs witten by Darkrising for use with the Minecraft mod: Computercraft.
+Programs witten by Outraged Security .INC for use with the Minecraft mod: Computercraft.
 
 These Files are written in: Lua

Secure OS/apis/processes.lua

@@ -0,0 +1,194 @@
+local userEvents = {"mouse_click", "mouse_up", "mouse_drag", "char", "key", "monitor_touch", "key_up", "paste", "terminate"}
+local parentTerm = term.current()
+local parentWidth, parentHeight = parentTerm.getSize()
+local defaultProperties = {
+  x = math.ceil(parentWidth/2-parentWidth/4),
+  y = math.ceil(parentHeight/2-parentHeight/4),
+  w = math.ceil(parentWidth/2), h = math.ceil(parentHeight/2),
+  noWindow = false, noBar = false, noInteraction = false,
+  name = "Unnamed Window"
+}
+
+local isUserEvent = function(event)
+  for userEventNum = 1, #userEvents do
+    local userEvent = userEvents[userEventNum]
+    if event == userEvent then
+      return true
+    end
+  end
+end
+
+local createProcessCoroutine = function(func)
+  return coroutine.create(function()
+    local succ, mess = pcall(func)
+    if not succ and mess then
+      while true do
+        term.setBackgroundColor(colors.black)
+        term.setTextColor(colors.orange)
+        term.clear()
+        term.setCursorPos(1, 1)
+        print("The program crashed!")
+        write(mess)
+        coroutine.yield()
+      end
+    end
+  end)
+end
+
+return {
+  drawWindowDecorations = function(self, processNum, event, var1, var2, var3)
+    local process = self[processNum]
+    if not process.noWindow and not process.noBar then
+      local pw, ph = process.term.getSize()
+
+      paintutils.drawLine(process.x, process.y-1, process.x+pw-1, process.y-1, colors.lightGray)
+      term.setTextColor(colors.gray)
+
+      term.setCursorPos(process.x+pw-1, process.y-1)
+      term.write("x")
+      term.setCursorPos(process.x, process.y-1)
+      term.write(process.name)
+    end
+  end,
+  handleInputOfProcess = function(self, processNum, event, var1, var2, var3)
+    local process = self[processNum]
+    if not process.noWindow and not process.noInteraction then
+      local px, py = process.term.getPosition()
+      local pw, ph = process.term.getSize()
+      local mx, my
+      if var3 then
+        mx, my = var2-px+1, var3-py+1
+      end
+
+      if event == "mouse_click" then
+        process.resizeX, process.resizeY = nil, nil
+        if mx>0 and my==0 and mx<pw+1 then
+          if not process.noBar then
+            if mx == pw then
+              table.remove(self, processNum)
+            else
+              process.clickedX, process.clickedY = mx, my
+              process.barClicked = true
+            end
+          end
+        else
+          process.barClicked = false
+          if keyboard.leftCtrl and mx>0 and my>0 and mx<pw+1 and my<ph+1 then
+            if mx==1 or mx==pw then
+              process.resizeX = mx
+            end
+            if my==1 or my==ph then
+              process.resizeY = my
+            end
+          end
+        end
+      elseif event == "mouse_drag" and (process.resizeX or process.resizeY) then
+        if not process.noResize then
+          if process.resizeX then
+            process:resize(pw - (process.resizeX-mx), ph)
+            process.resizeX = mx
+          end
+          local pw, ph = process.term.getSize()
+          if process.resizeY then
+            process:resize(pw, ph - (process.resizeY-my))
+            process.resizeY = my
+          end
+        end
+      elseif event == "mouse_drag" and process.barClicked then
+        if not process.noMove then
+          process:reposition(process.x-(process.clickedX-mx), process.y-(process.clickedY-my))
+        end
+      elseif event == "mouse_up" then
+        process.barClicked = false
+      end
+    end
+  end,
+  updateProgramOfProcess = function(self, processNum, event, var1, var2, var3)
+    local process = self[processNum]
+    local pw, ph = process.term.getSize()
+    local px, py = process.term.getPosition()
+    local var1, var2, var3 = var1, var2, var3
+
+    if string.sub(event, 1, #"mouse") == "mouse" then
+      var2 = var2-px+1
+      var3 = var3-py+1
+    end
+
+    -- redirect to process window and update it
+    local oldTerm = term.redirect(process.term)
+    process.term.setVisible(false)
+    coroutine.resume(process.coroutine, event, var1, var2, var3 )
+    if not process.noWindow then
+      process.term.setVisible(true)
+    end
+
+    -- redirect to the old term and redraw the process window
+    term.redirect(oldTerm)
+    process.term.redraw()
+  end,
+  updateProcess = function(self, processNum, event, var1, var2, var3)
+    local process = self[processNum]
+
+    -- check if process is still running, if not, remove it
+    if coroutine.status(process.coroutine) == "dead" then
+      table.remove(self, processNum)
+      return
+    end
+
+    self:handleInputOfProcess(processNum, event, var1, var2, var3)
+    if self[processNum] then
+      self:drawWindowDecorations(processNum, event, var1, var2, var3)
+      self:updateProgramOfProcess(processNum, event, var1, var2, var3)
+    end
+  end,
+  -- start process with command as function
+  run = function(self, command)
+    self:new(function() shell.run(command) end, {name = command})
+  end,
+  -- start process from directory
+  start = function(self, programName)
+    local programPath = "/programs/"..programName.."/"
+    local width, height = term.getSize()
+    local programProperties = {}
+
+    if fs.exists(programPath.."properties.lua") then
+      programProperties = dofile(programPath.."properties.lua")
+    end
+
+    local program = loadfile(programPath.."init.lua", _ENV)
+    self:new(program, programProperties)
+  end,
+  -- start a new process
+  new = function(self, func, properties)
+    local process = {
+      coroutine = createProcessCoroutine(func),
+      reposition = function(self, x, y)
+        self.x, self.y = x, y
+        self.term.reposition(x, y)
+      end,
+      resize = function(self, w, h)
+        if w>#self.name and h>3 then
+          local oldX, oldY = self.term.getPosition()
+          self.term.reposition(oldX, oldY, w, h)
+          os.queueEvent("term_resize")
+        end
+      end
+    }
+
+    for k, v in pairs(defaultProperties) do
+      process[k] = properties[k] or v
+    end
+
+    process.term = window.create(
+      parentTerm, process.x, process.y, process.w, process.h
+    )
+
+    table.insert(self, process)
+  end,
+  -- update all processes
+  update = function(self, event, var1, var2, var3)
+    for processNum, process in ipairs(self) do
+      self:updateProcess(processNum, event, var1, var2, var3)
+    end
+  end
+}

Secure OS/apis/ui.lua

@@ -0,0 +1,3 @@
+local ui = {}
+
+return ui