Skip to content

Instantly share code, notes, and snippets.

@dpsutton

dpsutton/scratch.clj

Forked from hiredman/scratch.clj
Created March 2, 2022 16:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dpsutton/3f10272cff0077e308f27f47f2f59b5c to your computer and use it in GitHub Desktop.
Save dpsutton/3f10272cff0077e308f27f47f2f59b5c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
scratch.clj
(let [addr (java.net.UnixDomainSocketAddress/of "/tmp/222")
sc (doto (java.nio.channels.ServerSocketChannel/open java.net.StandardProtocolFamily/UNIX)
(.bind addr))]
(while true
(let [c (.accept sc)]
(future
(let [in (java.nio.channels.Channels/newInputStream c)
out (java.nio.channels.Channels/newOutputStream c)]
(binding [*in* (clojure.lang.LineNumberingPushbackReader.
(clojure.java.io/reader in))
*out* (clojure.java.io/writer out)]
(clojure.main/repl)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment