Init

prompt.lua

@@ -0,0 +1,54 @@
+local function prompt_yn(question)
+	while true do
+		io.write(question .. " [y/N]: ")
+		local input = io.read()
+		if input == "y" or input == "Y" then
+			return true
+		end
+		io.write("Exiting...\n")
+		os.exit(1)
+		return false
+	end
+end
+
+-- Run a command using the OS shell and capture the stdout
+-- Strips exactly one trailing newline if present, does not strip any other whitespace.
+-- Asserts that the command exits cleanly
+local function capture(command)
+	local p = io.popen(command)
+	local output = p:read("*a")
+	assert(p:close())
+	-- Strip exactly one trailing newline from the output, if there is one
+	return output:match("(.-)\n$") or output
+end
+
+local funct
+
+local function append_list(list, other)
+	for _, item in ipairs(other) do
+		table.insert(list, item)
+	end
+end
+
+local function err(msg)
+	io.stderr:write("Error: " .. msg .. "\n")
+end
+
+local function fatal(msg)
+	err(msg)
+	os.exit(1)
+end
+
+local demolist = { 1, 2, 3 }
+-- append_list(demolist, 4)
+
+demolist[#demolist + 1] = 4
+
+for _, value in ipairs(demolist) do
+	print(value)
+end
+
+print(capture("ls"))
+prompt_yn("Testing")
+err("Something bad happened")
+fatal("Crashing...")