foreach.h

#ifndef __FOREACH_H__
#define __FOREACH_H__

#include <stdio.h>
#include <string.h>
#include <glib.h>
#include <errno.h>
#include <stdlib.h>
#include <math.h>



/* -D_XOPEN_SOURCE //remove below if this option is enabled*/
/* extern char *strtok_r(char *s, const char *delim, char **ptrptr); */
/* extern FILE *popen (__const char *__command, __const char *__modes); */
/* extern int pclose (FILE *__stream); */

/* FREE */

#define freey(ptr)\
  if(ptr != NULL) free(ptr);

#define freey2d(ptr,sz1)			\
  for (register int _i = 0; _i < sz1 ; _i++)\
       if(ptr[_i] != NULL) free(ptr[_i]);\
  if(ptr != NULL) free(ptr);

/* FOREACH: C needs some good looping macros: */

#define foreach(type, var, array)\
  for (register type (var), *_p = (type*)(array)->pdata;\
       _p != NULL; _p = NULL)\
  for (register int _i = 0, _l = (array)->len;\
       (_i < _l) && ((var = _p[_i]) || 1); _i++)

#define foreach_ptr(ptr, array)\
  for (register gpointer *ptr = (array)->pdata;\
       ptr != NULL; ptr = NULL)\
  for (register int _i = 0, _l = (array)->len;\
       (_i < _l); _i++, ptr++)

#define foreach_int(var, lo, hi)\
  for (register int var = (lo), _hi = (hi); var < _hi; var++)


#define foreach_char(var, str)\
  for (register char var, *_p = (str);\
       (var = *_p) != 0; _p++)

#define LINE (1<<20)

extern FILE *popen (__const char *__command, __const char *__modes);
extern int pclose (FILE *__stream);


#define _myopen(f) ((*(f)==0)?stdin:(*(f)=='|')?popen((f)+1,"r"):fopen((f),"r"))
#define _myclose(f,fp) ((*(f)==0)?0:(*(f)=='|')?pclose(fp):fclose(fp))

#define foreach_line(str, fname)\
  errno = 0; \
  for (FILE *_fp = _myopen(fname); \
       (_fp != NULL) || (errno && (perror(fname), exit(errno), 0)); \
       _fp = (_myclose(fname, _fp), NULL)) \
  for (char str[LINE];\
       ((str[LINE - 1] = -1) &&\
        fgets(str, LINE, _fp) &&\
        ((str[LINE - 1] != 0) ||\
         (perror("Line too long"), exit(-1), 0))); )

#define foreach_token(tok, str)\
  for (char *_ptr = NULL, *(tok) = strtok_r((str), " \t\n\r\f\v", &_ptr);\
       (tok) != NULL; (tok) = strtok_r(NULL," \t\n\r\f\v", &_ptr))

#define foreach_token3(tok, str, sep)\
  for (char *_ptr = NULL, *(tok) = strtok_r((str), (sep), &_ptr);\
       (tok) != NULL; (tok) = strtok_r(NULL, (sep), &_ptr))

#endif