ocaml/otherlibs/win32unix/winlist.h

54 lines
1.7 KiB
C

/***********************************************************************/
/* */
/* OCaml */
/* */
/* Contributed by Sylvain Le Gall for Lexifi */
/* */
/* Copyright 2008 Institut National de Recherche en Informatique et */
/* en Automatique. All rights reserved. This file is distributed */
/* under the terms of the GNU Library General Public License, with */
/* the special exception on linking described in file ../../LICENSE. */
/* */
/***********************************************************************/
#ifndef _WINLIST_H
#define _WINLIST_H
/* Basic list function in C. */
/* Singly-linked list data structure.
* To transform a C struct into a list structure, you must include
* at first position of your C struct a "LIST lst" and call list_init
* on this data structure.
*
* See winworker.c for example.
*/
typedef struct _LIST LIST;
typedef LIST *LPLIST;
struct _LIST {
LPLIST lpNext;
};
/* Initialize list data structure */
void list_init (LPLIST lst);
/* Cleanup list data structure */
void list_cleanup (LPLIST lst);
/* Set next element */
void list_next_set (LPLIST lst, LPLIST next);
/* Return next element */
LPLIST list_next (LPLIST);
#define LIST_NEXT(T, e) ((T)(list_next((LPLIST)(e))))
/* Get number of element */
int list_length (LPLIST);
/* Concat two list. */
LPLIST list_concat (LPLIST, LPLIST);
#endif /* _WINLIST_H */