iterator.h

Go to the documentation of this file.

 
#ifndef IT_ITERATOR_H
#define IT_ITERATOR_H
 
#include "maybe.h"
#include "typeclass.h"
 
#define CONCAT_(A, B) A##B
#define CONCAT(A, B)  CONCAT_(A, B)
 
#define Iterator(T) T##Iterator
 
#define Iterable(T) T##Iterable
 
#define DefineIteratorOf(T)                                                                                            \
    typedef typeclass(Maybe(T) (*const next)(void* self)) Iterator(T);                                                 \
    typedef typeclass_instance(Iterator(T)) Iterable(T)
 
#define impl_iterator(IterType, ElmntType, Name, next_f)                                                               \
    static inline Maybe(ElmntType) CONCAT(next_f, __)(void* self)                                                      \
    {                                                                                                                  \
        Maybe(ElmntType) (*const next_)(IterType self) = (next_f);                                                     \
        (void)next_;                                                                                                   \
        return (next_f)(self);                                                                                         \
    }                                                                                                                  \
    Iterable(ElmntType) Name(IterType x)                                                                               \
    {                                                                                                                  \
        static Iterator(ElmntType) const tc = {.next = (CONCAT(next_f, __))};                                          \
        return (Iterable(ElmntType)){.tc = &tc, .self = x};                                                            \
    }
 
#endif /* !IT_ITERATOR_H */