OpenPrograms · May 29, 2015 · May 29, 2015 · May 29, 2015 · May 29, 2015 · May 29, 2015
diff --git a/.gitignore b/.gitignore
@@ -2,11 +2,14 @@
 !/.gitignore
 !/morse/
 !/song/
-!/op-manager/
+!/oppm/
+!/reactor/
 !/README.md
 !/programs.yaml
-!/programs.lua
+!/programs.cfg
 !/drama
-!/selene
 !/dronecontrol
+!/holocol
 !/models
+!/asiebin
+!/vending
diff --git a/asiebin/asiebin.lua b/asiebin/asiebin.lua
@@ -0,0 +1,140 @@
+--[[ This program allows downloading and uploading from and to paste.asie.pl.
+     It is a clone of the pastebin program.
+     Authors: Sangar, Vexatos ]]
+local component = require("component")
+local fs = require("filesystem")
+local internet = require("internet")
+local shell = require("shell")
+
+if not component.isAvailable("internet") then
+  io.stderr:write("This program requires an internet card to run.")
+  return
+end
+
+local args, options = shell.parse(...)
+
+-- This gets code from the website and stores it in the specified file.
+local function get(pasteId, filename)
+  local f, reason = io.open(filename, "w")
+  if not f then
+    io.stderr:write("Failed opening file for writing: " .. reason)
+    return
+  end
+
+  io.write("Downloading from paste.asie.pl... ")
+  local url = "https://paste.asie.pl/raw/" .. pasteId
+  local result, response = pcall(internet.request, url)
+  if result then
+    io.write("success.\n")
+    for chunk in response do
+      if not options.k then
+        string.gsub(chunk, "\r\n", "\n")
+      end
+      f:write(chunk)
+    end
+
+    f:close()
+    io.write("Saved data to " .. filename .. "\n")
+  else
+    io.write("failed.\n")
+    f:close()
+    fs.remove(filename)
+    io.stderr:write("HTTP request failed: " .. response .. "\n")
+  end
+end
+
+-- This makes a string safe for being used in a URL.
+function encode(code)
+  if code then
+    code = string.gsub(code, "([^%w ])", function (c)
+      return string.format("%%%02X", string.byte(c))
+    end)
+    code = string.gsub(code, " ", "+")
+  end
+  return code 
+end
+
+-- This stores the program in a temporary file, which it will
+-- delete after the program was executed.
+function run(pasteId, ...)
+  local tmpFile = os.tmpname()
+  get(pasteId, tmpFile)
+  io.write("Running...\n")
+
+  local success, reason = shell.execute(tmpFile, nil, ...)
+  if not success then
+    io.stderr:write(reason)
+  end
+  fs.remove(tmpFile)
+end
+
+-- Uploads the specified file as a new paste to paste.asie.pl.
+function put(path)
+  local file, reason = io.open(path, "r")
+
+  if not file then
+    io.stderr:write("Failed opening file for reading: " .. reason)
+    return
+  end
+
+  local data = file:read("*a")
+  file:close()
+
+  io.write("Uploading to paste.asie.pl... ")
+  local result, response = pcall(internet.request,
+        "https://paste.asie.pl/add", 
+        "paste=" .. encode(data) .. "&onlyid=yes")
+
+  if result then
+    local info = ""
+    for chunk in response do
+      info = info .. chunk
+    end
+    if string.match(info, "^Paste too short!") then
+      io.write("failed.\n")
+      io.write(info)
+    else
+      io.write("success.\n")
+      local pasteId = info
+      io.write("Uploaded as " .. info .. "\n")
+      io.write('Run "asiebin get ' .. pasteId .. '" to download anywhere.')
+    end
+  else
+    io.write("failed.\n")
+    io.stderr:write(response)
+  end
+end
+
+local command = args[1]
+if command == "put" then
+  if #args == 2 then
+    put(shell.resolve(args[2]))
+    return
+  end
+elseif command == "get" then
+  if #args == 3 then
+    local path = shell.resolve(args[3])
+    if fs.exists(path) then
+      if not options.f or not os.remove(path) then
+        io.stderr:write("file already exists")
+        return
+      end
+    end
+    get(args[2], path)
+    return
+  end
+elseif command == "run" then
+  if #args >= 2 then
+    run(args[2], table.unpack(args, 3))
+    return
+  end
+end
+
+-- If we come here there was some invalid input.
+io.write("Usages:\n")
+io.write("asiebin put [-f] <file>\n")
+io.write("asiebin get [-f] <id> <file>\n")
+io.write("asiebin run [-f] <id> [<arguments...>]\n")
+io.write(" -f: Force overwriting existing files.\n")
+io.write(" -k: keep line endings as-is (will convert\n")
+io.write("     Windows line endings to Unix otherwise).")
diff --git a/holocol/holocol.lua b/holocol/holocol.lua
@@ -0,0 +1,44 @@
+local shell = require("shell")
+local component = require("component")
+
+local args, options = shell.parse(...)
+
+if #args < 1 then
+  print("Usage:")
+  print("holocol <color> - sets the primary hologram color.")
+  print("holocol <color1> [, color2 [, color3]] - sets multiple colors for a Tier 2 Hologram Projector.")
+  return
+end
+
+if not component.isAvailable("hologram") then
+  io.stderr:write("This program requires a Hologram Projector to run.")
+  return
+end
+
+local hol = component.hologram
+
+local colors = {tonumber(args[1]), tonumber(args[2]), tonumber(args[3])}
+
+if colors[1] then
+  if colors[1] < 0x0 or colors[1] > 0xFFFFFF then
+    io.stderr:write("First color needs to be between 0x0 and 0xFFFFFF")
+    return
+  end
+  hol.setPaletteColor(1, colors[1])
+end
+
+if colors[2] then
+  if colors[1] < 0x0 or colors[1] > 0xFFFFFF then
+    io.stderr:write("Second color needs to be between 0x0 and 0xFFFFFF")
+    return
+  end
+  hol.setPaletteColor(2, colors[2])
+end
+
+if colors[3] then
+  if colors[1] < 0x0 or colors[1] > 0xFFFFFF then
+    io.stderr:write("Third color needs to be between 0x0 and 0xFFFFFF")
+    return
+  end
+  hol.setPaletteColor(3, colors[3])
+end
diff --git a/op-manager/autorun.lua b/op-manager/autorun.lua
diff --git a/op-manager/etc/example-config.cfg b/op-manager/etc/example-config.cfg
diff --git a/op-manager/etc/oppm.cfg b/op-manager/etc/oppm.cfg
diff --git a/oppm/autorun.lua b/oppm/autorun.lua
@@ -0,0 +1,4 @@
+local fs = require("filesystem")
+local shell = require("shell")
+fs.mount(...,"/mnt/oppm")
+shell.setPath(shell.getPath() .. ":/mnt/oppm:/mnt/oppm/lib")
diff --git a/oppm/etc/example-config.cfg b/oppm/etc/example-config.cfg
@@ -0,0 +1,32 @@
+{
+  --default installation path
+  path="/usr",
+  --Additional repositories and packages go here, for correct package syntax, check https://github.com/OpenPrograms/Vexatos-Programs/blob/master/oppm/etc/example-config.cfg
+  repos={
+    ["someUser/someRepo"] = {
+      ["example-package"] = {
+        files = {
+          ["master/somefolder/bar.lua"] = "/",--"/" means the file will be placed inside the folder the user specified, defaults to /usr
+          ["master/somefolder/barinfo.txt"] = "//etc", -- double slash for using an absolute path
+          ["master/somefolder/barlib.lua"] = "/subfolder",--Places the file in a subfolder in the user-specified folder
+          ["master/somefolder/libfolder/"] = "/"
+        },
+        dependencies = {
+          ["GML"] = "/lib"--This package is installed into the specified subfolder
+        },
+        name = "Package name",--This is for "oppm info"
+        description = "This is an example description",--This is for "oppm info"
+        authors = "Someone, someone else",--This is for "oppm info"
+        note = "Additional installation instructions, general instructions and additional information/notes go here, this is an optional line.",
+        hidden = true, -- Add this optional line to make your package not visible in "oppm list", useful for custom dependency libraries
+        repo="tree/master/somefolder" --Used by the website. This is where the package will link to on the website
+      },
+      ["yet-another-package"] = {
+              ...
+      }
+    },
+    ["anotherUser/anotherRepo"] = {
+            ...
+    }
+  }
+}
diff --git a/oppm/etc/oppm.cfg b/oppm/etc/oppm.cfg
@@ -0,0 +1,7 @@
+{
+  --default installation path
+  path="/usr",
+  --Additional repositories and packages go here, for correct package syntax, check https://github.com/OpenPrograms/Vexatos-Programs/blob/master/oppm/etc/example-config.cfg
+  repos={
+  }
+}
diff --git a/op-manager/example.cfg → oppm/example.cfg b/op-manager/example.cfg → oppm/example.cfg
@@ -6,7 +6,7 @@
       [":master/otherfolder"] = "/share/something", -- A colon marks a folder, will include everything in that folder
       [":master/otherfolder"] = "//etc/something", -- This also works with absolute paths
       ["master/somefolder/barlib.lua"] = "/subfolder",--Places the file in a subfolder in the user-specified folder
-      ["master/somefolder/libfolder/"] = "/"
+      ["?master/somefolder/something.cfg"] = "/" -- This file will only be installed or updated if it doesn't exist already, unless option -f is specified
     },
     dependencies = {
       ["GML"] = "/lib"--This package is installed into the specified subfolder

diff --git a/op-manager/lib/oppm.lua → oppm/lib/oppm.lua b/op-manager/lib/oppm.lua → oppm/lib/oppm.lua