1 files changed, 76 insertions, 0 deletions
diff --git a/ext/gd/libgd/gdhelpers.c b/ext/gd/libgd/gdhelpers.c
new file mode 100644
index 0000000..ae2428d
--- /dev/null
+++ b/ext/gd/libgd/gdhelpers.c
@@ -0,0 +1,76 @@
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include "gd.h"
+#include "gdhelpers.h"
+#include <stdlib.h>
+#include <string.h>
+
+/* TBB: gd_strtok_r is not portable; provide an implementation */
+
+#define SEP_TEST (separators[*((unsigned char *) s)])
+
+char *
+gd_strtok_r (char *s, char *sep, char **state)
+{
+  char separators[256];
+  char *start;
+  char *result = 0;
+  memset (separators, 0, sizeof (separators));
+  while (*sep)
+    {
+      separators[*((unsigned char *) sep)] = 1;
+      sep++;
+    }
+  if (!s)
+    {
+      /* Pick up where we left off */
+      s = *state;
+    }
+  start = s;
+  /* 1. EOS */
+  if (!(*s))
+    {
+      *state = s;
+      return 0;
+    }
+  /* 2. Leading separators, if any */
+  if (SEP_TEST)
+    {
+      do
+	{
+	  s++;
+	}
+      while (SEP_TEST);
+      /* 2a. EOS after separators only */
+      if (!(*s))
+	{
+	  *state = s;
+	  return 0;
+	}
+    }
+  /* 3. A token */
+  result = s;
+  do
+    {
+      /* 3a. Token at end of string */
+      if (!(*s))
+	{
+	  *state = s;
+	  return result;
+	}
+      s++;
+    }
+  while (!SEP_TEST);
+  /* 4. Terminate token and skip trailing separators */
+  *s = '\0';
+  do
+    {
+      s++;
+    }
+  while (SEP_TEST);
+  /* 5. Return token */
+  *state = s;
+  return result;
+}