1 files changed, 38 insertions, 0 deletions
diff --git a/src/sbearssl/sbearssl_pem_push.c b/src/sbearssl/sbearssl_pem_push.c
new file mode 100644
index 0000000..b4903de
--- /dev/null
+++ b/src/sbearssl/sbearssl_pem_push.c
@@ -0,0 +1,38 @@
+/* ISC license. */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <bearssl.h>
+#include <skalibs/stralloc.h>
+#include <skalibs/genalloc.h>
+#include "sbearssl-internal.h"
+
+int sbearssl_pem_push (br_pem_decoder_context *ctx, char const *s, size_t len, sbearssl_pemobject *po, genalloc *list, sbearssl_strallocerr *blah, int *inobj)
+{
+  while (len)
+  {
+    size_t tlen = br_pem_decoder_push(ctx, s, len) ;
+    if (blah->err) return (errno = blah->err, -1) ;
+    s += tlen ; len -= tlen ;
+    switch (br_pem_decoder_event(ctx))
+    {
+      case BR_PEM_BEGIN_OBJ ;
+        po->name = blah->sa->len ;
+        if (!stralloc_cats(blah->sa, br_pem_decoder_name(ctx)) || !stralloc_0(blah->sa)) return -1 ;
+        po->data = blah->sa->len ;
+        br_pem_decoder_setdest(&ctx, &sbearssl_append, blah) ;
+        *inobj = 1 ;
+        break ;
+      case BR_PEM_END_OBJ :
+        if (*inobj)
+        {
+          po->datalen = blah->sa->len - po->data ;
+          if (!genalloc_append(sbearssl_pemobject, list, po)) return 0 ;
+          *inobj = 0 ;
+        }
+        break ;
+      case BR_PEM_ERROR : return (errno = EINVAL, -1) ;
+    }
+  }
+  return 0 ;
+}