change python config, add jupyter and ein
This commit is contained in:
63
lisp/zmq/src/context.c
Normal file
63
lisp/zmq/src/context.c
Normal file
@@ -0,0 +1,63 @@
|
||||
#include "context.h"
|
||||
|
||||
EZMQ_DOC(ezmq_context, "", "Create a new context.");
|
||||
emacs_value
|
||||
ezmq_context(void)
|
||||
{
|
||||
void *ctx = zmq_ctx_new();
|
||||
EZMQ_CHECK_NULL_ERROR(ctx);
|
||||
ezmq_debug("ezmq_context()\n");
|
||||
return ezmq_new_obj_ptr(ezmq_new_obj(EZMQ_CONTEXT, ctx));
|
||||
}
|
||||
|
||||
EZMQ_DOC(ezmq_ctx_set, "CONTEXT OPTION VALUE", "Set a CONTEXT OPTION to VALUE.");
|
||||
emacs_value
|
||||
ezmq_ctx_set(emacs_value econtext, emacs_value eoption, emacs_value evalue)
|
||||
{
|
||||
EZMQ_EXTRACT_OBJ(context, EZMQ_CONTEXT, econtext);
|
||||
EZMQ_EXTRACT_INT(option, eoption);
|
||||
if(option == ZMQ_BLOCKY || option == ZMQ_IPV6)
|
||||
EZMQ_CHECK_ERROR(zmq_ctx_set(context->obj, option, (int)!NILP(evalue)));
|
||||
else {
|
||||
EZMQ_EXTRACT_INT(value, evalue);
|
||||
EZMQ_CHECK_ERROR(zmq_ctx_set(context->obj, option, value));
|
||||
}
|
||||
return Qnil;
|
||||
}
|
||||
|
||||
EZMQ_DOC(ezmq_ctx_get, "CONTEXT OPTION", "Get a CONTEXT OPTION.");
|
||||
emacs_value
|
||||
ezmq_ctx_get(emacs_value econtext, emacs_value eoption)
|
||||
{
|
||||
emacs_value retval = Qnil;
|
||||
EZMQ_EXTRACT_OBJ(context, EZMQ_CONTEXT, econtext);
|
||||
EZMQ_EXTRACT_INT(option, eoption);
|
||||
|
||||
int val = zmq_ctx_get(context->obj, option);
|
||||
EZMQ_CHECK_ERROR(val);
|
||||
if(option == ZMQ_BLOCKY || option == ZMQ_IPV6) {
|
||||
if(val) retval = Qt;
|
||||
}
|
||||
else
|
||||
retval = INT(val);
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
||||
EZMQ_DOC(ezmq_ctx_shutdown, "CONTEXT", "Shutdown CONTEXT.");
|
||||
emacs_value
|
||||
ezmq_ctx_shutdown(emacs_value econtext)
|
||||
{
|
||||
EZMQ_EXTRACT_OBJ(context, EZMQ_CONTEXT, econtext);
|
||||
EZMQ_CHECK_ERROR(zmq_ctx_shutdown(context->obj));
|
||||
return Qnil;
|
||||
}
|
||||
|
||||
EZMQ_DOC(ezmq_ctx_term, "CONTEXT", "Terminate CONTEXT.");
|
||||
emacs_value
|
||||
ezmq_ctx_term(emacs_value econtext)
|
||||
{
|
||||
EZMQ_EXTRACT_OBJ(context, EZMQ_CONTEXT, econtext);
|
||||
EZMQ_CHECK_ERROR(zmq_ctx_term(context->obj));
|
||||
return Qnil;
|
||||
}
|
||||
Reference in New Issue
Block a user