#include <unistd.h>
#include <perk/perk.h>

static inline FILE * pe_output_prolog(
	const struct pe_common_ctx *	cctx,
	FILE *				fout,
	FILE **				ftmp)
{
	int fdout;

	*ftmp = (FILE *)0;

	if (fout)
		return fout;
	else if (!cctx)
		return 0;
	else if (cctx->fdout < 0)
		return stdout;

	if ((fdout = dup(cctx->fdout)) < 0)
		return 0;

	if ((*ftmp = fdopen(fdout,"a")))
		return *ftmp;

	close(fdout);
	return 0;
}

static inline int pe_output_epilog(int ret, FILE * f)
{
	if (f)
		fclose(f);
	return ret;
}