diff options
Diffstat (limited to 'src/bindings/quickjs.nim')
| -rw-r--r-- | src/bindings/quickjs.nim | 129 |
1 files changed, 129 insertions, 0 deletions
diff --git a/src/bindings/quickjs.nim b/src/bindings/quickjs.nim new file mode 100644 index 00000000..76cd74cd --- /dev/null +++ b/src/bindings/quickjs.nim @@ -0,0 +1,129 @@ +import os + +const javascriptDirs = ["/usr", "/lib", "/usr/lib", "/usr/local/lib", "/usr/local"] +const lib = (func(): string = + when defined(posix): + for dir in javascriptDirs: + for dir in @[dir, dir / "quickjs"]: + if fileExists(dir / "libquickjs.a"): + return dir +)() +const hlib = (func(): string = + when defined(posix): + for dir in javascriptDirs: + for dir in @[dir / "include", dir / "include" / "quickjs"]: + if fileExists(dir / "quickjs.h"): + return dir +)() +const qjsheader = "<quickjs/quickjs.h>" + +when lib != "": + {.passL: "-L" & lib.} +when hlib != "": + {.passC: "-I" & hlib.} +{.passL: "-lquickjs -lm -lpthread".} + +when sizeof(int) < sizeof(int64): + {.passC: "-DJS_NAN_BOXING".} + type + JSValue* {.importc: "JSValue", header: qjsheader.} = uint64 + # uh this won't compile you're on your own +else: + type + JSValueUnion {.union.} = object + int32: int32 + float64: float64 + `ptr`: pointer + JSValue* {.importc: "JSValue", header: qjsheader.} = object + u: JSValueUnion + tag: int64 + +type + JSRuntime* = ptr object + JSContext* = ptr object + JSCFunction* = proc (ctx: JSContext, this_val: JSValue, argc: int, argv: ptr JSValue): JSValue {.cdecl.} + JSCFunctionEnum* {.size: sizeof(cint).} = enum + JS_CFUNC_generic, JS_CFUNC_generic_magic, JS_CFUNC_constructor, + JS_CFUNC_constructor_magic, JS_CFUNC_constructor_or_func, + JS_CFUNC_constructor_or_func_magic, JS_CFUNC_f_f, JS_CFUNC_f_f_f, + JS_CFUNC_getter, JS_CFUNC_setter, JS_CFUNC_getter_magic, + JS_CFUNC_setter_magic, JS_CFUNC_iterator_next + +const ## all tags with a reference count are negative + JS_TAG_FIRST* = -10 ## first negative tag + JS_TAG_BIG_INT* = -10 + JS_TAG_BIG_FLOAT* = -9 + JS_TAG_SYMBOL* = -8 + JS_TAG_STRING* = -7 + JS_TAG_SHAPE* = -6 ## used internally during GC + JS_TAG_ASYNC_FUNCTION* = -5 ## used internally during GC + JS_TAG_VAR_REF* = -4 ## used internally during GC + JS_TAG_MODULE* = -3 ## used internally + JS_TAG_FUNCTION_BYTECODE* = -2 ## used internally + JS_TAG_OBJECT* = -1 + JS_TAG_INT* = 0 + JS_TAG_BOOL* = 1 + JS_TAG_NULL* = 2 + JS_TAG_UNDEFINED* = 3 + JS_TAG_UNINITIALIZED* = 4 + JS_TAG_CATCH_OFFSET* = 5 + JS_TAG_EXCEPTION* = 6 + JS_TAG_FLOAT64* = 7 ## any larger tag is FLOAT64 if JS_NAN_BOXING + +template JS_MKVAL*(t, val: untyped): JSValue = + JSValue(u: JSValueUnion(`int32`: val), tag: t) + +const + JS_NULL* = JS_MKVAL(JS_TAG_NULL, 0) + JS_UNDEFINED* = JS_MKVAL(JS_TAG_UNDEFINED, 0) + JS_FALSE* = JS_MKVAL(JS_TAG_BOOL, 0) + JS_TRUE* = JS_MKVAL(JS_TAG_BOOL, 1) + JS_EXCEPTION* = JS_MKVAL(JS_TAG_EXCEPTION, 0) + JS_UNINITIALIZED* = JS_MKVAL(JS_TAG_UNINITIALIZED, 0) + +const + JS_EVAL_TYPE_GLOBAL* = (0 shl 0) ## global code (default) + JS_EVAL_TYPE_MODULE* = (1 shl 0) ## module code + JS_EVAL_TYPE_DIRECT* = (2 shl 0) ## direct call (internal use) + JS_EVAL_TYPE_INDIRECT* = (3 shl 0) ## indirect call (internal use) + JS_EVAL_TYPE_MASK* = (3 shl 0) + JS_EVAL_FLAG_SHEBANG* = (1 shl 2) ## skip first line beginning with '#!' + JS_EVAL_FLAG_STRICT* = (1 shl 3) ## force 'strict' mode + JS_EVAL_FLAG_STRIP* = (1 shl 4) ## force 'strip' mode + JS_EVAL_FLAG_COMPILE_ONLY* = (1 shl 5) ## internal use + +proc JS_NewRuntime*(): JSRuntime {.importc: "JS_NewRuntime", header: qjsheader.} +proc JS_FreeRuntime*(rt: JSRuntime) {.importc: "JS_FreeRuntime", header: qjsheader.} + +proc JS_NewContext*(rt: JSRuntime): JSContext {.importc: "JS_NewContext", header: qjsheader.} +proc JS_FreeContext*(ctx: JSContext) {.importc: "JS_FreeContext", header: qjsheader.} + +proc JS_GetGlobalObject*(ctx: JSContext): JSValue {.importc: "JS_GetGlobalObject", header: qjsheader.} + +proc JS_NewObject*(ctx: JSContext): JSValue {.importc: "JS_NewObject", header: qjsheader.} + +proc JS_NewCFunction2*(ctx: JSContext, cfunc: JSCFunction, name: cstring, length: int, proto: JSCFunctionEnum, magic: int): JSValue {.importc: "JS_NewCFunction2", header: qjsheader.} +proc JS_NewCFunction*(ctx: JSContext, cfunc: JSCFunction, name: cstring, length: int): JSValue {.importc: "JS_NewCFunction", header: qjsheader.} + +proc JS_SetPropertyStr*(ctx: JSContext, this_obj: JSValue, prop: cstring, val: JSValue): int + {.importc: "JS_SetPropertyStr", header: qjsheader.} +proc JS_GetPropertyStr*(ctx: JSContext, this_obj: JSValue, prop: cstring): JSValue + {.importc: "JS_GetPropertyStr", header: qjsheader.} + +proc JS_FreeValue*(ctx: JSContext, v: JSValue) {.importc: "JS_FreeValue", header: qjsheader.} + +# use toString if possible +proc JS_ToCStringLen*(ctx: JSContext, plen: ptr int, val1: JSValue): cstring {.importc: "JS_ToCStringLen", header: qjsheader.} +proc JS_ToCString*(ctx: JSContext, val1: JSValue): cstring {.importc: "JS_ToCString", header: qjsheader.} +proc JS_FreeCString*(ctx: JSContext, `ptr`: cstring) {.importc: "JS_FreeCString", header: qjsheader.} + +proc JS_Eval*(ctx: JSContext, input: cstring, input_len: int, filename: cstring, eval_flags: int): JSValue {.importc: "JS_Eval", header: qjsheader.} + +proc JS_IsException*(v: JSValue): bool {.importc: "JS_IsException", header: qjsheader.} +proc JS_IsError*(v: JSValue): bool {.importc: "JS_IsError", header: qjsheader.} +proc JS_IsUndefined*(v: JSValue): bool {.importc: "JS_IsUndefined", header: qjsheader.} + +proc JS_GetException*(ctx: JSContext): JSValue {.importc: "JS_GetException", header: qjsheader.} + +proc JS_SetContextOpaque*(ctx: JSContext, opaque: pointer) {.importc: "JS_SetContextOpaque", header: qjsheader.} +proc JS_GetContextOpaque*(ctx: JSContext): pointer {.importc: "JS_GetContextOpaque", header: qjsheader.} |