2012-05-18 12:56:15 -04:00
|
|
|
#include "rr.h"
|
|
|
|
|
|
|
|
namespace rr {
|
|
|
|
void Function::Init() {
|
|
|
|
ClassBuilder("Function", Object::Class).
|
|
|
|
defineMethod("NewInstance", &NewInstance).
|
|
|
|
defineMethod("Call", &Call).
|
|
|
|
defineMethod("SetName", &SetName).
|
|
|
|
defineMethod("GetName", &GetName).
|
|
|
|
defineMethod("GetInferredName", &GetInferredName).
|
|
|
|
defineMethod("GetScriptLineNumber", &GetScriptLineNumber).
|
|
|
|
defineMethod("GetScriptColumnNumber", &GetScriptColumnNumber).
|
|
|
|
defineMethod("GetScriptId", &GetScriptId).
|
|
|
|
defineMethod("GetScriptOrigin", &GetScriptOrigin).
|
|
|
|
store(&Class);
|
|
|
|
}
|
|
|
|
|
2012-06-12 08:06:25 -04:00
|
|
|
VALUE Function::NewInstance(int argc, VALUE argv[], VALUE self) {
|
|
|
|
VALUE args;
|
|
|
|
rb_scan_args(argc,argv,"01", &args);
|
|
|
|
if (RTEST(args)) {
|
|
|
|
return Object(Function(self)->NewInstance(RARRAY_LENINT(args), Value::array<Value>(args)));
|
2012-05-18 12:56:15 -04:00
|
|
|
} else {
|
2012-06-12 08:06:25 -04:00
|
|
|
return Object(Function(self)->NewInstance());
|
2012-05-18 12:56:15 -04:00
|
|
|
}
|
|
|
|
}
|
2012-06-12 08:06:25 -04:00
|
|
|
VALUE Function::Call(VALUE self, VALUE receiver, VALUE argv) {
|
|
|
|
return Value(Function(self)->Call(Object(receiver), RARRAY_LENINT(argv), Value::array<Value>(argv)));
|
2012-05-18 12:56:15 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::SetName(VALUE self, VALUE name) {
|
|
|
|
Void(Function(self)->SetName(String(name)));
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetName(VALUE self) {
|
|
|
|
return Value(Function(self)->GetName());
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetInferredName(VALUE self) {
|
|
|
|
return Value(Function(self)->GetInferredName());
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetScriptLineNumber(VALUE self) {
|
2012-05-23 00:06:21 -04:00
|
|
|
return INT2FIX(Function(self)->GetScriptLineNumber());
|
2012-05-18 12:56:15 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetScriptColumnNumber(VALUE self) {
|
2012-05-23 00:06:21 -04:00
|
|
|
return INT2FIX(Function(self)->GetScriptColumnNumber());
|
2012-05-18 12:56:15 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetScriptId(VALUE self) {
|
|
|
|
return Value(Function(self)->GetScriptId());
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE Function::GetScriptOrigin(VALUE self) {
|
|
|
|
return not_implemented("GetScriptOrigin");
|
|
|
|
}
|
|
|
|
}
|