Mercurial > pidgin
view libpurple/plugins/perl/common/Core.xs @ 16739:39c7bb133a9f
Remove the const-c and const-xs stuff and replace it with real constants
exposed to perl.
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 01 May 2007 02:34:22 +0000 |
parents | 2f8274ce570a |
children | e3f30a73a793 |
line wrap: on
line source
#include "module.h" MODULE = Purple::Core PACKAGE = Purple::Core PREFIX = purple_core_ PROTOTYPES: ENABLE gboolean purple_core_quit_cb() PPCODE: /* The argument to purple_core_quit_cb is not used, * so there's little point in requiring it on the * Perl side. */ RETVAL = purple_core_quit_cb(NULL); ST(0) = boolSV(RETVAL); sv_2mortal(ST(0)); const char * purple_core_get_version() const char * purple_core_get_ui() void purple_core_set_ui_ops(ops) Purple::Core::UiOps ops Purple::Core::UiOps purple_core_get_ui_ops()