blob: fffcf729a8f638338bf6f13b51490fec12ed16b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#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);
}
|
