This package contains an API in ATS for the hiredis package.
macdef REDIS_OK = $extval (int, "REDIS_OK")
macdef REDIS_ERR = $extval (int, "REDIS_ERR")
macdef
REDIS_REPLY_NIL = $extval (int, "REDIS_REPLY_NIL")
macdef
REDIS_REPLY_ARRAY = $extval (int, "REDIS_REPLY_ARRAY")
macdef
REDIS_REPLY_STRING = $extval (int, "REDIS_REPLY_STRING")
macdef
REDIS_REPLY_INTEGER = $extval (int, "REDIS_REPLY_INTEGER")
macdef
REDIS_REPLY_STATUS = $extval (int, "REDIS_REPLY_STATUS")
macdef
REDIS_REPLY_ERROR = $extval (int, "REDIS_REPLY_ERROR")
vtypedef redisReply (l:addr) = redisReply_vtype (l)
vtypedef redisReply = [l:addr] redisReply_vtype (l)
vtypedef redisReply0 = [l:agez] redisReply_vtype (l)
vtypedef redisReply1 = [l:addr | l > null] redisReply_vtype (l)
vtypedef redisReader (l:addr) = redisReader_vtype (l)
vtypedef redisReader = [l:addr] redisReader_vtype (l)
vtypedef redisReader0 = [l:agez] redisReader_vtype (l)
vtypedef redisReader1 = [l:addr | l > null] redisReader_vtype (l)
vtypedef redisContext (l:addr) = redisContext_vtype (l)
vtypedef redisContext = [l:addr] redisContext_vtype (l)
vtypedef redisContext0 = [l:agez] redisContext_vtype (l)
vtypedef redisContext1 = [l:addr | l > null] redisContext_vtype (l)
fun freeReplyObject (obj: redisReply0): void = "mac#%"
fun
redisReply_get_string (rep: !redisReply1): vStrptr1 = "mac#%"
fun
redisReply_get_integer (rep: !redisReply1): llint = "mac#%"
fun redisReply_get_array ( rep: !redisReply1, n: &size_t? >> size_t n ) : #[l:addr;n:nat] ( array_v (redisReply1, l, n) , array_v (redisReply1, l, n) -<lin,prf> void | ptr l ) = "mac#%" // end of [redisReply_get_array]
fun
redisReply_get_status (rep: !redisReply1): vStrptr1 = "mac#%"
fun
redisReply_get_error (rep: !redisReply1): vStrptr1 = "mac#%"
fun redisReply_get_type (rep: !redisReply1): int = "mac#%"
fun redisReply_get_strlen (rep: !redisReply1): int = "mac#%"
fun redisReply_get_strptr (rep: !redisReply1): ptr = "mac#%"
fun redisReaderCreate (): redisReader0 = "mac#%"
fun redisReaderCreate_exn (): redisReader1 = "mac#%"
fun redisReaderFree (rdr: redisReader0): void = "mac#%"
fun redisReaderFeed{n:int} ( rdr: !redisReader1 , buf: &(@[byte?][n]) >> @[byte][n], len: size_t n ) : int = "mac#%" // end of [redisReaderFeed]
fun redisReaderGetReply ( rdr: !redisReader1, reply: &ptr? >> redisReply0 ) : int(*err*) = "mac#%" // endfun
fun redisConnect
(ip: RD(string), port: int): redisContext0 = "mac#%"
fun redisConnect_exn
(ip: RD(string), port: int): redisContext1 = "mac#%"
fun redisConnectNonBlock
(ip: RD(string), port: int): redisContext0 = "mac#%"
fun redisConnectUnix
(path: RD(string)): redisContext0 = "mac#%"
fun redisConnectUnix_exn
(path: RD(string)): redisContext1 = "mac#%"
fun redisConnectUnixNonBlock
(path: RD(string)): redisContext0 = "mac#%"
fun redisFree (ctx: redisContext0): void = "mac#%"
fun redisGetReply ( ctx: !redisContext1, reply: &ptr? >> redisReply0 ) : int(*err*) = "mac#%" // endfun
This page is created with ATS by Hongwei Xi and also maintained by Hongwei Xi. |