IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use 8 byte characters, as encoding is handled elsewhere

Browse Source
This commit is contained in:
Evgeny Poberezkin 2022-02-04 08:15:25 +00:00
parent 08dd92b726
commit d07ce0b8f4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Simplex/Chat/Mobile.hs
View File

@ -40,18 +40,18 @@ foreign export ccall "chat_recv_msg" cChatRecvMsg :: StablePtr ChatController ->
-- | creates or connects to chat store -- | creates or connects to chat store
cChatInitStore :: CString -> IO (StablePtr ChatStore) cChatInitStore :: CString -> IO (StablePtr ChatStore)
cChatInitStore fp = peekCString fp >>= chatInitStore >>= newStablePtr cChatInitStore fp = peekCAString fp >>= chatInitStore >>= newStablePtr
-- | returns JSON in the form `{"user": <user object>}` or `{}` in case there is no active user (to show dialog to enter displayName/fullName) -- | returns JSON in the form `{"user": <user object>}` or `{}` in case there is no active user (to show dialog to enter displayName/fullName)
cChatGetUser :: StablePtr ChatStore -> IO CJSONString cChatGetUser :: StablePtr ChatStore -> IO CJSONString
cChatGetUser cc = deRefStablePtr cc >>= chatGetUser >>= newCString cChatGetUser cc = deRefStablePtr cc >>= chatGetUser >>= newCAString
-- | accepts Profile JSON, returns JSON `{"user": <user object>}` or `{"error": "<error>"}` -- | accepts Profile JSON, returns JSON `{"user": <user object>}` or `{"error": "<error>"}`
cChatCreateUser :: StablePtr ChatStore -> CJSONString -> IO CJSONString cChatCreateUser :: StablePtr ChatStore -> CJSONString -> IO CJSONString
cChatCreateUser cPtr profileCJson = do cChatCreateUser cPtr profileCJson = do
c <- deRefStablePtr cPtr c <- deRefStablePtr cPtr
p <- peekCString profileCJson p <- peekCAString profileCJson
newCString =<< chatCreateUser c p newCAString =<< chatCreateUser c p
-- | this function starts chat - it cannot be started during initialization right now, as it cannot work without user (to be fixed later) -- | this function starts chat - it cannot be started during initialization right now, as it cannot work without user (to be fixed later)
cChatStart :: StablePtr ChatStore -> IO (StablePtr ChatController) cChatStart :: StablePtr ChatStore -> IO (StablePtr ChatController)
@ -61,12 +61,12 @@ cChatStart st = deRefStablePtr st >>= chatStart >>= newStablePtr
cChatSendCmd :: StablePtr ChatController -> CString -> IO CJSONString cChatSendCmd :: StablePtr ChatController -> CString -> IO CJSONString
cChatSendCmd cPtr cCmd = do cChatSendCmd cPtr cCmd = do
c <- deRefStablePtr cPtr c <- deRefStablePtr cPtr
cmd <- peekCString cCmd cmd <- peekCAString cCmd
newCString =<< chatSendCmd c cmd newCAString =<< chatSendCmd c cmd
-- | receive message from chat (blocking) -- | receive message from chat (blocking)
cChatRecvMsg :: StablePtr ChatController -> IO CJSONString cChatRecvMsg :: StablePtr ChatController -> IO CJSONString
cChatRecvMsg cc = deRefStablePtr cc >>= chatRecvMsg >>= newCString cChatRecvMsg cc = deRefStablePtr cc >>= chatRecvMsg >>= newCAString
mobileChatOpts :: ChatOpts mobileChatOpts :: ChatOpts
mobileChatOpts = mobileChatOpts =