AlexBaranosky

[ Full disclosure: I am the technical lead on this product and the hiring manager in this case. Feel free to contact me with questions, and to pass this around. ]

Clojure Developer for Malware Analysis Product

The ThreatGRID team at Cisco is looking for experienced clojure developers to work on our large scale, malware analysis product. Our entire platform is built on Clojure, from the the API services, around the event processing subsystem, and down to the core.logic analysis engine.

Our system runs as a distributed cluster in the cloud, and shrunk down to a

AlexBaranosky

(clojure.core/getLookupThunk
      [this__6431__auto__ k__6432__auto__]
      (let [gclass (class this__6431__auto__)]
        (case
          k__6432__auto__
          :events2
          (reify
            clojure.lang.ILookupThunk
            (get
              [thunk gtarget]

AlexBaranosky

;; Example:

;; (doseq-indexed idx [name names]
;;   (println (str idx ". " name)

(defmacro doseq-indexed [index-sym [item-sym coll] & body]
  `(let [idx-atom# (atom 0)]
     (doseq [~item-sym ~coll]
       (let [~index-sym (deref idx-atom#)]

AlexBaranosky

    "increase-main": {
        "mod": "mod1",
        "key": "="
    },
    "decrease-main": {
        "mod": "mod1",
        "key": "-"
    },

AlexBaranosky

(defn drop-trailing-zeros [^String s]
  (.replaceFirst s "\\.0*$|(\\.\\d*?)0+$" "$1"))

(defmethod print-method Number [o, ^Writer w]
  (if (float? o)
    (.write w (drop-trailing-zeros (format "%.99f" o)))
    (.write w (str o))))

AlexBaranosky

(require '[clojure.java.io :as io]
          '[incanter.stats :as stats])
(import '[cern.colt.list.tdouble DoubleArrayList])

(defn rpt [xs]
  (mapv vector
        ["Min" "10%" "20%" "30%" "40%" "50%"
         "60%" "70%" "80%" "90%" "99%" "99.5%" "99.9%" "Max"]
        (stats/quantile xs
                        :probs (DoubleArrayList.

AlexBaranosky

gui.internal.parser> (def env (aj/empty-env))
#'gui.internal.parser/env
gui.internal.parser> (aj/analyze '(println "!") env)
{:ret-tag java.lang.Object, :children [:args :fn], :meta {:line 1, :column 14}, :op :invoke, :form (println "!"), :env {:file "NO_SOURCE_PATH", :line 1, :column 14, :loop-locals [], :context :expr, :ns gui.internal.parser}, :fn {:id 0, :arglists ([& more]), :form println, :env {:file "NO_SOURCE_PATH", :loop-locals [], :context :expr, :ns gui.internal.parser}, :op :var, :assignable? false, :var #'clojure.core/println}, :args [{:id 1, :tag java.lang.String, :op :const, :env {:file "NO_SOURCE_PATH", :loop-locals [], :context :expr, :ns gui.internal.parser}, :type :string, :literal? true, :val "!", :form "!"}]}
gui.internal.parser> (def pp clojure.pprint/pprint)
#'gui.internal.parser/pp
gui.internal.parser> (pp (aj/analyze '(println "!") env))
{:ret-tag java.lang.Object,
 :children [:args :fn],
 :meta {:line 1, :column 18},

AlexBaranosky

if rvm version >/dev/null 2>&1; then
  SELECT_RUBY="rvm use system" ## 'system' is the important piece
  SUDO_GEM=""
else
  SELECT_RUBY="date"
  SUDO_GEM="sudo"
fi

AlexBaranosky

(defn- expand-arg [arg]
  (if (symbol? arg)
    arg
    (first (single-destructuring-arg->form+name arg))))

(defn print-and-return
  "Diagnostic tool for printing the result of evaluating an s-expression.
   Any initial args over 1, are printed as strings, and generally used as a label."
  [& xs]
  (when (seq (butlast xs))

AlexBaranosky

;; works, but only for already opened buffers
(defun projectile-cleanup-project-buffers ()
  (interactive)
  (dolist (buffer (projectile-project-buffer-names))
    (condition-case nil
        (with-current-buffer buffer
          (esk-cleanup-buffer))
      (buffer-read-only nil))))

;; doesn't work - intended to get it to run against all