New preference data array structure in Ada, currently won't link

1 files changed, 21 insertions, 0 deletions

diff --git a/src/testmain.hs b/src/testmain.hs
new file mode 100644
index 0000000..3f340c2
--- /dev/null
+++ b/src/testmain.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+
+
+import qualified Storage as Store
+
+
+
+foreign import ccall adainit :: IO Int
+foreign import ccall adafinal :: IO Int
+
+
+
+main = do
+    adainit
+    s <- Store.createStorage 10 5
+    Store.pokePref s 1 2 3
+    r <- Store.peekPref s 1 2 3
+    putStrLn (show r)
+    adafinal
+