core.clj

(ns going-native.core
  (:import (com.sun.jna "Native"))
  (:gen-class))

(gen-interface
  :name jna.CLibrary
  :extends [com.sun.jna.Library]
  :methods [[printf [String] Integer]])

(def glibc (Native/loadLibrary "c" jna.CLibrary))

(defn example [astring]
  (.printf glibc astring))

(defn -main [& args]
  (example "yay stuff!\n")
  nil)