scx/c/xlib/init.c

44 lines
1.0 KiB
C

#include "xlib.h"
s48_value scx_Xlib_Release_4_Or_Later () {
return S48_TRUE;
}
s48_value scx_Xlib_Release_5_Or_Later () {
#ifdef XLIB_RELEASE_5_OR_LATER
return S48_TRUE;
#else
return S48_FALSE;
#endif
}
s48_value scx_Xlib_Release_6_Or_Later () {
#ifdef XLIB_RELEASE_6_OR_LATER
return S48_TRUE;
#else
return S48_FALSE;
#endif
}
void scx_init_init(void) {
S48_EXPORT_FUNCTION(scx_Xlib_Release_4_Or_Later);
S48_EXPORT_FUNCTION(scx_Xlib_Release_5_Or_Later);
S48_EXPORT_FUNCTION(scx_Xlib_Release_6_Or_Later);
}
//#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