[Scsh-checkins] CVS: scx/c/xlib init.c,1.2,1.3

[Norbert Freudemann <nofreude@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv4830

Modified Files:
        init.c 
Log Message:
first implementation for s48


Index: init.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/init.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** init.c      2001/05/14 13:48:37     1.2
--- init.c      2001/08/28 14:19:32     1.3
***************
*** 1,9 ****
  #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;
--- 1,10 ----
  #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;
***************
*** 13,17 ****
  }
  
! static s48_value P_Xlib_Release_6_Or_Laterp () {
  #ifdef XLIB_RELEASE_6_OR_LATER
      return S48_TRUE;
--- 14,18 ----
  }
  
! s48_value scx_Xlib_Release_6_Or_Later () {
  #ifdef XLIB_RELEASE_6_OR_LATER
      return S48_TRUE;
***************
*** 21,36 ****
  }
  
! 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
--- 22,35 ----
  }
  
! 
! 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
***************
*** 41,50 ****
   * Unfortunately SunOS 4.1 does not include the necessary library, libdl.
   */
! 
! void *dlopen() { return 0; }
! 
! void *dlsym() { return 0; }
! 
! int dlclose() { return -1; }
! 
! #endif
--- 40,45 ----
   * Unfortunately SunOS 4.1 does not include the necessary library, libdl.
   */
! //void *dlopen() { return 0; }
! //void *dlsym() { return 0; }
! //int dlclose() { return -1; }
! //#endif