mirror of
https://github.com/irssi/irssi.git
synced 2026-08-16 15:12:11 +02:00
41 lines
681 B
C
41 lines
681 B
C
|
#if defined(__cplusplus) && !defined(PERL_OBJECT)
|
||
|
|
#define is_cplusplus
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef is_cplusplus
|
||
|
|
extern "C" {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include <EXTERN.h>
|
||
|
|
#include <perl.h>
|
||
|
|
#ifdef PERL_OBJECT
|
||
|
|
#define NO_XSLOCKS
|
||
|
|
#include <XSUB.h>
|
||
|
|
#include "win32iop.h"
|
||
|
|
#include <fcntl.h>
|
||
|
|
#include <perlhost.h>
|
||
|
|
#endif
|
||
|
|
#ifdef is_cplusplus
|
||
|
|
}
|
||
|
|
# ifndef EXTERN_C
|
||
|
|
# define EXTERN_C extern "C"
|
||
|
|
# endif
|
||
|
|
#else
|
||
|
|
# ifndef EXTERN_C
|
||
|
|
# define EXTERN_C extern
|
||
|
|
# endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
EXTERN_C void xs_init _((void));
|
||
|
|
|
||
|
|
EXTERN_C void boot_DynaLoader _((CV* cv));
|
||
|
|
|
||
|
|
EXTERN_C void
|
||
|
|
xs_init(void)
|
||
|
|
{
|
||
|
|
char *file = __FILE__;
|
||
|
|
dXSUB_SYS;
|
||
|
|
|
||
|
|
/* DynaLoader is a special case */
|
||
|
|
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
|
||
|
|
}
|