@engine262/engine262 0.0.1-01e9fa95a4e8a1c042efd00492309a2de4998fd0

package/src/intrinsics/WeakSetPrototype.mts

@@ -0,0 +1,100 @@
+import {
+  Value,
+  type Arguments,
+  type FunctionCallContext,
+} from '../value.mts';
+import { Q, type ValueCompletion } from '../completion.mts';
+import { bootstrapPrototype } from './bootstrap.mts';
+import type { WeakSetObject } from './WeakSet.mts';
+import {
+  surroundingAgent,
+  SameValue,
+  RequireInternalSlot,
+  CanBeHeldWeakly,
+  Realm,
+  Throw,
+} from '#self';
+
+/** https://tc39.es/ecma262/#sec-weakset.prototype.add */
+function WeakSetProto_add([value = Value.undefined]: Arguments, { thisValue }: FunctionCallContext): ValueCompletion {
+  // 1. Let S be this value.
+  const S = thisValue as WeakSetObject;
+  // 2. Perform ? RequireInternalSlot(S, [[WeakSetData]]).
+  Q(RequireInternalSlot(S, 'WeakSetData'));
+  // 3. If CanBeHeldWeakly(value) is false, throw a TypeError exception.
+  if (!CanBeHeldWeakly(value)) {
+    return Throw.TypeError('$1 cannot be weakly referenced', value);
+  }
+  // 4. For each e that is an element of entries, do
+  const entries = S.WeakSetData;
+  for (const e of entries) {
+    // a. If e is not empty and SameValue(e, value) is true, then
+    if (e !== undefined && SameValue(e, value)) {
+      // i. Return S.
+      return S;
+    }
+  }
+  // 6. Append value as the last element of entries.
+  entries.push(value);
+  // 6. Return S.
+  return S;
+}
+
+/** https://tc39.es/ecma262/#sec-weakset.prototype.delete */
+function WeakSetProto_delete([value = Value.undefined]: Arguments, { thisValue }: FunctionCallContext): ValueCompletion {
+  // 1. Let S be the this value.`
+  const S = thisValue as WeakSetObject;
+  // 2. Perform ? RequireInternalSlot(S, [[WeakSetData]]).
+  Q(RequireInternalSlot(S, 'WeakSetData'));
+  // 3. If CanBeHeldWeakly(value) is false, return false.
+  if (!CanBeHeldWeakly(value)) {
+    return Value.false;
+  }
+  // 4. For each element e of S.[[WeakSetData]], do
+  const entries = S.WeakSetData;
+  for (let i = 0; i < entries.length; i += 1) {
+    const e = entries[i];
+    // i. If e is not empty and SameValue(e, value) is true, then
+    if (e !== undefined && SameValue(e, value)) {
+      // i. Replace the element of entries whose value is e with an element whose value is empty.
+      Q(surroundingAgent.debugger_tryTouchDuringPreview(S));
+      entries[i] = undefined;
+      // ii. Return true.
+      return Value.true;
+    }
+  }
+  // 5. Return false.
+  return Value.false;
+}
+
+/** https://tc39.es/ecma262/#sec-weakset.prototype.has */
+function WeakSetProto_has([value = Value.undefined]: Arguments, { thisValue }: FunctionCallContext): ValueCompletion {
+  // 1. Let S be the this value.
+  const S = thisValue as WeakSetObject;
+  // 2. Perform ? RequireInternalSlot(S, [[WeakSetData]]).
+  Q(RequireInternalSlot(S, 'WeakSetData'));
+  // 3. If CanBeHeldWeakly(value) is false, return false.
+  if (!CanBeHeldWeakly(value)) {
+    return Value.false;
+  }
+  // 4. For each element e of S.[[WeakSetData]], do
+  const entries = S.WeakSetData;
+  for (const e of entries) {
+    // a. If e is not empty and SameValue(e, value) is true, return true.
+    if (e !== undefined && SameValue(e, value)) {
+      return Value.true;
+    }
+  }
+  // 5. Return false.
+  return Value.false;
+}
+
+export function bootstrapWeakSetPrototype(realmRec: Realm) {
+  const proto = bootstrapPrototype(realmRec, [
+    ['add', WeakSetProto_add, 1],
+    ['delete', WeakSetProto_delete, 1],
+    ['has', WeakSetProto_has, 1],
+  ], realmRec.Intrinsics['%Object.prototype%'], 'WeakSet');
+
+  realmRec.Intrinsics['%WeakSet.prototype%'] = proto;
+}

package/src/intrinsics/WrapForValidIteratorPrototype.mts

@@ -0,0 +1,65 @@
+import { __ts_cast__ } from '../utils/language.mts';
+import { bootstrapPrototype } from './bootstrap.mts';
+import {
+  type IteratorObject,
+
+  Assert,
+  Call,
+  CreateIteratorResultObject,
+  GetMethod,
+  ObjectValue,
+  Q,
+  RequireInternalSlot,
+  UndefinedValue,
+  Value,
+  type Arguments,
+  type FunctionCallContext,
+  type IteratorRecord,
+  type Realm,
+  type ValueEvaluator,
+} from '#self';
+
+/** https://tc39.es/ecma262/#sec-%wrapforvaliditeratorprototype%.next */
+function* WrapForValidIteratorPrototype_next(_args: Arguments, { thisValue }: FunctionCallContext): ValueEvaluator {
+  // 1. Let O be this value.
+  const O = thisValue;
+  // 2. Perform ? RequireInternalSlot(O, [[Iterated]]).
+  Q(RequireInternalSlot(O, 'Iterated'));
+  // 3. Let iteratorRecord be O.[[Iterated]].
+  __ts_cast__<IteratorObject>(O);
+  const iteratorRecord: IteratorRecord = O.Iterated;
+  // 4. Return ? Call(iteratorRecord.[[NextMethod]], iteratorRecord.[[Iterator]]).
+  return Q(yield* Call(iteratorRecord.NextMethod, iteratorRecord.Iterator));
+}
+
+/** https://tc39.es/ecma262/#sec-%wrapforvaliditeratorprototype%.return */
+function* WrapForValidIteratorPrototype_return(_args: Arguments, { thisValue }: FunctionCallContext): ValueEvaluator {
+  // 1. Let O be this value.
+  const O = thisValue;
+  // 2. Perform ? RequireInternalSlot(O, [[Iterated]]).
+  Q(RequireInternalSlot(O, 'Iterated'));
+  // 3. Let iterator be O.[[Iterated]].[[Iterator]].
+  __ts_cast__<IteratorObject>(O);
+  const iteratorRecord: IteratorRecord = O.Iterated;
+  const iterator = iteratorRecord.Iterator;
+  // 4. Assert: iterator is an Object.
+  Assert(iterator instanceof ObjectValue);
+  // 5. Let returnMethod be ? GetMethod(iterator, "return").
+  const returnMethod = Q(yield* GetMethod(iterator, Value('return')));
+  // 6. If returnMethod is undefined, then
+  if (returnMethod instanceof UndefinedValue) {
+    // a. Return CreateIteratorResultObject(undefined, true).
+    return CreateIteratorResultObject(Value.undefined, Value.true);
+  }
+  // 7. Return ? Call(returnMethod, iterator).
+  return Q(yield* Call(returnMethod, iterator));
+}
+
+export function bootstrapWrapForValidIteratorPrototype(realmRec: Realm) {
+  const proto = bootstrapPrototype(realmRec, [
+    ['next', WrapForValidIteratorPrototype_next, 0],
+    ['return', WrapForValidIteratorPrototype_return, 0],
+  ], realmRec.Intrinsics['%Iterator.prototype%']);
+
+  realmRec.Intrinsics['%WrapForValidIteratorPrototype%'] = proto;
+}

package/src/intrinsics/bootstrap.mts

@@ -0,0 +1,153 @@
+import {
+  Descriptor,
+  JSStringValue,
+  NullValue,
+  ObjectValue,
+  SymbolValue,
+  UndefinedValue,
+  Value,
+  wellKnownSymbols,
+  type DescriptorInit,
+  type NativeSteps,
+} from '../value.mts';
+import { X } from '../completion.mts';
+import {
+  Assert,
+  CreateBuiltinFunction,
+  markBuiltinFunctionAsConstructor,
+  OrdinaryObjectCreate,
+  Realm,
+  type FunctionObject,
+} from '#self';
+
+type Accessor = [
+  getter: NativeSteps | UndefinedValue | FunctionObject,
+  setter?: NativeSteps | UndefinedValue | FunctionObject,
+];
+
+type Props = [
+  name: string | JSStringValue | SymbolValue,
+  value: Accessor | NativeSteps | Value,
+  fnLength?: number,
+  desc?: DescriptorInit,
+  async?: boolean
+];
+/** https://tc39.es/ecma262/#sec-ecmascript-standard-built-in-objects */
+export function assignProps(realmRec: Realm, obj: ObjectValue, props: readonly (Props | undefined)[]) {
+  for (const item of props) {
+    if (item === undefined) {
+      continue;
+    }
+    const [n, v, len, descriptor, async] = item;
+    const name = n instanceof Value ? n : Value(n);
+    if (Array.isArray(v)) {
+      // Every accessor property described in clauses 18 through 26 and in
+      // Annex B.2 has the attributes { [[Enumerable]]: false,
+      // [[Configurable]]: true } unless otherwise specified. If only a get
+      // accessor function is described, the set accessor function is the
+      // default value, undefined. If only a set accessor is described the get
+      // accessor is the default value, undefined.
+      let [
+        getter = Value.undefined,
+        setter = Value.undefined,
+      ] = v;
+      if (typeof getter === 'function') {
+        getter = CreateBuiltinFunction(
+          getter,
+          0,
+          name,
+          [],
+          realmRec,
+          undefined,
+          Value('get'),
+          async,
+        );
+      }
+      if (typeof setter === 'function') {
+        setter = CreateBuiltinFunction(
+          setter,
+          1,
+          name,
+          [],
+          realmRec,
+          undefined,
+          Value('set'),
+          async,
+        );
+      }
+      X(obj.DefineOwnProperty(name, Descriptor({
+        Getter: getter,
+        Setter: setter,
+        Enumerable: Value.false,
+        Configurable: Value.true,
+        ...descriptor,
+      })));
+    } else {
+      // Every other data property described in clauses 18 through 26 and in
+      // Annex B.2 has the attributes { [[Writable]]: true, [[Enumerable]]:
+      // false, [[Configurable]]: true } unless otherwise specified.
+      let value;
+      if (typeof v === 'function') {
+        Assert(typeof len === 'number');
+        value = CreateBuiltinFunction(v, len, name, [], realmRec, undefined, undefined, async);
+      } else {
+        value = v;
+      }
+      obj.properties.set(name, Descriptor({
+        Value: value,
+        Writable: Value.true,
+        Enumerable: Value.false,
+        Configurable: Value.true,
+        ...descriptor,
+      }));
+    }
+  }
+}
+
+export function bootstrapPrototype(realmRec: Realm, props: readonly (Props | undefined)[], Prototype: ObjectValue | NullValue, stringTag?: string) {
+  Assert(Prototype !== undefined);
+  const proto = OrdinaryObjectCreate(Prototype);
+
+  assignProps(realmRec, proto, props);
+
+  if (stringTag !== undefined) {
+    X(proto.DefineOwnProperty(wellKnownSymbols.toStringTag, Descriptor({
+      Value: Value(stringTag),
+      Writable: Value.false,
+      Enumerable: Value.false,
+      Configurable: Value.true,
+    })));
+  }
+
+  return proto;
+}
+
+export function bootstrapConstructor(realmRec: Realm, Constructor: NativeSteps, name: string, length: number, Prototype: ObjectValue, props: readonly (Props | undefined)[] = []) {
+  const cons = CreateBuiltinFunction(
+    markBuiltinFunctionAsConstructor(Constructor),
+    length,
+    Value(name),
+    [],
+    realmRec,
+  );
+
+  X(cons.DefineOwnProperty(Value('prototype'), Descriptor({
+    Value: Prototype,
+    Writable: Value.false,
+    Enumerable: Value.false,
+    Configurable: Value.false,
+  })));
+
+  if (!Prototype.properties.has('constructor')) {
+    X(Prototype.DefineOwnProperty(Value('constructor'), Descriptor({
+      Value: cons,
+      Writable: Value.true,
+      Enumerable: Value.false,
+      Configurable: Value.true,
+    })));
+  }
+
+  assignProps(realmRec, cons, props);
+
+  return cons;
+}

package/src/intrinsics/eval.mts

@@ -0,0 +1,16 @@
+import { Q, type ValueEvaluator } from '../completion.mts';
+import { Value, type Arguments } from '../value.mts';
+import {
+  CreateBuiltinFunction,
+  PerformEval,
+} from '#self';
+import type { Realm } from '#self';
+
+/** https://tc39.es/ecma262/#sec-eval-x */
+function* Eval([x = Value.undefined]: Arguments): ValueEvaluator {
+  return Q(yield* PerformEval(x, false, false));
+}
+
+export function bootstrapEval(realmRec: Realm) {
+  realmRec.Intrinsics['%eval%'] = CreateBuiltinFunction(Eval, 1, Value('eval'), [], realmRec);
+}

package/src/intrinsics/isFinite.mts

@@ -0,0 +1,23 @@
+import { Value, type Arguments } from '../value.mts';
+import { Q, type ValueEvaluator } from '../completion.mts';
+import {
+  ToNumber,
+  CreateBuiltinFunction,
+  Realm,
+} from '#self';
+
+/** https://tc39.es/ecma262/#sec-isfinite-number */
+function* IsFinite([number = Value.undefined]: Arguments): ValueEvaluator {
+  // 1. Let num be ? ToNumber(number).
+  const num = Q(yield* ToNumber(number));
+  // 2. If num is NaN, +∞, or -∞, return false.
+  if (num.isNaN() || num.isInfinity()) {
+    return Value.false;
+  }
+  // 3. Otherwise, return true.
+  return Value.true;
+}
+
+export function bootstrapIsFinite(realmRec: Realm) {
+  realmRec.Intrinsics['%isFinite%'] = CreateBuiltinFunction(IsFinite, 1, Value('isFinite'), [], realmRec);
+}

package/src/intrinsics/isNaN.mts

@@ -0,0 +1,23 @@
+import { Value, type Arguments } from '../value.mts';
+import { Q, type ValueEvaluator } from '../completion.mts';
+import {
+  ToNumber,
+  CreateBuiltinFunction,
+  Realm,
+} from '#self';
+
+/** https://tc39.es/ecma262/#sec-isnan-number */
+function* IsNaN([number = Value.undefined]: Arguments): ValueEvaluator {
+  // 1. Let num be ? ToNumber(number).
+  const num = Q(yield* ToNumber(number));
+  // 2. If num is NaN, return true.
+  if (num.isNaN()) {
+    return Value.true;
+  }
+  // 3. Otherwise, return false.
+  return Value.false;
+}
+
+export function bootstrapIsNaN(realmRec: Realm) {
+  realmRec.Intrinsics['%isNaN%'] = CreateBuiltinFunction(IsNaN, 1, Value('isNaN'), [], realmRec);
+}

package/src/intrinsics/parseFloat.mts

@@ -0,0 +1,78 @@
+import { Q, X, type ValueEvaluator } from '../completion.mts';
+import { Value, type Arguments } from '../value.mts';
+import {
+  TrimString,
+} from '../runtime-semantics/all.mts';
+import {
+  CreateBuiltinFunction,
+  ToString,
+  F,
+  Realm,
+} from '#self';
+
+/** https://tc39.es/ecma262/#sec-parsefloat-string */
+function* ParseFloat([string = Value.undefined]: Arguments): ValueEvaluator {
+  // 1. Let inputString be ? ToString(string).
+  const inputString = Q(yield* ToString(string));
+  // 2. Let trimmedString be ! TrimString(inputString, start).
+  const trimmedString = X(TrimString(inputString, 'start')).stringValue();
+  // 3. If neither trimmedString nor any prefix of trimmedString satisfies the syntax of a StrDecimalLiteral (see 7.1.4.1), return NaN.
+  // 4. Let numberString be the longest prefix of trimmedString, which might be trimmedString itself, that satisfies the syntax of a StrDecimalLiteral.
+  // 5. Let mathFloat be MV of numberString.
+  // 6. If mathFloat = 0ℝ, then
+  //   a. If the first code unit of trimmedString is the code unit 0x002D (HYPHEN-MINUS), return -0.
+  //   b. Return +0.
+  // 7. Return the Number value for mathFloat.
+  let numberString = trimmedString;
+  if (/^[+-]/.test(numberString)) {
+    numberString = numberString.slice(1);
+  }
+  const multiplier = trimmedString.startsWith('-') ? -1 : 1;
+  if (numberString.startsWith('Infinity')) {
+    return F(Infinity * multiplier);
+  }
+  let index = 0;
+  done: { // eslint-disable-line no-labels
+    // Eat leading zeros
+    while (numberString[index] === '0') {
+      index += 1;
+      if (index === numberString.length) {
+        return F(+0 * multiplier);
+      }
+    }
+    // Eat integer part
+    if (numberString[index] !== '.') {
+      while (/[0-9]/.test(numberString[index])) {
+        index += 1;
+      }
+    }
+    // Eat fractional part
+    if (numberString[index] === '.') {
+      if (!/[0-9eE]/.test(numberString[index + 1])) {
+        break done; // eslint-disable-line no-labels
+      }
+      index += 1;
+      while (/[0-9]/.test(numberString[index])) {
+        index += 1;
+      }
+    }
+    // Eat exponent part
+    if (numberString[index] === 'e' || numberString[index] === 'E') {
+      if (!/[-+0-9]/.test(numberString[index + 1])) {
+        break done; // eslint-disable-line no-labels
+      }
+      index += 1;
+      if (numberString[index] === '-' || numberString[index] === '+') {
+        index += 1;
+      }
+      while (/[0-9]/.test(numberString[index])) {
+        index += 1;
+      }
+    }
+  }
+  return F(parseFloat(numberString.slice(0, index)) * multiplier);
+}
+
+export function bootstrapParseFloat(realmRec: Realm) {
+  realmRec.Intrinsics['%parseFloat%'] = CreateBuiltinFunction(ParseFloat, 1, Value('parseFloat'), [], realmRec);
+}

package/src/intrinsics/parseInt.mts

@@ -0,0 +1,85 @@
+import { TrimString } from '../runtime-semantics/all.mts';
+import { Q, X, type ValueEvaluator } from '../completion.mts';
+import { Value, type Arguments } from '../value.mts';
+import {
+  Assert,
+  CreateBuiltinFunction,
+  ToInt32,
+  ToString,
+  F, R,
+  Realm,
+} from '#self';
+
+function digitToNumber(_digit: string) {
+  let digit = _digit.charCodeAt(0);
+  if (digit < 0x30 /* 0 */) {
+    return NaN;
+  }
+  if (digit <= 0x39 /* 9 */) {
+    return digit - 0x30;
+  }
+  // Convert to lower case.
+  digit &= ~0x20; // eslint-disable-line no-bitwise
+  if (digit < 0x41 /* A */) {
+    return NaN;
+  }
+  if (digit <= 0x5a /* Z */) {
+    return digit - 0x41 /* A */ + 10;
+  }
+  return NaN;
+}
+
+function stringToRadixNumber(str: string, R: number) {
+  let num = 0;
+  for (let i = 0; i < str.length; i += 1) {
+    const power = str.length - i - 1;
+    const multiplier = R ** power;
+    const dig = digitToNumber(str[i]);
+    Assert(!Number.isNaN(dig) && dig < R);
+    num += dig * multiplier;
+  }
+  return num;
+}
+
+function searchNotRadixDigit(str: string, R: number) {
+  for (let i = 0; i < str.length; i += 1) {
+    const num = digitToNumber(str[i]);
+    if (Number.isNaN(num) || num >= R) {
+      return i;
+    }
+  }
+  return str.length;
+}
+
+/** https://tc39.es/ecma262/#sec-parseint-string-radix */
+function* ParseInt([string = Value.undefined, radix = Value.undefined]: Arguments): ValueEvaluator {
+  const inputString = Q(yield* ToString(string));
+  let radixMV = R(Q(yield* ToInt32(radix)));
+  if (radixMV !== 0 && (radixMV < 2 || radixMV > 36)) return F(NaN);
+  let trimmedString = X(TrimString(inputString, 'start')).stringValue();
+  if (trimmedString === '') return F(NaN);
+  let sign = 1;
+  if (trimmedString[0] === '\x2D') {
+    sign = -1;
+    trimmedString = trimmedString.slice(1);
+  } else if (trimmedString[0] === '\x2B') {
+    trimmedString = trimmedString.slice(1);
+  }
+  if (radixMV === 0 || radixMV === 16) {
+    if (trimmedString.length >= 2 && trimmedString.slice(0, 2).toLowerCase() === '0x') {
+      trimmedString = trimmedString.slice(2);
+      radixMV = 16;
+    }
+    if (radixMV === 0) radixMV = 10;
+  }
+  const end = searchNotRadixDigit(trimmedString, radixMV);
+  const numberString = trimmedString.slice(0, end);
+  if (numberString === '') return F(NaN);
+  const mathInt = stringToRadixNumber(numberString, radixMV);
+  if (sign === -1 && mathInt === 0) return F(-0);
+  return F(sign * mathInt);
+}
+
+export function bootstrapParseInt(realmRec: Realm) {
+  realmRec.Intrinsics['%parseInt%'] = CreateBuiltinFunction(ParseInt, 2, Value('parseInt'), [], realmRec);
+}