creates a file path from a class

(class->path test.Dog) => “test/Dog.class”

(class->path ’test.Cat) => “test/Cat.class”

creates a ForwardingJavaFileManager

(let compiler (javax.tools.ToolProvider/getSystemJavaCompiler) collector (javax.tools.DiagnosticCollector.) manager (.getStandardFileManager compiler collector nil nil) cache (atom {}) (class-manager manager cache)) => javax.tools.ForwardingJavaFileManager

creates a class object for use with compiler

(class-object “test.Cat” (fs/read-all-bytes “target/classes/test/Cat.class”)) => javax.tools.SimpleJavaFileObject

lists source classes in a project

(->> (java-sources (project/project)) (keys) (filter (comp #(.startsWith % “test”) str)) (sort)) => (contains ’test.Cat test.Dog test.DogBuilder test.Person test.PersonBuilder test.Pet)

compiles classes using the built-in compiler

(javac ’test {:output “target/classes” :reload false}) ;;=> outputs .class files in target directory

displays output of compilation

processes compilation, either reloading

(javac-process {“test.Pet” (fs/read-all-bytes “target/classes/test/Pet.class”) “test.Cat” (fs/read-all-bytes “target/classes/test/Cat.class”)} {:output “target/classes” :reload false})

Creates a class symbol from a file

(path->class “test/Dog.java”) => ’test.Dog

(path->class “test/Cat.class”) => ’test.Cat

finds supers of a class given it’s bytecode

(supers (fs/read-all-bytes “target/classes/test/Cat.class”)) => #{“java.lang.Object” “test.Pet”}