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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
import monoucha/javascript
import monoucha/jsopaque
import monoucha/quickjs
import types/referrer
import types/url
import utils/twtstr
type
ScriptingMode* = enum
smFalse = "false"
smTrue = "true"
smApp = "app"
ParserMetadata* = enum
pmParserInserted, pmNotParserInserted
ScriptType* = enum
stNone, stClassic, stModule, stImportMap
ScriptResultType* = enum
srtNull, srtScript, srtImportMapParse, srtFetching
RequestDestination* = enum
rdNone = ""
rdAudio = "audio"
rdAudioworklet = "audioworklet"
rdDocument = "document"
rdEmbed = "embed"
rdFont = "font"
rdFrame = "frame"
rdIframe = "iframe"
rdImage = "image"
rdJson = "json"
rdManifest = "manifest"
rdObject = "object"
rdPaintworklet = "paintworklet"
rdReport = "report"
rdScript = "script"
rdServiceworker = "serviceworker"
rdSharedworker = "sharedworker"
rdStyle = "style"
rdTrack = "track"
rdWorker = "worker"
rdXslt = "xslt"
CredentialsMode* = enum
cmSameOrigin = "same-origin"
cmOmit = "omit"
cmInclude = "include"
type
EnvironmentSettings* = ref object
scripting*: ScriptingMode
moduleMap*: ModuleMap
origin*: Origin
Script* = ref object
#TODO setings
baseURL*: URL
options*: ScriptOptions
mutedErrors*: bool
#TODO parse error/error to rethrow
record*: JSValue
ScriptOptions* = object
nonce*: string
integrity*: string
parserMetadata*: ParserMetadata
credentialsMode*: CredentialsMode
referrerPolicy*: Option[ReferrerPolicy]
renderBlocking*: bool
ScriptResult* = ref object
case t*: ScriptResultType
of srtNull, srtFetching:
discard
of srtScript:
script*: Script
of srtImportMapParse:
discard #TODO
ModuleMapEntry = object
key: tuple[url, moduleType: string]
value*: ScriptResult
ModuleMap* = seq[ModuleMapEntry]
# Forward declaration hack
# set in html/dom
var errorImpl*: proc(ctx: JSContext; ss: varargs[string]) {.nimcall.}
proc find*(moduleMap: ModuleMap; url: URL; moduleType: string): int =
let surl = $url
for i, entry in moduleMap.mypairs:
if entry.key.moduleType == moduleType and entry.key.url == surl:
return i
return -1
proc set*(moduleMap: var ModuleMap; url: URL; moduleType: string;
value: ScriptResult; ctx: JSContext) =
let i = moduleMap.find(url, moduleType)
if i != -1:
if moduleMap[i].value.t == srtScript:
JS_FreeValue(ctx, moduleMap[i].value.script.record)
moduleMap[i].value = value
else:
moduleMap.add(ModuleMapEntry(key: ($url, moduleType), value: value))
func moduleTypeToRequestDest*(moduleType: string; default: RequestDestination):
RequestDestination =
if moduleType == "json":
return rdJson
if moduleType == "css":
return rdStyle
return default
proc newClassicScript*(ctx: JSContext; source: string; baseURL: URL;
options: ScriptOptions; mutedErrors = false): ScriptResult =
let urls = '<' & baseURL.serialize() & '>'
let record = ctx.compileScript(source, urls)
return ScriptResult(
t: srtScript,
script: Script(
record: record,
baseURL: baseURL,
options: options,
mutedErrors: mutedErrors
)
)
proc newJSModuleScript*(ctx: JSContext; source: string; baseURL: URL;
options: ScriptOptions): ScriptResult =
let urls = baseURL.serialize(excludepassword = true)
let record = ctx.compileModule(source, urls)
return ScriptResult(
t: srtScript,
script: Script(
record: record,
baseURL: baseURL,
options: options
)
)
proc logException*(ctx: JSContext) =
ctx.errorImpl(ctx.getExceptionMsg())
func uninitIfNull*(val: JSValue): JSValue =
if JS_IsNull(val):
return JS_UNINITIALIZED
return val
proc defineConsts*(ctx: JSContext; classid: JSClassID; consts: typedesc[enum]) =
let proto = JS_GetClassProto(ctx, classid)
let ctorProto = JS_GetPrototype(ctx, ctx.getOpaque().ctors[classid])
#TODO it should be enough to define on the proto only, but apparently
# it isn't...
for e in consts:
let s = $e
ctx.definePropertyE(proto, s, uint16(e))
ctx.definePropertyE(ctorProto, s, uint16(e))
JS_FreeValue(ctx, ctorProto)
JS_FreeValue(ctx, proto)
|