File: error.c

package info (click to toggle)
elk 3.0-6
  • links: PTS
  • area: main
  • in suites: potato, slink
  • size: 4,068 kB
  • ctags: 3,123
  • sloc: ansic: 20,686; lisp: 5,232; makefile: 419; awk: 91; sh: 21
file content (19 lines) | stat: -rw-r--r-- 518 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#include "xt.h"

static Object V_Xt_Warning_Handler;

void Xt_Warning (msg) char *msg; {
    Object args, fun;

    args = Cons (Make_String (msg, strlen (msg)), Null);
    fun = Var_Get (V_Xt_Warning_Handler);
    if (TYPE(fun) == T_Compound)
	(void)Funcall (fun, args, 0);
    Format (Curr_Output_Port, msg, strlen (msg), 0, (Object *)0);
    (void)P_Newline (0, (Object *)0);
}

elk_init_xt_error () {
    Define_Variable (&V_Xt_Warning_Handler, "xt-warning-handler", Null);
    XtSetWarningHandler (Xt_Warning);
}