Using JRuby's Ruby Parser from Clojure

parse_ruby.clj

(ns graaaph.core
  (:import (org.jrubyparser Parser
                            CompatVersion)
           (org.jrubyparser.parser ParserConfiguration)
           (org.jrubyparser.ast Node)
           (java.io.StringReader))
  (:require [clojure.zip :as z]))

(defn parse-ruby [ruby-string]
  (let [config (ParserConfiguration. 0 (CompatVersion/RUBY1_9))
        reader (java.io.StringReader. ruby-string)
        parser (Parser.)]
    (.parse parser "" reader config)))

(defn has-children? [nodes]
  (not (nil? (-> nodes
                 .childNodes
                 first))))

(defn get-children [nodes]
  (.childNodes nodes))

(def c (parse-ruby "module Cool;class Dude;def sick;'siiiick';end;def bro;'whoooah';end;end;end"))

(defn code-zipper [nodes]
  (z/zipper has-children? get-children (fn [_ c] c) nodes))

(def zipped-code (code-zipper c))

(-> zipped-code
    z/down
    z/down
    z/down
    z/node)

;; graaaph.core=> c
;; #<RootNode (RootNode, (NewlineNode, (ModuleNode, (Colon2ImplicitNode:Cool), (NewlineNode, (ClassNode, (Colon2ImplicitNode:Dude), (BlockNode, (NewlineNode, (DefnNode:sick, (ArgumentNode:sick), (ArgsNode), (NewlineNode, (StrNode)))), (NewlineNode, (DefnNode:bro, (ArgumentNode:bro), (ArgsNode), (NewlineNode, (StrNode))))))))))>

;; graaaph.core=> (-> zipped-code
;;                    z/down
;;                    z/down
;;                    z/down
;;                    z/node)
;; #<Colon2ImplicitNode (Colon2ImplicitNode:Cool)>