Disassembling with Continuations

discont.clj

(ns core.clj
  (:require [clojure.string :as str]
            [fipp.edn :refer [pprint] :rename {pprint fipp}]
            [com.positronic-solutions.pulley.cps :refer :all]
            [no.disassemble :refer :all]))

(defn stacks []
  (->> disassemble
       call-cc
       str/split-lines 
       (filter #(re-find #"Stack" %)) 
       (map (comp (fn [s] (map #(Long/parseLong (re-find #"\d+" %)) s))
                  #(str/split % #",")))
       (map #(zipmap [:stack :locals] %))
       (sort-by :stack)
       fipp))

(defn get-cc []
  (call-cc 
   (fn [cc]
     #(cc (conj [] %)))))

(defn read-cc []
  (-> (get-cc)
      disassemble-data 
      fipp))