Argument list parser

2 files changed, 496 insertions, 0 deletions

diff --git a/lib/argcv.c b/lib/argcv.c
new file mode 100644
index 0000000..2728035
--- /dev/null
+++ b/lib/argcv.c
@@ -0,0 +1,443 @@
+/* argcv.c - simple functions for parsing input based on whitespace
+   Copyright (C) 1999, 2000, 2001, 2005 Free Software Foundation, Inc.
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2 of the License, or (at your option) any later version.
+
+   This library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Lesser General Public License for more details.
+
+   You should have received a copy of the GNU Lesser General Public
+   License along with this library; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA  */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+
+#include <ctype.h>
+#include <errno.h>
+#include <argcv.h>
+
+/*
+ * takes a string and splits it into several strings, breaking at ' '
+ * command is the string to split
+ * the number of strings is placed into argc
+ * the split strings are put into argv
+ * returns 0 on success, nonzero on failure
+ */
+
+#define isws(c) ((c)==' '||(c)=='\t'||(c)=='\n')
+#define isdelim(c,delim) (strchr(delim,(c))!=NULL)
+
+static int
+argcv_scan (int len, const char *command, const char *delim, const char* cmnt,
+            int *start, int *end, int *save)
+{
+  int i = 0;
+  int expect_delim;
+  
+  for (;;)
+    {
+      i = *save;
+
+      if (i >= len)
+        return i + 1;
+
+      /* Skip initial whitespace */
+      while (i < len && isws (command[i]))
+        i++;
+      *start = i;
+
+      switch (command[i])
+        {
+        case '"':
+        case '\'':
+          while (++i < len
+                 && (command[i] != command[*start]
+                     || command[i-1] == '\\'))
+            ;
+          if (i < len)          /* found matching quote */
+            break;
+         /*FALLTHRU*/ default:
+          if (isdelim (command[i], delim))
+            break;
+          /* Skip until next whitespace character or end of line. Honor
+             escaped whitespace. */
+          expect_delim = 0;
+          while (++i < len)
+            {
+              if (expect_delim)
+                {
+                  if (command[i-1] != '\\' && command[i] == expect_delim)
+                    expect_delim = 0;
+                  else
+                    continue;
+                }
+              
+              if (command[i-1] != '\\')
+                {
+                  if (command[i] == '\'' || command[i] == '"')
+                    expect_delim = command[i];
+                  else if (isws (command[i]) || isdelim (command[i], delim))
+                    break;
+                }
+              else
+                i++; /* skip the escaped character */
+            }
+          i--;
+          break;
+        }
+
+      *end = i;
+      *save = i + 1;
+
+      /* If we have a token, and it starts with a comment character, skip
+         to the newline and restart the token search. */
+      if (*save <= len)
+        {
+          if (cmnt && strchr (cmnt, command[*start]) != NULL)
+            {
+              i = *save;
+              while (i < len && command[i] != '\n')
+                i++;
+
+              *save = i;
+              continue;
+            }
+        }
+      break;
+    }
+  return *save;
+}
+
+static char quote_transtab[] = "\\\\a\ab\bf\fn\nr\rt\t";
+
+int
+argcv_unquote_char (int c)
+{
+  char *p;
+
+  for (p = quote_transtab; *p; p += 2)
+    {
+      if (*p == c)
+        return p[1];
+    }
+  return c;
+}
+
+int
+argcv_quote_char (int c)
+{
+  char *p;
+  
+  for (p = quote_transtab + sizeof(quote_transtab) - 2;
+       p > quote_transtab; p -= 2)
+    {
+      if (*p == c)
+        return p[-1];
+    }
+  return -1;
+}
+  
+
+static int
+xtonum (const char *src, int base, size_t cnt)
+{
+  int val;
+  char *p;
+  char tmp[4]; /* At most three characters + zero */
+  
+  /* Notice: No use to check `cnt'. It should be either 2 or 3 */
+  memcpy (tmp, src, cnt);
+  tmp[cnt] = 0;
+  val = strtoul (tmp, &p, base);
+  return (*p == 0) ? val : -1;
+}
+
+size_t
+argcv_quoted_length (const char *str, int *quote)
+{
+  size_t len = 0;
+
+  for (; *str; str++)
+    {
+      if (*str == ' ')
+        {
+          len++;
+          *quote = 1;
+        }
+      else if (*str == '"')
+        {
+          len += 2;
+          *quote = 1;
+        }
+      else if (isprint (*str))
+        len++;
+      else if (argcv_quote_char (*str) != -1)
+        len += 2;
+      else
+        len += 4;
+    }
+  return len;
+}
+
+void
+argcv_unquote_copy (char *dst, const char *src, size_t n)
+{
+  int c;
+  int expect_delim = 0;
+  
+  while (n > 0)
+    {
+      n--;
+
+      switch (*src)
+        {
+        case '\'':
+        case '"':
+          ++src;
+          if (expect_delim)
+            expect_delim = 0;
+          else
+            expect_delim = *src;
+          break;
+          
+        case '\\':
+          switch (*++src)
+            {
+            case 'x':
+            case 'X':
+              ++src;
+              --n;
+              if (n == 0)
+                {
+                  *dst++ = '\\';
+                  *dst++ = src[-1];
+                }
+              else
+                {
+                  c = xtonum(src, 16, 2);
+                  if (c == -1)
+                    {
+                      *dst++ = '\\';
+                      *dst++ = src[-1];
+                    }
+                  else
+                    {
+                      *dst++ = c;
+                      src += 2;
+                      n -= 2;
+                    }
+                }
+              break;
+              
+            case '0':
+              ++src;
+              --n;
+              if (n == 0)
+                {
+                  *dst++ = '\\';
+                  *dst++ = src[-1];
+                }
+              else
+                {
+                  c = xtonum(src, 8, 3);
+                  if (c == -1)