Alpha version of the SSL work.

 Doesn't build yet, but I'm scared of losing it, so using git as
storage.
 Will fix the stupid bugs now, the tricky bugs later.

1 files changed, 46 insertions, 0 deletions

diff --git a/src/sbearssl/sbearssl_ta_readfile_internal.c b/src/sbearssl/sbearssl_ta_readfile_internal.c
new file mode 100644
index 0000000..acbba9a
--- /dev/null
+++ b/src/sbearssl/sbearssl_ta_readfile_internal.c
@@ -0,0 +1,46 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <bearssl.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+#include <s6-networking/sbearssl.h>
+#include "sbearssl-internal.h"
+
+int sbearssl_ta_readfile_internal (char const *file, genalloc *taga, stralloc *tasa, genalloc *certga, stralloc *certsa)
+{
+  size_t i = 0 ;
+  size_t certsabase = certsa->len ;
+  size_t certgabase = genalloc_len(sbearssl_ta, certga) ;
+  size_t tasabase = tasa->len ;
+  size_t tagabase = genalloc_len(sbearssl_ta, taga) ;
+  int tasawasnull = !tasa->s ;
+  int tagawasnull = !genalloc_s(sbearssl_ta, taga) ;
+  int r = sbearssl_cert_read(file, certga, certsa) ;
+  sbearssl_cert *p = genalloc_s(sbearssl_cert, certga) ;
+  size_t n = genalloc_len(sbearssl_cert, certga) ;
+  if (r) return r ;
+  
+  for (; i < n ; i++)
+  {
+    sbearssl_ta ta ;
+    r = sbearssl_ta_cert(&ta, p + i, certsa->s, tasa) ;
+    if (r) goto fail ;
+    if (!genalloc_append(sbearssl_ta, taga, &ta)) goto rfail ;
+  }
+
+  genalloc_setlen(sbearssl_ta, certga, certgabase) ;
+  certsa->len = certsabase ;
+  return 0 ;
+
+ rfail:
+  r = -1 ;
+ fail:
+  genalloc_setlen(sbearssl_ta, certga, certgabase) ;
+  certsa->len = certsabase ;
+  if (tagawasnull) genalloc_free(sbearssl_ta, taga) ;
+  else genalloc_setlen(sbearssl_ta, taga, tagabase) ;
+  if (tasawasnull) stralloc_free(tasa) ;
+  else tasa->len = tasabase ;
+  return r ;
+}