MCJack123

local function split(str, sep)
    local retval = {}
    for m in str:gmatch("([^" .. sep .. "]+)") do table.insert(retval, m) end
    return retval
end

local function dirname(str)
	if str:match(".-/.-") then return string.gsub(str, "^(.*)/.*$", "%1")
    else return "" end
end

MCJack123

local w, h = term.getSize()
local canBenchmark = term.benchmark ~= nil
local count = 0
local start = os.epoch "utc"
if canBenchmark then term.benchmark() end
pcall(function()
    while true do
        term.setCursorPos(math.random(1, w), math.random(1, h))
        term.setBackgroundColor(2^math.random(0, 15))
        term.setTextColor(2^math.random(0, 15))

MCJack123

#include <stdlib.h>
#include <string.h>
#include <setjmp.h>
#include <errno.h>

struct coroutine {
    int status;
    void* (*fn)(void*);
    void* arg;
    jmp_buf env_resume;

MCJack123

if fs.isUnlocked then
    local args = {...}
    if args[1] == "lock" or (args[1] == nil and fs.isUnlocked()) then
        fs.lock()
        print("The filesystem is now locked.")
    elseif args[1] == "unlock" or args[1] == nil then
        fs.unlock()
        print("The filesystem is now unlocked.")
    elseif args[1] == "encrypt" then
        if args[3] == nil then error("Usage: fsencrypt encrypt <infile> <outfile>") end

MCJack123

if config == nil then error("This must be run in CraftOS-PC v2.4 or later.") end

local function runTests()
    local oldClockSpeed = config.get("clockSpeed")
    config.set("clockSpeed", 1000)
    -- Test characters
    term.redirect(term.native())
    local benchmark = debug.getregistry().benchmark
    local w, h = term.getSize()
    local canBenchmark = benchmark ~= nil

MCJack123

-- YahtCC by JackMacWindows
-- GPL license

local diceMaps = {
    [0] = {0xA0, 0xA0, 0xA0, 0xA0, 0xA0, 0xA0},
    {0x20, 0x10, 0x95, 0x8f, 0x8f, 0x85},
    {0x08, 0x20, 0x95, 0x8f, 0x8d, 0x85},
    {0x08, 0x10, 0x95, 0x8f, 0x8d, 0x85},
    {0x08, 0x08, 0x95, 0x8d, 0x8d, 0x85},
    {0x08, 0x18, 0x95, 0x8d, 0x8d, 0x85},

MCJack123

#include <stdlib.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <sys/stat.h>
#ifdef _WIN32
#include <windows.h>
#include <io.h>
#if !defined(S_ISDIR) && defined(S_IFMT) && defined(S_IFDIR)
#define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)

MCJack123

local args = {...}
if args[1] == nil then error("Usage: subleq <dawn.bin>") end
if term.drawPixels == nil then error("This program requires CraftOS-PC v2.2 or later.") end
local ok, err = pcall(function()

if _G.dawn_chunks == nil then
    local file = fs.open(args[1], "rb")
    if file == nil then error("Could not open file at " .. args[1]) end
    _G.dawn_chunks = {}
    for i = 1, 640 do dawn_chunks[i] = file.read(1048576) end

MCJack123

--- YellowBox 1.0
-- By JackMacWindows
--
-- @module yellowbox
--
-- This module allows you to easily create and manage special ComputerCraft
-- containers called "boxes". These boxes contain their own separate execution
-- environment, completely sequestered from the caller's environment. This allows
-- effective "virtual machines" running CraftOS.
--

MCJack123

-- Made by JackMacWindows, licensed under CC0

local expect = require "cc.expect".expect

local activeRequests = {}
local kPromiseSuccess, kPromiseFailure = {}, {}
local openHandlers = 0

-- To use, call this function with each URL and optionally a table with options.
-- Then call it with no arguments to process the requests in the queue.