46 lines
1.1 KiB
C
46 lines
1.1 KiB
C
#include "xlib.h"
|
|
#include "scheme48.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
|