Factor SCSH-ENDIAN out of SCSH-LEVEL-0.

scsh/scsh-interfaces.scm

@@ -658,6 +658,12 @@
 	  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
@@ -712,14 +718,7 @@
 	  protocol-info?
 	  protocol-info:name
 	  protocol-info:aliases
-	  protocol-info:number
-	  
-	  net-to-host-32
-	  net-to-host-16
-	  host-to-net-32
-	  host-to-net-16
-	  ))
-
+	  protocol-info:number))
 
 (define-interface scsh-field-reader-interface
   (export join-strings

scsh/scsh-package.scm

@@ -108,6 +108,11 @@
 	handle conditions signals)
   (files scsh-condition))
 
+(define-structure scsh-endian scsh-endian-interface
+  (open scheme
+	bitwise)
+  (files endian))
+
 (define-structure partial-s48-ports
   (export current-input-port current-output-port
 	  newline
@@ -150,6 +155,7 @@
 			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 char-set-lib)
@@ -235,7 +241,8 @@
 	general-tables
 	simple-syntax
 
-	scsh-errors)  
+	scsh-errors
+	scsh-endian)  
   (for-syntax (open scsh-syntax-helpers scheme))
   (access interrupts
 	  sort
@@ -263,7 +270,6 @@
 	 time			; New in release 0.2.
 	 (machine time_dep)
 	 network		; New in release 0.3.
-	 endian			; New in release 0.4.
 	 flock			; New in release 0.4.
 	 tty			; New in release 0.4.
 	 pty			; New in release 0.4.