Dokumentacja pliku plugins/perl/perl_core.c

#include <stdarg.h>
#include <ekg/debug.h>
#include <ekg/dynstuff.h>
#include <ekg/scripts.h>
#include <ekg/windows.h>
#include <ekg/xmalloc.h>
#include <ekg/queries.h>
#include "perl_ekg.h"
#include "perl_bless.h"
#include "perl_core.h"
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>

Definicje
#define	_XOPEN_SOURCE   600
#define	__EXTENSIONS__
#define	PERL_RESTORE_ARGS   1
Funkcje
void	boot_DynaLoader (pTHX_ CV *cv)
int	perl_variable_changed (script_t *scr, script_var_t *scr_var)
int	perl_timers (script_t *scr, script_timer_t *time, int type)
int	perl_commands (script_t *scr, script_command_t *comm, char **params)
int	perl_watches (script_t *scr, script_watch_t *scr_wat, int type, int fd, long int watch)
int	perl_query (script_t *scr, script_query_t *scr_que, void *args[])
int	perl_unload (script_t *scr)
int	perl_load (script_t *scr)
static void	xs_init (pTHX)
int	perl_initialize ()
void	ekg2_callXS (void(*subaddr)(pTHX_ CV *cv), CV *cv, SV **mark)
static int	magic_free_object (pTHX_ SV *sv, MAGIC *mg)
SV *	create_sv_ptr (void *object)
void *	Ekg2_ref_object (SV *o)
int	perl_bind_free (script_t *scr, void *data, int type, void *priv_data,...)
script_t *	perl_caller ()
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)
script_var_t *	perl_variable_add (char *var, 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)
int	perl_finalize ()
Zmienne
static const char *	ekg_core_code = "}\n"
PerlInterpreter *	my_perl
static MGVTBL	vtbl_free_object = { NULL, NULL, NULL, NULL, magic_free_object }

---

Dokumentacja definicji

#define __EXTENSIONS__

#define _XOPEN_SOURCE   600

#define PERL_RESTORE_ARGS   1

---

Dokumentacja funkcji

void boot_DynaLoader

(

pTHX_ CV *

cv

)

SV* create_sv_ptr

(

void *

object

)

void ekg2_callXS	(	void(*)(pTHX_ CV *cv)	subaddr,
		CV *	cv,
		SV **	mark
	)

void* Ekg2_ref_object

(

SV *

o

)

static int magic_free_object	(	pTHX_ SV *	sv,
		MAGIC *	mg
	)			[static]

int perl_bind_free	(	script_t *	scr,
		void *	data,
		int	type,
		void *	priv_data,
			...
	)

script_t* perl_caller

(

)

void* perl_command_bind	(	char *	command,
		char *	params,
		char *	poss,
		char *	handler
	)

int perl_commands	(	script_t *	scr,
		script_command_t *	comm,
		char **	params
	)

int perl_finalize

(

)

void* perl_handler_bind	(	char *	query_name,
		char *	handler
	)

int perl_initialize

(

)

int perl_load

(

script_t *

scr

)

void* perl_plugin_register	(	char *	name,
		int	type,
		void *	formatinit
	)

int perl_query	(	script_t *	scr,
		script_query_t *	scr_que,
		void *	args[]
	)

script_timer_t* perl_timer_bind	(	int	freq,
		char *	handler
	)

int perl_timer_unbind

(

script_timer_t *

stimer

)

int perl_timers	(	script_t *	scr,
		script_timer_t *	time,
		int	type
	)

int perl_unload

(

script_t *

scr

)

script_var_t* perl_variable_add	(	char *	var,
		char *	value,
		char *	handler
	)

int perl_variable_changed	(	script_t *	scr,
		script_var_t *	scr_var
	)

void* perl_watch_add	(	int	fd,
		int	type,
		void *	handler,
		void *	data
	)

int perl_watches	(	script_t *	scr,
		script_watch_t *	scr_wat,
		int	type,
		int	fd,
		long int	watch
	)

static void xs_init

(

pTHX

)

[static]

---

Dokumentacja zmiennych

const char* ekg_core_code = "}\n" [static]

PerlInterpreter* my_perl

MGVTBL vtbl_free_object = { NULL, NULL, NULL, NULL, magic_free_object } [static]