initial commit with rc for skalibs-2.0.0.0

1 files changed, 22 insertions, 0 deletions

diff --git a/src/libstddjb/ucspi_get.c b/src/libstddjb/ucspi_get.c
new file mode 100644
index 0000000..916ae2a
--- /dev/null
+++ b/src/libstddjb/ucspi_get.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/env.h>
+
+char const *ucspi_get (char const *s)
+{
+  char const *x = env_get("PROTO") ;
+  if (x)
+  {
+    unsigned int len = str_len(s) ;
+    unsigned int xlen = str_len(x) ;
+    char tmp[len + xlen + 1] ;
+    byte_copy(tmp, xlen, x) ;
+    byte_copy(tmp + xlen, len + 1, s) ;
+    x = env_get(tmp) ;
+    if (!x) errno = ENOENT ;
+  }
+  else errno = EINVAL ;
+  return x ;
+}