Rename matrix.factory.* -> matrix.httpclient.*

The old name didn't really make much sense after all...

matrix/httpclient/chttp.lua

@@ -0,0 +1,69 @@
+#! /usr/bin/env lua
+--
+-- chttp.lua
+-- Copyright (C) 2016 Adrian Perez <aperez@igalia.com>
+--
+-- Distributed under terms of the MIT license.
+--
+
+local request = require "http.request"
+local headers = require "http.headers"
+local dict_to_query = require "http.util" .dict_to_query
+
+local httpclient = {
+   quote   = require "http.util" .encodeURI,
+   unquote = require "http.util" .decodeURI,
+}
+httpclient.__name  = "matrix.client.chttp"
+httpclient.__index = httpclient
+
+function httpclient:__tostring()
+   return self.__name
+end
+
+local function headers_to_dict(h)
+   local headers = {}
+   for name, value in pairs(h) do
+      if name:sub(1, 1) ~= ":" then
+         headers[name] = value
+      end
+   end
+   return headers
+end
+
+function httpclient:request(log, method, url, query_args, body, headers)
+   do
+      local qs = dict_to_query(query_args)
+      if #qs > 0 then
+         url = url .. "?" .. qs
+      end
+   end
+
+   log(">~> %s %s", method, url)
+   log(">>> %s", body)
+
+   local req = request.new_from_uri(url)
+   for name, value in pairs(headers) do
+      req.headers:append(name, value)
+   end
+   req.headers:upsert(":method", method)
+   if body then
+      req:set_body(body)
+   end
+   local h, s = req:go()
+   if not h then
+      log("<!< error: %s", s)
+      return 0, {}, s
+   end
+   local status = tonumber(h:get(":status"))
+   local response = s:get_body_as_string()
+
+   log("<~< %d", status)
+   log("<<< %s", response)
+
+   return status, headers_to_dict(h), response
+end
+
+return function ()
+   return setmetatable({}, httpclient)
+end