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

Die Lady Die.

This commit is contained in:
mainzelm 2003-05-02 13:34:23 +00:00
parent 16f7c7ce18
commit 6261942760
4 changed files with 1 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.in
View File

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

39
scsh/endian.scm.in
View File

@ -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@)

6
scsh/scsh-interfaces.scm
View File

@ -829,12 +829,6 @@
options/linger options/linger
options/timeout)) 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 ;;; actual functions interface
(define-interface scsh-sockets-interface (define-interface scsh-sockets-interface
(export socket-connect (export socket-connect

9
scsh/scsh-package.scm
View File

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