22 lines
513 B
Plaintext
22 lines
513 B
Plaintext
(print "FS API:")
|
|
(runtime-debug (print (fs/exists? (car *args*))))
|
|
(runtime-debug (print (fs/file? (car *args*))))
|
|
(runtime-debug (print (fs/directory? (car *args*))))
|
|
(runtime-debug (print (fs/read-to-string (car *args*))))
|
|
(runtime-debug (print (fs/home-directory)))
|
|
|
|
(print "Stream API:")
|
|
|
|
(print (+ (car *args*) ":"))
|
|
(setq handle (stream/open (car *args*)))
|
|
|
|
(loop
|
|
(let (data (stream/read handle))
|
|
(if data
|
|
(stream/write stream/stdout data)
|
|
(break)
|
|
)
|
|
)
|
|
)
|
|
(stream/close handle)
|