Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
98 lines (79 sloc) 2.8 KB
/*
* Copyright (C) 2010 Tim Felgentreff
*
* This file is part of jruby-cext.
*
* This code is free software: you can redistribute it and/or modify it under
* the terms of the GNU General Public License version 3 only, as
* published by the Free Software Foundation.
*
* This code 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
* version 3 for more details.
*
* You should have received a copy of the GNU General Public License
* version 3 along with this work. If not, see <http://www.gnu.org/licenses/>.
*/
#ifdef __sun
#include <alloca.h>
#endif
#include "ruby.h"
#include "jruby.h"
#include "JLocalEnv.h"
#include <vector>
using namespace jruby;
extern "C" VALUE
rb_struct_define(const char* name_cstr, ...)
{
JLocalEnv env;
va_list varargs;
std::vector<char *> args;
va_start(varargs, name_cstr);
char* cp;
while ((cp = va_arg(varargs, char *)) != NULL) {
args.push_back(cp);
}
va_end(varargs);
jobjectArray argArray = env->NewObjectArray(args.size() + 1, IRubyObject_class, NULL);
checkExceptions(env);
env->SetObjectArrayElement(argArray, 0,
name_cstr == NULL ? getNil() : valueToObject(env, rb_str_new_cstr(name_cstr)));
checkExceptions(env);
for (unsigned int i = 0; i < args.size(); i++) {
env->SetObjectArrayElement(argArray, i + 1, valueToObject(env, rb_str_new_cstr(args[i])));
checkExceptions(env);
}
jmethodID mid = getCachedMethodID(env, Ruby_class, "getStructClass", "()Lorg/jruby/RubyClass;");
jobject structClass = env->CallObjectMethod(getRuntime(), mid);
jobject newStructSubclass = env->CallStaticObjectMethod(RubyStruct_class, RubyStruct_newInstance,
structClass, argArray, getNullBlock());
checkExceptions(env);
return objectToValue(env, newStructSubclass);
}
extern "C" VALUE
rb_struct_aref(VALUE struct_handle, VALUE key)
{
return callMethodA(struct_handle, "[]", 1, &key);
}
extern "C" VALUE
rb_struct_aset(VALUE struct_handle, VALUE key, VALUE val)
{
return callMethod(struct_handle, "[]=", 2, key, val);
}
extern "C" VALUE
rb_struct_new(VALUE klass, ...)
{
JLocalEnv env;
jmethodID mid = getCachedMethodID(env, RubyBasicObject_class, "getInternalVariable",
"(Ljava/lang/String;)Ljava/lang/Object;");
int size = NUM2INT(objectToValue(env, env->CallObjectMethod(valueToObject(env, klass), mid, env->NewStringUTF("__size__"))));
VALUE* values = (VALUE *) alloca(sizeof(VALUE) * size);
va_list args;
va_start(args, klass);
for (int i = 0; i < size; ++i) {
values[i] = va_arg(args, VALUE);
}
va_end(args);
return callMethodA(klass, "new", size, values);
}
Jump to Line
Something went wrong with that request. Please try again.