initial commit with rc for skalibs-2.0.0.0

1 files changed, 25 insertions, 0 deletions

diff --git a/src/libstddjb/stralloc_ready_tuned.c b/src/libstddjb/stralloc_ready_tuned.c
new file mode 100644
index 0000000..04e1a41
--- /dev/null
+++ b/src/libstddjb/stralloc_ready_tuned.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <skalibs/alloc.h>
+#include <skalibs/stralloc.h>
+
+int stralloc_ready_tuned (stralloc *sa, unsigned int n, unsigned int base, unsigned int a, unsigned int b)
+{
+  register unsigned int t ;
+  if (!b) return (errno = EINVAL, 0) ;
+  t = n + base + a * n / b ;
+  if (t < n) return (errno = ERANGE, 0) ;
+  if (!sa->s)
+  {
+    sa->s = alloc(t) ;
+    if (!sa->s) return 0 ;
+    sa->a = t ;
+  }
+  else if (n > sa->a)
+  {
+    if (!alloc_re(&sa->s, sa->a, t)) return 0 ;
+    sa->a = t ;
+  }
+  return 1 ;
+}