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

added Taylor Campbell to COPYING, Banana notice to NEWS

This commit is contained in:
Taylor R. Campbell 2003-03-29 16:14:06 +00:00
parent 2732d18bba
commit 85945cfed1
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
COPYING
View File

@ -1,6 +1,7 @@
Copyright (c) 2003 Anthony Carrico, Martin Gasbichler Copyright (c) 2003 Anthony Carrico, Martin Gasbichler
Copyright (c) 2003 Eric Knauel, Matthias Neubauer Copyright (c) 2003 Eric Knauel, Matthias Neubauer
Copyright (c) 2003 RT Happe Copyright (c) 2003 RT Happe
Copyright (c) 2003 Taylor Campbell
All rights reserved. All rights reserved.

1
NEWS
View File

@ -1,6 +1,7 @@
version 0.3 version 0.3
* Added DETAILS (autogenerated) * Added DETAILS (autogenerated)
* Fixed installation * Fixed installation
* New s48 library: banana
version 0.2 - 2003-02-25 version 0.2 - 2003-02-25
* Added INSTALL, README.admin, README.contrib. * Added INSTALL, README.admin, README.contrib.

8
s48/banana/banana.scm
View File

@ -97,6 +97,10 @@
;; NONNEGINT->BYTE-VECTOR or something) to byte vectors as ;; NONNEGINT->BYTE-VECTOR or something) to byte vectors as
;; specified by the Banana protocol. ;; specified by the Banana protocol.
;; ;;
;; *FIXME* - Shouldn't this be able to be implemented better than
;; by consing up a list...and then reversing that list...and then
;; converting that list into a byte vector?
;;
;; Tail-recursive, iterative version. ;; Tail-recursive, iterative version.
(define (posint->byte-vector int) (define (posint->byte-vector int)
(do ((int int (arithmetic-shift int -7)) (do ((int int (arithmetic-shift int -7))
@ -119,8 +123,8 @@
; (cons (bitwise-and int #x7f) ; (cons (bitwise-and int #x7f)
; (loop (arithmetic-shift int -7))))))) ; (loop (arithmetic-shift int -7)))))))
;; BYTE-VECTOR->POSINT is just like above but the other way ;; BYTE-VECTOR->POSINT is just like POSINT->BYTE-VECTOR but the
;; around. ;; other way around.
(define (byte-vector->posint bv) (define (byte-vector->posint bv)
(let ((len (byte-vector-length bv))) (let ((len (byte-vector-length bv)))
(do ((i 0 (+ i 1)) (do ((i 0 (+ i 1))