16 lines
359 B
Racket
16 lines
359 B
Racket
|
#lang racket
|
||
|
|
|
||
|
|
(require rnrs/bytevectors-6)
|
||
|
|
(require rnrs/io-ports-6)
|
||
|
|
|
||
|
|
(define file (open-file-input-port "memory.bin"))
|
||
|
|
|
||
|
|
;; Reads all the bytes from the input-port (for example a file)
|
||
|
|
;; and returns a byte vector
|
||
|
|
(define (read-all-bytes input-port)
|
||
|
|
(get-bytevector-all input-port))
|
||
|
|
|
||
|
|
(define contents (read-all-bytes file))
|
||
|
|
|
||
|
|
;; Thats all we got, good luck!
|