mirror of
https://github.com/EQEmu/Server.git
synced 2026-09-05 15:36:38 +00:00
[Quest API] Use binding library for perl apis (#2216)
* Add perlbind library * Convert perl apis to perlbind
This commit is contained in:
+6
-15
@@ -18,22 +18,13 @@ Eglin
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
||||
//headers from the Perl distribution
|
||||
#include <EXTERN.h>
|
||||
#define WIN32IO_IS_STDIO
|
||||
// this option disables distinct int/float/string function argument types for
|
||||
// backwards compatibility with current perl api usage
|
||||
// e.g. quest::settimer(0, 1) using number for timer name instead of string
|
||||
#define PERLBIND_NO_STRICT_SCALAR_TYPES
|
||||
#include <perlbind/perlbind.h>
|
||||
namespace perl = perlbind;
|
||||
|
||||
#ifndef WIN32
|
||||
extern "C" { //the perl headers dont do this for us...
|
||||
#endif
|
||||
#if _MSC_VER
|
||||
#define __inline__ __inline
|
||||
#define __builtin_expect
|
||||
#endif
|
||||
#include <perl.h>
|
||||
#include <XSUB.h>
|
||||
#ifndef WIN32
|
||||
};
|
||||
#endif
|
||||
#ifdef WIN32
|
||||
#define snprintf _snprintf
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user