blob: fffcf729a8f638338bf6f13b51490fec12ed16b5 [file] [log] [blame]
#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);
}