gpointer paste_buffer_add_remove_cb(ObjectListCallbackFunc_t func, gpointer data) { if (!_paste_buffer) _paste_buffer = make_object_list(); return object_list_callback_add(&_paste_buffer->remove_cb, func, data); }
/** * A wrapper for rdbus_call_method that makes it easier to export our function * to Scheme. */ Scheme_Object * pardbus_call_method (int argc, Scheme_Object *argv[]) { // Verify that we have the appropriate number of arguments. if (argc < 2) { scheme_signal_error ("Call method needs at least two parameters."); return NULL; } // if there are insufficiently many arguments available. // rdbus_call_method does the heavy lifting // Hack! Right now, we are going to assume zeroary procedures return rdbus_call_method (SCHEME_INT_VAL (argv[0]), argv[1], make_object_list (argc-2, argv+2)); } // pardbus_call_method