streams: add File type

1 files changed, 72 insertions, 0 deletions

diff --git a/test/fread.lua b/test/fread.lua
new file mode 100755
index 0000000..56309d8
--- /dev/null
+++ b/test/fread.lua
@@ -0,0 +1,72 @@
+#!bin/lem
+--
+-- This file is part of LEM, a Lua Event Machine.
+-- Copyright 2011-2012 Emil Renner Berthing
+--
+-- LEM is free software: you can redistribute it and/or
+-- modify it under the terms of the GNU General Public License as
+-- published by the Free Software Foundation, either version 3 of
+-- the License, or (at your option) any later version.
+--
+-- LEM is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with LEM.  If not, see <http://www.gnu.org/licenses/>.
+--
+
+local utils  = require 'lem.utils'
+local stream = require 'lem.streams'
+
+local write
+do
+	local stdout = stream.stdout
+	function write(str)
+		return stdout:write(str)
+	end
+end
+
+print("Press enter to read '" .. (arg[1] or arg[0]) .. "'")
+stream.stdin:read()
+
+local threads = 2
+for i = 1, threads do
+	utils.spawn(function()
+		local file = assert(stream.open(arg[1] or arg[0]))
+		assert(getmetatable(file) == stream.File, "Hmm...")
+
+		---[[
+		local chunk, err
+		while true do
+			chunk, err = file:read()
+			if not chunk then break end
+			write('|')
+			--print(chunk)
+		end
+		assert(err == 'eof', "Hmm..")
+		--[=[
+		--]]
+		local line, err
+		while true do
+			line, err = file:read('*l')
+			if not line then break end
+			print(line)
+		end
+		--]=]
+
+		threads = threads - 1
+	end)
+end
+
+local yield = utils.yield
+while threads > 0 do
+	write('.')
+	yield()
+end
+
+print "\nDone. Press enter to continue."
+stream.stdin:read()
+
+-- vim: set ts=2 sw=2 noet: