util.httpstream: Added support for HTTP response parsing.

1 files changed, 55 insertions, 24 deletions

diff --git a/util/httpstream.lua b/util/httpstream.lua
index e048e78c..bef3350c 100644
--- a/util/httpstream.lua
+++ b/util/httpstream.lua
@@ -7,7 +7,7 @@ coroutine.resume(deadroutine);
 
 module("httpstream")
 
-local function parser(data, success_cb)
+local function parser(data, success_cb, parser_type)
 	local function readline()
 		local pos = data:find("\r\n", nil, true);
 		while not pos do
@@ -39,38 +39,69 @@ local function parser(data, success_cb)
 		return headers;
 	end
 	
-	while true do
-		-- read status line
-		local status_line = readline();
-		local method, path, httpversion = status_line:match("^(%S+)%s+(%S+)%s+HTTP/(%S+)$");
-		if not method then coroutine.yield("invalid-status-line"); end
-		-- TODO parse url
-		local headers = readheaders();
-		
-		-- read body
-		local len = tonumber(headers["content-length"]);
-		len = len or 0; -- TODO check for invalid len
-		local body = readlength(len);
-		
-		success_cb({
-			method = method;
-			path = path;
-			httpversion = httpversion;
-			headers = headers;
-			body = body;
-		});
-	end
+	if not parser_type or parser_type == "server" then
+		while true do
+			-- read status line
+			local status_line = readline();
+			local method, path, httpversion = status_line:match("^(%S+)%s+(%S+)%s+HTTP/(%S+)$");
+			if not method then coroutine.yield("invalid-status-line"); end
+			-- TODO parse url
+			local headers = readheaders();
+			
+			-- read body
+			local len = tonumber(headers["content-length"]);
+			len = len or 0; -- TODO check for invalid len
+			local body = readlength(len);
+			
+			success_cb({
+				method = method;
+				path = path;
+				httpversion = httpversion;
+				headers = headers;
+				body = body;
+			});
+		end
+	elseif parser_type == "client" then
+		while true do
+			-- read status line
+			local status_line = readline();
+			local httpversion, status_code, reason_phrase = status_line:match("^HTTP/(%S+)%s+(%d%d%d)%s+(.*)$");
+			if not httpversion then coroutine.yield("invalid-status-line"); end
+			local headers = readheaders();
+			
+			-- read body
+			local body;
+			local len = tonumber(headers["content-length"]);
+			if len then -- TODO check for invalid len
+				body = readlength(len);
+			else -- read to end
+				repeat
+					local newdata = coroutine.yield();
+					data = data..newdata;
+				until newdata == "";
+				body, data = data, "";
+			end
+			
+			success_cb({
+				code = status_code;
+				responseversion = httpversion;
+				responseheaders = headers;
+				body = body;
+			});
+		end
+	else coroutine.yield("unknown-parser-type"); end
 end
 
-function new(success_cb, error_cb)
+function new(success_cb, error_cb, parser_type)
 	local co = coroutine.create(parser);
 	return {
 		feed = function(self, data)
 			if not data then
+				if parser_type == "client" then coroutine.resume(co, "", success_cb, parser_type); end
 				co = deadroutine;
 				return error_cb();
 			end
-			local success, result = coroutine.resume(co, data, success_cb);
+			local success, result = coroutine.resume(co, data, success_cb, parser_type);
 			if result then
 				co = deadroutine;
 				return error_cb(result);