server: add delete method for routes

This patch adds a `httpd:delete(name)` method to delete
named routes.

CHANGELOG.md

@@ -13,6 +13,7 @@ and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.
 ### Added
 
 - `http_server` role to configure one or more HTTP servers (#196)
+- `httpd:delete(name)` method to delete named routes (#197)
 
 ## [1.5.0] - 2023-03-29
 

README.md

@@ -184,6 +184,13 @@ httpd:route({ path = '/objects', method = 'GET' }, handle3)
 ...
 ```
 
+To delete a named route, use `delete()` method of the `httpd` object:
+
+```lua
+httpd:route({ path = '/path/to', name = 'route' }, 'controller#action')
+httpd:delete('route')
+```
+
 The first argument for `route()` is a Lua table with one or more keys:
 
 * `file` - a template file name (can be relative to.

http/server.lua

@@ -1260,6 +1260,23 @@ local function add_route(self, opts, sub)
     return self
 end
 
+local function delete_route(self, name)
+    local route = self.iroutes[name]
+    if route == nil then
+        return
+    end
+
+    self.iroutes[name] = nil
+    table.remove(self.routes, route)
+
+    -- Update iroutes numeration.
+    for n, r in ipairs(self.routes) do
+        if r.name then
+            self.iroutes[r.name] = n
+        end
+    end
+end
+
 local function url_for_httpd(httpd, name, args, query)
 
     local idx = httpd.iroutes[ name ]
@@ -1357,6 +1374,7 @@ local exports = {
 
             -- methods
             route   = add_route,
+            delete  = delete_route,
             match   = match_route,
             helper  = set_helper,
             hook    = set_hook,