test: fix build and tests

nostrscript/nostrscript.c

@@ -0,0 +1,192 @@
+//
+//  nostrscript.c
+//  damus
+//
+//  Created by William Casarin on 2023-06-02.
+//
+
+#include "nostrscript.h"
+#include "wasm.h"
+#include "array_size.h"
+
+// function to check if the character is in surrogate pair range
+static INLINE int is_surrogate(uint16_t uc) {
+    return (uc - 0xd800u) < 2048u;
+}
+
+// function to convert utf16 to utf8
+static int utf16_to_utf8(u16 utf16, u8 *utf8) {
+    if (utf16 < 0x80) { // 1-byte sequence
+        utf8[0] = (uint8_t) utf16;
+        return 1;
+    }
+    else if (utf16 < 0x800) { // 2-byte sequence
+        utf8[0] = (uint8_t) (0xc0 | (utf16 >> 6));
+        utf8[1] = (uint8_t) (0x80 | (utf16 & 0x3f));
+        return 2;
+    }
+    else if (!is_surrogate(utf16)) { // 3-byte sequence
+        utf8[0] = (uint8_t) (0xe0 | (utf16 >> 12));
+        utf8[1] = (uint8_t) (0x80 | ((utf16 >> 6) & 0x3f));
+        utf8[2] = (uint8_t) (0x80 | (utf16 & 0x3f));
+        return 3;
+    }
+    else { // surrogate pair, return error
+        return -1;
+    }
+}
+
+static int nostr_cmd(struct wasm_interp *interp) {
+    struct val *params = NULL;
+    const char *val = NULL;
+    int len, cmd, ival;
+    
+    if (!get_params(interp, &params, 3) || params == NULL)
+        return interp_error(interp, "get params");
+
+    // command
+    cmd = params[0].num.i32;
+    
+    // value
+    
+    ival = params[1].num.i32;
+    if (!mem_ptr_str(interp, ival, &val))
+        val = 0;
+
+    // length
+    len = params[2].num.i32;
+
+    intptr_t iptr = ival;
+    return nscript_nostr_cmd(interp, cmd, val ? (void*)val : (void*)iptr, len);
+}
+
+static int print_utf16_str(u16 *chars) {
+    u16 *p = chars;
+    int c;
+    
+    while (*p) {
+        if (utf16_to_utf8(*p, (u8*)&c) == -1)
+            return 0;
+        
+        printf("%c", c);
+        
+        p++;
+    }
+    
+    return 1;
+}
+
+static int nostr_log(struct wasm_interp *interp) {
+    struct val *vals;
+    const char *str;
+    struct callframe *callframe;
+    
+    if (!get_params(interp, &vals, 1))
+        return interp_error(interp, "nostr_log get params");
+    
+    if (!mem_ptr_str(interp, vals[0].num.i32, &str))
+        return interp_error(interp, "nostr_log log param");
+    
+    if (!(callframe = top_callframes(&interp->callframes, 2)))
+        return interp_error(interp, "nostr_log callframe");
+    
+    printf("nostr_log:%s: ", callframe->func->name);
+    
+    print_utf16_str((u16*)str);
+    printf("\n");
+    
+    return 1;
+}
+
+static int nostr_set_bool(struct wasm_interp *interp) {
+    struct val *params = NULL;
+    const u16 *setting;
+    u32 val, len;
+
+    if (!get_params(interp, &params, 3) || params == NULL)
+        return 0;
+
+    if (!mem_ptr_str(interp, params[0].num.i32, (const char**)&setting))
+        return 0;
+
+    len = params[1].num.i32;
+    val = params[2].num.i32 > 0 ? 1 : 0;
+
+    return nscript_set_bool(interp, setting, len, val);
+}
+
+static int nostr_pool_send_to(struct wasm_interp *interp) {
+    struct val *params = NULL;
+    const u16 *req, *to;
+    int req_len, to_len;
+    
+    if (!get_params(interp, &params, 4) || params == NULL)
+        return 0;
+
+    if (!mem_ptr_str(interp, params[0].num.i32, (const char**)&req))
+        return 0;
+    
+    req_len = params[1].num.i32;
+    
+    if (!mem_ptr_str(interp, params[2].num.i32, (const char**)&to))
+        return 0;
+    
+    to_len = params[3].num.i32;
+    
+    return nscript_pool_send_to(interp, req, req_len, to, to_len);
+}
+
+static int nscript_abort(struct wasm_interp *interp) {
+    struct val *params = NULL;
+    const char *msg = "", *filename;
+    int line, col;
+    
+    if (!get_params(interp, &params, 4) || params == NULL)
+        return interp_error(interp, "get params");
+    
+    if (params[0].ref.addr != 0 && !mem_ptr_str(interp, params[0].ref.addr, &msg))
+        return interp_error(interp, "abort msg");
+
+    if (!mem_ptr_str(interp, params[1].ref.addr, &filename))
+        return interp_error(interp, "abort filename");
+    
+    line = params[2].num.i32;
+    col = params[3].num.i32;
+
+    printf("nscript_abort:");
+    print_utf16_str((u16*)filename);
+    printf(":%d:%d: ", line, col);
+    print_utf16_str((u16*)msg);
+    printf("\n");
+    
+    return 0;
+}
+
+static struct builtin nscript_builtins[] = {
+    { .name = "null", .fn = 0 },
+    { .name = "nostr_log", .fn = nostr_log },
+    { .name = "nostr_cmd", .fn = nostr_cmd },
+    { .name = "nostr_pool_send_to", .fn = nostr_pool_send_to },
+    { .name = "nostr_set_bool", .fn = nostr_set_bool },
+    { .name = "abort", .fn = nscript_abort },
+};
+
+int nscript_load(struct wasm_parser *p, struct wasm_interp *interp, unsigned char *wasm, unsigned long len) {
+    wasm_parser_init(p, wasm, len, len * 16, nscript_builtins, ARRAY_SIZE(nscript_builtins));
+
+    if (!parse_wasm(p)) {
+        wasm_parser_free(p);
+        return NSCRIPT_PARSE_ERR;
+    }
+
+    if (!wasm_interp_init(interp, &p->module)) {
+        print_error_backtrace(&interp->errors);
+        wasm_parser_free(p);
+        return NSCRIPT_INIT_ERR;
+    }
+
+    //setup_wasi(&interp, argc, argv, env);
+    //wasm_parser_free(&p);
+    
+    return NSCRIPT_LOADED;
+}

nostrscript/nostrscript.h

@@ -0,0 +1,24 @@
+//
+//  nostrscript.h
+//  damus
+//
+//  Created by William Casarin on 2023-06-02.
+//
+
+#ifndef nostrscript_h
+#define nostrscript_h
+
+#define NSCRIPT_LOADED 1
+#define NSCRIPT_PARSE_ERR 2
+#define NSCRIPT_INIT_ERR 3
+
+#include <stdio.h>
+#include "wasm.h"
+
+int nscript_load(struct wasm_parser *p, struct wasm_interp *interp, unsigned char *wasm, unsigned long len);
+int nscript_nostr_cmd(struct wasm_interp *interp, int, void*, int);
+int nscript_pool_send_to(struct wasm_interp *interp, const u16*, int, const u16 *, int);
+int nscript_set_bool(struct wasm_interp *interp, const u16*, int, int);
+
+
+#endif /* nostrscript_h */