module.h

Idź do dokumentacji tego pliku.

#define NEED_PERL_H
#define HAVE_CONFIG_H

#undef VERSION

#include "ekg2.h"

#undef _
#include "../perl_ekg.h"

#ifdef bool
#define HAS_BOOL
#endif

#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>

#include "../perl_bless.h"

#define ekg2_boot(x) { \
        extern void boot_Ekg2__##x(pTHX_ CV *cv); \
        ekg2_callXS(boot_Ekg2__##x, cv, mark); \
        }
    
typedef session_t   *Ekg2__Session;
typedef variable_t  *Ekg2__Variable;
typedef command_t   *Ekg2__Command;
typedef window_t    *Ekg2__Window;
typedef plugin_t    *Ekg2__Plugin;
typedef watch_t     *Ekg2__Watch;

typedef ekg_timer_t Ekg2__Timer;

typedef userlist_t  *Ekg2__User;

typedef userlist_t  *Ekg2__Userlist;

typedef session_param_t *Ekg2__Session__Param;
typedef script_t    *Ekg2__Script;

script_var_t *perl_variable_add(char *var, int type, char *value, char *handler);
void *perl_watch_add(int fd, int type, void *handler, void *data);
void *perl_handler_bind(char *query_name, char *handler);
void *perl_command_bind(char *command, char *params, char *poss, char *handler);
void *perl_plugin_register(char *name, int type, void *formatinit);
script_timer_t *perl_timer_bind(int freq, char *handler);
int perl_timer_unbind(script_timer_t *stimer);
void ekg2_callXS(void (*subaddr)(pTHX_ CV* cv), CV *cv, SV **mark);

void *Ekg2_ref_object(SV *o);