scx/c/xlib/init.c

#include "xlib.h"

static s48_value P_Xlib_Release_4_Or_Laterp () {
    return S48_TRUE;
}

static s48_value P_Xlib_Release_5_Or_Laterp () {
#ifdef XLIB_RELEASE_5_OR_LATER
    return S48_TRUE;
#else
    return S48_FALSE;
#endif
}

static s48_value P_Xlib_Release_6_Or_Laterp () {
#ifdef XLIB_RELEASE_6_OR_LATER
    return S48_TRUE;
#else
    return S48_FALSE;
#endif
}

elk_init_xlib_init () {
    Define_Primitive (P_Xlib_Release_4_Or_Laterp,
			"xlib-release-4-or-later?",               0, 0, EVAL);
    Define_Primitive (P_Xlib_Release_5_Or_Laterp,
			"xlib-release-5-or-later?",               0, 0, EVAL);
    Define_Primitive (P_Xlib_Release_6_Or_Laterp,
			"xlib-release-6-or-later?",               0, 0, EVAL);
    P_Provide (Intern ("xlib.o"));
}

#if defined(XLIB_RELEASE_5_OR_LATER) && (defined(sun) || defined(__sun__)) &&\
    defined(__svr4__)
/*
 * Stub interface to dynamic linker routines
 * that SunOS uses but didn't ship with 4.1.
 *
 * The C library routine wcstombs in SunOS 4.1 tries to dynamically
 * load some routines using the dlsym interface, described in dlsym(3x).
 * Unfortunately SunOS 4.1 does not include the necessary library, libdl.
 */

void *dlopen() { return 0; }

void *dlsym() { return 0; }

int dlclose() { return -1; }

#endif