Linux fixes

Makefile.in

@@ -328,7 +328,7 @@ install-misc: $(LIB)/rts $(LIB)/env $(LIB)/big $(LIB)/opt \
 	    do $(INSTALL_DATA) $$f $(LIB)/doc/scsh-manual/; done
 	$(INSTALL_DATA) $(srcdir)/rts/jar-defrecord.scm $(LIB)/rts/
 #  -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
 $(LIB)/rts:
 	mkdir $(LIB)/rts
@@ -716,6 +716,7 @@ install-scsh: scsh
 	    do $(INSTALL_DATA) $$f $(LIB)/scsh/; done
 
 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
 	-cd scsh/regexp; $(MAKE) clean

dynload.c

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

scsh/linux/sigset.h

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

scsh/network.c

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

scsh/network.scm

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

sysdep.h.in

@@ -63,6 +63,10 @@
    with locating shared object files. */
 #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!). */
 #undef HAVE_CHROOT