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

Linux fixes

This commit is contained in:
bdc 1999-07-15 01:27:15 +00:00
parent 4c333f278b
commit 442db87f66
6 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Makefile.in
View File

@ -328,7 +328,7 @@ install-misc: $(LIB)/rts $(LIB)/env $(LIB)/big $(LIB)/opt \
do $(INSTALL_DATA) $$f $(LIB)/doc/scsh-manual/; done do $(INSTALL_DATA) $$f $(LIB)/doc/scsh-manual/; done
$(INSTALL_DATA) $(srcdir)/rts/jar-defrecord.scm $(LIB)/rts/ $(INSTALL_DATA) $(srcdir)/rts/jar-defrecord.scm $(LIB)/rts/
# -p: Intermediate directories are created as necessary. # -p: Intermediate directories are created as necessary.
# -p not portable...it is POSIX 2, bit its not widely available -bri # -p not portable...it is POSIX 2, but its not widely available -bri
# just added install-dirs # just added install-dirs
$(LIB)/rts: $(LIB)/rts:
mkdir $(LIB)/rts mkdir $(LIB)/rts
@ -716,6 +716,7 @@ install-scsh: scsh
do $(INSTALL_DATA) $$f $(LIB)/scsh/; done do $(INSTALL_DATA) $$f $(LIB)/scsh/; done
clean-scsh: clean-scsh:
$(RM) scsh/*.o scsh/regexp/*.o scsh/machine/*.o scsh/*.image $(RM) scsh/*.o scsh/regexp/*.o scsh/rx/*.o scsh/machine/*.o
$(RM) scsh/*.image
$(RM) $(LIBSCSH) scsh/scsh$(EXEEXT) scsh/scsh.vm $(RM) $(LIBSCSH) scsh/scsh$(EXEEXT) scsh/scsh.vm
-cd scsh/regexp; $(MAKE) clean -cd scsh/regexp; $(MAKE) clean

2
dynload.c
View File

@ -36,7 +36,7 @@
#include <dlfcn.h> #include <dlfcn.h>
#endif #endif
#ifdef HAVE_LIBGEN_H #if defined(HAVE_LIBGEN) && defined(HAVE_LIBGEN_H)
#include <libgen.h> #include <libgen.h>
/* if we have pathfind, get the file name with $LD_LIBRARY_PATH or $S48_EXTERN_PATH */ /* if we have pathfind, get the file name with $LD_LIBRARY_PATH or $S48_EXTERN_PATH */
static char *shared_object_name(char *name) static char *shared_object_name(char *name)

12
scsh/linux/sigset.h
View File

@ -2,9 +2,9 @@
** These macros are OS-dependent, and must be defined per-OS. ** These macros are OS-dependent, and must be defined per-OS.
*/ */
#define make_sigset(maskp, hi, lo) (*maskp=((hi)<<24)|(lo)) #define make_sigset(maskp, hi, lo) \
((maskp)->__val[0] = (unsigned long int) ((hi) << 24) | (lo))
/* Not a procedure: */
#define split_sigset(mask, hip, lop) \ #define split_sigset(mask, hip, lop)\
((*(hip)=(mask>>24)&0xff), \ ((*(hip) = ((mask).__val[0] >> 24) & 0xff),\
(*(lop)=(mask&0xffffff))) (*(lop) = ((mask).__val[0] & 0xffffff)))

1
scsh/network.c
View File

@ -57,7 +57,6 @@ scheme_value df_scheme_connect(long nargs, scheme_value *args)
scheme_value df_listen(long nargs, scheme_value *args) scheme_value df_listen(long nargs, scheme_value *args)
{ {
extern int listen(int , int );
scheme_value ret1; scheme_value ret1;
int r1; int r1;

1
scsh/network.scm
View File

@ -238,6 +238,7 @@
(define-foreign %listen/errno (define-foreign %listen/errno
(listen (integer sockfd) ; socket fdes (listen (integer sockfd) ; socket fdes
(integer backlog)) ; backlog (integer backlog)) ; backlog
no-declare ; for Linux
(to-scheme integer errno_or_false)) (to-scheme integer errno_or_false))
(define-errno-syscall (%listen sockfd backlog) %listen/errno) (define-errno-syscall (%listen sockfd backlog) %listen/errno)

4
sysdep.h.in
View File

@ -63,6 +63,10 @@
with locating shared object files. */ with locating shared object files. */
#undef HAVE_LIBGEN_H #undef HAVE_LIBGEN_H
/* Define if you have library libgen. This has something to do
with locating shared object files. */
#undef HAVE_LIBGEN
/* Define if you have the chroot() system call (quite inessential!). */ /* Define if you have the chroot() system call (quite inessential!). */
#undef HAVE_CHROOT #undef HAVE_CHROOT