A small scripting language for Linux systems.

let passwd = `
root:x:0:0:root:/root:/bin/bash
daemon:x:1:1:daemon:/usr/sbin:/usr/sbin/nologin
`;

let users = map(
    filter(split(trim(passwd), "\n"), (l) => length(l) > 0),
    (l) => {
        let f = split(l, ":");

        return { name: f[0], uid: int(f[2]), home: f[5], shell: f[6] };
    }
);

printf("%-8s %4s  %-10s %s\n", "NAME", "UID", "HOME", "SHELL");

for (let u in users)
    printf("%-8s %4d  %-10s %s\n", u.name, u.uid, u.home, u.shell);

let rule = { name: "allow-dhcp", proto: "udp", ports: [ 67, 68 ] };

/* any value serialises with one format specifier... */
printf("%J\n", rule);

/* ...and JSON text parses back with the json() builtin */
let conf = json('{ "log": 64, "zones": [ "lan", "wan" ] }');

printf("%.4J\n", conf);

#include <ucode/compiler.h>
#include <ucode/lib.h>
#include <ucode/vm.h>

static uc_value_t *
twice(uc_vm_t *vm, size_t nargs)
{
    return ucv_int64_new(2 * ucv_int64_get(uc_fn_arg(0)));
}

int main(int argc, char **argv)
{
    uc_parse_config_t config = { .raw_mode = true };
    char *error = NULL;

    uc_source_t *src = uc_source_new_file(argv[1]);
    uc_program_t *prog = uc_compile(&config, src, &error);

    uc_source_put(src);

    uc_vm_t vm = { 0 };
    uc_vm_init(&vm, &config);
    uc_stdlib_load(uc_vm_scope_get(&vm));

    /* expose a native function to the script */
    ucv_object_add(uc_vm_scope_get(&vm), "twice",
                   ucv_cfunction_new("twice", twice));

    uc_vm_execute(&vm, prog, NULL);

    uc_program_put(prog);
    uc_vm_free(&vm);

    return 0;
}