scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first implementation for s48

This commit is contained in:
nofreude 2001-08-28 14:19:32 +00:00
parent 415d3c638c
commit e93288fc47
1 changed files with 16 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
c/xlib/init.c
View File

@ -1,10 +1,11 @@
#include "xlib.h" #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; 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 #ifdef XLIB_RELEASE_5_OR_LATER
return S48_TRUE; return S48_TRUE;
#else #else
@ -12,7 +13,7 @@ static s48_value P_Xlib_Release_5_Or_Laterp () {
#endif #endif
} }
static s48_value P_Xlib_Release_6_Or_Laterp () { s48_value scx_Xlib_Release_6_Or_Later () {
#ifdef XLIB_RELEASE_6_OR_LATER #ifdef XLIB_RELEASE_6_OR_LATER
return S48_TRUE; return S48_TRUE;
#else #else
@ -20,18 +21,16 @@ static s48_value P_Xlib_Release_6_Or_Laterp () {
#endif #endif
} }
elk_init_xlib_init () {
Define_Primitive (P_Xlib_Release_4_Or_Laterp, void scx_init_init(void) {
"xlib-release-4-or-later?", 0, 0, EVAL); S48_EXPORT_FUNCTION(scx_Xlib_Release_4_Or_Later);
Define_Primitive (P_Xlib_Release_5_Or_Laterp, S48_EXPORT_FUNCTION(scx_Xlib_Release_5_Or_Later);
"xlib-release-5-or-later?", 0, 0, EVAL); S48_EXPORT_FUNCTION(scx_Xlib_Release_6_Or_Later);
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__) //#if defined(XLIB_RELEASE_5_OR_LATER) && (defined(sun) || defined(__sun__)) &&\
// defined(__svr4__)
/* /*
* Stub interface to dynamic linker routines * Stub interface to dynamic linker routines
* that SunOS uses but didn't ship with 4.1. * 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). * load some routines using the dlsym interface, described in dlsym(3x).
* Unfortunately SunOS 4.1 does not include the necessary library, libdl. * Unfortunately SunOS 4.1 does not include the necessary library, libdl.
*/ */
//void *dlopen() { return 0; }
void *dlopen() { return 0; } //void *dlsym() { return 0; }
//int dlclose() { return -1; }
void *dlsym() { return 0; } //#endif
int dlclose() { return -1; }
#endif