Julia: initial experimentation

3 files changed, 40 insertions, 0 deletions

diff --git a/julia/CrystFEL/Project.toml b/julia/CrystFEL/Project.toml
new file mode 100644
index 00000000..2c6596b0
--- /dev/null
+++ b/julia/CrystFEL/Project.toml
@@ -0,0 +1,4 @@
+name = "CrystFEL"
+uuid = "02864af1-98e3-4af5-94a7-a156d2a4edba"
+authors = ["Thomas White <taw@physics.org>"]
+version = "0.1.0"
diff --git a/julia/CrystFEL/src/CrystFEL.jl b/julia/CrystFEL/src/CrystFEL.jl
new file mode 100644
index 00000000..0ef197c0
--- /dev/null
+++ b/julia/CrystFEL/src/CrystFEL.jl
@@ -0,0 +1,7 @@
+module CrystFEL
+
+include("datatemplates.jl")
+using .DataTemplates
+export DataTemplate, loaddatatemplate
+
+end # module CrystFEL
diff --git a/julia/CrystFEL/src/datatemplates.jl b/julia/CrystFEL/src/datatemplates.jl
new file mode 100644
index 00000000..1357acb6
--- /dev/null
+++ b/julia/CrystFEL/src/datatemplates.jl
@@ -0,0 +1,29 @@
+module DataTemplates
+
+export DataTemplate, loaddatatemplate
+
+mutable struct InternalDataTemplate end
+
+mutable struct DataTemplate
+    internalptr::Ptr{InternalDataTemplate}
+end
+
+function loaddatatemplate(filename::AbstractString)
+
+    out = ccall((:data_template_new_from_file, :libcrystfel),
+                Ptr{InternalDataTemplate}, (Cstring,), filename)
+    if out == C_NULL
+        throw(OutOfMemoryError())
+    end
+
+    dt = DataTemplate(out)
+
+    finalizer(dt) do x
+        ccall((:data_template_free, :libcrystfel),
+              Cvoid, (Ptr{InternalDataTemplate},), x.internalptr)
+    end
+
+    return dt
+end
+
+end