llvm.clj

;; https://pauladamsmith.com/blog/2015/01/how-to-get-started-with-llvm-c-api.html

(import LLVM
        LLVMModuleRef
        LLVMTypeRef
        Wrap)

(let [module (LLVM/ModuleCreateWithName "my_module")
      params (into-array [(LLVM/Int32Type) (LLVM/Int32Type)])
      fntyp (LLVM/FunctionType (LLVM/Int32Type) params false)
      sum (Wrap/AddFunction module "sum" fntyp)
      entry (LLVM/AppendBasicBlock sum "entry")
      builder (LLVM/CreateBuilder)
      _ (LLVM/PositionBuilderAtEnd builder entry)
      tmp (LLVM/BuildAdd builder
                         (LLVM/GetParam sum 0)
                         (LLVM/GetParam sum 1)
                         "tmp")
      _ (LLVM/BuildRet builder tmp)
      ]
  (LLVM/WriteBitcodeToFile module "sum.bc")
  sum)

sum.ll

define i32 @sum(i32, i32) {
entry:
  %tmp = add i32 %0, %1
  ret i32 %tmp
}