add workaround for sockaddrs being a pain in the arse

Author: AeroNotix

.gitignore

@@ -1,2 +1,2 @@
-lsquic
-boringssl
+c-src/*.o
+c-src/*.so

Makefile

@@ -2,6 +2,8 @@ BORINGSSL_COMMIT=251b5169fd44345f455438312ec4e18ae07fd58c
 
 .PHONY: lsquic build test
 
+all: src/ffi.lisp src/ffi-dns.lisp
+
 lsquic:
 	git clone --recursive https://github.com/litespeedtech/lsquic.git --depth 1
 	git clone https://boringssl.googlesource.com/boringssl
@@ -13,3 +15,6 @@ lsquic:
 
 src/ffi.lisp: lsquic.i Makefile
 	swig -cffi -noswig-lisp -module ffi -outdir src -I./lsquic/include/ lsquic.i
+
+src/ffi-dns.lisp: dns.i Makefile
+	swig -cffi -noswig-lisp -module ffi-dns -outdir src -I./c-src dns.i

c-src/Makefile

@@ -0,0 +1,3 @@
+dns.so:
+	gcc -c -Wall -fpic dns.c
+	gcc -shared -o libdns.so dns.o

c-src/dns.c

@@ -0,0 +1,36 @@
+#include <arpa/inet.h>
+#include <netdb.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/socket.h>
+#include <sys/types.h>
+
+struct sockaddr* gen_sockaddr(int family, const char *ip, u_short port) {
+    struct sockaddr_storage *ss = malloc(sizeof(struct sockaddr_storage));
+
+    switch (family)
+    {
+        case AF_INET:
+        {
+            struct sockaddr_in *addr = (struct sockaddr_in *) ss;
+            addr->sin_family = AF_INET;
+            addr->sin_port = htons(port);
+            inet_pton(AF_INET, ip, &addr->sin_addr);
+            break;
+        }
+
+        case AF_INET6:
+        {
+            struct sockaddr_in6 *addr = (struct sockaddr_in6 *) ss;
+            addr->sin6_family = AF_INET6;
+            addr->sin6_port = htons(port);
+            inet_pton(AF_INET6, ip, &addr->sin6_addr);
+            break;
+        }
+
+        default:
+            return NULL;
+    }
+    return (struct sockaddr*) ss;
+}

c-src/dns.h

@@ -0,0 +1,5 @@
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netdb.h>
+
+struct sockaddr* gen_sockaddr(int family, const char *ip, u_short port);

c-src/udp.h

@@ -0,0 +1,3 @@
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netdb.h>

dns.i

@@ -0,0 +1,7 @@
+%feature("intern_function", "lispify");
+
+%insert("lisphead") %{
+(in-package :lsquic)
+%}
+
+%include "dns.h"

src/ffi-dns.lisp

@@ -0,0 +1,16 @@
+;;; This file was automatically generated by SWIG (http://www.swig.org).
+;;; Version 3.0.12
+;;;
+;;; Do not make changes to this file unless you know what you are doing--modify
+;;; the SWIG interface file instead.
+
+(in-package :lsquic)
+
+
+
+(cffi:defcfun ("gen_sockaddr" #.(lispify "gen_sockaddr" 'function)) :pointer
+  (family :int)
+  (ip :string)
+  (port :pointer))
+
+

src/package.lisp

@@ -8,6 +8,9 @@
 (cffi:define-foreign-library lsquic
   (:unix (:or "lsquic/src/liblsquic/liblsquic.so")))
 
+(cffi:define-foreign-library dns
+  (:unix (:or "c-src/libdns.so")))
+
 (defun lispify (name flag &optional (package *package*))
   "Borrowed from: https://github.com/mtstickney/cl-libqmlbind/blob/24df1d4248c8962eaadb9dc180e25afa14c7492d/cl-libqmlbind.lisp"
   (intern (string-upcase (map 'string (lambda (c)
@@ -18,3 +21,4 @@
           package))
 
 (cffi:use-foreign-library lsquic)
+(cffi:use-foreign-library dns)