home *** CD-ROM | disk | FTP | other *** search
/ HAKERIS 11 / HAKERIS 11.ISO / linux / system / LinuxConsole 0.4 / linuxconsole0.4install-en.iso / guile0.4.lcm / share / guile / slib / byte.scm < prev    next >
Encoding:
Text File  |  2004-01-06  |  708 b   |  16 lines
  1. ;;; "byte.scm" small integers, not necessarily chars.
  2.  
  3. (define (byte-ref str ind) (char->integer (string-ref str ind)))
  4. (define (byte-set! str ind val) (string-set! str ind (integer->char val)))
  5. (define (make-bytes len . opt)
  6.   (if (null? opt) (make-string len)
  7.       (make-string len (integer->char (car opt)))))
  8. (define bytes-length string-length)
  9. (define (write-byte byt . opt) (apply write-char (integer->char byt) opt))
  10. (define (read-byte . opt)
  11.   (let ((c (apply read-char opt)))
  12.     (if (eof-object? c) c (char->integer c))))
  13. (define (bytes . args) (list->bytes args))
  14. (define (bytes->list bts) (map char->integer (string->list bts)))
  15. (define (list->bytes lst) (list->string (map integer->char lst)))
  16.