service/tape-iofs.lua

added a service to make an iofs node for each tape drive attached to the system, as /iofs/tapeN

module/fs.lua

@@ -29,19 +29,8 @@ for k,v in pairs({"makeDirectory","exists","isDirectory","list","lastModified","
 end
 
 local function fread(self,length)
- length = length or "*l"
  if length == "*a" then
   length = math.huge
- elseif length == "*l" then
-  local rstr, lstr = "", ""
-  while true do
-   lstr = fs.mounts[self.fs].read(self.fid,1)
-   if lstr == "\n" or not lstr then
-    break
-   end
-   rstr = rstr .. lstr
-  end
-  return rstr
  end
  if type(length) == "number" then
   local rstr, lstr = "", ""

service/tape-iofs.lua

@@ -0,0 +1,8 @@
+local counter = 0
+for addr in component.list("tape_drive") do
+ iofs.register("tape"..tonumber(counter),function()
+  local tape = component.proxy(addr)
+  return tape.read, tape.write, function() end, tape.seek
+ end)
+ counter = counter + 1
+end