Skip to content

Latest commit

 

History

History
64 lines (49 loc) · 1.46 KB

README.md

File metadata and controls

64 lines (49 loc) · 1.46 KB
Raw

cljasm

ASM API for clojure.

Usage

(ns cljasm.test
  (:use cljasm.core
        cljasm.insn))

;; write a fn in asm:

(def-asm-fn hello-world [name]
  (getstatic System 'out java.io.PrintStream)
  (asm-new StringBuilder)
  (dup)
  (ldc "hi ")
  (invokespecial StringBuilder "<init>" "(Ljava/lang/String;)V")
  (aload 1)
  (invokevirtual StringBuilder 'append "(Ljava/lang/Object;)Ljava/lang/StringBuilder;")
  (ldc "!")
  (invokevirtual StringBuilder 'append "(Ljava/lang/String;)Ljava/lang/StringBuilder;")
  (invokevirtual StringBuilder 'toString "()Ljava/lang/String;")
  (dup_x1)
  (invokevirtual java.io.PrintStream 'println "(Ljava/lang/String;)V")
  (areturn))

(hello-world "you")

;; extend exception in asm:

(def-asm-class MyException Exception []
  (<init> [^String message]
    (aload 0)
    (aload message)
    (invokespecial Exception "<init>" "(Ljava/lang/String;)V")
    (return)))

(throw (MyException. "something right!"))

;; write a bean class with instance fields:

(def-asm-class BeanObject Object []
  [^String name]
  (<init> []
    (aload 0)
    (invokespecial Object "<init>" "()V")
    (return))
  (^void setName [^String name]
    (aload 0)
    (aload name)
    (putfield this-class-name "name" String)
    (return))
  (^String getName []
    (aload 0)
    (getfield this-class-name "name" String)
    (areturn)))

License

Copyright (C) 2012

Distributed under the Eclipse Public License, the same as Clojure.