neonucleus/data/OpenOS/lib/core/install_utils.lua

local cmd, arg, options, devices = ...

local function select_prompt(devs, prompt)
  table.sort(devs, function(a, b) return a.path<b.path end)
  local num_devs = #devs

  if num_devs < 2 then
    return devs[1]
  end

  io.write(prompt,'\n')

  for i = 1, num_devs do
    local src = devs[i]
    local dev = src.dev
    local selection_label = (src.prop or {}).label or dev.getLabel()
    if selection_label then
      selection_label = string.format("%s (%s...)", selection_label, dev.address:sub(1, 8))
    else
      selection_label = dev.address
    end
    io.write(string.format("%d) %s at %s [r%s]\n", i, selection_label, src.path, dev.isReadOnly() and 'o' or 'w'))
  end

  io.write("Please enter a number between 1 and " .. num_devs .. '\n')
  io.write("Enter 'q' to cancel the installation: ")
  for _=1,5 do
    local result = io.read() or "q"
    if result == "q" then
      os.exit()
    end
    local number = tonumber(result)
    if number and number > 0 and number <= num_devs then
      return devs[number]
    else
      io.write("Invalid input, please try again: ")
      os.sleep(0)
    end
  end
  print("\ntoo many bad inputs, aborting")
  os.exit(1)
end

if cmd == "select" then
  if arg == "sources" then
    if #devices == 0 then
      if options.label then
        io.stderr:write("Nothing to install labeled: " .. options.label .. '\n')
      elseif options.from then
        io.stderr:write("Nothing to install from: " .. options.from .. '\n')
      else
        io.stderr:write("Nothing to install\n")
      end
      os.exit(1)
    end
    return select_prompt(devices, "What do you want to install?")
  elseif arg == "targets" then
    if #devices == 0 then
      if options.to then
        io.stderr:write("No such target to install to: " .. options.to .. '\n')
      else
        io.stderr:write("No writable disks found, aborting\n")
      end
      os.exit(1)
    end
    return select_prompt(devices, "Where do you want to install to?")
  end
end