feat(socket) improve wrapper compatibility

prevenbt hard errors from LuaSec non-implemented methods. Add
getalpn and getsniname for LuaSec sockets

docs/index.html

@@ -106,6 +106,8 @@ <h2><a name="history"></a>History</h2>
         <li>Fix: creating a new timer with a bad delay setting would throw a bad error message.</li>
         <li>Refactor: submodules are now part of copas (lazily loaded) and do not need to be required anymore</li>
         <li>Feat: runtime script added to directly run copas based code</li>
+        <li>Fix: improved socket wrapper for lacking LuaSec methods (<code>setoption, getoption, getpeername, getsockname</code>)</li>
+        <li>Feat: added LuaSec methods to wrapper (<code>getalpn, getsniname</code>)</li>
     </ul></dd>
 
     <dt><strong>Copas 4.6.0</strong> [30/Dec/2022]</dt>

src/copas.lua

@@ -916,7 +916,14 @@ local _skt_mt_tcp = {
         bind = function(self, ...) return self.socket:bind(...) end,
 
         -- TODO: is this DNS related? hence blocking?
-        getsockname = function(self, ...) return self.socket:getsockname(...) end,
+        getsockname = function(self, ...)
+          local ok, ip, port, family = pcall(self.socket.getsockname, self.socket, ...)
+          if ok then
+            return ip, port, family
+          else
+            return nil, "not implemented by LuaSec"
+          end
+        end,
 
         getstats = function(self, ...) return self.socket:getstats(...) end,
 
@@ -926,10 +933,33 @@ local _skt_mt_tcp = {
 
         accept = function(self, ...) return self.socket:accept(...) end,
 
-        setoption = function(self, ...) return self.socket:setoption(...) end,
+        setoption = function(self, ...)
+          local ok, res, err = pcall(self.socket.setoption, self.socket, ...)
+          if ok then
+            return res, err
+          else
+            return nil, "not implemented by LuaSec"
+          end
+        end,
+
+        getoption = function(self, ...)
+          local ok, val, err = pcall(self.socket.getoption, self.socket, ...)
+          if ok then
+            return val, err
+          else
+            return nil, "not implemented by LuaSec"
+          end
+        end,
 
         -- TODO: is this DNS related? hence blocking?
-        getpeername = function(self, ...) return self.socket:getpeername(...) end,
+        getpeername = function(self, ...)
+          local ok, ip, port, family = pcall(self.socket.getpeername, self.socket, ...)
+          if ok then
+            return ip, port, family
+          else
+            return nil, "not implemented by LuaSec"
+          end
+        end,
 
         shutdown = function(self, ...) return self.socket:shutdown(...) end,
 
@@ -950,6 +980,23 @@ local _skt_mt_tcp = {
           return self
         end,
 
+        getalpn = function(self, ...)
+          local ok, proto, err = pcall(self.socket.getalpn, self.socket, ...)
+          if ok then
+            return proto, err
+          else
+            return nil, "not a tls socket"
+          end
+        end,
+
+        getsniname = function(self, ...)
+          local ok, name, err = pcall(self.socket.getsniname, self.socket, ...)
+          if ok then
+            return name, err
+          else
+            return nil, "not a tls socket"
+          end
+        end,
       }
 }