OC-PsychOS/modules/util/fs-automount.lua

do
 for c in component.list("filesystem") do
  if c == computer.tmpAddress() then
   fs.mount("tmp",component.proxy(c))
   log(c:sub(1,8).." mounted as tmp")
  end
  if c == computer.getBootAddress() then
   fs.mount("boot",component.proxy(c))
   log(c:sub(1,8).." mounted as boot")
  end
  if component.invoke(c,"getLabel") ~= "" and component.invoke(c,"getLabel") ~= nil then
   fs.mount(component.invoke(c,"getLabel"),component.proxy(c))
   log(c:sub(1,8).." mounted as "..component.invoke(c,"getLabel"))
  end
  fs.mount(c:sub(1,3),component.proxy(c))
  log(c:sub(1,8).." mounted as "..c:sub(1,3))
 end
 if component.type(computer.getBootAddress()) ~= "filesystem" then
  fs.mount("boot",component.proxy(computer.tmpAddress()))
  log(computer.tmpAddress():sub(1,8).." mounted as boot")
 end
end