senior

(defmacro with-wrapped-fn-args [bindings & body]
  (cond
   (zero? (count bindings))
    `(do ~@body)
    
   (symbol? (first bindings))
   `(let [~(get bindings 0) (atom [])
          orig-fn# ~(get bindings 1)]
      (with-redefs [~(get bindings 1) (wrap-capture-args orig-fn# ~(get bindings 0))]
        (with-wrapped-fn-args ~(subvec bindings 2)

senior

(ns scratch1) 

(defprotocol Foo2
 (foo2 [_ msg])
 (bar2 [_]))
               
(ns scratch2)

(def a (proxy [java.lang.Object Foo2] []
         (foo2 [msg] (println "foo" msg))

senior

(ns com.puppetlabs.test.slingshot
  (:require [slingshot.slingshot :refer [try+ throw+]]
            [slingshot.support :refer [wrap]]
            [slingshot.test]
            [clojure.test :refer :all]
            [clojure.pprint]
            [clojure.stacktrace :as st]
            [spyscope.core]))

(defn wrapped? [^Throwable t]

senior

-[ RECORD 1 ]--+------------------------------
datid          | 17413
datname        | puppetdb
numbackends    | 13
xact_commit    | 238
xact_rollback  | 2
blks_read      | 314
blks_hit       | 30109
tup_returned   | 68458
tup_fetched    | 16072

senior

(defn inc-it [x] (+ x 1))

(let [hand-off-queue (java.util.concurrent.SynchronousQueue.)
      f1 (future-call
            (fn []
              (with-redefs [inc-it (fn [x] (- x))]
                (.put hand-off-queue "foo")
                (inc-it 10))))
      f2 (future-call
            (fn []

senior

On the host system
-------------------
* Install the net-scp ruby gem: sudo gem install net-scp
* Install the json gem:
** The gem needs to build a native extension, tell it where Xcode Command Line Tools is: sudo xcode-select -switch /Library/Developer/
** Xcode CLT doesn't include xcrun, fake one with the script here: http://stackoverflow.com/questions/13041525/osx-10-8-xcrun-no-such-file-or-directory
** should be ready to build now: sudo gem install json
* sudo gem install systemu
* git clone git://github.com/puppetlabs/puppet-acceptance.git
* cd puppet-acceptance

senior

(defn lazy-dog
  "Like concat or lazy-cat but does not realize the outer seq"
  [coll]
  (concat
   (first coll)
   (lazy-seq
    (when-let [more (next coll)]
      (lazy-dog more)))))

(defn make-lazy-seq [end]

senior

(defmacro dbg (form)
  (let ((res (make-symbol "res"))
        (dbg-str (make-symbol "dbg-str")))
    `(progn
       (let ((,res ,form))
         (let ((,dbg-str (concat
                          (prin1-to-string "Debugging--> ")
                          (prin1-to-string ',form)
                          (prin1-to-string "\n = ")

senior

(defn lvarify
  "Using _ for don't care types of values works fine when using the matche and conde
   macros directly, but not as well when other macros wrap it.  This will walk a list,
   looking for _ values and swapping them for new logic variables.  This translates into
   the same don't care values when using conde/matche directly."
  [sym-list]
  (vec (map #(if (= % '_)
               `(lvar)
               %)
            sym-list)))

senior

(defroutes admin-app
  (GET "/sparql-ui" [query]
       (if query
         (let [result (dostuff)]
           {:body (apply str (template query result))})
         {:body (apply str (template nil nil))}))


  (route/not-found "<h1>Page not found</h1>"))