ejsval
_ejs_set_iterator_new (ejsval set, EJSSetIteratorKind kind)
{
/* 1. If Type(set) is not Object, throw a TypeError exception. */
if (!EJSVAL_IS_OBJECT(set))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "set is not a Object");
/* 2. If set does not have a [[SetData]] internal slot throw a TypeError exception. */
if (!EJSVAL_IS_SET(set))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "value is not a Set");
/* 3. If set’s [[SetData]] internal slot is undefined, then throw a TypeError exception. */
/* 4. Let iterator be the result of ObjectCreate(%SetIteratorPrototype%,
* ([[IteratedSet]], [[SetNextIndex]], [[SetIterationKind]])). */
EJSSetIterator *iter = _ejs_gc_new (EJSSetIterator);
_ejs_init_object ((EJSObject*) iter, _ejs_SetIterator_prototype, &_ejs_SetIterator_specops);
/* 5. Set iterator’s [[IteratedSet]] internal slot to set. */
iter->iterated = set;
/* 6. Set iterator’s [[SetNextIndex]] internal slot to 0. */
iter->next_index = 0;
/* 7. Set iterator’s [[SetIterationKind]] internal slot to kind. */
iter->kind = kind;
/* 8. Return iterator */
return OBJECT_TO_EJSVAL(iter);
}
// ECMA262 25.4.4.6 Promise [ @@create ] ( )
static ejsval
_ejs_Promise_create (ejsval env, ejsval _this, uint32_t argc, ejsval *args)
{
// 1. Let F be the this value
ejsval F = _this;
// 2. Return AllocatePromise(F).
// 1. Let obj be OrdinaryCreateFromConstructor(constructor, "%PromisePrototype%", ([[PromiseState]], [[PromiseConstructor]], [[PromiseResult]], [[PromiseFulfillReactions]], [[PromiseRejectReactions]]) ).
ejsval proto = _ejs_undefined;
if (!EJSVAL_IS_UNDEFINED(F)) {
if (!EJSVAL_IS_CONSTRUCTOR(F))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "'this' in Promise[Symbol.create] is not a constructor");
EJSObject* F_ = EJSVAL_TO_OBJECT(F);
proto = OP(F_,Get)(F, _ejs_atom_prototype, F);
}
if (EJSVAL_IS_UNDEFINED(proto))
proto = _ejs_Promise_prototype;
EJSObject* obj = (EJSObject*)_ejs_gc_new (EJSPromise);
_ejs_init_object (obj, proto, &_ejs_Promise_specops);
// 2. Set the value of obj’s [[PromiseConstructor]] internal slot to constructor.
((EJSPromise*)obj)->constructor = F;
// 3. Return obj.
return OBJECT_TO_EJSVAL(obj);
}
ejsval
_ejs_nativeerror_new (EJSNativeErrorType err_type, ejsval msg)
{
EJSObject* exc_obj = _ejs_gc_new (EJSObject);
ejsval proto;
switch (err_type) {
case EJS_ERROR: proto = _ejs_Error_prototype; break;
case EJS_EVAL_ERROR: proto = _ejs_EvalError_prototype; break;
case EJS_RANGE_ERROR: proto = _ejs_RangeError_prototype; break;
case EJS_REFERENCE_ERROR: proto = _ejs_ReferenceError_prototype; break;
case EJS_SYNTAX_ERROR: proto = _ejs_SyntaxError_prototype; break;
case EJS_TYPE_ERROR: proto = _ejs_TypeError_prototype; break;
case EJS_URI_ERROR: proto = _ejs_URIError_prototype; break;
}
_ejs_init_object (exc_obj, proto, &_ejs_Error_specops);
ejsval exc = OBJECT_TO_EJSVAL(exc_obj);
switch (err_type) {
case EJS_ERROR: _ejs_Error_impl (_ejs_null, exc, 1, &msg); break;
case EJS_EVAL_ERROR: _ejs_EvalError_impl (_ejs_null, exc, 1, &msg); break;
case EJS_RANGE_ERROR: _ejs_RangeError_impl (_ejs_null, exc, 1, &msg); break;
case EJS_REFERENCE_ERROR: _ejs_ReferenceError_impl (_ejs_null, exc, 1, &msg); break;
case EJS_SYNTAX_ERROR: _ejs_SyntaxError_impl (_ejs_null, exc, 1, &msg); break;
case EJS_TYPE_ERROR: _ejs_TypeError_impl (_ejs_null, exc, 1, &msg); break;
case EJS_URI_ERROR: _ejs_URIError_impl (_ejs_null, exc, 1, &msg); break;
}
return exc;
}
ejsval
_ejs_set_new ()
{
EJSSet *set = _ejs_gc_new (EJSSet);
_ejs_init_object ((EJSObject*)set, _ejs_Set_prototype, &_ejs_Set_specops);
return OBJECT_TO_EJSVAL(set);
}
ejsval
_ejs_iterator_wrapper_new (ejsval iterator)
{
EJSIteratorWrapper* rv = _ejs_gc_new (EJSIteratorWrapper);
_ejs_init_object ((EJSObject*)rv, _ejs_IteratorWrapper_prototype, &_ejs_IteratorWrapper_specops);
rv->iterator = iterator;
return OBJECT_TO_EJSVAL(rv);
}
ejsval
_ejs_regexp_new (ejsval pattern, ejsval flags)
{
EJSRegExp* rv = _ejs_gc_new(EJSRegExp);
_ejs_init_object ((EJSObject*)rv, _ejs_RegExp_prototype, &_ejs_RegExp_specops);
ejsval args[2] = { pattern, flags };
return _ejs_RegExp_impl (_ejs_null, OBJECT_TO_EJSVAL(rv), 2, args);
}
ejsval
_ejs_symbol_new_object(ejsval symbol_data)
{
EJSSymbol *rv = _ejs_gc_new(EJSSymbol);
_ejs_init_object ((EJSObject*)rv, _ejs_Symbol_prototype, &_ejs_Symbol_specops);
rv->primSymbol = symbol_data;
return OBJECT_TO_EJSVAL(rv);
}
ejsval
_ejs_arraybuffer_new (int size)
{
EJSArrayBuffer *rv = _ejs_gc_new(EJSArrayBuffer);
_ejs_init_object ((EJSObject*)rv, _ejs_ArrayBuffer_prototype, &_ejs_ArrayBuffer_specops);
rv->dependent = EJS_FALSE;
rv->size = size;
if (size)
rv->data.alloced_buf = calloc(1, size);
return OBJECT_TO_EJSVAL(rv);
}
ejsval
_ejs_function_new_without_proto (ejsval env, ejsval name, EJSClosureFunc func)
{
EJSFunction *rv = _ejs_gc_new(EJSFunction);
_ejs_init_object ((EJSObject*)rv, _ejs_Function_prototype, &_ejs_Function_specops);
rv->func = func;
rv->env = env;
ejsval fun = OBJECT_TO_EJSVAL(rv);
_ejs_object_define_value_property (fun, _ejs_atom_name, name, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_NOT_CONFIGURABLE | EJS_PROP_NOT_WRITABLE);
return fun;
}
static void
_ejs_function_init_proto()
{
_ejs_gc_add_root (&_ejs_Function_prototype);
// Function.prototype = function () { return undefined; }
EJSFunction* proto = _ejs_gc_new(EJSFunction);
_ejs_Function_prototype = OBJECT_TO_EJSVAL(proto);
_ejs_init_object ((EJSObject*)proto, _ejs_Object_prototype, &_ejs_Function_specops);
proto->func = _ejs_Function_empty;
proto->env = _ejs_null;
_ejs_object_define_value_property (OBJECT_TO_EJSVAL(proto), _ejs_atom_name, _ejs_atom_empty, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_NOT_CONFIGURABLE | EJS_PROP_NOT_WRITABLE);
}
static ejsval
Module_create (ejsval env, ejsval _this, int argc, ejsval *args)
{
ejsval F = _this;
if (!EJSVAL_IS_CONSTRUCTOR(F))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "'this' in Module[Symbol.create] is not a constructor");
EJSObject* F_ = EJSVAL_TO_OBJECT(F);
// 2. Let obj be the result of calling OrdinaryCreateFromConstructor(F, "%DatePrototype%", ([[DateData]]) ).
ejsval proto = OP(F_,Get)(F, _ejs_atom_prototype, F);
if (EJSVAL_IS_UNDEFINED(proto))
proto = _ejs_Module_prototype;
EJSObject* obj = (EJSObject*)_ejs_gc_new (Module);
_ejs_init_object (obj, proto, &_ejs_Module_specops);
return OBJECT_TO_EJSVAL(obj);
}
ejsval
_ejs_arraybuffer_new_slice (ejsval bufferval, int offset, int size)
{
EJSArrayBuffer* rv = _ejs_gc_new(EJSArrayBuffer);
EJSArrayBuffer* buffer = (EJSArrayBuffer*)EJSVAL_TO_OBJECT(bufferval);
_ejs_init_object ((EJSObject*)rv, _ejs_ArrayBuffer_prototype, &_ejs_ArrayBuffer_specops);
rv->dependent = EJS_TRUE;
rv->data.dependent.offset = MIN(buffer->size, offset);
rv->data.dependent.buf = bufferval;
rv->size = size;
if (rv->size + rv->data.dependent.offset > buffer->size)
rv->size = buffer->size - offset;
return OBJECT_TO_EJSVAL(rv);
}
ejsval
_ejs_function_new_utf8_with_proto (ejsval env, const char* name, EJSClosureFunc func, ejsval prototype)
{
ejsval function_name = _ejs_string_new_utf8 (name);
EJSFunction *rv = _ejs_gc_new(EJSFunction);
_ejs_init_object ((EJSObject*)rv, _ejs_Function_prototype, &_ejs_Function_specops);
rv->func = func;
rv->env = env;
ejsval fun = OBJECT_TO_EJSVAL(rv);
_ejs_object_define_value_property (fun, _ejs_atom_name, function_name, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_NOT_CONFIGURABLE | EJS_PROP_NOT_WRITABLE);
_ejs_object_define_value_property (fun, _ejs_atom_prototype, prototype, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_CONFIGURABLE | EJS_PROP_WRITABLE);
return fun;
}
ejsval
_ejs_typedarray_new (EJSTypedArrayType element_type, uint32_t length)
{
int size = length * _ejs_typed_array_elsizes[element_type];
ejsval buffer = _ejs_arraybuffer_new (size);
EJSTypedArray *rv = _ejs_gc_new(EJSTypedArray);
_ejs_init_object ((EJSObject*)rv, _ejs_typed_array_protos[element_type], _ejs_typed_array_specops[element_type]);
rv->buffer = buffer;
rv->element_type = element_type;
rv->length = length;
rv->byteOffset = 0;
rv->byteLength = size;
return OBJECT_TO_EJSVAL(rv);
}
ejsval
_ejs_function_new (ejsval env, ejsval name, EJSClosureFunc func)
{
EJSFunction *rv = _ejs_gc_new(EJSFunction);
_ejs_init_object ((EJSObject*)rv, _ejs_Function__proto__, &_ejs_Function_specops);
rv->func = func;
rv->env = env;
ejsval fun = OBJECT_TO_EJSVAL(rv);
// ECMA262: 15.3.2.1
ejsval fun_proto = _ejs_object_new (_ejs_Object_prototype, &_ejs_Object_specops);
_ejs_object_define_value_property (fun, _ejs_atom_prototype, fun_proto, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_CONFIGURABLE | EJS_PROP_WRITABLE);
_ejs_object_define_value_property (fun_proto, _ejs_atom_constructor, fun, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_CONFIGURABLE | EJS_PROP_WRITABLE);
_ejs_object_define_value_property (fun, _ejs_atom_name, name, EJS_PROP_NOT_ENUMERABLE | EJS_PROP_NOT_CONFIGURABLE | EJS_PROP_NOT_WRITABLE);
return fun;
}
ejsval
_ejs_generator_new (ejsval generator_body)
{
EJSGenerator* rv = _ejs_gc_new(EJSGenerator);
_ejs_init_object ((EJSObject*)rv, _ejs_Generator_prototype, &_ejs_Generator_specops);
rv->body = generator_body;
rv->started = EJS_FALSE;
rv->yielded_value = _ejs_undefined;
rv->sent_value = _ejs_undefined;
rv->stack = malloc(GENERATOR_STACK_SIZE);
getcontext(&rv->generator_context);
rv->generator_context.uc_stack.ss_sp = rv->stack;
rv->generator_context.uc_stack.ss_size = GENERATOR_STACK_SIZE;
rv->generator_context.uc_link = &rv->caller_context;
makecontext(&rv->generator_context, (void(*)(void))_ejs_generator_start, 1, rv);
memset(&rv->caller_context, 0, sizeof(rv->caller_context));
return OBJECT_TO_EJSVAL(rv);
}
static ejsval
_ejs_Function_prototype_create(ejsval env, ejsval _this, uint32_t argc, ejsval* args)
{
ejsval F = _this;
if (!EJSVAL_IS_CONSTRUCTOR(F))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "'this' in Function.prototype[Symbol.create] is not a constructor");
EJSObject* F_ = EJSVAL_TO_OBJECT(F);
ejsval proto = OP(F_,Get)(F, _ejs_atom_prototype, F);
if (EJSVAL_IS_UNDEFINED(proto)) {
proto = _ejs_Function_prototype;
}
if (!EJSVAL_IS_OBJECT(proto)) {
EJS_NOT_IMPLEMENTED(); // cross-realm doesn't exist in ejs yet
}
EJSObject* obj = (EJSObject*)_ejs_gc_new (EJSObject);
_ejs_init_object (obj, proto, &_ejs_Object_specops);
return OBJECT_TO_EJSVAL(obj);
}
static ejsval
_ejs_RegExp_create (ejsval env, ejsval _this, uint32_t argc, ejsval *args)
{
// 1. Let F be the this value.
ejsval F = _this;
if (!EJSVAL_IS_CONSTRUCTOR(F))
_ejs_throw_nativeerror_utf8 (EJS_TYPE_ERROR, "'this' in RegExp[Symbol.create] is not a constructor");
EJSObject* F_ = EJSVAL_TO_OBJECT(F);
// 2. Let obj be the result of calling OrdinaryCreateFromConstructor(constructor, "%RegExpPrototype%", ( [[RegExpMatcher]], [[OriginalSource]], [[OriginalFlags]])).
ejsval proto = OP(F_,Get)(F, _ejs_atom_prototype, F);
if (EJSVAL_IS_UNDEFINED(proto))
proto = _ejs_RegExp_prototype;
EJSRegExp* re = (EJSRegExp*)_ejs_gc_new (EJSRegExp);
_ejs_init_object ((EJSObject*)re, proto, &_ejs_RegExp_specops);
re->pattern = _ejs_undefined;
re->flags = _ejs_undefined;
return OBJECT_TO_EJSVAL((EJSObject*)re);
}
static EJSObject*
_ejs_generator_specop_allocate()
{
return (EJSObject*)_ejs_gc_new (EJSGenerator);
}
static EJSObject* Call_allocate()
{
return (EJSObject*)_ejs_gc_new(Call);
}
static EJSObject* Invoke_allocate()
{
return (EJSObject*)_ejs_gc_new(Invoke);
}
static EJSObject*
_ejs_arguments_specop_allocate()
{
return (EJSObject*)_ejs_gc_new (EJSArguments);
}
static EJSObject* LoadInst_Allocate()
{
return (EJSObject*)_ejs_gc_new(LoadInst);
}
static EJSObject* ArrayType_allocate()
{
return (EJSObject*)_ejs_gc_new(ArrayType);
}
static EJSObject*
_ejs_symbol_specop_allocate ()
{
return (EJSObject*)_ejs_gc_new (EJSSymbol);
}
static EJSObject* AllocaInst_allocate()
{
return (EJSObject*)_ejs_gc_new(AllocaInst);
}
static EJSObject* LandingPad_allocate()
{
return (EJSObject*)_ejs_gc_new(LandingPad);
}
static EJSObject* Module_allocate()
{
return (EJSObject*)_ejs_gc_new(Module);
}
EJSObject* GlobalVariable_alloc_instance()
{
return (EJSObject*)_ejs_gc_new(GlobalVariable);
}
static EJSObject*
_ejs_iterator_wrapper_specop_allocate()
{
return (EJSObject*)_ejs_gc_new (EJSIteratorWrapper);
}