tests/lib/slist.c

   1 /* libquvi-scripts
   2  * Copyright (C) 2013  Toni Gundogdu <legatvs@gmail.com>
   3  *
   4  * This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
   5  *
   6  * This program is free software: you can redistribute it and/or
   7  * modify it under the terms of the GNU Affero General Public
   8  * License as published by the Free Software Foundation, either
   9  * version 3 of the License, or (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU Affero General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Affero General
  17  * Public License along with this program.  If not, see
  18  * <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include "config.h"
  22
  23 #include <glib.h>
  24 #include "tests.h"
  25
  26 void slist_free_full(GSList *l, const GFunc f)
  27 {
  28 #ifdef HAVE_GLIB_2_28
  29   g_slist_free_full(l, f);
  30 #else
  31   g_slist_foreach(l, f, NULL);
  32   g_slist_free(l);
  33 #endif
  34 }
  35
  36 /* vim: set ts=2 sw=2 tw=72 expandtab: */