objc-list.h

/* Generic single linked list to keep various information 
 Copyright (C) 1993-2025 Free Software Foundation, Inc.
 Contributed by Kresten Krab Thorup.

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

GCC 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.

Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.

You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */

#ifndef__GNU_OBJC_LIST_H
#define__GNU_OBJC_LIST_H

structobjc_list
{
void*head;
structobjc_list*tail;
};

/* Return a cons cell produced from (head . tail). */
staticinlinestructobjc_list*
list_cons (void*head, structobjc_list*tail)
{
structobjc_list*cell;

cell= (structobjc_list*)objc_malloc (sizeof (structobjc_list));
cell->head=head;
cell->tail=tail;
returncell;
}

/* Remove the element at the head by replacing it by its
 successor. */
staticinlinevoid
list_remove_head (structobjc_list**list)
{
if ((*list)->tail)
 {
/* Fetch next. */
structobjc_list*tail= (*list)->tail;

/* Copy next to list head. */
*(*list) =*tail;

/* Free next. */
objc_free (tail);
 }
else
 {
/* Only one element in list. */
objc_free (*list);
 (*list) =0;
 }
}


/* Map FUNCTION over all elements in LIST. */
staticinlinevoid
list_mapcar (structobjc_list*list, void(*function)(void*))
{
while (list)
 {
 (*function) (list->head);
list=list->tail;
 }
}

/* Free list (backwards recursive). */
staticinlinevoid
list_free (structobjc_list*list)
{
if(list)
 {
list_free (list->tail);
objc_free (list);
 }
}

#endif/* not __GNU_OBJC_LIST_H */