#include "ficl.h"

extern ficlSystem *ficlSystemGlobal;

/*
 * f i c l C a l l b a c k T e x t O u t
 * Feeds text to the vm's output callback
 */
void
ficlCallbackTextOut(ficlCallback *callback, char *text)
{
	ficlOutputFunction textOut = NULL;

	if (callback != NULL) {
		if (callback->textOut != NULL)
			textOut = callback->textOut;
		else if ((callback->system != NULL) &&
		    (callback != &(callback->system->callback))) {
			ficlCallbackTextOut(&(callback->system->callback),
			    text);
			return;
		}
	}

	if ((textOut == NULL) && (ficlSystemGlobal != NULL)) {
		callback = &(ficlSystemGlobal->callback);
		textOut = callback->textOut;
	}

	if (textOut == NULL)
		textOut = ficlCallbackDefaultTextOut;

	(textOut)(callback, text);
}

/*
 * f i c l C a l l b a c k E r r o r O u t
 * Feeds text to the vm's error output callback
 */
void
ficlCallbackErrorOut(ficlCallback *callback, char *text)
{
	ficlOutputFunction errorOut = NULL;

	if (callback != NULL) {
		if (callback->errorOut != NULL)
			errorOut = callback->errorOut;
		else if ((callback->system != NULL) &&
		    (callback != &(callback->system->callback))) {
			ficlCallbackErrorOut(&(callback->system->callback),
			    text);
			return;
		}
	}

	if ((errorOut == NULL) && (ficlSystemGlobal != NULL)) {
		callback = &(ficlSystemGlobal->callback);
		errorOut = callback->errorOut;
	}

	if (errorOut == NULL) {
		ficlCallbackTextOut(callback, text);
		return;
	}

	(errorOut)(callback, text);
}