first implementation for s48
This commit is contained in:
parent
415d3c638c
commit
e93288fc47
|
@ -1,10 +1,11 @@
|
|||
#include "xlib.h"
|
||||
#include "scheme48.h"
|
||||
|
||||
static s48_value P_Xlib_Release_4_Or_Laterp () {
|
||||
s48_value scx_Xlib_Release_4_Or_Later () {
|
||||
return S48_TRUE;
|
||||
}
|
||||
|
||||
static s48_value P_Xlib_Release_5_Or_Laterp () {
|
||||
s48_value scx_Xlib_Release_5_Or_Later () {
|
||||
#ifdef XLIB_RELEASE_5_OR_LATER
|
||||
return S48_TRUE;
|
||||
#else
|
||||
|
@ -12,7 +13,7 @@ static s48_value P_Xlib_Release_5_Or_Laterp () {
|
|||
#endif
|
||||
}
|
||||
|
||||
static s48_value P_Xlib_Release_6_Or_Laterp () {
|
||||
s48_value scx_Xlib_Release_6_Or_Later () {
|
||||
#ifdef XLIB_RELEASE_6_OR_LATER
|
||||
return S48_TRUE;
|
||||
#else
|
||||
|
@ -20,18 +21,16 @@ static s48_value P_Xlib_Release_6_Or_Laterp () {
|
|||
#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"));
|
||||
|
||||
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__)
|
||||
|
||||
//#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.
|
||||
|
@ -40,11 +39,7 @@ elk_init_xlib_init () {
|
|||
* 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
|
||||
//void *dlopen() { return 0; }
|
||||
//void *dlsym() { return 0; }
|
||||
//int dlclose() { return -1; }
|
||||
//#endif
|
||||
|
|
Loading…
Reference in New Issue