{-# LINE 1 "src/Menoh/Base.hsc" #-} {-# OPTIONS_GHC -Wall #-} {-# LANGUAGE ForeignFunctionInterface #-} module Menoh.Base where import Data.Int import Foreign import Foreign.C type MenohDType = Int32 {-# LINE 13 "src/Menoh/Base.hsc" #-} type MenohErrorCode = Int32 {-# LINE 15 "src/Menoh/Base.hsc" #-} menohDtypeFloat :: MenohDType menohDtypeFloat = 0 {-# LINE 17 "src/Menoh/Base.hsc" #-} menohErrorCodeSuccess :: MenohErrorCode menohErrorCodeSuccess = 0 menohErrorCodeStdError :: MenohErrorCode menohErrorCodeStdError = 1 menohErrorCodeUnknownError :: MenohErrorCode menohErrorCodeUnknownError = 2 menohErrorCodeInvalidFilename :: MenohErrorCode menohErrorCodeInvalidFilename = 3 menohErrorCodeOnnxParseError :: MenohErrorCode menohErrorCodeOnnxParseError = 5 menohErrorCodeInvalidDtype :: MenohErrorCode menohErrorCodeInvalidDtype = 6 menohErrorCodeInvalidAttributeType :: MenohErrorCode menohErrorCodeInvalidAttributeType = 7 menohErrorCodeUnsupportedOperatorAttribute :: MenohErrorCode menohErrorCodeUnsupportedOperatorAttribute = 8 menohErrorCodeDimensionMismatch :: MenohErrorCode menohErrorCodeDimensionMismatch = 9 menohErrorCodeVariableNotFound :: MenohErrorCode menohErrorCodeVariableNotFound = 10 menohErrorCodeIndexOutOfRange :: MenohErrorCode menohErrorCodeIndexOutOfRange = 11 menohErrorCodeJsonParseError :: MenohErrorCode menohErrorCodeJsonParseError = 12 menohErrorCodeInvalidBackendName :: MenohErrorCode menohErrorCodeInvalidBackendName = 13 menohErrorCodeUnsupportedOperator :: MenohErrorCode menohErrorCodeUnsupportedOperator = 14 menohErrorCodeFailedToConfigureOperator :: MenohErrorCode menohErrorCodeFailedToConfigureOperator = 15 menohErrorCodeBackendError :: MenohErrorCode menohErrorCodeBackendError = 16 menohErrorCodeSameNamedVariableAlreadyExist :: MenohErrorCode menohErrorCodeSameNamedVariableAlreadyExist = 17 {-# LINE 36 "src/Menoh/Base.hsc" #-} foreign import ccall unsafe menoh_get_last_error_message :: IO CString data MenohModelData type MenohModelDataHandle = Ptr MenohModelData foreign import ccall safe menoh_make_model_data_from_onnx :: CString -> Ptr MenohModelDataHandle -> IO MenohErrorCode foreign import ccall "&menoh_delete_model_data" menoh_delete_model_data_funptr :: FunPtr (MenohModelDataHandle -> IO ()) data MenohVariableProfileTableBuilder type MenohVariableProfileTableBuilderHandle = Ptr MenohVariableProfileTableBuilder foreign import ccall unsafe menoh_make_variable_profile_table_builder :: Ptr MenohVariableProfileTableBuilderHandle -> IO MenohErrorCode foreign import ccall "&menoh_delete_variable_profile_table_builder" menoh_delete_variable_profile_table_builder_funptr :: FunPtr (MenohVariableProfileTableBuilderHandle -> IO ()) foreign import ccall unsafe menoh_variable_profile_table_builder_add_input_profile_dims_2 :: MenohVariableProfileTableBuilderHandle -> CString -> MenohDType -> Int32 -> Int32 -> IO MenohErrorCode foreign import ccall unsafe menoh_variable_profile_table_builder_add_input_profile_dims_4 :: MenohVariableProfileTableBuilderHandle -> CString -> MenohDType -> Int32 -> Int32 -> Int32 -> Int32 -> IO MenohErrorCode foreign import ccall unsafe menoh_variable_profile_table_builder_add_output_profile :: MenohVariableProfileTableBuilderHandle -> CString -> MenohDType -> IO MenohErrorCode data MenohVariableProfileTable type MenohVariableProfileTableHandle = Ptr MenohVariableProfileTable foreign import ccall safe menoh_build_variable_profile_table :: MenohVariableProfileTableBuilderHandle -> MenohModelDataHandle -> Ptr MenohVariableProfileTableHandle -> IO MenohErrorCode foreign import ccall "&menoh_delete_variable_profile_table" menoh_delete_variable_profile_table_funptr :: FunPtr (MenohVariableProfileTableHandle -> IO ()) foreign import ccall unsafe menoh_variable_profile_table_get_dtype :: MenohVariableProfileTableHandle -> CString -> Ptr MenohDType -> IO MenohErrorCode foreign import ccall unsafe menoh_variable_profile_table_get_dims_size :: MenohVariableProfileTableHandle -> CString -> Ptr Int32 -> IO MenohErrorCode foreign import ccall unsafe menoh_variable_profile_table_get_dims_at :: MenohVariableProfileTableHandle -> CString -> Int32 -> Ptr Int32 -> IO MenohErrorCode foreign import ccall safe menoh_model_data_optimize :: MenohModelDataHandle -> MenohVariableProfileTableHandle -> IO MenohErrorCode data MenohModelBuilder type MenohModelBuilderHandle = Ptr MenohModelBuilder foreign import ccall unsafe menoh_make_model_builder :: MenohVariableProfileTableHandle -> Ptr MenohModelBuilderHandle -> IO MenohErrorCode foreign import ccall "&menoh_delete_model_builder" menoh_delete_model_builder_funptr :: FunPtr (MenohModelBuilderHandle -> IO ()) foreign import ccall unsafe menoh_model_builder_attach_external_buffer :: MenohModelBuilderHandle -> CString -> Ptr a -> IO MenohErrorCode data MenohModel type MenohModelHandle = Ptr MenohModel foreign import ccall safe menoh_build_model :: MenohModelBuilderHandle -> MenohModelDataHandle -> CString -> CString -> Ptr MenohModelHandle -> IO MenohErrorCode foreign import ccall "&menoh_delete_model" menoh_delete_model_funptr :: FunPtr (MenohModelHandle -> IO ()) foreign import ccall unsafe menoh_model_get_variable_buffer_handle :: MenohModelHandle -> CString -> Ptr (Ptr a) -> IO MenohErrorCode foreign import ccall unsafe menoh_model_get_variable_dtype :: MenohModelHandle -> CString -> Ptr MenohDType -> IO MenohErrorCode foreign import ccall unsafe menoh_model_get_variable_dims_size :: MenohModelHandle -> CString -> Ptr Int32 -> IO MenohErrorCode foreign import ccall unsafe menoh_model_get_variable_dims_at :: MenohModelHandle -> CString -> Int32 -> Ptr Int32 -> IO MenohErrorCode foreign import ccall safe menoh_model_run :: MenohModelHandle -> IO MenohErrorCode menoh_major_version :: Int menoh_major_version = 0 {-# LINE 130 "src/Menoh/Base.hsc" #-} menoh_minor_version :: Int menoh_minor_version = 5 {-# LINE 133 "src/Menoh/Base.hsc" #-} menoh_patch_version :: Int menoh_patch_version = 1 {-# LINE 136 "src/Menoh/Base.hsc" #-} menoh_version_string :: String menoh_version_string = "0.5.1" {-# LINE 139 "src/Menoh/Base.hsc" #-}