added clj-sophia

Author: BrunoBonacci

README.md

@@ -16,6 +16,7 @@ Here the list of libraries tested:
   - [clojure/tools.logging+log4j](./tools-logging-log4j) - Logging library :white_check_mark:
   - [amazonica+s3](./amazonica-s3) - Cloud API wrapper library :x: (*Buildtime and Runtime error*)
   - [cheshire](./cheshire) - JSON parser/writer :white_check_mark:
+  - [clj-sophia](./clj-sophia) - A fast RAM-Disk hybrid storage :x: (Runtime error/JNA)
   - [nippy](./nippy) - Clojure serialization/deserialization library :warning: (*Can't serialize exceptions*)
   - cognitect/aws-api+s3 - Cloud API library :question:
   - ring/jetty - Web server :question:

clj-sophia/.gitignore

@@ -0,0 +1,12 @@
+/target
+/classes
+/checkouts
+profiles.clj
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port
+.hgignore
+.hg/

clj-sophia/README.md

@@ -0,0 +1,32 @@
+# clj-sophia
+
+Testing whether [clj-sophia](https://github.com/BrunoBonacci/clj-sophia) library can be used in a native binary image with GraalVM.
+
+## Usage
+
+Currently testing:
+
+    [com.brunobonacci/clj-sophia "0.5.2"]
+
+Test with:
+
+    lein do clean, uberjar, native, run-native
+
+
+At runtime the following error is thrown:
+
+    Exception in thread "main" java.lang.UnsatisfiedLinkError: Error looking up function 'sp_env': com.sun.jna.Native.findSymbol(JLjava/lang/String;)J [symbol: Java_com_sun_jna_Native_findSymbol or Java_com_sun_jna_Native_findSymbol__JLjava_lang_String_2]
+        at com.sun.jna.Function.<init>(Function.java:251)
+        at com.sun.jna.NativeLibrary.getFunction(NativeLibrary.java:566)
+        at com.sun.jna.NativeLibrary.getFunction(NativeLibrary.java:542)
+        at com.sun.jna.NativeLibrary.getFunction(NativeLibrary.java:528)
+        at com.sun.jna.Library$Handler.invoke(Library.java:228)
+        at com.sun.proxy.$Proxy180.sp_env(Unknown Source)
+        at com.brunobonacci.sophia.native$sp_env.invokeStatic(native.clj:121)
+        at com.brunobonacci.sophia.native$sp_env.invoke(native.clj:102)
+        at com.brunobonacci.sophia$fn__9197$sophia__9207.invoke(sophia.clj:146)
+        at simple.main$_main.invokeStatic(main.clj:9)
+        at simple.main$_main.invoke(main.clj:7)
+        at clojure.lang.AFn.applyToHelper(AFn.java:152)
+        at clojure.lang.AFn.applyTo(AFn.java:144)
+        at simple.main.main(Unknown Source)

clj-sophia/project.clj

@@ -0,0 +1,24 @@
+(defproject sophia "0.1.0-SNAPSHOT"
+
+  :dependencies [[org.clojure/clojure "1.10.0"]
+                 [com.brunobonacci/clj-sophia "0.5.2"]
+                 ;; to use with Log4J
+                 [org.slf4j/slf4j-log4j12 "1.7.25"]
+                 ;; see also resource/log4j.properties
+                 ]
+
+  :main simple.main
+
+  :uberjar-name "simple-main.jar"
+  :profiles {:uberjar {:aot :all}
+             :dev {:plugins [[lein-shell "0.5.0"]]}}
+
+  :aliases
+  {"native"
+   ["shell"
+    "native-image" "--report-unsupported-elements-at-runtime" "--no-server"
+    "--initialize-at-build-time"
+    "-jar" "./target/${:uberjar-name:-${:name}-${:version}-standalone.jar}"
+    "-H:Name=./target/${:name}"]
+
+   "run-native" ["shell" "./target/${:name}"]})

clj-sophia/resources/log4j.properties

@@ -0,0 +1,14 @@
+# Root logger option
+log4j.rootLogger=INFO, stdout
+
+# Direct log messages to stdout
+log4j.appender.stdout=org.apache.log4j.ConsoleAppender
+log4j.appender.stdout.Target=System.out
+log4j.appender.stdout.encoding=UTF-8
+log4j.appender.stdout.layout=org.apache.log4j.PatternLayout
+log4j.appender.stdout.layout.ConversionPattern=%-5p %c{1}:%L - %m%n
+
+# Print only messages of level DEBUG or above in the package
+# log4j.logger.com.mypackage=DEBUG, stdout
+# or
+# log4j.category.com.mypackage=DEBUG

clj-sophia/src/simple/main.clj

@@ -0,0 +1,15 @@
+(ns simple.main
+  (:require [com.brunobonacci.sophia :as sph])
+  (:gen-class))
+
+
+
+(defn -main []
+
+  (let [env (sph/sophia
+             {;; where to store the files on disk
+              :sophia.path "/tmp/sophia-test"
+              ;; which logical databases to create
+              :dbs ["accounts", {:name "transactions"}]})]
+    (prn "SET" (sph/set-value!  env "accounts" "user1" "John"))
+    (prn "GET" (sph/get-value   env "accounts" "user1"))))