mirror of
https://github.com/EQEmu/Server.git
synced 2026-04-02 16:32:26 +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)
284 lines
6.8 KiB
C++
284 lines
6.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/>.
|
|
*/
|
|
typedef const char Const_char;
|
|
|
|
#ifdef EMBPERL
|
|
#include "common/eqdb_res.h"
|
|
#include "common/useperl.h"
|
|
|
|
|
|
XS(XS_EQDBRes_num_rows); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_num_rows)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::num_rows(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
unsigned long RETVAL;
|
|
dXSTARG;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
RETVAL = THIS->num_rows();
|
|
XSprePUSH;
|
|
PUSHu((UV) RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_EQDBRes_num_fields); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_num_fields)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::num_fields(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
unsigned long RETVAL;
|
|
dXSTARG;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
RETVAL = THIS->num_fields();
|
|
XSprePUSH;
|
|
PUSHu((UV) RETVAL);
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_EQDBRes_DESTROY); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_DESTROY)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::DESTROY(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
|
|
if (SvROK(ST(0))) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not a reference");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
delete THIS;
|
|
}
|
|
XSRETURN_EMPTY;
|
|
}
|
|
|
|
XS(XS_EQDBRes_finish); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_finish)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::finish(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
THIS->finish();
|
|
}
|
|
XSRETURN_EMPTY;
|
|
}
|
|
|
|
XS(XS_EQDBRes_fetch_row_array); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_fetch_row_array)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::fetch_row_array(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
std::vector<std::string> RETVAL;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
RETVAL = THIS->fetch_row_array();
|
|
ST(0) = sv_newmortal();
|
|
{
|
|
U32 ix_RETVAL;
|
|
/* pop crap off the stack we dont really want */
|
|
POPs;
|
|
POPs;
|
|
/* grow the stack to the number of elements being returned */
|
|
EXTEND(SP, RETVAL.size());
|
|
for (ix_RETVAL = 0; ix_RETVAL < RETVAL.size(); ix_RETVAL++) {
|
|
const std::string &it = RETVAL[ix_RETVAL];
|
|
ST(ix_RETVAL) = sv_newmortal();
|
|
sv_setpvn(ST(ix_RETVAL), it.c_str(), it.length());
|
|
}
|
|
/* hackish, but im over it. The normal xsubpp return will be right below this */
|
|
XSRETURN(RETVAL.size());
|
|
}
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_EQDBRes_fetch_row_hash); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_fetch_row_hash)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::fetch_row_hash(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
std::map<std::string,std::string> RETVAL;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
RETVAL = THIS->fetch_row_hash();
|
|
ST(0) = sv_newmortal();
|
|
if (RETVAL.begin()!=RETVAL.end())
|
|
{
|
|
//NOTE: we are leaking the original ST(0) right now
|
|
HV *hv = newHV();
|
|
sv_2mortal((SV*)hv);
|
|
ST(0) = newRV((SV*)hv);
|
|
|
|
std::map<std::string,std::string>::const_iterator cur, end;
|
|
cur = RETVAL.begin();
|
|
end = RETVAL.end();
|
|
for(; cur != end; cur++) {
|
|
/* get the element from the hash, creating if needed (will be needed) */
|
|
SV**ele = hv_fetch(hv, cur->first.c_str(), cur->first.length(), TRUE);
|
|
if(ele == nullptr) {
|
|
Perl_croak(aTHX_ "Unable to create a hash element for RETVAL");
|
|
break;
|
|
}
|
|
/* put our string in the SV associated with this element in the hash */
|
|
sv_setpvn(*ele, cur->second.c_str(), cur->second.length());
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(XS_EQDBRes_fetch_lengths); /* prototype to pass -Wmissing-prototypes */
|
|
XS(XS_EQDBRes_fetch_lengths)
|
|
{
|
|
dXSARGS;
|
|
if (items != 1)
|
|
Perl_croak(aTHX_ "Usage: EQDBRes::fetch_lengths(THIS)");
|
|
{
|
|
EQDBRes * THIS;
|
|
unsigned long * RETVAL;
|
|
dXSTARG;
|
|
|
|
if (sv_derived_from(ST(0), "EQDBRes")) {
|
|
IV tmp = SvIV((SV*)SvRV(ST(0)));
|
|
THIS = INT2PTR(EQDBRes *,tmp);
|
|
}
|
|
else
|
|
Perl_croak(aTHX_ "THIS is not of type EQDBRes");
|
|
if(THIS == nullptr)
|
|
Perl_croak(aTHX_ "THIS is nullptr, avoiding crash.");
|
|
|
|
RETVAL = THIS->fetch_lengths();
|
|
XSprePUSH; PUSHp((char *)RETVAL, sizeof(*RETVAL));
|
|
}
|
|
XSRETURN(1);
|
|
}
|
|
|
|
XS(boot_EQDBRes); /* prototype to pass -Wmissing-prototypes */
|
|
XS(boot_EQDBRes)
|
|
{
|
|
dXSARGS;
|
|
char file[256];
|
|
strncpy(file, __FILE__, 256);
|
|
file[255] = 0;
|
|
|
|
if(items != 1)
|
|
fprintf(stderr, "boot_quest does not take any arguments.");
|
|
char buf[128];
|
|
|
|
//add the strcpy stuff to get rid of const warnings....
|
|
|
|
|
|
|
|
XS_VERSION_BOOTCHECK ;
|
|
|
|
newXSproto(strcpy(buf, "num_rows"), XS_EQDBRes_num_rows, file, "$");
|
|
newXSproto(strcpy(buf, "num_fields"), XS_EQDBRes_num_fields, file, "$");
|
|
newXSproto(strcpy(buf, "DESTROY"), XS_EQDBRes_DESTROY, file, "$");
|
|
newXSproto(strcpy(buf, "finish"), XS_EQDBRes_finish, file, "$");
|
|
newXSproto(strcpy(buf, "fetch_row_array"), XS_EQDBRes_fetch_row_array, file, "$");
|
|
newXSproto(strcpy(buf, "fetch_row_hash"), XS_EQDBRes_fetch_row_hash, file, "$");
|
|
newXSproto(strcpy(buf, "fetch_lengths"), XS_EQDBRes_fetch_lengths, file, "$");
|
|
XSRETURN_YES;
|
|
}
|
|
|
|
#endif //EMBPERL_XS_CLASSES
|
|
|