libbindle: adding bindle_chop()

1 files changed, 19 insertions, 0 deletions

diff --git a/lib/libbindle/lstring.c b/lib/libbindle/lstring.c
index ce0644b..f853280 100644
--- a/lib/libbindle/lstring.c
+++ b/lib/libbindle/lstring.c
@@ -220,6 +220,25 @@ bindle_dirname_r(
 }
 
 
+char
+bindle_strchop(
+         char *                        str )
+{
+   size_t   pos;
+   char     c;
+
+   BindleDebugTrace();
+
+   if ( (!(str)) || (!(str[0])) )
+      return(0);
+   for(pos = 0; ((str[pos+1])); pos++);
+   c        = str[pos];
+   str[pos] = '\0';
+
+   return(c);
+}
+
+
 char *
 bindle_strdup(
          const char *                  s1 )