skalibs

Mirror/fork of https://skarnet.org/software/skalibs/
git clone https://ccx.te2000.cz/git/skalibs
Log | Files | Refs | README | LICENSE

genset_deepfree.c (264B)

      1 /* ISC license. */
      2 
      3 #include <skalibs/functypes.h>
      4 #include <skalibs/genset.h>
      5 
      6 static int freeiter (void *s, void *aux)
      7 {
      8   free_func_ref f = aux ;
      9   (*f)(s) ;
     10   return 1 ;
     11 }
     12 
     13 void genset_deepfree (genset *g, free_func_ref f)
     14 {
     15   genset_iter(g, &freeiter, f) ;
     16 }