tracy

.cell/lock.toml

@@ -1,6 +0,0 @@
-[modules]
-[modules.extramath]
-hash = "MCLZT3JABTAENS4WVXKGWJ7JPBLZER4YQ5VN2PE7ZD2Z4WYGTIMA===="
-url = "https://gitea.pockle.world/john/extramath@master"
-downloaded = "Monday June 2 12:07:20.42 PM -5 2025 AD"
-commit = "84d81a19a8455bcf8dc494739e9e6d545df6ff2c"

.gitignore

@@ -1,5 +1,6 @@
 .git/
 .obj/
+website/
 bin/
 build/
 *.zip

CLAUDE.md

@@ -0,0 +1,25 @@
+# Code style
+All code is done with 2 spaces for indentation.
+
+For cell script and its integration files, objects are preferred over classes, and preferrably limited use of prototypes, make objects sendable between actors (.ce files).
+
+## cell script format
+Cell script files end in .ce or .cm. Cell script is similar to Javascript but with some differences.
+
+Variables are delcared with 'var'. Var behaves like let.
+Constants are declared with 'def'.
+!= and == are strict, there is no !== or ===.
+There is no undefined, only null.
+There are no classes, only objects and prototypes.
+Prefer backticks for string interpolation. Otherwise, convering non strings with the text() function is required.
+Everything should be lowercase.
+
+There are no arraybuffers, only blobs, which work with bits. They must be stoned like stone(blob) before being read from.
+
+## c format
+For cell script integration files, everything should be declared static that can be. Most don't have headers at all. Files in a package are not shared between packages.
+
+There is no undefined, so JS_IsNull and JS_NULL should be used only.
+
+## how module loading is done in cell script
+Within a package, a c file, if using the correct macros (CELL_USE_FUNCS etc), will be loaded as a module with its name; so png.c inside ac package is loaded as <package>/png, giving you access to its functions.

add.ce

@@ -1,28 +1,103 @@
-// cell add <locator> [alias] - Add and install a package with its dependencies
+// cell add <locator> [alias] - Add a dependency to the current package
+//
+// Usage:
+//   cell add <locator>         Add a dependency using default alias
+//   cell add <locator> <alias> Add a dependency with custom alias
+//
+// This adds the dependency to cell.toml and installs it to the shop.
 
 var shop = use('internal/shop')
+var pkg = use('package')
+var build = use('build')
 var fd = use('fd')
 
-if (args.length < 1) {
+var locator = null
+var alias = null
+
+array(args, function(arg) {
+  if (arg == '--help' || arg == '-h') {
     log.console("Usage: cell add <locator> [alias]")
+    log.console("")
+    log.console("Add a dependency to the current package.")
+    log.console("")
     log.console("Examples:")
-  log.console("  cell add gitea.pockle.world/john/prosperon@main")
-  log.console("  cell add github.com/user/repo@v1.0.0 myalias")
+    log.console("  cell add gitea.pockle.world/john/prosperon")
+    log.console("  cell add gitea.pockle.world/john/cell-image image")
+    log.console("  cell add ../local-package")
+    $stop()
+  } else if (!starts_with(arg, '-')) {
+    if (!locator) {
+      locator = arg
+    } else if (!alias) {
+      alias = arg
+    }
+  }
+})
+
+if (!locator) {
+  log.console("Usage: cell add <locator> [alias]")
   $stop()
-  return
 }
 
-var locator = args[0]
-
 // Resolve relative paths to absolute paths
-if (locator == '.' || locator.startsWith('./') || locator.startsWith('../') || fd.is_dir(locator)) {
+if (locator == '.' || starts_with(locator, './') || starts_with(locator, '../') || fd.is_dir(locator)) {
   var resolved = fd.realpath(locator)
   if (resolved) {
     locator = resolved
   }
 }
-var alias = args.length > 1 ? args[1] : null
 
-shop.get(locator, alias)
+// Generate default alias from locator
+if (!alias) {
+  // Use the last component of the locator as alias
+  var parts = array(locator, '/')
+  alias = parts[length(parts) - 1]
+  // Remove any version suffix
+  if (search(alias, '@') != null) {
+    alias = array(alias, '@')[0]
+  }
+}
+
+// Check we're in a package directory
+var cwd = fd.realpath('.')
+if (!fd.is_file(cwd + '/cell.toml')) {
+  log.error("Not in a package directory (no cell.toml found)")
+  $stop()
+}
+
+log.console("Adding " + locator + " as '" + alias + "'...")
+
+// Add to local project's cell.toml
+try {
+  pkg.add_dependency(null, locator, alias)
+  log.console("  Added to cell.toml")
+} catch (e) {
+  log.error("Failed to update cell.toml: " + e)
+  $stop()
+}
+
+// Install to shop
+try {
+  shop.get(locator)
+  shop.extract(locator)
+
+  // Build scripts
+  shop.build_package_scripts(locator)
+
+  // Build C code if any
+  try {
+    var target = build.detect_host_target()
+    build.build_dynamic(locator, target, 'release')
+  } catch (e) {
+    // Not all packages have C code
+  }
+
+  log.console("  Installed to shop")
+} catch (e) {
+  log.error("Failed to install: " + e)
+  $stop()
+}
+
+log.console("Added " + alias + " (" + locator + ")")
 
 $stop()

bench.ce

@@ -3,7 +3,7 @@ var pkg = use('package')
 var fd = use('fd')
 var time = use('time')
 var json = use('json')
-var utf8 = use('utf8')
+var blob = use('blob')
 var os = use('os')
 var testlib = use('internal/testlib')
 var math = use('math/radians')
@@ -24,63 +24,45 @@ def MAX_BATCH_SIZE = 100000000 // 100M iterations max per batch
 
 // Statistical functions
 function median(arr) {
-  if (arr.length == 0) return 0
-  var sorted = arr.slice().sort(function(a, b) { return a - b })
-  var mid = number.floor(arr.length / 2)
-  if (arr.length % 2 == 0) {
+  if (length(arr) == 0) return 0
+  var sorted = sort(arr)
+  var mid = floor(length(arr) / 2)
+  if (length(arr) % 2 == 0) {
     return (sorted[mid - 1] + sorted[mid]) / 2
   }
   return sorted[mid]
 }
 
 function mean(arr) {
-  if (arr.length == 0) return 0
+  if (length(arr) == 0) return 0
   var sum = 0
-  for (var i = 0; i < arr.length; i++) {
-    sum += arr[i]
-  }
-  return sum / arr.length
+  arrfor(arr, function(val) {
+    sum += val
+  })
+  return sum / length(arr)
 }
 
 function stddev(arr, mean_val) {
-  if (arr.length < 2) return 0
+  if (length(arr) < 2) return 0
   var sum_sq_diff = 0
-  for (var i = 0; i < arr.length; i++) {
-    var diff = arr[i] - mean_val
+  arrfor(arr, function(val) {
+    var diff = val - mean_val
     sum_sq_diff += diff * diff
-  }
-  return math.sqrt(sum_sq_diff / (arr.length - 1))
+  })
+  return math.sqrt(sum_sq_diff / (length(arr) - 1))
 }
 
 function percentile(arr, p) {
-  if (arr.length == 0) return 0
-  var sorted = arr.slice().sort(function(a, b) { return a - b })
-  var idx = number.floor(arr.length * p / 100)
-  if (idx >= arr.length) idx = arr.length - 1
+  if (length(arr) == 0) return 0
+  var sorted = sort(arr)
+  var idx = floor(arr) * p / 100
+  if (idx >= length(arr)) idx = length(arr) - 1
   return sorted[idx]
 }
 
-function min_val(arr) {
-  if (arr.length == 0) return 0
-  var m = arr[0]
-  for (var i = 1; i < arr.length; i++) {
-    if (arr[i] < m) m = arr[i]
-  }
-  return m
-}
-
-function max_val(arr) {
-  if (arr.length == 0) return 0
-  var m = arr[0]
-  for (var i = 1; i < arr.length; i++) {
-    if (arr[i] > m) m = arr[i]
-  }
-  return m
-}
-
 // Parse arguments similar to test.ce
 function parse_args() {
-  if (args.length == 0) {
+  if (length(args) == 0) {
     if (!testlib.is_valid_package('.')) {
       log.console('No cell.toml found in current directory')
       return false
@@ -99,7 +81,7 @@ function parse_args() {
   }
 
   if (args[0] == 'package') {
-    if (args.length < 2) {
+    if (length(args) < 2) {
       log.console('Usage: cell bench package <name> [bench]')
       log.console('       cell bench package all')
       return false
@@ -115,7 +97,7 @@ function parse_args() {
     var lock = shop.load_lock()
     if (lock[name]) {
       target_pkg = name
-    } else if (name.startsWith('/') && testlib.is_valid_package(name)) {
+    } else if (starts_with(name, '/') && testlib.is_valid_package(name)) {
       target_pkg = name
     } else {
       if (testlib.is_valid_package('.')) {
@@ -132,7 +114,7 @@ function parse_args() {
       }
     }
 
-    if (args.length >= 3) {
+    if (length(args) >= 3) {
       target_bench = args[2]
     }
 
@@ -144,7 +126,7 @@ function parse_args() {
   var bench_path = args[0]
 
   // Normalize path - add benches/ prefix if not present
-  if (!bench_path.startsWith('benches/') && !bench_path.startsWith('/')) {
+  if (!starts_with(bench_path, 'benches/') && !starts_with(bench_path, '/')) {
     if (!fd.is_file(bench_path + '.cm') && !fd.is_file(bench_path)) {
       if (fd.is_file('benches/' + bench_path + '.cm') || fd.is_file('benches/' + bench_path)) {
         bench_path = 'benches/' + bench_path
@@ -177,19 +159,18 @@ function collect_benches(package_name, specific_bench) {
 
   var files = pkg.list_files(package_name)
   var bench_files = []
-  for (var i = 0; i < files.length; i++) {
-    var f = files[i]
-    if (f.startsWith("benches/") && f.endsWith(".cm")) {
+  arrfor(files, function(f) {
+    if (starts_with(f, "benches/") && ends_with(f, ".cm")) {
       if (specific_bench) {
-        var bench_name = f.substring(0, f.length - 3)
+        var bench_name = text(f, 0, -3)
         var match_name = specific_bench
-        if (!match_name.startsWith('benches/')) match_name = 'benches/' + match_name
-        var match_base = match_name.endsWith('.cm') ? match_name.substring(0, match_name.length - 3) : match_name
-        if (bench_name != match_base) continue
-      }
-      bench_files.push(f)
+        if (!starts_with(match_name, 'benches/')) match_name = 'benches/' + match_name
+        var match_base = ends_with(match_name, '.cm') ? text(match_name, 0, -3) : match_name
+        if (bench_name != match_base) return
       }
+      push(bench_files, f)
     }
+  })
   return bench_files
 }
 
@@ -203,7 +184,7 @@ function calibrate_batch_size(bench_fn, is_batch) {
   // Find a batch size that takes at least MIN_SAMPLE_NS
   while (n < MAX_BATCH_SIZE) {
     // Ensure n is a valid number before calling
-    if (typeof n != 'number' || n < 1) {
+    if (!is_number(n) || n < 1) {
       n = 1
       break
     }
@@ -217,7 +198,7 @@ function calibrate_batch_size(bench_fn, is_batch) {
     // Double the batch size
     var new_n = n * 2
     // Check if multiplication produced a valid number
-    if (typeof new_n != 'number' || new_n > MAX_BATCH_SIZE) {
+    if (!is_number(new_n) || new_n > MAX_BATCH_SIZE) {
       n = MAX_BATCH_SIZE
       break
     }
@@ -225,12 +206,12 @@ function calibrate_batch_size(bench_fn, is_batch) {
   }
 
   // Adjust to target sample duration
-  if (dt > 0 && dt < TARGET_SAMPLE_NS && typeof n == 'number' && typeof dt == 'number') {
+  if (dt > 0 && dt < TARGET_SAMPLE_NS && is_number(n) && is_number(dt)) {
     var calc = n * TARGET_SAMPLE_NS / dt
-    if (typeof calc == 'number' && calc > 0) {
-      var target_n = number.floor(calc)
+    if (is_number(calc) && calc > 0) {
+      var target_n = floor(calc)
       // Check if floor returned a valid number
-      if (typeof target_n == 'number' && target_n > 0) {
+      if (is_number(target_n) && target_n > 0) {
         if (target_n > MAX_BATCH_SIZE) target_n = MAX_BATCH_SIZE
         if (target_n < MIN_BATCH_SIZE) target_n = MIN_BATCH_SIZE
         n = target_n
@@ -239,7 +220,7 @@ function calibrate_batch_size(bench_fn, is_batch) {
   }
 
   // Safety check - ensure we always return a valid batch size
-  if (typeof n != 'number' || n < 1) {
+  if (!is_number(n) || n < 1) {
     n = 1
   }
 
@@ -254,7 +235,7 @@ function run_single_bench(bench_fn, bench_name) {
   // 1. Object with { setup, run, teardown } - structured format
   // 2. Function that accepts (n) - batch format
   // 3. Function that accepts () - legacy format
-  var is_structured = typeof bench_fn == 'object' && bench_fn.run
+  var is_structured = is_object(bench_fn) && bench_fn.run
   var is_batch = false
   var batch_size = 1
   var setup_fn = null
@@ -285,7 +266,7 @@ function run_single_bench(bench_fn, bench_name) {
     batch_size = calibrate_batch_size(calibrate_fn, is_batch)
 
     // Safety check for structured benchmarks
-    if (typeof batch_size != 'number' || batch_size < 1) {
+    if (!is_number(batch_size) || batch_size < 1) {
       batch_size = 1
     }
   } else {
@@ -307,8 +288,9 @@ function run_single_bench(bench_fn, bench_name) {
   // Warmup phase
   for (var i = 0; i < WARMUP_BATCHES; i++) {
     // Ensure batch_size is valid before warmup
-    if (typeof batch_size != 'number' || batch_size < 1) {
-      log.console(`WARNING: batch_size became ${typeof batch_size} = ${batch_size}, resetting to 1`)
+    if (!is_number(batch_size) || batch_size < 1) {
+      var type_str = is_null(batch_size) ? 'null' : is_number(batch_size) ? 'number' : is_text(batch_size) ? 'text' : is_object(batch_size) ? 'object' : is_array(batch_size) ? 'array' : is_function(batch_size) ? 'function' : is_logical(batch_size) ? 'logical' : 'unknown'
+      log.console(`WARNING: batch_size became ${type_str} = ${batch_size}, resetting to 1`)
       batch_size = 1
     }
 
@@ -332,7 +314,7 @@ function run_single_bench(bench_fn, bench_name) {
   // Measurement phase - collect SAMPLES timing samples
   for (var i = 0; i < SAMPLES; i++) {
     // Double-check batch_size is valid (should never happen, but defensive)
-    if (typeof batch_size != 'number' || batch_size < 1) {
+    if (!is_number(batch_size) || batch_size < 1) {
       batch_size = 1
     }
 
@@ -348,7 +330,7 @@ function run_single_bench(bench_fn, bench_name) {
       if (teardown_fn) teardown_fn(state)
 
       var ns_per_op = is_batch ? duration / batch_size : duration
-      timings_per_op.push(ns_per_op)
+      push(timings_per_op, ns_per_op)
     } else {
       var start = os.now()
       if (is_batch) {
@@ -359,15 +341,15 @@ function run_single_bench(bench_fn, bench_name) {
       var duration = os.now() - start
 
       var ns_per_op = is_batch ? duration / batch_size : duration
-      timings_per_op.push(ns_per_op)
+      push(timings_per_op, ns_per_op)
     }
   }
 
   // Calculate statistics
   var mean_ns = mean(timings_per_op)
   var median_ns = median(timings_per_op)
-  var min_ns = min_val(timings_per_op)
-  var max_ns = max_val(timings_per_op)
+  var min_ns = reduce(timings_per_op, min)
+  var max_ns = reduce(timings_per_op, max)
   var stddev_ns = stddev(timings_per_op, mean_ns)
   var p95_ns = percentile(timings_per_op, 95)
   var p99_ns = percentile(timings_per_op, 99)
@@ -375,20 +357,20 @@ function run_single_bench(bench_fn, bench_name) {
   // Calculate ops/s from median
   var ops_per_sec = 0
   if (median_ns > 0) {
-    ops_per_sec = number.floor(1000000000 / median_ns)
+    ops_per_sec = floor(1000000000 / median_ns)
   }
 
   return {
     name: bench_name,
     batch_size: batch_size,
     samples: SAMPLES,
-    mean_ns: number.round(mean_ns),
-    median_ns: number.round(median_ns),
-    min_ns: number.round(min_ns),
-    max_ns: number.round(max_ns),
-    stddev_ns: number.round(stddev_ns),
-    p95_ns: number.round(p95_ns),
-    p99_ns: number.round(p99_ns),
+    mean_ns: round(mean_ns),
+    median_ns: round(median_ns),
+    min_ns: round(min_ns),
+    max_ns: round(max_ns),
+    stddev_ns: round(stddev_ns),
+    p95_ns: round(p95_ns),
+    p99_ns: round(p99_ns),
     ops_per_sec: ops_per_sec
   }
 }
@@ -396,17 +378,17 @@ function run_single_bench(bench_fn, bench_name) {
 // Format nanoseconds for display
 function format_ns(ns) {
   if (ns < 1000) return `${ns}ns`
-  if (ns < 1000000) return `${number.round(ns / 1000 * 100) / 100}µs`
-  if (ns < 1000000000) return `${number.round(ns / 1000000 * 100) / 100}ms`
-  return `${number.round(ns / 1000000000 * 100) / 100}s`
+  if (ns < 1000000) return `${round(ns / 1000 * 100) / 100}µs`
+  if (ns < 1000000000) return `${round(ns / 1000000 * 100) / 100}ms`
+  return `${round(ns / 1000000000 * 100) / 100}s`
 }
 
 // Format ops/sec for display
 function format_ops(ops) {
   if (ops < 1000) return `${ops} ops/s`
-  if (ops < 1000000) return `${number.round(ops / 1000 * 100) / 100}K ops/s`
-  if (ops < 1000000000) return `${number.round(ops / 1000000 * 100) / 100}M ops/s`
-  return `${number.round(ops / 1000000000 * 100) / 100}G ops/s`
+  if (ops < 1000000) return `${round(ops / 1000 * 100) / 100}K ops/s`
+  if (ops < 1000000000) return `${round(ops / 1000000 * 100) / 100}M ops/s`
+  return `${round(ops / 1000000000 * 100) / 100}G ops/s`
 }
 
 // Run benchmarks for a package
@@ -419,14 +401,13 @@ function run_benchmarks(package_name, specific_bench) {
     total: 0
   }
 
-  if (bench_files.length == 0) return pkg_result
+  if (length(bench_files) == 0) return pkg_result
 
   if (package_name) log.console(`Running benchmarks for ${package_name}`)
   else log.console(`Running benchmarks for local package`)
 
-  for (var i = 0; i < bench_files.length; i++) {
-    var f = bench_files[i]
-    var mod_path = f.substring(0, f.length - 3)
+  arrfor(bench_files, function(f) {
+    var mod_path = text(f, 0, -3)
 
     var file_result = {
       name: f,
@@ -439,24 +420,22 @@ function run_benchmarks(package_name, specific_bench) {
       bench_mod = shop.use(mod_path, use_pkg)
 
       var benches = []
-      if (typeof bench_mod == 'function') {
-        benches.push({name: 'main', fn: bench_mod})
-      } else if (typeof bench_mod == 'object') {
-        for (var k in bench_mod) {
-          if (typeof bench_mod[k] == 'function') {
-            benches.push({name: k, fn: bench_mod[k]})
-          }
-        }
+      if (is_function(bench_mod)) {
+        push(benches, {name: 'main', fn: bench_mod})
+      } else if (is_object(bench_mod)) {
+        arrfor(array(bench_mod), function(k) {
+          if (is_function(bench_mod[k]))
+            push(benches, {name: k, fn: bench_mod[k]})
+        })
       }
 
-      if (benches.length > 0) {
+      if (length(benches) > 0) {
         log.console(`  ${f}`)
-        for (var j = 0; j < benches.length; j++) {
-          var b = benches[j]
+        arrfor(benches, function(b) {
           try {
             var result = run_single_bench(b.fn, b.name)
             result.package = pkg_result.package
-            file_result.benchmarks.push(result)
+            push(file_result.benchmarks, result)
             pkg_result.total++
 
             log.console(`    ${result.name}`)
@@ -473,10 +452,10 @@ function run_benchmarks(package_name, specific_bench) {
               name: b.name,
               error: e.toString()
             }
-            file_result.benchmarks.push(error_result)
+            push(file_result.benchmarks, error_result)
             pkg_result.total++
           }
-        }
+        })
       }
     } catch (e) {
       log.console(`  Error loading ${f}: ${e}`)
@@ -485,14 +464,14 @@ function run_benchmarks(package_name, specific_bench) {
         name: "load_module",
         error: `Error loading module: ${e}`
       }
-      file_result.benchmarks.push(error_result)
+      push(file_result.benchmarks, error_result)
       pkg_result.total++
     }
 
-    if (file_result.benchmarks.length > 0) {
-      pkg_result.files.push(file_result)
-    }
+    if (length(file_result.benchmarks) > 0) {
+      push(pkg_result.files, file_result)
     }
+  })
 
   return pkg_result
 }
@@ -502,29 +481,29 @@ var all_results = []
 
 if (all_pkgs) {
   if (testlib.is_valid_package('.')) {
-    all_results.push(run_benchmarks(null, null))
+    push(all_results, run_benchmarks(null, null))
   }
 
   var packages = shop.list_packages()
-  for (var i = 0; i < packages.length; i++) {
-    all_results.push(run_benchmarks(packages[i], null))
-  }
+  arrfor(packages, function(pkg) {
+    push(all_results, run_benchmarks(pkg, null))
+  })
 } else {
-  all_results.push(run_benchmarks(target_pkg, target_bench))
+  push(all_results, run_benchmarks(target_pkg, target_bench))
 }
 
 // Calculate totals
 var total_benches = 0
-for (var i = 0; i < all_results.length; i++) {
-  total_benches += all_results[i].total
-}
+arrfor(all_results, function(result) {
+  total_benches += result.total
+})
 
 log.console(`----------------------------------------`)
 log.console(`Benchmarks: ${total_benches} total`)
 
 // Generate reports
 function generate_reports() {
-  var timestamp = number.floor(time.number()).toString()
+  var timestamp = text(floor(time.number()))
   var report_dir = shop.get_reports_dir() + '/bench_' + timestamp
   testlib.ensure_dir(report_dir)
 
@@ -534,34 +513,28 @@ Total benchmarks: ${total_benches}
 
 === SUMMARY ===
 `
-  for (var i = 0; i < all_results.length; i++) {
-    var pkg_res = all_results[i]
-    if (pkg_res.total == 0) continue
+  arrfor(all_results, function(pkg_res) {
+    if (pkg_res.total == 0) return
     txt_report += `Package: ${pkg_res.package}\n`
-    for (var j = 0; j < pkg_res.files.length; j++) {
-      var f = pkg_res.files[j]
+    arrfor(pkg_res.files, function(f) {
       txt_report += `  ${f.name}\n`
-      for (var k = 0; k < f.benchmarks.length; k++) {
-        var b = f.benchmarks[k]
+      arrfor(f.benchmarks, function(b) {
         if (b.error) {
           txt_report += `    ERROR ${b.name}: ${b.error}\n`
         } else {
           txt_report += `    ${b.name}: ${format_ns(b.median_ns)}/op (${format_ops(b.ops_per_sec)})\n`
         }
-      }
-    }
-  }
+      })
+    })
+  })
 
   txt_report += `\n=== DETAILED RESULTS ===\n`
-  for (var i = 0; i < all_results.length; i++) {
-    var pkg_res = all_results[i]
-    if (pkg_res.total == 0) continue
+  arrfor(all_results, function(pkg_res) {
+    if (pkg_res.total == 0) return
 
-    for (var j = 0; j < pkg_res.files.length; j++) {
-      var f = pkg_res.files[j]
-      for (var k = 0; k < f.benchmarks.length; k++) {
-        var b = f.benchmarks[k]
-        if (b.error) continue
+    arrfor(pkg_res.files, function(f) {
+      arrfor(f.benchmarks, function(b) {
+        if (b.error) return
 
         txt_report += `\n${pkg_res.package}::${b.name}\n`
         txt_report += `  batch_size: ${b.batch_size}  samples: ${b.samples}\n`
@@ -573,30 +546,28 @@ Total benchmarks: ${total_benches}
         txt_report += `  p95: ${format_ns(b.p95_ns)}\n`
         txt_report += `  p99: ${format_ns(b.p99_ns)}\n`
         txt_report += `  ops/s: ${format_ops(b.ops_per_sec)}\n`
-      }
-    }
-  }
+      })
+    })
+  })
 
   testlib.ensure_dir(report_dir)
-  fd.slurpwrite(`${report_dir}/bench.txt`, utf8.encode(txt_report))
+  fd.slurpwrite(`${report_dir}/bench.txt`, stone(blob(txt_report)))
   log.console(`Report written to ${report_dir}/bench.txt`)
 
   // Generate JSON per package
-  for (var i = 0; i < all_results.length; i++) {
-    var pkg_res = all_results[i]
-    if (pkg_res.total == 0) continue
+  arrfor(all_results, function(pkg_res) {
+    if (pkg_res.total == 0) return
 
     var pkg_benches = []
-    for (var j = 0; j < pkg_res.files.length; j++) {
-      var f = pkg_res.files[j]
-      for (var k = 0; k < f.benchmarks.length; k++) {
-        pkg_benches.push(f.benchmarks[k])
-      }
-    }
+    arrfor(pkg_res.files, function(f) {
+      arrfor(f.benchmarks, function(benchmark) {
+        push(pkg_benches, benchmark)
+      })
+    })
 
-    var json_path = `${report_dir}/${pkg_res.package.replace(/\//g, '_')}.json`
-    fd.slurpwrite(json_path, utf8.encode(json.encode(pkg_benches)))
-  }
+    var json_path = `${report_dir}/${replace(pkg_res.package, /\//, '_')}.json`
+    fd.slurpwrite(json_path, stone(blob(json.encode(pkg_benches))))
+  })
 }
 
 generate_reports()

benches/micro_ops.cm

@@ -20,14 +20,14 @@ function make_shapes(n) {
   for (var i = 0; i < n; i++) {
     var o = { a: i }
     o[`p${i}`] = i
-    out.push(o)
+    push(out, o)
   }
   return out
 }
 
 function make_packed_array(n) {
   var a = []
-  for (var i = 0; i < n; i++) a.push(i)
+  for (var i = 0; i < n; i++) push(a, i)
   return a
 }
 
@@ -203,8 +203,8 @@ return {
     var x = 0
     for (var j = 0; j < n; j++) {
       var a = []
-      for (var i = 0; i < 256; i++) a.push(i)
-      x = (x + a.length) | 0
+      for (var i = 0; i < 256; i++) push(a, i)
+      x = (x + length(a)) | 0
     }
     return blackhole(sink, x)
   },
@@ -216,7 +216,7 @@ return {
     for (var j = 0; j < n; j++) {
       var s = ""
       for (var i = 0; i < 16; i++) s = s + "x"
-      x = (x + s.length) | 0
+      x = (x + length(s)) | 0
     }
     return blackhole(sink, x)
   },
@@ -257,5 +257,6 @@ return {
       x = (x + o.x) | 0
     }
     return blackhole(sink, x)
-  }
+  },
+
 }

benchmarks/binarytree.ce

@@ -1,5 +1,5 @@
 function mainThread() {
-  var maxDepth = number.max(6, Number(arg[0] || 16));
+  var maxDepth = max(6, Number(arg[0] || 16));
 
   var stretchDepth = maxDepth + 1;
   var check = itemCheck(bottomUpTree(stretchDepth));
@@ -7,7 +7,7 @@ function mainThread() {
 
   var longLivedTree = bottomUpTree(maxDepth);
 
-  for (let depth = 4; depth <= maxDepth; depth += 2) {
+  for (var depth = 4; depth <= maxDepth; depth += 2) {
     var iterations = 1 << maxDepth - depth + 4;
     work(iterations, depth);
   }
@@ -16,8 +16,8 @@ function mainThread() {
 }
 
 function work(iterations, depth) {
-  let check = 0;
-  for (let i = 0; i < iterations; i++)
+  var check = 0;
+  for (var i = 0; i < iterations; i++)
     check += itemCheck(bottomUpTree(depth));
   log.console(`${iterations}\t trees of depth ${depth}\t check: ${check}`);
 }
@@ -34,8 +34,8 @@ function itemCheck(node) {
 
 function bottomUpTree(depth) {
   return depth > 0
-    ? new TreeNode(bottomUpTree(depth - 1), bottomUpTree(depth - 1))
-    : new TreeNode(null, null);
+    ? TreeNode(bottomUpTree(depth - 1), bottomUpTree(depth - 1))
+    : TreeNode(null, null);
 }
 
 mainThread()

benchmarks/eratosthenes.ce

@@ -2,8 +2,8 @@ var blob = use('blob')
 var math = use('math/radians')
 
 function eratosthenes (n) {
-  var sieve = new blob(n, true)
-  var sqrtN = number.whole(math.sqrt(n));
+  var sieve = blob(n, true)
+  var sqrtN = whole(math.sqrt(n));
 
   for (i = 2; i <= sqrtN; i++)
     if (sieve.read_logical(i))
@@ -17,7 +17,7 @@ var sieve = eratosthenes(10000000);
 stone(sieve)
 
 var c = 0
-for (var i = 0; i < sieve.length; i++)
+for (var i = 0; i < length(sieve); i++)
   if (sieve.read_logical(i)) c++
   
 log.console(c)

benchmarks/fannkuch.ce

@@ -1,6 +1,6 @@
 function fannkuch(n) {
    var perm1 = [n]   
-   for (let i = 0; i < n; i++) perm1[i] = i      
+   for (var i = 0; i < n; i++) perm1[i] = i      
    var perm = [n]
    var count = [n]       
    var f = 0, flips = 0, nperm = 0, checksum = 0      
@@ -18,7 +18,7 @@ function fannkuch(n) {
       while (k != 0) {
          i = 0  
          while (2*i < k) {          
-            let t = perm[i]; perm[i] = perm[k-i]; perm[k-i] = t  
+            var t = perm[i]; perm[i] = perm[k-i]; perm[k-i] = t  
             i += 1           
          }
          k = perm[0]
@@ -34,10 +34,10 @@ function fannkuch(n) {
             log.console( checksum )               
             return flips 
          }
-         let p0 = perm1[0]
+         var p0 = perm1[0]
          i = 0
          while (i < r) {
-            let j = i + 1
+            var j = i + 1
             perm1[i] = perm1[j]
             i = j            
          }

benchmarks/fib.ce

@@ -7,9 +7,9 @@ function fib(n) {
 
 var now = time.number()
 var arr = [1,2,3,4,5]
-for (var i in arr) {
+arrfor(arr, function(i) {
   log.console(fib(28))
-}
+})
 
 log.console(`elapsed: ${time.number()-now}`)
 

benchmarks/js_perf.ce

@@ -109,12 +109,12 @@ function benchArrayOps() {
   var pushTime = measureTime(function() {
     var arr = [];
     for (var i = 0; i < iterations.medium; i++) {
-      arr.push(i);
+      push(arr, i);
     }
   });
   
   var arr = [];
-  for (var i = 0; i < 10000; i++) arr.push(i);
+  for (var i = 0; i < 10000; i++) push(arr, i);
   
   var accessTime = measureTime(function() {
     var sum = 0;
@@ -126,7 +126,7 @@ function benchArrayOps() {
   var iterateTime = measureTime(function() {
     var sum = 0;
     for (var j = 0; j < 1000; j++) {
-      for (var i = 0; i < arr.length; i++) {
+      for (var i = 0; i < length(arr); i++) {
         sum += arr[i];
       }
     }
@@ -151,13 +151,12 @@ function benchObjectCreation() {
   });
   
   function Point(x, y) {
-    this.x = x;
-    this.y = y;
+    return {x,y}
   }
   
   var defructorTime = measureTime(function() {
     for (var i = 0; i < iterations.medium; i++) {
-      var p = new Point(i, i * 2);
+      var p = Point(i, i * 2);
     }
   });
   
@@ -199,19 +198,19 @@ function benchStringOps() {
   
   var strings = [];
   for (var i = 0; i < 1000; i++) {
-    strings.push("string" + i);
+    push(strings, "string" + i);
   }
   
   var joinTime = measureTime(function() {
     for (var i = 0; i < iterations.complex; i++) {
-      var result = strings.join(",");
+      var result = text(strings, ",");
     }
   });
   
   var splitTime = measureTime(function() {
     var str = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p";
     for (var i = 0; i < iterations.medium; i++) {
-      var parts = str.split(",");
+      var parts = array(str, ",");
     }
   });
   
@@ -239,7 +238,7 @@ function benchArithmetic() {
     var result = 1.5;
     for (var i = 0; i < iterations.simple; i++) {
       result = math.sine(result) + math.cosine(i * 0.01);
-      result = math.sqrt(number.abs(result)) + 0.1;
+      result = math.sqrt(abs(result)) + 0.1;
     }
   });
   
@@ -270,13 +269,13 @@ function benchClosures() {
   var closureCreateTime = measureTime(function() {
     var funcs = [];
     for (var i = 0; i < iterations.medium; i++) {
-      funcs.push(makeAdder(i));
+      push(funcs, makeAdder(i));
     }
   });
   
   var adders = [];
   for (var i = 0; i < 1000; i++) {
-    adders.push(makeAdder(i));
+    push(adders, makeAdder(i));
   }
   
   var closureCallTime = measureTime(function() {

benchmarks/mandelbrot.ce

@@ -8,15 +8,15 @@ var w = h
 
 log.console(`P4\n${w} ${h}`);
 
-for (let y = 0; y < h; ++y) {
+for (var y = 0; y < h; ++y) {
   // Create a blob for the row - we need w bits
-  var row = new blob(w);
+  var row = blob(w);
 
-  for (let x = 0; x < w; ++x) {
+  for (var x = 0; x < w; ++x) {
     zr = zi = tr = ti = 0;
     cr = 2 * x / w - 1.5;
     ci = 2 * y / h - 1;
-    for (let i = 0; i < iter && (tr + ti <= limit * limit); ++i) {
+    for (var i = 0; i < iter && (tr + ti <= limit * limit); ++i) {
       zi = 2 * zr * zi + ci;
       zr = tr - ti + cr;
       tr = zr * zr;

benchmarks/nbody.ce

@@ -3,17 +3,11 @@ var SOLAR_MASS = 4 * pi * pi;
 var DAYS_PER_YEAR = 365.24;
 
 function Body(x, y, z, vx, vy, vz, mass) {
-    this.x = x;
-    this.y = y;
-    this.z = z;
-    this.vx = vx;
-    this.vy = vy;
-    this.vz = vz;
-    this.mass = mass;
+    return {x, y, z, vx, vy, vz, mass};
 }
 
 function Jupiter() {
-    return new Body(
+    return Body(
         4.84143144246472090e+00,
         -1.16032004402742839e+00,
         -1.03622044471123109e-01,
@@ -25,7 +19,7 @@ function Jupiter() {
 }
 
 function Saturn() {
-    return new Body(
+    return Body(
         8.34336671824457987e+00,
         4.12479856412430479e+00,
         -4.03523417114321381e-01,
@@ -37,7 +31,7 @@ function Saturn() {
 }
 
 function Uranus() {
-    return new Body(
+    return Body(
         1.28943695621391310e+01,
         -1.51111514016986312e+01,
         -2.23307578892655734e-01,
@@ -49,7 +43,7 @@ function Uranus() {
 }
 
 function Neptune() {
-    return new Body(
+    return Body(
         1.53796971148509165e+01,
         -2.59193146099879641e+01,
         1.79258772950371181e-01,
@@ -61,7 +55,7 @@ function Neptune() {
 }
 
 function Sun() {
-    return new Body(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, SOLAR_MASS);
+    return Body(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, SOLAR_MASS);
 }
 
 var bodies = Array(Sun(), Jupiter(), Saturn(), Uranus(), Neptune());
@@ -70,7 +64,7 @@ function offsetMomentum() {
     var px = 0;
     var py = 0;
     var pz = 0;
-    var size = bodies.length;
+    var size = length(bodies);
     for (var i = 0; i < size; i++) {
         var body = bodies[i];
         var mass = body.mass;
@@ -86,7 +80,7 @@ function offsetMomentum() {
 }
 
 function advance(dt) {
-    var size = bodies.length;
+    var size = length(bodies);
 
     for (var i = 0; i < size; i++) {
         var bodyi = bodies[i];
@@ -127,7 +121,7 @@ function advance(dt) {
 
 function energy() {
     var e = 0;
-    var size = bodies.length;
+    var size = length(bodies);
 
     for (var i = 0; i < size; i++) {
         var bodyi = bodies[i];
@@ -158,31 +152,4 @@ for (var i = 0; i < n; i++)
     advance(0.01);
 log.console(energy().toFixed(9))
 
-var js = use('js')
-
-// Get function metadata
-var fn_info = js.fn_info(advance)
-log.console(`${fn_info.filename}:${fn_info.line}:${fn_info.column}: function: ${fn_info.name}`)
-
-// Display arguments
-if (fn_info.args && fn_info.args.length > 0) {
-  log.console(`  args: ${fn_info.args.join(' ')}`)
-}
-
-// Display local variables
-if (fn_info.locals && fn_info.locals.length > 0) {
-  log.console('  locals:')
-  for (var i = 0; i < fn_info.locals.length; i++) {
-    var local = fn_info.locals[i]
-    log.console(`    ${local.index}: ${local.type} ${local.name}`)
-  }
-}
-
-// Display stack size
-log.console(`  stack_size: ${fn_info.stack_size}`)
-
-// Display disassembly
-log.console(js.disassemble(advance))
-log.console(js.disassemble(advance).length)
-
 $stop()

benchmarks/nota.ce

@@ -9,7 +9,7 @@ var newarr = []
 var accstr = ""
 for (var i = 0; i < 10000; i++) {
   accstr += i;
-  newarr.push(i.toString())
+  newarrpush(i.toString())
 }
 // Arrays to store timing results
 var jsonDecodeTimes = [];
@@ -19,34 +19,35 @@ var notaDecodeTimes = [];
 var notaSizes = [];
 
 // Run 100 tests
-for (let i = 0; i < 100; i++) {
+for (var i = 0; i < 100; i++) {
     // JSON Decode test
-    let start = os.now();
+    var start = os.now();
     var jll = json.decode(ll);
-    jsonDecodeTimes.push((os.now() - start) * 1000);
+    jsonDecodeTimespush((os.now() - start) * 1000);
 
     // JSON Encode test
     start = os.now();
-    let jsonStr = JSON.stringify(jll);
-    jsonEncodeTimes.push((os.now() - start) * 1000);
+    var jsonStr = JSON.stringify(jll);
+    jsonEncodeTimespush((os.now() - start) * 1000);
 
     // NOTA Encode test
     start = os.now();
     var nll = nota.encode(jll);
-    notaEncodeTimes.push((os.now() - start) * 1000);
+    notaEncodeTimespush((os.now() - start) * 1000);
 
     // NOTA Decode test
     start = os.now();
     var oll = nota.decode(nll);
-    notaDecodeTimes.push((os.now() - start) * 1000);
+    notaDecodeTimespush((os.now() - start) * 1000);
 }
 
 // Calculate statistics
 function getStats(arr) {
-    def avg = arr.reduce((a, b) => a + b) / arr.length;
-    def min = number.min(...arr);
-    def max = number.max(...arr);
-    return { avg, min, max };
+    return {
+      avg: reduce(arr, (a,b) => a+b, 0) / length(arr),
+      min: reduce(arr, min),
+      max: reduce(arr, max)
+    };
 }
 
 // Pretty print results

benchmarks/spectral-norm.ce

@@ -1,13 +1,13 @@
-const math = require('math/radians');
+def math = use('math/radians');
 
 function A(i,j) {
   return 1/((i+j)*(i+j+1)/2+i+1);
 }
 
 function Au(u,v) {
-  for (var i=0; i<u.length; ++i) {
+  for (var i=0; i<length(u); ++i) {
     var t = 0;
-    for (var j=0; j<u.length; ++j)
+    for (var j=0; j<length(u); ++j)
       t += A(i,j) * u[j];
       
     v[i] = t;
@@ -15,9 +15,9 @@ function Au(u,v) {
 }
 
 function Atu(u,v) {
-  for (var i=0; i<u.length; ++i) {
+  for (var i=0; i<length(u); ++i) {
     var t = 0;
-    for (var j=0; j<u.length; ++j)
+    for (var j=0; j<length(u); ++j)
       t += A(j,i) * u[j];
       
     v[i] = t;

benchmarks/wota.ce

@@ -14,18 +14,18 @@
 // Helper to run a function repeatedly and measure total time in seconds.
 // Returns elapsed time in seconds.
 function measureTime(fn, iterations) {
-    let t1 = os.now();
-    for (let i = 0; i < iterations; i++) {
+    var t1 = os.now();
+    for (var i = 0; i < iterations; i++) {
         fn();
     }
-    let t2 = os.now();
+    var t2 = os.now();
     return t2 - t1;
 }
 
 // We'll define a function that does `encode -> decode` for a given value:
 function roundTripWota(value) {
-    let encoded = wota.encode(value);
-    let decoded = wota.decode(encoded);
+    var encoded = wota.encode(value);
+    var decoded = wota.decode(encoded);
     // Not doing a deep compare here, just measuring performance.
     // (We trust the test suite to verify correctness.)
 }
@@ -63,15 +63,9 @@ def benchmarks = [
   {
     name: "Large Array (1k numbers)",
     // A thousand random numbers
-    data: [ Array.from({length:1000}, (_, i) => i * 0.5) ],
+    data: [ array(1000, i => i *0.5) ],
     iterations: 1000
   },
-  {
-    name: "Large Binary Blob (256KB)",
-    // A 256KB ArrayBuffer
-    data: [ new Uint8Array(256 * 1024).buffer ],
-    iterations: 200
-  }
 ];
 
 // Print a header
@@ -79,28 +73,23 @@ log.console("Wota Encode/Decode Benchmark");
 log.console("===================\n");
 
 // We'll run each benchmark scenario in turn.
-for (let bench of benchmarks) {
-    // We'll measure how long it takes to do 'iterations' *for each test value*
-    // in bench.data. The total loop count is `bench.iterations * bench.data.length`.
-    // Then we compute an overall encode+decode throughput (ops/s).
-    let totalIterations = bench.iterations * bench.data.length;
+arrfor(benchmarks, function(bench) {
+    var totalIterations = bench.iterations * length(bench.data);
     
     // We'll define a function that does a roundTrip for *each* data item in bench.data
     // to measure in one loop iteration. Then we multiply by bench.iterations.
     function runAllData() {
-        for (let val of bench.data) {
-            roundTripWota(val);
-        }
+      arrfor(bench.data, roundTripWota)
     }
 
-    let elapsedSec = measureTime(runAllData, bench.iterations);
-    let opsPerSec  = (totalIterations / elapsedSec).toFixed(1);
+    var elapsedSec = measureTime(runAllData, bench.iterations);
+    var opsPerSec  = (totalIterations / elapsedSec).toFixed(1);
 
     log.console(`${bench.name}:`);
-    log.console(`  Iterations: ${bench.iterations} × ${bench.data.length} data items = ${totalIterations}`);
+    log.console(`  Iterations: ${bench.iterations} × ${length(bench.data)} data items = ${totalIterations}`);
     log.console(`  Elapsed:    ${elapsedSec.toFixed(3)} s`);
     log.console(`  Throughput: ${opsPerSec} encode+decode ops/sec\n`);
-}
+})
 
 // All done
 log.console("Benchmark completed.\n");

benchmarks/wota_nota_json.ce

@@ -13,7 +13,7 @@
 //
 
 // Parse command line arguments
-if (arg.length != 2) {
+if (length(arg) != 2) {
   log.console('Usage: cell benchmark_wota_nota_json.ce <LibraryName> <ScenarioName>');
   $stop()
 }
@@ -32,7 +32,7 @@ def libraries = [
     decode: wota.decode,
     // wota produces an ArrayBuffer. We'll count `buffer.byteLength` as size.
     getSize(encoded) {
-      return encoded.length;
+      return length(encoded);
     }
   },
   {
@@ -41,7 +41,7 @@ def libraries = [
     decode: nota.decode,
     // nota also produces an ArrayBuffer:
     getSize(encoded) {
-      return encoded.length;
+      return length(encoded);
     }
   },
   {
@@ -50,9 +50,8 @@ def libraries = [
     decode: json.decode,
     // json produces a JS string. We'll measure its UTF-16 code unit length
     // as a rough "size". Alternatively, you could convert to UTF-8 for
-    // a more accurate byte size. Here we just use `string.length`.
     getSize(encodedStr) {
-      return encodedStr.length;
+      return length(encodedStr);
     }
   }
 ];
@@ -98,7 +97,7 @@ def benchmarks = [
   },
   {
     name: "large_array",
-    data: [ Array.from({length:1000}, (_, i) => i) ],
+    data: [ array(1000, i => i) ],
     iterations: 1000
   },
 ];
@@ -108,9 +107,9 @@ def benchmarks = [
 ////////////////////////////////////////////////////////////////////////////////
 
 function measureTime(fn) {
-  let start = os.now();
+  var start = os.now();
   fn();
-  let end   = os.now();
+  var end   = os.now();
   return (end - start);  // in seconds
 }
 
@@ -128,19 +127,19 @@ function runBenchmarkForLibrary(lib, bench) {
 
   // Pre-store the encoded results for all items so we can measure decode time
   // in a separate pass. Also measure total size once.
-  let encodedList = [];
-  let totalSize = 0;
+  var encodedList = [];
+  var totalSize = 0;
 
   // 1) Measure ENCODING
-  let encodeTime = measureTime(() => {
-    for (let i = 0; i < bench.iterations; i++) {
+  var encodeTime = measureTime(() => {
+    for (var i = 0; i < bench.iterations; i++) {
       // For each data item, encode it
-      for (let j = 0; j < bench.data.length; j++) {
-        let e = lib.encode(bench.data[j]);
+      for (var j = 0; j < length(bench.data); j++) {
+        var e = lib.encode(bench.data[j]);
         // store only in the very first iteration, so we can decode them later
         // but do not store them every iteration or we blow up memory.
         if (i == 0) {
-          encodedList.push(e);
+          push(encodedList, e);
           totalSize += lib.getSize(e);
         }
       }
@@ -148,13 +147,9 @@ function runBenchmarkForLibrary(lib, bench) {
   });
 
   // 2) Measure DECODING
-  let decodeTime = measureTime(() => {
-    for (let i = 0; i < bench.iterations; i++) {
-      // decode everything we stored during the first iteration
-      for (let e of encodedList) {
-        let decoded = lib.decode(e);
-        // not verifying correctness here, just measuring speed
-      }
+  var decodeTime = measureTime(() => {
+    for (var i = 0; i < bench.iterations; i++) {
+      arrfor(encodedList, lib.decode)
     }
   });
 
@@ -166,18 +161,18 @@ function runBenchmarkForLibrary(lib, bench) {
 ////////////////////////////////////////////////////////////////////////////////
 
 // Find the requested library and scenario
-var lib = libraries.find(l => l.name == lib_name);
-var bench = benchmarks.find(b => b.name == scenario_name);
+var lib = libraries[find(libraries, l => l.name == lib_name)];
+var bench = benchmarks[find(benchmarks, b => b.name == scenario_name)];
 
 if (!lib) {
   log.console('Unknown library:', lib_name);
-  log.console('Available libraries:', libraries.map(l => l.name).join(', '));
+  log.console('Available libraries:', text(array(libraries, l => l.name), ', '));
   $stop()
 }
 
 if (!bench) {
   log.console('Unknown scenario:', scenario_name);
-  log.console('Available scenarios:', benchmarks.map(b => b.name).join(', '));
+  log.console('Available scenarios:', text(array(benchmarks, b => b.name), ', '));
   $stop()
 }
 
@@ -185,7 +180,7 @@ if (!bench) {
 var { encodeTime, decodeTime, totalSize } = runBenchmarkForLibrary(lib, bench);
 
 // Output json for easy parsing by hyperfine or other tools
-var totalOps = bench.iterations * bench.data.length;
+var totalOps = bench.iterations * length(bench.data);
 var result = {
   lib: lib_name,
   scenario: scenario_name,

build.ce

@@ -1,9 +1,11 @@
-// cell build [options] - Build dynamic libraries locally for the current machine
+// cell build [<locator>] - Build dynamic libraries locally for the current machine
 //
 // Usage:
-//   cell build                Build dynamic libraries for all packages
-//   cell build -p <pkg>       Build dynamic library for specific package
+//   cell build                Build dynamic libraries for all packages in shop
+//   cell build .              Build dynamic library for current directory package
+//   cell build <locator>      Build dynamic library for specific package
 //   cell build -t <target>    Cross-compile dynamic libraries for target platform
+//   cell build -b <type>      Build type: release (default), debug, or minsize
 
 var build = use('build')
 var shop = use('internal/shop')
@@ -12,25 +14,28 @@ var fd = use('fd')
 
 var target = null
 var target_package = null
-var buildtype = 'debug'
+var buildtype = 'release'
+var force_rebuild = false
+var dry_run = false
 
-for (var i = 0; i < args.length; i++) {
+for (var i = 0; i < length(args); i++) {
   if (args[i] == '-t' || args[i] == '--target') {
-    if (i + 1 < args.length) {
+    if (i + 1 < length(args)) {
       target = args[++i]
     } else {
       log.error('-t requires a target')
       $stop()
     }
   } else if (args[i] == '-p' || args[i] == '--package') {
-    if (i + 1 < args.length) {
+    // Legacy support for -p flag
+    if (i + 1 < length(args)) {
       target_package = args[++i]
     } else {
       log.error('-p requires a package name')
       $stop()
     }
   } else if (args[i] == '-b' || args[i] == '--buildtype') {
-    if (i + 1 < args.length) {
+    if (i + 1 < length(args)) {
       buildtype = args[++i]
       if (buildtype != 'release' && buildtype != 'debug' && buildtype != 'minsize') {
         log.error('Invalid buildtype: ' + buildtype + '. Must be release, debug, or minsize')
@@ -40,13 +45,30 @@ for (var i = 0; i < args.length; i++) {
       log.error('-b requires a buildtype (release, debug, minsize)')
       $stop()
     }
+  } else if (args[i] == '--force') {
+    force_rebuild = true
+  } else if (args[i] == '--dry-run') {
+    dry_run = true
   } else if (args[i] == '--list-targets') {
     log.console('Available targets:')
     var targets = build.list_targets()
-    for (var t = 0; t < targets.length; t++) {
+    for (var t = 0; t < length(targets); t++) {
       log.console('  ' + targets[t])
     }
     $stop()
+  } else if (!starts_with(args[i], '-') && !target_package) {
+    // Positional argument - treat as package locator
+    target_package = args[i]
+  }
+}
+
+// Resolve local paths to absolute paths
+if (target_package) {
+  if (target_package == '.' || starts_with(target_package, './') || starts_with(target_package, '../') || fd.is_dir(target_package)) {
+    var resolved = fd.realpath(target_package)
+    if (resolved) {
+      target_package = resolved
+    }
   }
 }
 
@@ -58,16 +80,16 @@ if (!target) {
 
 if (target && !build.has_target(target)) {
   log.error('Invalid target: ' + target)
-  log.console('Available targets: ' + build.list_targets().join(', '))
+  log.console('Available targets: ' + text(build.list_targets(), ', '))
   $stop()
 }
 
 var packages = shop.list_packages()
 log.console('Preparing packages...')
-for (var package of packages) {
-  if (package == 'core') continue
+arrfor(packages, function(package) {
+  if (package == 'core') return
   shop.extract(package)
-}
+})
 
 if (target_package) {
   // Build single package
@@ -88,7 +110,7 @@ if (target_package) {
   
   var success = 0
   var failed = 0
-  for (var i = 0; i < results.length; i++) {
+  for (var i = 0; i < length(results); i++) {
     if (results[i].library) {
       success++
     } else if (results[i].error) {

build.cm

@@ -8,7 +8,7 @@
 
 var fd = use('fd')
 var crypto = use('crypto')
-var utf8 = use('utf8')
+var blob = use('blob')
 var os = use('os')
 var toolchains = use('toolchains')
 var shop = use('internal/shop')
@@ -28,15 +28,15 @@ function get_local_dir() {
 // Replace sigils in a string
 // Currently supports: $LOCAL -> .cell/local full path
 function replace_sigils(str) {
-  return str.replaceAll('$LOCAL', get_local_dir())
+  return replace(str, '$LOCAL', get_local_dir())
 }
 
 // Replace sigils in an array of flags
 function replace_sigils_array(flags) {
   var result = []
-  for (var i = 0; i < flags.length; i++) {
-    result.push(replace_sigils(flags[i]))
-  }
+  arrfor(flags, function(flag) {
+    push(result, replace_sigils(flag))
+  })
   return result
 }
 
@@ -73,7 +73,8 @@ Build.detect_host_target = function() {
 // ============================================================================
 
 function content_hash(str) {
-  return text(crypto.blake2(utf8.encode(str)), 'h')
+  var bb = stone(blob(str))
+  return text(crypto.blake2(bb, 32), 'h')
 }
 
 function get_build_dir() {
@@ -82,14 +83,12 @@ function get_build_dir() {
 
 function ensure_dir(path) {
   if (fd.stat(path).isDirectory) return
-  var parts = path.split('/')
-  var current = path.startsWith('/') ? '/' : ''
-  for (var i = 0; i < parts.length; i++) {
+  var parts = array(path, '/')
+  var current = starts_with(path, '/') ? '/' : ''
+  for (var i = 0; i < length(parts); i++) {
     if (parts[i] == '') continue
     current += parts[i] + '/'
-    if (!fd.stat(current).isDirectory) {
-      fd.mkdir(current)
-    }
+    if (!fd.stat(current).isDirectory) fd.mkdir(current)
   }
 }
 
@@ -106,7 +105,7 @@ Build.compile_file = function(pkg, file, target, buildtype = 'release') {
   var src_path = pkg_dir + '/' + file
   
   if (!fd.is_file(src_path)) {
-    throw new Error('Source file not found: ' + src_path)
+    throw Error('Source file not found: ' + src_path)
   }
   
   // Get flags (with sigil replacement)
@@ -122,33 +121,32 @@ Build.compile_file = function(pkg, file, target, buildtype = 'release') {
   
   // Add buildtype-specific flags
   if (buildtype == 'release') {
-    cmd_parts.push('-O3', '-DNDEBUG')
+    cmd_parts = array(cmd_parts, ['-O3', '-DNDEBUG'])
   } else if (buildtype == 'debug') {
-    cmd_parts.push('-O2', '-g')
+    cmd_parts = array(cmd_parts, ['-O2', '-g'])
   } else if (buildtype == 'minsize') {
-    cmd_parts.push('-Os', '-DNDEBUG')
+    cmd_parts = array(cmd_parts, ['-Os', '-DNDEBUG'])
   }
   
-  cmd_parts.push('-DCELL_USE_NAME=' + sym_name)
-  cmd_parts.push('-I"' + pkg_dir + '"')
+  push(cmd_parts, '-DCELL_USE_NAME=' + sym_name)
+  push(cmd_parts, '-I"' + pkg_dir + '"')
   
   // Add package CFLAGS (resolve relative -I paths)
-  for (var i = 0; i < cflags.length; i++) {
-    var flag = cflags[i]
-    if (flag.startsWith('-I') && !flag.startsWith('-I/')) {
-      flag = '-I"' + pkg_dir + '/' + flag.substring(2) + '"'
-    }
-    cmd_parts.push(flag)
+  arrfor(cflags, function(flag) {
+    if (starts_with(flag, '-I') && !starts_with(flag, '-I/')) {
+      flag = '-I"' + pkg_dir + '/' + text(flag, 2) + '"'
     }
+    push(cmd_parts, flag)
+  })
   
   // Add target CFLAGS
-  for (var i = 0; i < target_cflags.length; i++) {
-    cmd_parts.push(target_cflags[i])
-  }
+  arrfor(target_cflags, function(flag) {
+    push(cmd_parts, flag)
+  })
   
-  cmd_parts.push('"' + src_path + '"')
+  push(cmd_parts, '"' + src_path + '"')
   
-  var cmd_str = cmd_parts.join(' ')
+  var cmd_str = text(cmd_parts, ' ')
   
   // Content hash: command + file content
   var file_content = fd.slurp(src_path)
@@ -169,7 +167,7 @@ Build.compile_file = function(pkg, file, target, buildtype = 'release') {
   log.console('Compiling ' + file)
   var ret = os.system(full_cmd)
   if (ret != 0) {
-    throw new Error('Compilation failed: ' + file)
+    throw Error('Compilation failed: ' + file)
   }
   
   return obj_path
@@ -181,10 +179,10 @@ Build.build_package = function(pkg, target = Build.detect_host_target(), exclude
   var c_files = pkg_tools.get_c_files(pkg, target, exclude_main)
   var objects = []
   
-  for (var i = 0; i < c_files.length; i++) {
-    var obj = Build.compile_file(pkg, c_files[i], target, buildtype)
-    objects.push(obj)
-  }
+  arrfor(c_files, function(file) {
+    var obj = Build.compile_file(pkg, file, target, buildtype)
+    push(objects, obj)
+  })
   
   return objects
 }
@@ -192,23 +190,50 @@ Build.build_package = function(pkg, target = Build.detect_host_target(), exclude
 // ============================================================================
 // Dynamic library building
 // ============================================================================
+
+// Compute link key from all inputs that affect the dylib output
+function compute_link_key(objects, ldflags, target_ldflags, target, cc) {
+  // Sort objects for deterministic hash
+  var sorted_objects = sort(objects)
+
+  // Build a string representing all link inputs
+  var parts = []
+  push(parts, 'target:' + target)
+  push(parts, 'cc:' + cc)
+  arrfor(sorted_objects, function(obj) {
+    // Object paths are content-addressed, so the path itself is the hash
+    push(parts, 'obj:' + obj)
+  })
+  arrfor(ldflags, function(flag) {
+    push(parts, 'ldflag:' + flag)
+  })
+  arrfor(target_ldflags, function(flag) {
+    push(parts, 'target_ldflag:' + flag)
+  })
+
+  return content_hash(text(parts, '\n'))
+}
+
 // Build a dynamic library for a package
 // Output goes to .cell/lib/<package_name>.<ext>
 // Dynamic libraries do NOT link against core; undefined symbols are resolved at dlopen time
+// Uses content-addressed store + symlink for caching
 Build.build_dynamic = function(pkg, target = Build.detect_host_target(), buildtype = 'release') {
   var objects = Build.build_package(pkg, target, true, buildtype) // exclude main.c
 
-  if (objects.length == 0) {
+  if (length(objects) == 0) {
     log.console('No C files in ' + pkg)
     return null
   }
 
   var lib_dir = shop.get_lib_dir()
+  var store_dir = lib_dir + '/store'
   ensure_dir(lib_dir)
+  ensure_dir(store_dir)
 
   var lib_name = shop.lib_name_for_package(pkg)
   var dylib_ext = toolchains[target].system == 'windows' ? '.dll' : (toolchains[target].system == 'darwin' ? '.dylib' : '.so')
-  var lib_path = lib_dir + '/' + lib_name + dylib_ext
+  var stable_path = lib_dir + '/' + lib_name + dylib_ext
 
   // Get link flags (with sigil replacement)
   var ldflags = replace_sigils_array(pkg_tools.get_flags(pkg, 'LDFLAGS', target))
@@ -218,64 +243,91 @@ Build.build_dynamic = function(pkg, target = Build.detect_host_target(), buildty
   var local_dir = get_local_dir()
   var tc = toolchains[target]
 
+  // Resolve relative -L paths in ldflags for hash computation
+  var resolved_ldflags = []
+  arrfor(ldflags, function(flag) {
+    if (starts_with(flag, '-L') && !starts_with(flag, '-L/')) {
+      flag = '-L"' + pkg_dir + '/' + text(flag, 2) + '"'
+    }
+    push(resolved_ldflags, flag)
+  })
+
+  // Compute link key
+  var link_key = compute_link_key(objects, resolved_ldflags, target_ldflags, target, cc)
+  var store_path = store_dir + '/' + lib_name + '-' + link_key + dylib_ext
+
+  // Check if already linked in store
+  if (fd.is_file(store_path)) {
+    // Ensure symlink points to the store file
+    if (fd.is_link(stable_path)) {
+      var current_target = fd.readlink(stable_path)
+      if (current_target == store_path) {
+        // Already up to date
+        return stable_path
+      }
+      fd.unlink(stable_path)
+    } else if (fd.is_file(stable_path)) {
+      fd.unlink(stable_path)
+    }
+    fd.symlink(store_path, stable_path)
+    return stable_path
+  }
+
   // Build link command
   var cmd_parts = [cc, '-shared', '-fPIC']
 
   // Platform-specific flags for undefined symbols (resolved at dlopen) and size optimization
   if (tc.system == 'darwin') {
-    // Allow undefined symbols - they will be resolved when dlopen'd into the main executable
-    cmd_parts.push('-undefined', 'dynamic_lookup')
-    // Dead-strip unused code
-    cmd_parts.push('-Wl,-dead_strip')
-    // rpath for .cell/local libraries
-    cmd_parts.push('-Wl,-rpath,@loader_path/../local')
-    cmd_parts.push('-Wl,-rpath,' + local_dir)
+    cmd_parts = array(cmd_parts, [
+      '-undefined', 'dynamic_lookup',
+      '-Wl,-dead_strip',
+      '-Wl,-install_name,' + stable_path,
+      '-Wl,-rpath,@loader_path/../local',
+      '-Wl,-rpath,' + local_dir
+    ])
   } else if (tc.system == 'linux') {
-    // Allow undefined symbols at link time
-    cmd_parts.push('-Wl,--allow-shlib-undefined')
-    // Garbage collect unused sections
-    cmd_parts.push('-Wl,--gc-sections')
-    // rpath for .cell/local libraries
-    cmd_parts.push('-Wl,-rpath,$ORIGIN/../local')
-    cmd_parts.push('-Wl,-rpath,' + local_dir)
+    cmd_parts = array(cmd_parts, [
+      '-Wl,--allow-shlib-undefined',
+      '-Wl,--gc-sections',
+      '-Wl,-rpath,$ORIGIN/../local',
+      '-Wl,-rpath,' + local_dir
+    ])
   } else if (tc.system == 'windows') {
     // Windows DLLs: use --allow-shlib-undefined for mingw
-    cmd_parts.push('-Wl,--allow-shlib-undefined')
+    push(cmd_parts, '-Wl,--allow-shlib-undefined')
   }
 
   // Add .cell/local to library search path
-  cmd_parts.push('-L"' + local_dir + '"')
+  push(cmd_parts, '-L"' + local_dir + '"')
 
-  for (var i = 0; i < objects.length; i++) {
-    cmd_parts.push('"' + objects[i] + '"')
-  }
+  arrfor(objects, function(obj) {
+    push(cmd_parts, '"' + obj + '"')
+  })
 
   // Do NOT link against core library - symbols resolved at dlopen time
+  cmd_parts = array(cmd_parts, resolved_ldflags)
+  cmd_parts = array(cmd_parts, target_ldflags)
 
-  // Add LDFLAGS (resolve relative -L paths)
-  for (var i = 0; i < ldflags.length; i++) {
-    var flag = ldflags[i]
-    if (flag.startsWith('-L') && !flag.startsWith('-L/')) {
-      flag = '-L"' + pkg_dir + '/' + flag.substring(2) + '"'
-    }
-    cmd_parts.push(flag)
-  }
+  push(cmd_parts, '-o')
+  push(cmd_parts, '"' + store_path + '"')
 
-  for (var i = 0; i < target_ldflags.length; i++) {
-    cmd_parts.push(target_ldflags[i])
-  }
+  var cmd_str = text(cmd_parts, ' ')
 
-  cmd_parts.push('-o', '"' + lib_path + '"')
-  
-  var cmd_str = cmd_parts.join(' ')
-  
-  log.console('Linking ' + lib_path)
+  log.console('Linking ' + lib_name + dylib_ext)
   var ret = os.system(cmd_str)
   if (ret != 0) {
-    throw new Error('Linking failed: ' + pkg)
+    throw Error('Linking failed: ' + pkg)
   }
 
-  return lib_path
+  // Update symlink to point to the new store file
+  if (fd.is_link(stable_path)) {
+    fd.unlink(stable_path)
+  } else if (fd.is_file(stable_path)) {
+    fd.unlink(stable_path)
+  }
+  fd.symlink(store_path, stable_path)
+
+  return stable_path
 }
 
 // ============================================================================
@@ -291,38 +343,36 @@ Build.build_static = function(packages, target = Build.detect_host_target(), out
   var seen_flags = {}
   
   // Compile all packages
-  for (var i = 0; i < packages.length; i++) {
-    var pkg = packages[i]
+  arrfor(packages, function(pkg) {
     var is_core = (pkg == 'core')
     
     // For core, include main.c; for others, exclude it
     var objects = Build.build_package(pkg, target, !is_core, buildtype)
     
-    for (var j = 0; j < objects.length; j++) {
-      all_objects.push(objects[j])
-    }
+    arrfor(objects, function(obj) {
+      push(all_objects, obj)
+    })
     
     // Collect LDFLAGS (with sigil replacement)
     var ldflags = replace_sigils_array(pkg_tools.get_flags(pkg, 'LDFLAGS', target))
     var pkg_dir = shop.get_package_dir(pkg)
     
     // Deduplicate based on the entire LDFLAGS string for this package
-    var ldflags_key = pkg + ':' + ldflags.join(' ')
+    var ldflags_key = pkg + ':' + text(ldflags, ' ')
     if (!seen_flags[ldflags_key]) {
       seen_flags[ldflags_key] = true
-      for (var j = 0; j < ldflags.length; j++) {
-        var flag = ldflags[j]
+      arrfor(ldflags, function(flag) {
         // Resolve relative -L paths
-        if (flag.startsWith('-L') && !flag.startsWith('-L/')) {
-          flag = '-L"' + pkg_dir + '/' + flag.substring(2) + '"'
-        }
-        all_ldflags.push(flag)
-      }
+        if (starts_with(flag, '-L') && !starts_with(flag, '-L/')) {
+          flag = '-L"' + pkg_dir + '/' + text(flag, 2) + '"'
         }
+        push(all_ldflags, flag)
+      })
     }
+  })
   
-  if (all_objects.length == 0) {
-    throw new Error('No object files to link')
+  if (length(all_objects) == 0) {
+    throw Error('No object files to link')
   }
   
   // Link
@@ -330,32 +380,32 @@ Build.build_static = function(packages, target = Build.detect_host_target(), out
   var target_ldflags = toolchains[target].c_link_args || []
   var exe_ext = toolchains[target].system == 'windows' ? '.exe' : ''
   
-  if (!output.endsWith(exe_ext) && exe_ext) {
+  if (!ends_with(output, exe_ext) && exe_ext) {
     output = output + exe_ext
   }
   
   var cmd_parts = [cc]
   
-  for (var i = 0; i < all_objects.length; i++) {
-    cmd_parts.push('"' + all_objects[i] + '"')
-  }
+  arrfor(all_objects, function(obj) {
+    push(cmd_parts, '"' + obj + '"')
+  })
   
-  for (var i = 0; i < all_ldflags.length; i++) {
-    cmd_parts.push(all_ldflags[i])
-  }
+  arrfor(all_ldflags, function(flag) {
+    push(cmd_parts, flag)
+  })
   
-  for (var i = 0; i < target_ldflags.length; i++) {
-    cmd_parts.push(target_ldflags[i])
-  }
+  arrfor(target_ldflags, function(flag) {
+    push(cmd_parts, flag)
+  })
   
-  cmd_parts.push('-o', '"' + output + '"')
+  push(cmd_parts, '-o', '"' + output + '"')
   
-  var cmd_str = cmd_parts.join(' ')
+  var cmd_str = text(cmd_parts, ' ')
   
   log.console('Linking ' + output)
   var ret = os.system(cmd_str)
   if (ret != 0) {
-    throw new Error('Linking failed with command: ' + cmd_str)
+    throw Error('Linking failed with command: ' + cmd_str)
   }
   
   log.console('Built ' + output)
@@ -374,30 +424,30 @@ Build.build_all_dynamic = function(target, buildtype = 'release') {
   var results = []
   
   // Build core first
-  if (packages.indexOf('core') >= 0) {
+  if (find(packages, 'core') != null) {
     try {
       var lib = Build.build_dynamic('core', target, buildtype)
-      results.push({ package: 'core', library: lib })
+      push(results, { package: 'core', library: lib })
     } catch (e) {
-      log.error('Failed to build core: ' + e)
-      results.push({ package: 'core', error: e })
+      log.error('Failed to build core: ' + text(e))
+      push(results, { package: 'core', error: e })
     }
   }
   
   // Build other packages
-  for (var i = 0; i < packages.length; i++) {
-    var pkg = packages[i]
-    if (pkg == 'core') continue
+  arrfor(packages, function(pkg) {
+    if (pkg == 'core') return
     
     try {
       var lib = Build.build_dynamic(pkg, target, buildtype)
-      results.push({ package: pkg, library: lib })
+      push(results, { package: pkg, library: lib })
     } catch (e) {
       log.error('Failed to build ' + pkg + ': ')
-      log.error(e)
-      results.push({ package: pkg, error: e })
-    }
+      log.console(e.message)
+      log.console(e.stack)
+      push(results, { package: pkg, error: e })
     }
+  })
   
   return results
 }

cellfs.cm

@@ -17,30 +17,7 @@ var writepath = "."
 function normalize_path(path) {
   if (!path) return ""
   // Remove leading/trailing slashes and normalize
-  return path.replace(/^\/+|\/+$/g, "")
-}
-
-// Helper to get directory from path
-function dirname(path) {
-  var idx = path.lastIndexOf("/")
-  if (idx == -1) return ""
-  return path.substring(0, idx)
-}
-
-// Helper to get basename from path
-function basename(path) {
-  var idx = path.lastIndexOf("/")
-  if (idx == -1) return path
-  return path.substring(idx + 1)
-}
-
-// Helper to join paths
-function join_paths(base, rel) {
-  base = base.replace(/\/+$/, "")
-  rel = rel.replace(/^\/+/, "")
-  if (!base) return rel
-  if (!rel) return base
-  return base + "/" + rel
+  return replace(path, /^\/+|\/+$/, "")
 }
 
 // Check if a file exists in a specific mount
@@ -59,7 +36,7 @@ function mount_exists(mount, path) {
       return false
     }
   } else { // fs
-    var full_path = join_paths(mount.source, path)
+    var full_path = fd.join_paths(mount.source, path)
     try {
       var st = fd.stat(full_path)
       return st.isFile || st.isDirectory
@@ -86,7 +63,7 @@ function is_directory(path) {
       return false;
     }
   } else { // fs
-    var full_path = join_paths(mount.source, path)
+    var full_path = fd.join_paths(mount.source, path)
     try {
       var st = fd.stat(full_path)
       return st.isDirectory
@@ -102,44 +79,50 @@ function resolve(path, must_exist) {
   path = normalize_path(path)
   
   // Check for named mount
-  if (path.startsWith("@")) {
-    var idx = path.indexOf("/")
+  if (starts_with(path, "@")) {
+    var idx = search(path, "/")
     var mount_name = ""
     var rel_path = ""
     
-    if (idx == -1) {
-      mount_name = path.substring(1)
+    if (idx == null) {
+      mount_name = text(path, 1)
       rel_path = ""
     } else {
-      mount_name = path.substring(1, idx)
-      rel_path = path.substring(idx + 1)
+      mount_name = text(path, 1, idx)
+      rel_path = text(path, idx + 1)
     }
     
     // Find named mount
     var mount = null
-    for (var m of mounts) {
+    arrfor(mounts, function(m) {
       if (m.name == mount_name) {
         mount = m
-        break
-      }
+        return true
       }
+    }, false, true)
     
     if (!mount) {
-      throw new Error("Unknown mount point: @" + mount_name)
+      throw Error("Unknown mount point: @" + mount_name)
     }
     
     return { mount: mount, path: rel_path }
   }
   
   // Search path
-  for (var mount of mounts) {
+  var found_mount = null
+  arrfor(mounts, function(mount) {
     if (mount_exists(mount, path)) {
-      return { mount: mount, path: path }
+      found_mount = { mount: mount, path: path }
+      return true
     }
+  }, false, true)
+  
+  if (found_mount) {
+    return found_mount
   }
   
   if (must_exist) {
-    throw new Error("File not found in any mount: " + path)
+    throw Error("File not found in any mount: " + path)
   }
 }
 
@@ -174,8 +157,8 @@ function mount(source, name) {
         mount_info.zip_blob = blob // keep blob alive
     } else {
         var zip = miniz.read(blob)
-        if (!zip || typeof zip.count != 'function') {
-          throw new Error("Invalid archive file (not zip or qop): " + source)
+        if (!is_object(zip) || !is_function(zip.count)) {
+          throw Error("Invalid archive file (not zip or qop): " + source)
         }
         
         mount_info.type = 'zip'
@@ -183,36 +166,32 @@ function mount(source, name) {
         mount_info.zip_blob = blob // keep blob alive
     }
   } else {
-    throw new Error("Unsupported mount source type: " + source)
+    throw Error("Unsupported mount source type: " + source)
   }
   
-  mounts.push(mount_info)
+  push(mounts, mount_info)
 }
 
 // Unmount
 function unmount(name_or_source) {
-  for (var i = 0; i < mounts.length; i++) {
-    if (mounts[i].name == name_or_source || mounts[i].source == name_or_source) {
-      mounts.splice(i, 1)
-      return
-    }
-  }
-  throw new Error("Mount not found: " + name_or_source)
+  mounts = filter(mounts, function(mount) {
+    return mount.name != name_or_source && mount.source != name_or_source
+  })
 }
 
 // Read file
 function slurp(path) {
   var res = resolve(path, true)
-  if (!res) throw new Error("File not found: " + path)
+  if (!res) throw Error("File not found: " + path)
   
   if (res.mount.type == 'zip') {
     return res.mount.handle.slurp(res.path)
   } else if (res.mount.type == 'qop') {
     var data = res.mount.handle.read(res.path)
-    if (!data) throw new Error("File not found in qop: " + path)
+    if (!data) throw Error("File not found in qop: " + path)
     return data
   } else {
-    var full_path = join_paths(res.mount.source, res.path)
+    var full_path = fd.join_paths(res.mount.source, res.path)
     return fd.slurp(full_path)
   }
 }
@@ -229,7 +208,7 @@ function slurpwrite(path, data) {
 // Check existence
 function exists(path) {
   var res = resolve(path, false)
-  if (path.startsWith("@")) {
+  if (starts_with(path, "@")) {
     return mount_exists(res.mount, res.path)
   }
   return res != null
@@ -238,7 +217,7 @@ function exists(path) {
 // Stat
 function stat(path) {
   var res = resolve(path, true)
-  if (!res) throw new Error("File not found: " + path)
+  if (!res) throw Error("File not found: " + path)
   
   if (res.mount.type == 'zip') {
     var mod = res.mount.handle.mod(res.path)
@@ -249,14 +228,14 @@ function stat(path) {
     }
   } else if (res.mount.type == 'qop') {
     var s = res.mount.handle.stat(res.path)
-    if (!s) throw new Error("File not found in qop: " + path)
+    if (!s) throw Error("File not found in qop: " + path)
     return {
         filesize: s.size,
         modtime: s.modtime,
         isDirectory: s.isDirectory
     }
   } else {
-    var full_path = join_paths(res.mount.source, res.path)
+    var full_path = fd.join_paths(res.mount.source, res.path)
     var s = fd.stat(full_path)
     return {
       filesize: s.size,
@@ -268,7 +247,7 @@ function stat(path) {
 
 // Get search paths
 function searchpath() {
-  return mounts.slice()
+  return array(mounts)
 }
 
 // Mount a package using the shop system
@@ -282,7 +261,7 @@ function mount_package(name) {
   var dir = shop.get_package_dir(name)
 
   if (!dir) {
-    throw new Error("Package not found: " + name)
+    throw Error("Package not found: " + name)
   }
 
   mount(dir, name)
@@ -296,16 +275,16 @@ function match(str, pattern) {
 
 function rm(path) {
   var res = resolve(path, true)
-  if (res.mount.type != 'fs') throw new Error("Cannot delete from non-fs mount")
+  if (res.mount.type != 'fs') throw Error("Cannot delete from non-fs mount")
   
-  var full_path = join_paths(res.mount.source, res.path)
+  var full_path = fd.join_paths(res.mount.source, res.path)
   var st = fd.stat(full_path)
   if (st.isDirectory) fd.rmdir(full_path)
   else fd.unlink(full_path)
 }
 
 function mkdir(path) {
-  var full = join_paths(writepath, path)
+  var full = fd.join_paths(writepath, path)
   fd.mkdir(full)
 }
 
@@ -324,7 +303,7 @@ function prefdir(org, app) {
 function realdir(path) {
    var res = resolve(path, false)
    if (!res) return null
-   return join_paths(res.mount.source, res.path)
+   return fd.join_paths(res.mount.source, res.path)
 }
 
 function enumerate(path, recurse) {
@@ -337,21 +316,21 @@ function enumerate(path, recurse) {
        var list = fd.readdir(curr_full)
        if (!list) return
        
-       for (var item of list) {
+       arrfor(list, function(item) {
           var item_rel = rel_prefix ? rel_prefix + "/" + item : item
-          results.push(item_rel)
+          push(results, item_rel)
           
           if (recurse) {
-             var st = fd.stat(join_paths(curr_full, item))
+             var st = fd.stat(fd.join_paths(curr_full, item))
              if (st.isDirectory) {
-                visit(join_paths(curr_full, item), item_rel)
-             }
+                visit(fd.join_paths(curr_full, item), item_rel)
              }
           }
+       })
     }
     
     if (res.mount.type == 'fs') {
-        var full = join_paths(res.mount.source, res.path)
+        var full = fd.join_paths(res.mount.source, res.path)
         var st = fd.stat(full)
         if (st && st.isDirectory) {
            visit(full, "")
@@ -359,29 +338,29 @@ function enumerate(path, recurse) {
     } else if (res.mount.type == 'qop') {
         var all = res.mount.handle.list()
         var prefix = res.path ? res.path + "/" : ""
-        var prefix_len = prefix.length
+        var prefix_len = length(prefix)
         
         // Use a set to avoid duplicates if we are simulating directories
         var seen = {}
         
-        for (var p of all) {
-            if (p.startsWith(prefix)) {
-                var rel = p.substring(prefix_len)
-                if (rel.length == 0) continue
+        arrfor(all, function(p) {
+            if (starts_with(p, prefix)) {
+                var rel = text(p, prefix_len)
+                if (length(rel) == 0) return
 
                 if (!recurse) {
-                    var slash = rel.indexOf('/')
-                    if (slash != -1) {
-                        rel = rel.substring(0, slash)
+                    var slash = search(rel, '/')
+                    if (slash != null) {
+                        rel = text(rel, 0, slash)
                     }
                 }
                 
                 if (!seen[rel]) {
                     seen[rel] = true
-                    results.push(rel)
-                }
+                    push(results, rel)
                 }
             }
+        })
     }
     
     return results
@@ -393,17 +372,25 @@ function globfs(globs, dir) {
    var results = []
    
    function check_neg(path) {
-        for (var g of globs) {
-            if (g.startsWith("!") && wildstar.match(g.substring(1), path, wildstar.WM_WILDSTAR)) return true;
+        var result = false
+        arrfor(globs, function(g) {
+            if (starts_with(g, "!") && wildstar.match(text(g, 1), path, wildstar.WM_WILDSTAR)) {
+                result = true
+                return true
             }
-        return false;
+        }, false, true)
+        return result
     }
     
    function check_pos(path) {
-        for (var g of globs) {
-            if (!g.startsWith("!") && wildstar.match(g, path, wildstar.WM_WILDSTAR)) return true;
+        var result = false
+        arrfor(globs, function(g) {
+            if (!starts_with(g, "!") && wildstar.match(g, path, wildstar.WM_WILDSTAR)) {
+                result = true
+                return true
             }
-        return false;
+        }, false, true)
+        return result
     }
 
    function visit(curr_full, rel_prefix) {
@@ -412,10 +399,10 @@ function globfs(globs, dir) {
        var list = fd.readdir(curr_full)
        if (!list) return
        
-       for (var item of list) {
+       arrfor(list, function(item) {
           var item_rel = rel_prefix ? rel_prefix + "/" + item : item
           
-          var child_full = join_paths(curr_full, item)
+          var child_full = fd.join_paths(curr_full, item)
           var st = fd.stat(child_full)
           
           if (st.isDirectory) {
@@ -424,14 +411,14 @@ function globfs(globs, dir) {
               }
           } else {
               if (!check_neg(item_rel) && check_pos(item_rel)) {
-                  results.push(item_rel)
-              }
+                  push(results, item_rel)
               }
           }
+       })
    }
    
    if (res.mount.type == 'fs') {
-        var full = join_paths(res.mount.source, res.path)
+        var full = fd.join_paths(res.mount.source, res.path)
         var st = fd.stat(full)
         if (st && st.isDirectory) {
            visit(full, "")
@@ -439,18 +426,18 @@ function globfs(globs, dir) {
    } else if (res.mount.type == 'qop') {
         var all = res.mount.handle.list()
         var prefix = res.path ? res.path + "/" : ""
-        var prefix_len = prefix.length
+        var prefix_len = length(prefix)
         
-        for (var p of all) {
-            if (p.startsWith(prefix)) {
-                var rel = p.substring(prefix_len)
-                if (rel.length == 0) continue
+        arrfor(all, function(p) {
+            if (starts_with(p, prefix)) {
+                var rel = text(p, prefix_len)
+                if (length(rel) == 0) return
 
                 if (!check_neg(rel) && check_pos(rel)) {
-                    results.push(rel)
-                }
+                    push(results, rel)
                 }
             }
+        })
    }
    
    return results

clean.ce

@@ -1,26 +1,218 @@
-// cell clean - Remove build artifacts from global shop
+// cell clean [<scope>] - Remove cached material to force refetch/rebuild
+//
+// Usage:
+//   cell clean              Clean build outputs for current directory package
+//   cell clean .            Clean build outputs for current directory package
+//   cell clean <locator>    Clean build outputs for specific package
+//   cell clean shop         Clean entire shop
+//   cell clean world        Clean all world packages
+//
+// Options:
+//   --build      Remove build outputs only (default)
+//   --fetch      Remove fetched sources only
+//   --all        Remove both build outputs and fetched sources
+//   --deep       Apply to full dependency closure
+//   --dry-run    Show what would be deleted
 
-var fd = use('fd')
 var shop = use('internal/shop')
+var pkg = use('package')
+var fd = use('fd')
 
-var build_dir = shop.get_shop_path() + '/build'
+var scope = null
+var clean_build = false
+var clean_fetch = false
+var deep = false
+var dry_run = false
 
-if (!fd.is_dir(build_dir)) {
-  log.console("No build directory found at " + build_dir)
+for (var i = 0; i < length(args); i++) {
+  if (args[i] == '--build') {
+    clean_build = true
+  } else if (args[i] == '--fetch') {
+    clean_fetch = true
+  } else if (args[i] == '--all') {
+    clean_build = true
+    clean_fetch = true
+  } else if (args[i] == '--deep') {
+    deep = true
+  } else if (args[i] == '--dry-run') {
+    dry_run = true
+  } else if (args[i] == '--help' || args[i] == '-h') {
+    log.console("Usage: cell clean [<scope>] [options]")
+    log.console("")
+    log.console("Remove cached material to force refetch/rebuild.")
+    log.console("")
+    log.console("Scopes:")
+    log.console("  <locator>  Clean specific package")
+    log.console("  shop       Clean entire shop")
+    log.console("  world      Clean all world packages")
+    log.console("")
+    log.console("Options:")
+    log.console("  --build    Remove build outputs only (default)")
+    log.console("  --fetch    Remove fetched sources only")
+    log.console("  --all      Remove both build outputs and fetched sources")
+    log.console("  --deep     Apply to full dependency closure")
+    log.console("  --dry-run  Show what would be deleted")
     $stop()
-  return
+  } else if (!starts_with(args[i], '-')) {
+    scope = args[i]
+  }
 }
 
-log.console("Cleaning build artifacts...")
-
-// Remove the build directory
-try {
-  fd.rm(build_dir)
-  log.console("Build directory removed: " + build_dir)
-} catch (e) {
-  log.error(e)
+// Default to --build if nothing specified
+if (!clean_build && !clean_fetch) {
+  clean_build = true
 }
 
-log.console("Clean complete!")
+// Default scope to current directory
+if (!scope) {
+  scope = '.'
+}
+
+// Resolve local paths for single package scope
+var is_shop_scope = (scope == 'shop')
+var is_world_scope = (scope == 'world')
+
+if (!is_shop_scope && !is_world_scope) {
+  if (scope == '.' || starts_with(scope, './') || starts_with(scope, '../') || fd.is_dir(scope)) {
+    var resolved = fd.realpath(scope)
+    if (resolved) {
+      scope = resolved
+    }
+  }
+}
+
+var files_to_delete = []
+var dirs_to_delete = []
+
+// Gather packages to clean
+var packages_to_clean = []
+
+if (is_shop_scope) {
+  packages_to_clean = shop.list_packages()
+} else if (is_world_scope) {
+  // For now, world is the same as shop
+  packages_to_clean = shop.list_packages()
+} else {
+  // Single package
+  push(packages_to_clean, scope)
+
+  if (deep) {
+    try {
+      var deps = pkg.gather_dependencies(scope)
+      arrfor(deps, function(dep) {
+        push(packages_to_clean, dep)
+      })
+    } catch (e) {
+      // Skip if can't read dependencies
+    }
+  }
+}
+
+// Gather files to clean
+var lib_dir = shop.get_lib_dir()
+var build_dir = shop.get_build_dir()
+var packages_dir = replace(shop.get_package_dir(''), /\/$/, '') // Get base packages dir
+
+if (clean_build) {
+  if (is_shop_scope) {
+    // Clean entire build and lib directories
+    if (fd.is_dir(build_dir)) {
+      push(dirs_to_delete, build_dir)
+    }
+    if (fd.is_dir(lib_dir)) {
+      push(dirs_to_delete, lib_dir)
+    }
+  } else {
+    // Clean specific package libraries
+    arrfor(packages_to_clean, function(p) {
+      if (p == 'core') return
+
+      var lib_name = shop.lib_name_for_package(p)
+      var dylib_ext = '.dylib'
+      var lib_path = lib_dir + '/' + lib_name + dylib_ext
+
+      if (fd.is_file(lib_path)) {
+        push(files_to_delete, lib_path)
+      }
+
+      // Also check for .so and .dll
+      var so_path = lib_dir + '/' + lib_name + '.so'
+      var dll_path = lib_dir + '/' + lib_name + '.dll'
+      if (fd.is_file(so_path)) {
+        push(files_to_delete, so_path)
+      }
+      if (fd.is_file(dll_path)) {
+        push(files_to_delete, dll_path)
+      }
+    })
+  }
+}
+
+if (clean_fetch) {
+  if (is_shop_scope) {
+    // Clean entire packages directory (dangerous!)
+    if (fd.is_dir(packages_dir)) {
+      push(dirs_to_delete, packages_dir)
+    }
+  } else {
+    // Clean specific package directories
+    arrfor(packages_to_clean, function(p) {
+      if (p == 'core') return
+
+      var pkg_dir = shop.get_package_dir(p)
+      if (fd.is_dir(pkg_dir) || fd.is_link(pkg_dir)) {
+        push(dirs_to_delete, pkg_dir)
+      }
+    })
+  }
+}
+
+// Execute or report
+if (dry_run) {
+  log.console("Would delete:")
+  if (length(files_to_delete) == 0 && length(dirs_to_delete) == 0) {
+    log.console("  (nothing to clean)")
+  } else {
+    arrfor(files_to_delete, function(f) {
+      log.console("  [file] " + f)
+    })
+    arrfor(dirs_to_delete, function(d) {
+      log.console("  [dir]  " + d)
+    })
+  }
+} else {
+  var deleted_count = 0
+
+  arrfor(files_to_delete, function(f) {
+    try {
+      fd.unlink(f)
+      log.console("Deleted: " + f)
+      deleted_count++
+    } catch (e) {
+      log.error("Failed to delete " + f + ": " + e)
+    }
+  })
+
+  arrfor(dirs_to_delete, function(d) {
+    try {
+      if (fd.is_link(d)) {
+        fd.unlink(d)
+      } else {
+        fd.rmdir(d, 1) // recursive
+      }
+      log.console("Deleted: " + d)
+      deleted_count++
+    } catch (e) {
+      log.error("Failed to delete " + d + ": " + e)
+    }
+  })
+
+  if (deleted_count == 0) {
+    log.console("Nothing to clean.")
+  } else {
+    log.console("")
+    log.console("Clean complete: " + text(deleted_count) + " item(s) deleted.")
+  }
+}
 
 $stop()

clone.ce

@@ -7,7 +7,7 @@ var fd = use('fd')
 var http = use('http')
 var miniz = use('miniz')
 
-if (args.length < 2) {
+if (length(args) < 2) {
   log.console("Usage: cell clone <origin> <path>")
   log.console("Clones a cell package to a local path and links it.")
   $stop()
@@ -18,7 +18,7 @@ var origin = args[0]
 var target_path = args[1]
 
 // Resolve target path to absolute
-if (target_path == '.' || target_path.startsWith('./') || target_path.startsWith('../')) {
+if (target_path == '.' || starts_with(target_path, './') || starts_with(target_path, '../')) {
   var resolved = fd.realpath(target_path)
   if (resolved) {
     target_path = resolved
@@ -27,12 +27,12 @@ if (target_path == '.' || target_path.startsWith('./') || target_path.startsWith
     var cwd = fd.realpath('.')
     if (target_path == '.') {
       target_path = cwd
-    } else if (target_path.startsWith('./')) {
-      target_path = cwd + target_path.substring(1)
-    } else if (target_path.startsWith('../')) {
+    } else if (starts_with(target_path, './')) {
+      target_path = cwd + text(target_path, 1)
+    } else if (starts_with(target_path, '../')) {
       // Go up one directory from cwd
-      var parent = cwd.substring(0, cwd.lastIndexOf('/'))
-      target_path = parent + target_path.substring(2)
+      var parent = fd.dirname(cwd)
+      target_path = parent + text(target_path, 2)
     }
   }
 }
@@ -92,14 +92,13 @@ try {
   for (var i = 0; i < count; i++) {
     if (zip.is_directory(i)) continue
     var filename = zip.get_filename(i)
-    var parts = filename.split('/')
-    if (parts.length <= 1) continue
+    var first_slash = search(filename, '/')
+    if (first_slash == null) continue
+    if (first_slash + 1 >= length(filename)) continue
 
-    // Skip the first directory (repo-commit prefix)
-    parts.shift()
-    var rel_path = parts.join('/')
+    var rel_path = text(filename, first_slash + 1)
     var full_path = target_path + '/' + rel_path
-    var dir_path = full_path.substring(0, full_path.lastIndexOf('/'))
+    var dir_path = fd.dirname(full_path)
     
     // Ensure directory exists
     if (!fd.is_dir(dir_path)) {

config.ce

@@ -31,30 +31,30 @@ function print_help() {
 
 // Parse a dot-notation key into path segments
 function parse_key(key) {
-  return key.split('.')
+  return array(key, '.')
 }
 
 // Get a value from nested object using path
 function get_nested(obj, path) {
   var current = obj
-  for (var segment of path) {
-    if (!current || typeof current != 'object') return null
+  arrfor(path, function(segment) {
+    if (is_null(current) || !is_object(current)) return null
     current = current[segment]
-  }
+  })
   return current
 }
 
 // Set a value in nested object using path
 function set_nested(obj, path, value) {
   var current = obj
-  for (var i = 0; i < path.length - 1; i++) {
+  for (var i = 0; i < length(path) - 1; i++) {
     var segment = path[i]
-    if (!current[segment] || typeof current[segment] != 'object') {
+    if (is_null(current[segment]) || !is_object(current[segment])) {
       current[segment] = {}
     }
     current = current[segment]
   }
-  current[path[path.length - 1]] = value
+  current[path[length(path) - 1]] = value
 }
 
 // Parse value string into appropriate type
@@ -64,7 +64,7 @@ function parse_value(str) {
   if (str == 'false') return false
   
   // Number (including underscores)
-  var num_str = str.replace(/_/g, '')
+  var num_str = replace(str, /_/g, '')
   if (/^-?\d+$/.test(num_str)) return parseInt(num_str)
   if (/^-?\d*\.\d+$/.test(num_str)) return parseFloat(num_str)
   
@@ -74,29 +74,29 @@ function parse_value(str) {
 
 // Format value for display
 function format_value(val) {
-  if (typeof val == 'string') return '"' + val + '"'
-  if (typeof val == 'number' && val >= 1000) {
+  if (is_text(val)) return '"' + val + '"'
+  if (is_number(val) && val >= 1000) {
     // Add underscores to large numbers
-    return val.toString().replace(/\B(?=(\d{3})+(?!\d))/g, '_')
+    return replace(val.toString(), /\B(?=(\d{3})+(?!\d))/g, '_')
   }
   return text(val)
 }
 
 // Print configuration tree recursively
 function print_config(obj, prefix = '') {
-  for (var key in obj) {
+  arrfor(array(obj), function(key) {
     var val = obj[key]
     var full_key = prefix ? prefix + '.' + key : key
     
-    if (isa(val, object))
+    if (is_object(val))
       print_config(val, full_key)
     else
       log.console(full_key + ' = ' + format_value(val))
-  }
+  })
 }
 
 // Main command handling
-if (args.length == 0) {
+if (length(args) == 0) {
   print_help()
   $stop()
   return
@@ -110,6 +110,9 @@ if (!config) {
 }
 
 var command = args[0]
+var key
+var path
+var value
 
 switch (command) {
   case 'help':
@@ -125,14 +128,14 @@ switch (command) {
     break
     
   case 'get':
-    if (args.length < 2) {
+    if (length(args) < 2) {
       log.error("Usage: cell config get <key>")
       $stop()
       return
     }
-    var key = args[1]
-    var path = parse_key(key)
-    var value = get_nested(config, path)
+    key = args[1]
+    path = parse_key(key)
+    value = get_nested(config, path)
     
     if (value == null) {
       log.error("Key not found: " + key)
@@ -145,7 +148,7 @@ switch (command) {
     break
 
   case 'set':
-    if (args.length < 3) {
+    if (length(args) < 3) {
       log.error("Usage: cell config set <key> <value>")
       $stop()
       return
@@ -161,8 +164,8 @@ switch (command) {
         'ar_timer', 'actor_memory', 'net_service', 
         'reply_timeout', 'actor_max', 'stack_max'
       ]
-      if (!valid_system_keys.includes(path[1])) {
-        log.error("Invalid system key. Valid keys: " + valid_system_keys.join(', '))
+      if (find(valid_system_keys, path[1]) == null) {
+        log.error("Invalid system key. Valid keys: " + text(valid_system_keys, ', '))
         $stop()
         return
       }
@@ -175,7 +178,7 @@ switch (command) {
 
   case 'actor':
     // Handle actor-specific configuration
-    if (args.length < 3) {
+    if (length(args) < 3) {
       log.error("Usage: cell config actor <name> <command> [options]")
       $stop()
       return
@@ -190,7 +193,7 @@ switch (command) {
     
     switch (actor_cmd) {
       case 'list':
-        if (array(config.actors[actor_name]).length == 0) {
+        if (length(array(config.actors[actor_name])) == 0) {
           log.console("No configuration for actor: " + actor_name)
         } else {
           log.console("# Configuration for actor: " + actor_name)
@@ -200,14 +203,14 @@ switch (command) {
         break
         
       case 'get':
-        if (args.length < 4) {
+        if (length(args) < 4) {
           log.error("Usage: cell config actor <name> get <key>")
           $stop()
           return
         }
-        var key = args[3]
-        var path = parse_key(key)
-        var value = get_nested(config.actors[actor_name], path)
+        key = args[3]
+        path = parse_key(key)
+        value = get_nested(config.actors[actor_name], path)
         
         if (value == null) {
           log.error("Key not found for actor " + actor_name + ": " + key)
@@ -217,15 +220,15 @@ switch (command) {
         break
         
       case 'set':
-        if (args.length < 5) {
+        if (length(args) < 5) {
           log.error("Usage: cell config actor <name> set <key> <value>")
           $stop()
           return
         }
-        var key = args[3]
+        key = args[3]
         var value_str = args[4]
-        var path = parse_key(key)
-        var value = parse_value(value_str)
+        path = parse_key(key)
+        value = parse_value(value_str)
         
         set_nested(config.actors[actor_name], path, value)
         pkg.save_config(config)

crypto.c

@@ -231,7 +231,7 @@ JSValue js_crypto_unlock(JSContext *js, JSValue self, int argc, JSValue *argv) {
 
 static const JSCFunctionListEntry js_crypto_funcs[] = {
   JS_CFUNC_DEF("shared", 2, js_crypto_shared),
-  JS_CFUNC_DEF("blake2", 1, js_crypto_blake2),
+  JS_CFUNC_DEF("blake2", 2, js_crypto_blake2),
   JS_CFUNC_DEF("sign", 2, js_crypto_sign),
   JS_CFUNC_DEF("verify", 3, js_crypto_verify),
   JS_CFUNC_DEF("lock", 3, js_crypto_lock),

docs/cellscript.md

@@ -230,10 +230,10 @@ var json = use('json')
 Check type or prototype chain.
 
 ```javascript
-isa(42, number)        // true
-isa("hi", text)        // true
-isa([1,2], array)      // true
-isa({}, object)        // true
+is_number(42)        // true
+is_text("hi")        // true
+is_array([1,2])      // true
+is_object({})        // true
 isa(child, parent)     // true if parent is in prototype chain
 ```
 
@@ -270,7 +270,7 @@ Cell supports regex patterns in string functions, but not standalone regex objec
 
 ```javascript
 text.search("hello world", /world/)
-text.replace("hello", /l/g, "L")
+replace("hello", /l/g, "L")
 ```
 
 ## Error Handling

docs/index.md

@@ -35,7 +35,7 @@ cell hello
 ## Standard Library
 
 - [text](library/text.md) — string manipulation
-- [number](library/number.md) — numeric operations
+- [number](library/number.md) — numeric operations (functions are global: `floor()`, `max()`, etc.)
 - [array](library/array.md) — array utilities
 - [object](library/object.md) — object utilities
 - [blob](library/blob.md) — binary data

docs/library/number.md

@@ -46,98 +46,98 @@ number("0xff", "j")     // 255
 
 ## Methods
 
-### number.abs(n)
+### abs(n)
 
 Absolute value.
 
 ```javascript
-number.abs(-5)   // 5
-number.abs(5)    // 5
+abs(-5)   // 5
+abs(5)    // 5
 ```
 
-### number.sign(n)
+### sign(n)
 
 Returns -1, 0, or 1.
 
 ```javascript
-number.sign(-5)  // -1
-number.sign(0)   // 0
-number.sign(5)   // 1
+sign(-5)  // -1
+sign(0)   // 0
+sign(5)   // 1
 ```
 
-### number.floor(n, place)
+### floor(n, place)
 
 Round down.
 
 ```javascript
-number.floor(4.9)      // 4
-number.floor(4.567, 2) // 4.56
+floor(4.9)      // 4
+floor(4.567, 2) // 4.56
 ```
 
-### number.ceiling(n, place)
+### ceiling(n, place)
 
 Round up.
 
 ```javascript
-number.ceiling(4.1)      // 5
-number.ceiling(4.123, 2) // 4.13
+ceiling(4.1)      // 5
+ceiling(4.123, 2) // 4.13
 ```
 
-### number.round(n, place)
+### round(n, place)
 
 Round to nearest.
 
 ```javascript
-number.round(4.5)      // 5
-number.round(4.567, 2) // 4.57
+round(4.5)      // 5
+round(4.567, 2) // 4.57
 ```
 
-### number.trunc(n, place)
+### trunc(n, place)
 
 Truncate toward zero.
 
 ```javascript
-number.trunc(4.9)   // 4
-number.trunc(-4.9)  // -4
+trunc(4.9)   // 4
+trunc(-4.9)  // -4
 ```
 
-### number.whole(n)
+### whole(n)
 
 Get the integer part.
 
 ```javascript
-number.whole(4.9)   // 4
-number.whole(-4.9)  // -4
+whole(4.9)   // 4
+whole(-4.9)  // -4
 ```
 
-### number.fraction(n)
+### fraction(n)
 
 Get the fractional part.
 
 ```javascript
-number.fraction(4.75)  // 0.75
+fraction(4.75)  // 0.75
 ```
 
-### number.min(...values)
+### min(...values)
 
 Return the smallest value.
 
 ```javascript
-number.min(3, 1, 4, 1, 5)  // 1
+min(3, 1, 4, 1, 5)  // 1
 ```
 
-### number.max(...values)
+### max(...values)
 
 Return the largest value.
 
 ```javascript
-number.max(3, 1, 4, 1, 5)  // 5
+max(3, 1, 4, 1, 5)  // 5
 ```
 
-### number.remainder(dividend, divisor)
+### remainder(dividend, divisor)
 
 Compute remainder.
 
 ```javascript
-number.remainder(17, 5)  // 2
+remainder(17, 5)  // 2
 ```

docs/library/text.md

@@ -70,18 +70,18 @@ text.search("hello world", "xyz")       // null
 text.search("hello hello", "hello", 1)  // 6
 ```
 
-### text.replace(text, target, replacement, limit)
+### text.replace(text, target, replacement, cap)
 
-Replace occurrences of `target` with `replacement`.
+Replace occurrences of `target` with `replacement`. If `cap` is not specified, replaces all occurrences.
 
 ```javascript
-text.replace("hello", "l", "L")      // "heLLo"
-text.replace("hello", "l", "L", 1)   // "heLlo"
+text.replace("hello", "l", "L")      // "heLLo" (replaces all)
+text.replace("hello", "l", "L", 1)   // "heLlo" (replaces first only)
 
 // With function
 text.replace("hello", "l", function(match, pos) {
   return pos == 2 ? "L" : match
-})  // "heLlo"
+})  // "heLLo" (replaces all by default)
 ```
 
 ### text.format(text, collection, transformer)

examples/http_download_actor.ce

@@ -1,234 +0,0 @@
-// HTTP Download Actor
-// Handles download requests and progress queries
-var http = use('http');
-var os = use('os');
-
-// Actor state
-var state = {
-    downloading: false,
-    current_url: null,
-    total_bytes: 0,
-    downloaded_bytes: 0,
-    start_time: 0,
-    error: null,
-    connection: null,
-    download_msg: null,
-    chunks: []
-};
-
-// Helper to calculate progress percentage
-function get_progress() {
-    if (state.total_bytes == 0) {
-        return 0;
-    }
-    return number.round((state.downloaded_bytes / state.total_bytes) * 100);
-}
-
-// Helper to format status response
-function get_status() {
-    if (!state.downloading) {
-        return {
-            status: 'idle',
-            error: state.error
-        };
-    }
-    
-    var elapsed = os.now() - state.start_time;
-    var bytes_per_sec = elapsed > 0 ? state.downloaded_bytes / elapsed : 0;
-    
-    return {
-        status: 'downloading',
-        url: state.current_url,
-        progress: get_progress(),
-        downloaded_bytes: state.downloaded_bytes,
-        total_bytes: state.total_bytes,
-        elapsed_seconds: elapsed,
-        bytes_per_second: number.round(bytes_per_sec)
-    };
-}
-
-// Main message receiver
-$receiver(function(msg) {
-    switch (msg.type) {
-        case 'download':
-            if (state.downloading) {
-                send(msg, {
-                    type: 'error',
-                    error: 'Already downloading',
-                    current_url: state.current_url
-                });
-                return;
-            }
-            
-            if (!msg.url) {
-                send(msg, {
-                    type: 'error',
-                    error: 'No URL provided'
-                });
-                return;
-            }
-            
-            // Start download
-            state.downloading = true;
-            state.current_url = msg.url;
-            state.total_bytes = 0;
-            state.downloaded_bytes = 0;
-            state.start_time = os.now();
-            state.error = null;
-            state.download_msg = msg;
-            state.chunks = [];
-            
-            try {
-                // Start the connection
-                state.connection = http.fetch_start(msg.url, msg.options || {});
-                if (!state.connection) {
-                    throw new Error('Failed to start download');
-                }
-                
-                // Schedule the first chunk read
-                $delay(read_next_chunk, 0);
-                
-            } catch (e) {
-                state.error = e.toString();
-                state.downloading = false;
-                
-                send(msg, {
-                    type: 'error',
-                    error: state.error,
-                    url: msg.url
-                });
-            }
-            break;
-            
-        case 'status':
-            log.console(`got status request. current is ${get_status()}`)
-            send(msg, {
-                type: 'status_response',
-                ...get_status()
-            });
-            break;
-            
-        case 'cancel':
-            if (state.downloading) {
-                // Cancel the download
-                if (state.connection) {
-                    http.fetch_close(state.connection);
-                    state.connection = null;
-                }
-                state.downloading = false;
-                state.current_url = null;
-                state.download_msg = null;
-                state.chunks = [];
-                
-                send(msg, {
-                    type: 'cancelled',
-                    message: 'Download cancelled',
-                    url: state.current_url
-                });
-            } else {
-                send(msg, {
-                    type: 'error',
-                    error: 'No download in progress'
-                });
-            }
-            break;
-            
-        default:
-            send(msg, {
-                type: 'error',
-                error: 'Unknown message type: ' + msg.type
-            });
-    }
-});
-
-// Non-blocking chunk reader
-function read_next_chunk() {
-    if (!state.downloading || !state.connection) {
-        return;
-    }
-    
-    try {
-        var chunk = http.fetch_read_chunk(state.connection);
-        
-        if (chunk == null) {
-            // Download complete
-            finish_download();
-            return;
-        }
-        
-        // Store chunk
-        state.chunks.push(chunk);
-        
-        // Update progress
-        var info = http.fetch_info(state.connection);
-        state.downloaded_bytes = info.bytes_read;
-        if (info.headers_complete && info.content_length > 0) {
-            state.total_bytes = info.content_length;
-        }
-        
-        // Schedule next chunk read
-        $delay(read_next_chunk, 0);
-        
-    } catch (e) {
-        // Error during download
-        state.error = e.toString();
-        if (state.connection) {
-            http.fetch_close(state.connection);
-        }
-        
-        if (state.download_msg) {
-            send(state.download_msg, {
-                type: 'error',
-                error: state.error,
-                url: state.current_url
-            });
-        }
-        
-        // Reset state
-        state.downloading = false;
-        state.connection = null;
-        state.download_msg = null;
-        state.chunks = [];
-    }
-}
-
-// Complete the download and send result
-function finish_download() {
-    if (state.connection) {
-        http.fetch_close(state.connection);
-    }
-    
-    // Combine all chunks into single ArrayBuffer
-    var total_size = 0;
-    for (var i = 0; i < state.chunks.length; i++) {
-        total_size += state.chunks[i].byteLength;
-    }
-    
-    var result = new ArrayBuffer(total_size);
-    var view = new Uint8Array(result);
-    var offset = 0;
-    
-    for (var i = 0; i < state.chunks.length; i++) {
-        var chunk_view = new Uint8Array(state.chunks[i]);
-        view.set(chunk_view, offset);
-        offset += state.chunks[i].byteLength;
-    }
-    
-    // Send complete message
-    if (state.download_msg) {
-        send(state.download_msg, {
-            type: 'complete',
-            url: state.current_url,
-            data: result,
-            size: result.byteLength,
-            duration: os.now() - state.start_time
-        });
-    }
-    
-    // Reset state
-    state.downloading = false;
-    state.connection = null;
-    state.current_url = null;
-    state.download_msg = null;
-    state.chunks = [];
-}

examples/nat.ce

@@ -10,7 +10,7 @@ var match_id = 0;
 $portal(e => {
   log.console("NAT server: received connection request");
   
-  if (!isa(e.actor, actor))
+  if (!is_actor(e.actor))
     send(e, {reason: "Must provide the actor you want to connect."});
 
   if (waiting_client) {

fd.c

@@ -502,10 +502,9 @@ JSC_SCALL(fd_readdir,
        ret = JS_ThrowInternalError(js, "FindFirstFile failed for %s", path);
     } else {
        ret = JS_NewArray(js);
-       int i = 0;
        do {
           if (strcmp(ffd.cFileName, ".") == 0 || strcmp(ffd.cFileName, "..") == 0) continue;
-          JS_SetPropertyUint32(js, ret, i++, JS_NewString(js, ffd.cFileName));
+          JS_ArrayPush(js, ret,JS_NewString(js, ffd.cFileName));
        } while (FindNextFile(hFind, &ffd) != 0);
        FindClose(hFind);
     }
@@ -515,10 +514,9 @@ JSC_SCALL(fd_readdir,
     d = opendir(str);
     if (d) {
         ret = JS_NewArray(js);
-        int i = 0;
         while ((dir = readdir(d)) != NULL) {
             if (strcmp(dir->d_name, ".") == 0 || strcmp(dir->d_name, "..") == 0) continue;
-            JS_SetPropertyUint32(js, ret, i++, JS_NewString(js, dir->d_name));
+            JS_ArrayPush(js, ret, JS_NewString(js, dir->d_name));
         }
         closedir(d);
     } else {
@@ -559,20 +557,23 @@ JSC_CCALL(fd_slurpwrite,
     size_t len;
     const char *data = js_get_blob_data(js, &len, argv[1]);
 
-    if (data == (const char *)-1)
+    if (!data && len > 0)
         return JS_EXCEPTION;
     
     const char *str = JS_ToCString(js, argv[0]);
 
     if (!str) return JS_EXCEPTION;
     int fd = open(str, O_WRONLY | O_CREAT | O_TRUNC, 0644);
+    if (fd < 0)  {
       JS_FreeCString(js, str);
-    if (fd < 0) 
       return JS_ThrowInternalError(js, "open failed for %s: %s", str, strerror(errno));
+    }
     
     ssize_t written = write(fd, data, len);
     close(fd);
 
+    JS_FreeCString(js, str);
+    
     if (written != (ssize_t)len) 
       return JS_ThrowInternalError(js, "write failed for %s: %s", str, strerror(errno));
     

fd.cm

@@ -1,31 +1,67 @@
 var fd = this
 var wildstar = use('wildstar')
 
+function last_pos(str, sep) {
+  var last = null
+  replace(str, sep, function(m, pos) {
+    last = pos
+    return m
+  })
+  return last
+}
+
 // Helper to join paths
 function join_paths(base, rel) {
-  base = base.replace(/\/+$/, "")
-  rel = rel.replace(/^\/+/, "")
+  base = replace(base, /\/+$/, "")
+  rel = replace(rel, /^\/+/, "")
   if (!base) return rel
   if (!rel) return base
   return base + "/" + rel
 }
 
+fd.join_paths = join_paths
+fd.basename = function basename(path) {
+  var last = last_pos(path, '/')
+  if (last == null) return path
+  return text(path, last+1)
+}
+
+fd.dirname = function dirname(path) {
+  var last = last_pos(path, '/')
+  if (last == null) return ""
+  return text(path,0,last)
+}
+
+fd.stem = function stem(path) {
+  var last = last_pos(path, '.')
+  if (last == null) return path
+  return text(path,0,last)
+}
+
 fd.globfs = function(globs, dir) {
   if (dir == null) dir = "."
   var results = []
   
   function check_neg(path) {
-    for (var g of globs) {
-      if (g.startsWith("!") && wildstar.match(g.substring(1), path, wildstar.WM_WILDSTAR)) return true;
+    var found = false;
+    arrfor(globs, function(g) {
+      if (starts_with(g, "!") && wildstar.match(text(g, 1), path, wildstar.WM_WILDSTAR)) {
+        found = true;
+        return true;
       }
-    return false;
+    }, null, true);
+    return found;
   }
   
   function check_pos(path) {
-    for (var g of globs) {
-      if (!g.startsWith("!") && wildstar.match(g, path, wildstar.WM_WILDSTAR)) return true;
+    var found = false;
+    arrfor(globs, function(g) {
+      if (!starts_with(g, "!") && wildstar.match(g, path, wildstar.WM_WILDSTAR)) {
+        found = true;
+        return true;
       }
-    return false;
+    }, null, true);
+    return found;
   }
 
   function visit(curr_full, rel_prefix) {
@@ -34,7 +70,7 @@ fd.globfs = function(globs, dir) {
     var list = fd.readdir(curr_full)
     if (!list) return
     
-    for (var item of list) {
+    arrfor(list, function(item) {
       var item_rel = rel_prefix ? rel_prefix + "/" + item : item
       
       var child_full = join_paths(curr_full, item)
@@ -46,10 +82,10 @@ fd.globfs = function(globs, dir) {
         }
       } else {
         if (!check_neg(item_rel) && check_pos(item_rel)) {
-          results.push(item_rel)
-        }
+          push(results, item_rel)
         }
       }
+    });
   }
   
   var st = fd.stat(dir)

fetch.ce

@@ -13,7 +13,7 @@ var shop = use('internal/shop')
 // Parse arguments
 var target_pkg = null
 
-for (var i = 0; i < args.length; i++) {
+for (var i = 0; i < length(args); i++) {
   if (args[i] == '--help' || args[i] == '-h') {
     log.console("Usage: cell fetch [package]")
     log.console("Fetch package zips from remote sources.")
@@ -24,7 +24,7 @@ for (var i = 0; i < args.length; i++) {
     log.console("This command ensures that the zip files on disk match what's in")
     log.console("the lock file. For local packages, this is a no-op.")
     $stop()
-  } else if (!args[i].startsWith('-')) {
+  } else if (!starts_with(args[i], '-')) {
     target_pkg = args[i]
   }
 }
@@ -35,52 +35,55 @@ var packages_to_fetch = []
 
 if (target_pkg) {
   // Fetch specific package
-  if (!all_packages.includes(target_pkg)) {
+  if (find(all_packages, target_pkg) == null) {
     log.error("Package not found: " + target_pkg)
     $stop()
   }
-  packages_to_fetch.push(target_pkg)
+  push(packages_to_fetch, target_pkg)
 } else {
   // Fetch all packages
   packages_to_fetch = all_packages
 }
 
-log.console("Fetching " + text(packages_to_fetch.length) + " package(s)...")
+var remote_count = 0
+arrfor(packages_to_fetch, function(pkg) {
+  var entry = lock[pkg]
+  if (pkg != 'core' && (!entry || entry.type != 'local'))
+    remote_count++
+}, null, null)
 
-var success_count = 0
-var skip_count = 0
+if (remote_count > 0)
+  log.console(`Fetching ${text(remote_count)} remote package(s)...`)
+
+var downloaded_count = 0
+var cached_count = 0
 var fail_count = 0
 
-for (var pkg of packages_to_fetch) {
-  var entry = lock[pkg]
-  
-  // Skip local packages
-  if (entry && entry.type == 'local') {
-    skip_count++
-    continue
-  }
-  
+arrfor(packages_to_fetch, function(pkg) {
   // Skip core (handled separately)
-  if (pkg == 'core') {
-    skip_count++
-    continue
-  }
+  if (pkg == 'core') return
 
   var result = shop.fetch(pkg)
-  if (result) {
-    if (result.zip_blob) {
-      log.console("Fetched: " + pkg)
-      success_count++
-    } else {
-      skip_count++
-    }
-  } else {
-    log.error("Failed to fetch: " + pkg)
+  if (result.status == 'local') {
+    // Local packages are just symlinks, nothing to fetch
+    return
+  } else if (result.status == 'cached') {
+    cached_count++
+  } else if (result.status == 'downloaded') {
+    log.console("  Downloaded: " + pkg)
+    downloaded_count++
+  } else if (result.status == 'error') {
+    log.error("  Failed: " + pkg + (result.message ? " - " + result.message : ""))
     fail_count++
   }
-}
+}, null, null)
 
 log.console("")
-log.console("Fetch complete: " + text(success_count) + " fetched, " + text(skip_count) + " skipped, " + text(fail_count) + " failed")
+var parts = []
+if (downloaded_count > 0) push(parts, `${text(downloaded_count)} downloaded`)
+if (cached_count > 0) push(parts, `${text(cached_count)} cached`)
+if (fail_count > 0) push(parts, `${text(fail_count)} failed`)
+if (length(parts) == 0) push(parts, "nothing to fetch")
+log.console("Fetch complete: " + text(parts, ", "))
 
 $stop()

graph.ce

@@ -0,0 +1,236 @@
+// cell graph [<locator>] - Emit dependency graph
+//
+// Usage:
+//   cell graph             Graph current directory package
+//   cell graph .           Graph current directory package
+//   cell graph <locator>   Graph specific package
+//   cell graph --world     Graph all packages in shop (world set)
+//
+// Options:
+//   --format <fmt>   Output format: tree (default), dot, json
+//   --resolved       Show resolved view with links applied (default)
+//   --locked         Show lock view without links
+//   --world          Graph all packages in shop
+
+var shop = use('internal/shop')
+var pkg = use('package')
+var link = use('link')
+var fd = use('fd')
+var json = use('json')
+
+var target_locator = null
+var format = 'tree'
+var show_locked = false
+var show_world = false
+
+for (var i = 0; i < length(args); i++) {
+  if (args[i] == '--format' || args[i] == '-f') {
+    if (i + 1 < length(args)) {
+      format = args[++i]
+      if (format != 'tree' && format != 'dot' && format != 'json') {
+        log.error('Invalid format: ' + format + '. Must be tree, dot, or json')
+        $stop()
+      }
+    } else {
+      log.error('--format requires a format type')
+      $stop()
+    }
+  } else if (args[i] == '--resolved') {
+    show_locked = false
+  } else if (args[i] == '--locked') {
+    show_locked = true
+  } else if (args[i] == '--world') {
+    show_world = true
+  } else if (args[i] == '--help' || args[i] == '-h') {
+    log.console("Usage: cell graph [<locator>] [options]")
+    log.console("")
+    log.console("Emit the dependency graph.")
+    log.console("")
+    log.console("Options:")
+    log.console("  --format <fmt>  Output format: tree (default), dot, json")
+    log.console("  --resolved      Show resolved view with links applied (default)")
+    log.console("  --locked        Show lock view without links")
+    log.console("  --world         Graph all packages in shop")
+    $stop()
+  } else if (!starts_with(args[i], '-')) {
+    target_locator = args[i]
+  }
+}
+
+var links = show_locked ? {} : link.load()
+
+// Get effective locator (after links)
+function get_effective(locator) {
+  return links[locator] || locator
+}
+
+// Build graph data structure
+var nodes = {}
+var edges = []
+
+function add_node(locator) {
+  if (nodes[locator]) return
+
+  var lock = shop.load_lock()
+  var lock_entry = lock[locator]
+  var link_target = links[locator]
+  var info = shop.resolve_package_info(locator)
+
+  nodes[locator] = {
+    id: locator,
+    effective: get_effective(locator),
+    linked: link_target != null,
+    local: info == 'local',
+    commit: lock_entry && lock_entry.commit ? text(lock_entry.commit, 0, 8) : null
+  }
+}
+
+function gather_graph(locator, visited) {
+  if (visited[locator]) return
+  visited[locator] = true
+
+  add_node(locator)
+
+  try {
+    var deps = pkg.dependencies(locator)
+    if (deps) {
+      arrfor(array(deps), function(alias) {
+        var dep_locator = deps[alias]
+        add_node(dep_locator)
+        push(edges, { from: locator, to: dep_locator, alias: alias })
+        gather_graph(dep_locator, visited)
+      })
+    }
+  } catch (e) {
+    // Package might not have dependencies
+  }
+}
+
+// Gather graph from roots
+var roots = []
+
+if (show_world) {
+  // Use all packages in shop as roots
+  var packages = shop.list_packages()
+  arrfor(packages, function(p) {
+    if (p != 'core') {
+      push(roots, p)
+    }
+  })
+} else {
+  // Default to current directory
+  if (!target_locator) {
+    target_locator = '.'
+  }
+
+  // Resolve local paths
+  if (target_locator == '.' || starts_with(target_locator, './') || starts_with(target_locator, '../') || fd.is_dir(target_locator)) {
+    var resolved = fd.realpath(target_locator)
+    if (resolved) {
+      target_locator = resolved
+    }
+  }
+
+  push(roots, target_locator)
+}
+
+arrfor(roots, function(root) {
+  gather_graph(root, {})
+})
+
+// Output based on format
+if (format == 'tree') {
+  function print_tree(locator, prefix, is_last, visited) {
+    if (visited[locator]) {
+      log.console(prefix + (is_last ? "\\-- " : "|-- ") + locator + " (circular)")
+      return
+    }
+    visited[locator] = true
+
+    var node = nodes[locator]
+    var suffix = ""
+    if (node.linked) suffix += " -> " + node.effective
+    if (node.commit) suffix += " @" + node.commit
+    if (node.local) suffix += " (local)"
+
+    log.console(prefix + (is_last ? "\\-- " : "|-- ") + locator + suffix)
+
+    // Get children
+    var children = []
+    arrfor(edges, function(e) {
+      if (e.from == locator) {
+        push(children, e)
+      }
+    })
+
+    for (var i = 0; i < length(children); i++) {
+      var child_prefix = prefix + (is_last ? "    " : "|   ")
+      print_tree(children[i].to, child_prefix, i == length(children) - 1, visited)
+    }
+  }
+
+  for (var i = 0; i < length(roots); i++) {
+    log.console(roots[i])
+
+    var children = []
+    arrfor(edges, function(e) {
+      if (e.from == roots[i]) {
+        push(children, e)
+      }
+    })
+
+    for (var j = 0; j < length(children); j++) {
+      print_tree(children[j].to, "", j == length(children) - 1, {})
+    }
+
+    if (i < length(roots) - 1) log.console("")
+  }
+
+} else if (format == 'dot') {
+  log.console("digraph dependencies {")
+  log.console("  rankdir=TB;")
+  log.console("  node [shape=box];")
+  log.console("")
+
+  // Node definitions
+  arrfor(array(nodes), function(id) {
+    var node = nodes[id]
+    var label = id
+    if (node.commit) label += "\\n@" + node.commit
+    var attrs = 'label="' + label + '"'
+    if (node.linked) attrs += ', style=dashed'
+    if (node.local) attrs += ', color=blue'
+
+    // Safe node ID for dot
+    var safe_id = replace(id, /[^a-zA-Z0-9]/g, '_')
+    log.console('  ' + safe_id + ' [' + attrs + '];')
+  })
+
+  log.console("")
+
+  // Edges
+  arrfor(edges, function(e) {
+    var from_id = replace(e.from, /[^a-zA-Z0-9]/g, '_')
+    var to_id = replace(e.to, /[^a-zA-Z0-9]/g, '_')
+    var label = e.alias != e.to ? 'label="' + e.alias + '"' : ''
+    log.console('  ' + from_id + ' -> ' + to_id + (label ? ' [' + label + ']' : '') + ';')
+  })
+
+  log.console("}")
+
+} else if (format == 'json') {
+  var output = {
+    nodes: [],
+    edges: []
+  }
+
+  arrfor(array(nodes), function(id) {
+    push(output.nodes, nodes[id])
+  })
+
+  output.edges = edges
+
+  log.console(json.encode(output))
+}
+
+$stop()

help.ce

@@ -2,7 +2,7 @@
 
 var fd = use('fd')
 
-var command = args.length > 0 ? args[0] : null
+var command = length(args) > 0 ? args[0] : null
 
 // Display specific command help
 if (command) {
@@ -27,21 +27,41 @@ if (stat && stat.isFile) {
   log.console(content)
 } else {
   // Fallback if man file doesn't exist
-  log.console("cell - The Cell module system for Prosperon")
+  log.console("cell - The Cell package manager")
   log.console("")
   log.console("Usage: cell <command> [arguments]")
   log.console("")
-  log.console("Commands:")
-  log.console("  init      Initialize a new Cell project")
-  log.console("  get       Fetch and add a module dependency")
-  log.console("  update    Update a dependency to a new version")
-  log.console("  vendor    Copy all dependencies locally")
-  log.console("  build     Compile all modules to bytecode")
-  log.console("  patch     Create a patch for a module")
-  log.console("  config    Manage system and actor configurations")
-  log.console("  help      Show this help message")
+  log.console("Package Management:")
+  log.console("  install <locator>   Install a package and its dependencies")
+  log.console("  update [locator]    Update packages from remote sources")
+  log.console("  remove <locator>    Remove a package from the shop")
+  log.console("  add <locator>       Add a dependency to current package")
   log.console("")
-  log.console("Run 'cell help <command>' for more information on a command.")
+  log.console("Building:")
+  log.console("  build [locator]     Build dynamic libraries for packages")
+  log.console("  clean [scope]       Remove build artifacts")
+  log.console("")
+  log.console("Linking (Local Development):")
+  log.console("  link <origin> <target>  Link a package to a local path")
+  log.console("  unlink <origin>         Remove a package link")
+  log.console("  clone <origin> <path>   Clone and link a package locally")
+  log.console("")
+  log.console("Information:")
+  log.console("  list [scope]        List packages and dependencies")
+  log.console("  ls [locator]        List modules and actors in a package")
+  log.console("  why <locator>       Show reverse dependencies")
+  log.console("  search <query>      Search for packages, modules, or actors")
+  log.console("")
+  log.console("Diagnostics:")
+  log.console("  resolve [locator]   Print fully resolved dependency closure")
+  log.console("  graph [locator]     Emit dependency graph (tree, dot, json)")
+  log.console("  verify [scope]      Verify integrity and consistency")
+  log.console("")
+  log.console("Other:")
+  log.console("  help [command]      Show help for a command")
+  log.console("  version             Show cell version")
+  log.console("")
+  log.console("Run 'cell <command> --help' for more information on a command.")
 }
 
 $stop()

install.ce

@@ -1,62 +1,185 @@
 // cell install <locator> - Install a package to the shop
-// Does not modify the current project's cell.toml
+//
+// Usage:
+//   cell install <locator>   Install a package and its dependencies
+//   cell install .           Install current directory package
+//
+// Options:
+//   --target <triple>   Build for target platform
+//   --refresh           Refresh floating refs before locking
+//   --dry-run           Show what would be installed
 
 var shop = use('internal/shop')
 var build = use('build')
+var pkg = use('package')
 var fd = use('fd')
 
-if (args.length < 1) {
-  log.console("Usage: cell install <locator>")
+if (length(args) < 1) {
+  log.console("Usage: cell install <locator> [options]")
+  log.console("")
+  log.console("Options:")
+  log.console("  --target <triple>  Build for target platform")
+  log.console("  --refresh          Refresh floating refs before locking")
+  log.console("  --dry-run          Show what would be installed")
   $stop()
-  return
 }
 
-var locator = args[0]
+var locator = null
+var target_triple = null
+var refresh = false
+var dry_run = false
+
+for (var i = 0; i < length(args); i++) {
+  if (args[i] == '--target' || args[i] == '-t') {
+    if (i + 1 < length(args)) {
+      target_triple = args[++i]
+    } else {
+      log.error('--target requires a triple')
+      $stop()
+    }
+  } else if (args[i] == '--refresh') {
+    refresh = true
+  } else if (args[i] == '--dry-run') {
+    dry_run = true
+  } else if (args[i] == '--help' || args[i] == '-h') {
+    log.console("Usage: cell install <locator> [options]")
+    log.console("")
+    log.console("Install a package and its dependencies to the shop.")
+    log.console("")
+    log.console("Options:")
+    log.console("  --target <triple>  Build for target platform")
+    log.console("  --refresh          Refresh floating refs before locking")
+    log.console("  --dry-run          Show what would be installed")
+    $stop()
+  } else if (!starts_with(args[i], '-')) {
+    locator = args[i]
+  }
+}
+
+if (!locator) {
+  log.console("Usage: cell install <locator>")
+  $stop()
+}
 
 // Resolve relative paths to absolute paths
 // Local paths like '.' or '../foo' need to be converted to absolute paths
-if (locator == '.' || locator.startsWith('./') || locator.startsWith('../') || fd.is_dir(locator)) {
+if (locator == '.' || starts_with(locator, './') || starts_with(locator, '../') || fd.is_dir(locator)) {
   var resolved = fd.realpath(locator)
   if (resolved) {
     locator = resolved
   }
 }
 
+// Default target
+if (!target_triple) {
+  target_triple = build.detect_host_target()
+}
+
 log.console("Installing " + locator + "...")
 
-var pkg = use('package')
+// Gather all packages that will be installed
+var packages_to_install = []
+var skipped_packages = []
+var visited = {}
 
-// Recursive install function that handles dependencies
-function install_package(pkg_locator, visited) {
+function gather_packages(pkg_locator) {
   if (visited[pkg_locator]) return
   visited[pkg_locator] = true
 
-  // First, add to lock.toml
-  shop.update(pkg_locator)
+  // Check if this is a local path that doesn't exist
+  if (starts_with(pkg_locator, '/') && !fd.is_dir(pkg_locator)) {
+    push(skipped_packages, pkg_locator)
+    log.console("  Skipping missing local package: " + pkg_locator)
+    return
+  }
 
-  // Extract/symlink the package so we can read its cell.toml
-  shop.extract(pkg_locator)
+  push(packages_to_install, pkg_locator)
 
-  // Now get direct dependencies and install them first
+  // Try to read dependencies
   try {
+    // For packages not yet extracted, we need to update and extract first to read deps
+    var lock = shop.load_lock()
+    if (!lock[pkg_locator]) {
+      if (!dry_run) {
+        var update_result = shop.update(pkg_locator)
+        if (update_result) {
+          shop.extract(pkg_locator)
+        } else {
+          // Update failed - package might not be fetchable
+          log.console("Warning: Could not fetch " + pkg_locator)
+          return
+        }
+      }
+    } else {
+      // Package is in lock, ensure it's extracted
+      if (!dry_run) {
+        shop.extract(pkg_locator)
+      }
+    }
+
     var deps = pkg.dependencies(pkg_locator)
     if (deps) {
-      for (var alias in deps) {
+      arrfor(array(deps), function(alias) {
         var dep_locator = deps[alias]
-        log.console("Installing dependency " + dep_locator)
-        install_package(dep_locator, visited)
-      }
+        gather_packages(dep_locator)
+      })
     }
   } catch (e) {
     // Package might not have dependencies or cell.toml issue
-    log.console("Warning: Could not read dependencies for " + pkg_locator + ": " + e.message)
+    if (!dry_run) {
+      log.console(`Warning: Could not read dependencies for ${pkg_locator}: ${e.message}`)
+    }
   }
-  
-  // Build the package after all dependencies are installed
-  build.build_package(pkg_locator)
 }
 
-install_package(locator, {})
-log.console("Installed " + locator)
+// Gather all packages
+gather_packages(locator)
+
+if (dry_run) {
+  log.console("Would install:")
+  arrfor(packages_to_install, function(p) {
+    var lock = shop.load_lock()
+    var exists = lock[p] != null
+    log.console("  " + p + (exists ? " (already installed)" : ""))
+  })
+  if (length(skipped_packages) > 0) {
+    log.console("")
+    log.console("Would skip (missing local paths):")
+    arrfor(skipped_packages, function(p) {
+      log.console("  " + p)
+    })
+  }
+  $stop()
+}
+
+// Install each package
+function install_package(pkg_locator) {
+  // Update lock entry
+  shop.update(pkg_locator)
+
+  // Extract/symlink the package
+  shop.extract(pkg_locator)
+
+  // Build scripts
+  shop.build_package_scripts(pkg_locator)
+
+  // Build C code
+  try {
+    build.build_dynamic(pkg_locator, target_triple, 'release')
+  } catch (e) {
+    // Not all packages have C code
+  }
+}
+
+arrfor(packages_to_install, function(p) {
+  log.console("  Installing " + p + "...")
+  install_package(p)
+})
+
+var summary = "Installed " + text(length(packages_to_install)) + " package(s)."
+if (length(skipped_packages) > 0) {
+  summary += " Skipped " + text(length(skipped_packages)) + " missing local path(s)."
+}
+log.console(summary)
 
 $stop()

internal/array.cm

@@ -1,303 +0,0 @@
-/* array.cm - array creation and manipulation utilities */
-
-var _isArray = Array.isArray
-var _slice = Array.prototype.slice
-var _push = Array.prototype.push
-var _sort = Array.prototype.sort
-var _keys = Object.keys
-var _from = Array.from
-
-function array(arg, arg2, arg3, arg4) {
-  // array(number) - create array of size with nulls
-  // array(number, initial_value) - create array with initial values
-  if (typeof arg == 'number') {
-    if (arg < 0) return null
-    var len = number.floor(arg)
-    var result = []
-    
-    if (arg2 == null) {
-      result.length = 100
-    } else if (typeof arg2 == 'function') {
-      var arity = arg2.length
-      for (var i = 0; i < len; i++) {
-        result[i] = arity >= 1 ? arg2(i) : arg2()
-      }
-    } else {
-      for (var i = 0; i < len; i++) result[i] = arg2
-    }
-    
-    return result
-  }
-  
-  // array(array) - copy
-  // array(array, function, reverse, exit) - map
-  // array(array, another_array) - concat
-  // array(array, from, to) - slice
-  if (_isArray(arg)) {
-    if (arg2 == null) {
-      // Copy
-      return _slice.call(arg)
-    }
-    
-    if (typeof arg2 == 'function') {
-      // Map
-      var fn = arg2
-      var reverse = arg3 == true
-      var exit = arg4
-      var result = []
-      
-      if (reverse) {
-        for (var i = arg.length - 1; i >= 0; i--) {
-          var val = fn(arg[i], i)
-          if (exit != null && val == exit) break
-          result[i] = val
-        }
-      } else {
-        for (var i = 0; i < arg.length; i++) {
-          var val = fn(arg[i], i)
-          if (exit != null && val == exit) break
-          _push.call(result, val)
-        }
-      }
-      
-      return result
-    }
-    
-    if (_isArray(arg2)) {
-      // Concat
-      var result = _slice.call(arg)
-      for (var i = 0; i < arg2.length; i++) {
-        _push.call(result, arg2[i])
-      }
-      return result
-    }
-    
-    if (typeof arg2 == 'number') {
-      // Slice
-      var from = arg2
-      var to = arg3
-      var len = arg.length
-      
-      if (from < 0) from += len
-      if (to == null) to = len
-      if (to < 0) to += len
-      
-      if (from < 0 || from > to || to > len) return null
-      
-      return _slice.call(arg, from, to)
-    }
-    
-    return null
-  }
-  
-  // array(object) - keys
-  if (typeof arg == 'object' && arg != null && !_isArray(arg)) {
-    if (arg instanceof Set) {
-      return _from(arg)
-    }
-    return _keys(arg)
-  }
-  
-  // array(text) - split into grapheme clusters
-  // array(text, separator) - split by separator
-  // array(text, length) - dice into chunks
-  if (typeof arg == 'string') {
-    if (arg2 == null) {
-      // Split into grapheme clusters (simplified: split into characters)
-      var result = []
-      for (var i = 0; i < arg.length; i++) {
-        _push.call(result, arg[i])
-      }
-      return result
-    }
-    
-    if (typeof arg2 == 'string') {
-      // Split by separator
-      return arg.split(arg2)
-    }
-    
-    if (typeof arg2 == 'number') {
-      // Dice into chunks
-      var len = number.floor(arg2)
-      if (len <= 0) return null
-      var result = []
-      for (var i = 0; i < arg.length; i += len) {
-        _push.call(result, arg.substring(i, i + len))
-      }
-      return result
-    }
-    
-    return null
-  }
-  
-  return null
-}
-
-array.reduce = function(arr, fn, initial, reverse) {
-  if (!_isArray(arr)) return null
-  if (typeof fn != 'function') return null
-  
-  var len = arr.length
-  
-  if (initial == null) {
-    if (len == 0) return null
-    if (len == 1) return arr[0]
-    
-    if (reverse == true) {
-      var acc = arr[len - 1]
-      for (var i = len - 2; i >= 0; i--) {
-        acc = fn(acc, arr[i])
-      }
-      return acc
-    } else {
-      var acc = arr[0]
-      for (var i = 1; i < len; i++) {
-        acc = fn(acc, arr[i])
-      }
-      return acc
-    }
-  } else {
-    if (len == 0) return initial
-    
-    if (reverse == true) {
-      var acc = initial
-      for (var i = len - 1; i >= 0; i--) {
-        acc = fn(acc, arr[i])
-      }
-      return acc
-    } else {
-      var acc = initial
-      for (var i = 0; i < len; i++) {
-        acc = fn(acc, arr[i])
-      }
-      return acc
-    }
-  }
-}
-
-array.for = function(arr, fn, reverse, exit) {
-  if (!_isArray(arr)) return null
-  if (arr.length == 0) return null
-  if (typeof fn != 'function') return null
-  
-  if (reverse == true) {
-    for (var i = arr.length - 1; i >= 0; i--) {
-      var result = fn(arr[i], i)
-      if (exit != null && result == exit) return exit
-    }
-  } else {
-    for (var i = 0; i < arr.length; i++) {
-      var result = fn(arr[i], i)
-      if (exit != null && result == exit) return exit
-    }
-  }
-  
-  return null
-}
-
-array.find = function(arr, fn, reverse, from) {
-  if (!_isArray(arr)) return null
-  
-  var len = arr.length
-  
-  if (typeof fn != 'function') {
-    // Compare exactly
-    var target = fn
-    if (reverse == true) {
-      var start = from != null ? from : len - 1
-      for (var i = start; i >= 0; i--) {
-        if (arr[i] == target) return i
-      }
-    } else {
-      var start = from != null ? from : 0
-      for (var i = start; i < len; i++) {
-        if (arr[i] == target) return i
-      }
-    }
-    return null
-  }
-  
-  if (reverse == true) {
-    var start = from != null ? from : len - 1
-    for (var i = start; i >= 0; i--) {
-      if (fn(arr[i], i) == true) return i
-    }
-  } else {
-    var start = from != null ? from : 0
-    for (var i = start; i < len; i++) {
-      if (fn(arr[i], i) == true) return i
-    }
-  }
-  
-  return null
-}
-
-array.filter = function(arr, fn) {
-  if (!_isArray(arr)) return null
-  if (typeof fn != 'function') return null
-  
-  var result = []
-  
-  for (var i = 0; i < arr.length; i++) {
-    var val = fn(arr[i], i)
-    if (val == true) {
-      _push.call(result, arr[i])
-    } else if (val != false) {
-      return null
-    }
-  }
-  
-  return result
-}
-
-array.sort = function(arr, select) {
-  if (!_isArray(arr)) return null
-  
-  var result = _slice.call(arr)
-  var keys = []
-  
-  // Extract keys
-  for (var i = 0; i < result.length; i++) {
-    var key
-    if (select == null) {
-      key = result[i]
-    } else if (typeof select == 'string' || typeof select == 'number') {
-      key = result[i][select]
-    } else if (_isArray(select)) {
-      key = select[i]
-    } else {
-      return null
-    }
-    
-    if (typeof key != 'number' && typeof key != 'string') return null
-    keys[i] = key
-  }
-  
-  // Check all keys are same type
-  if (keys.length > 0) {
-    var keyType = typeof keys[0]
-    for (var i = 1; i < keys.length; i++) {
-      if (typeof keys[i] != keyType) return null
-    }
-  }
-  
-  // Create index array and sort
-  var indices = []
-  for (var i = 0; i < result.length; i++) indices[i] = i
-  
-  // Stable sort using indices
-  _sort.call(indices, function(a, b) {
-    if (keys[a] < keys[b]) return -1
-    if (keys[a] > keys[b]) return 1
-    return a - b // stable
-  })
-  
-  var sorted = []
-  for (var i = 0; i < indices.length; i++) {
-    sorted[i] = result[indices[i]]
-  }
-  
-  return sorted
-}
-
-return array

internal/engine.cm

@@ -7,6 +7,7 @@ var SYSYM = '__SYSTEM__'
 var hidden = _cell.hidden
 
 var os = hidden.os;
+
 _cell.os = null
 
 var dylib_ext
@@ -24,19 +25,7 @@ var ACTOR_EXT = '.ce'
 
 var load_internal = os.load_internal
 function use_embed(name) {
-  return load_internal(`js_${name}_use`)
-}
-
-globalThis.meme = function(obj, ...mixins) {
-  var result = _ObjectCreate(obj)
-
-  array.for(mixins, mix => {
-    if (isa(mix, object)) {
-      for (var key in mix)
-        result[key] = mix[key]
-    }
-  })  
-  return result
+  return load_internal("js_" + name + "_use")
 }
 
 globalThis.logical = function(val1)
@@ -48,50 +37,58 @@ globalThis.logical = function(val1)
   return null;
 }
 
-var utf8 = use_embed('utf8')
+globalThis.some = function(arr, pred) {
+  return find(arr, pred) != null
+}
+
+globalThis.every = function(arr, pred) {
+  return find(arr, x => not(pred(x))) == null
+}
+
+globalThis.starts_with = function(str, prefix) {
+  return search(str, prefix) == 0
+}
+
+globalThis.ends_with = function(str, suffix) {
+  return search(str, suffix, -length(suffix)) != null
+}
+
 var js = use_embed('js')
 var fd = use_embed('fd')
 
 // Get the shop path from HOME environment
 var home = os.getenv('HOME') || os.getenv('USERPROFILE')
 if (!home) {
-  throw new Error('Could not determine home directory')
+  throw Error('Could not determine home directory')
 }
 var shop_path = home + '/.cell'
 var packages_path = shop_path + '/packages'
 var core_path = packages_path + '/core'
 
 if (!fd.is_dir(core_path)) {
-  throw new Error('Cell shop not found at ' + shop_path + '. Run "cell install" to set up.')
+  throw Error('Cell shop not found at ' + shop_path + '. Run "cell install" to set up.')
 }
 
 var use_cache = {}
 use_cache['core/os'] = os
 
-var _Symbol = Symbol
-
-globalThis.key = function()
-{
-  return _Symbol()
-}
-
 // Load a core module from the file system
 function use_core(path) {
   var cache_key = 'core/' + path
   if (use_cache[cache_key])
     return use_cache[cache_key];
 
-  var sym = use_embed(path.replace('/','_'))
+  var sym = use_embed(replace(path, '/', '_'))
 
   // Core scripts are in packages/core/
   var file_path = core_path + '/' + path + MOD_EXT
 
   if (fd.is_file(file_path)) {
     var script_blob = fd.slurp(file_path)
-    var script = utf8.decode(script_blob)
+    var script = text(script_blob)
     var mod = `(function setup_module(use){${script}})`
     var fn = js.eval('core:' + path, mod)
-    var result = fn.call(sym, use_core);
+    var result = call(fn,sym, [use_core])
     use_cache[cache_key] = result;
     return result;
   }
@@ -101,226 +98,34 @@ function use_core(path) {
 }
 
 var blob = use_core('blob')
-var blob_stone = blob.prototype.stone
-var blob_stonep = blob.prototype.stonep;
-delete blob.prototype.stone;
-delete blob.prototype.stonep;
-
-// Capture Object and Array methods before they're deleted
-var _Object = Object
-var _ObjectKeys = Object.keys
-var _ObjectFreeze = Object.freeze
-var _ObjectIsFrozen = Object.isFrozen
-var _ObjectDefineProperty = Object.defineProperty
-var _ObjectGetPrototypeOf = Object.getPrototypeOf
-var _ObjectCreate = Object.create
-var _ArrayIsArray = Array.isArray
-
-Object.prototype.toString = function()
-{
-  return json.encode(this)
-}
-
-function deepFreeze(object) {
-  if (object instanceof blob)
-    blob_stone.call(object);
-    
-  var propNames = _ObjectKeys(object);
-
-  for (var name of propNames) {
-    var value = object[name];
-
-    if ((value && typeof value == "object") || typeof value == "function")
-      deepFreeze(value);
-  }
-
-  return _ObjectFreeze(object);
-}
 
 globalThis.actor = function()
 {
 
 }
 
-globalThis.stone = deepFreeze
-stone.p = function(object)
-{
-  if (object instanceof blob)
-    return blob_stonep.call(object)
-    
-  return _ObjectIsFrozen(object) 
-}
-
 var actor_mod = use_core('actor')
 var wota = use_core('wota')
 var nota = use_core('nota')
 
-// Load internal modules for global functions
-globalThis.text = use_core('internal/text')
-globalThis.number = use_core('internal/number')
-globalThis.array = use_core('internal/array')
-globalThis.object = use_core('internal/object')
-globalThis.fn = use_core('internal/fn')
-
-// Global utility functions (use already-captured references)
-var _isArray = _ArrayIsArray
-var _keys = _ObjectKeys
-var _getPrototypeOf = _ObjectGetPrototypeOf
-var _create = _ObjectCreate
-
-globalThis.length = function(value) {
-  if (value == null) return null
-  
-  // For functions, return arity
-  if (typeof value == 'function') return value.length
-  
-  // For strings, return codepoint count
-  if (typeof value == 'string') return value.length
-  
-  // For arrays, return element count
-  if (_isArray(value)) return value.length
-  
-  // For blobs, return bit count
-  if (value instanceof blob && typeof value.length == 'number') return value.length
-  
-  // For records with length field
-  if (typeof value == 'object' && value != null) {
-    if ('length' in value) {
-      var len = value.length
-      if (typeof len == 'function') return len.call(value)
-      if (typeof len == 'number') return len
-    }
-  }
-  
-  return null
-}
-
-globalThis.reverse = function(value) {
-  if (_isArray(value)) {
-    var result = []
-    for (var i = value.length - 1; i >= 0; i--) {
-      result.push(value[i])
-    }
-    return result
-  }
-  
-  // For blobs, would need blob module support
-  if (isa(value, blob)) {
-    // Simplified: return null for now, would need proper blob reversal
-    return null
-  }
-  
-  return null
-}
-
-globalThis.isa = function(value, master) {
-  if (master == null) return false
-  
-  // isa(value, array) - check if object has all keys
-  if (_isArray(master)) {
-    if (typeof value != 'object' || value == null) return false
-    for (var i = 0; i < master.length; i++) {
-      if (!(master[i] in value)) return false
-    }
-    return true
-  }
-  
-  // isa(value, function) - check if function.prototype is in chain
-  if (typeof master == 'function') {
-    // Special type checks
-    if (master == stone) return _ObjectIsFrozen(value) || typeof value != 'object'
-    if (master == number) return typeof value == 'number'
-    if (master == text) return typeof value == 'string'
-    if (master == logical) return typeof value == 'boolean'
-    if (master == array) return _isArray(value)
-    if (master == object) return typeof value == 'object' && value != null && !_isArray(value)
-    if (master == fn) return typeof value == 'function'
-    if (master == actor) return isa(value, object) && value[ACTORDATA]
-    
-    // Check prototype chain
-    if (master.prototype) {
-      var proto = _getPrototypeOf(value)
-      while (proto != null) {
-        if (proto == master.prototype) return true
-        proto = _getPrototypeOf(proto)
-      }
-    }
-    return false
-  }
-  
-  // isa(object, master_object) - check prototype chain
-  if (typeof master == 'object') {
-    var proto = _getPrototypeOf(value)
-    while (proto != null) {
-      if (proto == master) return true
-      proto = _getPrototypeOf(proto)
-    }
-    return false
-  }
-  
-  return false
-}
-
-globalThis.proto = function(obj) {
-  if (!isa(obj, object)) return null
-  var p = _getPrototypeOf(obj)
-  if (p == _Object.prototype) return null
-  return p
-}
-
-globalThis.splat = function(obj) {
-  if (typeof obj != 'object' || obj == null) return null
-  
-  var result = {}
-  var current = obj
-  
-  // Walk prototype chain and collect text keys
-  while (current != null) {
-    var keys = _keys(current)
-    for (var i = 0; i < keys.length; i++) {
-      var k = keys[i]
-      if (!(k in result)) {
-        var val = current[k]
-        // Only include serializable types
-        if (typeof val == 'object' || typeof val == 'number' || 
-            typeof val == 'string' || typeof val == 'boolean') {
-          result[k] = val
-        }
-      }
-    }
-    current = _getPrototypeOf(current)
-  }
-  
-  // Call to_data if present
-  if (typeof obj.to_data == 'function') {
-    var extra = obj.to_data(result)
-    if (typeof extra == 'object' && extra != null) {
-      var extraKeys = _keys(extra)
-      for (var i = 0; i < extraKeys.length; i++) {
-        result[extraKeys[i]] = extra[extraKeys[i]]
-      }
-    }
-  }
-  
-  return result
+globalThis.is_actor = function(value) {
+  return is_object(value) && value[ACTORDATA]
 }
 
 var ENETSERVICE = 0.1
 var REPLYTIMEOUT = 60 // seconds before replies are ignored
 
-globalThis.pi = 3.14159265358979323846264338327950288419716939937510
-
 function caller_data(depth = 0)
 {
   var file = "nofile"
   var line = 0
   
-  var caller = new Error().stack.split("\n")[1+depth]
+  var caller = array(Error().stack, "\n")[1+depth]
   if (caller) {
-    var md = caller.match(/\((.*)\:/)
+    var md = extract(caller, /\((.*)\:/)
     var m = md ? md[1] : "SCRIPT"
     if (m) file = m
-    md = caller.match(/\:(\d*)\)/)
+    md = extract(caller, /\:(\d*)\)/)
     m = md ? md[1] : 0
     if (m) line = m
   }
@@ -329,52 +134,62 @@ function caller_data(depth = 0)
 }
 
 function console_rec(line, file, msg) {
-  return `[${_cell.id.slice(0,5)}] [${file}:${line}]: ${msg}\n`
+  return `[${text(_cell.id, 0, 5)}] [${file}:${line}]: ${msg}\n`
   // time: [${time.text("mb d yyyy h:nn:ss")}]
 }
 
-globalThis.log = {}
-log.console = function(msg)
-{
+globalThis.log = function(name, args) {
   var caller = caller_data(1)
+  var msg = args[0]
+  
+  switch(name) {
+    case 'console':
       os.print(console_rec(caller.line, caller.file, msg))
-}
-
-log.error = function(msg = new Error())
-{
-  var caller = caller_data(1)
-  
-  if (msg instanceof Error)
+      break
+    case 'error':
+      msg = msg ?? Error()
+      if (is_proto(msg, Error))
         msg = msg.name + ": " + msg.message + "\n" + msg.stack 
-  
-  os.print(console_rec(caller.line,caller.file,msg))
-}
-
-log.system = function(msg) { 
+      os.print(console_rec(caller.line, caller.file, msg))
+      break
+    case 'system':
       msg = "[SYSTEM] " + msg
-  log.console(msg)
+      os.print(console_rec(caller.line, caller.file, msg))
+      break
+    default:
+      log.console(`unknown log type: ${name}`)
+      break
+  }
 }
 
 function disrupt(err)
 {
+  if (is_function(err.toString)) {
+  os.print(err.toString())
+  os.print("\n")
+  os.print(err.stack)
+  }
+
   if (overling) {
     if (err) {
       // with an err, this is a forceful disrupt
-      var reason = (err instanceof Error) ? err.stack : err
+      var reason = (is_proto(err, Error)) ? err.stack : err
       report_to_overling({type:'disrupt', reason})
     } else
       report_to_overling({type:'stop'})
   }
 
   if (underlings) {
-    for (var id of underlings) {
+    var unders = array(underlings)
+    arrfor(unders, function(id, index) {
       log.console(`calling on ${id} to disrupt too`)
       $_.stop(create_actor({id}))
-    }
+    })
   }
 
   if (err) {
-    log.console(err);  
+    if (err.message)
+      log.console(err.message)
     if (err.stack)
       log.console(err.stack)
   }
@@ -382,6 +197,8 @@ function disrupt(err)
   actor_mod.disrupt()
 }
 
+
+
 actor_mod.on_exception(disrupt)
 
 _cell.args = _cell.hidden.init
@@ -415,9 +232,9 @@ globalThis.sequence = pronto.sequence
 $_.time_limit = function(requestor, seconds)
 {
   if (!pronto.is_requestor(requestor))
-    throw new Error('time_limit: first argument must be a requestor');
-  if (!isa(seconds, number) || seconds <= 0)
-    throw new Error('time_limit: seconds must be a positive number');
+    throw Error('time_limit: first argument must be a requestor');
+  if (!is_number(seconds) || seconds <= 0)
+    throw Error('time_limit: seconds must be a positive number');
     
   return function time_limit_requestor(callback, value) {
     pronto.check_callback(callback, 'time_limit')
@@ -486,6 +303,8 @@ _cell.config = config
 ENETSERVICE = config.net_service
 REPLYTIMEOUT = config.reply_timeout
 
+
+
 /*
   When handling a message, the message appears like this:
   {
@@ -511,14 +330,12 @@ REPLYTIMEOUT = config.reply_timeout
 
 function guid(bits = 256)
 {
-  var guid = new blob(bits, os.random)
+  var guid = blob(bits, os.random)
   stone(guid)
   return text(guid,'h')
 }
 
-var _Symbol = Symbol
-
-var HEADER = _Symbol()
+var HEADER = {}
 
 // takes a function input value that will eventually be called with the current time in number form.
 $_.clock = function(fn) {
@@ -528,7 +345,7 @@ $_.clock = function(fn) {
   })
 }
 
-var underlings = new Set() // this is more like "all actors that are notified when we die"
+var underlings = {} // this is more like "all actors that are notified when we die"
 var overling = null
 var root = null
 
@@ -581,8 +398,8 @@ var portal_fn = null
 
 // takes a function input value that will eventually be called with the current time in number form.
 $_.portal = function(fn, port) {
-  if (portal) throw new Error(`Already started a portal listening on ${portal.port}`)
-  if (!port) throw new Error("Requires a valid port.")
+  if (portal) throw Error(`Already started a portal listening on ${portal.port}`)
+  if (!port) throw Error("Requires a valid port.")
   log.system(`starting a portal on port ${port}`)
   portal = enet.create_host({address: "any", port})
   portal_fn = fn
@@ -595,14 +412,16 @@ function handle_host(e) {
       peers[`${e.peer.address}:${e.peer.port}`] = e.peer
       var queue = peer_queue.get(e.peer)
       if (queue) {
-        for (var msg of queue) e.peer.send(nota.encode(msg))
+        arrfor(queue, (msg, index) => e.peer.send(nota.encode(msg)))
         log.system(`sent ${msg} out of queue`)
         peer_queue.delete(e.peer)
       }
       break
     case "disconnect":
       peer_queue.delete(e.peer)
-      for (var id in peers) if (peers[id] == e.peer) delete peers[id]
+      arrfor(array(peers), function(id, index) {
+        if (peers[id] == e.peer) delete peers[id]
+      })
       log.system('portal got disconnect from ' + e.peer.address + ":" + e.peer.port)
       break
     case "receive":
@@ -612,16 +431,15 @@ function handle_host(e) {
         data.replycc[ACTORDATA].port = e.peer.port
       }
       function populate_actor_addresses(obj) {
-        if (!isa(obj, object)) return
+        if (!is_object(obj)) return
         if (obj[ACTORDATA] && !obj[ACTORDATA].address) {
           obj[ACTORDATA].address = e.peer.address
           obj[ACTORDATA].port = e.peer.port
         }
-        for (var key in obj) {
-          if (object.has(obj, key)) {
+        arrfor(array(obj), function(key, index) {
+          if (key in obj)
             populate_actor_addresses(obj[key])
-          }
-        }
+        })
       }
       if (data.data) populate_actor_addresses(data.data)
       turn(data)
@@ -639,20 +457,18 @@ $_.receiver = function receiver(fn) {
   receive_fn = fn
 }
 
-$_.start = function start(cb, program, ...args) {
+$_.start = function start(cb, program) {
     if (!program) return
 
     var id = guid()
-    if (args.length == 1 && Array.isArray(args[0])) args = args[0]
     var startup = { 
       id, 
       overling: $_.self, 
       root, 
-      arg: args, 
       program,
     }
     greeters[id] = cb
-    message_queue.push({ startup })
+    push(message_queue, { startup })
 }
 
 // stops an underling or self.
@@ -661,10 +477,10 @@ $_.stop = function stop(actor) {
     need_stop = true
     return
   }
-  if (!isa(actor, actor))
-    throw new Error('Can only call stop on an actor.')
-  if (!underlings.has(actor[ACTORDATA].id))
-    throw new Error('Can only call stop on an underling or self.')
+  if (!is_actor(actor))
+    throw Error('Can only call stop on an actor.')
+  if (is_null(underlings[actor[ACTORDATA].id]))
+    throw Error('Can only call stop on an underling or self.')
 
   sys_msg(actor, {kind:"stop"})
 }
@@ -676,11 +492,6 @@ $_.unneeded = function unneeded(fn, seconds) {
 
 // schedules the invocation of a function after a specified amount of time.
 $_.delay = function delay(fn, seconds = 0) {
-  if (seconds <= 0) {
-    $_.clock(fn)
-    return
-  }
-  
   function delay_turn() {
     fn()
     send_messages()
@@ -692,16 +503,16 @@ $_.delay = function delay(fn, seconds = 0) {
 var enet = use_core('enet')
 
 // causes this actor to stop when another actor stops.
-var couplings = new Set()
+var couplings = {}
 $_.couple = function couple(actor) {
   if (actor == $_.self) return // can't couple to self
-  couplings.add(actor[ACTORDATA].id)
+  couplings[actor[ACTORDATA].id] = true
   sys_msg(actor, {kind:'couple', from: $_.self})
   log.system(`coupled to ${actor}`)
 }
 
 function actor_prep(actor, send) {
-  message_queue.push({actor,send});
+  push(message_queue, {actor,send});
 }
 
 // Send a message immediately without queuing
@@ -717,9 +528,9 @@ function actor_send(actor, message) {
   if (actor[HEADER] && !actor[HEADER].replycc) // attempting to respond to a message but sender is not expecting; silently drop
     return
 
-  if (!isa(actor, actor) && !isa(actor.replycc, actor)) throw new Error(`Must send to an actor object. Attempted send to ${actor}`)
+  if (!is_actor(actor) && !is_actor(actor.replycc)) throw Error(`Must send to an actor object. Attempted send to ${actor}`)
   
-  if (typeof message != 'object') throw new Error('Must send an object record.')
+  if (!is_object(message)) throw Error('Must send an object record.')
 
   // message to self
   if (actor[ACTORDATA].id == _cell.id) {
@@ -730,7 +541,7 @@ function actor_send(actor, message) {
   // message to actor in same flock
   if (actor[ACTORDATA].id && actor_mod.mailbox_exist(actor[ACTORDATA].id)) {
     var wota_blob = wota.encode(message)
-//    log.console(`sending wota blob of ${wota_blob.length/8} bytes`)
+//    log.console(`sending wota blob of ${length(wota_blob)/8} bytes`)
     actor_mod.mailbox_push(actor[ACTORDATA].id, wota_blob)
     return
   }
@@ -768,36 +579,36 @@ var need_stop = false
    // if we've been flagged to stop, bail out before doing anything
    if (need_stop) {
      disrupt()
-     message_queue.length = 0
+     message_queue = []
      return
    }
 
-   for (var msg of message_queue) {
+   arrfor(message_queue, function(msg, index) {
      if (msg.startup) {
        // now is the time to actually spin up the actor
        actor_mod.createactor(msg.startup)
      } else {
        actor_send(msg.actor, msg.send)
      }
-   }
+   })
 
-   message_queue.length = 0
+   message_queue = []
  }
 
 var replies = {}
 
 globalThis.send = function send(actor, message, reply) {
-  if (typeof actor != 'object')
-    throw new Error(`Must send to an actor object. Provided: ${actor}`);
+  if (!is_object(actor))
+    throw Error(`Must send to an actor object. Provided: ${actor}`);
     
-  if (typeof message != 'object')
-    throw new Error('Message must be an object')
+  if (!is_object(message))
+    throw Error('Message must be an object')
   var send = {type:"user", data: message}
 
   if (actor[HEADER] && actor[HEADER].replycc) {
     var header = actor[HEADER]
-    if (!header.replycc || !isa(header.replycc, actor))
-      throw new Error(`Supplied actor had a return, but it's not a valid actor! ${actor[HEADER]}`)
+    if (!header.replycc || !is_actor(header.replycc))
+      throw Error(`Supplied actor had a return, but it's not a valid actor! ${actor[HEADER]}`)
 
     actor = header.replycc
     send.return = header.reply
@@ -836,7 +647,6 @@ function turn(msg)
 }
 
 //log.console(`FIXME: need to get main from config, not just set to true`)
-//log.console(`FIXME: remove global access (ie globalThis.use)`)
 //log.console(`FIXME: add freeze/unfreeze at this level, so we can do it (but scripts cannot)`)
 actor_mod.register_actor(_cell.id, turn, true, config.ar_timer)
 
@@ -886,21 +696,22 @@ function handle_actor_disconnect(id) {
     delete greeters[id]
   }
   log.system(`actor ${id} disconnected`)
-  if (couplings.has(id)) disrupt("coupled actor died") // couplings now disrupts instead of stop
+  if (!is_null(couplings[id])) disrupt("coupled actor died") // couplings now disrupts instead of stop
 }
 
 function handle_sysym(msg)
 {
+  var from
   switch(msg.kind) {
     case 'stop':
       disrupt("got stop message")
       break
     case 'underling':
-      var from = msg.from
+      from = msg.from
       var greeter = greeters[from[ACTORDATA].id]
       if (greeter) greeter(msg.message)
       if (msg.message.type == 'disrupt')
-        underlings.delete(from[ACTORDATA].id)
+        delete underlings[from[ACTORDATA].id]
       break
     case 'contact':
       if (portal_fn) {
@@ -908,11 +719,11 @@ function handle_sysym(msg)
         letter2[HEADER] = msg
         delete msg.data
         portal_fn(letter2)
-      } else throw new Error('Got a contact message, but no portal is established.')
+      } else throw Error('Got a contact message, but no portal is established.')
       break
     case 'couple': // from must be notified when we die
-      var from = msg.from
-      underlings.add(from[ACTORDATA].id)
+      from = msg.from
+      underlings[from[ACTORDATA].id] = true
       log.system(`actor ${from} is coupled to me`)
       break
   }
@@ -973,99 +784,34 @@ if (!locator) {
 }
 
 if (!locator)
-  throw new Error(`Main program ${_cell.args.program} could not be found`)
+  throw Error(`Main program ${_cell.args.program} could not be found`)
 
-// Hide JavaScript built-ins - make them inaccessible
-// Store references we need internally before deleting
-var _Object = Object
-var _Array = Array
-var _String = String
-var _Number = Number
-var _Boolean = Boolean
-var _Math = Math
-var _Function = Function
-
-var _Error = Error
-var _JSON = JSON
-
-// juicing these before Math is gone
-
-use_core('math/radians')
-use_core('math/cycles')
-use_core('math/degrees')
-
-// Delete from globalThis
-delete globalThis.Object
-delete globalThis.Math
-delete globalThis.Number
-delete globalThis.String
-delete globalThis.Array
-delete globalThis.Boolean
-delete globalThis.Date
-delete globalThis.Function
-delete globalThis.Reflect
-delete globalThis.Proxy
-delete globalThis.WeakMap
-delete globalThis.WeakSet
-delete globalThis.WeakRef
-delete globalThis.BigInt
-delete globalThis.Symbol
-//delete globalThis.Map
-//delete globalThis.Set
-delete globalThis.Promise
-delete globalThis.ArrayBuffer
-delete globalThis.DataView
-delete globalThis.Int8Array
-delete globalThis.Uint8Array
-delete globalThis.Uint8ClampedArray
-delete globalThis.Int16Array
-delete globalThis.Uint16Array
-delete globalThis.Int32Array
-delete globalThis.Uint32Array
-delete globalThis.Float32Array
-delete globalThis.Float64Array
-delete globalThis.BigInt64Array
-delete globalThis.BigUint64Array
-delete globalThis.eval
-delete globalThis.parseInt
-delete globalThis.parseFloat
-delete globalThis.isNaN
-delete globalThis.isFinite
-delete globalThis.decodeURI
-delete globalThis.decodeURIComponent
-delete globalThis.encodeURI
-delete globalThis.encodeURIComponent
-delete globalThis.escape
-delete globalThis.unescape
-delete globalThis.Intl
-delete globalThis.RegExp
-
-_ObjectFreeze(globalThis)
+stone(globalThis)
 
 $_.clock(_ => {
   // Get capabilities for the main program
   var file_info = shop.file_info ? shop.file_info(locator.path) : null
   var inject = shop.script_inject_for ? shop.script_inject_for(file_info) : []
 
-  // Build values array for injection
-  var vals = []
-  for (var i = 0; i < inject.length; i++) {
+  // Build env object for injection
+  var env = {}
+  for (var i = 0; i < length(inject); i++) {
     var key = inject[i]
-    if (key && key[0] == '$') key = key.substring(1)
-    if (key == 'fd') vals.push(fd)
-    else vals.push($_[key])
+    if (key && key[0] == '$') key = text(key, 1)
+    if (key == 'fd') env[key] = fd
+    else env[key] = $_[key]
   }
 
   // Create use function bound to the program's package
   var pkg = file_info ? file_info.package : null
   var use_fn = function(path) { return shop.use(path, pkg) }
 
-  // Call with signature: setup_module(args, use, ...capabilities)
-  // The script wrapper builds $_ from the injected capabilities for backward compatibility
-  var val = locator.symbol.call(null, _cell.args.arg, use_fn, ...vals)
+  // Call with signature: setup_module(args, use, env)
+  // The script wrapper binds $delay, $start, etc. from env
+  var val = call(locator.symbol, null, [_cell.args.arg, use_fn, env])
 
   if (val)
-    throw new Error('Program must not return anything');
+    throw Error('Program must not return anything');
 })
 
 })()

internal/fn.cm

@@ -1,22 +0,0 @@
-/* fn.cm - function utilities */
-
-var _apply = Function.prototype.apply
-var _isArray = Array.isArray
-
-var fn = {}
-
-fn.apply = function(func, args) {
-  if (typeof func != 'function') return func
-  
-  if (!_isArray(args)) {
-    args = [args]
-  }
-  
-  if (args.length > func.length) {
-    throw new Error("fn.apply: too many arguments")
-  }
-  
-  return _apply.call(func, null, args)
-}
-
-return fn

internal/json.c

@@ -1,63 +0,0 @@
-#include "cell.h"
-
-static JSValue js_json_encode(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv) {
-    if (argc < 1) return JS_ThrowTypeError(ctx, "json.encode requires at least 1 argument");
-    
-    JSValue global = JS_GetGlobalObject(ctx);
-    JSValue json = JS_GetPropertyStr(ctx, global, "JSON");
-    JSValue stringify = JS_GetPropertyStr(ctx, json, "stringify");
-    
-    JSValue args[3];
-    args[0] = argv[0]; // value
-    args[1] = (argc > 1) ? argv[1] : JS_NULL; // replacer
-    args[2] = (argc > 2) ? argv[2] : JS_NewInt32(ctx, 1); // space, default 1
-    
-    JSValue result = JS_Call(ctx, stringify, json, 3, args);
-    
-    JS_FreeValue(ctx, stringify);
-    JS_FreeValue(ctx, json);
-    JS_FreeValue(ctx, global);
-    
-    if (argc <= 2) JS_FreeValue(ctx, args[2]);
-    
-    return result;
-}
-
-static JSValue js_json_decode(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv) {
-    if (argc < 1) return JS_ThrowTypeError(ctx, "json.decode requires at least 1 argument");
-    
-    if (!JS_IsString(argv[0])) {
-        JSValue err = JS_NewError(ctx);
-        JS_DefinePropertyValueStr(ctx, err, "message", 
-                                  JS_NewString(ctx, "couldn't parse text: not a string"), 
-                                  JS_PROP_WRITABLE | JS_PROP_CONFIGURABLE);
-        return JS_Throw(ctx, err);
-    }
-
-    JSValue global = JS_GetGlobalObject(ctx);
-    JSValue json = JS_GetPropertyStr(ctx, global, "JSON");
-    JSValue parse = JS_GetPropertyStr(ctx, json, "parse");
-    
-    JSValue args[2];
-    args[0] = argv[0]; // text
-    args[1] = (argc > 1) ? argv[1] : JS_NULL; // reviver
-    
-    JSValue result = JS_Call(ctx, parse, json, argc > 1 ? 2 : 1, args);
-    
-    JS_FreeValue(ctx, parse);
-    JS_FreeValue(ctx, json);
-    JS_FreeValue(ctx, global);
-    
-    return result;
-}
-
-static const JSCFunctionListEntry js_json_funcs[] = {
-  JS_CFUNC_DEF("encode", 1, js_json_encode),
-  JS_CFUNC_DEF("decode", 1, js_json_decode),
-};
-
-JSValue js_json_use(JSContext *js) {
-  JSValue export = JS_NewObject(js);
-  JS_SetPropertyFunctionList(js, export, js_json_funcs, sizeof(js_json_funcs)/sizeof(JSCFunctionListEntry));
-  return export;
-}

internal/nota.c

@@ -106,7 +106,7 @@ char *js_do_nota_decode(JSContext *js, JSValue *tmp, char *nota, JSValue holder,
         nota = js_do_nota_decode(js, &inner, nota, holder, JS_NULL, reviver);
         JSValue obj = JS_NewObject(js);
         cell_rt *crt = JS_GetContextOpaque(js);
-        JS_SetProperty(js, obj, crt->actor_sym, inner);
+//        JS_SetProperty(js, obj, crt->actor_sym, inner);
         *tmp = obj;
       } else {
         switch(b) {
@@ -198,7 +198,8 @@ static void nota_encode_value(NotaEncodeContext *enc, JSValueConst val, JSValueC
       }
 
       cell_rt *crt = JS_GetContextOpaque(ctx);
-      JSValue adata = JS_GetProperty(ctx, replaced, crt->actor_sym);
+//      JSValue adata = JS_GetProperty(ctx, replaced, crt->actor_sym);
+      JSValue adata = JS_NULL;
       if (!JS_IsNull(adata)) {
         nota_write_sym(&enc->nb, NOTA_PRIVATE);
         nota_encode_value(enc, adata, replaced, JS_NULL);
@@ -213,7 +214,7 @@ static void nota_encode_value(NotaEncodeContext *enc, JSValueConst val, JSValueC
       nota_stack_push(enc, replaced);
 
       JSValue to_json = JS_GetPropertyStr(ctx, replaced, "toJSON");
-      if (JS_IsFunction(ctx, to_json)) {
+      if (JS_IsFunction(to_json)) {
         JSValue result = JS_Call(ctx, to_json, replaced, 0, NULL);
         JS_FreeValue(ctx, to_json);
         if (!JS_IsException(result)) {
@@ -238,14 +239,14 @@ static void nota_encode_value(NotaEncodeContext *enc, JSValueConst val, JSValueC
       uint32_t non_function_count = 0;
       for (uint32_t i = 0; i < plen; i++) {
         JSValue prop_val = JS_GetProperty(ctx, replaced, ptab[i].atom);
-        if (!JS_IsFunction(ctx, prop_val)) non_function_count++;
+        if (!JS_IsFunction(prop_val)) non_function_count++;
         JS_FreeValue(ctx, prop_val);
       }
 
       nota_write_record(&enc->nb, non_function_count);
       for (uint32_t i = 0; i < plen; i++) {
         JSValue prop_val = JS_GetProperty(ctx, replaced, ptab[i].atom);
-        if (!JS_IsFunction(ctx, prop_val)) {
+        if (!JS_IsFunction(prop_val)) {
           const char *prop_name = JS_AtomToCString(ctx, ptab[i].atom);
           JSValue prop_key = JS_AtomToValue(ctx, ptab[i].atom);
           nota_write_text(&enc->nb, prop_name);
@@ -337,7 +338,7 @@ static JSValue js_nota_encode(JSContext *ctx, JSValueConst this_val, int argc, J
   enc->ctx = ctx;
   enc->visitedStack = JS_NewArray(ctx);
   enc->cycle = 0;
-  enc->replacer = (argc > 1 && JS_IsFunction(ctx, argv[1])) ? argv[1] : JS_NULL;
+  enc->replacer = (argc > 1 && JS_IsFunction(argv[1])) ? argv[1] : JS_NULL;
 
   nota_buffer_init(&enc->nb, 128);
   nota_encode_value(enc, argv[0], JS_NULL, JS_NewString(ctx, ""));
@@ -365,7 +366,7 @@ static JSValue js_nota_decode(JSContext *js, JSValueConst self, int argc, JSValu
   if (nota == -1) return JS_EXCEPTION;
   if (!nota) return JS_NULL;
 
-  JSValue reviver = (argc > 1 && JS_IsFunction(js, argv[1])) ? argv[1] : JS_NULL;
+  JSValue reviver = (argc > 1 && JS_IsFunction(argv[1])) ? argv[1] : JS_NULL;
   JSValue ret;
   JSValue holder = JS_NewObject(js);
   js_do_nota_decode(js, &ret, (char*)nota, holder, JS_NewString(js, ""), reviver);

internal/number.cm

@@ -1,169 +0,0 @@
-/* number.cm - number conversion and math utilities */
-var _floor = Math.floor
-var _ceil = Math.ceil
-var _round = Math.round
-var _abs = Math.abs
-var _trunc = Math.trunc
-var _min = Math.min
-var _max = Math.max
-var _pow = Math.pow
-var _parseInt = parseInt
-var _parseFloat = parseFloat
-
-function number(val, format) {
-  if (val == true) return 1
-  if (val == false) return 0
-  
-  if (typeof val == 'number') return val
-  
-  if (typeof val == 'string') {
-    if (typeof format == 'number') {
-      // radix conversion
-      if (format < 2 || format > 36) return null
-      var result = _parseInt(val, format)
-      if (isNaN(result)) return null
-      return result
-    }
-    
-    if (typeof format == 'string') {
-      return parse_formatted(val, format)
-    }
-    
-    // default: parse as decimal
-    var result = _parseFloat(val)
-    if (!isa(result, number)) return null
-    return result
-  }
-  
-  return null
-}
-
-function parse_formatted(str, format) {
-  if (!format || format == "" || format == "n") {
-    var result = _parseFloat(str)
-    if (isNaN(result)) return null
-    return result
-  }
-  
-  switch (format) {
-    case "u": // underbar separator
-      str = str.split('_').join('')
-      break
-    case "d": // comma separator
-      str = str.split(',').join('')
-      break
-    case "s": // space separator
-      str = str.split(' ').join('')
-      break
-    case "v": // European style: period separator, comma decimal
-      str = str.split('.').join('')
-      str = str.replace(',', '.')
-      break
-    case "l": // locale - treat like 'd' for now
-      str = str.split(',').join('')
-      break
-    case "i": // integer with underbar
-      str = str.split('_').join('')
-      break
-    case "b": // binary
-      return _parseInt(str, 2)
-    case "o": // octal
-      return _parseInt(str, 8)
-    case "h": // hex
-      return _parseInt(str, 16)
-    case "t": // base32
-      return _parseInt(str, 32)
-    case "j": // JavaScript style prefix
-      if (str.startsWith('0x') || str.startsWith('0X'))
-        return _parseInt(str.slice(2), 16)
-      if (str.startsWith('0o') || str.startsWith('0O'))
-        return _parseInt(str.slice(2), 8)
-      if (str.startsWith('0b') || str.startsWith('0B'))
-        return _parseInt(str.slice(2), 2)
-      return _parseFloat(str)
-    default:
-      return null
-  }
-  
-  var result = _parseFloat(str)
-  if (isNaN(result)) return null
-  return result
-}
-
-number.whole = function(n) {
-  if (typeof n != 'number') return null
-  return _trunc(n)
-}
-
-number.fraction = function(n) {
-  if (typeof n != 'number') return null
-  return n - _trunc(n)
-}
-
-number.floor = function(n, place) {
-  if (typeof n != 'number') return null
-  if (place == null || place == 0) return _floor(n)
-  var mult = _pow(10, place)
-  return _floor(n * mult) / mult
-}
-
-number.ceiling = function(n, place) {
-  if (typeof n != 'number') return null
-  if (place == null || place == 0) return _ceil(n)
-  var mult = _pow(10, place)
-  return _ceil(n * mult) / mult
-}
-
-number.abs = function(n) {
-  if (typeof n != 'number') return null
-  return _abs(n)
-}
-
-number.round = function(n, place) {
-  if (typeof n != 'number') return null
-  if (place == null || place == 0) return _round(n)
-  var mult = _pow(10, place)
-  return _round(n * mult) / mult
-}
-
-number.sign = function(n) {
-  if (typeof n != 'number') return null
-  if (n < 0) return -1
-  if (n > 0) return 1
-  return 0
-}
-
-number.trunc = function(n, place) {
-  if (typeof n != 'number') return null
-  if (place == null || place == 0) return _trunc(n)
-  var mult = _pow(10, place)
-  return _trunc(n * mult) / mult
-}
-
-number.min = function(...vals) {
-  if (vals.length == 0) return null
-  var result = vals[0]
-  for (var i = 1; i < vals.length; i++) {
-    if (typeof vals[i] != 'number') return null
-    if (vals[i] < result) result = vals[i]
-  }
-  return result
-}
-
-number.max = function(...vals) {
-  if (vals.length == 0) return null
-  var result = vals[0]
-  for (var i = 1; i < vals.length; i++) {
-    if (typeof vals[i] != 'number') return null
-    if (vals[i] > result) result = vals[i]
-  }
-  return result
-}
-
-number.remainder = function(dividend, divisor) {
-  if (typeof dividend != 'number' || typeof divisor != 'number') return null
-  if (divisor == 0) return null
-  return dividend - (_trunc(dividend / divisor) * divisor)
-}
-
-return number

internal/object.cm

@@ -1,93 +0,0 @@
-/* object.cm - object creation and manipulation utilities */
-
-var _keys = array
-var _create = meme
-var _assign = Object.assign
-var _isArray = function(val) { return isa(val, array) }
-var _values = Object.values
-
-function object(arg, arg2) {
-  // object(object) - shallow mutable copy
-  if (isa(arg, object) && arg2 == null) {
-    var result = {}
-    var keys = _keys(arg)
-    for (var i = 0; i < keys.length; i++) {
-      result[keys[i]] = arg[keys[i]]
-    }
-    return result
-  }
-  
-  // object(object, another_object) - combine
-  if (isa(arg, object) && isa(arg2, object)) {
-    var result = {}
-    var keys = _keys(arg)
-    for (var i = 0; i < keys.length; i++) {
-      result[keys[i]] = arg[keys[i]]
-    }
-    keys = _keys(arg2)
-    for (var i = 0; i < keys.length; i++) {
-      result[keys[i]] = arg2[keys[i]]
-    }
-    return result
-  }
-  
-  // object(object, array_of_keys) - select
-  if (isa(arg, object) && _isArray(arg2)) {
-    var result = {}
-    for (var i = 0; i < arg2.length; i++) {
-      var key = arg2[i]
-      if (typeof key == 'string' && key in arg) {
-        result[key] = arg[key]
-      }
-    }
-    return result
-  }
-  
-  // object(array_of_keys) - set with true values
-  if (_isArray(arg) && arg2 == null) {
-    var result = {}
-    for (var i = 0; i < arg.length; i++) {
-      var key = arg[i]
-      if (typeof key == 'string') {
-        result[key] = true
-      }
-    }
-    return result
-  }
-  
-  // object(array_of_keys, value) - value set
-  // object(array_of_keys, function) - functional value set
-  if (_isArray(arg) && arg2 != null) {
-    var result = {}
-    if (typeof arg2 == 'function') {
-      for (var i = 0; i < arg.length; i++) {
-        var key = arg[i]
-        if (typeof key == 'string') {
-          result[key] = arg2(key)
-        }
-      }
-    } else {
-      for (var i = 0; i < arg.length; i++) {
-        var key = arg[i]
-        if (typeof key == 'string') {
-          result[key] = arg2
-        }
-      }
-    }
-    return result
-  }
-  
-  return null
-}
-
-object.values = function(obj)
-{
-  return _values(obj)
-}
-
-object.assign = function(obj, ...args)
-{
-  return _assign(obj, ...args)
-}
-
-return object

internal/shop.cm

@@ -1,4 +1,5 @@
 var toml = use('toml')
+
 var json = use('json')
 var fd = use('fd')
 var http = use('http')
@@ -6,8 +7,8 @@ var miniz = use('miniz')
 var time = use('time')
 var js = use('js')
 var crypto = use('crypto')
-var utf8 = use('utf8')
 var blob = use('blob')
+
 var pkg_tools = use('package')
 var os = use('os')
 var link = use('link')
@@ -29,9 +30,9 @@ function put_into_cache(content, obj)
 
 function ensure_dir(path) {
   if (fd.stat(path).isDirectory) return
-  var parts = path.split('/')
-  var current = path.startsWith('/') ? '/' : ''
-  for (var i = 0; i < parts.length; i++) {
+  var parts = array(path, '/')
+  var current = starts_with(path, '/') ? '/' : ''
+  for (var i = 0; i < length(parts); i++) {
     if (parts[i] == '') continue
     current += parts[i] + '/'
     if (!fd.stat(current).isDirectory) {
@@ -63,7 +64,7 @@ var dylib_ext = '.dylib' // Default extension
 
 var use_cache = os.use_cache
 var global_shop_path = os.global_shop_path
-var $_ = os.$_
+var my$_ = os.$_
 
 Shop.get_package_dir = function(name) {
   return global_shop_path + '/packages/' + name
@@ -92,8 +93,8 @@ Shop.get_reports_dir = function() {
 }
 
 function get_import_package(name) {
-  var parts = name.split('/')
-  if (parts.length > 1)
+  var parts = array(name, '/')
+  if (length(parts) > 1)
     return parts[0]
 
   return null
@@ -101,24 +102,24 @@ function get_import_package(name) {
 
 function is_internal_path(path)
 {
-  return path && path.startsWith('internal/')
+  return path && starts_with(path, 'internal/')
 }
 
 function split_explicit_package_import(path)
 {
   if (!path) return null
-  var parts = path.split('/')
+  var parts = array(path, '/')
 
-  if (parts.length < 2) return null
+  if (length(parts) < 2) return null
 
-  var looks_explicit = path.startsWith('/') || (parts[0] && parts[0].includes('.'))
+  var looks_explicit = starts_with(path, '/') || (parts[0] && search(parts[0], '.') != null)
   if (!looks_explicit) return null
 
   // Find the longest prefix that is an installed package
-  for (var i = parts.length - 1; i >= 1; i--) {
-    var pkg_candidate = parts.slice(0, i).join('/')
-    var mod_path = parts.slice(i).join('/')
-    if (!mod_path || mod_path.length == 0) continue
+  for (var i = length(parts) - 1; i >= 1; i--) {
+    var pkg_candidate = text(array(parts, 0, i), '/')
+    var mod_path = text(array(parts, i), '/')
+    if (!mod_path || length(mod_path) == 0) continue
 
     var candidate_dir = get_packages_dir() + '/' + safe_package_path(pkg_candidate)
     if (fd.is_file(candidate_dir + '/cell.toml'))
@@ -142,7 +143,7 @@ function package_in_shop(package) {
 function abs_path_to_package(package_dir)
 {
   if (!fd.is_file(package_dir + '/cell.toml'))
-    throw new Error('Not a valid package directory (no cell.toml): ' + package_dir)
+    throw Error('Not a valid package directory (no cell.toml): ' + package_dir)
 
   var packages_prefix = get_packages_dir() + '/'
   var core_dir = packages_prefix + core_package
@@ -159,8 +160,15 @@ function abs_path_to_package(package_dir)
     }
   }
 
-  if (package_dir.startsWith(packages_prefix))
-    return package_dir.substring(packages_prefix.length)
+  if (starts_with(package_dir, packages_prefix))
+    return text(package_dir, length(packages_prefix))
+
+  // Check if this local path is the target of a link
+  // If so, return the canonical package name (link origin) instead
+  var link_origin = link.get_origin(package_dir)
+  if (link_origin) {
+    return link_origin
+  }
 
   // in this case, the dir is the package
   if (package_in_shop(package_dir))
@@ -189,9 +197,9 @@ Shop.file_info = function(file) {
     name: null
   }
   
-  if (file.endsWith(MOD_EXT))
+  if (ends_with(file, MOD_EXT))
     info.is_module = true
-  else if (file.endsWith(ACTOR_EXT))
+  else if (ends_with(file, ACTOR_EXT))
     info.is_actor = true
   
   // Find package directory and determine package name
@@ -200,11 +208,11 @@ Shop.file_info = function(file) {
     info.package = abs_path_to_package(pkg_dir)
 
     if (info.is_actor)
-      info.name = file.substring(pkg_dir.length + 1, file.length - ACTOR_EXT.length)
+      info.name = text(file, length(pkg_dir) + 1, length(file) - length(ACTOR_EXT))
     else if (info.is_module)
-      info.name = file.substring(pkg_dir.length + 1, file.length - MOD_EXT.length)
+      info.name = text(file, length(pkg_dir) + 1, length(file) - length(MOD_EXT))
     else
-      info.name = file.substring(pkg_dir.length + 1)
+      info.name = text(file, length(pkg_dir) + 1)
   }
   
   return info
@@ -212,9 +220,9 @@ Shop.file_info = function(file) {
 
 function get_import_name(path)
 {
-  var parts = path.split('/')
-  if (parts.length < 2) return null
-  return parts.slice(1).join('/')
+  var parts = array(path, '/')
+  if (length(parts) < 2) return null
+  return text(array(parts, 1), '/')
 }
 
 // Given a path like 'prosperon/sprite' and a package context,
@@ -240,14 +248,14 @@ function safe_package_path(pkg)
 {
   // For absolute paths, replace / with _ to create a valid directory name
   // Also replace @ with _
-  if (pkg && pkg.startsWith('/'))
-    return pkg.replaceAll('/', '_').replaceAll('@', '_')
-  return pkg.replaceAll('@', '_')
+  if (pkg && starts_with(pkg, '/'))
+    return replace(replace(pkg, '/', '_'), '@', '_')
+  return replace(pkg, '@', '_')
 }
 
 function package_cache_path(pkg)
 {
-  return global_shop_path + '/cache/' + pkg.replaceAll('/', '_').replaceAll('@', '_')
+  return global_shop_path + '/cache/' + replace(replace(pkg, '/', '_'), '@', '_')
 }
 
 function get_shared_lib_path()
@@ -267,7 +275,7 @@ Shop.load_lock = function() {
     return {}
   
   var content = text(fd.slurp(path))
-  if (!content.length) return {}
+  if (!length(content)) return {}
   
   _lock = toml.decode(content)
   
@@ -277,26 +285,26 @@ Shop.load_lock = function() {
 // Save lock.toml configuration (to global shop)
 Shop.save_lock = function(lock) {
   var path = global_shop_path + '/lock.toml'
-  fd.slurpwrite(path, utf8.encode(toml.encode(lock)));
+  fd.slurpwrite(path, stone(blob(toml.encode(lock))));
 }
 
 
 // Get information about how to resolve a package
 // Local packages always start with /
 Shop.resolve_package_info = function(pkg) {
-  if (pkg.startsWith('/')) return 'local'
-  if (pkg.includes('gitea')) return 'gitea'
+  if (starts_with(pkg, '/')) return 'local'
+  if (search(pkg, 'gitea') != null) return 'gitea'
   return null
 }
 
 // Verify if a package name is valid and return status
 Shop.verify_package_name = function(pkg) {
-  if (!pkg) throw new Error("Empty package name")
-  if (pkg == 'local') throw new Error("local is not a valid package name")
-  if (pkg == 'core') throw new Error("core is not a valid package name")
+  if (!pkg) throw Error("Empty package name")
+  if (pkg == 'local') throw Error("local is not a valid package name")
+  if (pkg == 'core') throw Error("core is not a valid package name")
   
-  if (pkg.includes('://'))
-    throw new Error(`Invalid package name: ${pkg}; did you mean ${pkg.split('://')[1]}?`)
+  if (search(pkg, '://') != null)
+    throw Error(`Invalid package name: ${pkg}; did you mean ${array(pkg, '://')[1]}?`)
 }
 
 // Convert module package to download URL
@@ -304,7 +312,7 @@ Shop.get_download_url = function(pkg, commit_hash) {
   var info = Shop.resolve_package_info(pkg)
 
   if (info == 'gitea') {
-    var parts = pkg.split('/')
+    var parts = array(pkg, '/')
     var host = parts[0]
     var user = parts[1]
     var repo = parts[2]
@@ -320,7 +328,7 @@ Shop.get_api_url = function(pkg) {
   var info = Shop.resolve_package_info(pkg)
 
   if (info == 'gitea') {
-    var parts = pkg.split('/')
+    var parts = array(pkg, '/')
     var host = parts[0]
     var user = parts[1]
     var repo = parts[2]
@@ -339,7 +347,7 @@ Shop.extract_commit_hash = function(pkg, response) {
   var data = json.decode(response)
 
   if (info == 'gitea') {
-    if (isa(data, array))
+    if (is_array(data))
       data = data[0]
     return data.commit && data.commit.id
   }
@@ -354,11 +362,6 @@ var open_dls = {}
 // These map to $_ properties in engine.cm
 var SHOP_DEFAULT_INJECT = ['$self', '$overling', '$clock', '$delay', '$start', '$receiver', '$contact', '$portal', '$time_limit', '$couple', '$stop', '$unneeded', '$connection', '$fd']
 
-function strip_dollar(name) {
-  if (name && name[0] == '$') return name.substring(1)
-  return name
-}
-
 // Decide what a given module is allowed to see.
 // This is the capability gate - tweak as needed.
 Shop.script_inject_for = function(file_info) {
@@ -375,19 +378,25 @@ Shop.get_script_capabilities = function(path) {
   return Shop.script_inject_for(file_info)
 }
 
-function inject_params(inject) {
-  if (!inject || !inject.length) return ''
-  return ', ' + inject.join(', ')
+function inject_env(inject) {
+  var env = {}
+  for (var i = 0; i < length(inject); i++) {
+    var inj = inject[i]
+    var key = trim(inj, '$')
+    if (key == 'fd') env[key] = fd
+    else env[key] = my$_[key]
+  }
+  return env
 }
 
-function inject_values(inject) {
-  var vals = []
-  for (var i = 0; i < inject.length; i++) {
-    var key = strip_dollar(inject[i])
-    if (key == 'fd') vals.push(fd)
-    else vals.push($_[key])
+function inject_bindings_code(inject) {
+  var lines = []
+  for (var i = 0; i < length(inject); i++) {
+    var inj = inject[i]
+    var key = trim(inj, '$')
+    push(lines, `var $${key} = env["${key}"];`)
   }
-  return vals
+  return text(lines, '\n')
 }
 
 // Build the use function for a specific package context
@@ -398,32 +407,21 @@ function make_use_fn_code(pkg_arg) {
 // for script forms, path is the canonical path of the module
 var script_form = function(path, script, pkg, inject) {
   var pkg_arg = pkg ? `'${pkg}'` : 'null'
-  var params = inject_params(inject)
+  var binds = inject_bindings_code(inject)
 
-  // Build $_ object from injected capabilities for backward compatibility
-  var build_compat = ''
-  if (inject && inject.length) {
-    var compat_props = []
-    for (var i = 0; i < inject.length; i++) {
-      var name = inject[i]
-      var key = name
-      if (key && key[0] == '$') key = key.substring(1)
-      compat_props.push(key + ': ' + name)
-    }
-    build_compat = 'var $_ = {' + compat_props.join(', ') + '};'
-  }
-  
-  // use is passed as a parameter, not on globalThis for the script
-  // $fd is injected as a capability, but we still allow use('fd') for now
-  // $_ is built from injected capabilities for backward compatibility
-  var fn = `(function setup_module(args, use${params}){ def arg = args; def PACKAGE = ${pkg_arg}; ${build_compat} ${script}})`
+  var fn = `(function setup_module(args, use, env){
+def arg = args;
+def PACKAGE = ${pkg_arg};
+${binds}
+${script}
+})`
   return fn
 }
 
 // Resolve module function, hashing it in the process
 // path is the exact path to the script file
 function resolve_mod_fn(path, pkg) {
-  if (!fd.is_file(path)) throw new Error(`path ${path} is not a file`)
+  if (!fd.is_file(path)) throw Error(`path ${path} is not a file`)
 
   var file_info = Shop.file_info(path)
   var file_pkg = file_info.package
@@ -431,7 +429,7 @@ function resolve_mod_fn(path, pkg) {
   var content = text(fd.slurp(path))
   var script = script_form(path, content, file_pkg, inject);
   
-  var obj = pull_from_cache(utf8.encode(script))
+  var obj = pull_from_cache(stone(blob(script)))
   if (obj) {
     var fn = js.compile_unblob(obj)
     return js.eval_compile(fn)
@@ -443,7 +441,7 @@ function resolve_mod_fn(path, pkg) {
   
   var fn = js.compile(compile_name, script)
   
-  put_into_cache(utf8.encode(script), js.compile_blob(fn))
+  put_into_cache(stone(blob(script)), js.compile_blob(fn))
   
   return js.eval_compile(fn)
 }
@@ -480,7 +478,7 @@ function resolve_locator(path, ctx)
   // If ctx is an absolute path (starts with /), use it directly
   // Otherwise, look it up in the packages directory
   var ctx_dir
-  if (ctx.startsWith('/')) {
+  if (starts_with(ctx, '/')) {
     ctx_dir = ctx
   } else {
     ctx_dir = get_packages_dir() + '/' + safe_package_path(ctx)
@@ -527,25 +525,17 @@ function resolve_locator(path, ctx)
 
 // Generate symbol name for a C module file
 // Uses the same format as Shop.c_symbol_for_file
-// Resolves linked packages to their actual target first
+// Symbol names are based on canonical package names, not link targets
 function make_c_symbol(pkg, file) {
-  // Check if this package is linked - if so, use the link target for symbol name
-  var link_target = link.get_target(pkg)
-  var resolved_pkg = link_target ? link_target : pkg
-  
-  var pkg_safe = resolved_pkg.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
-  var file_safe = file.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
+  var pkg_safe = replace(replace(replace(pkg, '/', '_'), '.', '_'), '-', '_')
+  var file_safe = replace(replace(replace(file, '/', '_'), '.', '_'), '-', '_')
   return 'js_' + pkg_safe + '_' + file_safe + '_use'
 }
 
 // Get the library path for a package in .cell/lib
-// Resolves linked packages to their actual target first
+// Library names are based on canonical package names, not link targets
 function get_lib_path(pkg) {
-  // Check if this package is linked - if so, use the link target
-  var link_target = link.get_target(pkg)
-  var resolved_pkg = link_target ? link_target : pkg
-  
-  var lib_name = resolved_pkg.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
+  var lib_name = replace(replace(replace(pkg, '/', '_'), '.', '_'), '-', '_')
   return global_shop_path + '/lib/' + lib_name + dylib_ext
 }
 
@@ -559,7 +549,7 @@ Shop.open_package_dylib = function(pkg) {
   var resolved_pkg = link_target ? link_target : pkg
 
   var pkg_dir;
-  if (resolved_pkg.startsWith('/')) {
+  if (starts_with(resolved_pkg, '/')) {
     pkg_dir = resolved_pkg
   } else {
     pkg_dir = get_packages_dir() + '/' + safe_package_path(resolved_pkg)
@@ -571,20 +561,29 @@ Shop.open_package_dylib = function(pkg) {
       var content = text(fd.slurp(toml_path))
       var cfg = toml.decode(content)
       if (cfg.dependencies) {
-        for (var alias in cfg.dependencies) {
+        arrfor(array(cfg.dependencies), function(alias, i) {
           var dep_pkg = cfg.dependencies[alias]
+          try {
             Shop.open_package_dylib(dep_pkg)
+          } catch (dep_e) {
+            // Dependency dylib load failed, continue with others
           }
+        })
       }
     } catch (e) {
-      // Ignore errors reading cell.toml
+      // Error reading toml, continue
     }
   }
 
   var dl_path = get_lib_path(pkg)
   if (fd.is_file(dl_path)) {
     if (!open_dls[dl_path]) {
+      try {
         open_dls[dl_path] = os.dylib_open(dl_path)
+      } catch (e) {
+        dylib_visited[pkg] = false
+        throw e
+      }
     }
   }
 }
@@ -592,9 +591,8 @@ Shop.open_package_dylib = function(pkg) {
 // Resolve a C symbol by searching:
 // 1. If package_context is null, only check core internal symbols
 // 2. Otherwise: own package (internal then dylib) -> other packages (internal then dylib) -> core (internal only)
- // Core is never loaded as a dynamic library via dlopen
- function resolve_c_symbol(path, package_context)
- {
+// Core is never loaded as a dynamic library via dlopen
+function resolve_c_symbol(path, package_context) {
   var explicit = split_explicit_package_import(path)
   if (explicit) {
     if (is_internal_path(explicit.path) && package_context && explicit.package != package_context)
@@ -624,7 +622,8 @@ Shop.open_package_dylib = function(pkg) {
   }
 
   // If no package context, only check core internal symbols
-  if (!package_context) {
+  if (!package_context || package_context == 'core') {
+    path = replace(path, '/', '_')
     var core_sym = `js_${path}_use`
     if (os.internal_exists(core_sym)) {
       return {
@@ -693,7 +692,7 @@ Shop.open_package_dylib = function(pkg) {
   }
 
   // 3. Check core internal symbols (core is never a dynamic library)
-  var core_sym = `js_${path}_use`
+  var core_sym = `js_${replace(path, '/', '_')}_use`
   if (os.internal_exists(core_sym)) {
     return {
       symbol: function() { return os.load_internal(core_sym) },
@@ -716,7 +715,7 @@ function resolve_module_info(path, package_context) {
 
   var c_resolve = resolve_c_symbol(path, package_context) || {scope:999}
   var mod_resolve = resolve_locator(path + '.cm', package_context) || {scope:999}
-  var min_scope = number.min(c_resolve.scope, mod_resolve.scope)
+  var min_scope = min(c_resolve.scope, mod_resolve.scope)
 
   if (min_scope == 999)
     return null
@@ -783,6 +782,14 @@ function make_use_fn(pkg) {
   }
 }
 
+// Call a C module loader and execute the entrypoint
+function call_c_module(c_resolve) {
+  var mod = c_resolve.symbol()
+//  if (is_function(mod))
+//    return mod()
+  return mod
+}
+
 function execute_module(info)
 {
   var c_resolve = info.c_resolve
@@ -793,26 +800,31 @@ function execute_module(info)
   if (mod_resolve.scope < 900) {
       var context = null
       if (c_resolve.scope < 900) {
-          context = c_resolve.symbol(null, $_)
+          context = call_c_module(c_resolve)
       }
 
       // Get file info to determine inject list
       var file_info = Shop.file_info(mod_resolve.path)
       var inject = Shop.script_inject_for(file_info)
-      var vals = inject_values(inject)
+      var env = inject_env(inject)
       var pkg = file_info.package
       var use_fn = make_use_fn(pkg)
 
-      // Call with signature: setup_module(args, use, ...capabilities)
+      // Call with signature: setup_module(args, use, env)
       // args is null for module loading
-      used = mod_resolve.symbol.call(context, null, use_fn, ...vals)
+      used = call(mod_resolve.symbol, context, [null, use_fn, env])
   } else if (c_resolve.scope < 900) {
       // C only
-      used = c_resolve.symbol(null, $_)
+      used = call_c_module(c_resolve)
   } else {
-      throw new Error(`Module ${info.path} could not be found`)
-  } if (!used)
-    throw new Error(`Module ${info} returned null`)
+      throw Error(`Module ${info.path} could not be found`)
+  }
+
+//  if (is_function(used))
+//    throw Error('C module loader returned a function; did you forget to call it?')
+
+  if (!used)
+    throw Error(`Module ${info} returned null`)
 
 //  stone(used)
   return used
@@ -822,7 +834,7 @@ function get_module(path, package_context) {
   var info = resolve_module_info(path, package_context)
 
   if (!info)
-    throw new Error(`Module ${path} could not be found in ${package_context}`)
+    throw Error(`Module ${path} could not be found in ${package_context}`)
 
   return execute_module(info)
 }
@@ -830,7 +842,7 @@ function get_module(path, package_context) {
 Shop.use = function use(path, package_context) {
   var info = resolve_module_info(path, package_context)
   if (!info)
-    throw new Error(`Module ${path} could not be found in ${package_context}`)
+    throw Error(`Module ${path} could not be found in ${package_context}`)
 
   if (use_cache[info.cache_key])
     return use_cache[info.cache_key]
@@ -842,7 +854,7 @@ Shop.resolve_locator = resolve_locator
 
 // Get cache path for a package and commit
 function get_cache_path(pkg, commit) {
-  return global_shop_path + '/cache/' + pkg.replaceAll('@','_').replaceAll('/','_') + '_' + commit + '.zip'
+  return global_shop_path + '/cache/' + replace(replace(pkg, '@','_'), '/','_') + '_' + commit + '.zip'
 }
 
 function get_package_abs_dir(package)
@@ -878,15 +890,12 @@ function download_zip(pkg, commit_hash) {
     return null
   }
 
-  log.console("Downloading from " + download_url)
   try {
     var zip_blob = http.fetch(download_url)
-    log.console(`putting to ${cache_path}`)
     fd.slurpwrite(cache_path, zip_blob)
-    log.console("Cached to " + cache_path)
     return zip_blob
   } catch (e) {
-    log.error(e)
+    log.error("Download failed for " + pkg + ": " + e)
     return null
   }
 }
@@ -901,19 +910,22 @@ function get_cached_zip(pkg, commit_hash) {
 }
 
 // Fetch: Ensure the zip on disk matches what's in the lock file
-// For local packages, this is a no-op (returns true)
+// For local packages, this is a no-op
 // For remote packages, downloads the zip if not present or hash mismatch
-// Returns true on success
+// Returns: { status: 'local'|'cached'|'downloaded'|'error', message: string }
 Shop.fetch = function(pkg) {
   var lock = Shop.load_lock()
   var lock_entry = lock[pkg]
   var info = Shop.resolve_package_info(pkg)
 
-  if (info == 'local') return null
+  if (info == 'local') {
+    return { status: 'local' }
+  }
 
   // No lock entry - can't fetch without knowing what commit
-  if (!lock_entry || !lock_entry.commit)
-    throw new Error("No lock entry for " + pkg + " - run update first")
+  if (!lock_entry || !lock_entry.commit) {
+    return { status: 'error', message: "No lock entry for " + pkg + " - run update first" }
+  }
 
   var commit = lock_entry.commit
   var expected_hash = lock_entry.zip_hash
@@ -922,18 +934,34 @@ Shop.fetch = function(pkg) {
   var zip_blob = get_cached_zip(pkg, commit)
 
   if (zip_blob) {
-    // Verify hash matches
+    // If we have a hash on record, verify it
+    if (expected_hash) {
       var actual_hash = text(crypto.blake2(zip_blob), 'h')
-    if (actual_hash == expected_hash)
-      return true
-
+      if (actual_hash == expected_hash) {
+        return { status: 'cached' }
+      }
       log.console("Zip hash mismatch for " + pkg + ", re-fetching...")
+    } else {
+      // No hash stored yet - compute and store it
+      var actual_hash = text(crypto.blake2(zip_blob), 'h')
+      lock_entry.zip_hash = actual_hash
+      Shop.save_lock(lock)
+      return { status: 'cached' }
+    }
   }
 
   // Download the zip
-  download_zip(pkg, commit)
+  var new_zip = download_zip(pkg, commit)
+  if (!new_zip) {
+    return { status: 'error', message: "Failed to download " + pkg }
+  }
 
-  return true
+  // Store the hash
+  var new_hash = text(crypto.blake2(new_zip), 'h')
+  lock_entry.zip_hash = new_hash
+  Shop.save_lock(lock)
+
+  return { status: 'downloaded' }
 }
 
 // Extract: Extract a package to its target directory
@@ -964,13 +992,33 @@ Shop.extract = function(pkg) {
     return true
   }
 
+  // Check if already extracted at correct commit
+  var lock = Shop.load_lock()
+  var lock_entry = lock[pkg]
+  if (lock_entry && lock_entry.commit) {
+    var extracted_commit_file = target_dir + '/.cell_commit'
+    if (fd.is_file(extracted_commit_file)) {
+      var extracted_commit = trim(text(fd.slurp(extracted_commit_file)))
+      if (extracted_commit == lock_entry.commit) {
+        // Already extracted at this commit, skip
+        return true
+      }
+    }
+  }
+
   var zip_blob = get_package_zip(pkg)
 
   if (!zip_blob)
-    throw new Error("No zip blob available for " + pkg)
+    throw Error("No zip blob available for " + pkg)
 
   // Extract zip for remote package
   install_zip(zip_blob, target_dir)
+
+  // Write marker file with the extracted commit
+  if (lock_entry && lock_entry.commit) {
+    fd.slurpwrite(target_dir + '/.cell_commit', stone(blob(lock_entry.commit)))
+  }
+
   return true
 }
 
@@ -1002,9 +1050,21 @@ Shop.update = function(pkg) {
 
   log.console(`checking ${pkg}`)
 
-  if (info == 'local') return {
+  if (info == 'local') {
+    // Check if local path exists
+    if (!fd.is_dir(pkg)) {
+      log.console(`  Local path does not exist: ${pkg}`)
+      return null
+    }
+    // Local packages always get a lock entry
+    var new_entry = {
+      type: 'local',
       updated: time.number()
     }
+    lock[pkg] = new_entry
+    Shop.save_lock(lock)
+    return new_entry
+  }
   
   var local_commit = lock_entry ? lock_entry.commit : null
   var remote_commit = fetch_remote_hash(pkg)
@@ -1012,14 +1072,14 @@ Shop.update = function(pkg) {
   log.console(`local commit: ${local_commit}`)
   log.console(`remote commit: ${remote_commit}`)
 
-  if (local_commit == remote_commit)
-    return null
-  
   if (!remote_commit) {
     log.error("Could not resolve commit for " + pkg)
     return null
   }
 
+  if (local_commit == remote_commit)
+    return null
+
   var new_entry = {
     type: info,
     commit: remote_commit,
@@ -1034,7 +1094,7 @@ Shop.update = function(pkg) {
 
 function install_zip(zip_blob, target_dir) {
   var zip = miniz.read(zip_blob)
-  if (!zip) throw new Error("Failed to read zip archive")
+  if (!zip) throw Error("Failed to read zip archive")
 
   if (fd.is_link(target_dir)) fd.unlink(target_dir)
   if (fd.is_dir(target_dir)) fd.rmdir(target_dir, 1)
@@ -1043,20 +1103,27 @@ function install_zip(zip_blob, target_dir) {
   ensure_dir(target_dir)
 
   var count = zip.count()
+  var created_dirs = {}
 
   for (var i = 0; i < count; i++) {
     if (zip.is_directory(i)) continue
     var filename = zip.get_filename(i)
-    var parts = filename.split('/')
-    if (parts.length <= 1) continue
-    
-    parts.shift()
-    var rel_path = parts.join('/')
+    var slash_pos = search(filename, '/')
+    if (slash_pos == null) continue
+    if (slash_pos + 1 >= length(filename)) continue
+    var rel_path = text(filename, slash_pos + 1)
     var full_path = target_dir + '/' + rel_path
-    var dir_path = full_path.substring(0, full_path.lastIndexOf('/'))
+    var dir_path = fd.dirname(full_path)
 
+    if (!created_dirs[dir_path]) {
       ensure_dir(dir_path)
-    fd.slurpwrite(full_path, zip.slurp(filename))
+      created_dirs[dir_path] = true
+    }
+    var file_data = zip.slurp(filename)
+
+    stone(file_data)
+
+    fd.slurpwrite(full_path, file_data)
   }
 }
 
@@ -1079,14 +1146,14 @@ Shop.get = function(pkg) {
   if (!lock[pkg]) {
     var info = Shop.resolve_package_info(pkg)
     if (!info) {
-      throw new Error("Invalid package: " + pkg)
+      throw Error("Invalid package: " + pkg)
     }
     
     var commit = null
     if (info != 'local') {
       commit = fetch_remote_hash(pkg)
       if (!commit) {
-        throw new Error("Could not resolve commit for " + pkg)
+        throw Error("Could not resolve commit for " + pkg)
       }
     }
     
@@ -1128,12 +1195,14 @@ Shop.module_reload = function(path, package) {
   var old = use_cache[cache_key]
   var newmod = get_module(path, package)
 
-  for (var i in newmod)
+  arrfor(array(newmod), function(i, idx) {
     old[i] = newmod[i]
+  })
 
-  for (var i in old)
+  arrfor(array(old), function(i, idx) {
     if (!(i in newmod))
       old[i] = null
+  })
 }
 
 function get_package_scripts(package)
@@ -1141,10 +1210,10 @@ function get_package_scripts(package)
   var files = pkg_tools.list_files(package)
   var scripts = []
   
-  for (var i = 0; i < files.length; i++) {
+  for (var i = 0; i < length(files); i++) {
     var file = files[i]
-    if (file.endsWith('.cm') || file.endsWith('.ce')) {
-      scripts.push(file)
+    if (ends_with(file, '.cm') || ends_with(file, '.ce')) {
+      push(scripts, file)
     }
   }
   
@@ -1157,8 +1226,9 @@ Shop.build_package_scripts = function(package)
   var scripts = get_package_scripts(package)
   var pkg_dir = get_package_abs_dir(package)
 
-  for (var script of scripts)
+  arrfor(scripts, function(script, i) {
     resolve_mod_fn(pkg_dir + '/' + script, package)
+  })
 }
 
 Shop.list_packages = function()
@@ -1190,22 +1260,22 @@ Shop.get_package_dir = function(pkg) {
 // e.g., c_symbol_for_file('gitea.pockle.world/john/prosperon', 'sprite.c') 
 //       -> 'js_gitea_pockle_world_john_prosperon_sprite_use'
 Shop.c_symbol_for_file = function(pkg, file) {
-  var pkg_safe = pkg.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
-  var file_safe = file.substring(0, file.lastIndexOf('.')).replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
+  var pkg_safe = replace(replace(replace(pkg, '/', '_'), '.', '_'), '-', '_')
+  var file_safe = replace(replace(fd.stem(file), '/', '_'), '.', '_')
   return 'js_' + pkg_safe + '_' + file_safe + '_use'
 }
 
 // Generate C symbol prefix for a package
 // e.g., c_symbol_prefix('gitea.pockle.world/john/prosperon') -> 'js_gitea_pockle_world_john_prosperon_'
 Shop.c_symbol_prefix = function(pkg) {
-  var pkg_safe = pkg.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
+  var pkg_safe = replace(replace(replace(pkg, '/', '_'), '.', '_'), '-', '_')
   return 'js_' + pkg_safe + '_'
 }
 
 // Get the library name for a package (without extension)
 // e.g., 'gitea.pockle.world/john/prosperon' -> 'gitea_pockle_world_john_prosperon'
 Shop.lib_name_for_package = function(pkg) {
-  return pkg.replace(/\//g, '_').replace(/\./g, '_').replace(/-/g, '_')
+  return replace(replace(replace(pkg, '/', '_'), '.', '_'), '-', '_')
 }
 
 // Returns { ok: bool, results: [{pkg, ok, error}] }
@@ -1214,12 +1284,12 @@ Shop.audit_packages = function() {
 
   var bad = []
 
-  for (var package of packages) {
-    if (package == 'core') continue
-    if (fd.is_dir(package)) continue
-    if (fetch_remote_hash(package)) continue
-    bad.push(package)
-  }
+  arrfor(packages, function(package, i) {
+    if (package == 'core') return
+    if (fd.is_dir(package)) return
+    if (fetch_remote_hash(package)) return
+    push(bad, package)
+  })
 
   return bad
 }
@@ -1231,16 +1301,16 @@ Shop.parse_package = function(locator) {
   
   // Strip version suffix if present
   var clean = locator
-  if (locator.includes('@')) {
-    clean = locator.split('@')[0]
+  if (search(locator, '@') != null) {
+    clean = array(locator, '@')[0]
   }
   
   var info = Shop.resolve_package_info(clean)
   if (!info) return null
   
   // Extract package name (last component of path)
-  var parts = clean.split('/')
-  var name = parts[parts.length - 1]
+  var parts = array(clean, '/')
+  var name = parts[length(parts) - 1]
   
   return {
     path: clean,

internal/testlib.cm

@@ -24,7 +24,7 @@ function get_pkg_dir(package_name) {
   if (!package_name) {
     return fd.realpath('.')
   }
-  if (package_name.startsWith('/')) {
+  if (starts_with(package_name, '/')) {
     return package_name
   }
   var shop = use('internal/shop')
@@ -35,9 +35,9 @@ function get_pkg_dir(package_name) {
 function ensure_dir(path) {
   if (fd.is_dir(path)) return true
 
-  var parts = path.split('/')
-  var current = path.startsWith('/') ? '/' : ''
-  for (var i = 0; i < parts.length; i++) {
+  var parts = array(path, '/')
+  var current = starts_with(path, '/') ? '/' : ''
+  for (var i = 0; i < length(parts); i++) {
     if (parts[i] == '') continue
     current += parts[i] + '/'
     if (!fd.is_dir(current)) {

internal/text.c

@@ -1,306 +0,0 @@
-#include "cell.h"
-#include <string.h>
-#include <stdlib.h>
-
-JSC_CCALL(text_blob_to_hex,
-  size_t blob_len;
-  void *blob_data = js_get_blob_data(js, &blob_len, argv[0]);
-  if (!blob_data) return JS_ThrowTypeError(js, "Expected stone blob");
-  uint8_t *bytes = (uint8_t *)blob_data;
-  size_t hex_len = blob_len * 2;
-  char *hex_str = malloc(hex_len + 1);
-  if (!hex_str) return JS_ThrowOutOfMemory(js);
-  static const char hex_digits[] = "0123456789ABCDEF";
-  for (size_t i = 0; i < blob_len; ++i) {
-    hex_str[i * 2] = hex_digits[(bytes[i] >> 4) & 0xF];
-    hex_str[i * 2 + 1] = hex_digits[bytes[i] & 0xF];
-  }
-  hex_str[hex_len] = '\0';
-  JSValue val = JS_NewString(js, hex_str);
-  free(hex_str);
-  return val;
-)
-
-JSC_CCALL(text_blob_to_base32,
-  size_t blob_len;
-  void *blob_data = js_get_blob_data(js, &blob_len, argv[0]);
-  if (!blob_data) return JS_ThrowTypeError(js, "Expected stone blob");
-  uint8_t *bytes = (uint8_t *)blob_data;
-  static const char b32_digits[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ234567";
-  
-  // Calculate exact output length needed
-  size_t groups = (blob_len + 4) / 5;  // Round up to next group of 5
-  size_t b32_len = groups * 8;
-  char *b32_str = malloc(b32_len + 1);
-  if (!b32_str) return JS_ThrowOutOfMemory(js);
-  
-  size_t in_idx = 0;
-  size_t out_idx = 0;
-  
-  while (in_idx < blob_len) {
-    // Read up to 5 bytes into a 40-bit buffer
-    uint64_t buf = 0;
-    int bytes_to_read = (blob_len - in_idx < 5) ? (blob_len - in_idx) : 5;
-    
-    for (int i = 0; i < bytes_to_read; ++i) {
-      buf = (buf << 8) | bytes[in_idx++];
-    }
-    
-    // Pad buffer to 40 bits if we read fewer than 5 bytes
-    buf <<= 8 * (5 - bytes_to_read);
-    
-    // Extract 8 groups of 5 bits each
-    for (int i = 0; i < 8; ++i) {
-      b32_str[out_idx++] = b32_digits[(buf >> (35 - i * 5)) & 0x1F];
-    }
-  }
-  
-  // Add padding if necessary
-  if (blob_len % 5 != 0) {
-    static const int pad_count[] = {0, 6, 4, 3, 1};  // padding for 0,1,2,3,4 bytes
-    int padding = pad_count[blob_len % 5];
-    for (int i = 0; i < padding; ++i) {
-      b32_str[b32_len - 1 - i] = '=';
-    }
-  }
-  
-  b32_str[b32_len] = '\0';
-  JSValue val = JS_NewString(js, b32_str);
-  free(b32_str);
-  return val;
-)
-
-static int base32_char_to_val(char c) {
-  if (c >= 'A' && c <= 'Z') return c - 'A';
-  if (c >= 'a' && c <= 'z') return c - 'a';
-  if (c >= '2' && c <= '7') return c - '2' + 26;
-  return -1;
-}
-
-JSC_CCALL(text_base32_to_blob,
-  const char *str = JS_ToCString(js, argv[0]);
-  if (!str) return JS_ThrowTypeError(js, "Expected string");
-  size_t str_len = strlen(str);
-  if (str_len == 0) {
-    JS_FreeCString(js, str);
-    return JS_ThrowTypeError(js, "Empty base32 string");
-  }
-  
-  // Remove padding to get effective length
-  size_t effective_len = str_len;
-  while (effective_len > 0 && str[effective_len - 1] == '=') {
-    effective_len--;
-  }
-  
-  // Calculate output length: each group of 8 base32 chars -> 5 bytes
-  size_t output_len = (effective_len * 5) / 8;
-  uint8_t *output = malloc(output_len);
-  if (!output) {
-    JS_FreeCString(js, str);
-    return JS_ThrowOutOfMemory(js);
-  }
-  
-  size_t in_idx = 0;
-  size_t out_idx = 0;
-  
-  // Process in groups of 8 characters (40 bits -> 5 bytes)
-  while (in_idx < effective_len) {
-    uint64_t buf = 0;
-    int chars_to_read = (effective_len - in_idx < 8) ? (effective_len - in_idx) : 8;
-    
-    // Read up to 8 base32 characters into buffer
-    for (int i = 0; i < chars_to_read; ++i) {
-      int val = base32_char_to_val(str[in_idx++]);
-      if (val < 0) {
-        free(output);
-        JS_FreeCString(js, str);
-        return JS_ThrowTypeError(js, "Invalid base32 character");
-      }
-      buf = (buf << 5) | val;
-    }
-    
-    // Calculate how many bytes we can extract
-    int bytes_to_extract = (chars_to_read * 5) / 8;
-    
-    // Shift buffer to align the most significant bits
-    buf <<= (40 - chars_to_read * 5);
-    
-    // Extract bytes from most significant to least significant
-    for (int i = 0; i < bytes_to_extract && out_idx < output_len; ++i) {
-      output[out_idx++] = (buf >> (32 - i * 8)) & 0xFF;
-    }
-  }
-  
-  JSValue val = js_new_blob_stoned_copy(js, output, output_len);
-  free(output);
-  JS_FreeCString(js, str);
-  return val;
-)
-
-static int base64_char_to_val_standard(char c) {
-  if (c >= 'A' && c <= 'Z') return c - 'A';
-  if (c >= 'a' && c <= 'z') return c - 'a' + 26;
-  if (c >= '0' && c <= '9') return c - '0' + 52;
-  if (c == '+') return 62;
-  if (c == '/') return 63;
-  return -1;
-}
-static int base64_char_to_val_url(char c) {
-  if (c >= 'A' && c <= 'Z') return c - 'A';
-  if (c >= 'a' && c <= 'z') return c - 'a' + 26;
-  if (c >= '0' && c <= '9') return c - '0' + 52;
-  if (c == '-') return 62;
-  if (c == '_') return 63;
-  return -1;
-}
-
-/*─── blob → Base64 (standard, with ‘+’ and ‘/’, padded) ───────────────────*/
-JSC_CCALL(text_blob_to_base64,
-  size_t blob_len;
-  void *blob_data = js_get_blob_data(js, &blob_len, argv[0]);
-  if (!blob_data) return JS_ThrowTypeError(js, "Expected stone blob");
-  const uint8_t *bytes = blob_data;
-  static const char b64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
-                            "abcdefghijklmnopqrstuvwxyz"
-                            "0123456789+/";
-  size_t out_len = ((blob_len + 2) / 3) * 4;
-  char *out = malloc(out_len + 1);
-  if (!out) return JS_ThrowOutOfMemory(js);
-
-  size_t in_i = 0, out_i = 0;
-  while (in_i < blob_len) {
-    uint32_t buf = 0;
-    int to_read = (blob_len - in_i < 3 ? blob_len - in_i : 3);
-    for (int j = 0; j < to_read; ++j) {
-      buf = (buf << 8) | bytes[in_i++];
-    }
-    buf <<= 8 * (3 - to_read);
-    out[out_i++] = b64[(buf >> 18) & 0x3F];
-    out[out_i++] = b64[(buf >> 12) & 0x3F];
-    out[out_i++] = (to_read > 1 ? b64[(buf >> 6) & 0x3F] : '=');
-    out[out_i++] = (to_read > 2 ? b64[ buf        & 0x3F] : '=');
-  }
-  out[out_len] = '\0';
-  JSValue v = JS_NewString(js, out);
-  free(out);
-  return v;
-)
-
-/*─── Base64 → blob (standard, expects ‘+’ and ‘/’, pads allowed) ────────────*/
-JSC_CCALL(text_base64_to_blob,
-  const char *str = JS_ToCString(js, argv[0]);
-  if (!str) return JS_ThrowTypeError(js, "Expected string");
-  size_t len = strlen(str);
-  // strip padding for length calculation
-  size_t eff = len;
-  while (eff > 0 && str[eff-1] == '=') eff--;
-  size_t out_len = (eff * 6) / 8;
-  uint8_t *out = malloc(out_len);
-  if (!out) { JS_FreeCString(js, str); return JS_ThrowOutOfMemory(js); }
-
-  size_t in_i = 0, out_i = 0;
-  while (in_i < eff) {
-    uint32_t buf = 0;
-    int to_read = (eff - in_i < 4 ? eff - in_i : 4);
-    for (int j = 0; j < to_read; ++j) {
-      int v = base64_char_to_val_standard(str[in_i++]);
-      if (v < 0) { free(out); JS_FreeCString(js, str);
-                   return JS_ThrowTypeError(js, "Invalid base64 character"); }
-      buf = (buf << 6) | v;
-    }
-    buf <<= 6 * (4 - to_read);
-    int bytes_out = (to_read * 6) / 8;
-    for (int j = 0; j < bytes_out && out_i < out_len; ++j) {
-      out[out_i++] = (buf >> (16 - 8*j)) & 0xFF;
-    }
-  }
-
-  JSValue v = js_new_blob_stoned_copy(js, out, out_len);
-  free(out);
-  JS_FreeCString(js, str);
-  return v;
-)
-
-/*─── blob → Base64URL (no padding, ‘-’ and ‘_’) ─────────────────────────────*/
-JSC_CCALL(text_blob_to_base64url,
-  size_t blob_len;
-  void *blob_data = js_get_blob_data(js, &blob_len, argv[0]);
-  if (!blob_data) return JS_ThrowTypeError(js, "Expected stone blob");
-  const uint8_t *bytes = blob_data;
-  static const char b64url[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
-                               "abcdefghijklmnopqrstuvwxyz"
-                               "0123456789-_";
-  size_t raw_len = ((blob_len + 2) / 3) * 4;
-  // we’ll drop any trailing '='
-  char *out = malloc(raw_len + 1);
-  if (!out) return JS_ThrowOutOfMemory(js);
-
-  size_t in_i = 0, out_i = 0;
-  while (in_i < blob_len) {
-    uint32_t buf = 0;
-    int to_read = (blob_len - in_i < 3 ? blob_len - in_i : 3);
-    for (int j = 0; j < to_read; ++j) {
-      buf = (buf << 8) | bytes[in_i++];
-    }
-    buf <<= 8 * (3 - to_read);
-    out[out_i++] = b64url[(buf >> 18) & 0x3F];
-    out[out_i++] = b64url[(buf >> 12) & 0x3F];
-    if (to_read > 1) out[out_i++] = b64url[(buf >> 6) & 0x3F];
-    if (to_read > 2) out[out_i++] = b64url[ buf        & 0x3F];
-  }
-  out[out_i] = '\0';
-  JSValue v = JS_NewString(js, out);
-  free(out);
-  return v;
-)
-
-/*─── Base64URL → blob (accepts ‘-’ / ‘_’, no padding needed) ─────────────────*/
-JSC_CCALL(text_base64url_to_blob,
-  const char *str = JS_ToCString(js, argv[0]);
-  if (!str) return JS_ThrowTypeError(js, "Expected string");
-  size_t len = strlen(str);
-  size_t eff = len;  // no '=' in URL‐safe, but strip if present
-  while (eff > 0 && str[eff-1] == '=') eff--;
-  size_t out_len = (eff * 6) / 8;
-  uint8_t *out = malloc(out_len);
-  if (!out) { JS_FreeCString(js, str); return JS_ThrowOutOfMemory(js); }
-
-  size_t in_i = 0, out_i = 0;
-  while (in_i < eff) {
-    uint32_t buf = 0;
-    int to_read = (eff - in_i < 4 ? eff - in_i : 4);
-    for (int j = 0; j < to_read; ++j) {
-      int v = base64_char_to_val_url(str[in_i++]);
-      if (v < 0) { free(out); JS_FreeCString(js, str);
-                   return JS_ThrowTypeError(js, "Invalid base64url character"); }
-      buf = (buf << 6) | v;
-    }
-    buf <<= 6 * (4 - to_read);
-    int bytes_out = (to_read * 6) / 8;
-    for (int j = 0; j < bytes_out && out_i < out_len; ++j) {
-      out[out_i++] = (buf >> (16 - 8*j)) & 0xFF;
-    }
-  }
-
-  JSValue v = js_new_blob_stoned_copy(js, out, out_len);
-  free(out);
-  JS_FreeCString(js, str);
-  return v;
-)
-
-static const JSCFunctionListEntry js_text_funcs[] = {
-  MIST_FUNC_DEF(text, blob_to_hex, 1),
-  MIST_FUNC_DEF(text, blob_to_base32, 1),
-  MIST_FUNC_DEF(text, base32_to_blob, 1),
-  MIST_FUNC_DEF(text, blob_to_base64,      1),
-  MIST_FUNC_DEF(text, base64_to_blob,      1),
-  MIST_FUNC_DEF(text, blob_to_base64url,   1),
-  MIST_FUNC_DEF(text, base64url_to_blob,   1),
-};
-
-JSValue js_internal_text_use(JSContext *js)
-{
-  JSValue mod = JS_NewObject(js);
-  JS_SetPropertyFunctionList(js, mod, js_text_funcs, countof(js_text_funcs));
-  return mod;
-}

internal/text.cm

@@ -1,602 +0,0 @@
-/* text.cm - text conversion and formatting utilities */
-var blob = use('blob')
-var utf8 = use('utf8')
-
-var _toLowerCase = String.prototype.toLowerCase
-var _toUpperCase = String.prototype.toUpperCase
-var _trim = String.prototype.trim
-var _indexOf = String.prototype.indexOf
-var _lastIndexOf = String.prototype.lastIndexOf
-var _replace = String.prototype.replace
-var _normalize = String.prototype.normalize
-var _substring = String.prototype.substring
-var _charCodeAt = String.prototype.charCodeAt
-var _codePointAt = String.prototype.codePointAt
-
-var _String = String
-
-var that = this
-
-// Convert number to string with given radix
-function to_radix(num, radix) {
-  if (radix < 2 || radix > 36) return null;
-  
-  var digits = "0123456789abcdefghijklmnopqrstuvwxyz";
-  var result = "";
-  var n = number.whole(num);
-  var negative = n < 0;
-  n = number.abs(n);
-  
-  if (n == 0) return "0";
-  
-  while (n > 0) {
-    result = digits[n % radix] + result;
-    n = number.floor(n / radix);
-  }
-  
-  return negative ? "-" + result : result;
-}
-
-// Insert separator every n digits from right
-function add_separator(str, sep, n) {
-  if (!n || n == 0) return str;
-  
-  var negative = str[0] == '-';
-  if (negative) str = str.substring(1);
-  
-  var parts = str.split('.');
-  var integer = parts[0];
-  var decimal = parts[1] || '';
-  
-  // Add separators to integer part
-  var result = "";
-  for (var i = integer.length - 1, count = 0; i >= 0; i--) {
-    if (count == n && i != integer.length - 1) {
-      result = sep + result;
-      count = 0;
-    }
-    result = integer[i] + result;
-    count++;
-  }
-  
-  if (decimal) result += '.' + decimal;
-  return negative ? '-' + result : result;
-}
-
-// Format number with separator from left
-function add_separator_left(str, sep, n) {
-  if (!n || n == 0) return str;
-  
-  var negative = str[0] == '-';
-  if (negative) str = str.substring(1);
-  
-  var result = "";
-  for (var i = 0, count = 0; i < str.length; i++) {
-    if (count == n && i != 0) {
-      result += sep;
-      count = 0;
-    }
-    result += str[i];
-    count++;
-  }
-  
-  return negative ? '-' + result : result;
-}
-
-/* -------- main text function --------------------------------------- */
-
-function text(...arguments) {
-  var arg = arguments[0];
-  
-  // Handle blob conversion
-  if (arg instanceof blob) {
-    if (!stone.p(arg))
-      throw new Error("text: blob must be stone for reading");
-    
-    var format = arguments[1];
-    var bit_length = arg.length;
-    var result = "";
-    
-    if (typeof format == 'string') {
-      // Extract style from format
-      var style = '';
-      for (var i = 0; i < format.length; i++) {
-        if ((format[i] >= 'a' && format[i] <= 'z') || (format[i] >= 'A' && format[i] <= 'Z')) {
-          style = format[i];
-          break;
-        }
-      }
-      
-      // Handle blob encoding styles
-      switch (style) {
-        case 'h': // hexadecimal
-          return that.blob_to_hex(arg);
-          
-        case 't': // base32
-          return that.blob_to_base32(arg);
-          
-        case 'b': // binary
-          for (var i = 0; i < bit_length; i++) {
-            result += arg.read_logical(i) ? '1' : '0';
-          }
-          return result;
-          
-        case 'o': // octal
-          var bits = 0;
-          var value = 0;
-          
-          for (var i = 0; i < bit_length; i++) {
-            var bit = arg.read_logical(i);
-            value = (value << 1) | (bit ? 1 : 0);
-            bits++;
-            
-            if (bits == 3) {
-              result += value.toString();
-              bits = 0;
-              value = 0;
-            }
-          }
-          
-          // Handle remaining bits
-          if (bits > 0) {
-            value = value << (3 - bits);
-            result += value.toString();
-          }
-          
-          return result;
-      }
-    }
-    
-    // Default: interpret as UTF-8 text
-    // Use the utf8 module to decode the blob
-    if (arg.length == 0) return ""
-    return utf8.decode(arg);
-  }
-  
-  // Handle array conversion
-  if (isa(arg, array)) {
-    var separator = arguments[1] || "";
-    
-    // Check if all items are valid codepoints
-    var all_codepoints = true;
-    for (var i = 0; i < arg.length; i++) {
-      var item = arg[i];
-      if (!(typeof item == 'number' && item >= 0 && item <= 0x10FFFF && item == number.floor(item))) {
-        all_codepoints = false;
-        break;
-      }
-    }
-    
-    if (all_codepoints && separator == "") {
-      // Use utf8 module to convert codepoints to string
-      return utf8.from_codepoints(arg);
-    } else {
-      // General array to string conversion
-      var result = "";
-      for (var i = 0; i < arg.length; i++) {
-        if (i > 0) result += separator;
-        
-        var item = arg[i];
-        if (typeof item == 'number' && item >= 0 && item <= 0x10FFFF && item == number.floor(item)) {
-          // Single codepoint - use utf8 module
-          result += utf8.from_codepoints([item]);
-        } else {
-          result += String(item);
-        }
-      }
-      return result;
-    }
-  }
-  
-  // Handle number conversion
-  if (typeof arg == 'number') {
-    var format = arguments[1];
-    
-    // Simple radix conversion
-    if (typeof format == 'number') {
-      return to_radix(arg, format);
-    }
-    
-    // Format string conversion
-    if (typeof format == 'string') {
-      return format_number(arg, format);
-    }
-    
-    // Default conversion
-    return _String(arg);
-  }
-  
-  // Handle text operations
-  if (typeof arg == 'string') {
-    if (arguments.length == 1) return arg;
-    
-    var from = arguments[1];
-    var to = arguments[2];
-    
-    if (typeof from != 'number' || typeof to != 'number') return arg;
-    
-    var len = arg.length;
-    
-    // Adjust negative indices
-    if (from < 0) from += len;
-    if (to < 0) to += len;
-    
-    // Default values
-    if (from == null) from = 0;
-    if (to == null) to = len;
-    
-    // Validate range
-    if (from < 0 || from > to || to > len) return null;
-    
-    return arg.substring(from, to);
-  }
-  
-  return null;
-}
-
-/* -------- number formatting ---------------------------------------- */
-
-function format_number(num, format) {
-  // Parse format string
-  var separation = 0;
-  var style = '';
-  var places = 0;
-  
-  var i = 0;
-  
-  // Parse separation digit
-  if (i < format.length && format[i] >= '0' && format[i] <= '9') {
-    separation = number(format[i]);
-    i++;
-  }
-  
-  // Parse style letter
-  if (i < format.length) {
-    style = format[i];
-    i++;
-  } else {
-    return null;
-  }
-  
-  // Parse places digits
-  if (i < format.length && format[i] >= '0' && format[i] <= '9') {
-    places = number(format[i]);
-    i++;
-    if (i < format.length && format[i] >= '0' && format[i] <= '9') {
-      places = places * 10 + number(format[i]);
-      i++;
-    }
-  }
-  
-  // Invalid format if there's more
-  if (i < format.length) return null;
-  
-  // Real number styles
-  if (style == 'e' || style == 'n' || style == 's' || 
-      style == 'u' || style == 'd' || style == 'v' || style == 'l') {
-    
-    var decimal_point = '.';
-    var separator = '';
-    var default_separation = 0;
-    var default_places = 0;
-    
-    switch (style) {
-      case 'e': // exponential
-        decimal_point = '.';
-        separator = '';
-        default_separation = 0;
-        default_places = 0;
-        break;
-      case 'n': // number
-        decimal_point = '.';
-        separator = '';
-        default_separation = 0;
-        default_places = 0;
-        break;
-      case 's': // space
-        decimal_point = '.';
-        separator = ' ';
-        default_separation = 3;
-        default_places = 0;
-        break;
-      case 'u': // underbar
-        decimal_point = '.';
-        separator = '_';
-        default_separation = 0;
-        default_places = 0;
-        break;
-      case 'd': // decimal
-        decimal_point = '.';
-        separator = ',';
-        default_separation = 3;
-        default_places = 2;
-        break;
-      case 'v': // comma (European style)
-        decimal_point = ',';
-        separator = '.';
-        default_separation = 0;
-        default_places = 0;
-        break;
-      case 'l': // locale (default to 'd' style for now)
-        decimal_point = '.';
-        separator = ',';
-        default_separation = 3;
-        default_places = 2;
-        break;
-    }
-    
-    if (separation == 0) separation = default_separation;
-    if (places == 0 && style != 'e' && style != 'n') places = default_places;
-    
-    // Format the number
-    if (style == 'e') {
-      // Scientific notation
-      var str = places > 0 ? num.toExponential(places) : num.toExponential();
-      return str;
-    } else if (style == 'n' && (number.abs(num) >= 1e21 || (number.abs(num) < 1e-6 && num != 0))) {
-      // Use scientific notation for extreme values
-      return num.toExponential();
-    } else {
-      // Regular decimal formatting
-      var str;
-      if (places > 0) {
-        str = num.toFixed(places);
-      } else {
-        str = num.toString();
-      }
-      
-      // Replace decimal point if needed
-      if (decimal_point != '.') {
-        str = str.replace('.', decimal_point);
-      }
-      
-      // Add separators
-      if (separation > 0 && separator) {
-        str = add_separator(str, separator, separation);
-      }
-      
-      return str;
-    }
-  }
-  
-  // Integer styles
-  if (style == 'i' || style == 'b' || style == 'o' || 
-      style == 'h' || style == 't') {
-    
-    var radix = 10;
-    var default_separation = 0;
-    var default_places = 1;
-    
-    switch (style) {
-      case 'i': // integer
-        radix = 10;
-        default_separation = 0;
-        default_places = 1;
-        break;
-      case 'b': // binary
-        radix = 2;
-        default_separation = 0;
-        default_places = 1;
-        break;
-      case 'o': // octal
-        radix = 8;
-        default_separation = 0;
-        default_places = 1;
-        break;
-      case 'h': // hexadecimal
-        radix = 16;
-        default_separation = 0;
-        default_places = 1;
-        break;
-      case 't': // base32
-        radix = 32;
-        default_separation = 0;
-        default_places = 1;
-        break;
-    } 
-    
-    if (separation == 0) separation = default_separation;
-    if (places == 0) places = default_places;
-    
-    // Convert to integer
-    var n = number.whole(num);
-    var str = to_radix(n, radix).toUpperCase();
-    
-    // Pad with zeros if needed
-    var negative = str[0] == '-';
-    if (negative) str = str.substring(1);
-    
-    while (str.length < places) {
-      str = '0' + str;
-    }
-    
-    // Add separators
-    if (separation > 0) {
-      str = add_separator_left(str, '_', separation);
-    }
-    
-    return negative ? '-' + str : str;
-  }
-  
-  return null;
-}
-
-/* -------- text sub-functions --------------------------------------- */
-
-text.lower = function(str) {
-  if (typeof str != 'string') return null
-  return _toLowerCase.call(str)
-}
-
-text.upper = function(str) {
-  if (typeof str != 'string') return null
-  return _toUpperCase.call(str)
-}
-
-text.trim = function(str, reject) {
-  if (typeof str != 'string') return null
-  if (reject == null) return _trim.call(str)
-  
-  // Custom trim with reject characters
-  var start = 0
-  var end = str.length
-  
-  while (start < end && reject.indexOf(str[start]) >= 0) start++
-  while (end > start && reject.indexOf(str[end - 1]) >= 0) end--
-  
-  return _substring.call(str, start, end)
-}
-
-text.normalize = function(str) {
-  if (typeof str != 'string') return null
-  return _normalize.call(str, 'NFC')
-}
-
-text.codepoint = function(str) {
-  if (typeof str != 'string' || str.length == 0) return null
-  return _codePointAt.call(str, 0)
-}
-
-text.search = function(str, target, from) {
-  if (typeof str != 'string') return null
-  if (typeof target != 'string') return null
-  
-  if (from == null) from = 0
-  if (from < 0) from += str.length
-  if (from < 0) from = 0
-  
-  var result = _indexOf.call(str, target, from)
-  if (result == -1) return null
-  return result
-}
-
-text.replace = function(str, target, replacement, limit) {
-  if (typeof str != 'string') return null
-  if (typeof target != 'string') return null
-  
-  if (limit == null) {
-    // Replace all
-    var result = str
-    var pos = 0
-    while (true) {
-      var idx = _indexOf.call(result, target, pos)
-      if (idx == -1) break
-      
-      var rep = replacement
-      if (typeof replacement == 'function') {
-        rep = replacement(target, idx)
-        if (rep == null) {
-          pos = idx + target.length
-          continue
-        }
-      }
-      
-      result = _substring.call(result, 0, idx) + rep + _substring.call(result, idx + target.length)
-      pos = idx + rep.length
-    }
-    return result
-  }
-  
-  // Replace with limit
-  var result = str
-  var pos = 0
-  var count = 0
-  
-  while (count < limit) {
-    var idx = _indexOf.call(result, target, pos)
-    if (idx == -1) break
-    
-    var rep = replacement
-    if (typeof replacement == 'function') {
-      rep = replacement(target, idx)
-      if (rep == null) {
-        pos = idx + target.length
-        count++
-        continue
-      }
-    }
-    
-    result = _substring.call(result, 0, idx) + rep + _substring.call(result, idx + target.length)
-    pos = idx + rep.length
-    count++
-  }
-  
-  return result
-}
-
-text.format = function(str, collection, transformer) {
-  if (typeof str != 'string') return null
-  
-  var result = ""
-  var i = 0
-  
-  while (i < str.length) {
-    if (str[i] == '{') {
-      var end = _indexOf.call(str, '}', i)
-      if (end == -1) {
-        result += str[i]
-        i++
-        continue
-      }
-      
-      var middle = _substring.call(str, i + 1, end)
-      var colonIdx = _indexOf.call(middle, ':')
-      var key = colonIdx >= 0 ? _substring.call(middle, 0, colonIdx) : middle
-      var formatSpec = colonIdx >= 0 ? _substring.call(middle, colonIdx + 1) : ""
-      
-      var value = null
-      if (isa(collection, array)) {
-        var idx = number(key)
-        if (!isNaN(idx) && idx >= 0 && idx < collection.length) {
-          value = collection[idx]
-        }
-      } else if (isa(collection, object)) {
-        value = collection[key]
-      }
-      
-      var substitution = null
-      
-      if (transformer != null) {
-        if (typeof transformer == 'function') {
-          substitution = transformer(value, formatSpec)
-        } else if (typeof transformer == 'object') {
-          var fn = transformer[formatSpec]
-          if (typeof fn == 'function') {
-            substitution = fn(value)
-          }
-        }
-      }
-      
-      if (substitution == null && typeof value == 'number' && formatSpec) {
-        // Try number formatting
-        substitution = String(value) // simplified
-      }
-      
-      if (substitution == null && value != null) {
-        substitution = String(value)
-      }
-      
-      if (substitution != null) {
-        result += substitution
-      } else {
-        result += _substring.call(str, i, end + 1)
-      }
-      
-      i = end + 1
-    } else {
-      result += str[i]
-      i++
-    }
-  }
-  
-  return result
-}
-
-text.extract = function(str, pattern, from, to) {
-  // Simplified pattern matching - returns null for now
-  // Full implementation would require regex or custom pattern language
-  if (typeof str != 'string') return null
-  return null
-}
-
-return text

link.ce

@@ -17,7 +17,7 @@ var shop = use('internal/shop')
 var fd = use('fd')
 var toml = use('toml')
 
-if (args.length < 1) {
+if (length(args) < 1) {
   log.console("Usage: link <command> [args] or link [package] <target>")
   log.console("Commands:")
   log.console("  list                 List all active links")
@@ -35,25 +35,25 @@ var cmd = args[0]
 if (cmd == 'list') {
   var links = link.load()
   var count = 0
-  for (var k in links) {
+  arrfor(array(links), function(k) {
     log.console(k + " -> " + links[k])
     count++
-  }
+  })
   if (count == 0) log.console("No links.")
   
 } else if (cmd == 'sync') {
   log.console("Syncing links...")
   var result = link.sync_all(shop)
   log.console("Synced " + result.synced + " link(s)")
-  if (result.errors.length > 0) {
+  if (length(result.errors) > 0) {
     log.console("Errors:")
-    for (var i = 0; i < result.errors.length; i++) {
+    for (var i = 0; i < length(result.errors); i++) {
       log.console("  " + result.errors[i])
     }
   }
   
 } else if (cmd == 'delete' || cmd == 'rm') {
-  if (args.length < 2) {
+  if (length(args) < 2) {
     log.console("Usage: link delete <package>")
     $stop()
     return
@@ -92,7 +92,7 @@ if (cmd == 'list') {
   }
   
   var arg1 = args[start_idx]
-  var arg2 = (args.length > start_idx + 1) ? args[start_idx + 1] : null
+  var arg2 = (length(args) > start_idx + 1) ? args[start_idx + 1] : null
   
   if (!arg1) {
     log.console("Error: target or package required")
@@ -108,13 +108,13 @@ if (cmd == 'list') {
     // Resolve target if it's a local path
     if (target == '.' || fd.is_dir(target)) {
       target = fd.realpath(target)
-    } else if (target.startsWith('./') || target.startsWith('../')) {
+    } else if (starts_with(target, './') || starts_with(target, '../')) {
       // Relative path that doesn't exist yet - try to resolve anyway
       var cwd = fd.realpath('.')
-      if (target.startsWith('./')) {
-        target = cwd + target.substring(1)
+      if (starts_with(target, './')) {
+        target = cwd + text(target, 1)
       } else {
-        // For ../ paths, let fd.realpath handle it if possible
+        // For ../ paths, var fd.realpath handle it if possible
         target = fd.realpath(target) || target
       }
     }
@@ -127,7 +127,7 @@ if (cmd == 'list') {
     // Resolve path
     if (target == '.' || fd.is_dir(target)) {
       target = fd.realpath(target)
-    } else if (target.startsWith('./') || target.startsWith('../')) {
+    } else if (starts_with(target, './') || starts_with(target, '../')) {
       target = fd.realpath(target) || target
     }
     
@@ -158,7 +158,7 @@ if (cmd == 'list') {
   }
   
   // Validate: if target is a local path, it must have cell.toml
-  if (target.startsWith('/')) {
+  if (starts_with(target, '/')) {
     if (!fd.is_file(target + '/cell.toml')) {
       log.console("Error: " + target + " is not a valid package (no cell.toml)")
       $stop()
@@ -171,6 +171,7 @@ if (cmd == 'list') {
     link.add(pkg_name, target, shop)
   } catch (e) {
     log.console("Error: " + e.message)
+    log.error(e)
     $stop()
     return
   }

link.cm

@@ -3,7 +3,7 @@
 
 var toml = use('toml')
 var fd = use('fd')
-var utf8 = use('utf8')
+var blob = use('blob')
 var os = use('os')
 
 var global_shop_path = os.global_shop_path
@@ -21,9 +21,9 @@ function get_packages_dir() {
 // return the safe path for the package
 function safe_package_path(pkg) {
   // For absolute paths, replace / with _ to create a valid directory name
-  if (pkg && pkg.startsWith('/'))
-    return pkg.replaceAll('/', '_').replaceAll('@', '_')
-  return pkg.replaceAll('@', '_')
+  if (pkg && starts_with(pkg, '/'))
+    return replace(replace(pkg, '/', '_'), '@', '_')
+  return replace(pkg, '@', '_')
 }
 
 function get_package_abs_dir(package) {
@@ -32,9 +32,9 @@ function get_package_abs_dir(package) {
 
 function ensure_dir(path) {
   if (fd.stat(path).isDirectory) return
-  var parts = path.split('/')
-  var current = path.startsWith('/') ? '/' : ''
-  for (var i = 0; i < parts.length; i++) {
+  var parts = array(path, '/')
+  var current = starts_with(path, '/') ? '/' : ''
+  for (var i = 0; i < length(parts); i++) {
     if (parts[i] == '') continue
     current += parts[i] + '/'
     if (!fd.stat(current).isDirectory) {
@@ -47,7 +47,7 @@ function ensure_dir(path) {
 // If target is a local path (starts with /), return it directly
 // If target is a package name, return the package directory
 function resolve_link_target(target) {
-  if (target.startsWith('/')) {
+  if (starts_with(target, '/')) {
     return target
   }
   // Target is another package - resolve to its directory
@@ -81,21 +81,23 @@ Link.save = function(links) {
   link_cache = links
   var cfg = { links: links }
   var path = get_links_path()
-  fd.slurpwrite(path, utf8.encode(toml.encode(cfg)))
+  var b = blob(toml.encode(cfg))
+  stone(b)
+  fd.slurpwrite(path, b)
 }
 
 Link.add = function(canonical, target, shop) {
   // Validate canonical package exists in shop
   var lock = shop.load_lock()
   if (!lock[canonical]) {
-    throw new Error('Package ' + canonical + ' is not installed. Install it first with: cell get ' + canonical)
+    throw Error('Package ' + canonical + ' is not installed. Install it first with: cell get ' + canonical)
   }
 
   // Validate target is a valid package
-  if (target.startsWith('/')) {
+  if (starts_with(target, '/')) {
     // Local path - must have cell.toml
     if (!fd.is_file(target + '/cell.toml')) {
-      throw new Error('Target ' + target + ' is not a valid package (no cell.toml)')
+      throw Error('Target ' + target + ' is not a valid package (no cell.toml)')
     }
   } else {
     // Remote package target - ensure it's installed
@@ -109,6 +111,37 @@ Link.add = function(canonical, target, shop) {
   // Create the symlink immediately
   Link.sync_one(canonical, target, shop)
 
+  // Install dependencies of the linked package
+  // Read the target's cell.toml to find its dependencies
+  var target_path = starts_with(target, '/') ? target : get_package_abs_dir(target)
+  var toml_path = target_path + '/cell.toml'
+  if (fd.is_file(toml_path)) {
+    try {
+      var content = text(fd.slurp(toml_path))
+      var cfg = toml.decode(content)
+      if (cfg.dependencies) {
+        arrfor(array(cfg.dependencies), function(alias) {
+          var dep_locator = cfg.dependencies[alias]
+          // Skip local dependencies that don't exist
+          if (starts_with(dep_locator, '/') && !fd.is_dir(dep_locator)) {
+            log.console("  Skipping missing local dependency: " + dep_locator)
+            return
+          }
+          // Install the dependency if not already in shop
+          try {
+            shop.get(dep_locator)
+            shop.extract(dep_locator)
+          } catch (e) {
+            log.console(`  Warning: Could not install dependency ${dep_locator}: ${e.message}`)
+            log.error(e)
+          }
+        })
+      }
+    } catch (e) {
+      log.console(`  Warning: Could not read dependencies from ${toml_path}`)
+    }
+  }
+
   log.console("Linked " + canonical + " -> " + target)
   return true
 }
@@ -133,12 +166,12 @@ Link.remove = function(canonical) {
 Link.clear = function() {
   // Remove all symlinks first
   var links = Link.load()
-  for (var canonical in links) {
+  arrfor(array(links), function(canonical) {
     var target_dir = get_package_abs_dir(canonical)
     if (fd.is_link(target_dir)) {
       fd.unlink(target_dir)
     }
-  }
+  })
   
   Link.save({})
   log.console("Cleared all links")
@@ -151,7 +184,7 @@ Link.sync_one = function(canonical, target, shop) {
   var link_target = resolve_link_target(target)
 
   // Ensure parent directories exist
-  var parent = target_dir.substring(0, target_dir.lastIndexOf('/'))
+  var parent = fd.dirname(target_dir)
   ensure_dir(parent)
   
   // Check current state
@@ -177,32 +210,58 @@ Link.sync_one = function(canonical, target, shop) {
   return true
 }
 
-// Sync all links - ensure all symlinks are in place
+// Sync all links - ensure all symlinks are in place and dependencies are installed
 Link.sync_all = function(shop) {
   var links = Link.load()
   var count = 0
   var errors = []
 
-  for (var canonical in links) {
+  arrfor(array(links), function(canonical) {
     var target = links[canonical]
     try {
       // Validate target exists
       var link_target = resolve_link_target(target)
       if (!fd.is_dir(link_target)) {
-        errors.push(canonical + ': target ' + link_target + ' does not exist')
-        continue
+        push(errors, canonical + ': target ' + link_target + ' does not exist')
+        return
       }
       if (!fd.is_file(link_target + '/cell.toml')) {
-        errors.push(canonical + ': target ' + link_target + ' is not a valid package')
-        continue
+        push(errors, canonical + ': target ' + link_target + ' is not a valid package')
+        return
       }
 
       Link.sync_one(canonical, target, shop)
+
+      // Install dependencies of the linked package
+      var toml_path = link_target + '/cell.toml'
+      try {
+        var content = text(fd.slurp(toml_path))
+        var cfg = toml.decode(content)
+        if (cfg.dependencies) {
+          arrfor(array(cfg.dependencies), function(alias) {
+            var dep_locator = cfg.dependencies[alias]
+            // Skip local dependencies that don't exist
+            if (starts_with(dep_locator, '/') && !fd.is_dir(dep_locator)) {
+              return
+            }
+            // Install the dependency if not already in shop
+            try {
+              shop.get(dep_locator)
+              shop.extract(dep_locator)
+            } catch (e) {
+              // Silently continue - dependency may already be installed
+            }
+          })
+        }
+      } catch (e) {
+        // Could not read dependencies - continue anyway
+      }
+
       count++
     } catch (e) {
-      errors.push(canonical + ': ' + e.message)
-    }
+      push(errors, canonical + ': ' + e.message)
     }
+  })
 
   return { synced: count, errors: errors }
 }
@@ -219,4 +278,15 @@ Link.get_target = function(canonical) {
   return links[canonical] || null
 }
 
+// Get the canonical package name that links to this target (reverse lookup)
+// Returns null if no package links to this target
+Link.get_origin = function(target) {
+  var links = Link.load()
+  var found = null
+  arrfor(array(links), function(origin) {
+    if (links[origin] == target) found = origin
+  })
+  return found
+}
+
 return Link

list.ce

@@ -1,84 +1,168 @@
-// list installed packages
-// cell list -> list packages installed in this package
-// cell list all -> list all packages (including those that are there due to installed packages)
-// cell list package <name> -> list the packages for the package <name>
+// cell list [<scope>] - List packages and dependencies
+//
+// Usage:
+//   cell list              List dependencies of current package
+//   cell list shop         List all packages in shop with status
+//   cell list <locator>    List dependency tree for a package
 
 var shop = use('internal/shop')
 var pkg = use('package')
+var link = use('link')
+var fd = use('fd')
 
 var mode = 'local'
 var target_pkg = null
 
-if (args && args.length > 0) {
-    if (args[0] == 'all') {
-        mode = 'all'
-    } else if (args[0] == 'shop') {
+if (args && length(args) > 0) {
+  if (args[0] == 'shop') {
     mode = 'shop'
-    } else if (args[0] == 'package') {
-        if (args.length < 2) {
-            log.console("Usage: cell list package <name>")
+  } else if (args[0] == '--help' || args[0] == '-h') {
+    log.console("Usage: cell list [<scope>]")
+    log.console("")
+    log.console("List packages and dependencies.")
+    log.console("")
+    log.console("Scopes:")
+    log.console("  (none)     List dependencies of current package")
+    log.console("  shop       List all packages in shop with status")
+    log.console("  <locator>  List dependency tree for a package")
     $stop()
+  } else {
+    mode = 'package'
+    target_pkg = args[0]
+
+    // Resolve local paths
+    if (target_pkg == '.' || starts_with(target_pkg, './') || starts_with(target_pkg, '../') || fd.is_dir(target_pkg)) {
+      var resolved = fd.realpath(target_pkg)
+      if (resolved) {
+        target_pkg = resolved
+      }
+    }
+  }
+}
+
+var links = link.load()
+var lock = shop.load_lock()
+
+function print_deps(ctx, indent) {
+  indent = indent || ""
+  var deps
+  try {
+    deps = pkg.dependencies(ctx)
+  } catch (e) {
+    log.console(indent + "  (could not read dependencies)")
     return
   }
-        mode = 'package'
-        target_pkg = args[1]
-    } else {
-        log.console("Usage:")
-        log.console("  cell list             : list local packages")
-        log.console("  cell list all         : list all recursive packages")
-        log.console("  cell list package <name>: list dependencies of <name>")
-        log.console("  cell list shop        : list all packages in shop")
-        $stop()
+
+  if (!deps) {
+    log.console(indent + "  (none)")
     return
   }
+
+  var aliases = array(deps)
+  aliases = sort(aliases)
+
+  if (length(aliases) == 0) {
+    log.console(indent + "  (none)")
+    return
+  }
+
+  for (var i = 0; i < length(aliases); i++) {
+    var alias = aliases[i]
+    var locator = deps[alias]
+    var link_target = links[locator]
+    var lock_entry = lock[locator]
+
+    var line = indent + "  " + alias
+    if (alias != locator) {
+      line += " -> " + locator
+    }
+
+    // Add status indicators
+    var status = []
+    if (link_target) {
+      push(status, "linked -> " + link_target)
+    }
+    if (lock_entry && lock_entry.commit) {
+      push(status, "@" + text(lock_entry.commit, 0, 8))
+    }
+    if (lock_entry && lock_entry.type == 'local') {
+      push(status, "local")
+    }
+    if (!lock_entry) {
+      push(status, "not installed")
+    }
+
+    if (length(status) > 0) {
+      line += " [" + text(status, ", ") + "]"
+    }
+
+    log.console(line)
+  }
 }
 
 if (mode == 'local') {
-    log.console("Installed Packages (Local):")
+  log.console("Dependencies:")
   print_deps(null)
 } else if (mode == 'package') {
-    // Resolve alias to canonical package path
-    var canon = shop.get_canonical_package(target_pkg, null)
-    if (!canon) {
-        log.console("Package '" + target_pkg + "' not found in local dependencies.")
-    } else {
-        log.console("Dependencies for " + target_pkg + " (" + canon + "):")
-        print_deps(canon)
-    }
-} else if (mode == 'all') {
-    log.console("All Packages:")
-    var all = shop.list_packages(null)
-    // list_packages returns an array of package strings (locators)
-    // We want to perhaps sort them
-    all.sort()
-    for (var i = 0; i < all.length; i++) {
-        log.console("  " + all[i])
-    }
-    if (all.length == 0) log.console("  (none)")
+  log.console("Dependencies for " + target_pkg + ":")
+  print_deps(target_pkg)
 } else if (mode == 'shop') {
-    log.console("Shop Packages:")
-    var all = shop.list_packages()
+  log.console("Shop packages:")
+  log.console("")
 
-    if (all.length == 0)
-        log.console("  (none)")
-    else
-        all.forEach(package => log.console("  " + package))
-}
-
-function print_deps(ctx) {
-    var deps = pkg.dependencies(ctx)
-    var aliases = []
-    for (var k in deps) aliases.push(k)
-    aliases.sort()
-
-    if (aliases.length == 0) {
+  var packages = shop.list_packages()
+  if (length(packages) == 0) {
     log.console("  (none)")
   } else {
-        for (var i = 0; i < aliases.length; i++) {
-            var alias = aliases[i]
-            var locator = deps[alias]
-            log.console("  " + alias + " -> " + locator)
+    packages = sort(packages)
+
+    // Group by type
+    var local_pkgs = []
+    var linked_pkgs = []
+    var remote_pkgs = []
+
+    arrfor(packages, function(p) {
+      if (p == 'core') return
+      var lock_entry = lock[p]
+      var link_target = links[p]
+
+      if (link_target) {
+        push(linked_pkgs, p)
+      } else if (lock_entry && lock_entry.type == 'local') {
+        push(local_pkgs, p)
+      } else {
+        push(remote_pkgs, p)
       }
+    })
+
+    if (length(linked_pkgs) > 0) {
+      log.console("Linked packages:")
+      arrfor(linked_pkgs, function(p) {
+        var target = links[p]
+        log.console("  " + p + " -> " + target)
+      })
+      log.console("")
+    }
+
+    if (length(local_pkgs) > 0) {
+      log.console("Local packages:")
+      arrfor(local_pkgs, function(p) {
+        log.console("  " + p)
+      })
+      log.console("")
+    }
+
+    if (length(remote_pkgs) > 0) {
+      log.console("Remote packages:")
+      arrfor(remote_pkgs, function(p) {
+        var lock_entry = lock[p]
+        var commit = lock_entry && lock_entry.commit ? " @" + text(lock_entry.commit, 0, 8) : ""
+        log.console("  " + p + commit)
+      })
+      log.console("")
+    }
+
+    log.console("Total: " + text(length(packages)) + " package(s)")
   }
 }
 

ls.ce

@@ -11,22 +11,22 @@ var modules = package.list_modules(pkg)
 var programs = package.list_programs(pkg)
 
 log.console("Modules in " + pkg + ":")
-modules.sort()
-if (modules.length == 0) {
+modules = sort(modules)
+if (length(modules) == 0) {
   log.console("  (none)")
 } else {
-  for (var i = 0; i < modules.length; i++) {
+  for (var i = 0; i < length(modules); i++) {
       log.console("  " + modules[i])
   }
 }
 
 log.console("")
 log.console("Programs in " + pkg + ":")
-programs.sort()
-if (programs.length == 0) {
+programs = sort(programs)
+if (length(programs) == 0) {
   log.console("  (none)")
 } else {
-  for (var i = 0; i < programs.length; i++) {
+  for (var i = 0; i < length(programs); i++) {
       log.console("  " + programs[i])
   }
 }

math/cycles.cm

@@ -1,18 +0,0 @@
-var cycles = {}
-var Math_obj = Math
-
-cycles.arc_cosine = function(x) { return Math_obj.acos(x) / (2 * pi) }
-cycles.arc_sine = function(x) { return Math_obj.asin(x) / (2 * pi) }
-cycles.arc_tangent = function(x) { return Math_obj.atan(x) / (2 * pi) }
-cycles.cosine = function(x) { return Math_obj.cos(x * 2 * pi) }
-cycles.e = Math_obj.E
-cycles.ln = function(x) { return Math_obj.log(x) }
-cycles.log = function(x) { return Math_obj.log10(x) }
-cycles.log2 = function(x) { return Math_obj.log2(x) }
-cycles.power = function(x, y) { return Math_obj.pow(x, y) }
-cycles.root = function(x, y) { return Math_obj.pow(x, 1 / y) }
-cycles.sine = function(x) { return Math_obj.sin(x * 2 * pi) }
-cycles.sqrt = function(x) { return Math_obj.sqrt(x) }
-cycles.tangent = function(x) { return Math_obj.tan(x * 2 * pi) }
-
-return cycles

math/degrees.cm

@@ -1,21 +0,0 @@
-var degrees = {}
-var Math_obj = Math
-
-var deg2rad = pi / 180
-var rad2deg = 180 / pi
-
-return {
-  arc_cosine: function(x) { return Math_obj.acos(x) * rad2deg },
-  arc_sine: function(x) { return Math_obj.asin(x) * rad2deg },
-  arc_tangent: function(x) { return Math_obj.atan(x) * rad2deg },
-  cosine: function(x) { return Math_obj.cos(x * deg2rad) },
-  e: Math_obj.E,
-  ln: function(x) { return Math_obj.log(x) },
-  log: function(x) { return Math_obj.log10(x) },
-  log2: function(x) { return Math_obj.log2(x) },
-  power: function(x, y) { return Math_obj.pow(x, y) },
-  root: function(x, y) { return Math_obj.pow(x, 1/y) },
-  sine: function(x) { return Math_obj.sin(x * deg2rad) },
-  sqrt: function(x) { return Math_obj.sqrt(x) },
-  tangent: function(x) { return Math_obj.tan(x * deg2rad) }
-}

math/radians.cm

@@ -1,17 +0,0 @@
-var Math = globalThis.Math
-
-return {
-  arc_cosine: Math.acos,
-  arc_sine: Math.asin,
-  arc_tangent: Math.atan,
-  cosine: Math.cos,
-  e: Math.E,
-  ln: Math.log,
-  log: Math.log10,
-  log2: Math.log2,
-  power: Math.pow,
-  root: function(x, n) { return Math.pow(x, 1/n) },
-  sine: Math.sin,
-  sqrt: Math.sqrt,
-  tangent: Math.tan
-}

meson.build

@@ -38,7 +38,6 @@ endif
 link_args = link
 sources = []
 src += [        # core
-  'qjs_blob.c',
   'monocypher.c',
   'cell.c',
   'wildmatch.c',
@@ -58,8 +57,6 @@ scripts = [
   'wildstar.c',
   'fit.c',
   'crypto.c',
-  'internal/text.c',
-  'utf8.c',
   'internal/kim.c',
   'time.c',
   'internal/nota.c',
@@ -70,7 +67,6 @@ scripts = [
   'net/enet.c',
   'wildstar.c',
   'archive/miniz.c',
-  'internal/json.c',
 ]
 
 foreach file: scripts
@@ -78,7 +74,7 @@ foreach file: scripts
 endforeach
 
 srceng = 'source'
-includes = [srceng, 'internal', 'debug', 'net', 'archive', 'math']
+includes = [srceng, 'internal', 'debug', 'net', 'archive']
 
 foreach file : src
   full_path = join_paths(srceng, file)

net/enet.c

@@ -145,7 +145,7 @@ static JSValue js_enet_host_service(JSContext *ctx, JSValueConst this_val, int a
   ENetHost *host = JS_GetOpaque(this_val, enet_host_id);
   if (!host) return JS_EXCEPTION;
 
-  if (argc < 1 || !JS_IsFunction(ctx, argv[0])) return JS_ThrowTypeError(ctx, "Expected a callback function as first argument");
+  if (argc < 1 || !JS_IsFunction(argv[0])) return JS_ThrowTypeError(ctx, "Expected a callback function as first argument");
   JSValue callback = JS_DupValue(ctx, argv[0]);
 
   double secs;
@@ -437,8 +437,8 @@ static const JSCFunctionListEntry js_enet_host_funcs[] = {
   JS_CFUNC_DEF("connect", 2, js_enet_host_connect),
   JS_CFUNC_DEF("flush", 0, js_enet_host_flush),
   JS_CFUNC_DEF("broadcast", 1, js_enet_host_broadcast),
-  JS_CGETSET_DEF("port", js_enet_host_get_port, NULL),
-  JS_CGETSET_DEF("address", js_enet_host_get_address, NULL),
+//  JS_CGETSET_DEF("port", js_enet_host_get_port, NULL),
+//  JS_CGETSET_DEF("address", js_enet_host_get_address, NULL),
 };
 
 static JSValue js_enet_peer_get_rtt(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
@@ -552,20 +552,20 @@ static const JSCFunctionListEntry js_enet_peer_funcs[] = {
   JS_CFUNC_DEF("ping", 0, js_enet_peer_ping),
   JS_CFUNC_DEF("throttle_configure", 3, js_enet_peer_throttle_configure),
   JS_CFUNC_DEF("timeout", 3, js_enet_peer_timeout),
-  JS_CGETSET_DEF("rtt", js_enet_peer_get_rtt, NULL),
-  JS_CGETSET_DEF("incoming_bandwidth", js_enet_peer_get_incoming_bandwidth, NULL),
-  JS_CGETSET_DEF("outgoing_bandwidth", js_enet_peer_get_outgoing_bandwidth, NULL),
-  JS_CGETSET_DEF("last_send_time", js_enet_peer_get_last_send_time, NULL),
-  JS_CGETSET_DEF("last_receive_time", js_enet_peer_get_last_receive_time, NULL),
-  JS_CGETSET_DEF("mtu", js_enet_peer_get_mtu, NULL),
-  JS_CGETSET_DEF("outgoing_data_total", js_enet_peer_get_outgoing_data_total, NULL),
-  JS_CGETSET_DEF("incoming_data_total", js_enet_peer_get_incoming_data_total, NULL),
-  JS_CGETSET_DEF("rtt_variance", js_enet_peer_get_rtt_variance, NULL),
-  JS_CGETSET_DEF("packet_loss", js_enet_peer_get_packet_loss, NULL),
-  JS_CGETSET_DEF("state", js_enet_peer_get_state, NULL),
-  JS_CGETSET_DEF("reliable_data_in_transit", js_enet_peer_get_reliable_data_in_transit, NULL),
-  JS_CGETSET_DEF("port", js_enet_peer_get_port, NULL),
-  JS_CGETSET_DEF("address", js_enet_peer_get_address, NULL),
+//  JS_CGETSET_DEF("rtt", js_enet_peer_get_rtt, NULL),
+//  JS_CGETSET_DEF("incoming_bandwidth", js_enet_peer_get_incoming_bandwidth, NULL),
+//  JS_CGETSET_DEF("outgoing_bandwidth", js_enet_peer_get_outgoing_bandwidth, NULL),
+//  JS_CGETSET_DEF("last_send_time", js_enet_peer_get_last_send_time, NULL),
+//  JS_CGETSET_DEF("last_receive_time", js_enet_peer_get_last_receive_time, NULL),
+//  JS_CGETSET_DEF("mtu", js_enet_peer_get_mtu, NULL),
+//  JS_CGETSET_DEF("outgoing_data_total", js_enet_peer_get_outgoing_data_total, NULL),
+//  JS_CGETSET_DEF("incoming_data_total", js_enet_peer_get_incoming_data_total, NULL),
+//  JS_CGETSET_DEF("rtt_variance", js_enet_peer_get_rtt_variance, NULL),
+//  JS_CGETSET_DEF("packet_loss", js_enet_peer_get_packet_loss, NULL),
+//  JS_CGETSET_DEF("state", js_enet_peer_get_state, NULL),
+//  JS_CGETSET_DEF("reliable_data_in_transit", js_enet_peer_get_reliable_data_in_transit, NULL),
+//  JS_CGETSET_DEF("port", js_enet_peer_get_port, NULL),
+//  JS_CGETSET_DEF("address", js_enet_peer_get_address, NULL),
 };
 
 JSValue js_enet_use(JSContext *ctx)

pack.ce

@@ -14,7 +14,7 @@ var output_name = 'app'
 var target_package = null
 var buildtype = 'debug'
 
-if (args.length < 1) {
+if (length(args) < 1) {
   log.error('Usage: cell pack <package> [options]')
   log.error('')
   log.error('Options:')
@@ -22,30 +22,30 @@ if (args.length < 1) {
   log.error('  -t, --target <target> Cross-compile for target platform')
   log.error('  -b, --buildtype <type> Build type: release, debug, minsize (default: release)')
   log.error('')
-  log.error('Available targets: ' + build.list_targets().join(', '))
+  log.error('Available targets: ' + text(build.list_targets(), ', '))
   $stop()
   return
 }
 
 target_package = args[0]
 
-for (var i = 1; i < args.length; i++) {
+for (var i = 1; i < length(args); i++) {
   if (args[i] == '-t' || args[i] == '--target') {
-    if (i + 1 < args.length) {
+    if (i + 1 < length(args)) {
       target = args[++i]
     } else {
       log.error('-t requires a target')
       $stop()
     }
   } else if (args[i] == '-o' || args[i] == '--output') {
-    if (i + 1 < args.length) {
+    if (i + 1 < length(args)) {
       output_name = args[++i]
     } else {
       log.error('-o requires an output name')
       $stop()
     }
   } else if (args[i] == '-b' || args[i] == '--buildtype') {
-    if (i + 1 < args.length) {
+    if (i + 1 < length(args)) {
       buildtype = args[++i]
       if (buildtype != 'release' && buildtype != 'debug' && buildtype != 'minsize') {
         log.error('Invalid buildtype: ' + buildtype + '. Must be release, debug, or minsize')
@@ -63,7 +63,7 @@ for (var i = 1; i < args.length; i++) {
     log.console('  -t, --target <target> Cross-compile for target platform')
     log.console('  -b, --buildtype <type> Build type: release, debug, minsize (default: release)')
     log.console('')
-    log.console('Available targets: ' + build.list_targets().join(', '))
+    log.console('Available targets: ' + text(build.list_targets(), ', '))
     $stop()
   } else {
     log.error('Unknown option: ' + args[i])
@@ -79,7 +79,7 @@ if (!target) {
 
 if (target && !build.has_target(target)) {
   log.error('Invalid target: ' + target)
-  log.console('Available targets: ' + build.list_targets().join(', '))
+  log.console('Available targets: ' + text(build.list_targets(), ', '))
   $stop()
 }
 
@@ -87,29 +87,29 @@ if (target && !build.has_target(target)) {
 var packages = ['core']
 var deps = pkg_tools.gather_dependencies(target_package)
 
-for (var i = 0; i < deps.length; i++) {
-  packages.push(deps[i])
+for (var i = 0; i < length(deps); i++) {
+  push(packages, deps[i])
 }
-packages.push(target_package)
+push(packages, target_package)
 
 // Remove duplicates
 var unique_packages = []
 var seen = {}
-for (var i = 0; i < packages.length; i++) {
+for (var i = 0; i < length(packages); i++) {
   if (!seen[packages[i]]) {
     seen[packages[i]] = true
-    unique_packages.push(packages[i])
+    push(unique_packages, packages[i])
   }
 }
 packages = unique_packages
 
 log.console('Preparing packages...')
-for (var package of packages) {
-  if (package == 'core') continue
+arrfor(packages, function(package) {
+  if (package == 'core') return
   shop.extract(package)
-}
+})
 
-log.console('Building static binary from ' + text(packages.length) + ' packages: ' + packages.join(', '))
+log.console('Building static binary from ' + text(length(packages)) + ' packages: ' + text(packages, ', '))
 
 try {
   var result = build.build_static(packages, target, output_name, buildtype)

package.cm

@@ -1,17 +1,21 @@
 var package = {}
-
 var fd = use('fd')
 var toml = use('toml')
+var json = use('json')
 var os = use('os')
+var link = use('link')
+
+// Cache for loaded configs to avoid toml re-parsing corruption
+var config_cache = {}
 
 // Convert package name to a safe directory name
 // For absolute paths (local packages), replace / with _ 
 // For remote packages, keep slashes as they use nested directories
 function safe_package_path(pkg) {
   if (!pkg) return pkg
-  if (pkg.startsWith('/'))
-    return pkg.replaceAll('/', '_').replaceAll('@', '_')
-  return pkg.replaceAll('@', '_')
+  if (starts_with(pkg, '/'))
+    return replace(replace(pkg, '/', '_'), '@', '_')
+  return replace(pkg, '@', '_')
 }
 
 function get_path(name)
@@ -20,19 +24,50 @@ function get_path(name)
   if (!name)
     return fd.realpath('.')
   // If name is already an absolute path, use it directly
-  if (name.startsWith('/'))
+  if (starts_with(name, '/'))
     return name
+
+  // Check if this package is linked - if so, use the link target directly
+  // This avoids symlink-related issues with file reading
+  var link_target = link.get_target(name)
+  if (link_target) {
+    // If link target is a local path, use it directly
+    if (starts_with(link_target, '/'))
+      return link_target
+    // Otherwise it's another package name, resolve that
+    return os.global_shop_path + '/packages/' + replace(replace(link_target, '/', '_'), '@', '_')
+  }
+
   // Remote packages use nested directories, so don't transform slashes
-  return os.global_shop_path + '/packages/' + name.replaceAll('@', '_')
+  return os.global_shop_path + '/packages/' + replace(name, '@', '_')
 }
 
 package.load_config = function(name)
 {
   var config_path = get_path(name) + '/cell.toml'
-  if (!fd.is_file(config_path))
-    throw new Error(`${config_path} isn't a path`)
 
-  return toml.decode(text(fd.slurp(config_path)))
+  // Return cached config if available
+  if (config_cache[config_path])
+    return config_cache[config_path]
+
+  if (!fd.is_file(config_path)) {
+    throw Error(`${config_path} does not exist`)
+  }
+
+  var content = text(fd.slurp(config_path))
+  if (!content || length(trim(content)) == 0)
+    return {}
+
+  var result = toml.decode(content)
+  if (!result) {
+    return {}
+  }
+
+  // Deep copy to avoid toml module's shared state bug and cache it
+  result = json.decode(json.encode(result))
+  config_cache[config_path] = result
+
+  return result
 }
 
 package.save_config = function(name, config)
@@ -51,11 +86,11 @@ package.find_alias = function(name, locator)
   var config = package.load_config(name)
   if (!config.dependencies) return null
   
-  for (var alias in config.dependencies)
-    if (config.dependencies[alias] == locator)
-      return alias
-
-  return null
+  var found = null
+  arrfor(array(config.dependencies), function(alias) {
+    if (config.dependencies[alias] == locator) found = alias
+  })
+  return found
 }
 
 package.alias_to_package = function(name, alias)
@@ -95,19 +130,15 @@ package.find_package_dir = function(file)
   var absolute = fd.realpath(file)
   
   var dir = absolute
-  if (fd.is_file(dir)) {
-    var last_slash = dir.lastIndexOf('/')
-    if (last_slash > 0) dir = dir.substring(0, last_slash)
-  }
+  if (fd.is_file(dir))
+    dir = fd.dirname(dir)
   
-  while (dir && dir.length > 0) {
+  while (dir && length(dir) > 0) {
     var toml_path = dir + '/cell.toml'
     if (fd.is_file(toml_path)) {
       return dir
     }
-    var last_slash = dir.lastIndexOf('/')
-    if (last_slash <= 0) break
-    dir = dir.substring(0, last_slash)
+    dir = fd.dirname(dir)
   }
   
   return null
@@ -120,19 +151,26 @@ package.find_package_dir = function(file)
 // Returns null if no alias is found for the given path
 package.split_alias = function(name, path)
 {
-  if (!path || path.length == 0) {
+  if (!path || length(path) == 0) {
     return null
   }
 
-  var parts = path.split('/')
+  var parts = array(path, '/')
   var first_part = parts[0]
 
+  try {
     var config = package.load_config(name)
-  if (config.dependencies && config.dependencies[first_part]) {
-    var dep_locator = config.dependencies[first_part]
-    var remaining_path = parts.slice(1).join('/')
+    if (!config) return null
+
+    var deps = config.dependencies
+    if (deps && deps[first_part]) {
+      var dep_locator = deps[first_part]
+      var remaining_path = text(array(parts, 1), '/')
       return { package: dep_locator, path: remaining_path }
     }
+  } catch (e) {
+    // Config doesn't exist or couldn't be loaded
+  }
 
   return null
 }
@@ -149,13 +187,13 @@ package.gather_dependencies = function(name)
     var deps = package.dependencies(pkg_name)
     if (!deps) return
     
-    for (var alias in deps) {
+    arrfor(array(deps), function(alias) {
       var locator = deps[alias]
       if (!all_deps[locator]) {
         all_deps[locator] = true
         gather_recursive(locator)
       }
-    }
+    })
   }
   
   gather_recursive(name)
@@ -171,10 +209,10 @@ package.list_files = function(pkg) {
     var list = fd.readdir(current_dir)
     if (!list) return
     
-    for (var i = 0; i < list.length; i++) {
+    for (var i = 0; i < length(list); i++) {
       var item = list[i]
       if (item == '.' || item == '..') continue
-      if (item.startsWith('.')) continue 
+      if (starts_with(item, '.')) continue 
       
       // Skip build directories in root
 
@@ -185,7 +223,7 @@ package.list_files = function(pkg) {
       if (st.isDirectory) {
         walk(full_path, rel_path)
       } else {
-        files.push(rel_path)
+        push(files, rel_path)
       }
     }
   }
@@ -199,9 +237,9 @@ package.list_files = function(pkg) {
 package.list_modules = function(name) {
   var files = package.list_files(name)
   var modules = []
-  for (var i = 0; i < files.length; i++) {
-    if (files[i].endsWith('.cm')) {
-      modules.push(files[i].substring(0, files[i].length - 3))
+  for (var i = 0; i < length(files); i++) {
+    if (ends_with(files[i], '.cm')) {
+      push(modules, text(files[i], 0, -3))
     }
   }
   return modules
@@ -210,9 +248,9 @@ package.list_modules = function(name) {
 package.list_programs = function(name) {
   var files = package.list_files(name)
   var programs = []
-  for (var i = 0; i < files.length; i++) {
-    if (files[i].endsWith('.ce')) {
-      programs.push(files[i].substring(0, files[i].length - 3))
+  for (var i = 0; i < length(files); i++) {
+    if (ends_with(files[i], '.ce')) {
+      push(programs, text(files[i], 0, -3))
     }
   }
   return programs
@@ -229,13 +267,13 @@ package.get_flags = function(name, flag_type, target) {
   // Base flags
   if (config.compilation && config.compilation[flag_type]) {
     var base = config.compilation[flag_type]
-    flags = flags.concat(base.split(/\s+/).filter(function(f) { return f.length > 0 }))
+    flags = array(flags, filter(array(base, /\s+/), function(f) { return length(f) > 0 }))
   }
   
   // Target-specific flags
   if (target && config.compilation && config.compilation[target] && config.compilation[target][flag_type]) {
     var target_flags = config.compilation[target][flag_type]
-    flags = flags.concat(target_flags.split(/\s+/).filter(function(f) { return f.length > 0 }))
+    flags = array(flags, filter(array(target_flags, /\s+/), function(f) { return length(f) > 0 }))
   }
   
   return flags
@@ -252,31 +290,27 @@ package.get_c_files = function(name, target, exclude_main) {
   // Group files by their base name (without target suffix)
   var groups = {} // base_key -> { generic: file, variants: { target: file } }
   
-  for (var i = 0; i < files.length; i++) {
+  for (var i = 0; i < length(files); i++) {
     var file = files[i]
-    if (!file.endsWith('.c') && !file.endsWith('.cpp')) continue
+    if (!ends_with(file, '.c') && !ends_with(file, '.cpp')) continue
     
-    var ext = file.endsWith('.cpp') ? '.cpp' : '.c'
-    var base = file.substring(0, file.length - ext.length)
-    var dir = ''
-    var name_part = base
-    var slash = base.lastIndexOf('/')
-    if (slash >= 0) {
-      dir = base.substring(0, slash + 1)
-      name_part = base.substring(slash + 1)
-    }
+    var ext = ends_with(file, '.cpp') ? '.cpp' : '.c'
+    var base = text(file, 0, -length(ext))
+    var name_part = fd.basename(base)
+    var dir_part = fd.dirname(base)
+    var dir = (dir_part && dir_part != '.') ? dir_part + '/' : ''
     
     // Check for target suffix
     var is_variant = false
     var variant_target = null
     var generic_name = name_part
     
-    for (var t = 0; t < known_targets.length; t++) {
+    for (var t = 0; t < length(known_targets); t++) {
       var suffix = '_' + known_targets[t]
-      if (name_part.endsWith(suffix)) {
+      if (ends_with(name_part, suffix)) {
         is_variant = true
         variant_target = known_targets[t]
-        generic_name = name_part.substring(0, name_part.length - suffix.length)
+        generic_name = text(name_part, 0, -length(suffix))
         break
       }
     }
@@ -295,7 +329,7 @@ package.get_c_files = function(name, target, exclude_main) {
   
   // Select appropriate file from each group
   var result = []
-  for (var key in groups) {
+  arrfor(array(groups), function(key) {
     var group = groups[key]
     var selected = null
     
@@ -309,14 +343,12 @@ package.get_c_files = function(name, target, exclude_main) {
     if (selected) {
       // Skip main.c if requested
       if (exclude_main) {
-        var basename = selected
-        var s = selected.lastIndexOf('/')
-        if (s >= 0) basename = selected.substring(s + 1)
-        if (basename == 'main.c' || basename.startsWith('main_')) continue
-      }
-      result.push(selected)
+        var basename = fd.basename(selected)
+        if (basename == 'main.c' || starts_with(basename, 'main_')) return
       }
+      push(result, selected)
     }
+  })
   
   return result
 }

parseq.cm

@@ -1,224 +0,0 @@
-// parseq.js (Misty edition)
-// Douglas Crockford → adapted for Misty by ChatGPT, 2025‑05‑29
-// Better living thru eventuality!
-
-/*
-  The original parseq.js relied on the browser's setTimeout and ran in
-  milliseconds. In Misty we may be given an optional @.delay capability
-  (arguments[0]) and time limits are expressed in **seconds**. This rewrite
-  removes the setTimeout dependency, uses the @.delay capability when it is
-  present, and provides the factories described in the Misty specification:
-
-     fallback, par_all, par_any, race, sequence
-
-  Each factory returns a **requestor** function as described by the spec.
-*/
-
-def delay = arg[0] // may be null
-
-// ———————————————————————————————————————— helpers
-
-function make_reason (factory, excuse, evidence) {
-  def reason = new Error(`parseq.${factory}${excuse ? ': ' + excuse : ''}`)
-  reason.evidence = evidence
-  return reason
-}
-
-function is_requestor (fn) {
-  return typeof fn == 'function' && (fn.length == 1 || fn.length == 2)
-}
-
-function check_requestors (list, factory) {
-  if (!isa(list, array) || list.some(r => !is_requestor(r)))
-    throw make_reason(factory, 'Bad requestor list.', list)
-}
-
-function check_callback (cb, factory) {
-  if (typeof cb != 'function' || cb.length != 2)
-    throw make_reason(factory, 'Not a callback.', cb)
-}
-
-function schedule (fn, seconds) {
-  if (seconds == null || seconds <= 0) return fn()
-  if (typeof delay == 'function') return delay(fn, seconds)
-  throw make_reason('schedule', '@.delay capability required for timeouts.')
-}
-
-// ———————————————————————————————————————— core runner
-
-function run (factory, requestors, initial, action, time_limit, throttle = 0) {
-  let cancel_list = new Array(requestors.length)
-  let next = 0
-  let timer_cancel
-
-  function cancel (reason = make_reason(factory, 'Cancel.')) {
-    if (timer_cancel) timer_cancel(), timer_cancel = null
-    if (!cancel_list) return
-    cancel_list.forEach(c => { try { if (typeof c == 'function') c(reason) } catch (_) {} })
-    cancel_list = null
-  }
-
-  function start_requestor (value) {
-    if (!cancel_list || next >= requestors.length) return
-    let idx = next++
-    def req = requestors[idx]
-
-    try {
-      cancel_list[idx] = req(function req_cb (val, reason) {
-        if (!cancel_list || idx == null) return
-        cancel_list[idx] = null
-        action(val, reason, idx)
-        idx = null
-        if (factory == 'sequence') start_requestor(val)
-        else if (throttle) start_requestor(initial)
-      }, value)
-    } catch (ex) {
-      action(null, ex, idx)
-      idx = null
-      if (factory == 'sequence') start_requestor(value)
-      else if (throttle) start_requestor(initial)
-    }
-  }
-
-  if (time_limit != null) {
-    if (typeof time_limit != 'number' || time_limit < 0)
-      throw make_reason(factory, 'Bad time limit.', time_limit)
-    if (time_limit > 0) timer_cancel = schedule(() => cancel(make_reason(factory, 'Timeout.', time_limit)), time_limit)
-  }
-
-  def concurrent = throttle ? number.min(throttle, requestors.length) : requestors.length
-  for (let i = 0; i < concurrent; i++) start_requestor(initial)
-
-  return cancel
-}
-
-// ———————————————————————————————————————— factories
-
-function _normalize (collection, factory) {
-  if (isa(collection)) return { names: null, list: collection }
-  if (collection && typeof collection == 'object') {
-    def names = array(collection)
-    def list = names.map(k => collection[k]).filter(is_requestor)
-    return { names, list }
-  }
-  throw make_reason(factory, 'Expected array or record.', collection)
-}
-
-function _denormalize (names, list) {
-  if (!names) return list
-  def obj = meme(null)
-  names.forEach((k, i) => { obj[k] = list[i] })
-  return obj
-}
-
-function par_all (collection, time_limit, throttle) {
-  def factory = 'par_all'
-  def { names, list } = _normalize(collection, factory)
-  if (list.length == 0) return (cb, v) => cb(names ? {} : [])
-  check_requestors(list, factory)
-
-  return function par_all_req (cb, initial) {
-    check_callback(cb, factory)
-    let pending = list.length
-    def results = new Array(list.length)
-
-    def cancel = run(factory, list, initial, (val, reason, idx) => {
-      if (val == null) {
-        cancel(reason)
-        return cb(null, reason)
-      }
-      results[idx] = val
-      if (--pending == 0) cb(_denormalize(names, results))
-    }, time_limit, throttle)
-
-    return cancel
-  }
-}
-
-function par_any (collection, time_limit, throttle) {
-  def factory = 'par_any'
-  def { names, list } = _normalize(collection, factory)
-  if (list.length == 0) return (cb, v) => cb(names ? {} : [])
-  check_requestors(list, factory)
-
-  return function par_any_req (cb, initial) {
-    check_callback(cb, factory)
-    let pending = list.length
-    def successes = new Array(list.length)
-
-    def cancel = run(factory, list, initial, (val, reason, idx) => {
-      pending--
-      if (val != null) successes[idx] = val
-      if (successes.some(v => v != null)) {
-        if (!pending) cancel(make_reason(factory, 'Finished.'))
-        return cb(_denormalize(names, successes.filter(v => v != null)))
-      }
-      if (!pending) cb(null, make_reason(factory, 'No successes.'))
-    }, time_limit, throttle)
-
-    return cancel
-  }
-}
-
-function race (list, time_limit, throttle) {
-  def factory = throttle == 1 ? 'fallback' : 'race'
-  if (!isa(list, array) || list.length == 0)
-    throw make_reason(factory, 'No requestors.')
-  check_requestors(list, factory)
-
-  return function race_req (cb, initial) {
-    check_callback(cb, factory)
-    let done = false
-    def cancel = run(factory, list, initial, (val, reason, idx) => {
-      if (done) return
-      if (val != null) {
-        done = true
-        cancel(make_reason(factory, 'Loser.', idx))
-        cb(val)
-      } else if (--list.length == 0) {
-        done = true
-        cancel(reason)
-        cb(null, reason)
-      }
-    }, time_limit, throttle)
-    return cancel
-  }
-}
-
-function fallback (list, time_limit) {
-  return race(list, time_limit, 1)
-}
-
-function sequence (list, time_limit) {
-  def factory = 'sequence'
-  if (!isa(list, array)) throw make_reason(factory, 'Not an array.', list)
-  check_requestors(list, factory)
-  if (list.length == 0) return (cb, v) => cb(v)
-
-  return function sequence_req (cb, initial) {
-    check_callback(cb, factory)
-    let idx = 0
-
-    function next (value) {
-      if (idx >= list.length) return cb(value)
-      try {
-        list[idx++](function seq_cb (val, reason) {
-          if (val == null) return cb(null, reason)
-          next(val)
-        }, value)
-      } catch (ex) {
-        cb(null, ex)
-      }
-    }
-
-    next(initial)
-  }
-}
-
-return {
-  fallback,
-  par_all,
-  par_any,
-  race,
-  sequence
-}

playdate/scoreboards_playdate.c

@@ -102,7 +102,7 @@ static void scores_cb(PDScoresList *scores, const char *errorMessage) {
 JSC_SCALL(scoreboards_addScore,
     if (!pd_scoreboards) return JS_ThrowInternalError(js, "scoreboards not initialized");
     uint32_t value = (uint32_t)js2number(js, argv[1]);
-    if (argc > 2 && JS_IsFunction(js, argv[2])) {
+    if (argc > 2 && JS_IsFunction(argv[2])) {
         g_scoreboard_js = js;
         JS_FreeValue(js, g_add_score_callback);
         g_add_score_callback = JS_DupValue(js, argv[2]);
@@ -112,7 +112,7 @@ JSC_SCALL(scoreboards_addScore,
 
 JSC_SCALL(scoreboards_getPersonalBest,
     if (!pd_scoreboards) return JS_ThrowInternalError(js, "scoreboards not initialized");
-    if (argc > 1 && JS_IsFunction(js, argv[1])) {
+    if (argc > 1 && JS_IsFunction(argv[1])) {
         g_scoreboard_js = js;
         JS_FreeValue(js, g_personal_best_callback);
         g_personal_best_callback = JS_DupValue(js, argv[1]);
@@ -129,7 +129,7 @@ JSC_CCALL(scoreboards_freeScore,
 
 JSC_CCALL(scoreboards_getScoreboards,
     if (!pd_scoreboards) return JS_ThrowInternalError(js, "scoreboards not initialized");
-    if (argc > 0 && JS_IsFunction(js, argv[0])) {
+    if (argc > 0 && JS_IsFunction(argv[0])) {
         g_scoreboard_js = js;
         JS_FreeValue(js, g_boards_list_callback);
         g_boards_list_callback = JS_DupValue(js, argv[0]);
@@ -145,7 +145,7 @@ JSC_CCALL(scoreboards_freeBoardsList,
 
 JSC_SCALL(scoreboards_getScores,
     if (!pd_scoreboards) return JS_ThrowInternalError(js, "scoreboards not initialized");
-    if (argc > 1 && JS_IsFunction(js, argv[1])) {
+    if (argc > 1 && JS_IsFunction(argv[1])) {
         g_scoreboard_js = js;
         JS_FreeValue(js, g_scores_callback);
         g_scores_callback = JS_DupValue(js, argv[1]);

pronto.cm

@@ -4,22 +4,22 @@
 // Time is in seconds.
 
 function make_reason(factory, excuse, evidence) {
-  def reason = new Error(`pronto.${factory}${excuse ? ': ' + excuse : ''}`)
+  def reason = Error(`pronto.${factory}${excuse ? ': ' + excuse : ''}`)
   reason.evidence = evidence
   return reason
 }
 
 function is_requestor(fn) {
-  return typeof fn == 'function' && (fn.length == 1 || fn.length == 2)
+  return is_function(fn) && (length(fn) == 1 || length(fn) == 2)
 }
 
 function check_requestors(list, factory) {
-  if (!isa(list, array) || list.some(r => !is_requestor(r)))
+  if (!is_array(list) || some(list, r => !is_requestor(r)))
     throw make_reason(factory, 'Bad requestor array.', list)
 }
 
 function check_callback(cb, factory) {
-  if (typeof cb != 'function' || cb.length != 2)
+  if (!is_function(cb) || length(cb) != 2)
     throw make_reason(factory, 'Not a callback.', cb)
 }
 
@@ -27,15 +27,15 @@ function check_callback(cb, factory) {
 // Tries each requestor in order until one succeeds.
 function fallback(requestor_array) {
   def factory = 'fallback'
-  if (!isa(requestor_array, array) || requestor_array.length == 0)
+  if (!is_array(requestor_array) || length(requestor_array) == 0)
     throw make_reason(factory, 'Empty requestor array.')
   check_requestors(requestor_array, factory)
 
   return function fallback_requestor(callback, value) {
     check_callback(callback, factory)
-    let index = 0
-    let current_cancel = null
-    let cancelled = false
+    var index = 0
+    var current_cancel = null
+    var cancelled = false
 
     function cancel(reason) {
       cancelled = true
@@ -47,7 +47,7 @@ function fallback(requestor_array) {
 
     function try_next() {
       if (cancelled) return
-      if (index >= requestor_array.length) {
+      if (index >= length(requestor_array)) {
         callback(null, make_reason(factory, 'All requestors failed.'))
         return
       }
@@ -79,35 +79,35 @@ function fallback(requestor_array) {
 // Runs requestors in parallel, collecting all results.
 function parallel(requestor_array, throttle, need) {
   def factory = 'parallel'
-  if (!isa(requestor_array, array))
+  if (!is_array(requestor_array))
     throw make_reason(factory, 'Not an array.', requestor_array)
   check_requestors(requestor_array, factory)
 
-  def length = requestor_array.length
+  def length = length(requestor_array)
   if (length == 0)
     return function(callback, value) { callback([]) }
 
   if (need == null) need = length
-  if (typeof need != 'number' || need < 0 || need > length)
+  if (!is_number(need) || need < 0 || need > length)
     throw make_reason(factory, 'Bad need.', need)
 
-  if (throttle != null && (typeof throttle != 'number' || throttle < 1))
+  if (throttle != null && (!is_number(throttle) || throttle < 1))
     throw make_reason(factory, 'Bad throttle.', throttle)
 
   return function parallel_requestor(callback, value) {
     check_callback(callback, factory)
-    def results = new Array(length)
-    def cancel_list = new Array(length)
-    let next_index = 0
-    let successes = 0
-    let failures = 0
-    let finished = false
+    def results = array(length)
+    def cancel_list = array(length)
+    var next_index = 0
+    var successes = 0
+    var failures = 0
+    var finished = false
 
     function cancel(reason) {
       if (finished) return
       finished = true
-      cancel_list.forEach(c => {
-        try { if (typeof c == 'function') c(reason) } catch (_) {}
+      arrfor(cancel_list, c => {
+        try { if (is_function(c)) c(reason) } catch (_) {}
       })
     }
 
@@ -153,8 +153,9 @@ function parallel(requestor_array, throttle, need) {
       }
     }
 
-    def concurrent = throttle ? number.min(throttle, length) : length
-    for (let i = 0; i < concurrent; i++) start_one()
+
+    def concurrent = throttle ? min(throttle, length) : length
+    for (var i = 0; i < concurrent; i++) start_one()
 
     return cancel
   }
@@ -164,32 +165,32 @@ function parallel(requestor_array, throttle, need) {
 // Runs requestors in parallel, returns first success(es).
 function race(requestor_array, throttle, need) {
   def factory = 'race'
-  if (!isa(requestor_array, array) || requestor_array.length == 0)
+  if (!is_array(requestor_array) || length(requestor_array) == 0)
     throw make_reason(factory, 'Empty requestor array.')
   check_requestors(requestor_array, factory)
 
-  def length = requestor_array.length
+  def length = length(requestor_array)
   if (need == null) need = 1
-  if (typeof need != 'number' || need < 1 || need > length)
+  if (!is_number(need) || need < 1 || need > length)
     throw make_reason(factory, 'Bad need.', need)
 
-  if (throttle != null && (typeof throttle != 'number' || throttle < 1))
+  if (throttle != null && (!is_number(throttle) || throttle < 1))
     throw make_reason(factory, 'Bad throttle.', throttle)
 
   return function race_requestor(callback, value) {
     check_callback(callback, factory)
-    def results = new Array(length)
-    def cancel_list = new Array(length)
-    let next_index = 0
-    let successes = 0
-    let failures = 0
-    let finished = false
+    def results = array(length)
+    def cancel_list = array(length)
+    var next_index = 0
+    var successes = 0
+    var failures = 0
+    var finished = false
 
     function cancel(reason) {
       if (finished) return
       finished = true
-      cancel_list.forEach(c => {
-        try { if (typeof c == 'function') c(reason) } catch (_) {}
+      arrfor(cancel_list, c => {
+        try { if (is_function(c)) c(reason) } catch (_) {}
       })
     }
 
@@ -238,8 +239,8 @@ function race(requestor_array, throttle, need) {
       }
     }
 
-    def concurrent = throttle ? number.min(throttle, length) : length
-    for (let i = 0; i < concurrent; i++) start_one()
+    def concurrent = throttle ? min(throttle, length) : length
+    for (var i = 0; i < concurrent; i++) start_one()
 
     return cancel
   }
@@ -249,18 +250,18 @@ function race(requestor_array, throttle, need) {
 // Runs requestors one at a time, passing result to next.
 function sequence(requestor_array) {
   def factory = 'sequence'
-  if (!isa(requestor_array, array))
+  if (!is_array(requestor_array))
     throw make_reason(factory, 'Not an array.', requestor_array)
   check_requestors(requestor_array, factory)
 
-  if (requestor_array.length == 0)
+  if (length(requestor_array) == 0)
     return function(callback, value) { callback(value) }
 
   return function sequence_requestor(callback, value) {
     check_callback(callback, factory)
-    let index = 0
-    let current_cancel = null
-    let cancelled = false
+    var index = 0
+    var current_cancel = null
+    var cancelled = false
 
     function cancel(reason) {
       cancelled = true
@@ -272,7 +273,7 @@ function sequence(requestor_array) {
 
     function run_next(val) {
       if (cancelled) return
-      if (index >= requestor_array.length) {
+      if (index >= length(requestor_array)) {
         callback(val)
         return
       }
@@ -304,7 +305,7 @@ function sequence(requestor_array) {
 // Converts a unary function into a requestor.
 function requestorize(unary) {
   def factory = 'requestorize'
-  if (typeof unary != 'function')
+  if (!is_function(unary))
     throw make_reason(factory, 'Not a function.', unary)
 
   return function requestorized(callback, value) {
@@ -318,45 +319,12 @@ function requestorize(unary) {
   }
 }
 
-// objectify(factory_fn)
-// Converts a factory that takes arrays to one that takes objects.
-function objectify(factory_fn) {
-  def factory = 'objectify'
-  if (typeof factory_fn != 'function')
-    throw make_reason(factory, 'Not a factory.', factory_fn)
-
-  return function objectified_factory(object_of_requestors, ...rest) {
-    if (!isa(object_of_requestors, object))
-      throw make_reason(factory, 'Expected an object.', object_of_requestors)
-
-    def keys = array(object_of_requestors)
-    def requestor_array = keys.map(k => object_of_requestors[k])
-
-    def inner_requestor = factory_fn(requestor_array, ...rest)
-
-    return function(callback, value) {
-      return inner_requestor(function(results, reason) {
-        if (results == null) {
-          callback(null, reason)
-        } else if (isa(results, array)) {
-          def obj = {}
-          keys.forEach((k, i) => { obj[k] = results[i] })
-          callback(obj, reason)
-        } else {
-          callback(results, reason)
-        }
-      }, value)
-    }
-  }
-}
-
 return {
   fallback,
   parallel,
   race,
   sequence,
   requestorize,
-  objectify,
   is_requestor,
   check_callback
 }

qop.c

@@ -450,10 +450,10 @@ static const JSCFunctionListEntry js_qop_writer_funcs[] = {
 static const JSCFunctionListEntry js_qop_funcs[] = {
     MIST_FUNC_DEF(qop, open, 1),
     MIST_FUNC_DEF(qop, write, 1),
-    JS_PROP_INT32_DEF("FLAG_NONE", QOP_FLAG_NONE, JS_PROP_ENUMERABLE),
-    JS_PROP_INT32_DEF("FLAG_COMPRESSED_ZSTD", QOP_FLAG_COMPRESSED_ZSTD, JS_PROP_ENUMERABLE),
-    JS_PROP_INT32_DEF("FLAG_COMPRESSED_DEFLATE", QOP_FLAG_COMPRESSED_DEFLATE, JS_PROP_ENUMERABLE),
-    JS_PROP_INT32_DEF("FLAG_ENCRYPTED", QOP_FLAG_ENCRYPTED, JS_PROP_ENUMERABLE),
+    JS_PROP_INT32_DEF("FLAG_NONE", QOP_FLAG_NONE, 0),
+    JS_PROP_INT32_DEF("FLAG_COMPRESSED_ZSTD", QOP_FLAG_COMPRESSED_ZSTD, 0),
+    JS_PROP_INT32_DEF("FLAG_COMPRESSED_DEFLATE", QOP_FLAG_COMPRESSED_DEFLATE, 0),
+    JS_PROP_INT32_DEF("FLAG_ENCRYPTED", QOP_FLAG_ENCRYPTED, 0),
 };
 
 JSValue js_qop_use(JSContext *js) {

qopconv.ce

@@ -3,10 +3,10 @@ var qop = use('qop')
 
 function print_usage() {
     log.console("Usage: qopconv [OPTION...] FILE...")
-    log.console("  -u <archive> ... unpack archive")
-    log.console("  -l <archive> ... list contents of archive")
+    log.console("  -u <archive> .. unpack archive")
+    log.console("  -l <archive> .. list contents of archive")
     log.console("  -d <dir> ....... change read dir when creating archives")
-    log.console("  <sources...> <archive> ... create archive from sources")
+    log.console("  <sources...> <archive> .. create archive from sources")
 }
 
 function list(archive_path) {
@@ -24,12 +24,12 @@ function list(archive_path) {
     }
 
     var files = archive.list()
-    for (var f of files) {
+    arrfor(files, function(f) {
         var s = archive.stat(f)
         // Format: index hash size path
         // We don't have index/hash easily available in JS binding yet, just size/path
         log.console(`${f} (${s.size} bytes)`)
-    }
+    })
     archive.close()
 }
 
@@ -48,26 +48,26 @@ function unpack(archive_path) {
     }
 
     var files = archive.list()
-    for (var f of files) {
+    arrfor(files, function(f) {
         var data = archive.read(f)
         if (data) {
             // Ensure directory exists
-            var dir = f.substring(0, f.lastIndexOf('/'))
+            var dir = fd.dirname(f)
             if (dir) {
                 // recursive mkdir
-                var parts = dir.split('/')
+                var parts = array(dir, '/')
                 var curr = "."
-                for (var p of parts) {
+                arrfor(parts, function(p) {
                     curr += "/" + p
                     try { fd.mkdir(curr) } catch(e) {}
-                }
+                })
             }
             var fh = fd.open(f, "w")
             fd.write(fh, data)
             fd.close(fh)
             log.console("Extracted " + f)
         }
-    }
+    })
     archive.close()
 }
 
@@ -89,11 +89,11 @@ function pack(sources, archive_path, read_dir) {
         
         if (st.isDirectory) {
             var list = fd.readdir(full_path)
-            for (var item of list) {
-                if (item == "." || item == "..") continue
+            arrfor(list, function(item) {
+                if (item == "." || item == "..") return
                 var sub = path == "." ? item : path + "/" + item
                 add_recursive(sub)
-            }
+            })
         } else {
             var data = fd.slurp(full_path)
             if (data) {
@@ -103,22 +103,22 @@ function pack(sources, archive_path, read_dir) {
         }
     }
     
-    for (var s of sources) {
+    arrfor(sources, function(s) {
         add_recursive(s)
-    }
+    })
     
     writer.finalize()
     log.console("Created " + archive_path)
 }
 
-if (typeof arg == 'undefined' || arg.length < 1) {
+if (!is_array(arg) || length(arg) < 1) {
     print_usage()
 } else {
     if (arg[0] == "-l") {
-        if (arg.length < 2) print_usage()
+        if (length(arg) < 2) print_usage()
         else list(arg[1])
     } else if (arg[0] == "-u") {
-        if (arg.length < 2) print_usage()
+        if (length(arg) < 2) print_usage()
         else unpack(arg[1])
     } else {
         var sources = []
@@ -130,12 +130,12 @@ if (typeof arg == 'undefined' || arg.length < 1) {
             i = 2
         }
         
-        for (; i < arg.length - 1; i++) {
-            sources.push(arg[i])
+        for (; i < length(arg) - 1; i++) {
+            push(sources, arg[i])
         }
-        archive = arg[arg.length - 1]
+        archive = arg[length(arg) - 1]
         
-        if (sources.length == 0) {
+        if (length(sources) == 0) {
             print_usage()
         } else {
             pack(sources, archive, read_dir)

random.cm

@@ -14,7 +14,7 @@ rnd.random_fit = function()
 
 rnd.random_whole = function(num)
 {
-  return number.floor(rnd.random() * num)
+  return floor(rnd.random() * num)
 }
 
 rnd.random_range = function(min,max)

remove.ce

@@ -1,24 +1,105 @@
-// cell remove <alias|path> - Remove a package from dependencies or shop
+// cell remove <locator> - Remove a package from the shop
+//
+// Usage:
+//   cell remove <locator>   Remove a package from the shop
+//   cell remove .           Remove current directory package from shop
+//
+// Options:
+//   --prune     Also remove packages no longer needed by any root
+//   --dry-run   Show what would be removed
 
 var shop = use('internal/shop')
+var pkg = use('package')
+var link = use('link')
 var fd = use('fd')
 
-if (args.length < 1) {
-  log.console("Usage: cell remove <alias|path>")
+var target_pkg = null
+var prune = false
+var dry_run = false
+
+for (var i = 0; i < length(args); i++) {
+  if (args[i] == '--prune') {
+    prune = true
+  } else if (args[i] == '--dry-run') {
+    dry_run = true
+  } else if (args[i] == '--help' || args[i] == '-h') {
+    log.console("Usage: cell remove <locator> [options]")
+    log.console("")
+    log.console("Remove a package from the shop.")
+    log.console("")
+    log.console("Options:")
+    log.console("  --prune    Also remove packages no longer needed by any root")
+    log.console("  --dry-run  Show what would be removed")
     $stop()
-  return
-}
-
-var pkg = args[0]
-
-// Resolve relative paths to absolute paths
-if (pkg == '.' || pkg.startsWith('./') || pkg.startsWith('../') || fd.is_dir(pkg)) {
-  var resolved = fd.realpath(pkg)
-  if (resolved) {
-    pkg = resolved
+  } else if (!starts_with(args[i], '-')) {
+    target_pkg = args[i]
   }
 }
 
-shop.remove(pkg)
+if (!target_pkg) {
+  log.console("Usage: cell remove <locator> [options]")
+  $stop()
+}
+
+// Resolve relative paths to absolute paths
+if (target_pkg == '.' || starts_with(target_pkg, './') || starts_with(target_pkg, '../') || fd.is_dir(target_pkg)) {
+  var resolved = fd.realpath(target_pkg)
+  if (resolved) {
+    target_pkg = resolved
+  }
+}
+
+var packages_to_remove = [target_pkg]
+
+if (prune) {
+  // Find packages no longer needed
+  // Get all dependencies of remaining packages
+  var lock = shop.load_lock()
+  var all_packages = shop.list_packages()
+
+  // Build set of all needed packages (excluding target)
+  var needed = {}
+  arrfor(all_packages, function(p) {
+    if (p == target_pkg || p == 'core') return
+
+    // Mark this package and its deps as needed
+    needed[p] = true
+    try {
+      var deps = pkg.gather_dependencies(p)
+      arrfor(deps, function(dep) {
+        needed[dep] = true
+      })
+    } catch (e) {
+      // Skip if can't read deps
+    }
+  })
+
+  // Find packages that are NOT needed
+  arrfor(all_packages, function(p) {
+    if (p == 'core') return
+    if (!needed[p] && find(packages_to_remove, p) == null) {
+      push(packages_to_remove, p)
+    }
+  })
+}
+
+if (dry_run) {
+  log.console("Would remove:")
+  arrfor(packages_to_remove, function(p) {
+    log.console("  " + p)
+  })
+} else {
+  arrfor(packages_to_remove, function(p) {
+    // Remove any link for this package
+    if (link.is_linked(p)) {
+      link.remove(p)
+    }
+
+    // Remove from shop
+    shop.remove(p)
+  })
+
+  log.console("Removed " + text(length(packages_to_remove)) + " package(s).")
+}
 
 $stop()

resolve.ce

@@ -0,0 +1,196 @@
+// cell resolve [<locator>] - Print fully resolved dependency closure
+//
+// Usage:
+//   cell resolve           Resolve current directory package
+//   cell resolve .         Resolve current directory package
+//   cell resolve <locator> Resolve specific package
+//
+// Options:
+//   --target <triple>      Annotate builds for target platform
+//   --locked               Show lock state without applying links
+//   --refresh              Refresh floating refs before printing
+
+var shop = use('internal/shop')
+var pkg = use('package')
+var link = use('link')
+var build = use('build')
+var fd = use('fd')
+
+var target_locator = null
+var target_triple = null
+var show_locked = false
+var refresh_first = false
+
+for (var i = 0; i < length(args); i++) {
+  if (args[i] == '--target' || args[i] == '-t') {
+    if (i + 1 < length(args)) {
+      target_triple = args[++i]
+    } else {
+      log.error('--target requires a triple')
+      $stop()
+    }
+  } else if (args[i] == '--locked') {
+    show_locked = true
+  } else if (args[i] == '--refresh') {
+    refresh_first = true
+  } else if (args[i] == '--help' || args[i] == '-h') {
+    log.console("Usage: cell resolve [<locator>] [options]")
+    log.console("")
+    log.console("Print the fully resolved dependency closure.")
+    log.console("")
+    log.console("Options:")
+    log.console("  --target <triple>  Annotate builds for target platform")
+    log.console("  --locked           Show lock state without applying links")
+    log.console("  --refresh          Refresh floating refs before printing")
+    $stop()
+  } else if (!starts_with(args[i], '-')) {
+    target_locator = args[i]
+  }
+}
+
+// Default to current directory
+if (!target_locator) {
+  target_locator = '.'
+}
+
+// Resolve local paths
+if (target_locator == '.' || starts_with(target_locator, './') || starts_with(target_locator, '../') || fd.is_dir(target_locator)) {
+  var resolved = fd.realpath(target_locator)
+  if (resolved) {
+    target_locator = resolved
+  }
+}
+
+// Check if it's a valid package
+if (!fd.is_file(target_locator + '/cell.toml')) {
+  // Try to find it in the shop
+  var pkg_dir = shop.get_package_dir(target_locator)
+  if (!fd.is_file(pkg_dir + '/cell.toml')) {
+    log.error("Not a valid package: " + target_locator)
+    $stop()
+  }
+}
+
+// Detect target if not specified
+if (!target_triple) {
+  target_triple = build.detect_host_target()
+}
+
+var lock = shop.load_lock()
+var links = link.load()
+
+// Gather all dependencies recursively
+var all_deps = {}
+var visited = {}
+
+function gather_deps(locator, depth) {
+  if (visited[locator]) return
+  visited[locator] = true
+
+  all_deps[locator] = { depth: depth }
+
+  try {
+    var deps = pkg.dependencies(locator)
+    if (deps) {
+      arrfor(array(deps), function(alias) {
+        var dep_locator = deps[alias]
+        gather_deps(dep_locator, depth + 1)
+      })
+    }
+  } catch (e) {
+    // Package might not have dependencies
+  }
+}
+
+gather_deps(target_locator, 0)
+
+// Print header
+log.console("Resolved dependency closure for: " + target_locator)
+log.console("Target: " + target_triple)
+log.console("")
+
+// Sort by depth then alphabetically
+var sorted = array(array(all_deps), function(locator) { return { locator: locator, depth: all_deps[locator].depth } })
+sorted = sort(sorted, "locator")
+sorted = sort(sorted, "depth")
+
+for (var i = 0; i < length(sorted); i++) {
+  var locator = sorted[i].locator
+  var depth = sorted[i].depth
+
+  var indent = ""
+  for (var j = 0; j < depth; j++) indent += "  "
+
+  // Get info about this package
+  var info = shop.resolve_package_info(locator)
+  var lock_entry = lock[locator]
+  var link_target = show_locked ? null : links[locator]
+  var effective_locator = link_target || locator
+
+  // Check status
+  var is_linked = link_target != null
+  var is_in_lock = lock_entry != null
+  var is_local = info == 'local'
+
+  // Check if fetched (package directory exists)
+  var pkg_dir = shop.get_package_dir(locator)
+  var is_fetched = fd.is_dir(pkg_dir) || fd.is_link(pkg_dir)
+
+  // Check if built (library exists)
+  var lib_dir = shop.get_lib_dir()
+  var lib_name = shop.lib_name_for_package(locator)
+  var dylib_ext = '.dylib' // TODO: detect from target
+  var lib_path = lib_dir + '/' + lib_name + dylib_ext
+  var is_built = fd.is_file(lib_path)
+
+  // Format output
+  var status_parts = []
+  if (is_linked) push(status_parts, "linked")
+  if (is_local) push(status_parts, "local")
+  if (!is_in_lock) push(status_parts, "not in lock")
+  if (!is_fetched) push(status_parts, "not fetched")
+  if (is_built) push(status_parts, "built")
+
+  var commit_str = ""
+  if (lock_entry && lock_entry.commit) {
+    commit_str = " @" + text(lock_entry.commit, 0, 8)
+  } else if (lock_entry && lock_entry.type == 'local') {
+    commit_str = " (local)"
+  }
+
+  var line = indent + locator + commit_str
+
+  if (is_linked && !show_locked) {
+    line += " -> " + link_target
+  }
+
+  if (length(status_parts) > 0) {
+    line += " [" + text(status_parts, ", ") + "]"
+  }
+
+  log.console(line)
+
+  // Show compilation inputs if requested (verbose)
+  if (depth == 0) {
+    try {
+      var cflags = pkg.get_flags(locator, 'CFLAGS', target_triple)
+      var ldflags = pkg.get_flags(locator, 'LDFLAGS', target_triple)
+      if (length(cflags) > 0 || length(ldflags) > 0) {
+        log.console(indent + "  Compilation inputs:")
+        if (length(cflags) > 0) {
+          log.console(indent + "    CFLAGS: " + text(cflags, ' '))
+        }
+        if (length(ldflags) > 0) {
+          log.console(indent + "    LDFLAGS: " + text(ldflags, ' '))
+        }
+      }
+    } catch (e) {
+      // Skip if can't read config
+    }
+  }
+}
+
+log.console("")
+log.console("Total: " + text(length(sorted)) + " package(s)")
+
+$stop()

search.ce

@@ -4,14 +4,14 @@
 var shop = use('internal/shop')
 var pkg = use('package')
 
-if (args.length < 1) {
+if (length(args) < 1) {
   log.console("Usage: cell search <query>")
   log.console("Searches for packages, actors, or modules matching the query.")
   $stop()
   return
 }
 
-var query = args[0].toLowerCase()
+var query = args[0]
 var found_packages = []
 var found_modules = []
 var found_actors = []
@@ -19,34 +19,34 @@ var found_actors = []
 // Search through all installed packages
 var packages = shop.list_packages()
 
-for (var package_name of packages) {
+arrfor(packages, function(package_name) {
   // Check if package name matches
-  if (package_name.toLowerCase().includes(query)) {
-    found_packages.push(package_name)
+  if (search(package_name, query) != null) {
+    push(found_packages, package_name)
   }
   
   // Search modules and actors within the package
   try {
     var modules = pkg.list_modules(package_name)
-    for (var mod of modules) {
-      if (mod.toLowerCase().includes(query)) {
-        found_modules.push(package_name + ':' + mod)
-      }
+    arrfor(modules, function(mod) {
+      if (search(mod, query) != null) {
+        push(found_modules, package_name + ':' + mod)
       }
+    })
     
     var actors = pkg.list_programs(package_name)
-    for (var actor of actors) {
-      if (actor.toLowerCase().includes(query)) {
-        found_actors.push(package_name + ':' + actor)
-      }
+    arrfor(actors, function(actor) {
+      if (search(actor, query) != null) {
+        push(found_actors, package_name + ':' + actor)
       }
+    })
   } catch (e) {
     // Skip packages that can't be read
   }
-}
+})
 
 // Print results
-var total = found_packages.length + found_modules.length + found_actors.length
+var total = length(found_packages) + length(found_modules) + length(found_actors)
 
 if (total == 0) {
   log.console("No results found for '" + query + "'")
@@ -54,27 +54,27 @@ if (total == 0) {
   log.console("Found " + text(total) + " result(s) for '" + query + "':")
   log.console("")
   
-  if (found_packages.length > 0) {
+  if (length(found_packages) > 0) {
     log.console("Packages:")
-    for (var p of found_packages) {
+    arrfor(found_packages, function(p) {
       log.console("  " + p)
-    }
+    })
     log.console("")
   }
   
-  if (found_modules.length > 0) {
+  if (length(found_modules) > 0) {
     log.console("Modules:")
-    for (var m of found_modules) {
+    arrfor(found_modules, function(m) {
       log.console("  " + m)
-    }
+    })
     log.console("")
   }
   
-  if (found_actors.length > 0) {
+  if (length(found_actors) > 0) {
     log.console("Actors:")
-    for (var a of found_actors) {
+    arrfor(found_actors, function(a) {
       log.console("  " + a)
-    }
+    })
   }
 }
 

source/blob.h

@@ -138,18 +138,22 @@ void bitcpy(unsigned char *dst, size_t dst_bit_offset,
   }
 }
 
-// Fast bit-copy for arbitrary bit ranges (inclusive) from src → dest
-void copy_bits_fast(const void *src, void *dest,
-                    size_t n, /* start bit in src (inclusive) */
-                    size_t m, /* end bit in src (inclusive) */
-                    size_t x) /* start bit in dest */
+static inline uint16_t load16_window(const uint8_t *s, size_t i, size_t last_byte)
 {
-  const uint8_t *s = (const uint8_t*)src;
-  uint8_t       *d = (uint8_t*)dest;
+  uint16_t lo = s[i];
+  uint16_t hi = 0;
+  if (i + 1 <= last_byte) hi = (uint16_t)s[i + 1] << 8;
+  return lo | hi;
+}
 
-  size_t total_bits = m - n + 1;
+void copy_bits_fast(const void *src, void *dest, size_t n, size_t m, size_t x)
+{
   if (m < n) return;
 
+  const uint8_t *s = (const uint8_t *)src;
+  uint8_t *d = (uint8_t *)dest;
+
+  size_t total_bits = m - n + 1;
   size_t src_bit = n;
   size_t dst_bit = x;
   size_t src_byte = src_bit >> 3;
@@ -157,16 +161,24 @@ void copy_bits_fast(const void *src, void *dest,
   int src_off = src_bit & 7;
   int dst_off = dst_bit & 7;
 
-  // 1) Leading partial byte to align dest
+  size_t last_src_byte = m >> 3;
+
+  /* Fast path: whole bytes, aligned */
+  if (src_off == 0 && dst_off == 0 && (total_bits & 7) == 0) {
+    memcpy(d + dst_byte, s + src_byte, total_bits >> 3);
+    return;
+  }
+
+  /* 1) Leading partial byte to align dest */
   if (dst_off != 0) {
     size_t chunk = 8 - dst_off;
     if (chunk > total_bits) chunk = total_bits;
 
-    uint8_t dst_mask = (((1u << chunk) - 1u) << dst_off);
-    uint16_t wb = (uint16_t)s[src_byte] | ((uint16_t)s[src_byte + 1] << 8);
+    uint8_t dst_mask = (uint8_t)(((1u << chunk) - 1u) << dst_off);
+    uint16_t wb = load16_window(s, src_byte, last_src_byte);
     uint8_t bits = (uint8_t)((wb >> src_off) & ((1u << chunk) - 1u));
     bits <<= dst_off;
-    d[dst_byte] = (d[dst_byte] & ~dst_mask) | (bits & dst_mask);
+    d[dst_byte] = (d[dst_byte] & (uint8_t)~dst_mask) | (bits & dst_mask);
 
     total_bits -= chunk;
     src_bit += chunk;
@@ -174,36 +186,33 @@ void copy_bits_fast(const void *src, void *dest,
     src_byte = src_bit >> 3;
     dst_byte = dst_bit >> 3;
     src_off = src_bit & 7;
-    dst_off    = dst_bit & 7; // now zero
+    dst_off = dst_bit & 7;
   }
 
-  // 2) Copy full bytes
+  /* 2) Copy full bytes */
   if (total_bits >= 8) {
+    size_t num_bytes = total_bits >> 3;
+
     if (src_off == 0) {
-      size_t num_bytes = total_bits >> 3;
-      memcpy(&d[dst_byte], &s[src_byte], num_bytes);
-      total_bits -= num_bytes << 3;
-      src_byte   += num_bytes;
-      dst_byte   += num_bytes;
+      memcpy(d + dst_byte, s + src_byte, num_bytes);
     } else {
-      size_t num_bytes = total_bits >> 3;
       for (size_t i = 0; i < num_bytes; i++) {
-        uint16_t wb = (uint16_t)s[src_byte + i] |
-                      ((uint16_t)s[src_byte + i + 1] << 8);
+        uint16_t wb = load16_window(s, src_byte + i, last_src_byte);
         d[dst_byte + i] = (uint8_t)((wb >> src_off) & 0xFFu);
       }
+    }
+
     total_bits -= num_bytes << 3;
     src_byte += num_bytes;
     dst_byte += num_bytes;
   }
-  }
 
-  // 3) Trailing bits (< 8)
+  /* 3) Trailing bits (< 8), dest is byte-aligned here */
   if (total_bits > 0) {
-    uint8_t dst_mask = (1u << total_bits) - 1u;
-    uint16_t wb = (uint16_t)s[src_byte] | ((uint16_t)s[src_byte + 1] << 8);
+    uint8_t dst_mask = (uint8_t)((1u << total_bits) - 1u);
+    uint16_t wb = load16_window(s, src_byte, last_src_byte);
     uint8_t bits = (uint8_t)((wb >> src_off) & dst_mask);
-    d[dst_byte] = (d[dst_byte] & ~dst_mask) | (bits & dst_mask);
+    d[dst_byte] = (d[dst_byte] & (uint8_t)~dst_mask) | (bits & dst_mask);
   }
 }
 
@@ -378,16 +387,30 @@ int blob_write_text(blob *b, const char *text) {
   return 0;
 }
 
-int blob_write_bytes(blob *b, const void *data, size_t len_bytes) {
+int blob_write_bytes(blob *b, const void *data, size_t len_bytes)
+{
   if (!b || b->is_stone) return -1;
-  if (len_bytes == 0) return 0;
-  size_t bits = len_bytes * 8;
-  if (blob_ensure_capacity(b, bits) < 0) return -1;
-  copy_bits_fast(data, b->data, 0, bits - 1, b->length);
-  b->length += bits;
+  if (!len_bytes) return 0;
+
+  size_t bit_len = len_bytes << 3;
+  size_t bit_off = b->length;
+  size_t new_len = bit_off + bit_len;
+  if (new_len < bit_off) return -1;
+
+  if (blob_ensure_capacity(b, new_len) < 0) return -1;
+
+  if ((bit_off & 7) == 0) {
+    uint8_t *dst = (uint8_t *)b->data + (bit_off >> 3);
+    memcpy(dst, data, len_bytes);
+  } else {
+    copy_bits_fast(data, b->data, 0, bit_len - 1, bit_off);
+  }
+
+  b->length = new_len;
   return 0;
 }
 
+
 int blob_read_bit(const blob *b, size_t pos, int *out_bit) {
   if (!b || !b->is_stone || !out_bit) return -1;
   if (pos >= b->length) return -1;

source/cell.c

@@ -128,7 +128,6 @@ void script_startup(cell_rt *prt)
   JS_AddIntrinsicEval(js);
   JS_AddIntrinsicRegExp(js);
   JS_AddIntrinsicJSON(js);
-  JS_AddIntrinsicMapSet(js);
 
   JS_SetContextOpaque(js, prt);
   prt->context = js;
@@ -146,12 +145,8 @@ void script_startup(cell_rt *prt)
   JS_SetPropertyStr(js, cell, "hidden", hidden_fn);
   JS_SetPropertyStr(js, hidden_fn, "os", js_os_use(js));
 
-  const char actorsym_script[] = "Symbol('actordata');";
-  
-  JSValue actorsym = JS_Eval(js, actorsym_script, sizeof(actorsym_script)-1, "internal", 0);
-  JS_SetPropertyStr(js, hidden_fn, "actorsym", actorsym);
-  
-  crt->actor_sym = JS_ValueToAtom(js, actorsym);
+  crt->actor_sym = JS_NewObject(js);
+  JS_SetPropertyStr(js, hidden_fn, "actorsym", JS_DupValue(js,crt->actor_sym));
   
   if (crt->init_wota) {
     JS_SetPropertyStr(js, hidden_fn, "init", wota2value(js, crt->init_wota));
@@ -246,10 +241,8 @@ int cell_init(int argc, char **argv)
 
 int JS_ArrayLength(JSContext *js, JSValue a)
 {
-  JSValue length = JS_GetPropertyStr(js, a, "length");
-  int len;
-  JS_ToInt32(js,&len,length);
-  JS_FreeValue(js,length);
+  int64_t len;
+  JS_GetLength(js, a, &len);
   return len;
 }
 
@@ -283,7 +276,6 @@ void cell_trace_sethook(cell_hook)
 int uncaught_exception(JSContext *js, JSValue v)
 {
   cell_rt *rt = JS_GetContextOpaque(js);
-  
   if (!JS_HasException(js)) {
     JS_FreeValue(js,v);
     return 1;
@@ -291,26 +283,21 @@ int uncaught_exception(JSContext *js, JSValue v)
 
   JSValue exp = JS_GetException(js);
   
-  if (JS_IsNull(rt->on_exception)) {
-    const char *str = JS_ToCString(js, exp);
-    if (str) {
-      printf("Uncaught exception: %s\n", str);
-      JS_FreeCString(js, str);
+  JSValue message = JS_GetPropertyStr(js, exp, "message");
+  const char *msg_str = JS_ToCString(js, message);
+  if (msg_str) {
+    printf("Exception: %s\n", msg_str);
+    JS_FreeCString(js, msg_str);
   }
+  JS_FreeValue(js, message);
   
   JSValue stack = JS_GetPropertyStr(js, exp, "stack");
-    if (!JS_IsNull(stack)) {
   const char *stack_str = JS_ToCString(js, stack);
   if (stack_str) {
-        printf("Stack trace:\n%s\n", stack_str);
+    printf("Stack:\n%s\n", stack_str);
     JS_FreeCString(js, stack_str);
   }
-    }
   JS_FreeValue(js, stack);
-  } else {
-    JSValue ret = JS_Call(js, rt->on_exception, JS_NULL, 1, &exp);
-    JS_FreeValue(js, ret);
-  }
   
   JS_FreeValue(js, exp);
   JS_FreeValue(js, v);

source/cell.h

@@ -36,7 +36,7 @@ void cell_trace_sethook(cell_hook);
 // Macros to help with creating scripts
 #define MIST_CFUNC_DEF(name, length, func1, props) { name, props, JS_DEF_CFUNC, 0, .u = { .func = { length, JS_CFUNC_generic, { .generic = func1 } } } }
 
-#define MIST_FUNC_DEF(TYPE, FN, LEN) MIST_CFUNC_DEF(#FN, LEN, js_##TYPE##_##FN, JS_PROP_C_W_E)
+#define MIST_FUNC_DEF(TYPE, FN, LEN) MIST_CFUNC_DEF(#FN, LEN, js_##TYPE##_##FN, 0)
 #define PROTO_FUNC_DEF(TYPE, FN, LEN) MIST_CFUNC_DEF(#FN, LEN, js_##TYPE##_##FN, 0)
 
 #define JS_SETSIG JSContext *js, JSValue self, JSValue val
@@ -68,41 +68,6 @@ void cell_trace_sethook(cell_hook);
   JS_FreeCString(js,str); \
 ) \
 
-#define MIST_CGETSET_BASE(name, fgetter, fsetter, props) { name, props, JS_DEF_CGETSET, 0, .u = { .getset = { .get = { .getter = fgetter }, .set = { .setter = fsetter } } } }
-#define MIST_CGETSET_DEF(name, fgetter, fsetter) MIST_CGETSET_BASE(name, fgetter, fsetter, JS_PROP_CONFIGURABLE | JS_PROP_ENUMERABLE)
-#define MIST_CGETET_HID(name, fgetter, fsetter) MIST_CGETSET_BASE(name, fgetter, fsetter, JS_PROP_CONFIGURABLE)
-#define MIST_GET(name, fgetter) { #fgetter , JS_PROP_CONFIGURABLE | JS_PROP_ENUMERABLE, JS_DEF_CGETSET, 0, .u = { .getset = { .get = { .getter = js_##name##_get_##fgetter } } } }
-
-#define CGETSET_ADD_NAME(ID, ENTRY, NAME) MIST_CGETSET_DEF(#NAME, js_##ID##_get_##ENTRY, js_##ID##_set_##ENTRY)
-#define CGETSET_ADD(ID, ENTRY) MIST_CGETSET_DEF(#ENTRY, js_##ID##_get_##ENTRY, js_##ID##_set_##ENTRY)
-#define CGETSET_ADD_HID(ID, ENTRY) MIST_CGETSET_BASE(#ENTRY, js_##ID##_get_##ENTRY, js_##ID##_set_##ENTRY, JS_PROP_CONFIGURABLE)
-
-#define GETSETPAIR(ID, ENTRY, TYPE, FN) \
-JSValue js_##ID##_set_##ENTRY (JS_SETSIG) { \
-  js2##ID (js, self)->ENTRY = js2##TYPE (js,val); \
-  {FN;} \
-  return JS_NULL; \
-} \
-\
-JSValue js_##ID##_get_##ENTRY (JSContext *js, JSValue self) { \
-  return TYPE##2js(js,js2##ID (js, self)->ENTRY); \
-} \
-
-#define JSC_GETSET(ID, ENTRY, TYPE) GETSETPAIR( ID , ENTRY , TYPE , ; )
-#define JSC_GETSET_APPLY(ID, ENTRY, TYPE) GETSETPAIR(ID, ENTRY, TYPE, ID##_apply(js2##ID (js, self));)
-#define JSC_GETSET_CALLBACK(ID, ENTRY) \
-JSValue js_##ID##_set_##ENTRY (JS_SETSIG) { \
-  JSValue fn = js2##ID (js, self)->ENTRY; \
-  if (!JS_IsNull(fn)) JS_FreeValue(js, fn); \
-  js2##ID (js, self)->ENTRY = JS_DupValue(js, val); \
-  return JS_NULL; \
-}\
-JSValue js_##ID##_get_##ENTRY (JSContext *js, JSValue self) { return JS_DupValue(js, js2##ID (js, self)->ENTRY); } \
-
-#define JSC_GET(ID, ENTRY, TYPE) \
-JSValue js_##ID##_get_##ENTRY (JSContext *js, JSValue self) { \
-  return TYPE##2js(js,js2##ID (js, self)->ENTRY); } \
-
 #define QJSCLASS(TYPE, ...)\
 JSClassID js_##TYPE##_id;\
 static void js_##TYPE##_finalizer(JSRuntime *rt, JSValue val){\
@@ -179,15 +144,12 @@ JS_SetClassProto(js, js_##TYPE##_id, TYPE##_proto); \
 #define QJSCLASSPREP_FUNCS_CTOR(TYPE, CTOR_ARGC) \
   ({ \
     QJSCLASSPREP_FUNCS(TYPE); \
-    JSValue TYPE##_ctor = JS_NewCFunction2(js, js_##TYPE##_constructor, #TYPE, CTOR_ARGC, JS_CFUNC_constructor, 0); \
-    JS_SetConstructor(js, TYPE##_ctor, TYPE##_proto); \
+    JSValue TYPE##_ctor = JS_NewCFunction2(js, js_##TYPE##_constructor, #TYPE, CTOR_ARGC, JS_CFUNC_generic, 0); \
     TYPE##_ctor; \
   })
 
-
 #define countof(x) (sizeof(x)/sizeof((x)[0]))
 
-
 // Common macros for property access
 #define JS_GETPROP(JS, TARGET, VALUE, PROP, TYPE) {\
 JSValue __##PROP##__v = JS_GetPropertyStr(JS,VALUE,#PROP); \

source/cell_internal.h

@@ -53,7 +53,7 @@ typedef struct cell_rt {
   int main_thread_only;
   int affinity;
   
-  JSAtom actor_sym;
+  JSValue actor_sym;
   
   const char *name; // human friendly name
   cell_hook trace_hook;
@@ -63,7 +63,7 @@ cell_rt *create_actor(void *wota);
 const char *register_actor(const char *id, cell_rt *actor, int mainthread, double ar);
 void actor_disrupt(cell_rt *actor);
 
-JSAtom actor_sym(cell_rt *actor);
+JSValue actor_sym(cell_rt *actor);
 
 const char *send_message(const char *id, void *msg);
 const char *register_actor(const char *id, cell_rt *actor, int mainthread, double ar);

source/qjs_actor.c

@@ -111,7 +111,7 @@ JSC_CCALL(actor_on_exception,
 )
 
 JSC_CCALL(actor_clock,
-  if (!JS_IsFunction(js, argv[0]))
+  if (!JS_IsFunction(argv[0]))
     return JS_ThrowReferenceError(js, "Argument must be a function.");
     
   cell_rt *actor = JS_GetContextOpaque(js);
@@ -119,7 +119,7 @@ JSC_CCALL(actor_clock,
 )
 
 JSC_CCALL(actor_delay,
-   if (!JS_IsFunction(js, argv[0]))
+   if (!JS_IsFunction(argv[0]))
     return JS_ThrowReferenceError(js, "Argument must be a function.");
 
   cell_rt *actor = JS_GetContextOpaque(js);

source/qjs_blob.c

@@ -1,606 +0,0 @@
-#define BLOB_IMPLEMENTATION
-#include "blob.h"
-#include "cell.h"
-
-// Get countof from macros if not defined
-#ifndef countof
-#define countof(x) (sizeof(x)/sizeof((x)[0]))
-#endif
-
-// Free function for blob
-void blob_free(JSRuntime *rt, blob *b)
-{
-  blob_destroy(b);
-}
-
-// Use QJSCLASS macro to generate class boilerplate
-QJSCLASS(blob,)
-
-// Constructor function for blob
-static JSValue js_blob_constructor(JSContext *ctx, JSValueConst new_target,
-                                  int argc, JSValueConst *argv) {
-  blob *bd = NULL;
-
-  // new Blob()
-  if (argc == 0) {
-    // empty antestone blob
-    bd = blob_new(0);
-  }
-  // new Blob(capacity)
-  else if (argc == 1 && JS_IsNumber(argv[0])) {
-    int64_t capacity_bits;
-    if (JS_ToInt64(ctx, &capacity_bits, argv[0]) < 0) {
-      return JS_EXCEPTION;
-    }
-    if (capacity_bits < 0) capacity_bits = 0;
-    bd = blob_new((size_t)capacity_bits);
-  }
-  // new Blob(length, logical/random)
-  else if (argc == 2 && JS_IsNumber(argv[0])) {
-    int64_t length_bits;
-    if (JS_ToInt64(ctx, &length_bits, argv[0]) < 0) {
-      return JS_EXCEPTION;
-    }
-    if (length_bits < 0) length_bits = 0;
-    
-    if (JS_IsBool(argv[1])) {
-      // Fill with all 0s or all 1s
-      int is_one = JS_ToBool(ctx, argv[1]);
-      bd = blob_new_with_fill((size_t)length_bits, is_one);
-    } else if (JS_IsFunction(ctx, argv[1])) {
-      /* Random function provided – call it and use up to 56 bits at a time */
-      size_t bytes = (length_bits + 7) / 8;
-      bd = blob_new((size_t)length_bits);
-      if (bd) {
-        bd->length = length_bits;
-        /* Ensure the backing storage starts out zeroed */
-        memset(bd->data, 0, bytes);
-        
-        size_t bits_written = 0;
-        while (bits_written < length_bits) {
-          JSValue randval = JS_Call(ctx, argv[1], JS_NULL, 0, NULL);
-          if (JS_IsException(randval)) {
-            blob_destroy(bd);
-            return JS_EXCEPTION;
-          }
-    
-          int64_t fitval;
-          JS_ToInt64(ctx, &fitval, randval);
-          JS_FreeValue(ctx, randval);
-          
-          /* Extract up to 56 bits from the random value */
-          size_t bits_to_use = length_bits - bits_written;
-          if (bits_to_use > 52) bits_to_use = 52;
-          
-          /* Write bits from the random value */
-          for (size_t j = 0; j < bits_to_use; j++) {
-            size_t bit_pos = bits_written + j;
-            size_t byte_idx = bit_pos / 8;
-            size_t bit_idx = bit_pos % 8;
-            
-            if (fitval & (1LL << j))
-              bd->data[byte_idx] |= (uint8_t)(1 << bit_idx);
-            else
-              bd->data[byte_idx] &= (uint8_t)~(1 << bit_idx);
-          }
-          
-          bits_written += bits_to_use;
-        }
-      }
-    } else {
-      return JS_ThrowTypeError(ctx, "Second argument must be boolean or random function");
-    }
-  }
-  // new Blob(blob, from, to)
-  else if (argc >= 1 && JS_IsObject(argv[0])) {
-    // we try copying from another blob if it's of the same class
-    blob *src = js2blob(ctx, argv[0]);
-    if (!src) {
-      return JS_ThrowTypeError(ctx, "Blob constructor: argument 1 not a blob");
-    }
-    int64_t from = 0, to = (int64_t)src->length;
-    if (argc >= 2 && JS_IsNumber(argv[1])) {
-      JS_ToInt64(ctx, &from, argv[1]);
-      if (from < 0) from = 0;
-    }
-    if (argc >= 3 && JS_IsNumber(argv[2])) {
-      JS_ToInt64(ctx, &to, argv[2]);
-      if (to < from) to = from;
-      if (to > (int64_t)src->length) to = (int64_t)src->length;
-    }
-    bd = blob_new_from_blob(src, (size_t)from, (size_t)to);
-  }
-  // else fail
-  else {
-    return JS_ThrowTypeError(ctx, "Blob constructor: invalid arguments");
-  }
-
-  if (!bd) {
-    return JS_ThrowOutOfMemory(ctx);
-  }
-
-  return blob2js(ctx, bd);
-}
-
-// blob.write_bit(logical)
-static JSValue js_blob_write_bit(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  if (argc < 1) {
-    return JS_ThrowTypeError(ctx, "write_bit(logical) requires 1 argument");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "write_bit: not called on a blob");
-  }
-  
-  // Handle numeric 0/1 or boolean
-  int bit_val;
-  if (JS_IsNumber(argv[0])) {
-    int32_t num;
-    JS_ToInt32(ctx, &num, argv[0]);
-    if (num != 0 && num != 1) {
-      return JS_ThrowTypeError(ctx, "write_bit: value must be true, false, 0, or 1");
-    }
-    bit_val = num;
-  } else {
-    bit_val = JS_ToBool(ctx, argv[0]);
-  }
-  
-  if (blob_write_bit(bd, bit_val) < 0) {
-    return JS_ThrowTypeError(ctx, "write_bit: cannot write (maybe stone or OOM)");
-  }
-  return JS_NULL;
-}
-
-// blob.write_blob(second_blob)
-static JSValue js_blob_write_blob(JSContext *ctx, JSValueConst this_val,
-                                  int argc, JSValueConst *argv) {
-  if (argc < 1) {
-    return JS_ThrowTypeError(ctx, "write_blob(second_blob) requires 1 argument");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "write_blob: not called on a blob");
-  }
-  blob *second = js2blob(ctx, argv[0]);
-  if (!second) {
-    return JS_ThrowTypeError(ctx, "write_blob: argument must be a blob");
-  }
-  
-  if (blob_write_blob(bd, second) < 0) {
-    return JS_ThrowTypeError(ctx, "write_blob: cannot write to stone blob or OOM");
-  }
-  
-  return JS_NULL;
-}
-
-// blob.write_dec64(number)
-static JSValue js_blob_write_number(JSContext *ctx, JSValueConst this_val,
-                                   int argc, JSValueConst *argv) {
-  if (argc < 1) {
-    return JS_ThrowTypeError(ctx, "write_dec64(number) requires 1 argument");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd)
-    return JS_ThrowTypeError(ctx, "write_dec64: not called on a blob");
-  
-  // Get the number as a double and convert to DEC64
-  double d;
-  if (JS_ToFloat64(ctx, &d, argv[0]) < 0)
-    return JS_EXCEPTION;
-  
-  if (blob_write_dec64(bd, d) < 0)
-    return JS_ThrowTypeError(ctx, "write_dec64: cannot write to stone blob or OOM");
-  
-  return JS_NULL;
-}
-
-// blob.w16(value) - write a 16-bit value (short)
-static JSValue js_blob_w16(JSContext *ctx, JSValueConst this_val,
-                           int argc, JSValueConst *argv) {
-  if (argc < 1)
-    return JS_ThrowTypeError(ctx, "w16(value) requires 1 argument");
-  
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd)
-    return JS_ThrowTypeError(ctx, "w16: not called on a blob");
-  
-  int32_t value;
-  if (JS_ToInt32(ctx, &value, argv[0]) < 0) return JS_EXCEPTION;
-  
-  int16_t short_val = (int16_t)value;
-  if (blob_write_bytes(bd, &short_val, sizeof(int16_t)) < 0)
-    return JS_ThrowTypeError(ctx, "w16: cannot write to stone blob or OOM");
-  
-  return JS_NULL;
-}
-
-// blob.wf(value) - write a float (32-bit)
-static JSValue js_blob_wf(JSContext *ctx, JSValueConst this_val,
-                          int argc, JSValueConst *argv) {
-  if (argc < 1)
-    return JS_ThrowTypeError(ctx, "wf(value) requires 1 argument");
-  
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd)
-    return JS_ThrowTypeError(ctx, "wf: not called on a blob");
-  
-  double d;
-  if (JS_ToFloat64(ctx, &d, argv[0]) < 0) return JS_EXCEPTION;
-  
-  float f = (float)d;
-  if (blob_write_bytes(bd, &f, sizeof(float)) < 0)
-    return JS_ThrowTypeError(ctx, "wf: cannot write to stone blob or OOM");
-  
-  return JS_NULL;
-}
-
-// blob.write_fit(value, len)
-static JSValue js_blob_write_fit(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  if (argc < 2)
-    return JS_ThrowTypeError(ctx, "write_fit(value, len) requires 2 arguments");
-    
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd)
-    return JS_ThrowTypeError(ctx, "write_fit: not called on a blob");
-  
-  int64_t value;
-  int32_t len;
-  
-  if (JS_ToInt64(ctx, &value, argv[0]) < 0) return JS_EXCEPTION;
-  if (JS_ToInt32(ctx, &len, argv[1]) < 0) return JS_EXCEPTION;
-  
-  if (blob_write_fit(bd, value, len) < 0) {
-    return JS_ThrowTypeError(ctx, "write_fit: value doesn't fit in specified bits, stone blob, or OOM");
-  }
-  
-  return JS_NULL;
-}
-
-// blob.write_kim(fit)
-static JSValue js_blob_write_text(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  if (argc < 1)
-    return JS_ThrowTypeError(ctx, "write_kim(fit) requires 1 argument");
-    
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd)
-    return JS_ThrowTypeError(ctx, "write_kim: not called on a blob");
-  
-  // Handle number or single character string
-  const char *str = JS_ToCString(ctx, argv[0]);
-
-  if (blob_write_text(bd, str) < 0) {
-    JS_FreeCString(ctx,str);
-    return JS_ThrowTypeError(ctx, "write_kim: cannot write to stone blob or OOM");
-  }
-  
-  JS_FreeCString(ctx,str);
-  return JS_NULL;
-}
-
-// blob.write_pad(block_size)
-static JSValue js_blob_write_pad(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  if (argc < 1) 
-    return JS_ThrowTypeError(ctx, "write_pad(block_size) requires 1 argument");
-
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) 
-    return JS_ThrowTypeError(ctx, "write_pad: not called on a blob");
-  
-  int32_t block_size;
-  if (JS_ToInt32(ctx, &block_size, argv[0]) < 0) return JS_EXCEPTION;
-  
-  if (blob_write_pad(bd, block_size) < 0)
-    return JS_ThrowTypeError(ctx, "write_pad: cannot write (stone blob, OOM, or invalid block size)");
-  
-  return JS_NULL;
-}
-
-// blob.read_logical(from)
-static JSValue js_blob_read_logical(JSContext *ctx, JSValueConst this_val,
-                                    int argc, JSValueConst *argv) {
-  if (argc < 1) {
-    return JS_ThrowTypeError(ctx, "read_logical(from) requires 1 argument");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "read_logical: not called on a blob");
-  }
-  int64_t pos;
-  if (JS_ToInt64(ctx, &pos, argv[0]) < 0) {
-    return JS_ThrowInternalError(ctx, "must provide a positive bit");
-  }
-  if (pos < 0) {
-    return JS_ThrowRangeError(ctx, "read_logical: position must be non-negative");
-  }
-  int bit_val;
-  if (blob_read_bit(bd, (size_t)pos, &bit_val) < 0) {
-    return JS_ThrowTypeError(ctx, "read_logical: blob must be stone");
-  }
-  return JS_NewBool(ctx, bit_val);
-}
-
-// blob.read_blob(from, to)
-static JSValue js_blob_read_blob(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "read_blob: not called on a blob");
-  }
-  
-  if (!bd->is_stone) {
-    return JS_ThrowTypeError(ctx, "read_blob: blob must be stone");
-  }
-  
-  int64_t from = 0;
-  int64_t to = bd->length;
-  
-  if (argc >= 1) {
-    if (JS_ToInt64(ctx, &from, argv[0]) < 0) return JS_EXCEPTION;
-    if (from < 0) from = 0;
-  }
-  if (argc >= 2) {
-    if (JS_ToInt64(ctx, &to, argv[1]) < 0) return JS_EXCEPTION;
-    if (to > (int64_t)bd->length) to = bd->length;
-  }
-  
-  blob *new_bd = blob_read_blob(bd, from, to);
-  if (!new_bd) {
-    return JS_ThrowOutOfMemory(ctx);
-  }
-
-  return blob2js(ctx, new_bd);
-}
-
-// blob.read_dec64(from)
-static JSValue js_blob_read_number(JSContext *ctx, JSValueConst this_val,
-                                  int argc, JSValueConst *argv) {
-  if (argc < 1) {
-    return JS_ThrowTypeError(ctx, "read_dec64(from) requires 1 argument");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "read_number: not called on a blob");
-  }
-  
-  if (!bd->is_stone) {
-    return JS_ThrowTypeError(ctx, "read_number: blob must be stone");
-  }
-  
-  double from;
-  if (JS_ToFloat64(ctx, &from, argv[0]) < 0) return JS_EXCEPTION;
-  
-  if (from < 0) return JS_ThrowRangeError(ctx, "read_number: position must be non-negative");
-  
-  double d;
-  if (blob_read_dec64(bd, from, &d) < 0) {
-    return JS_ThrowRangeError(ctx, "read_number: out of range");
-  }
-  
-  return JS_NewFloat64(ctx, d);
-}
-
-// blob.read_fit(from, len)
-static JSValue js_blob_read_fit(JSContext *ctx, JSValueConst this_val,
-                                int argc, JSValueConst *argv) {
-  if (argc < 2) {
-    return JS_ThrowTypeError(ctx, "read_fit(from, len) requires 2 arguments");
-  }
-  
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "read_fit: not called on a blob");
-  }
-  
-  if (!bd->is_stone) {
-    return JS_ThrowTypeError(ctx, "read_fit: blob must be stone");
-  }
-  
-  int64_t from;
-  int32_t len;
-  
-  if (JS_ToInt64(ctx, &from, argv[0]) < 0) return JS_EXCEPTION;
-  if (JS_ToInt32(ctx, &len, argv[1]) < 0) return JS_EXCEPTION;
-  
-  if (from < 0) {
-    return JS_ThrowRangeError(ctx, "read_fit: position must be non-negative");
-  }
-  
-  int64_t value;
-  if (blob_read_fit(bd, from, len, &value) < 0) {
-    return JS_ThrowRangeError(ctx, "read_fit: out of range or invalid length");
-  }
-  
-  return JS_NewInt64(ctx, value);
-}
-
-// blob.read_text(from)
-static JSValue js_blob_read_text(JSContext *ctx, JSValueConst this_val,
-                                 int argc, JSValueConst *argv) {
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "read_text: not called on a blob");
-  }
-  
-  if (!bd->is_stone) {
-    return JS_ThrowTypeError(ctx, "read_text: blob must be stone");
-  }
-  
-  int64_t from;
-  if (JS_ToInt64(ctx, &from, argv[0]) < 0) return JS_EXCEPTION;
-  
-  char *text;
-  size_t bits_read;
-  if (blob_read_text(bd, from, &text, &bits_read) < 0) {
-    return JS_ThrowRangeError(ctx, "read_text: out of range or invalid encoding");
-  }
-  
-  JSValue result = JS_NewString(ctx, text);
-  free(text);
-  
-  return result;
-}
-
-// blob.pad?(from, block_size)
-static JSValue js_blob_pad_q(JSContext *ctx, JSValueConst this_val,
-                             int argc, JSValueConst *argv) {
-  if (argc < 2) {
-    return JS_ThrowTypeError(ctx, "pad?(from, block_size) requires 2 arguments");
-  }
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "pad?: not called on a blob");
-  }
-  
-  if (!bd->is_stone) {
-    return JS_ThrowTypeError(ctx, "pad?: blob must be stone");
-  }
-  
-  int64_t from;
-  int32_t block_size;
-  if (JS_ToInt64(ctx, &from, argv[0]) < 0) return JS_EXCEPTION;
-  if (JS_ToInt32(ctx, &block_size, argv[1]) < 0) return JS_EXCEPTION;
-  
-  return JS_NewBool(ctx, blob_pad_check(bd, from, block_size));
-}
-
-// blob.stone()
-static JSValue js_blob_stone(JSContext *ctx, JSValueConst this_val,
-                             int argc, JSValueConst *argv) {
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "stone: not called on a blob");
-  }
-  if (!bd->is_stone) {
-    blob_make_stone(bd);
-  }
-  return JS_NULL;
-}
-
-static JSValue js_blob_stonep(JSContext *ctx, JSValueConst this_val,
-                             int argc, JSValueConst *argv) {
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "stone: not called on a blob");
-  }
-  return JS_NewBool(ctx, bd->is_stone);
-}
-
-// blob.length getter
-// Return number of bits in the blob
-static JSValue js_blob_get_length(JSContext *ctx, JSValueConst this_val, int magic) {
-  blob *bd = js2blob(ctx, this_val);
-  if (!bd) {
-    return JS_ThrowTypeError(ctx, "length: not called on a blob");
-  }
-  return JS_NewInt64(ctx, bd->length);
-}
-
-// -----------------------------------------------------------------------------
-// Exports list
-// -----------------------------------------------------------------------------
-
-static const JSCFunctionListEntry js_blob_funcs[] = {
-    // Write methods
-    JS_CFUNC_DEF("write_bit", 1, js_blob_write_bit),
-    JS_CFUNC_DEF("write_blob", 1, js_blob_write_blob),
-    JS_CFUNC_DEF("write_number", 1, js_blob_write_number),
-    JS_CFUNC_DEF("write_fit", 2, js_blob_write_fit),
-    JS_CFUNC_DEF("write_text", 1, js_blob_write_text),
-    JS_CFUNC_DEF("write_pad", 1, js_blob_write_pad),
-    JS_CFUNC_DEF("wf", 1, js_blob_wf),
-    JS_CFUNC_DEF("w16", 1, js_blob_w16),
-    
-    // Read methods
-    JS_CFUNC_DEF("read_logical", 1, js_blob_read_logical),
-    JS_CFUNC_DEF("read_blob", 2, js_blob_read_blob),
-    JS_CFUNC_DEF("read_number", 1, js_blob_read_number),
-    JS_CFUNC_DEF("read_fit", 2, js_blob_read_fit),
-    JS_CFUNC_DEF("read_text", 1, js_blob_read_text),
-    JS_CFUNC_DEF("pad?", 2, js_blob_pad_q),
-    
-    // Other methods
-    JS_CFUNC_DEF("stone", 0, js_blob_stone),
-    JS_CFUNC_DEF("stonep", 0, js_blob_stonep),
-    
-    // Length property getter
-    JS_CGETSET_DEF("length", js_blob_get_length, NULL),
-};
-
-JSValue js_blob_use(JSContext *js) {
-  return QJSCLASSPREP_FUNCS_CTOR(blob, 3);
-}
-
-JSValue js_new_blob_stoned_copy(JSContext *js, void *data, size_t bytes)
-{
-  blob *b = blob_new(bytes*8);
-  memcpy(b->data, data, bytes);
-  b->length = bytes * 8;  // Set the actual length in bits
-  blob_make_stone(b);
-
-  return blob2js(js, b);
-}
-
-void *js_get_blob_data(JSContext *js, size_t *size, JSValue v)
-{
-  blob *b = js2blob(js, v);
-  if (!b) {
-    JS_ThrowReferenceError(js, "get_blob_data: not called on a blob");
-    return -1;
-  }
-
-  if (!b->is_stone) {
-    JS_ThrowReferenceError(js, "attempted to read data from a non-stone blob");
-    return -1;
-  }
-
-  if (b->length % 8 != 0) {
-    JS_ThrowReferenceError(js, "attempted to read data from a non-byte aligned blob [length is %d]", b->length);
-    return -1;
-  }
-
-  *size = (b->length + 7) / 8;  // Return actual byte size based on bit length
-
-  return b->data;
-}
-
-void *js_get_blob_data_bits(JSContext *js, size_t *bits, JSValue v)
-{
-  blob *b = js2blob(js, v);
-  if (!b) {
-    JS_ThrowReferenceError(js, "get_blob_data_bits: not called on a blob");
-    return -1;
-  }
-  if (!b->is_stone) {
-    JS_ThrowReferenceError(js, "attempted to read data from a non-stone blob");
-    return -1;
-  }
-    
-  if (!b->data) {
-    JS_ThrowReferenceError(js, "attempted to read data from an empty blob");
-    return -1;
-  }
-
-  if (b->length % 8 != 0) {
-    JS_ThrowReferenceError(js, "attempted to read data from a non-byte aligned blob");
-    return -1;
-  }
-
-  if (b->length == 0) {
-    JS_ThrowReferenceError(js, "attempted to read data from an empty blob");
-    return -1;
-  }
-
-  *bits = b->length;
-  return b->data;
-}
-
-int js_is_blob(JSContext *js, JSValue v)
-{
-  blob *b = js2blob(js,v);
-  if (b) return 1;
-  return 0;
-}

source/qjs_wota.c

@@ -88,7 +88,7 @@ static void encode_object_properties(WotaEncodeContext *enc, JSValueConst val, J
   
   for (uint32_t i = 0; i < plen; i++) {
     JSValue prop_val = JS_GetProperty(ctx, val, ptab[i].atom);
-    if (!JS_IsFunction(ctx, prop_val)) {
+    if (!JS_IsFunction(prop_val)) {
       atoms[non_function_count] = ptab[i].atom;
       props[non_function_count++] = prop_val;
     } else
@@ -128,8 +128,7 @@ static void wota_encode_value(WotaEncodeContext *enc, JSValueConst val, JSValueC
       wota_write_int_word(&enc->wb, d);
       break;
     }
-    case JS_TAG_FLOAT64:
-    case JS_TAG_BIG_INT: {
+    case JS_TAG_FLOAT64: {
       double d;
       if (JS_ToFloat64(ctx, &d, replaced) < 0) {
         wota_write_sym(&enc->wb, WOTA_NULL);
@@ -186,7 +185,8 @@ static void wota_encode_value(WotaEncodeContext *enc, JSValueConst val, JSValueC
         break;
       }
       cell_rt *crt = JS_GetContextOpaque(ctx);
-      JSValue adata = JS_GetProperty(ctx, replaced, crt->actor_sym);
+//      JSValue adata = JS_GetProperty(ctx, replaced, crt->actor_sym);
+      JSValue adata = JS_NULL;
       if (!JS_IsNull(adata)) {
         wota_write_sym(&enc->wb, WOTA_PRIVATE);
         wota_encode_value(enc, adata, replaced, JS_ATOM_NULL);
@@ -200,7 +200,7 @@ static void wota_encode_value(WotaEncodeContext *enc, JSValueConst val, JSValueC
       }
       wota_stack_push(enc, replaced);
       JSValue to_json = JS_GetPropertyStr(ctx, replaced, "toJSON");
-      if (JS_IsFunction(ctx, to_json)) {
+      if (JS_IsFunction(to_json)) {
         JSValue result = JS_Call(ctx, to_json, replaced, 0, NULL);
         JS_FreeValue(ctx, to_json);
         if (!JS_IsException(result)) {
@@ -248,7 +248,7 @@ static char *decode_wota_value(JSContext *ctx, char *data_ptr, JSValue *out_val,
         data_ptr = decode_wota_value(ctx, data_ptr, &inner, holder, JS_ATOM_NULL, reviver);
         JSValue obj = JS_NewObject(ctx);
         cell_rt *crt = JS_GetContextOpaque(ctx);
-        JS_SetProperty(ctx, obj, crt->actor_sym, inner);
+//        JS_SetProperty(ctx, obj, crt->actor_sym, inner);
         *out_val = obj;
       } else if (scode == WOTA_NULL) *out_val = JS_NULL;
       else if (scode == WOTA_FALSE) *out_val = JS_NewBool(ctx, 0);
@@ -274,8 +274,7 @@ static char *decode_wota_value(JSContext *ctx, char *data_ptr, JSValue *out_val,
     case WOTA_ARR: {
       long long c;
       data_ptr = wota_read_array(&c, data_ptr);
-      JSValue arr = JS_NewArray(ctx);
-      JS_SetLength(ctx, arr, c);
+      JSValue arr = JS_NewArrayLen(ctx, c);
       for (long long i = 0; i < c; i++) {
         JSValue elem_val = JS_NULL;
         JSAtom idx_atom = JS_NewAtomUInt32(ctx, (uint32_t)i);
@@ -360,7 +359,7 @@ static JSValue js_wota_encode(JSContext *ctx, JSValueConst this_val, int argc, J
 {
   if (argc < 1) return JS_ThrowTypeError(ctx, "wota.encode requires at least 1 argument");
   size_t total_bytes;
-  void *wota = value2wota(ctx, argv[0], JS_IsFunction(ctx,argv[1]) ? argv[1] : JS_NULL, &total_bytes);
+  void *wota = value2wota(ctx, argv[0], JS_IsFunction(argv[1]) ? argv[1] : JS_NULL, &total_bytes);
   JSValue ret = js_new_blob_stoned_copy(ctx, wota, total_bytes);
   free(wota);
   return ret;
@@ -373,7 +372,7 @@ static JSValue js_wota_decode(JSContext *ctx, JSValueConst this_val, int argc, J
   uint8_t *buf = js_get_blob_data(ctx, &len, argv[0]);
   if (buf == (uint8_t *)-1) return JS_EXCEPTION;
   if (!buf || len == 0) return JS_ThrowTypeError(ctx, "No blob data present");
-  JSValue reviver = (argc > 1 && JS_IsFunction(ctx, argv[1])) ? argv[1] : JS_NULL;
+  JSValue reviver = (argc > 1 && JS_IsFunction(argv[1])) ? argv[1] : JS_NULL;
   char *data_ptr = (char *)buf;
   JSValue result = JS_NULL;
   JSValue holder = JS_NewObject(ctx);

source/quickjs-atom.h

@@ -32,15 +32,14 @@ DEF(true, "true")
 DEF(if, "if")
 DEF(else, "else")
 DEF(return, "return")
+DEF(go, "go")
 DEF(var, "var")
 DEF(def, "def")
 DEF(this, "this")
 DEF(delete, "delete")
 DEF(void, "void")
-DEF(typeof, "typeof")
 DEF(new, "new")
 DEF(in, "in")
-DEF(instanceof, "instanceof")
 DEF(do, "do")
 DEF(while, "while")
 DEF(for, "for")

source/quickjs-opcode.h

@@ -75,7 +75,6 @@ DEF(     push_false, 1, 0, 1, none)
 DEF(      push_true, 1, 0, 1, none)
 DEF(         object, 1, 0, 1, none)
 DEF( special_object, 2, 0, 1, u8) /* only used at the start of a function */
-DEF(           rest, 3, 0, 1, u16) /* only used at the start of a function */
 
 DEF(           drop, 1, 1, 0, none) /* a -> */
 DEF(            nip, 1, 2, 1, none) /* a b -> b */
@@ -97,19 +96,16 @@ DEF(          rot3r, 1, 3, 3, none) /* a b x -> x a b */
 DEF(          rot4l, 1, 4, 4, none) /* x a b c -> a b c x */
 DEF(          rot5l, 1, 5, 5, none) /* x a b c d -> a b c d x */
 
-DEF(call_constructor, 3, 2, 1, npop) /* func new.target args -> ret. arguments are not counted in n_pop */
 DEF(           call, 3, 1, 1, npop) /* arguments are not counted in n_pop */
 DEF(      tail_call, 3, 1, 0, npop) /* arguments are not counted in n_pop */
 DEF(    call_method, 3, 2, 1, npop) /* arguments are not counted in n_pop */
 DEF(tail_call_method, 3, 2, 0, npop) /* arguments are not counted in n_pop */
 DEF(     array_from, 3, 0, 1, npop) /* arguments are not counted in n_pop */
-DEF(          apply, 3, 3, 1, u16)
 DEF(         return, 1, 1, 0, none)
 DEF(   return_undef, 1, 0, 0, none)
 DEF(          throw, 1, 1, 0, none)
 DEF(    throw_error, 6, 0, 0, atom_u8)
 DEF(           eval, 5, 1, 1, npop_u16) /* func args... -> ret_val */
-DEF(     apply_eval, 3, 2, 1, u16) /* func array -> ret_eval */
 DEF(         regexp, 1, 2, 1, none) /* create a RegExp object from the pattern and a
                                        bytecode string */
 
@@ -136,9 +132,7 @@ DEF(   put_array_el, 1, 3, 0, none)
 DEF(   define_field, 5, 2, 1, atom)
 DEF(       set_name, 5, 1, 1, atom)
 DEF(set_name_computed, 1, 2, 2, none)
-DEF(      set_proto, 1, 2, 1, none)
 DEF(define_array_el, 1, 3, 2, none)
-DEF(         append, 1, 3, 2, none) /* append enumerated object, update length */
 DEF(copy_data_properties, 2, 3, 3, u8)
 DEF(  define_method, 6, 2, 1, atom_u8)
 DEF(define_method_computed, 2, 3, 1, u8) /* must come after define_method */
@@ -180,16 +174,6 @@ DEF(   make_arg_ref, 7, 0, 2, atom_u16)
 DEF(make_var_ref_ref, 7, 0, 2, atom_u16)
 DEF(   make_var_ref, 5, 0, 2, atom)
 
-DEF(   for_in_start, 1, 1, 1, none)
-DEF(   for_of_start, 1, 1, 3, none)
-DEF(    for_in_next, 1, 1, 3, none)
-DEF(    for_of_next, 2, 3, 5, u8)
-DEF(iterator_check_object, 1, 1, 1, none)
-DEF(iterator_get_value_done, 1, 2, 3, none) /* catch_offset obj -> catch_offset value done */
-DEF( iterator_close, 1, 3, 0, none)
-DEF(  iterator_next, 1, 4, 4, none)
-DEF(  iterator_call, 2, 4, 5, u8)
-
 /* arithmetic/logic operations */
 DEF(            neg, 1, 1, 1, none)
 DEF(           plus, 1, 1, 1, none)
@@ -202,15 +186,18 @@ DEF(        inc_loc, 2, 0, 0, loc8)
 DEF(        add_loc, 2, 1, 0, loc8)
 DEF(            not, 1, 1, 1, none)
 DEF(           lnot, 1, 1, 1, none)
-DEF(         typeof, 1, 1, 1, none)
 DEF(         delete, 1, 2, 1, none)
 DEF(     delete_var, 5, 0, 1, atom)
 
 DEF(            mul, 1, 2, 1, none)
+DEF(      mul_float, 1, 2, 1, none)
 DEF(            div, 1, 2, 1, none)
+DEF(      div_float, 1, 2, 1, none)
 DEF(            mod, 1, 2, 1, none)
 DEF(            add, 1, 2, 1, none)
+DEF(      add_float, 1, 2, 1, none)
 DEF(            sub, 1, 2, 1, none)
+DEF(      sub_float, 1, 2, 1, none)
 DEF(            pow, 1, 2, 1, none)
 DEF(            shl, 1, 2, 1, none)
 DEF(            sar, 1, 2, 1, none)
@@ -219,15 +206,15 @@ DEF(             lt, 1, 2, 1, none)
 DEF(            lte, 1, 2, 1, none)
 DEF(             gt, 1, 2, 1, none)
 DEF(            gte, 1, 2, 1, none)
-DEF(     instanceof, 1, 2, 1, none)
 DEF(             in, 1, 2, 1, none)
-DEF(             eq, 1, 2, 1, none)
-DEF(            neq, 1, 2, 1, none)
 DEF(      strict_eq, 1, 2, 1, none)
 DEF(     strict_neq, 1, 2, 1, none)
 DEF(            and, 1, 2, 1, none)
 DEF(            xor, 1, 2, 1, none)
 DEF(             or, 1, 2, 1, none)
+/* template literal concatenation - pops N parts, pushes concatenated string */
+DEF(template_concat, 3, 0, 1, npop_u16)
+
 /* must be the last non short and non temporary opcode */
 DEF(            nop, 1, 0, 0, none)
 
@@ -311,8 +298,6 @@ DEF(   set_var_ref1, 1, 1, 1, none_var_ref)
 DEF(   set_var_ref2, 1, 1, 1, none_var_ref)
 DEF(   set_var_ref3, 1, 1, 1, none_var_ref)
 
-DEF(     get_length, 1, 1, 1, none)
-
 DEF(      if_false8, 2, 1, 0, label8)
 DEF(       if_true8, 2, 1, 0, label8) /* must come after if_false8 */
 DEF(          goto8, 2, 0, 0, label8) /* must come after if_true8 */
@@ -324,7 +309,6 @@ DEF(          call2, 1, 1, 1, npopx)
 DEF(          call3, 1, 1, 1, npopx)
 
 DEF(        is_null, 1, 1, 1, none)
-DEF( typeof_is_function, 1, 1, 1, none)
 #endif
 
 #undef DEF

source/quickjs.h

@@ -74,11 +74,12 @@ typedef uint32_t JSAtom;
     
 enum {
     /* all tags with a reference count are negative */
-    JS_TAG_FIRST       = -9, /* first negative tag */
-    JS_TAG_BIG_INT     = -9,
-    JS_TAG_SYMBOL      = -8,
-    JS_TAG_STRING      = -7,
-    JS_TAG_STRING_ROPE = -6,
+    JS_TAG_FIRST       = -10, /* first negative tag */
+    JS_TAG_SYMBOL      = -9,
+    JS_TAG_STRING      = -8,
+    JS_TAG_STRING_ROPE = -7,
+    JS_TAG_ARRAY       = -6, /* intrinsic array type */
+    JS_TAG_FUNCTION    = -5, /* intrinsic function type */
     JS_TAG_MODULE      = -3, /* used internally */
     JS_TAG_FUNCTION_BYTECODE = -2, /* used internally */
     JS_TAG_OBJECT      = -1,
@@ -86,7 +87,6 @@ enum {
     JS_TAG_INT         = 0,
     JS_TAG_BOOL        = 1,
     JS_TAG_NULL        = 2,
-    // TAG_UNDEFINED
     JS_TAG_UNINITIALIZED = 4,
     JS_TAG_CATCH_OFFSET = 5,
     JS_TAG_EXCEPTION   = 6,
@@ -272,36 +272,12 @@ static inline JS_BOOL JS_VALUE_IS_NAN(JSValue v)
 #define JS_EXCEPTION JS_MKVAL(JS_TAG_EXCEPTION, 0)
 #define JS_UNINITIALIZED JS_MKVAL(JS_TAG_UNINITIALIZED, 0)
 
-/* flags for object properties */
-#define JS_PROP_CONFIGURABLE  (1 << 0)
-#define JS_PROP_WRITABLE      (1 << 1)
-#define JS_PROP_ENUMERABLE    (1 << 2)
-#define JS_PROP_C_W_E         (JS_PROP_CONFIGURABLE | JS_PROP_WRITABLE | JS_PROP_ENUMERABLE)
-#define JS_PROP_LENGTH        (1 << 3) /* used internally in Arrays */
-#define JS_PROP_TMASK         (3 << 4) /* mask for NORMAL, GETSET, VARREF, AUTOINIT */
+/* flags for object properties - simplified model:
+   - No per-property writable/configurable (use stone() for immutability)
+   - Text keys are enumerable, object keys are not */
+#define JS_PROP_TMASK         (3 << 4) /* mask for NORMAL, VARREF */
 #define JS_PROP_NORMAL         (0 << 4)
-#define JS_PROP_GETSET         (1 << 4)
-#define JS_PROP_VARREF         (2 << 4) /* used internally */
-#define JS_PROP_AUTOINIT       (3 << 4) /* used internally */
-
-/* flags for JS_DefineProperty */
-#define JS_PROP_HAS_SHIFT        8
-#define JS_PROP_HAS_CONFIGURABLE (1 << 8)
-#define JS_PROP_HAS_WRITABLE     (1 << 9)
-#define JS_PROP_HAS_ENUMERABLE   (1 << 10)
-#define JS_PROP_HAS_GET          (1 << 11)
-#define JS_PROP_HAS_SET          (1 << 12)
-#define JS_PROP_HAS_VALUE        (1 << 13)
-
-/* throw an exception if false would be returned
-   (JS_DefineProperty/JS_SetProperty) */
-#define JS_PROP_THROW            (1 << 14)
-/* throw an exception if false would be returned in strict mode
-   (JS_SetProperty) */
-#define JS_PROP_THROW_STRICT     (1 << 15)
-
-#define JS_PROP_NO_ADD           (1 << 16) /* internal use */
-#define JS_PROP_NO_EXOTIC        (1 << 17) /* internal use */
+#define JS_PROP_VARREF         (2 << 4) /* used internally for closures */
 
 #ifndef JS_DEFAULT_STACK_SIZE
 #define JS_DEFAULT_STACK_SIZE (1024 * 1024)
@@ -340,6 +316,9 @@ typedef struct JSMallocFunctions {
 
 typedef struct JSGCObjectHeader JSGCObjectHeader;
 
+JSValue JS_Stone(JSContext *ctx, JSValueConst this_val);
+int JS_IsStone(JSContext *ctx, JSValueConst val);
+
 JSRuntime *JS_NewRuntime(void);
 /* info lifetime must exceed that of rt */
 void JS_SetRuntimeInfo(JSRuntime *rt, const char *info);
@@ -374,12 +353,9 @@ JSValue JS_GetClassProto(JSContext *ctx, JSClassID class_id);
 JSContext *JS_NewContextRaw(JSRuntime *rt);
 void JS_AddIntrinsicBaseObjects(JSContext *ctx);
 void JS_AddIntrinsicEval(JSContext *ctx);
-void JS_AddIntrinsicStringNormalize(JSContext *ctx);
 void JS_AddIntrinsicRegExpCompiler(JSContext *ctx);
 void JS_AddIntrinsicRegExp(JSContext *ctx);
 void JS_AddIntrinsicJSON(JSContext *ctx);
-void JS_AddIntrinsicProxy(JSContext *ctx);
-void JS_AddIntrinsicMapSet(JSContext *ctx);
 
 JSValue js_string_codePointRange(JSContext *ctx, JSValueConst this_val,
                                  int argc, JSValueConst *argv);
@@ -443,33 +419,9 @@ typedef struct JSPropertyEnum {
     JSAtom atom;
 } JSPropertyEnum;
 
-typedef struct JSPropertyDescriptor {
-    int flags;
-    JSValue value;
-    JSValue getter;
-    JSValue setter;
-} JSPropertyDescriptor;
-
-typedef struct JSClassExoticMethods {
-    /* Return -1 if exception (can only happen in case of Proxy object),
-       FALSE if the property does not exists, TRUE if it exists. If 1 is
-       returned, the property descriptor 'desc' is filled if != NULL. */
-    int (*get_own_property)(JSContext *ctx, JSPropertyDescriptor *desc,
-                             JSValueConst obj, JSAtom prop);
-
-    /* return < 0 if exception, or TRUE/FALSE */
-    int (*delete_property)(JSContext *ctx, JSValueConst obj, JSAtom prop);
-    /* return < 0 if exception or TRUE/FALSE */
-    int (*define_own_property)(JSContext *ctx, JSValueConst this_obj,
-                               JSAtom prop, JSValueConst val,
-                               JSValueConst getter, JSValueConst setter,
-                               int flags);
-} JSClassExoticMethods;
-
 typedef void JSClassFinalizer(JSRuntime *rt, JSValue val);
 typedef void JSClassGCMark(JSRuntime *rt, JSValueConst val,
                            JS_MarkFunc *mark_func);
-#define JS_CALL_FLAG_CONSTRUCTOR (1 << 0)
 typedef JSValue JSClassCall(JSContext *ctx, JSValueConst func_obj,
                             JSValueConst this_val, int argc, JSValueConst *argv,
                             int flags);
@@ -478,15 +430,8 @@ typedef struct JSClassDef {
     const char *class_name;
     JSClassFinalizer *finalizer;
     JSClassGCMark *gc_mark;
-    /* if call != NULL, the object is a function. If (flags &
-       JS_CALL_FLAG_CONSTRUCTOR) != 0, the function is called as a
-       constructor. In this case, 'this_val' is new.target. A
-       constructor call only happens if the object constructor bit is
-       set (see JS_SetConstructorBit()). */
+    /* if call != NULL, the object is a function */
     JSClassCall *call;
-    /* XXX: suppress this indirection ? It is here only to save memory
-       because only a few classes need these methods */
-    JSClassExoticMethods *exotic;
 } JSClassDef;
 
 #define JS_INVALID_CLASS_ID 0
@@ -588,15 +533,31 @@ static inline JS_BOOL JS_IsString(JSValueConst v)
         JS_VALUE_GET_TAG(v) == JS_TAG_STRING_ROPE;
 }
 
+static inline JS_BOOL JS_IsText(JSValueConst v) { return JS_IsString(v); }
+
 static inline JS_BOOL JS_IsSymbol(JSValueConst v)
 {
     return JS_VALUE_GET_TAG(v) == JS_TAG_SYMBOL;
 }
 
+static inline JS_BOOL JS_IsFunction(JSValueConst v)
+{
+    return JS_VALUE_GET_TAG(v) == JS_TAG_FUNCTION;
+}
+
+static inline JS_BOOL JS_IsInteger(JSValueConst v)
+{
+    return JS_VALUE_GET_TAG(v) == JS_TAG_INT;
+}
+
 static inline JS_BOOL JS_IsObject(JSValueConst v)
 {
     return JS_VALUE_GET_TAG(v) == JS_TAG_OBJECT;
 }
+int JS_IsArray(JSContext *ctx, JSValueConst val);
+
+// Fundamental
+int JS_GetLength(JSContext *ctx, JSValueConst obj, int64_t *pres);
 
 JSValue JS_Throw(JSContext *ctx, JSValue obj);
 void JS_SetUncatchableException(JSContext *ctx, JS_BOOL flag);
@@ -690,14 +651,10 @@ JSValue JS_NewObjectClass(JSContext *ctx, int class_id);
 JSValue JS_NewObjectProto(JSContext *ctx, JSValueConst proto);
 JSValue JS_NewObject(JSContext *ctx);
 
-JS_BOOL JS_IsFunction(JSContext* ctx, JSValueConst val);
-JS_BOOL JS_IsConstructor(JSContext* ctx, JSValueConst val);
-JS_BOOL JS_SetConstructorBit(JSContext *ctx, JSValueConst func_obj, JS_BOOL val);
-
 JSValue JS_NewArray(JSContext *ctx);
-int JS_IsArray(JSContext *ctx, JSValueConst val);
-int JS_GetLength(JSContext *ctx, JSValueConst obj, int64_t *pres);
-int JS_SetLength(JSContext *ctx, JSValueConst obj, int64_t len);
+JSValue JS_NewArrayLen(JSContext *ctx, uint32_t len);
+int JS_ArrayPush(JSContext *ctx, JSValueConst obj, JSValueConst val);
+JSValue JS_ArrayPop(JSContext *ctx, JSValueConst obj);
 
 JSValue JS_GetPropertyInternal(JSContext *ctx, JSValueConst obj,
                                JSAtom prop, JSValueConst receiver,
@@ -707,56 +664,40 @@ static js_force_inline JSValue JS_GetProperty(JSContext *ctx, JSValueConst this_
 {
     return JS_GetPropertyInternal(ctx, this_obj, prop, this_obj, 0);
 }
-JSValue JS_GetPropertyStr(JSContext *ctx, JSValueConst this_obj,
-                          const char *prop);
-JSValue JS_GetPropertyUint32(JSContext *ctx, JSValueConst this_obj,
-                             uint32_t idx);
 
-int JS_SetPropertyInternal(JSContext *ctx, JSValueConst obj,
-                           JSAtom prop, JSValue val, JSValueConst this_obj,
-                           int flags);
-static inline int JS_SetProperty(JSContext *ctx, JSValueConst this_obj,
-                                 JSAtom prop, JSValue val)
-{
-    return JS_SetPropertyInternal(ctx, this_obj, prop, val, this_obj, JS_PROP_THROW);
-}
-int JS_SetPropertyUint32(JSContext *ctx, JSValueConst this_obj,
-                         uint32_t idx, JSValue val);
-int JS_SetPropertyInt64(JSContext *ctx, JSValueConst this_obj,
-                        int64_t idx, JSValue val);
-int JS_SetPropertyStr(JSContext *ctx, JSValueConst this_obj,
-                      const char *prop, JSValue val);
+// For records
+JSValue JS_GetPropertyStr(JSContext *ctx, JSValueConst this_obj, const char *prop);
+int JS_SetPropertyStr(JSContext *ctx, JSValueConst this_obj, const char *prop, JSValue val);
+int JS_SetProperty(JSContext *ctx, JSValueConst this_obj, JSAtom prop, JSValue val);
+JSValue JS_GetPropertyKey(JSContext *ctx, JSValueConst this_obj, JSValueConst key);
+int JS_SetPropertyKey(JSContext *ctx, JSValueConst this_obj, JSValueConst key, JSValue val);
+
+// Must be an array
+JSValue JS_GetPropertyNumber(JSContext *ctx, JSValueConst this_obj, int idx);
+JSValue JS_GetPropertyUint32(JSContext *ctx, JSValueConst this_obj, uint32_t idx);
+int JS_SetPropertyUint32(JSContext *ctx, JSValueConst this_obj, uint32_t idx, JSValue val);
+int JS_SetPropertyInt64(JSContext *ctx, JSValueConst this_obj, int64_t idx, JSValue val);
+
 int JS_HasProperty(JSContext *ctx, JSValueConst this_obj, JSAtom prop);
-int JS_IsExtensible(JSContext *ctx, JSValueConst obj);
-int JS_PreventExtensions(JSContext *ctx, JSValueConst obj);
-int JS_DeleteProperty(JSContext *ctx, JSValueConst obj, JSAtom prop, int flags);
-int JS_SetPrototype(JSContext *ctx, JSValueConst obj, JSValueConst proto_val);
+int JS_DeleteProperty(JSContext *ctx, JSValueConst obj, JSAtom prop);
 JSValue JS_GetPrototype(JSContext *ctx, JSValueConst val);
 
+/* Get Own Property Names flags */
 #define JS_GPN_STRING_MASK  (1 << 0)
 #define JS_GPN_SYMBOL_MASK  (1 << 1)
 #define JS_GPN_PRIVATE_MASK (1 << 2)
-/* only include the enumerable properties */
 #define JS_GPN_ENUM_ONLY    (1 << 4)
-/* set theJSPropertyEnum.is_enumerable field */
 #define JS_GPN_SET_ENUM     (1 << 5)
 
 int JS_GetOwnPropertyNames(JSContext *ctx, JSPropertyEnum **ptab,
                            uint32_t *plen, JSValueConst obj, int flags);
 void JS_FreePropertyEnum(JSContext *ctx, JSPropertyEnum *tab,
                          uint32_t len);
-int JS_GetOwnProperty(JSContext *ctx, JSPropertyDescriptor *desc,
-                      JSValueConst obj, JSAtom prop);
 
 JSValue JS_Call(JSContext *ctx, JSValueConst func_obj, JSValueConst this_obj,
                 int argc, JSValueConst *argv);
 JSValue JS_Invoke(JSContext *ctx, JSValueConst this_val, JSAtom atom,
                   int argc, JSValueConst *argv);
-JSValue JS_CallConstructor(JSContext *ctx, JSValueConst func_obj,
-                           int argc, JSValueConst *argv);
-JSValue JS_CallConstructor2(JSContext *ctx, JSValueConst func_obj,
-                            JSValueConst new_target,
-                            int argc, JSValueConst *argv);
 /* 'input' must be zero terminated i.e. input[input_len] = '\0'. */
 JSValue JS_Eval(JSContext *ctx, const char *input, size_t input_len,
                 const char *filename, int eval_flags);
@@ -765,19 +706,6 @@ JSValue JS_EvalThis(JSContext *ctx, JSValueConst this_obj,
                     const char *input, size_t input_len,
                     const char *filename, int eval_flags);
 JSValue JS_GetGlobalObject(JSContext *ctx);
-int JS_IsInstanceOf(JSContext *ctx, JSValueConst val, JSValueConst obj);
-int JS_DefineProperty(JSContext *ctx, JSValueConst this_obj,
-                      JSAtom prop, JSValueConst val,
-                      JSValueConst getter, JSValueConst setter, int flags);
-int JS_DefinePropertyValue(JSContext *ctx, JSValueConst this_obj,
-                           JSAtom prop, JSValue val, int flags);
-int JS_DefinePropertyValueUint32(JSContext *ctx, JSValueConst this_obj,
-                                 uint32_t idx, JSValue val, int flags);
-int JS_DefinePropertyValueStr(JSContext *ctx, JSValueConst this_obj,
-                              const char *prop, JSValue val, int flags);
-int JS_DefinePropertyGetSet(JSContext *ctx, JSValueConst this_obj,
-                            JSAtom prop, JSValue getter, JSValue setter,
-                            int flags);
 void JS_SetOpaque(JSValue obj, void *opaque);
 void *JS_GetOpaque(JSValueConst obj, JSClassID class_id);
 void *JS_GetOpaque2(JSContext *ctx, JSValueConst obj, JSClassID class_id);
@@ -824,36 +752,37 @@ JSValue JS_ReadObject(JSContext *ctx, const uint8_t *buf, size_t buf_len,
 JSValue JS_EvalFunction(JSContext *ctx, JSValue fun_obj);
 
 /* C function definition */
-typedef enum JSCFunctionEnum {  /* XXX: should rename for namespace isolation */
+typedef enum JSCFunctionEnum {
     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,
+    /* Fixed-arity fast paths - no argc/argv overhead */
+    JS_CFUNC_0,      /* JSValue f(ctx, this_val) */
+    JS_CFUNC_1,      /* JSValue f(ctx, this_val, arg0) */
+    JS_CFUNC_2,      /* JSValue f(ctx, this_val, arg0, arg1) */
+    JS_CFUNC_3,      /* JSValue f(ctx, this_val, arg0, arg1, arg2) */
+    JS_CFUNC_4
 } JSCFunctionEnum;
 
+/* Fixed-arity C function types for fast paths */
+typedef JSValue JSCFunction0(JSContext *ctx, JSValueConst this_val);
+typedef JSValue JSCFunction1(JSContext *ctx, JSValueConst this_val, JSValueConst arg0);
+typedef JSValue JSCFunction2(JSContext *ctx, JSValueConst this_val, JSValueConst arg0, JSValueConst arg1);
+typedef JSValue JSCFunction3(JSContext *ctx, JSValueConst this_val, JSValueConst arg0, JSValueConst arg1, JSValueConst arg2);
+typedef JSValue JSCFunction4(JSContext *ctx, JSValueConst this_val, JSValueConst arg0, JSValueConst arg1, JSValueConst arg2, JSValueConst arg3);
+
 typedef union JSCFunctionType {
     JSCFunction *generic;
     JSValue (*generic_magic)(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv, int magic);
-    JSCFunction *constructor;
-    JSValue (*constructor_magic)(JSContext *ctx, JSValueConst new_target, int argc, JSValueConst *argv, int magic);
-    JSCFunction *constructor_or_func;
     double (*f_f)(double);
     double (*f_f_f)(double, double);
-    JSValue (*getter)(JSContext *ctx, JSValueConst this_val);
-    JSValue (*setter)(JSContext *ctx, JSValueConst this_val, JSValueConst val);
-    JSValue (*getter_magic)(JSContext *ctx, JSValueConst this_val, int magic);
-    JSValue (*setter_magic)(JSContext *ctx, JSValueConst this_val, JSValueConst val, int magic);
-    JSValue (*iterator_next)(JSContext *ctx, JSValueConst this_val,
-                             int argc, JSValueConst *argv, int *pdone, int magic);
+    /* Fixed-arity fast paths */
+    JSCFunction0 *f0;
+    JSCFunction1 *f1;
+    JSCFunction2 *f2;
+    JSCFunction3 *f3;
+    JSCFunction4 *f4;
 } JSCFunctionType;
 
 JSValue JS_NewCFunction2(JSContext *ctx, JSCFunction *func,
@@ -875,8 +804,32 @@ static inline JSValue JS_NewCFunctionMagic(JSContext *ctx, JSCFunctionMagic *fun
 {
     return JS_NewCFunction2(ctx, (JSCFunction *)func, name, length, cproto, magic);
 }
-void JS_SetConstructor(JSContext *ctx, JSValueConst func_obj,
-                       JSValueConst proto);
+
+/* Fixed-arity fast path constructors */
+static inline JSValue JS_NewCFuncFixed0(JSContext *ctx, JSCFunction0 *func, const char *name)
+{
+    return JS_NewCFunction2(ctx, (JSCFunction *)func, name, 0, JS_CFUNC_0, 0);
+}
+
+static inline JSValue JS_NewCFuncFixed1(JSContext *ctx, JSCFunction1 *func, const char *name)
+{
+    return JS_NewCFunction2(ctx, (JSCFunction *)func, name, 1, JS_CFUNC_1, 0);
+}
+
+static inline JSValue JS_NewCFuncFixed2(JSContext *ctx, JSCFunction2 *func, const char *name)
+{
+    return JS_NewCFunction2(ctx, (JSCFunction *)func, name, 2, JS_CFUNC_2, 0);
+}
+
+static inline JSValue JS_NewCFuncFixed3(JSContext *ctx, JSCFunction3 *func, const char *name)
+{
+    return JS_NewCFunction2(ctx, (JSCFunction *)func, name, 3, JS_CFUNC_3, 0);
+}
+
+static inline JSValue JS_NewCFuncFixed4(JSContext *ctx, JSCFunction4 *func, const char *name)
+{
+    return JS_NewCFunction2(ctx, (JSCFunction *)func, name, 4, JS_CFUNC_4, 0);
+}
 
 /* C property definition */
 
@@ -891,10 +844,6 @@ typedef struct JSCFunctionListEntry {
             uint8_t cproto; /* XXX: should move outside union */
             JSCFunctionType cfunc;
         } func;
-        struct {
-            JSCFunctionType get;
-            JSCFunctionType set;
-        } getset;
         struct {
             const char *name;
             int base;
@@ -911,8 +860,6 @@ typedef struct JSCFunctionListEntry {
 } JSCFunctionListEntry;
 
 #define JS_DEF_CFUNC          0
-#define JS_DEF_CGETSET        1
-#define JS_DEF_CGETSET_MAGIC  2
 #define JS_DEF_PROP_STRING    3
 #define JS_DEF_PROP_INT32     4
 #define JS_DEF_PROP_INT64     5
@@ -922,12 +869,15 @@ typedef struct JSCFunctionListEntry {
 #define JS_DEF_ALIAS          9
 
 /* Note: c++ does not like nested designators */
-#define JS_CFUNC_DEF(name, length, func1) { name, JS_PROP_WRITABLE | JS_PROP_CONFIGURABLE, JS_DEF_CFUNC, 0, .u = { .func = { length, JS_CFUNC_generic, { .generic = func1 } } } }
-#define JS_CFUNC_MAGIC_DEF(name, length, func1, magic) { name, JS_PROP_WRITABLE | JS_PROP_CONFIGURABLE, JS_DEF_CFUNC, magic, .u = { .func = { length, JS_CFUNC_generic_magic, { .generic_magic = func1 } } } }
-#define JS_CFUNC_SPECIAL_DEF(name, length, cproto, func1) { name, JS_PROP_WRITABLE | JS_PROP_CONFIGURABLE, JS_DEF_CFUNC, 0, .u = { .func = { length, JS_CFUNC_ ## cproto, { .cproto = func1 } } } }
-#define JS_ITERATOR_NEXT_DEF(name, length, func1, magic) { name, JS_PROP_WRITABLE | JS_PROP_CONFIGURABLE, JS_DEF_CFUNC, magic, .u = { .func = { length, JS_CFUNC_iterator_next, { .iterator_next = func1 } } } }
-#define JS_CGETSET_DEF(name, fgetter, fsetter) { name, JS_PROP_CONFIGURABLE, JS_DEF_CGETSET, 0, .u = { .getset = { .get = { .getter = fgetter }, .set = { .setter = fsetter } } } }
-#define JS_CGETSET_MAGIC_DEF(name, fgetter, fsetter, magic) { name, JS_PROP_CONFIGURABLE, JS_DEF_CGETSET_MAGIC, magic, .u = { .getset = { .get = { .getter_magic = fgetter }, .set = { .setter_magic = fsetter } } } }
+#define JS_CFUNC_DEF(name, length, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { length, JS_CFUNC_generic, { .generic = func1 } } } }
+#define JS_CFUNC_MAGIC_DEF(name, length, func1, magic) { name, 0, JS_DEF_CFUNC, magic, .u = { .func = { length, JS_CFUNC_generic_magic, { .generic_magic = func1 } } } }
+#define JS_CFUNC_SPECIAL_DEF(name, length, cproto, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { length, JS_CFUNC_ ## cproto, { .cproto = func1 } } } }
+/* Fixed-arity fast path macros */
+#define JS_CFUNC0_DEF(name, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { 0, JS_CFUNC_0, { .f0 = func1 } } } }
+#define JS_CFUNC1_DEF(name, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { 1, JS_CFUNC_1, { .f1 = func1 } } } }
+#define JS_CFUNC2_DEF(name, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { 2, JS_CFUNC_2, { .f2 = func1 } } } }
+#define JS_CFUNC3_DEF(name, func1) { name, 0, JS_DEF_CFUNC, 0, .u = { .func = { 3, JS_CFUNC_3, { .f3 = func1 } } } }
+#define JS_ITERATOR_NEXT_DEF(name, length, func1, magic) { name, 0, JS_DEF_CFUNC, magic, .u = { .func = { length, JS_CFUNC_iterator_next, { .iterator_next = func1 } } } }
 #define JS_PROP_STRING_DEF(name, cstr, prop_flags) { name, prop_flags, JS_DEF_PROP_STRING, 0, .u = { .str = cstr } }
 #define JS_PROP_INT32_DEF(name, val, prop_flags) { name, prop_flags, JS_DEF_PROP_INT32, 0, .u = { .i32 = val } }
 #define JS_PROP_INT64_DEF(name, val, prop_flags) { name, prop_flags, JS_DEF_PROP_INT64, 0, .u = { .i64 = val } }
@@ -962,21 +912,19 @@ void JS_PrintValue(JSContext *ctx, JSPrintValueWrite *write_func, void *write_op
                    JSValueConst val, const JSPrintValueOptions *options);
                    
 typedef struct js_debug {
-  const char *name; // nameof function
-  const char *what;
-  const char *source; // source code of function
-  size_t srclen;
-  const char *filename; // name of file function is in
-  int nparams;
-  int vararg;
-  int line; // line the function is on
+  char name[64];
+  char filename[96];
+  int unique;
+  int line;
   int param_n;
   int closure_n;
-  uint32_t unique; // a unique identifier for this function
+  int vararg;
+  const char *what;
+  const uint8_t *source;
+  int srclen;
 } js_debug;
 
 void js_debug_info(JSContext *js, JSValue fn, js_debug *dbg);
-void free_js_debug_info(JSContext *js, js_debug *dbg);
 
 typedef void (*js_hook)(JSContext*, int type, js_debug *dbg, void *user);
 #define JS_HOOK_CALL 1

source/scheduler.c

@@ -270,7 +270,7 @@ void actor_free(cell_rt *actor)
   JS_FreeValue(js, actor->message_handle);
   JS_FreeValue(js, actor->on_exception);
   JS_FreeValue(js, actor->unneeded);
-  JS_FreeAtom(js, actor->actor_sym);
+  JS_FreeValue(js, actor->actor_sym);
   
   for (int i = 0; i < hmlen(actor->timers); i++) {
     JS_FreeValue(js, actor->timers[i].value);
@@ -436,7 +436,7 @@ void actor_unneeded(cell_rt *actor, JSValue fn, double seconds)
   if (actor->disrupt) return;
   JS_FreeValue(actor->context, actor->unneeded);
   
-  if (!JS_IsFunction(actor->context, fn)) {
+  if (!JS_IsFunction(fn)) {
     actor->unneeded = JS_NULL;
     goto END;
   }
@@ -497,7 +497,7 @@ cell_rt *create_actor(void *wota)
   actor->message_handle = JS_NULL;
   actor->unneeded = JS_NULL;
   actor->on_exception = JS_NULL;
-  actor->actor_sym = JS_ATOM_NULL;
+  actor->actor_sym = JS_NULL;
 
   arrsetcap(actor->letters, 5);
 

test.ce

@@ -3,13 +3,17 @@ var pkg = use('package')
 var fd = use('fd')
 var time = use('time')
 var json = use('json')
-var utf8 = use('utf8')
+var blob = use('blob')
+var dbg = use('js')
+
+// run gc with dbg.gc()
 
 if (!args) args = []
 
 var target_pkg = null // null = current package
 var target_test = null // null = all tests, otherwise specific test file
 var all_pkgs = false
+var gc_after_each_test = false
 
 // Actor test support
 def ACTOR_TEST_TIMEOUT = 30000 // 30 seconds timeout for actor tests
@@ -43,7 +47,17 @@ function get_current_package_name() {
 //   cell test package all              - run all tests from all packages
 
 function parse_args() {
-    if (args.length == 0) {
+    var cleaned_args = []
+    for (var i = 0; i < length(args); i++) {
+        if (args[i] == '-g') {
+            gc_after_each_test = true
+        } else {
+            push(cleaned_args, args[i])
+        }
+    }
+    args = cleaned_args
+
+    if (length(args) == 0) {
         // cell test - run all tests for current package
         if (!is_valid_package('.')) {
             log.console('No cell.toml found in current directory')
@@ -64,7 +78,7 @@ function parse_args() {
     }
 
     if (args[0] == 'package') {
-        if (args.length < 2) {
+        if (length(args) < 2) {
             log.console('Usage: cell test package <name> [test]')
             log.console('       cell test package all')
             return false
@@ -84,7 +98,7 @@ function parse_args() {
         var lock = shop.load_lock()
         if (lock[name]) {
             target_pkg = name
-        } else if (name.startsWith('/') && is_valid_package(name)) {
+        } else if (starts_with(name, '/') && is_valid_package(name)) {
             target_pkg = name
         } else {
             // Try to resolve as dependency alias from current package
@@ -102,7 +116,7 @@ function parse_args() {
             }
         }
 
-        if (args.length >= 3) {
+        if (length(args) >= 3) {
             // cell test package <name> <test>
             target_test = args[2]
         }
@@ -115,7 +129,7 @@ function parse_args() {
     var test_path = args[0]
 
     // Normalize path - add tests/ prefix if not present and doesn't start with /
-    if (!test_path.startsWith('tests/') && !test_path.startsWith('/')) {
+    if (!starts_with(test_path, 'tests/') && !starts_with(test_path, '/')) {
         // Check if file exists as-is first
         if (!fd.is_file(test_path + '.cm') && !fd.is_file(test_path)) {
             // Try with tests/ prefix
@@ -144,15 +158,14 @@ if (!parse_args()) {
 function ensure_dir(path) {
     if (fd.is_dir(path)) return true
 
-    var parts = path.split('/')
-    var current = path.startsWith('/') ? '/' : ''
-    for (var i = 0; i < parts.length; i++) {
+    var parts = array(path, '/')
+    var current = starts_with(path, '/') ? '/' : ''
+    for (var i = 0; i < length(parts); i++) {
         if (parts[i] == '') continue
         current += parts[i] + '/'
-        if (!fd.is_dir(current)) {
+        if (!fd.is_dir(current))
             fd.mkdir(current)
     }
-    }
     return true
 }
 
@@ -161,7 +174,7 @@ function get_pkg_dir(package_name) {
     if (!package_name) {
         return fd.realpath('.')
     }
-    if (package_name.startsWith('/')) {
+    if (starts_with(package_name, '/')) {
         return package_name
     }
     return shop.get_package_dir(package_name)
@@ -176,23 +189,23 @@ function collect_actor_tests(package_name, specific_test) {
 
     var files = pkg.list_files(package_name)
     var actor_tests = []
-    for (var i = 0; i < files.length; i++) {
+    for (var i = 0; i < length(files); i++) {
         var f = files[i]
         // Check if file is in tests/ folder and is a .ce actor
-        if (f.startsWith("tests/") && f.endsWith(".ce")) {
+        if (starts_with(f, "tests/") && ends_with(f, ".ce")) {
             // If specific test requested, filter
             if (specific_test) {
-                var test_name = f.substring(0, f.length - 3) // remove .ce
+                var test_name = text(f, 0, -3) // remove .ce
                 var match_name = specific_test
-                if (!match_name.startsWith('tests/')) match_name = 'tests/' + match_name
-                if (!match_name.endsWith('.ce')) match_name = match_name
+                if (!starts_with(match_name, 'tests/')) match_name = 'tests/' + match_name
+                if (!ends_with(match_name, '.ce')) match_name = match_name
                 // Match without extension
                 var test_base = test_name
-                var match_base = match_name.endsWith('.ce') ? match_name.substring(0, match_name.length - 3) : match_name
+                var match_base = ends_with(match_name, '.ce') ? text(match_name, 0, -3) : match_name
                 if (test_base != match_base) continue
             }
 
-            actor_tests.push({
+            push(actor_tests,{
                 package: package_name || "local",
                 file: f,
                 path: prefix + '/' + f
@@ -204,7 +217,7 @@ function collect_actor_tests(package_name, specific_test) {
 
 // Spawn an actor test and track it
 function spawn_actor_test(test_info) {
-    var test_name = test_info.file.substring(6, test_info.file.length - 3) // remove "tests/" and ".ce"
+    var test_name = text(test_info.file, 6, -3) // remove "tests/" and ".ce"
     log.console(`  [ACTOR] ${test_info.file}`)
 
     var entry = {
@@ -218,14 +231,14 @@ function spawn_actor_test(test_info) {
 
     try {
         // Spawn the actor test - it should send back results
-        var actor_path = test_info.path.substring(0, test_info.path.length - 3) // remove .ce
+        var actor_path = text(test_info.path, 0, -3) // remove .ce
         entry.actor = $start(actor_path)
-        pending_actor_tests.push(entry)
+        push(pending_actor_tests, entry)
     } catch (e) {
         entry.status = "failed"
         entry.error = { message: `Failed to spawn actor: ${e}` }
         entry.duration_ns = 0
-        actor_test_results.push(entry)
+        push(actor_test_results, entry)
         log.console(`    FAIL ${test_name}: `)
         log.error(e)
     }
@@ -247,31 +260,31 @@ function run_tests(package_name, specific_test) {
 
     var files = pkg.list_files(package_name)
     var test_files = []
-    for (var i = 0; i < files.length; i++) {
+    for (var i = 0; i < length(files); i++) {
         var f = files[i]
         // Check if file is in tests/ folder and is a .cm module (not .ce - those are actor tests)
-        if (f.startsWith("tests/") && f.endsWith(".cm")) {
+        if (starts_with(f, "tests/") && ends_with(f, ".cm")) {
             // If specific test requested, filter
             if (specific_test) {
-                var test_name = f.substring(0, f.length - 3) // remove .cm
+                var test_name = text(f, 0, -3) // remove .cm
                 var match_name = specific_test
-                if (!match_name.startsWith('tests/')) match_name = 'tests/' + match_name
+                if (!starts_with(match_name, 'tests/')) match_name = 'tests/' + match_name
                 // Match without extension
-                var match_base = match_name.endsWith('.cm') ? match_name.substring(0, match_name.length - 3) : match_name
+                var match_base = ends_with(match_name, '.cm') ? text(match_name, 0, -3) : match_name
                 if (test_name != match_base) continue
             }
-            test_files.push(f)
+            push(test_files, f)
         }
     }
 
-    if (test_files.length > 0) {
+    if (length(test_files) > 0) {
         if (package_name) log.console(`Running tests for ${package_name}`)
         else log.console(`Running tests for local package`)
     }
 
-    for (var i = 0; i < test_files.length; i++) {
+    for (var i = 0; i < length(test_files); i++) {
         var f = test_files[i]
-        var mod_path = f.substring(0, f.length - 3) // remove .cm
+        var mod_path = text(f, 0, -3) // remove .cm
 
         var file_result = {
             name: f,
@@ -287,19 +300,19 @@ function run_tests(package_name, specific_test) {
             test_mod = shop.use(mod_path, use_pkg)
 
             var tests = []
-            if (typeof test_mod == 'function') {
-                tests.push({name: 'main', fn: test_mod})
-            } else if (typeof test_mod == 'object') {
-                for (var k in test_mod) {
-                    if (typeof test_mod[k] == 'function') {
-                        tests.push({name: k, fn: test_mod[k]})
-                    }
+            if (is_function(test_mod)) {
+                push(tests, {name: 'main', fn: test_mod})
+            } else if (is_object(test_mod)) {
+                arrfor(array(test_mod), function(k) {
+                    if (is_function(test_mod[k])) {
+                        push(tests, {name: k, fn: test_mod[k]})
                     }
+                })
             }
 
-            if (tests.length > 0) {
+            if (length(tests) > 0) {
                 log.console(`  ${f}`)
-                for (var j = 0; j < tests.length; j++) {
+                for (var j = 0; j < length(tests); j++) {
                     var t = tests[j]
                     var test_entry = {
                         package: pkg_result.package,
@@ -312,9 +325,9 @@ function run_tests(package_name, specific_test) {
                     try {
                         var ret = t.fn()
 
-                        if (typeof ret == 'string') {
-                             throw new Error(ret)
-                        } else if (ret && (typeof ret.message == 'string' || ret instanceof Error)) {
+                        if (is_text(ret)) {
+                             throw Error(ret)
+                        } else if (ret && (is_text(ret.message) || is_proto(ret, Error))) {
                              throw ret
                         }
 
@@ -325,28 +338,31 @@ function run_tests(package_name, specific_test) {
                     } catch (e) {
                         test_entry.status = "failed"
                         test_entry.error = {
-                            message: e.toString(),
+                            message: e,
                             stack: e.stack || ""
                         }
                         if (e.name) test_entry.error.name = e.name
 
-                        if (typeof e == 'object' && e.message) {
+                        if (is_object(e) && e.message) {
                              test_entry.error.message = e.message
                         }
 
                         log.console(`    FAIL ${t.name} ${test_entry.error.message}`)
                         if (test_entry.error.stack) {
-                             log.console(`      ${test_entry.error.stack.split('\n').join('\n      ')}`)
+                             log.console(`      ${text(array(test_entry.error.stack, '\n'), '\n      ')}`)
                         }
 
                         pkg_result.failed++
                         file_result.failed++
                     }
                     var end_time = time.number()
-                    test_entry.duration_ns = number.round((end_time - start_time) * 1000000000)
+                    test_entry.duration_ns = round((end_time - start_time) * 1000000000)
 
-                    file_result.tests.push(test_entry)
+                    push(file_result.tests, test_entry)
                     pkg_result.total++
+                    if (gc_after_each_test) {
+                        dbg.gc()
+                    }
                 }
             }
 
@@ -359,12 +375,15 @@ function run_tests(package_name, specific_test) {
                 duration_ns: 0,
                 error: { message: `Error loading module: ${e}` }
             }
-            file_result.tests.push(test_entry)
+            push(file_result.tests, test_entry)
             pkg_result.failed++
             file_result.failed++
             pkg_result.total++
+            if (gc_after_each_test) {
+                dbg.gc()
             }
-        pkg_result.files.push(file_result)
+        }
+        push(pkg_result.files, file_result)
     }
     return pkg_result
 }
@@ -375,25 +394,25 @@ var all_actor_tests = []
 if (all_pkgs) {
     // Run local first if we're in a valid package
     if (is_valid_package('.')) {
-        all_results.push(run_tests(null, null))
-        all_actor_tests = all_actor_tests.concat(collect_actor_tests(null, null))
+        push(all_results, run_tests(null, null))
+        all_actor_tests = array(all_actor_tests, collect_actor_tests(null, null))
     }
 
     // Then all packages in lock
     var packages = shop.list_packages()
-    for (var i = 0; i < packages.length; i++) {
-        all_results.push(run_tests(packages[i], null))
-        all_actor_tests = all_actor_tests.concat(collect_actor_tests(packages[i], null))
+    for (var i = 0; i < length(packages); i++) {
+        push(all_results, run_tests(packages[i], null))
+        all_actor_tests = array(all_actor_tests, collect_actor_tests(packages[i], null))
     }
 } else {
-    all_results.push(run_tests(target_pkg, target_test))
-    all_actor_tests = all_actor_tests.concat(collect_actor_tests(target_pkg, target_test))
+    push(all_results, run_tests(target_pkg, target_test))
+    all_actor_tests = array(all_actor_tests, collect_actor_tests(target_pkg, target_test))
 }
 
 // Spawn actor tests if any
-if (all_actor_tests.length > 0) {
-    log.console(`Running ${all_actor_tests.length} actor test(s)...`)
-    for (var i = 0; i < all_actor_tests.length; i++) {
+if (length(all_actor_tests) > 0) {
+    log.console(`Running ${length(all_actor_tests)} actor test(s)...`)
+    for (var i = 0; i < length(all_actor_tests); i++) {
         spawn_actor_test(all_actor_tests[i])
     }
 }
@@ -402,7 +421,7 @@ if (all_actor_tests.length > 0) {
 function handle_actor_message(msg) {
     var sender = msg.$sender
     var found_idx = -1
-    for (var i = 0; i < pending_actor_tests.length; i++) {
+    for (var i = 0; i < length(pending_actor_tests); i++) {
         if (pending_actor_tests[i].actor == sender) {
             found_idx = i
             break
@@ -412,26 +431,26 @@ function handle_actor_message(msg) {
     if (found_idx == -1) return
 
     var base_entry = pending_actor_tests[found_idx]
-    pending_actor_tests.splice(found_idx, 1)
+    pending_actor_tests = array(array(pending_actor_tests, 0, found_idx), array(pending_actor_tests, found_idx + 1))
 
     var end_time = time.number()
-    var duration_ns = number.round((end_time - base_entry.start_time) * 1000000000)
+    var duration_ns = round((end_time - base_entry.start_time) * 1000000000)
 
     var results = []
-    if (isa(msg, array)) {
+    if (is_array(msg)) {
         results = msg
-    } else if (msg && isa(msg.results, array)) {
+    } else if (msg && is_array(msg.results)) {
         results = msg.results
     } else {
         results = [msg]
     }
 
-    for (var i = 0; i < results.length; i++) {
+    for (var i = 0; i < length(results); i++) {
         var res = results[i] || {}
         var entry = {
             package: base_entry.package,
             file: base_entry.file,
-            test: res.test || base_entry.test + (results.length > 1 ? `#${i+1}` : ""),
+            test: res.test || base_entry.test + (length(results) > 1 ? `#${i+1}` : ""),
             status: "failed",
             duration_ns: duration_ns
         }
@@ -448,7 +467,11 @@ function handle_actor_message(msg) {
             log.console(`    FAIL ${entry.test}: ${entry.error.message}`)
         }
 
-        actor_test_results.push(entry)
+        push(actor_test_results, entry)
+    }
+
+    if (gc_after_each_test) {
+        dbg.gc()
     }
 
     check_completion()
@@ -459,27 +482,27 @@ function check_timeouts() {
     var now = time.number()
     var timed_out = []
 
-    for (var i = pending_actor_tests.length - 1; i >= 0; i--) {
+    for (var i = length(pending_actor_tests) - 1; i >= 0; i--) {
         var entry = pending_actor_tests[i]
         var elapsed_ms = (now - entry.start_time) * 1000
         if (elapsed_ms > ACTOR_TEST_TIMEOUT) {
-            timed_out.push(i)
+            push(timed_out, i)
         }
     }
 
-    for (var i = 0; i < timed_out.length; i++) {
+    for (var i = 0; i < length(timed_out); i++) {
         var idx = timed_out[i]
         var entry = pending_actor_tests[idx]
-        pending_actor_tests.splice(idx, 1)
+        pending_actor_tests = array(array(pending_actor_tests, 0, idx), array(pending_actor_tests, idx + 1))
 
         entry.status = "failed"
         entry.error = { message: "Test timed out" }
         entry.duration_ns = ACTOR_TEST_TIMEOUT * 1000000
-        actor_test_results.push(entry)
+        push(actor_test_results, entry)
         log.console(`    TIMEOUT ${entry.test}`)
     }
 
-    if (pending_actor_tests.length > 0) {
+    if (length(pending_actor_tests) > 0) {
         $delay(check_timeouts, 1000)
     }
     check_completion()
@@ -489,7 +512,7 @@ function check_timeouts() {
 var finalized = false
 function check_completion() {
     if (finalized) return
-    if (pending_actor_tests.length > 0) return
+    if (length(pending_actor_tests) > 0) return
 
     finalized = true
     finalize_results()
@@ -497,10 +520,10 @@ function check_completion() {
 
 function finalize_results() {
     // Add actor test results to all_results
-    for (var i = 0; i < actor_test_results.length; i++) {
+    for (var i = 0; i < length(actor_test_results); i++) {
         var r = actor_test_results[i]
         var pkg_result = null
-        for (var j = 0; j < all_results.length; j++) {
+        for (var j = 0; j < length(all_results); j++) {
             if (all_results[j].package == r.package) {
                 pkg_result = all_results[j]
                 break
@@ -508,11 +531,11 @@ function finalize_results() {
         }
         if (!pkg_result) {
             pkg_result = { package: r.package, files: [], total: 0, passed: 0, failed: 0 }
-            all_results.push(pkg_result)
+            push(all_results, pkg_result)
         }
 
         var file_result = null
-        for (var j = 0; j < pkg_result.files.length; j++) {
+        for (var j = 0; j < length(pkg_result.files); j++) {
             if (pkg_result.files[j].name == r.file) {
                 file_result = pkg_result.files[j]
                 break
@@ -520,10 +543,10 @@ function finalize_results() {
         }
         if (!file_result) {
             file_result = { name: r.file, tests: [], passed: 0, failed: 0 }
-            pkg_result.files.push(file_result)
+            push(pkg_result.files, file_result)
         }
 
-        file_result.tests.push(r)
+        push(file_result.tests, r)
         pkg_result.total++
         if (r.status == "passed") {
             pkg_result.passed++
@@ -536,7 +559,7 @@ function finalize_results() {
 
     // Calculate totals
     var totals = { total: 0, passed: 0, failed: 0 }
-    for (var i = 0; i < all_results.length; i++) {
+    for (var i = 0; i < length(all_results); i++) {
         totals.total += all_results[i].total
         totals.passed += all_results[i].passed
         totals.failed += all_results[i].failed
@@ -550,9 +573,10 @@ function finalize_results() {
 }
 
 // If no actor tests, finalize immediately
-if (all_actor_tests.length == 0) {
-    var totals = { total: 0, passed: 0, failed: 0 }
-    for (var i = 0; i < all_results.length; i++) {
+var totals
+if (length(all_actor_tests) == 0) {
+    totals = { total: 0, passed: 0, failed: 0 }
+    for (var i = 0; i < length(all_results); i++) {
         totals.total += all_results[i].total
         totals.passed += all_results[i].passed
         totals.failed += all_results[i].failed
@@ -564,10 +588,9 @@ if (all_actor_tests.length == 0) {
     $delay(check_timeouts, 1000)
 }
 
-
 // Generate Reports function
 function generate_reports(totals) {
-    var timestamp = number.floor(time.number()).toString()
+    var timestamp = text(floor(time.number()))
     var report_dir = shop.get_reports_dir() + '/test_' + timestamp
     ensure_dir(report_dir)
 
@@ -577,24 +600,24 @@ Total: ${totals.total}, Passed: ${totals.passed}, Failed: ${totals.failed}
 
 === SUMMARY ===
 `
-    for (var i = 0; i < all_results.length; i++) {
+    for (var i = 0; i < length(all_results); i++) {
         var pkg_res = all_results[i]
         if (pkg_res.total == 0) continue
         txt_report += `Package: ${pkg_res.package}\n`
-        for (var j = 0; j < pkg_res.files.length; j++) {
+        for (var j = 0; j < length(pkg_res.files); j++) {
             var f = pkg_res.files[j]
             var status = f.failed == 0 ? "PASS" : "FAIL"
-            txt_report += `  [${status}] ${f.name} (${f.passed}/${f.tests.length})\n`
+            txt_report += `  [${status}] ${f.name} (${f.passed}/${length(f.tests)})\n`
         }
     }
 
     txt_report += `\n=== FAILURES ===\n`
     var has_failures = false
-    for (var i = 0; i < all_results.length; i++) {
+    for (var i = 0; i < length(all_results); i++) {
         var pkg_res = all_results[i]
-        for (var j = 0; j < pkg_res.files.length; j++) {
+        for (var j = 0; j < length(pkg_res.files); j++) {
             var f = pkg_res.files[j]
-            for (var k = 0; k < f.tests.length; k++) {
+            for (var k = 0; k < length(f.tests); k++) {
                 var t = f.tests[k]
                 if (t.status == "failed") {
                     has_failures = true
@@ -602,7 +625,7 @@ Total: ${totals.total}, Passed: ${totals.passed}, Failed: ${totals.failed}
                     if (t.error) {
                         txt_report += `  Message: ${t.error.message}\n`
                         if (t.error.stack) {
-                            txt_report += `  Stack:\n${t.error.stack.split('\n').map(function(l){return `    ${l}`}).join('\n')}\n`
+                            txt_report += `  Stack:\n${text(array(array(t.error.stack, '\n'), l => `    ${l}`), '\n')}\n`
                         }
                     }
                     txt_report += `\n`
@@ -613,13 +636,13 @@ Total: ${totals.total}, Passed: ${totals.passed}, Failed: ${totals.failed}
     if (!has_failures) txt_report += `None\n`
 
     txt_report += `\n=== DETAILED RESULTS ===\n`
-    for (var i = 0; i < all_results.length; i++) {
+    for (var i = 0; i < length(all_results); i++) {
         var pkg_res = all_results[i]
         if (pkg_res.total == 0) continue
 
-        for (var j = 0; j < pkg_res.files.length; j++) {
+        for (var j = 0; j < length(pkg_res.files); j++) {
             var f = pkg_res.files[j]
-            for (var k = 0; k < f.tests.length; k++) {
+            for (var k = 0; k < length(f.tests); k++) {
                 var t = f.tests[k]
                 var dur = `${t.duration_ns || 0}ns`
                 var status = t.status == "passed" ? "PASS" : "FAIL"
@@ -628,29 +651,29 @@ Total: ${totals.total}, Passed: ${totals.passed}, Failed: ${totals.failed}
         }
     }
     ensure_dir(report_dir)
-    fd.slurpwrite(`${report_dir}/test.txt`, utf8.encode(txt_report))
+    fd.slurpwrite(`${report_dir}/test.txt`, stone(blob(txt_report)))
     log.console(`Report written to ${report_dir}/test.txt`)
 
     // Generate JSON per package
-    for (var i = 0; i < all_results.length; i++) {
+    for (var i = 0; i < length(all_results); i++) {
         var pkg_res = all_results[i]
         if (pkg_res.total == 0) continue
 
         var pkg_tests = []
-        for (var j = 0; j < pkg_res.files.length; j++) {
+        for (var j = 0; j < length(pkg_res.files); j++) {
             var f = pkg_res.files[j]
-            for (var k = 0; k < f.tests.length; k++) {
-                pkg_tests.push(f.tests[k])
+            for (var k = 0; k < length(f.tests); k++) {
+                push(pkg_tests, f.tests[k])
             }
         }
 
-        var json_path = `${report_dir}/${pkg_res.package.replace(/\//g, '_')}.json`
-        fd.slurpwrite(json_path, utf8.encode(json.encode(pkg_tests)))
+        var json_path = `${report_dir}/${replace(pkg_res.package, /\//, '_')}.json`
+        fd.slurpwrite(json_path, stone(blob(json.encode(pkg_tests))))
     }
 }
 
 // If no actor tests, generate reports and stop immediately
-if (all_actor_tests.length == 0) {
+if (length(all_actor_tests) == 0) {
     generate_reports(totals)
     $stop()
 } else {

tests/blob.cm

@@ -4,34 +4,34 @@ var os = use('os');
 
 function assert(condition, message) {
     if (!condition) {
-        throw new Error(message || "Assertion failed");
+        throw Error(message || "Assertion failed");
     }
 }
 
 function assertEqual(actual, expected, message) {
     if (actual != expected) {
-        throw new Error(message || "Expected " + expected + ", got " + actual);
+        throw Error(message || "Expected " + expected + ", got " + actual);
     }
 }
 
 return {
     test_create_empty_blob: function() {
-        var b = new Blob();
-        assertEqual(b.length, 0, "Empty blob should have length 0");
+        var b = Blob();
+        assertEqual(length(b), 0, "Empty blob should have length 0");
     },
     
     test_create_blob_with_capacity: function() {
-        var b = new Blob(100);
-        assertEqual(b.length, 0, "New blob with capacity should still have length 0");
+        var b = Blob(100);
+        assertEqual(length(b), 0, "New blob with capacity should still have length 0");
     },
     
     test_write_and_read_single_bit: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         b.write_bit(false);
         b.write_bit(1);
         b.write_bit(0);
-        assertEqual(b.length, 4, "Should have 4 bits after writing");
+        assertEqual(length(b), 4, "Should have 4 bits after writing");
         
         stone(b);
         assertEqual(b.read_logical(0), true, "First bit should be true");
@@ -41,7 +41,7 @@ return {
     },
     
     test_out_of_range_read_throws_error: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         stone(b);
         
@@ -63,7 +63,7 @@ return {
     },
     
     test_write_and_read_numbers: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_number(3.14159);
         b.write_number(-42);
         b.write_number(0);
@@ -77,7 +77,7 @@ return {
     },
     
     test_write_and_read_text: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_text("Hello");
         b.write_text("World");
         b.write_text("🎉");
@@ -87,15 +87,15 @@ return {
     },
     
     test_write_and_read_blobs: function() {
-        var b1 = new Blob();
+        var b1 = Blob();
         b1.write_bit(true);
         b1.write_bit(false);
         b1.write_bit(true);
         
-        var b2 = new Blob(10);
+        var b2 = Blob(10);
         b2.write_blob(b1);
         b2.write_bit(false);
-        assertEqual(b2.length, 4, "Combined blob should have 4 bits");
+        assertEqual(length(b2), 4, "Combined blob should have 4 bits");
         
         stone(b2);
         assertEqual(b2.read_logical(0), true);
@@ -105,37 +105,37 @@ return {
     },
     
     test_blob_copy_constructor: function() {
-        var b1 = new Blob();
+        var b1 = Blob();
         b1.write_bit(true);
         b1.write_bit(false);
         b1.write_bit(true);
         b1.write_bit(true);
         stone(b1);
         
-        var b2 = new Blob(b1);
+        var b2 = Blob(b1);
         stone(b2);
-        assertEqual(b2.length, 4, "Copied blob should have same length");
+        assertEqual(length(b2), 4, "Copied blob should have same length");
         assertEqual(b2.read_logical(0), true);
         assertEqual(b2.read_logical(3), true);
     },
     
     test_blob_partial_copy_constructor: function() {
-        var b1 = new Blob();
+        var b1 = Blob();
         for (var i = 0; i < 10; i++) {
             b1.write_bit(i % 2 == 0);
         }
         stone(b1);
         
-        var b2 = new Blob(b1, 2, 7);
+        var b2 = Blob(b1, 2, 7);
         stone(b2);
-        assertEqual(b2.length, 5, "Partial copy should have 5 bits");
+        assertEqual(length(b2), 5, "Partial copy should have 5 bits");
         assertEqual(b2.read_logical(0), true);
         assertEqual(b2.read_logical(2), true);
     },
     
     test_create_blob_with_fill: function() {
-        var b1 = new Blob(8, true);
-        var b2 = new Blob(8, false);
+        var b1 = Blob(8, true);
+        var b2 = Blob(8, false);
         
         stone(b1);
         stone(b2);
@@ -150,7 +150,7 @@ return {
         var sequence = [true, false, true, true, false];
         var index = 0;
         
-        var b = new Blob(5, function() {
+        var b = Blob(5, function() {
             return sequence[index++] ? 1 : 0;
         });
         
@@ -161,13 +161,13 @@ return {
     },
     
     test_write_pad_and_check_padding: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         b.write_bit(false);
         b.write_bit(true);
         b.write_pad(8);
         
-        assertEqual(b.length, 8, "Should be padded to 8 bits");
+        assertEqual(length(b), 8, "Should be padded to 8 bits");
         stone(b);
         
         assert(b['pad?'](3, 8), "Should detect valid padding at position 3");
@@ -175,7 +175,7 @@ return {
     },
     
     test_read_blob_from_stone_blob: function() {
-        var b1 = new Blob();
+        var b1 = Blob();
         for (var i = 0; i < 16; i++) {
             b1.write_bit(i % 3 == 0);
         }
@@ -183,14 +183,14 @@ return {
         
         var b2 = b1.read_blob(4, 12);
         stone(b2);
-        assertEqual(b2.length, 8, "Read blob should have 8 bits");
+        assertEqual(length(b2), 8, "Read blob should have 8 bits");
         
         assertEqual(b2.read_logical(2), true);
         assertEqual(b2.read_logical(5), true);
     },
     
     test_stone_blob_is_immutable: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         stone(b);
         
@@ -204,7 +204,7 @@ return {
     },
     
     test_multiple_stone_calls_are_safe: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         assert(!stone.p(b), "Blob should not be a stone before stone() call");
         stone(b);
@@ -218,7 +218,7 @@ return {
     test_invalid_constructor_arguments: function() {
         var threw = false;
         try {
-            var b = new Blob("invalid");
+            var b = Blob("invalid");
         } catch (e) {
             threw = true;
         }
@@ -226,7 +226,7 @@ return {
     },
     
     test_write_bit_validation: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(0);
         b.write_bit(1);
         
@@ -240,7 +240,7 @@ return {
     },
     
     test_complex_data_round_trip: function() {
-        var b = new Blob();
+        var b = Blob();
         
         b.write_text("Test");
         b.write_number(123.456);
@@ -248,31 +248,31 @@ return {
         b.write_bit(false);
         b.write_number(-999.999);
         
-        var originalLength = b.length;
+        var originalLength = length(b);
         stone(b);
         
-        var b2 = new Blob(b);
+        var b2 = Blob(b);
         stone(b2);
-        assertEqual(b2.length, originalLength, "Copy should have same length");
+        assertEqual(length(b2), originalLength, "Copy should have same length");
         assertEqual(b2.read_text(0), "Test", "First text should match");
     },
     
     test_zero_capacity_blob: function() {
-        var b = new Blob(0);
-        assertEqual(b.length, 0, "Zero capacity blob should have length 0");
+        var b = Blob(0);
+        assertEqual(length(b), 0, "Zero capacity blob should have length 0");
         b.write_bit(true);
-        assertEqual(b.length, 1, "Should expand when writing");
+        assertEqual(length(b), 1, "Should expand when writing");
     },
     
     test_large_blob_handling: function() {
-        var b = new Blob();
+        var b = Blob();
         var testSize = 1000;
         
         for (var i = 0; i < testSize; i++) {
             b.write_bit(i % 7 == 0);
         }
         
-        assertEqual(b.length, testSize, "Should have " + testSize + " bits");
+        assertEqual(length(b), testSize, "Should have " + testSize + " bits");
         stone(b);
         
         assertEqual(b.read_logical(0), true, "Bit 0 should be true");
@@ -282,7 +282,7 @@ return {
     },
     
     test_non_stone_blob_read_methods_should_throw: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_bit(true);
         b.write_number(42);
         b.write_text("test");
@@ -329,14 +329,14 @@ return {
     },
     
     test_empty_text_write_and_read: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_text("");
         stone(b);
         assertEqual(b.read_text(0), "", "Empty string should round-trip");
     },
     
     test_invalid_read_positions: function() {
-        var b = new Blob();
+        var b = Blob();
         b.write_number(42);
         stone(b);
         

tests/chunkread.cm

@@ -12,7 +12,7 @@ return {
         fd.write(f, bigdata)
         fd.close(f)
         
-        var data = new blob
+        var data = blob()
         var st = time.number()
         var f2 = fd.open(tmp, 'r')
         var chunksize = 1024 // reduced for test
@@ -20,11 +20,7 @@ return {
         while(true) {
             var chunk = fd.read(f2, chunksize);
             data.write_blob(chunk);
-            // chunk.length is in bits, chunksize is bytes? 
-            // fd.read usually takes bytes. Blob.length is bits.
-            // If chunk is blob, length is bits.
-            // fd.read returns blob.
-            if (chunk.length < chunksize * 8) break; 
+            if (length(chunk) < chunksize * 8) break; 
         }
         fd.close(f2)
         log.console(`read took ${time.number()-st}`)

tests/comments.cm

@@ -15,7 +15,7 @@ return {
         }
 
         $receiver(tree => {
-          var child_reqs = tree.children.map(child => cb => {
+          var child_reqs = array(tree.children, child => cb => {
             $start(e => send(e.actor, child, cb), "tests/comments")
           })
 
@@ -30,7 +30,10 @@ return {
               send(tree, reason)
             }
             
-            send(tree, { ...result.comment, children: result.children, time: time.text() })
+            var obj = object(result.comment)
+            obj.children = result.children
+            obj.time = time.text()
+            send(tree, obj)
           })
         })
     }

tests/comments_actor.ce

@@ -9,7 +9,7 @@ function load_comment_from_api_requestor(id) {
 }
 
 $receiver(tree => {
-  var child_reqs = tree.children.map(child => cb => {
+  var child_reqs = array(tree.children, child => cb => {
     $start(e => send(e.actor, child, cb), "tests/comments") // Note: recursively calls itself? Original used "tests/comments"
     // We should probably change this to "tests/comments_actor" if it's recursive
   })
@@ -25,6 +25,9 @@ $receiver(tree => {
       send(tree, reason)
     }
     
-    send(tree, { ...result.comment, children: result.children, time: time.text() })
+    var obj = object(result.comment)
+    obj.children = result.children
+    obj.time = time.text()
+    send(tree, obj)
   })
 })

tests/guid.cm

@@ -4,14 +4,14 @@ var time = use('time')
 return {
     test_guid: function() {
         var st = time.number()
-        var guid = new blob(256, $random_fit)
+        var guid = blob(256, $random_fit)
         stone(guid)
         var btime = time.number()-st
         st = time.number()
         guid = text(guid,'h')
         st = time.number()-st
         log.console(`took ${btime*1000000} us to make blob; took ${st*1000000} us to make it text`)
-        log.console(guid.toLowerCase())
-        log.console(guid.length)
+        log.console(lower(guid))
+        log.console(length(guid))
     }
 }

tests/hang.cm

@@ -1,6 +1,6 @@
 return {
     test_hang: function() {
-        log.console(`Going to start hanging ... (disabled)`)
+        log.console(`Going to start hanging .. (disabled)`)
         
         // while(1) {
         //   // hang!

tests/http.cm

@@ -3,5 +3,5 @@ var http = use('http')
 return function() {
   var url = "http://example.com"
   var b2 = http.fetch(url)
-  if (b2.length == 0) throw "Empty response"
+  if (length(b2) == 0) throw "Empty response"
 }

tests/miniz.cm

@@ -54,9 +54,9 @@ return {
           var reader = miniz.read(zip_blob)
         
           var listed = reader.list()
-          if (listed.length != reader.count())
+          if (length(listed) != reader.count())
             throw "list/count mismatch"
-          if (listed.length != 2)
+          if (length(listed) != 2)
             throw "unexpected entry count"
         } finally {
            try { fd.unlink(ZIP_PATH) } catch(e) {}

tests/nota.cm

@@ -7,8 +7,8 @@ var EPSILON = 1e-12
 function stone_if_needed(b) { if (!stone.p(b)) stone(b) }
 
 function bytes_to_blob(bytes) {
-  var b = new blob()
-  for (var i = 0; i < bytes.length; i++) {
+  var b = blob()
+  for (var i = 0; i < length(bytes); i++) {
     var byte = bytes[i]
     for (var bit = 7; bit >= 0; bit--) b.write_bit((byte >> bit) & 1)
   }
@@ -20,11 +20,11 @@ function deepCompare(expected, actual, path) {
   path = path || ''
   if (expected == actual) return { passed: true, messages: [] };
 
-  if (typeof expected == 'number' && typeof actual == 'number') {
+  if (is_number(expected) && is_number(actual)) {
     if (isNaN(expected) && isNaN(actual))
       return { passed: true, messages: [] };
     
-    var diff = number.abs(expected - actual);
+    var diff = abs(expected - actual);
     if (diff <= EPSILON)
       return { passed: true, messages: [] };
     
@@ -37,49 +37,47 @@ function deepCompare(expected, actual, path) {
     };
   }
 
-  if ((expected instanceof blob) && (actual instanceof blob)) {
+  if (is_blob(expected) && is_blob(actual)) {
     stone_if_needed(expected); stone_if_needed(actual)
-    if (expected.length != actual.length)
-      return { passed: false, messages: [`blob length mismatch at ${path}: ${expected.length} vs ${actual.length}`] }
-    for (var i = 0; i < expected.length; i++) {
+    if (length(expected) != length(actual))
+      return { passed: false, messages: [`blob length mismatch at ${path}: ${length(expected)} vs ${length(actual)}`] }
+    for (var i = 0; i < length(expected); i++) {
       if (expected.read_logical(i) != actual.read_logical(i))
         return { passed: false, messages: [`blob bit mismatch at ${path}[${i}]`] }
     }
     return { passed: true, messages: [] }
   }
 
-  if (isa(expected, array) && isa(actual, array)) {
-    if (expected.length != actual.length)
+  if (is_array(expected) && is_array(actual)) {
+    if (length(expected) != length(actual))
       return {
         passed: false,
-        messages: [`Array length mismatch at ${path}: expected ${expected.length}, got ${actual.length}`]
+        messages: [`Array length mismatch at ${path}: expected ${length(expected)}, got ${length(actual)}`]
       };
-    let messages = [];
-    for (let i = 0; i < expected.length; i++) {
-      var result = deepCompare(expected[i], actual[i], `${path}[${i}]`);
-      if (!result.passed) {
-          for(var m of result.messages) messages.push(m);
-      }
-    }
-    return { passed: messages.length == 0, messages: messages };
+    var messages = [];
+    arrfor(expected, function(val, i) {
+      var result = deepCompare(val, actual[i], `${path}[${i}]`);
+      if (!result.passed)
+        messages = array(messages, result.messages)
+    })
+    return { passed: length(messages) == 0, messages: messages };
   }
 
-  if (isa(expected, object) && isa(actual, object)) {
-    var expKeys = array(expected).sort();
-    var actKeys = array(actual).sort();
+  if (is_object(expected) && is_object(actual)) {
+    var expKeys = sort(array(expected))
+    var actKeys = sort(array(actual))
     if (JSON.stringify(expKeys) != JSON.stringify(actKeys))
       return {
         passed: false,
         messages: [`Object keys mismatch at ${path}: expected ${expKeys}, got ${actKeys}`]
       };
-    let messages = [];
-    for (let key of expKeys) {
+    var messages = [];
+    arrfor(expKeys, function(key) {
       var result = deepCompare(expected[key], actual[key], `${path}.${key}`);
-      if (!result.passed) {
-          for(var m of result.messages) messages.push(m);
-      }
-    }
-    return { passed: messages.length == 0, messages: messages };
+      if (!result.passed) 
+        messages = array(messages, result.messages)
+    })
+    return { passed: length(messages) == 0, messages: messages };
   }
 
   return {
@@ -91,7 +89,7 @@ function deepCompare(expected, actual, path) {
 function makeTest(test) {
   return function() {
     var encoded = test.replacer ? nota.encode(test.input, test.replacer) : nota.encode(test.input);
-    if (!(encoded instanceof blob)){
+    if (!is_blob(encoded)){
       throw "encode() should return blob";
     }
 
@@ -104,14 +102,14 @@ function makeTest(test) {
 
     var compareResult = deepCompare(expected, decoded);
     if (!compareResult.passed) {
-      throw compareResult.messages.join('; ');
+      throw text(compareResult.messages, '; ');
     }
   };
 }
 
 var testarr = []
 for (var i = 0; i < 500; i++) {
-  testarr.push(1)
+  push(testarr, 1)
 }
 
 var testCases = [
@@ -155,18 +153,18 @@ var testCases = [
       str: "test",
       obj: { x: true }
     }] },
-  { name: 'empty_buffer', input: new blob() },
+  { name: 'empty_buffer', input: blob() },
   { name: 'nested_empty_array', input: [[]] },
   { name: 'empty_key_value', input: { "": "" } },
   { name: 'small_float', input: 1e-10 },
   { name: 'replacer_multiply', input: { a: 1, b: 2 },
-    replacer: (key, value) => typeof value == 'number' ? value * 2 : value,
+    replacer: (key, value) => is_number(value) ? value * 2 : value,
     expected: { a: 2, b: 4 } },
   { name: 'replacer_string_append', input: { x: "test", y: 5 },
     replacer: (key, value) => key == 'x' ? value + "!" : value,
     expected: { x: "test!", y: 5 } },
   { name: 'reviver_multiply', input: { a: 1, b: 2 },
-    reviver: (key, value) => typeof value == 'number' ? value * 3 : value,
+    reviver: (key, value) => is_number(value) ? value * 3 : value,
     expected: { a: 3, b: 6 } },
   { name: 'reviver_increment', input: { x: "test", y: 10 },
     reviver: (key, value) => key == 'y' ? value + 1 : value,
@@ -174,7 +172,7 @@ var testCases = [
 ];
 
 var tests = {};
-for (var i = 0; i < testCases.length; i++) {
+for (var i = 0; i < length(testCases); i++) {
   var t = testCases[i];
   tests[t.name] = makeTest(t);
 }

tests/num.cm

@@ -1,100 +0,0 @@
-var num = use('num');
-
-return {
-    test_num_basic: function() {
-        // Test matrix creation and operations
-        var A = new num.Matrix([
-            [1, 2, 3],
-            [4, 5, 6],
-            [7, 8, 10]
-        ]);
-        
-        log.console("Matrix A:");
-        log.console(A.toArray());
-        
-        // Test matrix inversion
-        var A_inv = A.inverse();
-        log.console("\nMatrix A inverse:");
-        log.console(A_inv.toArray());
-        
-        // Verify A * A_inv = I (approximately)
-        var I = A.multiply(A_inv);
-        log.console("\nA * A_inv (should be identity):");
-        log.console(I.toArray());
-        
-        // Test array creation
-        var v = new num.Array([1, 2, 3]);
-        log.console("\nVector v:");
-        log.console(v.toArray());
-        
-        // Test matrix-vector multiplication
-        var result = A.multiply(v);
-        log.console("\nA * v:");
-        log.console(result.toArray());
-        
-        // Test dot product
-        var u = new num.Array([4, 5, 6]);
-        var dot_product = v.dot(u);
-        log.console("\nv · u =", dot_product);
-        
-        // Test norm
-        var v_norm = v.norm();
-        log.console("||v|| =", v_norm);
-        
-        // Test matrix-matrix multiplication
-        var B = new num.Matrix([
-            [1, 0, 0],
-            [0, 2, 0],
-            [0, 0, 3]
-        ]);
-        
-        var C = A.multiply(B);
-        log.console("\nA * B:");
-        log.console(C.toArray());
-    },
-
-    test_num_property: function() {
-        // Create an array
-        var arr = new num.Array([10, 20, 30, 40, 50]);
-        
-        if (arr[0] != 10) throw "arr[0] mismatch"
-        if (arr[1] != 20) throw "arr[1] mismatch"
-        if (arr[4] != 50) throw "arr[4] mismatch"
-        
-        arr[0] = 15
-        if (arr[0] != 15) throw "arr[0] set failed"
-        
-        // arr[10] should be null or undefined, check behavior
-        // log.console("arr[10] =", arr[10]); 
-        
-        if (arr.length != 5) throw "arr.length mismatch"
-        
-        if (!(arr instanceof num.Array)) throw "instanceof check failed"
-    },
-
-    test_num_setter: function() {
-        // Create an array
-        var arr = new num.Array([1, 2, 3, 4, 5]);
-        
-        // Test setting values
-        arr[0] = 100;
-        arr[1] = 200;
-        arr[2] = 300.5;
-        
-        if (arr[0] != 100) throw "Setter failed index 0"
-        if (arr[1] != 200) throw "Setter failed index 1"
-        if (arr[2] != 300.5) throw "Setter failed index 2"
-        
-        // Test setting with different types
-        arr[3] = "123.7"; // Should convert string to number
-        arr[4] = true;    // Should convert boolean to number
-        
-        // Loose comparison for converted values if needed, or check specific behavior
-        // Assuming implementation converts:
-        // log.console("arr[3] =", arr[3]);
-        // log.console("arr[4] =", arr[4]);
-        
-        // Test bounds checking - this should fail silently or throw depending on impl
-        arr[10] = 999;
-    }
-}

tests/text.cm

@@ -236,12 +236,12 @@ return {
     test_tiny_number: function() {
         var tiny = 0.0000001
         var result = text(tiny, "n")
-        if (result.indexOf('e') == -1) throw "Tiny number format failed"
+        if (search(result, 'e', 0) == null) throw "Tiny number format failed"
     },
 
     test_huge_number: function() {
         var huge = 1e22
         var result = text(huge, "n")
-        if (result.indexOf('e') == -1) throw "Huge number format failed"
+        if (search(result, 'e', 0) == null) throw "Huge number format failed"
     }
 }

tests/toml.cm

@@ -2,15 +2,15 @@ var toml = use('toml')
 
 function deep_equal(a, b) {
   if (a == b) return true
-  if (a == null || b == null) return false
-  if (typeof a != typeof b) return false
+  if (is_null(a) || is_null(b)) return false
+  if ((is_number(a) && !is_number(b)) || (is_text(a) && !is_text(b)) || (is_object(a) && !is_object(b)) || (is_array(a) && !is_array(b)) || (is_blob(a) && !is_blob(b)) || (is_function(a) && !is_function(b)) || (is_logical(a) && !is_logical(b))) return false
   
-  if (typeof a == 'object') {
+  if (is_object(a)) {
     var keys_a = array(a)
     var keys_b = array(b)
-    if (keys_a.length != keys_b.length) return false
+    if (length(keys_a) != length(keys_b)) return false
     
-    for (var i = 0; i < keys_a.length; i++) {
+    for (var i = 0; i < length(keys_a); i++) {
       if (!deep_equal(a[keys_a[i]], b[keys_a[i]])) return false
     }
     return true

tests/underling_actor.ce

@@ -1,7 +1,7 @@
 var cmds = {
   stop: $stop,
   disrupt: _ => {
-    $delay(_ => { throw new Error() }, 0.5)
+    $delay(_ => { throw Error() }, 0.5)
   }
 }
 

tests/utf8.cm

@@ -1,34 +0,0 @@
-var blob = use('blob');
-var utf8 = use('utf8');
-
-return {
-    test_blob_to_text: function() {
-        // Test blob to text conversion
-        var test_string = "Hello, 世界! 🌍";
-        var encoded_blob = utf8.encode(test_string);
-        var decoded_text = text(encoded_blob);
-        if (test_string != decoded_text) throw "Blob to text failed"
-    },
-
-    test_codepoints_to_text: function() {
-        // Test array of codepoints conversion
-        var test_string = "Hello, 世界! 🌍";
-        var codepoints = [72, 101, 108, 108, 111, 44, 32, 19990, 30028, 33, 32, 127757];
-        var from_codepoints = text(codepoints);
-        if (from_codepoints != test_string) throw "Codepoints to text failed"
-    },
-
-    test_array_separator: function() {
-        // Test array with separator
-        var words = ["Hello", "world", "from", "text"];
-        var joined = text(words, " ");
-        if (joined != "Hello world from text") throw "Array with separator failed"
-    },
-
-    test_mixed_array: function() {
-        // Test mixed array with codepoints
-        var mixed = [72, "ello", 32, "world"];
-        var mixed_result = text(mixed, "");
-        if (mixed_result != "Hello world") throw "Mixed array test failed"
-    },
-}

tests/wota.cm

@@ -12,57 +12,53 @@ function deep_compare(expected, actual, path) {
   path = path || ''
   if (expected == actual) return { passed: true, messages: [] }
 
-  if (typeof expected == 'number' && typeof actual == 'number') {
+  if (is_number(expected) && is_number(actual)) {
     if (isNaN(expected) && isNaN(actual)) return { passed: true, messages: [] }
-    var diff = number.abs(expected - actual)
+    var diff = abs(expected - actual)
     if (diff <= EPSILON) return { passed: true, messages: [] }
     return { passed: false, messages: [`Value mismatch at ${path}: ${expected} vs ${actual} (diff ${diff})`] }
   }
 
-  if ((expected instanceof blob) && (actual instanceof blob)) {
+  if (is_blob(expected) && is_blob(actual)) {
     stone_if_needed(expected); stone_if_needed(actual)
-    if (expected.length != actual.length)
-      return { passed: false, messages: [`blob length mismatch at ${path}: ${expected.length} vs ${actual.length}`] }
-    for (var i = 0; i < expected.length; i++) {
+    if (length(expected) != length(actual))
+      return { passed: false, messages: [`blob length mismatch at ${path}: ${length(expected)} vs ${length(actual)}`] }
+    arrfor(array(expected), function(i) {
       if (expected.read_logical(i) != actual.read_logical(i))
         return { passed: false, messages: [`blob bit mismatch at ${path}[${i}]`] }
-    }
+    })
     return { passed: true, messages: [] }
   }
 
-  if (isa(expected, array) && isa(actual, array)) {
-    if (expected.length != actual.length)
-      return { passed: false, messages: [`Array length mismatch at ${path}: ${expected.length} vs ${actual.length}`] }
+  if (is_array(expected) && is_array(actual)) {
+    if (length(expected) != length(actual))
+      return { passed: false, messages: [`Array length mismatch at ${path}: ${length(expected)} vs ${length(actual)}`] }
     var msgs = []
-    for (var i = 0; i < expected.length; i++) {
+    arrfor(array(expected), function(i) {
       var res = deep_compare(expected[i], actual[i], `${path}[${i}]`)
-      if (!res.passed) {
-          for(var m of res.messages) msgs.push(m)
-      }
-    }
-    return { passed: msgs.length == 0, messages: msgs }
+      if (!res.passed) array(msgs, res.messages)
+    })
+    return { passed: length(msgs) == 0, messages: msgs }
   }
 
-  if (isa(expected, object) && isa(actual, object)) {
-    var expKeys = array(expected).sort()
-    var actKeys = array(actual).sort()
+  if (is_object(expected) && is_object(actual)) {
+    var expKeys = sort(array(expected))
+    var actKeys = sort(array(actual))
     if (JSON.stringify(expKeys) != JSON.stringify(actKeys))
       return { passed: false, messages: [`Object keys mismatch at ${path}: ${expKeys} vs ${actKeys}`] }
     var msgs = []
-    for (var k of expKeys) {
+    arrfor(expKeys, function(k) {
       var res = deep_compare(expected[k], actual[k], `${path}.${k}`)
-      if (!res.passed) {
-          for(var m of res.messages) msgs.push(m)
-      }
-    }
-    return { passed: msgs.length == 0, messages: msgs }
+      if (!res.passed) array(msgs, res.messages)
+    })
+    return { passed: length(msgs) == 0, messages: msgs }
   }
 
   return { passed: false, messages: [`Value mismatch at ${path}: ${JSON.stringify(expected)} vs ${JSON.stringify(actual)}`] }
 }
 
 var testarr = []
-for (var i = 0; i < 500; i++) { testarr.push(1) }
+for (var i = 0; i < 500; i++) { push(testarr, 1) }
 
 var testCases = [
   { name: 'zero',              input: 0 },
@@ -101,7 +97,7 @@ var testCases = [
 
   { name: 'nested_object',     input: { num: 42, arr: [1, -1, 2.5], str: 'test', obj: { x: true } } },
 
-  { name: 'empty_blob',        input: new blob() },
+  { name: 'empty_blob',        input: blob() },
   { name: 'nested_array',      input: [[]] },
   { name: 'empty_key_val',     input: { '': '' } },
   { name: 'small_float',       input: 1e-10 }
@@ -110,17 +106,17 @@ var testCases = [
 function make_test(t) {
   return function() {
     var enc = wota.encode(t.input)
-    if (!(enc instanceof blob)) throw 'encode() should return a blob'
+    if (!is_blob(enc)) throw 'encode() should return a blob'
 
     var dec = wota.decode(enc)
 
     var cmp = deep_compare(t.input, dec)
-    if (!cmp.passed) throw cmp.messages.join('; ')
+    if (!cmp.passed) throw text(cmp.messages, '; ')
   }
 }
 
 var tests = {}
-for (var i = 0; i < testCases.length; i++) {
+for (var i = 0; i < length(testCases); i++) {
   var t = testCases[i]
   var name = t.name || ('case_' + i)
   tests[name] = make_test(t)

time.cm

@@ -47,9 +47,9 @@ time.isleap = function(y) { return time.yearsize(y) == 366; };
 /* timecode utility */
 time.timecode = function(t, fps = 24)
 {
-  var s = number.whole(t);
+  var s = whole(t);
   var frac = t - s;
-  return `${s}:${number.whole(frac * fps)}`;
+  return `${s}:${whole(frac * fps)}`;
 };
 
 /* per-month day counts (non-leap) */
@@ -60,9 +60,9 @@ function time_record(num = now(),
                 zone = computer_zone(),
                 dst  = computer_dst())
 {
-  if (typeof num == "object") return num;
+  if (is_object(num)) return num;
 
-  var monthdays = time.monthdays.slice();
+  var monthdays = array(time.monthdays);
   var rec = {
     second : 0,  minute : 0,  hour : 0,
     yday   : 0,  year   : 0,
@@ -77,13 +77,13 @@ function time_record(num = now(),
 
   /* split into day + seconds-of-day */
   var hms = num % time.day;
-  var day = number.floor(num / time.day);
+  var day = floor(num / time.day);
   if (hms < 0) { hms += time.day; day--; }
 
   rec.second  = hms % time.minute;
-  var tmp     = number.floor(hms / time.minute);
+  var tmp     = floor(hms / time.minute);
   rec.minute  = tmp % time.minute;
-  rec.hour    = number.floor(tmp / time.minute);
+  rec.hour    = floor(tmp / time.minute);
   rec.weekday = (day + 4_503_599_627_370_496 + 2) % 7;   /* 2 → 1970-01-01 was Thursday */
 
   /* year & day-of-year */
@@ -111,9 +111,8 @@ function time_record(num = now(),
 
 function time_number(rec = now())
 {
-  if (typeof rec == "number") return rec;
+  if (is_number(rec)) return rec;
 
-  log.console(typeof rec)
   log.console(rec)  
   log.console(rec.minute)
 
@@ -157,47 +156,47 @@ function time_text(num = now(),
               zone = computer_zone(),
               dst  = computer_dst())
 {
-  var rec   = (typeof num == "number") ? time_record(num, zone, dst) : num;
+  var rec   = is_number(num) ? time_record(num, zone, dst) : num;
   zone      = rec.zone;
   dst       = rec.dst;
 
   /* am/pm */
-  if (fmt.includes("a")) {
-    if (rec.hour >= 13) { rec.hour -= 12; fmt = fmt.replaceAll("a", "PM"); }
-    else if (rec.hour == 12)            { fmt = fmt.replaceAll("a", "PM"); }
-    else if (rec.hour == 0)  { rec.hour = 12; fmt = fmt.replaceAll("a", "AM"); }
-    else                                   fmt = fmt.replaceAll("a", "AM");
+  if (search(fmt, "a") != null) {
+    if (rec.hour >= 13) { rec.hour -= 12; fmt = replace(fmt, "a", "PM"); }
+    else if (rec.hour == 12)            { fmt = replace(fmt, "a", "PM"); }
+    else if (rec.hour == 0)  { rec.hour = 12; fmt = replace(fmt, "a", "AM"); }
+    else                                   fmt = replace(fmt, "a", "AM");
   }
 
   /* BCE/CE */
   var year = rec.year > 0 ? rec.year : rec.year - 1;
-  if (fmt.includes("c")) {
-    if (year < 0) { year = number.abs(year); fmt = fmt.replaceAll("c", "BC"); }
-    else                                   fmt = fmt.replaceAll("c", "AD");
+  if (search(fmt, "c") != null) {
+    if (year < 0) { year = abs(year); fmt = replace(fmt, "c", "BC"); }
+    else                                   fmt = replace(fmt, "c", "AD");
   }
 
   /* substitutions */
   var full_offset = zone + (dst ? 1 : 0);
-  fmt = fmt.replaceAll("yyyy", year.toString().padStart(4, "0"));
-  fmt = fmt.replaceAll("y",    year);
-  fmt = fmt.replaceAll("eee",  rec.yday + 1);
-  fmt = fmt.replaceAll("dd",   rec.day.toString().padStart(2, "0"));
-  fmt = fmt.replaceAll("d",    rec.day);
-  fmt = fmt.replaceAll("hh",   rec.hour.toString().padStart(2, "0"));
-  fmt = fmt.replaceAll("h",    rec.hour);
-  fmt = fmt.replaceAll("nn",   rec.minute.toString().padStart(2, "0"));
-  fmt = fmt.replaceAll("n",    rec.minute);
-  fmt = fmt.replaceAll("ss",   rec.second.toFixed(2).padStart(2, "0"));
-  fmt = fmt.replaceAll("s",    rec.second);
-  fmt = fmt.replaceAll("x",    dst ? "DST" : "");                     /* new */
-  fmt = fmt.replaceAll("z",    (full_offset >= 0 ? "+" : "") + text(full_offset));
-  fmt = fmt.replaceAll(/mm[^bB]/g, rec.month + 1);
-  fmt = fmt.replaceAll(/m[^bB]/g,  rec.month + 1);
-  fmt = fmt.replaceAll(/v[^bB]/g,  rec.weekday);
-  fmt = fmt.replaceAll("mb", time.monthstr[rec.month].slice(0, 3));
-  fmt = fmt.replaceAll("mB", time.monthstr[rec.month]);
-  fmt = fmt.replaceAll("vB", time.weekdays[rec.weekday]);
-  fmt = fmt.replaceAll("vb", time.weekdays[rec.weekday].slice(0, 3));
+  fmt = replace(fmt, "yyyy", text(year, "i4"))
+  fmt = replace(fmt, "y", year);
+  fmt = replace(fmt, "eee", rec.yday + 1);
+  fmt = replace(fmt, "dd", text(rec.day, "i2"))
+  fmt = replace(fmt, "d", rec.day);
+  fmt = replace(fmt, "hh", text(rec.hour, "i2"));
+  fmt = replace(fmt, "h", rec.hour);
+  fmt = replace(fmt, "nn", text(rec.minute, "i2"));
+  fmt = replace(fmt, "n", rec.minute);
+  fmt = replace(fmt, "ss", text(rec.second, "i2"));
+  fmt = replace(fmt, "s", rec.second);
+  fmt = replace(fmt, "x", dst ? "DST" : "");                     /* new */
+  fmt = replace(fmt, "z", (full_offset >= 0 ? "+" : "") + text(full_offset));
+  fmt = replace(fmt, /mm[^bB]/g, rec.month + 1);
+  fmt = replace(fmt, /m[^bB]/g,  rec.month + 1);
+  fmt = replace(fmt, /v[^bB]/g,  rec.weekday);
+  fmt = replace(fmt, "mb", text(time.monthstr[rec.month], 0, 3));
+  fmt = replace(fmt, "mB", time.monthstr[rec.month]);
+  fmt = replace(fmt, "vB", time.weekdays[rec.weekday]);
+  fmt = replace(fmt, "vb", text(time.weekdays[rec.weekday], 0, 3));
 
   return fmt;
 }

toml.cm

@@ -1,58 +1,88 @@
 // Simple TOML parser for cell modules
 // Supports basic TOML features needed for the module system
 
-function parse_toml(text) {
-  if (typeof text != 'string') return null
-  var lines = text.split('\n')
+function toml_unescape(s) {
+  if (!is_text(s)) return null
+  // Order matters:
+  // "\\\"" (backslash + quote) should become "\"", not just '"'
+  // So: unescape \" first, then unescape \\.
+  s = replace(s, '\\"', '"')
+  s = replace(s, '\\\\', '\\')
+  return s
+}
+
+function toml_escape(s) {
+  if (!is_text(s)) return null
+  // Order matters:
+  // escape backslashes first, otherwise escaping quotes introduces new backslashes that would get double-escaped.
+  s = replace(s, '\\', '\\\\')
+  s = replace(s, '"', '\\"')
+  return s
+}
+
+function parse_toml(toml_text) {
+  if (!is_text(toml_text)) return null
+
+  // Prefer Misty split if present; fall back to JS split.
+  var lines = array(toml_text, '\n')
+  if (lines == null) lines = array(toml_text, '\n')
+
   var result = {}
   var current_section = result
   var current_section_name = ''
 
-  for (var i = 0; i < lines.length; i++) {
-    var line = lines[i].trim()
-    
+  for (var i = 0; i < length(lines); i++) {
+    var line = trim(lines[i])
+    if (line == null) line = lines[i]
     // Skip empty lines and comments
-    if (!line || line.startsWith('#')) continue
+    if (!line || starts_with(line, '#')) continue
 
     // Section header
-    if (line.startsWith('[') && line.endsWith(']')) {
-      var section_path = parse_key_path(line.slice(1, -1))
-      current_section = result
-      // Reconstruct name for debugging/legacy (not strictly needed for object construction)
-      current_section_name = section_path.join('.')
+    if (starts_with(line, '[') && ends_with(line, ']')) {
+      var inner = text(line, 1, -1)
+      var section_path = parse_key_path(inner)
+      if (section_path == null) return null
 
-      for (var j = 0; j < section_path.length; j++) {
+      current_section = result
+      current_section_name = text(section_path, '.')
+
+      for (var j = 0; j < length(section_path); j++) {
         var key = section_path[j]
-        if (!current_section[key]) {
+
+        // Only treat null as "missing"; do not clobber false/0/""
+        if (current_section[key] == null) {
           current_section[key] = {}
+        } else if (!is_object(current_section[key])) {
+          // Scalar/table collision like: a = 1 then [a.b]
+          return null
         }
+
         current_section = current_section[key]
       }
       continue
     }
 
     // Key-value pair
-    var eq_index = line.indexOf('=')
-    if (eq_index > 0) {
-      var key_part = line.substring(0, eq_index).trim()
-      var value = line.substring(eq_index + 1).trim()
+    var eq_index = search(line, '=')
+    if (eq_index != null && eq_index > 0) {
+      var key_part = trim(text(line, 0, eq_index))
+      var value = trim(text(line, eq_index + 1))
+      if (key_part == null) key_part = trim(text(line, 0, eq_index))
+      if (value == null) value = trim(text(line, eq_index + 1))
 
-      // Handle quoted keys in key-value pairs too if needed?
-      // For now assuming simple keys or quoted keys
       var key = parse_key(key_part)
+      if (key == null) return null
 
-      // Parse value
-      if (value.startsWith('"') && value.endsWith('"')) {
-        // String - unescape quotes
-        current_section[key] = value.slice(1, -1).replace(/\\"/g, '"')
-      } else if (value.startsWith('[') && value.endsWith(']')) {
-        // Array
+      if (starts_with(value, '"') && ends_with(value, '"')) {
+        var unquoted = text(value, 1, -1)
+        current_section[key] = toml_unescape(unquoted)
+        if (current_section[key] == null) return null
+      } else if (starts_with(value, '[') && ends_with(value, ']')) {
         current_section[key] = parse_array(value)
+        if (current_section[key] == null) return null
       } else if (value == 'true' || value == 'false') {
-        // Boolean
         current_section[key] = value == 'true'
-      } else if (isa(value, number)) {
-        // Number
+      } else if (is_number(value)) {
         current_section[key] = Number(value)
       } else {
         // Unquoted string
@@ -65,149 +95,151 @@ function parse_toml(text) {
 }
 
 function parse_key(str) {
-    if (str.startsWith('"') && str.endsWith('"')) {
-        return str.slice(1, -1).replace(/\\"/g, '"')
+  if (!is_text(str)) return null
+
+  if (starts_with(str, '"') && ends_with(str, '"')) {
+    var inner = text(str, 1, -1)
+    return toml_unescape(inner)
   }
   return str
 }
 
 // Split a key path by dots, respecting quotes
 function parse_key_path(str) {
+  if (!is_text(str)) return null
+
   var parts = []
   var current = ''
   var in_quote = false
 
-  for (var i = 0; i < str.length; i++) {
+  for (var i = 0; i < length(str); i++) {
     var c = str[i]
-    if (c == '"' && (i==0 || str[i-1] != '\\')) {
+    if (c == '"' && (i == 0 || str[i - 1] != '\\')) {
       in_quote = !in_quote
-      // We don't verify if it's strictly correct TOML quote usage, just rudimentary
     } else if (c == '.' && !in_quote) {
-      parts.push(parse_key(current.trim()))
+      var piece = trim(current)
+      if (piece == null) piece = trim(current)
+      push(parts, parse_key(piece))
       current = ''
       continue
     }
     current += c
   }
-  if (current.trim().length > 0)
-    parts.push(parse_key(current.trim()))
+
+  var tail = trim(current)
+  if (tail == null) tail = trim(current)
+  if (length(tail) > 0) push(parts, parse_key(tail))
 
   return parts
 }
 
 function parse_array(str) {
-  // Remove brackets
-  str = str.slice(1, -1).trim()
+  if (!is_text(str)) return null
+
+  // Remove brackets and trim
+  str = text(str, 1, -1)
+  str = trim(str)
   if (!str) return []
 
   var items = []
   var current = ''
   var in_quotes = false
 
-  for (var i = 0; i < str.length; i++) {
-    var char = str[i]
+  for (var i = 0; i < length(str); i++) {
+    var ch = str[i]
 
-    if (char == '"' && (i == 0 || str[i-1] != '\\')) {
+    if (ch == '"' && (i == 0 || str[i - 1] != '\\')) {
       in_quotes = !in_quotes
-      current += char
-    } else if (char == ',' && !in_quotes) {
-      items.push(parse_value(current.trim()))
+      current += ch
+    } else if (ch == ',' && !in_quotes) {
+      var piece = trim(current)
+      if (piece == null) piece = trim(current)
+      push(items, parse_value(piece))
       current = ''
     } else {
-      current += char
+      current += ch
     }
   }
 
-  if (current.trim()) {
-    items.push(parse_value(current.trim()))
-  }
+  var last = trim(current)
+  if (last == null) last = trim(current)
+  if (last) push(items, parse_value(last))
 
   return items
 }
 
 function parse_value(str) {
-  if (str.startsWith('"') && str.endsWith('"')) {
-    return str.slice(1, -1).replace(/\\"/g, '"')
-  } else if (str == 'true' || str == 'false') {
-    return str == 'true'
-  } else if (!isNaN(Number(str))) {
-    return Number(str)
-  } else {
-    return str
+  if (!is_text(str)) return null
+
+  if (starts_with(str, '"') && ends_with(str, '"')) {
+    return toml_unescape(text(str, 1, -1))
   }
+  if (str == 'true' || str == 'false') return str == 'true'
+
+  // Use your existing numeric test; TOML numeric formats are richer, but this keeps your "module TOML" scope.
+  if (!isNaN(Number(str))) return Number(str)
+
+  return str
 }
 
 function encode_toml(obj) {
   var result = []
 
   function encode_value(value) {
-    if (typeof value == 'string') {
-      return '"' + value.replace(/"/g, '\\"') + '"'
-    } else if (typeof value == 'boolean') {
-      return value ? 'true' : 'false'
-    } else if (typeof value == 'number') {
-      return text(value)
-    } else if (isa(value, array)) {
+    if (is_text(value)) return '"' + toml_escape(value) + '"'
+    if (is_logical(value)) return value ? 'true' : 'false'
+    if (is_number(value)) return text(value)
+    if (is_array(value)) {
       var items = []
-      for (var i = 0; i < value.length; i++) {
-        items.push(encode_value(value[i]))
-      }
-      return '[' + items.join(', ') + ']'
+      for (var i = 0; i < length(value); i++) push(items, encode_value(value[i]))
+      return '[' + text(items, ', ') + ']'
     }
     return text(value)
   }
 
   function quote_key(k) {
-      if (k.includes('.') || k.includes('"') || k.includes(' ')) {
-          return '"' + k.replace(/"/g, '\\"') + '"'
+    if (search(k, '.') != null || search(k, '"') != null || search(k, ' ') != null) {
+      return '"' + toml_escape(k) + '"'
     }
     return k
   }
 
   // First pass: encode top-level simple values
   var keys = array(obj)
-  for (var i = 0; i < keys.length; i++) {
+  for (var i = 0; i < length(keys); i++) {
     var key = keys[i]
     var value = obj[key]
-    if (!isa(value, object)) {
-      result.push(quote_key(key) + ' = ' + encode_value(value))
-    }
+    if (!is_object(value)) push(result, quote_key(key) + ' = ' + encode_value(value))
   }
 
   // Second pass: encode nested objects
-  function encode_section(obj, path) {
-    var keys = array(obj)
-    
-    for (var i = 0; i < keys.length; i++) {
+  function encode_section(o, path) {
+    var keys = array(o)
+    for (var i = 0; i < length(keys); i++) {
       var key = keys[i]
-      var value = obj[key]
+      var value = o[key]
 
-      if (isa(value, object)) {
-        // Nested object - create section
-        // We MUST quote the key segment if it has dots, otherwise it becomes a nested table path
+      if (is_object(value)) {
         var quoted = quote_key(key)
         var section_path = path ? path + '.' + quoted : quoted
+        push(result, '[' + section_path + ']')
 
-        result.push('[' + section_path + ']')
-        
-        // First encode direct properties of this section
+        // Direct properties
         var section_keys = array(value)
-        for (var j = 0; j < section_keys.length; j++) {
+        for (var j = 0; j < length(section_keys); j++) {
           var sk = section_keys[j]
           var sv = value[sk]
-          if (!isa(sv, object)) {
-            result.push(quote_key(sk) + ' = ' + encode_value(sv))
-          }
+          if (!is_object(sv)) push(result, quote_key(sk) + ' = ' + encode_value(sv))
         }
 
-        // Then encode nested sections
+        // Nested sections
         encode_section(value, section_path)
       }
     }
   }
 
   encode_section(obj, '')
-  return result.join('\n')
+  return text(result, '\n')
 }
 
 return {

unlink.ce

@@ -4,7 +4,7 @@
 var link = use('link')
 var shop = use('internal/shop')
 
-if (args.length < 1) {
+if (length(args) < 1) {
   log.console("Usage: cell unlink <origin>")
   log.console("Removes a link and restores the original package.")
   $stop()

update.ce

@@ -1,34 +1,51 @@
-// cell update - Update packages from remote sources
-//
-// This command checks for updates to all packages and downloads new versions.
-// For local packages, ensures the symlink is correct.
-// For remote packages, checks the remote for new commits.
+// cell update [<locator>] - Update packages from remote sources
 //
 // Usage:
-//   cell update           - Update all packages
-//   cell update <package> - Update a specific package
+//   cell update              Update all packages in shop
+//   cell update .            Update current directory package
+//   cell update <locator>    Update a specific package
+//
+// Options:
+//   --build              Run build after updating
+//   --target <triple>    Target platform for build (requires --build)
+//   --follow-links       Update link targets instead of origins
 
 var shop = use('internal/shop')
+var build = use('build')
 var fd = use('fd')
 
 var target_pkg = null
+var run_build = false
+var target_triple = null
+var follow_links = false
 
 // Parse arguments
-for (var i = 0; i < args.length; i++) {
+for (var i = 0; i < length(args); i++) {
   if (args[i] == '--help' || args[i] == '-h') {
-    log.console("Usage: cell update [package]")
+    log.console("Usage: cell update [<locator>] [options]")
+    log.console("")
     log.console("Update packages from remote sources.")
     log.console("")
-    log.console("Arguments:")
-    log.console("  package  Optional package name to update. If omitted, updates all.")
-    log.console("")
-    log.console("This command checks for updates to all packages and downloads")
-    log.console("new versions. For local packages, ensures the symlink is correct.")
+    log.console("Options:")
+    log.console("  --build              Run build after updating")
+    log.console("  --target <triple>    Target platform for build (requires --build)")
+    log.console("  --follow-links       Update link targets instead of origins")
     $stop()
-  } else if (!args[i].startsWith('-')) {
+  } else if (args[i] == '--build') {
+    run_build = true
+  } else if (args[i] == '--target' || args[i] == '-t') {
+    if (i + 1 < length(args)) {
+      target_triple = args[++i]
+    } else {
+      log.error('--target requires a triple')
+      $stop()
+    }
+  } else if (args[i] == '--follow-links') {
+    follow_links = true
+  } else if (!starts_with(args[i], '-')) {
     target_pkg = args[i]
     // Resolve relative paths to absolute paths
-    if (target_pkg == '.' || target_pkg.startsWith('./') || target_pkg.startsWith('../') || fd.is_dir(target_pkg)) {
+    if (target_pkg == '.' || starts_with(target_pkg, './') || starts_with(target_pkg, '../') || fd.is_dir(target_pkg)) {
       var resolved = fd.realpath(target_pkg)
       if (resolved) {
         target_pkg = resolved
@@ -37,56 +54,93 @@ for (var i = 0; i < args.length; i++) {
   }
 }
 
+// Default target if building
+if (run_build && !target_triple) {
+  target_triple = build.detect_host_target()
+}
+
+var link = use('link')
+
 function update_and_fetch(pkg)
 {
   var lock = shop.load_lock()
   var old_entry = lock[pkg]
   var old_commit = old_entry ? old_entry.commit : null
 
-  var new_entry = shop.update(pkg)
+  // Handle follow-links option
+  var effective_pkg = pkg
+  if (follow_links) {
+    var link_target = link.get_target(pkg)
+    if (link_target) {
+      effective_pkg = link_target
+      log.console("  Following link: " + pkg + " -> " + effective_pkg)
+    }
+  }
+
+  var new_entry = shop.update(effective_pkg)
 
   if (new_entry) {
     if (new_entry.commit) {
-      var old_str = old_commit ? old_commit.substring(0, 8) : "(new)"
-      log.console("  " + pkg + " " + old_str + " -> " + new_entry.commit.substring(0, 8))
-      shop.fetch(pkg)
+      var old_str = old_commit ? text(old_commit, 0, 8) : "(new)"
+      log.console("  " + effective_pkg + " " + old_str + " -> " + text(new_entry.commit, 0, 8))
+      shop.fetch(effective_pkg)
     } else {
       // Local package - just ensure symlink is correct
-      log.console("  " + pkg + " (local)")
+      log.console("  " + effective_pkg + " (local)")
     }
-    shop.extract(pkg)
-    shop.build_package_scripts(pkg)
-    return true
+    shop.extract(effective_pkg)
+    shop.build_package_scripts(effective_pkg)
+    return effective_pkg
   }
-  return false
+  return null
 }
 
+var updated_packages = []
+
 if (target_pkg) {
-  if (update_and_fetch(target_pkg))
+  var updated = update_and_fetch(target_pkg)
+  if (updated) {
+    push(updated_packages, updated)
     log.console("Updated " + target_pkg + ".")
-  else
+  } else {
     log.console(target_pkg + " is up to date.")
+  }
 } else {
   var packages = shop.list_packages()
-  var pkg_count = packages.length
+  var pkg_count = length(packages)
   log.console("Checking for updates (" + text(pkg_count) + " package" + (pkg_count == 1 ? "" : "s") + ")...")
 
-  var updated_count = 0
-  
-  for (var i = 0; i < packages.length; i++) {
+  for (var i = 0; i < length(packages); i++) {
     var pkg = packages[i]
     if (pkg == 'core') continue
 
-    if (update_and_fetch(pkg)) {
-      updated_count++
+    var updated = update_and_fetch(pkg)
+    if (updated) {
+      push(updated_packages, updated)
     }
   }
 
-  if (updated_count > 0) {
-    log.console("Updated " + text(updated_count) + " package" + (updated_count == 1 ? "" : "s") + ".")
+  if (length(updated_packages) > 0) {
+    log.console("Updated " + text(length(updated_packages)) + " package" + (length(updated_packages) == 1 ? "" : "s") + ".")
   } else {
     log.console("All packages are up to date.")
   }
 }
 
+// Run build if requested
+if (run_build && length(updated_packages) > 0) {
+  log.console("")
+  log.console("Building updated packages...")
+
+  arrfor(updated_packages, function(pkg) {
+    try {
+      var lib = build.build_dynamic(pkg, target_triple, 'release')
+      if (lib)
+        log.console("  Built: " + lib)
+    } catch (e) {
+      log.error("  Failed to build " + pkg + ": " + e)
+    }
+  })
+}
+
 $stop()