From 234d21167e5ca45b8a2665df52dcf0cdb48f3dc0 Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Mon, 17 Mar 2025 01:01:51 +0000
Subject: (WIP) Camera service

---
 hsm-cam/Hsm/Cam.hs      |  3 +++
 hsm-cam/Hsm/Cam/Lib.cpp | 11 +++++++++++
 hsm-cam/Hsm/Cam/Lib.hsc | 20 ++++++++++++++++++++
 hsm-cam/hsm-cam.cabal   | 22 ++++++++++++++++++++++
 4 files changed, 56 insertions(+)
 create mode 100644 hsm-cam/Hsm/Cam.hs
 create mode 100644 hsm-cam/Hsm/Cam/Lib.cpp
 create mode 100644 hsm-cam/Hsm/Cam/Lib.hsc
 create mode 100644 hsm-cam/hsm-cam.cabal

(limited to 'hsm-cam')

diff --git a/hsm-cam/Hsm/Cam.hs b/hsm-cam/Hsm/Cam.hs
new file mode 100644
index 0000000..ef99e82
--- /dev/null
+++ b/hsm-cam/Hsm/Cam.hs
@@ -0,0 +1,3 @@
+module Hsm.Cam
+  ( 
+  ) where
diff --git a/hsm-cam/Hsm/Cam/Lib.cpp b/hsm-cam/Hsm/Cam/Lib.cpp
new file mode 100644
index 0000000..5eda6d7
--- /dev/null
+++ b/hsm-cam/Hsm/Cam/Lib.cpp
@@ -0,0 +1,11 @@
+#include <string>
+
+#include "Lib_stub.h"
+
+void log_msg(const std::string &str) {
+    logMsg((HsPtr)str.c_str());
+}
+
+extern "C" void some_c_wrapper() {
+    log_msg("Hello from C++!");
+}
diff --git a/hsm-cam/Hsm/Cam/Lib.hsc b/hsm-cam/Hsm/Cam/Lib.hsc
new file mode 100644
index 0000000..4f6dadf
--- /dev/null
+++ b/hsm-cam/Hsm/Cam/Lib.hsc
@@ -0,0 +1,20 @@
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Hsm.Cam.Lib
+  ( someCWrapper
+  ) where
+
+import Control.Monad ((>=>))
+import Data.Text (pack)
+import Foreign.C.String (CString, peekCString)
+import Hsm.Log qualified as L
+
+foreign export ccall logMsg :: CString -> IO ()
+
+logMsg :: CString -> IO ()
+logMsg = peekCString >=> L.logMsg ["cam", "lib"] . pack
+
+foreign import ccall safe "Test.h some_c_wrapper"
+  someCWrapper :: IO ()
diff --git a/hsm-cam/hsm-cam.cabal b/hsm-cam/hsm-cam.cabal
new file mode 100644
index 0000000..1f732e9
--- /dev/null
+++ b/hsm-cam/hsm-cam.cabal
@@ -0,0 +1,22 @@
+cabal-version:      3.4
+author:             Paul Oliver
+build-type:         Simple
+maintainer:         contact@pauloliver.dev
+name:               hsm-cam
+version:            0.1.0.0
+extra-source-files: Hsm/Cam/*.cpp
+
+library
+  build-depends:
+    , base
+    , hsm-log
+    , text
+
+  exposed-modules:  Hsm.Cam
+  other-modules:    Hsm.Cam.Lib
+  include-dirs:     Hsm/Cam
+  cxx-sources:      Hsm/Cam/Lib.cpp
+  cxx-options:      -Wall -Wextra -O2
+  ghc-options:      -Wall -Wunused-packages
+  extra-libraries:  stdc++
+  default-language: GHC2021
-- 
cgit v1.2.1