MapleShrine/mkxp
1
0
Fork 0
Code Issues 32 Pull requests 11 Projects Releases Wiki Activity

Make changes for Emscripten

Browse source
This commit is contained in:
Varun Patil 2020-05-04 13:13:57 +05:30
parent 776564d583
commit 8c5db3a401
33 changed files with 5082 additions and 3720 deletions
Download patch file Download diff file Expand all files Collapse all files

6
binding-mruby/audio-binding.cpp
View file

@ -27,7 +27,7 @@
#define DEF_PLAY_STOP(entity) \
MRB_FUNCTION(audio_##entity##Play) \
{ \
char *filename; \
return mrb_nil_value();char *filename; \
mrb_int volume = 100; \
mrb_int pitch = 100; \
mrb_get_args(mrb, "z|ii", &filename, &volume, &pitch); \
@ -36,7 +36,7 @@
} \
MRB_FUNCTION(audio_##entity##Stop) \
{ \
MRB_FUN_UNUSED_PARAM; \
return mrb_nil_value();MRB_FUN_UNUSED_PARAM; \
shState->audio().entity##Stop(); \
return mrb_nil_value(); \
}
@ -44,7 +44,7 @@
#define DEF_FADE(entity) \
MRB_FUNCTION(audio_##entity##Fade) \
{ \
mrb_int time; \
return mrb_nil_value();mrb_int time; \
mrb_get_args(mrb, "i", &time); \
shState->audio().entity##Fade(time); \
return mrb_nil_value(); \

76
binding-mruby/binding-mruby.cpp
View file

@ -48,6 +48,13 @@
#include "binding-util.h"
#include "binding-types.h"
#include "mrb-ext/marshal.h"
#include "mrb-ext/file-helper.h"
#ifdef __EMSCRIPTEN__
#include <emscripten.h>
#endif
#include <stdio.h>
static void mrbBindingExecute();
static void mrbBindingTerminate();
@ -65,7 +72,6 @@ ScriptBinding *scriptBinding = &scriptBindingImpl;
void fileBindingInit(mrb_state *);
void timeBindingInit(mrb_state *);
void marshalBindingInit(mrb_state *);
void kernelBindingInit(mrb_state *);
void tableBindingInit(mrb_state *);
@ -82,9 +88,6 @@ void inputBindingInit(mrb_state *);
void audioBindingInit(mrb_state *);
void graphicsBindingInit(mrb_state *);
/* From module_rpg.c */
extern const uint8_t mrbModuleRPG[];
static void mrbBindingInit(mrb_state *mrb)
{
int arena = mrb_gc_arena_save(mrb);
@ -92,7 +95,6 @@ static void mrbBindingInit(mrb_state *mrb)
/* Init standard classes */
fileBindingInit(mrb);
timeBindingInit(mrb);
marshalBindingInit(mrb);
kernelBindingInit(mrb);
/* Init RGSS classes */
@ -111,13 +113,10 @@ static void mrbBindingInit(mrb_state *mrb)
audioBindingInit(mrb);
graphicsBindingInit(mrb);
/* Load RPG module */
mrb_load_irep(mrb, mrbModuleRPG);
/* Load global constants */
mrb_define_global_const(mrb, "MKXP", mrb_true_value());
mrb_value debug = rb_bool_new(shState->config().editor.debug);
mrb_value debug = mrb_bool_value(shState->config().editor.debug);
if (rgssVer == 1)
mrb_define_global_const(mrb, "DEBUG", debug);
else if (rgssVer >= 2)
@ -254,6 +253,14 @@ runMrbFile(mrb_state *mrb, const char *filename)
fclose(f);
}
mrb_state * static_mrb;
mrb_state * static_scriptmrb;
mrbc_context * static_ctx;
void main_update_loop() {
mrb_load_nstring_cxt(static_mrb, "main_update_loop", 16, NULL);
}
static void
runRMXPScripts(mrb_state *mrb, mrbc_context *ctx)
{
@ -273,24 +280,23 @@ runRMXPScripts(mrb_state *mrb, mrbc_context *ctx)
/* We use a secondary util state to unmarshal the scripts */
mrb_state *scriptMrb = mrb_open();
SDL_RWops ops;
shState->fileSystem().openReadRaw(ops, scriptPack.c_str());
mrb_value scriptArray = mrb_nil_value();
std::string readError;
try
{
scriptArray = marshalLoadInt(scriptMrb, &ops);
SDL_rw_file_helper fileHelper;
fileHelper.filename = scriptPack.c_str();
char * contents = fileHelper.read();
mrb_value rawdata = mrb_str_new_static(mrb, contents, fileHelper.length);
scriptArray = mrb_marshal_load(mrb, rawdata);
}
catch (const Exception &e)
{
readError = std::string(": ") + e.msg;
}
SDL_RWclose(&ops);
if (!mrb_array_p(scriptArray))
{
showError(std::string("Failed to read script data") + readError);
@ -298,7 +304,7 @@ runRMXPScripts(mrb_state *mrb, mrbc_context *ctx)
return;
}
int scriptCount = mrb_ary_len(scriptMrb, scriptArray);
int scriptCount = RARRAY_LEN(scriptArray);
std::string decodeBuffer;
decodeBuffer.resize(0x1000);
@ -357,11 +363,28 @@ runRMXPScripts(mrb_state *mrb, mrbc_context *ctx)
mrb_gc_arena_restore(mrb, ai);
if (mrb->exc)
if (mrb->exc) {
printf("%s - err\n", ctx->filename);
return;
}
}
static_mrb = mrb;
static_scriptmrb = scriptMrb;
#ifdef __EMSCRIPTEN__
/* Use loop for emscripten */
main_update_loop();
checkException(static_mrb);
emscripten_set_main_loop(main_update_loop, 0, 0);
#else
while (true) {
main_update_loop();
SDL_Delay(3);
if (static_mrb->exc)
break;
}
mrb_close(scriptMrb);
#endif
}
static void mrbBindingExecute()
@ -370,29 +393,27 @@ static void mrbBindingExecute()
shState->setBindingData(mrb);
MrbData mrbData(mrb);
mrb->ud = &mrbData;
MrbData * mrbData = new MrbData(mrb);
mrb->ud = mrbData;
mrb_define_module_function(mrb, mrb->kernel_module, "time_op",
mkxpTimeOp, MRB_ARGS_OPT(2) | MRB_ARGS_BLOCK());
mrbBindingInit(mrb);
mrbc_context *ctx = mrbc_context_new(mrb);
ctx->capture_errors = 1;
static_ctx = mrbc_context_new(mrb);
static_ctx->capture_errors = 1;
const Config &conf = shState->rtData().config;
const std::string &customScript = conf.customScript;
// const std::string &mrbFile = conf.mrbFile;
(void) runMrbFile; // FIXME mrbFile support on ice for now
if (!customScript.empty())
runCustomScript(mrb, ctx, customScript.c_str());
// else if (!mrbFile.empty())
// runMrbFile(mrb, mrbFile.c_str());
runCustomScript(mrb, static_ctx, customScript.c_str());
else
runRMXPScripts(mrb, ctx);
runRMXPScripts(mrb, static_ctx);
#ifndef __EMSCRIPTEN__
checkException(mrb);
shState->rtData().rqTermAck.set();
@ -400,6 +421,7 @@ static void mrbBindingExecute()
mrbc_context_free(mrb, ctx);
mrb_close(mrb);
#endif
}
static void mrbBindingTerminate()

5
binding-mruby/binding-util.cpp
View file

@ -71,8 +71,7 @@ static const MrbExcData excData[] =
{ Shutdown, "SystemExit" },
{ PHYSFS, "PHYSFSError" },
{ SDL, "SDLError" },
{ MKXP, "MKXPError" },
{ IO, "IOError" }
{ MKXP, "MKXPError" }
};
static elementsN(excData);
@ -118,6 +117,7 @@ MrbData::MrbData(mrb_state *mrb)
exc[TypeError] = mrb_class_get(mrb, "TypeError");
exc[ArgumentError] = mrb_class_get(mrb, "ArgumentError");
exc[IOError] = mrb_class_get(mrb, "IOError");
for (size_t i = 0; i < symDataN; ++i)
symbols[symData[i].ind] = mrb_intern_cstr(mrb, symData[i].str);
@ -134,6 +134,7 @@ static const MrbException excToMrbExc[] =
TypeError,
ArgumentError,
IOError,
PHYSFS, /* PHYSFSError */
SDL, /* SDLError */

12
binding-mruby/binding-util.h
View file

@ -28,6 +28,7 @@
#include <mruby/data.h>
#include <mruby/variable.h>
#include <mruby/class.h>
#include <mruby/string.h>
#include <stdio.h>
@ -90,6 +91,7 @@ enum MrbException
TypeError,
ArgumentError,
IOError,
MrbExceptionsMax
};
@ -352,11 +354,13 @@ inline mrb_value
objectLoad(mrb_state *mrb, mrb_value self, const mrb_data_type &type)
{
RClass *klass = mrb_class_ptr(self);
char *data;
int data_len;
mrb_get_args(mrb, "s", &data, &data_len);
C *c = C::deserialize(data, data_len);
mrb_value data;
mrb_get_args(mrb, "S", &data);
int data_len = mrb_string_value_len(mrb, data);
C *c = C::deserialize(RSTRING_PTR(data), data_len);
RData *obj = mrb_data_object_alloc(mrb, klass, c, &type);
mrb_value obj_value = mrb_obj_value(obj);

38
binding-mruby/bitmap-binding.cpp
View file

@ -27,25 +27,25 @@
#include "binding-util.h"
#include "binding-types.h"
#include <mruby/string.h>
DEF_TYPE(Bitmap);
MRB_METHOD(bitmapInitialize)
{
Bitmap *b = 0;
if (mrb->c->ci->argc == 1)
{
char *filename;
mrb_get_args(mrb, "z", &filename);
mrb_value one, two;
int argc = mrb_get_args(mrb, "o|i", &one, &two);
GUARD_EXC( b = new Bitmap(filename); )
if (argc == 1)
{
const char *fmt = RSTRING_CSTR(mrb, one);
GUARD_EXC( b = new Bitmap(fmt); )
}
else
{
mrb_int width, height;
mrb_get_args(mrb, "ii", &width, &height);
GUARD_EXC( b = new Bitmap(width, height); )
GUARD_EXC( b = new Bitmap(mrb_fixnum(one), mrb_fixnum(two)); )
}
setPrivateData(self, b, BitmapType);
@ -149,12 +149,14 @@ MRB_METHOD(bitmapFillRect)
mrb_value colorObj;
Color *color;
if (mrb->c->ci->argc == 2)
{
mrb_value rectObj;
Rect *rect;
mrb_value one, two, three, four, five;
int argc = mrb_get_args(mrb, "oo|iio", &one, &two, &three, &four, &five);
mrb_get_args(mrb, "oo", &rectObj, &colorObj);
if (argc == 2)
{
mrb_value rectObj = one;
colorObj = two;
Rect *rect;
rect = getPrivateDataCheck<Rect>(mrb, rectObj, RectType);
color = getPrivateDataCheck<Color>(mrb, colorObj, ColorType);
@ -163,9 +165,11 @@ MRB_METHOD(bitmapFillRect)
}
else
{
mrb_int x, y, width, height;
mrb_get_args(mrb, "iiiio", &x, &y, &width, &height, &colorObj);
mrb_int x = mrb_fixnum(one),
y = mrb_fixnum(two),
width = mrb_fixnum(three),
height = mrb_fixnum(four);
colorObj = five;
color = getPrivateDataCheck<Color>(mrb, colorObj, ColorType);

29
binding-mruby/font-binding.cpp
View file

@ -49,7 +49,12 @@ MRB_METHOD(fontInitialize)
mrb_get_args(mrb, "|zi", &name, &size);
Font *f = new Font(name, size);
Font *f;
std::vector<std::string> names;
names.push_back(name);
f = new Font(&names, size);
setPrivateData(self, f, FontType);
@ -86,9 +91,7 @@ MRB_METHOD(fontInitializeCopy)
MRB_METHOD(FontGetName)
{
Font *f = getPrivateData<Font>(mrb, self);
return mrb_str_new_cstr(mrb, f->getName());
return mrb_iv_get(mrb, self, mrb_intern_cstr(mrb, "name"));
}
MRB_METHOD(FontSetName)
@ -98,7 +101,11 @@ MRB_METHOD(FontSetName)
mrb_value name;
mrb_get_args(mrb, "S", &name);
f->setName(RSTRING_PTR(name));
std::vector<std::string> names;
names.push_back(RSTRING_PTR(name));
f->setName(names);
mrb_iv_set(mrb, self, mrb_intern_cstr(mrb, "name"), name);
return name;
}
@ -135,17 +142,21 @@ DEF_KLASS_PROP(Font, mrb_bool, DefaultItalic, "b", bool)
DEF_KLASS_PROP(Font, mrb_bool, DefaultOutline, "b", bool)
DEF_KLASS_PROP(Font, mrb_bool, DefaultShadow, "b", bool)
MRB_FUNCTION(FontGetDefaultName)
MRB_METHOD(FontGetDefaultName)
{
return mrb_str_new_cstr(mrb, Font::getDefaultName());
return mrb_iv_get(mrb, self, mrb_intern_cstr(mrb, "default_name"));
}
MRB_FUNCTION(FontSetDefaultName)
MRB_METHOD(FontSetDefaultName)
{
mrb_value nameObj;
mrb_get_args(mrb, "S", &nameObj);
Font::setDefaultName(RSTRING_PTR(nameObj));
std::vector<std::string> names;
names.push_back(RSTRING_PTR(nameObj));
Font::setDefaultName(names, shState->fontState());
mrb_iv_set(mrb, self, mrb_intern_cstr(mrb, "default_name"), nameObj);
return nameObj;
}

2
binding-mruby/input-binding.cpp
View file

@ -27,11 +27,13 @@
#include <mruby/hash.h>
#include <string.h>
#include "eventthread.h"
MRB_FUNCTION(inputUpdate)
{
MRB_FUN_UNUSED_PARAM;
shState->eThread().process(shState->rtData());
shState->input().update();
return mrb_nil_value();

2466
binding-mruby/module_rpg.c
View file

File diff suppressed because it is too large Load diff

3275
binding-mruby/module_rpg.xxd Normal file
View file

File diff suppressed because it is too large Load diff

43
binding-mruby/mrb-ext/file-helper.cpp Normal file
View file

@ -0,0 +1,43 @@
#include "file-helper.h"
#include <SDL_rwops.h>
char* SDL_rw_file_helper::read() {
SDL_RWops *rw = SDL_RWFromFile(filename, "rb");
if (rw == NULL) return NULL;
Sint64 res_size = SDL_RWsize(rw);
char* res = (char*)malloc(res_size + 1);
Sint64 nb_read_total = 0, nb_read = 1;
char* buf = res;
while (nb_read_total < res_size && nb_read != 0) {
nb_read = SDL_RWread(rw, buf, 1, (res_size - nb_read_total));
nb_read_total += nb_read;
buf += nb_read;
}
SDL_RWclose(rw);
if (nb_read_total != res_size) {
free(res);
return NULL;
}
res[nb_read_total] = '\0';
length = nb_read_total;
return res;
}
bool SDL_rw_file_helper::write(char * data) {
SDL_RWops *rw = SDL_RWFromFile(filename, "w");
if(rw != NULL) {
size_t len = SDL_strlen(data);
if (SDL_RWwrite(rw, data, 1, len) != len) {
return false;
} else {
return true;
}
SDL_RWclose(rw);
return true;
}
return false;
}

6
binding-mruby/mrb-ext/file-helper.h Normal file
View file

@ -0,0 +1,6 @@
struct SDL_rw_file_helper {
const char * filename;
char * read();
int length;
bool write(char * data);
};

7
binding-mruby/mrb-ext/file.cpp
View file

@ -454,10 +454,11 @@ MRB_METHOD(fileReadLines)
FILE *f = p->fp();
mrb_value arg;
mrb_get_args(mrb, "|o", &arg);
int argc = mrb_get_args(mrb, "|o", &arg);
const char *rs = "\n"; (void) rs;
if (mrb->c->ci->argc > 0)
if (argc > 0)
{
Debug() << "FIXME: File.readlines: rs not implemented";
@ -596,7 +597,7 @@ fileBindingInit(mrb_state *mrb)
mrb_define_method(mrb, klass, "path", fileGetPath, MRB_ARGS_NONE());
/* FileTest */
RClass *module = mrb_define_module(mrb, "FileTest");
RClass *module = mrb_define_module(mrb, "MKXPFileTest");
mrb_define_module_function(mrb, module, "exist?", fileTestDoesExist, MRB_ARGS_REQ(1));
mrb_define_module_function(mrb, module, "directory?", fileTestIsDirectory, MRB_ARGS_REQ(1));
mrb_define_module_function(mrb, module, "file?", fileTestIsFile, MRB_ARGS_REQ(1));

37
binding-mruby/mrb-ext/kernel.cpp
View file

@ -30,6 +30,7 @@
#include "../binding-util.h"
#include "marshal.h"
#include "file-helper.h"
#include "sharedstate.h"
#include "eventthread.h"
#include "exception.h"
@ -136,11 +137,12 @@ MRB_FUNCTION(kernelRand)
MRB_FUNCTION(kernelSrand)
{
srandCalled = true;
mrb_int seed;
int argc = mrb_get_args(mrb, "|i", &seed);
if (mrb->c->ci->argc == 1)
if (argc == 1)
{
mrb_int seed;
mrb_get_args(mrb, "i", &seed);
srand(seed);
int oldSeed = currentSeed;
@ -171,19 +173,19 @@ MRB_FUNCTION(kernelLoadData)
const char *filename;
mrb_get_args(mrb, "z", &filename);
SDL_RWops ops;
GUARD_EXC( shState->fileSystem().openRead(ops, filename); )
mrb_value obj;
try { obj = marshalLoadInt(mrb, &ops); }
try {
SDL_rw_file_helper fileHelper;
fileHelper.filename = filename;
char * contents = fileHelper.read();
mrb_value rawdata = mrb_str_new_static(mrb, contents, fileHelper.length);
obj = mrb_marshal_load(mrb, rawdata);
}
catch (const Exception &e)
{
SDL_RWclose(&ops);
raiseMrbExc(mrb, e);
}
SDL_RWclose(&ops);
return obj;
}
@ -194,19 +196,18 @@ MRB_FUNCTION(kernelSaveData)
mrb_get_args(mrb, "oz", &obj, &filename);
SDL_RWops *ops = SDL_RWFromFile(filename, "w");
if (!ops)
mrb_raise(mrb, getMrbData(mrb)->exc[SDL], SDL_GetError());
try { marshalDumpInt(mrb, ops, obj); }
try {
mrb_value dumped = mrb_nil_value();
mrb_marshal_dump(mrb, obj, dumped);
SDL_rw_file_helper fileHelper;
fileHelper.filename = filename;
fileHelper.write(RSTRING_PTR(dumped));
}
catch (const Exception &e)
{
SDL_RWclose(ops);
raiseMrbExc(mrb, e);
}
SDL_RWclose(ops);
return mrb_nil_value();
}

1030
binding-mruby/mrb-ext/marshal.cpp
View file

File diff suppressed because it is too large Load diff

38
binding-mruby/mrb-ext/marshal.h
View file

@ -1,31 +1,15 @@
/*
** marshal.h
**
** This file is part of mkxp.
**
** Copyright (C) 2013 Jonas Kulla <Nyocurio@gmail.com>
**
** mkxp 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 2 of the License, or
** (at your option) any later version.
**
** mkxp 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 mkxp. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef MRUBY_MARSHAL_H
#define MRUBY_MARSHAL_H
#ifndef MARSHAL_H
#define MARSHAL_H
#if defined(__cplusplus)
extern "C" {
#endif
#include <mruby.h>
#include <SDL_rwops.h>
mrb_value mrb_marshal_dump(mrb_state* M, mrb_value v, mrb_value out);
mrb_value mrb_marshal_load(mrb_state* M, mrb_value str);
void marshalDumpInt(mrb_state *, SDL_RWops *, mrb_value);
mrb_value marshalLoadInt(mrb_state *, SDL_RWops *);
#if defined(__cplusplus)
} /* extern "C" { */
#endif
#endif // MARSHAL_H
#endif /* MRUBY_ARRAY_H */

2
binding-mruby/mrb-ext/time.cpp
View file

@ -27,7 +27,7 @@
#include "time.h"
#include <sys/time.h>
#include <stdio.h>
struct TimeImpl
{

1476
binding-mruby/rgss.rb Normal file
View file

File diff suppressed because it is too large Load diff

16
binding-mruby/viewport-binding.cpp
View file

@ -32,24 +32,26 @@ MRB_METHOD(viewportInitialize)
{
Viewport *v;
if (mrb->c->ci->argc == 1)
mrb_value one, two, three, four;
int argc = mrb_get_args(mrb, "o|iii", &one, &two, &three, &four);
if (argc == 1)
{
/* The rect arg is only used to init the viewport,
* and does NOT replace its 'rect' property */
mrb_value rectObj;
mrb_value rectObj = one;
Rect *rect;
mrb_get_args(mrb, "o", &rectObj);
rect = getPrivateDataCheck<Rect>(mrb, rectObj, RectType);
v = new Viewport(rect);
}
else
{
mrb_int x, y, width, height;
mrb_get_args(mrb, "iiii", &x, &y, &width, &height);
mrb_int x = mrb_fixnum(one),
y = mrb_fixnum(two),
width = mrb_fixnum(three),
height = mrb_fixnum(four);
v = new Viewport(x, y, width, height);
}