jafingerhut

(ns inputstream.core
  (:require [clojure.java.io :as io]))


(defn read-is [^java.io.InputStream is]
  (let [bufsize 8192
        buf (byte-array bufsize)]
    (loop [total-len 0]
      (let [n (.read is buf)]
        (cond

jafingerhut

;; Examples showing that when *print-meta* is bound to true, clojure.pprint/pprint appears
;; to show metadata on symbols, but not on collections.  Can be misleading when only *some*
;; metadata is shown.  Led me to believe the other metadata wasn't there until I double-checked
;; with pr.

(defn ppm [f m]
  (binding [*print-meta* m]
    (clojure.pprint/pprint f)))

(defn prm [f m]

jafingerhut

;; In a fresh Clojure 1.5.1 'lein repl'

;; clojure.edn is not loaded yet
user=> (clojure.edn/read-string "(5)")

ClassNotFoundException clojure.edn  java.net.URLClassLoader$1.run (URLClassLoader.java:366)

;; trying to eval this form does not do it, because it fails to analyze as a whole
user=> (eval `(when true (require 'clojure.edn) (clojure.edn/read-string "(5)")))

jafingerhut

(ns piper.core
  (:require [clojure.java.io :as io]
            [clojure.string :as str])
  (:import (java.io Reader Writer BufferedReader)))

(defn str-seq-reader
  "Return a java.io.Reader that returns the same sequence of
characters as are in the concatenation of the sequence of strings
given as an argument.  Consumes only as much of the sequence as needed
for any given read operation."

jafingerhut

package perf;

import clojure.lang.AFunction;
import clojure.lang.IFn;
import clojure.lang.Indexed;
import clojure.lang.Numbers;
import clojure.lang.RT;
import clojure.lang.Var;
import java.awt.image.BufferedImage;
import perf.core.foo.fn__14;

jafingerhut

;; Example use of unresolve:

;; user=> (unresolve #'replace)
;; (replace clojure.core/replace)
;; user=> (use 'clojure.string)
;; WARNING: replace already refers to: #'clojure.core/replace in namespace: user, being replaced by: #'clojure.string/replace
;; WARNING: reverse already refers to: #'clojure.core/reverse in namespace: user, being replaced by: #'clojure.string/reverse
;; nil
;; user=> (unresolve #'replace)
;; (replace clojure.string/replace)