parse-example.clj

(ns myproject.parsing
  (:import [myproject.parsers.java
            JavaLexer JavaParser JavaBaseListener]
           [org.antlr.v4.runtime
            ANTLRInputStream CommonTokenStream]
           [org.antlr.v4.runtime.tree
            ParseTree ParseTreeWalker]))

(defn- make-listener []
    (proxy [JavaBaseListener] []
      (enterImportDeclaration [ctx] ... do something ...)
      (exitImportDeclaration [ctx] ... do something ...)))

(defn parse-java [source]
  "Parse 'source using the Java parser."
  (let [input (ANTLRInputStream. source)
        lexer (JavaLexer. input)
        tokens (CommonTokenStream. lexer)
        parser (JavaParser. tokens)
        tree (.compilationUnit parser)]
    (.walk (ParseTreeWalker.) (make-listener) tree)))