(sieve_slist_destroy, sieve_value_create): New(sieve_slist_destroy, sieve_value_…

…create): New functions.

@@ -2,16 +2,16 @@
    Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
+   it under the terms of the GNU Lesser General Public License as published by
    the Free Software Foundation; either version 2, or (at your option)
    any later version.
 
    This program 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 General Public License for more details.
+   GNU Lesser General Public License for more details.
 
-   You should have received a copy of the GNU General Public License
+   You should have received a copy of the GNU Lesser General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
@@ -35,3 +35,53 @@ sieve_alloc (size_t size)
   return p;
 }
 
+void
+sieve_slist_destroy (list_t *plist)
+{
+  iterator_t itr;
+
+  if (!plist || iterator_create (&itr, *plist))
+    return;
+
+  for (iterator_first (itr); !iterator_is_done (itr); iterator_next (itr))
+    {
+      char *s;
+      iterator_current (itr, (void **)&s);
+      free (s);
+    }
+  iterator_destroy (&itr);
+  list_destroy (plist);
+}
+
+sieve_value_t *
+sieve_value_create (sieve_data_type type, void *data)
+{
+  sieve_value_t *val = sieve_alloc (sizeof (*val));
+
+  val->type = type;
+  switch (type)
+    {
+    case SVT_NUMBER:
+      val->v.number = * (long *) data;
+      break;
+      
+    case SVT_STRING:
+      val->v.string = data;
+      break;
+      
+    case SVT_VALUE_LIST:
+    case SVT_STRING_LIST:
+      val->v.list = data;
+      
+    case SVT_TAG:
+    case SVT_IDENT:
+      val->v.string = data;
+      break;
+
+    default:
+      sieve_error ("Invalid data type");
+      abort ();
+    }
+  return val;
+}
+