unary.h
No OneTemporary
Actions

Size

1 KB

Referenced Files

None

Subscribers

None

unary.h
View Options

	#ifndef SV_UNARY_H
	#define SV_UNARY_H

	#include "silver/engine.h"
	#include <stdlib.h>
	#include <string.h>

	static inline void sv_op_not(sv_vm_t vm, ant_t js) {
	ant_value_t a = vm->stack[--vm->sp];
	vm->stack[vm->sp++] = mkval(T_BOOL, !js_truthy(js, a));
	}

	static inline void sv_op_typeof(sv_vm_t vm, ant_t js) {
	ant_value_t a = vm->stack[--vm->sp];
	const char *ts = typestr(vtype(a));
	vm->stack[vm->sp++] = js_mkstr(js, ts, strlen(ts));
	}

	static inline void sv_op_void(sv_vm_t *vm) {
	vm->sp--;
	vm->stack[vm->sp++] = mkval(T_UNDEF, 0);
	}

	static inline ant_value_t sv_op_delete(sv_vm_t vm, ant_t js) {
	ant_value_t key = vm->stack[--vm->sp];
	ant_value_t obj = vm->stack[--vm->sp];
	ant_value_t key_str = js_mkundef();

	if (vtype(key) == T_SYMBOL) {
	ant_value_t result = js_delete_sym_prop(js, obj, key);
	if (is_err(result)) return result;
	vm->stack[vm->sp++] = result;
	return js_mkundef();
	} else key_str = coerce_to_str(js, key);

	if (!is_err(key_str) && vtype(key_str) == T_STR) {
	ant_offset_t klen = 0;
	ant_offset_t koff = vstr(js, key_str, &klen);
	const char kptr = (const char )(uintptr_t)(koff);
	ant_value_t result = js_delete_prop(js, obj, kptr, klen);
	if (is_err(result)) return result;
	vm->stack[vm->sp++] = result;
	} else vm->stack[vm->sp++] = mkval(T_BOOL, 0);

	return js_mkundef();
	}

	static inline void sv_op_delete_var(
	sv_vm_t vm, ant_t js,
	sv_func_t func, uint8_t ip
	) {
	sv_atom_t *a = &func->atoms[sv_get_u32(ip + 1)];
	ant_value_t result = js_delete_prop(js, js->global, a->str, a->len);
	vm->stack[vm->sp++] = result;
	}

	#endif