print3dm

-- print3d-multiple
-- takes a file with multiple models, sends then to the printer one by one.
local component = require("component")
local shell = require("shell")
local ser = require("serialization")
local event = require("event")

function print_r ( t )
    local print_r_cache={}
    local function sub_print_r(t,indent)
        if (print_r_cache[tostring(t)]) then
            print(indent.."*"..tostring(t))
        else
            print_r_cache[tostring(t)]=true
            if (type(t)=="table") then
                for pos,val in pairs(t) do
                    if (type(val)=="table") then
                        print(indent.."["..pos.."] => "..tostring(t).." {")
                        sub_print_r(val,indent..string.rep(" ",string.len(pos)+8))
                        print(indent..string.rep(" ",string.len(pos)+6).."}")
                    else
                        print(indent.."["..pos.."] => "..tostring(val))
                    end
                end
            else
                print(indent..tostring(t))
            end
        end
    end
    sub_print_r(t,"  ")
end

addresses = {}
for address in component.list("printer3d") do
  table.insert(addresses, address)
  print(#addresses .. ": " .. address)
end
if #addresses > 1 then
  io.write("Choose printer: ")
  local index
  repeat
    index = tonumber(io.read("*n"))
    if not (index and addresses[index]) then
      io.write("\nInvalid index!\nChoose printer: ")
    end
  until index and addresses[index]
  component.setPrimary("printer3d", addresses[index])
end

local printer = component.printer3d

local args = shell.parse(...)
if #args < 1 then
  io.write("Usage: print3d FILE [count]\n")
  os.exit(0)
end
local count = 1
if #args > 1 then
  count = assert(tonumber(args[2]), tostring(args[2]) .. " is not a valid count")
end

local file, reason = io.open(args[1], "r")
if not file then
  io.stderr:write("Failed opening file: " .. reason .. "\n")
  os.exit(1)
end

local rawdata = file:read("*all")
file:close()
local data, reason = load("return " .. rawdata)
if not data then
  io.stderr:write("Failed loading model: " .. reason .. "\n")
  os.exit(2)
end

data = ser.unserialize(rawdata)

function printed(d)
	io.write("Configuring...\n")

	printer.reset()
	if d.label then
		printer.setLabel(d.label)
	end
	if d.tooltip then
		printer.setTooltip(d.tooltip)
	end
	if d.lightLevel and printer.setLightLevel then -- as of OC 1.5.7
		printer.setLightLevel(d.lightLevel)
	end
	if d.emitRedstone then
		printer.setRedstoneEmitter(d.emitRedstone)
	end
	if d.buttonMode then
		printer.setButtonMode(d.buttonMode)
	end
	if d.collidable and printer.setCollidable then
		printer.setCollidable(not not d.collidable[1], not not d.collidable[2])
	end
	for i, shape in ipairs(d.shapes or {}) do
		local result, reason = printer.addShape(shape[1], shape[2], shape[3], shape[4], shape[5], shape[6], shape.texture, shape.state)
		if not result then
			io.write("Failed adding shape: " .. tostring(reason) .. "\n")
		end
	end

	io.write("Label: '" .. (printer.getLabel() or "not set") .. "'\n")
	io.write("Tooltip: '" .. (printer.getTooltip() or "not set") .. "'\n")
	if printer.getLightLevel then -- as of OC 1.5.7
		io.write("Light level: " .. printer.getLightLevel() .. "\n")
	end
	io.write("Redstone level: " .. select(2, printer.isRedstoneEmitter()) .. "\n")
	io.write("Button mode: " .. tostring(printer.isButtonMode()) .. "\n")
	if printer.isCollidable then -- as of OC 1.5.something
		io.write("Collidable: " .. tostring(select(1, printer.isCollidable())) .. "/" .. tostring(select(2, printer.isCollidable())) .. "\n")
	end
	io.write("Shapes: " .. printer.getShapeCount() .. " inactive, " .. select(2, printer.getShapeCount()) .. " active\n")

	local result, reason = printer.commit(count)
	if result then
		io.write("Job successfully committed!\n")
	else
		io.stderr:write("Failed committing job: " .. tostring(reason) .. "\n")
	end
end

for i, value in pairs(data) do
	--print_r(value)
	--print(value["label"])
	printed(value)
	print("Press any key to continue...")
	event.pull("key_down")
end