22 lines
1 KiB
Clojure
22 lines
1 KiB
Clojure
(ns bytechannel-and-related-classes
|
|
(:require [clojure.java.io :as io])
|
|
(:import (java.nio.file OpenOption
|
|
StandardOpenOption)
|
|
(java.nio.channels ByteChannel
|
|
FileChannel
|
|
ReadableByteChannel
|
|
WritableByteChannel
|
|
Channels)))
|
|
|
|
(when (and (let [ch (-> (.getBytes "Hello")
|
|
(java.io.ByteArrayInputStream.)
|
|
(Channels/newChannel))]
|
|
(instance? ReadableByteChannel ch))
|
|
(let [ch (-> (java.io.ByteArrayOutputStream.)
|
|
(Channels/newChannel))]
|
|
(instance? WritableByteChannel ch))
|
|
(with-open [ch (FileChannel/open (-> (io/file "README.md")
|
|
(.toPath))
|
|
(into-array OpenOption [StandardOpenOption/READ]))]
|
|
(instance? ByteChannel ch)))
|
|
(println :success))
|