mirror of
https://github.com/EQEmu/Server.git
synced 2026-04-02 20:42:28 +00:00
7ab909ee47
- License was intended to be GPLv3 per earlier commit of GPLv3 LICENSE FILE - This is confirmed by the inclusion of libraries that are incompatible with GPLv2 - This is also confirmed by KLS and the agreement of KLS's predecessors - Added GPLv3 license headers to the compilable source files - Removed Folly licensing in strings.h since the string functions do not match the Folly functions and are standard functions - this must have been left over from previous implementations - Removed individual contributor license headers since the project has been under the "developer" mantle for many years - Removed comments on files that were previously automatically generated since they've been manually modified multiple times and there are no automatic scripts referencing them (removed in 2023)
170 lines
3.8 KiB
C++
170 lines
3.8 KiB
C++
/* EQEmu: EQEmulator
|
|
|
|
Copyright (C) 2001-2026 EQEmu Development Team
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
/*
|
|
Embperl.h
|
|
---------------
|
|
eqemu perl wrapper
|
|
Eglin
|
|
*/
|
|
|
|
#pragma once
|
|
|
|
#ifdef EMBPERL
|
|
|
|
#include "zone_config.h"
|
|
|
|
#include "perlbind/perlbind.h"
|
|
#include <cstdio>
|
|
#include <cstring>
|
|
#include <map>
|
|
#include <string>
|
|
#include <vector>
|
|
|
|
namespace perl = perlbind;
|
|
|
|
#undef connect
|
|
#undef bind
|
|
#undef Null
|
|
|
|
#ifdef WIN32
|
|
#define snprintf _snprintf
|
|
#endif
|
|
|
|
//perl defines these macros and dosent clean them up, lazy bastards. -- I hate them too!
|
|
#ifdef Copy
|
|
#undef Copy
|
|
#endif
|
|
|
|
#ifdef list
|
|
#undef list
|
|
#endif
|
|
|
|
#ifdef write
|
|
#undef write
|
|
#endif
|
|
|
|
#ifdef bool
|
|
#undef bool
|
|
#endif
|
|
|
|
#ifdef Zero
|
|
#undef Zero
|
|
#endif
|
|
//These need to be cleaned up on FreeBSD
|
|
|
|
#ifdef __FreeBSD__
|
|
#ifdef do_open
|
|
#undef do_open
|
|
#endif
|
|
|
|
#ifdef do_close
|
|
#undef do_close
|
|
#endif
|
|
#endif
|
|
|
|
//so embedded scripts can use xs extensions (ala 'use socket;')
|
|
EXTERN_C void boot_DynaLoader(pTHX_ CV* cv);
|
|
EXTERN_C void xs_init(pTHX);
|
|
|
|
extern const ZoneConfig *Config;
|
|
class Embperl
|
|
{
|
|
private:
|
|
//if we fail inside a script evaluation, this will hold the croak msg (not much help if we die during construction, but that's our own fault)
|
|
mutable std::string errmsg;
|
|
|
|
//install a perl func
|
|
void init_eval_file(void);
|
|
|
|
protected:
|
|
//the embedded interpreter
|
|
PerlInterpreter * my_perl;
|
|
|
|
void DoInit();
|
|
|
|
public:
|
|
Embperl(void); //This can throw errors! Buyer beware
|
|
~Embperl(void);
|
|
|
|
void Reinit();
|
|
|
|
//evaluate an expression. throws string errors on fail
|
|
int eval(const char* code);
|
|
//execute a subroutine. throws lasterr on failure
|
|
int dosub(const char* sub_name, const std::vector<std::string>* args = nullptr, int mode = G_SCALAR | G_EVAL);
|
|
|
|
//put an integer into a perl varable
|
|
void seti(const char* variable_name, int val) const
|
|
{
|
|
SV* t = get_sv(variable_name, true);
|
|
sv_setiv(t, val);
|
|
}
|
|
|
|
//put a real into a perl varable
|
|
void setd(const char* variable_name, float val) const
|
|
{
|
|
SV* t = get_sv(variable_name, true);
|
|
sv_setnv(t, val);
|
|
}
|
|
|
|
//put a string into a perl varable
|
|
void setstr(const char* variable_name, const char* val) const
|
|
{
|
|
SV* t = get_sv(variable_name, true);
|
|
sv_setpv(t, val);
|
|
}
|
|
|
|
// put a pointer into a blessed perl variable
|
|
void setptr(const char* variable_name, const char* class_name, void* val) const
|
|
{
|
|
SV* t = get_sv(variable_name, GV_ADD);
|
|
sv_setref_pv(t, class_name, val);
|
|
}
|
|
|
|
// put key-value pairs in hash
|
|
void sethash(const char* variable_name, std::map<std::string, std::string>& vals)
|
|
{
|
|
std::map<std::string, std::string>::iterator it;
|
|
|
|
// Get hash and clear it.
|
|
HV* hv = get_hv(variable_name, TRUE);
|
|
hv_clear(hv);
|
|
|
|
// Iterate through key-value pairs, storing them in hash
|
|
for (it = vals.begin(); it != vals.end(); ++it) {
|
|
int key_length = static_cast<int>(it->first.length());
|
|
|
|
SV* val = newSVpv(it->second.c_str(), it->second.length());
|
|
|
|
// If val was not added to hash, reset reference count
|
|
if (!hv_store(hv, it->first.c_str(), key_length, val, 0)) {
|
|
val->sv_refcnt = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
//loads a file and compiles it into our interpreter (assuming it hasn't already been read in)
|
|
//idea borrowed from perlembed
|
|
int eval_file(const char* package_name, const char* filename);
|
|
|
|
//check to see if a sub exists in package
|
|
bool SubExists(const char* package, const char* sub);
|
|
};
|
|
|
|
#endif // EMBPERL
|