view src/ploki/atechit.c @ 8652:72e671ff73b6

<izabera> ` echo \'f=$(find wisdom -ipath "wisdom/*$1*" -type f -print0 | shuf -z -n1); echo -n "${f#wisdom/}//" | rnooodl; rnoooodl < "$f"\' > bin/wisdom
author HackBot
date Wed, 29 Jun 2016 00:26:58 +0000
parents ac0403686959
children
line wrap: on
line source

#include "zz.h"
#include "atechit.h"
#include "main.h"

#include <stdio.h>
#include <stdlib.h>

enum {MAGIC = 23};
static size_t Aused;
static void (*Afunc[MAGIC])(void);

static void bah(void) {
	for (; Aused; Afunc[--Aused]())
		;
}

void atechit(void (*f)(void)) {
	if (Aused >= sizeof Afunc / sizeof *Afunc) {
		NOTREACHED;
	}
	Afunc[Aused++] = f;
	if (Aused == 1 && atexit(bah)) {
		fprintf(stderr, "%s: atexit(): error message\n", Prog);
		bah();
		exit(EXIT_FAILURE);
	}
}