From 62fce45039b0b8ab3d9d42b69a000fec00e1d35e Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Fri, 2 Jan 2026 05:53:10 +0000 Subject: Removes hsm-cam --- hsm-cam/Hsm/Cam/FFI.hsc | 82 ------------------------------------------------- 1 file changed, 82 deletions(-) delete mode 100644 hsm-cam/Hsm/Cam/FFI.hsc (limited to 'hsm-cam/Hsm/Cam/FFI.hsc') diff --git a/hsm-cam/Hsm/Cam/FFI.hsc b/hsm-cam/Hsm/Cam/FFI.hsc deleted file mode 100644 index 6c5dd3d..0000000 --- a/hsm-cam/Hsm/Cam/FFI.hsc +++ /dev/null @@ -1,82 +0,0 @@ -{-# LANGUAGE CApiFFI #-} - -module Hsm.Cam.FFI - ( frameWidth - , frameHeight - , makeLogger - , registerLogger - , makeRequestCallback - , registerRequestCallback - , startCameraManager - , stopCameraManager - , acquireCamera - , releaseCamera - , allocateFrameBuffer - , freeFrameBuffer - , startCamera - , stopCamera - , createRequest - , getDmaBufferFd - , requestFrame - ) -where - -import Foreign.C.String (CString) -import Foreign.C.Types (CInt (CInt)) -import Foreign.Ptr (FunPtr) -import System.Posix.Types (Fd (Fd)) - -type Logger = Int -> CString -> IO () - -type RequestCallback = IO () - -foreign import capi safe "Cam.hpp value FRAME_WIDTH" - frameWidth :: Int - -foreign import capi safe "Cam.hpp value FRAME_HEIGHT" - frameHeight :: Int - -foreign import ccall safe "wrapper" - makeLogger :: Logger -> IO (FunPtr Logger) - -foreign import capi safe "Cam.hpp register_logger" - registerLogger :: FunPtr Logger -> IO () - -foreign import ccall safe "wrapper" - makeRequestCallback :: RequestCallback -> IO (FunPtr RequestCallback) - -foreign import capi safe "Cam.hpp register_request_callback" - registerRequestCallback :: FunPtr RequestCallback -> IO () - -foreign import capi safe "Cam.hpp start_camera_manager" - startCameraManager :: IO () - -foreign import capi safe "Cam.hpp stop_camera_manager" - stopCameraManager :: IO () - -foreign import capi safe "Cam.hpp acquire_camera" - acquireCamera :: IO () - -foreign import capi safe "Cam.hpp release_camera" - releaseCamera :: IO () - -foreign import capi safe "Cam.hpp allocate_frame_buffer" - allocateFrameBuffer :: IO () - -foreign import capi safe "Cam.hpp free_frame_buffer" - freeFrameBuffer :: IO () - -foreign import capi safe "Cam.hpp start_camera" - startCamera :: IO () - -foreign import capi safe "Cam.hpp stop_camera" - stopCamera :: IO () - -foreign import capi safe "Cam.hpp create_request" - createRequest :: IO () - -foreign import capi safe "Cam.hpp get_dma_buffer_fd" - getDmaBufferFd :: IO Fd - -foreign import capi safe "Cam.hpp request_frame" - requestFrame :: IO () -- cgit v1.2.1