1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
{.push raises: [].}
import std/tables
import jserror
import quickjs
type
JSSymbolRef* = enum
jsyIterator = "iterator"
jsyAsyncIterator = "asyncIterator"
jsyToStringTag = "toStringTag"
JSStrRef* = enum
jstDone = "done"
jstValue = "value"
jstNext = "next"
jstPrototype = "prototype"
jstThen = "then"
jstCatch = "catch"
JSValueRef* = enum
jsvArrayPrototypeValues = "Array.prototype.values"
jsvUint8Array = "Uint8Array"
jsvObjectPrototypeValueOf = "Object.prototype.valueOf"
jsvSet = "Set"
jsvFunction = "Function"
JSContextOpaque* = ref object
creg*: Table[cstring, JSClassID]
typemap*: Table[pointer, JSClassID]
ctors*: seq[JSValue] # JSClassID -> JSValue
parents*: seq[JSClassID] # JSClassID -> JSClassID
# Parent unforgeables are merged on class creation.
# (i.e. to set all unforgeables on the prototype chain, it is enough to set)
# `unforgeable[classid]'.)
unforgeable*: seq[seq[JSCFunctionListEntry]] # JSClassID -> seq
gclass*: JSClassID # class ID of the global object
global*: JSValue
symRefs*: array[JSSymbolRef, JSAtom]
strRefs*: array[JSStrRef, JSAtom]
valRefs*: array[JSValueRef, JSValue]
errCtorRefs*: array[JSErrorEnum, JSValue]
htmldda*: JSClassID # only one of these exists: document.all.
globalUnref*: JSEmptyOpaqueCallback
JSFinalizerFunction* = proc(rt: JSRuntime; opaque: pointer) {.nimcall,
raises: [].}
JSEmptyOpaqueCallback* = (proc() {.closure, raises: [].})
JSRuntimeOpaque* = ref object
plist*: Table[pointer, tuple[p: pointer; jsref: bool]] # Nim, JS
flist*: seq[seq[JSCFunctionListEntry]]
fins*: Table[pointer, JSFinalizerFunction]
#TODO maybe just extract this from typemap on JSContext free?
inverseTypemap*: Table[JSClassID, pointer]
parentMap*: Table[pointer, pointer]
destroying*: pointer
# temp list for uninit
tmplist*: seq[pointer]
tmpunrefs*: seq[pointer]
func newJSContextOpaque*(ctx: JSContext): JSContextOpaque =
let opaque = JSContextOpaque(global: JS_GetGlobalObject(ctx))
block: # get well-known symbols and other functions
let sym = JS_GetPropertyStr(ctx, opaque.global, "Symbol")
for s in JSSymbolRef:
let name = $s
let val = JS_GetPropertyStr(ctx, sym, cstring(name))
assert JS_IsSymbol(val)
opaque.symRefs[s] = JS_ValueToAtom(ctx, val)
JS_FreeValue(ctx, val)
JS_FreeValue(ctx, sym)
for s in JSStrRef:
let ss = $s
opaque.strRefs[s] = JS_NewAtomLen(ctx, cstring(ss), csize_t(ss.len))
for s in JSValueRef:
let ss = $s
let ret = JS_Eval(ctx, cstring(ss), csize_t(ss.len), "<init>", 0)
assert JS_IsFunction(ctx, ret)
opaque.valRefs[s] = ret
for e in JSErrorEnum:
let s = $e
let err = JS_GetPropertyStr(ctx, opaque.global, cstring(s))
opaque.errCtorRefs[e] = err
return opaque
func getOpaque*(ctx: JSContext): JSContextOpaque =
return cast[JSContextOpaque](JS_GetContextOpaque(ctx))
func getOpaque*(rt: JSRuntime): JSRuntimeOpaque =
return cast[JSRuntimeOpaque](JS_GetRuntimeOpaque(rt))
func isGlobal*(ctx: JSContext; class: JSClassID): bool =
return ctx.getOpaque().gclass == class
proc setOpaque*(ctx: JSContext; val: JSValue; opaque: pointer) =
let rt = JS_GetRuntime(ctx)
let rtOpaque = rt.getOpaque()
let p = JS_VALUE_GET_PTR(val)
rtOpaque.plist[opaque] = (p, true)
JS_SetOpaque(val, opaque)
func getOpaque*(val: JSValue): pointer =
if JS_VALUE_GET_TAG(val) == JS_TAG_OBJECT:
return JS_GetOpaque(val, JS_GetClassID(val))
return nil
{.pop.} # raises
|