diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm index 7508c62..f74b575 100644 --- a/scsh/scsh-interfaces.scm +++ b/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 diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm index ec4a1ea..c24f8c4 100644 --- a/scsh/scsh-package.scm +++ b/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.