Die Lady Die.

Makefile.in

@@ -416,7 +416,6 @@ clean: clean-scsh
 distclean: clean
 	rm -f Makefile config.log config.status c/sysdep.h config.cache \
 		scsh/machine \
-		scsh/endian.scm \
 		exportlist.aix
 	$(RM) a.exe $(VM).base $(VM).def $(VM).exp 
 	-find . -name '*~' -o -name '#*'  -o -name core -exec rm {} \;
@@ -717,7 +716,6 @@ SCHEME =scsh/awk.scm \
 	scsh/defrec.scm \
 	scsh/directory.scm \
 	scsh/dot-locking.scm \
-	scsh/endian.scm \
 	scsh/enumconst.scm \
 	scsh/environment.scm \
 	scsh/event.scm \

scsh/endian.scm.in

@@ -1,39 +0,0 @@
-;;; Endian routines for the Scheme Shell
-;;; Copyright (c) 1995 by Brian D. Carlstrom.
-
-;; Big Endian - Motorola, Sparc, HPPA, etc
-(define (net-to-host-32-big num32)
-  (and (<= 0 num32 #xffffffff)
-       num32))
-
-(define (net-to-host-16-big num16)
-  (and (<= 0 num16 #xffffffff)
-       num16))
-
-;; Little Endian - Intel, Vax, Alpha
-(define (net-to-host-32-little num32)
-  (and (<= 0 num32 #xffffffff)
-       (let* ((num24 (arithmetic-shift num32 -8))
-	      (num16 (arithmetic-shift num24 -8))
-	      (num08 (arithmetic-shift num16 -8))
-	      (byte0 (bitwise-and #b11111111 num08))
-	      (byte1 (bitwise-and #b11111111 num16))
-	      (byte2 (bitwise-and #b11111111 num24))
-	      (byte3 (bitwise-and #b11111111 num32)))
-	 (+ (arithmetic-shift byte3 24)
-	    (arithmetic-shift byte2 16)	
-	    (arithmetic-shift byte1  8)
-	    byte0))))
-
-(define (net-to-host-16-little num16)
-  (and (<= 0 num16 #xffffffff)
-       (let* ((num08 (arithmetic-shift num16 -8))
-	      (byte0 (bitwise-and #b11111111 num08))
-	      (byte1 (bitwise-and #b11111111 num16)))
-	 (+ (arithmetic-shift byte1 8)
-	    byte0))))
-
-(define net-to-host-32 net-to-host-32-@ENDIAN@)
-(define net-to-host-16 net-to-host-16-@ENDIAN@)
-(define host-to-net-32 net-to-host-32-@ENDIAN@)
-(define host-to-net-16 net-to-host-16-@ENDIAN@)

scsh/scsh-interfaces.scm

@@ -829,12 +829,6 @@
 	  options/linger
 	  options/timeout))
 
-(define-interface scsh-endian-interface
-  (export net-to-host-32
-	  net-to-host-16
-	  host-to-net-32
-	  host-to-net-16))
-
 ;;; actual functions interface
 (define-interface scsh-sockets-interface
   (export socket-connect

scsh/scsh-package.scm

@@ -129,11 +129,6 @@
 	handle conditions signals)
   (files scsh-condition))
 
-(define-structure scsh-endian scsh-endian-interface
-  (open scheme
-	bitwise)
-  (files endian))
-
 (define-structure scsh-environments scsh-environments-interface
   (open scheme
 	locks thread-fluids
@@ -585,7 +580,6 @@
 			scsh-high-level-process-interface
 			scsh-time-interface ; new in 0.2
 			scsh-sockets-interface ; new in 0.3
-			scsh-endian-interface
 			tty-interface ; new in 0.4
 			scsh-version-interface
 			(interface-of srfi-14) ;; export this here for
@@ -677,8 +671,7 @@
 			     
 	(subset i/o (current-error-port))
 
-	scsh-errors
-	scsh-endian)
+	scsh-errors)
   (begin
     ;; work around for SRFI 14 naming fuckage
     (define ->char-set x->char-set))