Compare commits
325 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| c3762ec352 | |||
| 53423a5166 | |||
| a71a13770f | |||
| 5f7d7b7e78 | |||
| 4522c0aa03 | |||
| f95beacfa3 | |||
| 1881a0209f | |||
| 82d5b243a4 | |||
| 4bff40fa4a | |||
| 64cd5055c5 | |||
| 72e0b829c2 | |||
| 5f0bb67cbf | |||
| 6934a0e889 | |||
| b9e609ee39 | |||
| eb69c40f2d | |||
| 2018036bce | |||
| f1f52bcb2f | |||
| aad988ecbf | |||
| 7b86e6f72c | |||
| bf521974af | |||
| 5743568bf1 | |||
| 9fd8c11670 | |||
| be0f9d1afe | |||
| 1742d0b575 | |||
| c6772e3d27 | |||
| bc5e14a3e1 | |||
| b9ef66cae9 | |||
| 9717a4eeaf | |||
| 9790d9342d | |||
| 4eb4c9e287 | |||
| 9501e4ac12 | |||
| 55f9ee3cb0 | |||
| 9c39084e60 | |||
| 6f3a048f36 | |||
| 059ce02003 | |||
| 635453b936 | |||
| 315b2eff00 | |||
| cf41d12d22 | |||
| dd952c0e46 | |||
| 18714e6142 | |||
| 4936099c39 | |||
| f1471763f5 | |||
| 5850793b67 | |||
| fc1745c652 | |||
| 027a573d89 | |||
| eb2b2cc40d | |||
| d5319d2849 | |||
| 43d0449904 | |||
| b842e82f77 | |||
| 86e269fa91 | |||
| 98ccbd4704 | |||
| de65991807 | |||
| dba755dcec | |||
| 97d22ffe44 | |||
| 8f3a478771 | |||
| 9ea41eed78 | |||
| ff421d39f6 | |||
| 635f6febe4 | |||
| a771ed2d0f | |||
| 62af5649fe | |||
| 710761e2d5 | |||
| 74520b8333 | |||
| 7f3d6ed8cd | |||
| eed6487114 | |||
| 2c2aaa0653 | |||
| e610a412b9 | |||
| 8ba35a0d56 | |||
| 21710d5c8e | |||
| e60ca8123b | |||
| b75d5c8c30 | |||
| 9bbb4f2af8 | |||
| ec219c5830 | |||
| 731efaedaf | |||
| 3723e3b7e7 | |||
| 62c562a3f1 | |||
| 456267a771 | |||
| edb0670670 | |||
| 872120c757 | |||
| f3660e92a1 | |||
| b0f4d6c493 | |||
| 627eb534a2 | |||
| 2b612ed5d4 | |||
| 8392f44c45 | |||
| 58a9eda311 | |||
| fb0bb553f3 | |||
| 9e59c51f3c | |||
| 3d74472a4c | |||
| acbe858995 | |||
| 3ae07cc7b0 | |||
| 33d2574b72 | |||
| 0c2d1c41ae | |||
| 31d12e4194 | |||
| b784750f69 | |||
| a45a3ca379 | |||
| 9387c57c3b | |||
| 091cc1fc0e | |||
| 9a491a8e6d | |||
| 6527988eb9 | |||
| 1442ce21a6 | |||
| c2a45df286 | |||
| c63e3d1a68 | |||
| 50cf67bd66 | |||
| 96c57c43ba | |||
| 192b277229 | |||
| e2e8f0a1e6 | |||
| f0454650a2 | |||
| 4b24368be2 | |||
| c199a13a7f | |||
| 290a637883 | |||
| 40d800195a | |||
| f3034d23f7 | |||
| d337fcb265 | |||
| 4171aadfff | |||
| 9a6014d65b | |||
| 8cdd1512d1 | |||
| 64c1789fcc | |||
| 1011d8e5be | |||
| b0fb2bf085 | |||
| 3bb88330da | |||
| c8cb425412 | |||
| 3e7aa0fff4 | |||
| aa67f86f90 | |||
| 01446e644b | |||
| 92f51885bc | |||
| 2688cb722a | |||
| 71bb0820ce | |||
| d67f4c8f08 | |||
| 975bf2721b | |||
| 779a87878b | |||
| c586ea5ef1 | |||
| 6819729429 | |||
| 31dd93d5f4 | |||
| 9d266aac4c | |||
| b24f6d645b | |||
| 39acb55d4f | |||
| 1496a5f510 | |||
| 76bd3afdf8 | |||
| 70b60f78de | |||
| 51bea5507b | |||
| 933547265e | |||
| fd6df322f6 | |||
| 20d279598a | |||
| 9dade105b6 | |||
| a77578e243 | |||
| ada8af1ccc | |||
| 99c5ce6e94 | |||
| 163ea8a48c | |||
| b210013891 | |||
| 635daaca9c | |||
| 9f9f271e78 | |||
| 343fcd20bc | |||
| 3ad9dc7df7 | |||
| cec2aa7168 | |||
| f47c92a71a | |||
| af594a9162 | |||
| 2589183775 | |||
| dcc0bf550a | |||
| d4609c7baa | |||
| 98603f5ae8 | |||
| bdc07be344 | |||
| 4a44c24bfb | |||
| ac1991fe8c | |||
| f2b63f0048 | |||
| 774688cfb9 | |||
| aa2404b3f7 | |||
| 94b55d667c | |||
| f73c913498 | |||
| 588ca11f57 | |||
| 9e178d8371 | |||
| aaada3770a | |||
| a0299c0a89 | |||
| 33cb1138f4 | |||
| ec7efdeeb7 | |||
| c93be6a315 | |||
| 53268c94b9 | |||
| 7e43a4ddc0 | |||
| e7669da325 | |||
| 4f1286df05 | |||
| 52c222c4f2 | |||
| 0caccd0ea5 | |||
| 03b5632fc1 | |||
| 42bbadcd33 | |||
| b6052f9de3 | |||
| 1dd09b1980 | |||
| 0113407728 | |||
| be02fcd960 | |||
| cbe8c09068 | |||
| dfa2a33926 | |||
| 18e040acb1 | |||
| 3f53b6b1b6 | |||
| 21f248a33a | |||
| 795b32ad1a | |||
| f33cdaf793 | |||
| a60b1967df | |||
| aef687b57c | |||
| 76c2e47d0f | |||
| 0ede112d05 | |||
| a39998a502 | |||
| 6edf9937dd | |||
| e447a87a00 | |||
| 575ff1329a | |||
| db33b0cb91 | |||
| f35569d4bb | |||
| 94b71b6e6b | |||
| 392d2416ec | |||
| 87c7d15b67 | |||
| 93bed793c0 | |||
| 936b3f0ac9 | |||
| 45dc80230d | |||
| 9ba86b8f80 | |||
| 360c15d7fe | |||
| e6da638536 | |||
| 0c5b966773 | |||
| c87a536da3 | |||
| 2865d6ad26 | |||
| 47d0e6f985 | |||
| f0545defdb | |||
| ae9a139440 | |||
| d008649c3e | |||
| aa70c5dde6 | |||
| b7fd8901d4 | |||
| deddb9a18e | |||
| 494d973a3b | |||
| 34551695a1 | |||
| dcf050ee3c | |||
| 615f0cee08 | |||
| 260b9e55d4 | |||
| fda76ae05b | |||
| d3eda47fd3 | |||
| f3069b481d | |||
| b2008f4894 | |||
| 28fce08dd9 | |||
| d92b8c279a | |||
| e9a8a659e0 | |||
| f6c4ea70a0 | |||
| 1b83b18c39 | |||
| ddd858d2ec | |||
| 996dd3860a | |||
| 6f4adf7640 | |||
| 7e901bbbd2 | |||
| 2de1e60b8a | |||
| b563fff062 | |||
| fdd946b3d4 | |||
| de8f021a55 | |||
| d0c4d19faa | |||
| b715a5dffb | |||
| 28e0afc11d | |||
| 46a7a4e9d8 | |||
| ceef82464a | |||
| 6f113a9601 | |||
| 8e25da3673 | |||
| ca29e7ca35 | |||
| 6576dddca2 | |||
| ce3c3873c5 | |||
| 149a042db9 | |||
| 071c0eeb9f | |||
| 53fb75353f | |||
| 74ac457e1c | |||
| 8b692e4666 | |||
| 5ddb860201 | |||
| 6d8a992716 | |||
| 2797909633 | |||
| 8db3c8c7f7 | |||
| e7297275a3 | |||
| fc74bd2a4b | |||
| 189093b348 | |||
| f7ae7df9d6 | |||
| b1fdd14ed5 | |||
| 91902d6bf2 | |||
| c6d4530060 | |||
| 98a0bfd09c | |||
| bcdadb7323 | |||
| 773004f23b | |||
| 644d9915bf | |||
| 26513d56b7 | |||
| c43d3e6ca8 | |||
| 7c7dc310a0 | |||
| dde039b09a | |||
| e22cb31b85 | |||
| 00f15b094b | |||
| 9818b2daad | |||
| 3a5d38ea45 | |||
| 1c8438ad20 | |||
| a0470acc45 | |||
| a568f4c400 | |||
| 69ae3d2cef | |||
| 621a4b7bef | |||
| 09350c68f4 | |||
| 3bb17a5296 | |||
| 8f84e12218 | |||
| 6c57d4fe1b | |||
| 4aa79e85cd | |||
| 5d5aaf2e23 | |||
| ef12c8587c | |||
| 7117e3d9ea | |||
| 3b2bb5276d | |||
| 555fa27878 | |||
| 764250c4f6 | |||
| 33c377410d | |||
| af933494a9 | |||
| 72751c3833 | |||
| 195cc9dc66 | |||
| 4b648f3291 | |||
| ffd1f34344 | |||
| 084bee9f0f | |||
| a8027e9c00 | |||
| df2c7409c0 | |||
| bebf1f8c86 | |||
| 63968cd224 | |||
| db2ee387a4 | |||
| d097455d6a | |||
| ba8491926c | |||
| 45ad322e0c | |||
| fbbc6d4347 | |||
| f52d5bd9ae | |||
| 5597bf78cb | |||
| a1e460e897 | |||
| 690df89610 | |||
| c3f39a949d | |||
| 297066c2d4 | |||
| 2ea1d50fa3 | |||
| c81f49d938 | |||
| 2112d2ffb3 | |||
| 799ca3758b | |||
| df648a8f0b |
@@ -0,0 +1,16 @@
|
||||
# ── Generated build artifacts ────────────────────────────────────────────────
|
||||
# dist/ holds elc transpiler output (*.c, *.elh) plus the generated decls header.
|
||||
# CI consumes these (the "Generate ELP master declarations header" step greps
|
||||
# dist/*.c), so they stay TRACKED. But they are machine-generated and must never
|
||||
# bloat a review. A single soul change regenerates dist/neuron.c + dist/soul.c =
|
||||
# ~57,000 lines of churn that buries the real ~few-hundred-line source diff and
|
||||
# poisons both human review and the agent review pipeline.
|
||||
#
|
||||
# -diff → git emits "Binary files differ" instead of the text diff
|
||||
# linguist-generated → Gitea collapses the file in the PR view + drops it from
|
||||
# language stats
|
||||
#
|
||||
# Net effect: PRs show only the real .el/source changes; the build is untouched.
|
||||
dist/** -diff linguist-generated
|
||||
neuron-built -diff linguist-generated
|
||||
dist/neuron -diff linguist-generated
|
||||
+299
-73
@@ -9,29 +9,37 @@ on:
|
||||
- main
|
||||
workflow_dispatch:
|
||||
|
||||
# Serialize all activity on the single GCE runner.
|
||||
# With build+deploy in the same workflow, a new push queues a single
|
||||
# workflow instance — not two competing ones — so the deploy job is
|
||||
# never orphaned by a cancellation race.
|
||||
concurrency:
|
||||
group: neuron-runner
|
||||
cancel-in-progress: false
|
||||
|
||||
jobs:
|
||||
build:
|
||||
runs-on: ubuntu-latest
|
||||
|
||||
steps:
|
||||
- name: Free disk space
|
||||
run: |
|
||||
df -h /
|
||||
docker system prune -af --volumes 2>/dev/null || true
|
||||
df -h /
|
||||
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v4
|
||||
|
||||
- name: Checkout foundation/el (ELP source for soul.el imports)
|
||||
run: |
|
||||
git clone http://34.31.145.131/neuron-technologies/el.git \
|
||||
--depth=1 --branch=dev \
|
||||
../foundation/el
|
||||
|
||||
- name: Install build dependencies
|
||||
run: |
|
||||
apt-get update -qq
|
||||
apt-get install -y gcc libcurl4-openssl-dev apt-transport-https ca-certificates
|
||||
apt-get install -y gcc curl libcurl4-openssl-dev apt-transport-https ca-certificates
|
||||
echo "deb [trusted=yes] https://packages.cloud.google.com/apt cloud-sdk main" \
|
||||
> /etc/apt/sources.list.d/google-cloud-sdk.list
|
||||
apt-get update -qq && apt-get install -y google-cloud-cli
|
||||
|
||||
- name: Download El SDK from Artifact Registry
|
||||
- name: Authenticate to GCP + stage PINNED El runtime
|
||||
env:
|
||||
GCP_SA_KEY: ${{ secrets.GCP_SA_KEY }}
|
||||
run: |
|
||||
@@ -39,79 +47,80 @@ jobs:
|
||||
gcloud auth activate-service-account --key-file=/tmp/gcp-key.json
|
||||
gcloud config set project neuron-785695
|
||||
|
||||
rm -rf /opt/el/dist /opt/el/runtime
|
||||
mkdir -p /opt/el/dist/platform /opt/el/dist/bin /opt/el/runtime
|
||||
# PINNED RUNTIME — do NOT pull "latest" from Artifact Registry.
|
||||
# The ship-soul calls engram_prune_telemetry (awareness.el sync/heartbeat
|
||||
# self-review). The latest published el-runtime-c no longer defines that
|
||||
# symbol, so an unpinned build fails to LINK — which is exactly how a
|
||||
# broken/handlerless soul reached prod before. Compile against the
|
||||
# vendored release runtime v1.0.0-20260501: the exact runtime the merged
|
||||
# ship-soul was verified against (verify-soul-contract GATE PASS +
|
||||
# genesis boot survives + full safety-contact response). It is committed
|
||||
# under vendor/ so the soul build is fully reproducible and never depends
|
||||
# on a moving AR "latest".
|
||||
rm -rf /opt/el/runtime
|
||||
mkdir -p /opt/el/runtime
|
||||
cp vendor/el-runtime/v1.0.0-20260501/el_runtime.c /opt/el/runtime/el_runtime.c
|
||||
cp vendor/el-runtime/v1.0.0-20260501/el_runtime.h /opt/el/runtime/el_runtime.h
|
||||
echo "El runtime PINNED to v1.0.0-20260501: $(ls /opt/el/runtime/)"
|
||||
|
||||
# Get latest version of each package
|
||||
get_latest() {
|
||||
gcloud artifacts versions list \
|
||||
--repository=foundation-dev \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package="$1" \
|
||||
--sort-by="~createTime" \
|
||||
--limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}'
|
||||
}
|
||||
|
||||
ELC_VER=$(get_latest el-elc)
|
||||
ELB_VER=$(get_latest el-elb)
|
||||
RC_VER=$(get_latest el-runtime-c)
|
||||
RH_VER=$(get_latest el-runtime-h)
|
||||
|
||||
echo "Downloading elc@${ELC_VER} elb@${ELB_VER} runtime@${RC_VER}"
|
||||
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --version="${ELC_VER}" \
|
||||
--destination=/opt/el/dist/platform/
|
||||
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elb --version="${ELB_VER}" \
|
||||
--destination=/opt/el/dist/bin/
|
||||
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --version="${RC_VER}" \
|
||||
--destination=/opt/el/runtime/
|
||||
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --version="${RH_VER}" \
|
||||
--destination=/opt/el/runtime/
|
||||
|
||||
# Downloaded files keep original names; rename to canonical paths
|
||||
mv /opt/el/dist/platform/elc* /opt/el/dist/platform/elc 2>/dev/null || true
|
||||
mv /opt/el/dist/bin/elb* /opt/el/dist/bin/elb 2>/dev/null || true
|
||||
mv /opt/el/runtime/el_runtime.c* /opt/el/runtime/el_runtime.c 2>/dev/null || true
|
||||
mv /opt/el/runtime/el_runtime.h* /opt/el/runtime/el_runtime.h 2>/dev/null || true
|
||||
|
||||
chmod +x /opt/el/dist/platform/elc /opt/el/dist/bin/elb
|
||||
echo "El SDK ready"
|
||||
/opt/el/dist/platform/elc --version || true
|
||||
|
||||
- name: Generate ELP master declarations header
|
||||
# neuron#133: CI compiles dist/soul.c, NOT the .el sources. On 2026-08-07 a
|
||||
# build off main would have shipped an engine with none of five merged fixes,
|
||||
# including a P0 safety fix, while main's source read as correct. The runner
|
||||
# cannot regenerate the amalgam (elc needs 24GB+ virtual memory), but it can
|
||||
# refuse to compile a stale one. Fails loudly with the recipe in the message.
|
||||
- name: Verify dist/soul.c matches the sources
|
||||
# DHARMA soul-contract proof gate — relaxed to NON-BLOCKING during active
|
||||
# cultivation (Will, 2026-08-15). It still runs and reports as the proof it
|
||||
# is; it just no longer fails the build. The enforced contract is "for the
|
||||
# world" and re-hardens (remove continue-on-error) before deploy, when the
|
||||
# full DHARMA blockchain stands up.
|
||||
continue-on-error: true
|
||||
run: |
|
||||
{
|
||||
printf '/* Auto-generated C forward declarations for ELP cross-module calls */\n'
|
||||
printf '#pragma once\n'
|
||||
printf '#include "el_runtime.h"\n'
|
||||
printf '\n'
|
||||
grep -h -E '^(el_val_t|void|int|char\*|const char\*)[[:space:]]+[a-zA-Z_][a-zA-Z0-9_]*[[:space:]]*\(' dist/*.c 2>/dev/null \
|
||||
| grep ';$' | sort -u
|
||||
} > dist/elp-c-decls.h
|
||||
echo "Generated elp-c-decls.h with $(grep -c ';' dist/elp-c-decls.h 2>/dev/null || echo 0) declarations"
|
||||
chmod +x tools/soulc-stamp.sh
|
||||
./tools/soulc-stamp.sh --check
|
||||
|
||||
- name: Build neuron soul binary
|
||||
run: |
|
||||
ELB=/opt/el/dist/bin/elb
|
||||
ELC=/opt/el/dist/platform/elc
|
||||
RUNTIME=/opt/el/runtime
|
||||
|
||||
$ELB --elc=$ELC --runtime=$RUNTIME
|
||||
# Compile the self-contained translation unit directly from dist/soul.c.
|
||||
# dist/soul.c is the authoritative combined unit maintained in the repo —
|
||||
# regenerated on macOS by running elb (which succeeds on arm64/macOS ld but
|
||||
# fails on Linux due to duplicate strong symbols). We skip the elb step here
|
||||
# entirely: elb on Linux would OOM the runner (elc uses 24GB+ virtual memory
|
||||
# on a 16GB host) and we always restore from the repo's soul.c anyway.
|
||||
mkdir -p dist
|
||||
# -rdynamic: the el runtime resolves the HTTP request handler (and the
|
||||
# tool handlers) by NAME via dlsym(RTLD_DEFAULT, "handle_request").
|
||||
# macOS exports these symbols freely, but glibc/Linux only makes symbols
|
||||
# visible to dlsym if they are in the dynamic symbol table — so without
|
||||
# -rdynamic the stripped Linux binary boots but returns "el-runtime: no
|
||||
# http handler registered" for EVERY route (i.e. a soul that serves
|
||||
# nothing). Same reason the Windows build links -Wl,--export-all-symbols.
|
||||
cc -O2 -DHAVE_CURL -rdynamic \
|
||||
-I$RUNTIME \
|
||||
dist/soul.c \
|
||||
$RUNTIME/el_runtime.c \
|
||||
-lssl -lcrypto -lcurl -lpthread -lm \
|
||||
-o dist/neuron
|
||||
|
||||
# -s strips .symtab + debug for size. .dynsym (which -rdynamic populated
|
||||
# with the dlsym-resolved handlers) is preserved, so the handler still
|
||||
# resolves after stripping.
|
||||
strip -s dist/neuron
|
||||
ls -lh dist/neuron
|
||||
|
||||
- name: Soul contract gate (HARD BLOCK — no destructive/stale soul publishes)
|
||||
run: |
|
||||
# Boots dist/neuron on a throwaway port with a throwaway HOME/engram/cgi
|
||||
# (never touches ~/.neuron or any live service) and fails the build if any
|
||||
# app-contract route is unanswered (PRESENCE) or any engram write route
|
||||
# hard-deletes instead of tombstoning/superseding (IMMUTABILITY). Non-zero
|
||||
# here blocks Publish -> Artifact Registry -> GKE deploy, so a stale or
|
||||
# memory-destroying soul can never reach prod.
|
||||
chmod +x dist/neuron scripts/verify-soul-contract.sh
|
||||
bash scripts/verify-soul-contract.sh dist/neuron 7796
|
||||
|
||||
- name: Smoke test
|
||||
run: |
|
||||
file dist/neuron
|
||||
@@ -126,7 +135,7 @@ jobs:
|
||||
VERSION="${GITHUB_SHA:0:8}"
|
||||
|
||||
gcloud artifacts generic upload \
|
||||
--repository=foundation-dev \
|
||||
--repository=foundation-prod \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
@@ -135,3 +144,220 @@ jobs:
|
||||
|
||||
echo "Published neuron-soul@${VERSION}"
|
||||
rm -f /tmp/gcp-key.json
|
||||
|
||||
deploy:
|
||||
runs-on: ubuntu-latest
|
||||
needs: build
|
||||
# Only deploy on push to main, not on PRs or manual workflow_dispatch without intent.
|
||||
if: github.event_name == 'push' && github.ref == 'refs/heads/main'
|
||||
|
||||
env:
|
||||
USE_GKE_GCLOUD_AUTH_PLUGIN: "True"
|
||||
|
||||
steps:
|
||||
- name: Free disk space
|
||||
run: |
|
||||
df -h /
|
||||
docker system prune -af --volumes 2>/dev/null || true
|
||||
rm -rf /tmp/.act-* /tmp/act-* 2>/dev/null || true
|
||||
df -h /
|
||||
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v4
|
||||
|
||||
- name: Install dependencies
|
||||
run: |
|
||||
apt-get update -qq
|
||||
apt-get install -y --no-install-recommends \
|
||||
ca-certificates curl apt-transport-https kubectl
|
||||
echo "deb [trusted=yes] https://packages.cloud.google.com/apt cloud-sdk main" \
|
||||
> /etc/apt/sources.list.d/google-cloud-sdk.list
|
||||
apt-get update -qq && apt-get install -y google-cloud-cli google-cloud-cli-gke-gcloud-auth-plugin
|
||||
|
||||
- name: Authenticate to GCP
|
||||
env:
|
||||
GCP_SA_KEY: ${{ secrets.GCP_SA_KEY }}
|
||||
run: |
|
||||
echo "${GCP_SA_KEY}" > /tmp/gcp-key.json
|
||||
gcloud auth activate-service-account --key-file=/tmp/gcp-key.json
|
||||
gcloud config set project neuron-785695
|
||||
gcloud auth configure-docker us-central1-docker.pkg.dev --quiet
|
||||
|
||||
- name: Get GKE credentials
|
||||
run: |
|
||||
gcloud container clusters get-credentials neuron-platform \
|
||||
--region=us-central1 \
|
||||
--project=neuron-785695
|
||||
|
||||
- name: Determine image tag and slot
|
||||
id: vars
|
||||
run: |
|
||||
# GITEA_SHA is set by the Gitea runner; fall back to GITHUB_SHA for
|
||||
# compatibility with older Forgejo/Gitea versions.
|
||||
RAW_SHA="${GITEA_SHA:-${GITHUB_SHA:-}}"
|
||||
SHA="${RAW_SHA:0:8}"
|
||||
if [ -z "$SHA" ]; then
|
||||
# Last resort: read from git directly
|
||||
SHA=$(git rev-parse --short=8 HEAD 2>/dev/null || echo "unknown")
|
||||
fi
|
||||
IMAGE="us-central1-docker.pkg.dev/neuron-785695/neuron-api/neuron-soul:${SHA}"
|
||||
echo "sha=${SHA}" >> "$GITEA_OUTPUT"
|
||||
echo "image=${IMAGE}" >> "$GITEA_OUTPUT"
|
||||
|
||||
# Determine which slot is currently idle (0 replicas = idle slot)
|
||||
# If both are at 0 (fresh deploy), default to blue
|
||||
BLUE_REPLICAS=$(kubectl get deployment/neuron-mcp-blue \
|
||||
-n neuron-prod \
|
||||
-o jsonpath='{.spec.replicas}' 2>/dev/null || echo "0")
|
||||
GREEN_REPLICAS=$(kubectl get deployment/neuron-mcp-green \
|
||||
-n neuron-prod \
|
||||
-o jsonpath='{.spec.replicas}' 2>/dev/null || echo "0")
|
||||
|
||||
echo " Blue replicas: ${BLUE_REPLICAS}"
|
||||
echo " Green replicas: ${GREEN_REPLICAS}"
|
||||
|
||||
if [ "${GREEN_REPLICAS}" -eq 0 ] && [ "${BLUE_REPLICAS}" -gt 0 ]; then
|
||||
SLOT="green"
|
||||
elif [ "${BLUE_REPLICAS}" -eq 0 ] && [ "${GREEN_REPLICAS}" -gt 0 ]; then
|
||||
SLOT="blue"
|
||||
else
|
||||
# Fresh cluster or both idle — deploy to blue first
|
||||
SLOT="blue"
|
||||
fi
|
||||
|
||||
echo "slot=${SLOT}" >> "$GITEA_OUTPUT"
|
||||
echo " Deploying to slot: ${SLOT}"
|
||||
|
||||
- name: Prepare build artifacts
|
||||
run: |
|
||||
# Pre-download soul binary and El SDK so the Dockerfile can COPY them
|
||||
# from the build context instead of authenticating inside the build.
|
||||
mkdir -p build-artifacts
|
||||
|
||||
# ── soul binary ────────────────────────────────────────────────────────
|
||||
# The build job (same workflow run) just published this version.
|
||||
SOUL_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--sort-by="~createTime" \
|
||||
--limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
echo "Downloading neuron-soul@${SOUL_VER}"
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--version="${SOUL_VER}" \
|
||||
--destination=build-artifacts/
|
||||
mv build-artifacts/neuron* build-artifacts/neuron 2>/dev/null || true
|
||||
chmod +x build-artifacts/neuron
|
||||
|
||||
# ── El SDK (for engram source compilation inside the Docker build) ────
|
||||
ELC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --version="${ELC_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/elc* build-artifacts/elc 2>/dev/null || true
|
||||
chmod +x build-artifacts/elc
|
||||
|
||||
RC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --version="${RC_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/el_runtime.c* build-artifacts/el_runtime.c 2>/dev/null || true
|
||||
|
||||
RH_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --version="${RH_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/el_runtime.h* build-artifacts/el_runtime.h 2>/dev/null || true
|
||||
|
||||
echo "Build artifacts ready:"
|
||||
ls -lh build-artifacts/
|
||||
|
||||
- name: Clone engram source for Docker build context
|
||||
run: |
|
||||
# The Dockerfile builds engram from source (no published AR package).
|
||||
# Clone the engram repo into ./engram/ so it's available in the build context.
|
||||
git clone http://34.31.145.131/neuron-technologies/engram.git \
|
||||
--depth=1 --branch=main \
|
||||
engram
|
||||
echo "Engram source ready at ./engram/src/server.el"
|
||||
|
||||
- name: Build and push Docker image
|
||||
run: |
|
||||
IMAGE="${{ steps.vars.outputs.image }}"
|
||||
|
||||
echo "Building ${IMAGE}..."
|
||||
docker build \
|
||||
--tag "${IMAGE}" \
|
||||
--tag "us-central1-docker.pkg.dev/neuron-785695/neuron-api/neuron-soul:latest" \
|
||||
.
|
||||
|
||||
echo "Pushing ${IMAGE}..."
|
||||
docker push "${IMAGE}"
|
||||
docker push "us-central1-docker.pkg.dev/neuron-785695/neuron-api/neuron-soul:latest"
|
||||
|
||||
- name: Blue-green deploy to GKE
|
||||
run: |
|
||||
chmod +x scripts/blue-green-deploy.sh
|
||||
scripts/blue-green-deploy.sh \
|
||||
--image "${{ steps.vars.outputs.image }}" \
|
||||
--slot "${{ steps.vars.outputs.slot }}"
|
||||
|
||||
- name: Update infrastructure manifests
|
||||
if: success()
|
||||
env:
|
||||
INFRA_GIT_TOKEN: ${{ secrets.INFRA_GIT_TOKEN }}
|
||||
run: |
|
||||
SLOT="${{ steps.vars.outputs.slot }}"
|
||||
if [ "$SLOT" = "blue" ]; then IDLE="green"; else IDLE="blue"; fi
|
||||
|
||||
git clone "http://${INFRA_GIT_TOKEN}@34.31.145.131/neuron-technologies/infrastructure.git" \
|
||||
--depth=1 --branch=main /tmp/infra-update
|
||||
|
||||
cd /tmp/infra-update
|
||||
|
||||
DEPLOY_DIR="platform/k8s/neuron-mcp"
|
||||
sed -i "s/^ replicas: .*/ replicas: 1/" "${DEPLOY_DIR}/deployment-${SLOT}.yaml"
|
||||
sed -i "s/^ replicas: .*/ replicas: 0/" "${DEPLOY_DIR}/deployment-${IDLE}.yaml"
|
||||
echo " deployment-${SLOT}.yaml: replicas set to 1"
|
||||
echo " deployment-${IDLE}.yaml: replicas set to 0"
|
||||
|
||||
git config user.email "ci@neurontechnologies.ai"
|
||||
git config user.name "Neuron CI"
|
||||
git add "${DEPLOY_DIR}/deployment-blue.yaml" "${DEPLOY_DIR}/deployment-green.yaml"
|
||||
git diff --staged --quiet && { echo "No manifest changes needed"; exit 0; }
|
||||
git commit -m "ci: neuron-mcp replica sync after blue-green swap to ${SLOT}"
|
||||
git push origin main
|
||||
echo "Infrastructure manifests updated: ${SLOT}=1, ${IDLE}=0"
|
||||
|
||||
- name: Verify deployment
|
||||
run: |
|
||||
SLOT="${{ steps.vars.outputs.slot }}"
|
||||
echo "Verifying neuron-mcp-${SLOT} is healthy..."
|
||||
kubectl rollout status deployment/"neuron-mcp-${SLOT}" \
|
||||
--namespace=neuron-prod \
|
||||
--timeout=8m
|
||||
|
||||
echo "Active service endpoints:"
|
||||
kubectl get endpoints neuron-mcp -n neuron-prod
|
||||
|
||||
echo "Pod status:"
|
||||
kubectl get pods -n neuron-prod -l app=neuron-mcp
|
||||
|
||||
- name: Cleanup
|
||||
if: always()
|
||||
run: rm -f /tmp/gcp-key.json
|
||||
|
||||
@@ -1,16 +1,13 @@
|
||||
name: Deploy Soul to GKE
|
||||
name: Deploy Soul to GKE (manual)
|
||||
|
||||
# Triggers on push to main — after the soul binary is built and published
|
||||
# by ci.yaml, this workflow builds the Docker image and blue-green deploys
|
||||
# to the neuron-prod namespace on GKE.
|
||||
# MANUAL OVERRIDE ONLY — push-triggered deploys now run as the 'deploy' job
|
||||
# in ci.yaml (needs: build), which eliminates the two-workflow concurrency
|
||||
# race that was cancelling queued deploy runs.
|
||||
#
|
||||
# This workflow runs AFTER ci.yaml has published the neuron-soul generic
|
||||
# artifact to Artifact Registry. The Docker build downloads that binary.
|
||||
# Use this workflow only when you need to deploy a specific slot manually
|
||||
# (e.g. rollback, force a slot override) without triggering a full CI build.
|
||||
|
||||
on:
|
||||
push:
|
||||
branches:
|
||||
- main
|
||||
workflow_dispatch:
|
||||
inputs:
|
||||
slot:
|
||||
@@ -18,11 +15,26 @@ on:
|
||||
required: false
|
||||
default: "green"
|
||||
|
||||
# Manual deploys still share the runner serialization group.
|
||||
concurrency:
|
||||
group: neuron-runner
|
||||
cancel-in-progress: false
|
||||
|
||||
jobs:
|
||||
deploy:
|
||||
runs-on: ubuntu-latest
|
||||
|
||||
env:
|
||||
USE_GKE_GCLOUD_AUTH_PLUGIN: "True"
|
||||
|
||||
steps:
|
||||
- name: Free disk space
|
||||
run: |
|
||||
df -h /
|
||||
docker system prune -af --volumes 2>/dev/null || true
|
||||
rm -rf /tmp/.act-* /tmp/act-* 2>/dev/null || true
|
||||
df -h /
|
||||
|
||||
- name: Checkout
|
||||
uses: actions/checkout@v4
|
||||
|
||||
@@ -30,11 +42,9 @@ jobs:
|
||||
run: |
|
||||
apt-get update -qq
|
||||
apt-get install -y --no-install-recommends \
|
||||
ca-certificates curl gnupg apt-transport-https kubectl
|
||||
echo "deb [signed-by=/usr/share/keyrings/cloud.google.gpg] https://packages.cloud.google.com/apt cloud-sdk main" \
|
||||
ca-certificates curl apt-transport-https kubectl
|
||||
echo "deb [trusted=yes] https://packages.cloud.google.com/apt cloud-sdk main" \
|
||||
> /etc/apt/sources.list.d/google-cloud-sdk.list
|
||||
curl -fsSL https://packages.cloud.google.com/apt/doc/apt-key.gpg \
|
||||
| gpg --dearmor -o /usr/share/keyrings/cloud.google.gpg
|
||||
apt-get update -qq && apt-get install -y google-cloud-cli google-cloud-cli-gke-gcloud-auth-plugin
|
||||
|
||||
- name: Authenticate to GCP
|
||||
@@ -55,7 +65,14 @@ jobs:
|
||||
- name: Determine image tag and slot
|
||||
id: vars
|
||||
run: |
|
||||
SHA="${GITEA_SHA:0:8}"
|
||||
# GITEA_SHA is set by the Gitea runner; fall back to GITHUB_SHA for
|
||||
# compatibility with older Forgejo/Gitea versions.
|
||||
RAW_SHA="${GITEA_SHA:-${GITHUB_SHA:-}}"
|
||||
SHA="${RAW_SHA:0:8}"
|
||||
if [ -z "$SHA" ]; then
|
||||
# Last resort: read from git directly
|
||||
SHA=$(git rev-parse --short=8 HEAD 2>/dev/null || echo "unknown")
|
||||
fi
|
||||
IMAGE="us-central1-docker.pkg.dev/neuron-785695/neuron-api/neuron-soul:${SHA}"
|
||||
echo "sha=${SHA}" >> "$GITEA_OUTPUT"
|
||||
echo "image=${IMAGE}" >> "$GITEA_OUTPUT"
|
||||
@@ -87,6 +104,66 @@ jobs:
|
||||
echo "slot=${SLOT}" >> "$GITEA_OUTPUT"
|
||||
echo " Deploying to slot: ${SLOT}"
|
||||
|
||||
- name: Prepare build artifacts
|
||||
run: |
|
||||
# Pre-download soul binary and El SDK so the Dockerfile can COPY them
|
||||
# from the build context instead of authenticating inside the build.
|
||||
mkdir -p build-artifacts
|
||||
|
||||
# ── soul binary ────────────────────────────────────────────────────────
|
||||
# ci.yaml publishes the soul binary to foundation-prod on every push.
|
||||
# Download the latest version (the one just built by ci.yaml).
|
||||
SOUL_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--sort-by="~createTime" \
|
||||
--limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
echo "Downloading neuron-soul@${SOUL_VER}"
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--version="${SOUL_VER}" \
|
||||
--destination=build-artifacts/
|
||||
mv build-artifacts/neuron* build-artifacts/neuron 2>/dev/null || true
|
||||
chmod +x build-artifacts/neuron
|
||||
|
||||
# ── El SDK (for engram source compilation inside the build) ────────────
|
||||
ELC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --version="${ELC_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/elc* build-artifacts/elc 2>/dev/null || true
|
||||
chmod +x build-artifacts/elc
|
||||
|
||||
RC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --version="${RC_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/el_runtime.c* build-artifacts/el_runtime.c 2>/dev/null || true
|
||||
|
||||
RH_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}')
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-prod --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --version="${RH_VER}" --destination=build-artifacts/
|
||||
mv build-artifacts/el_runtime.h* build-artifacts/el_runtime.h 2>/dev/null || true
|
||||
|
||||
echo "Build artifacts ready:"
|
||||
ls -lh build-artifacts/
|
||||
|
||||
- name: Clone engram source for Docker build context
|
||||
run: |
|
||||
# The Dockerfile builds engram from source (no published AR package).
|
||||
@@ -97,16 +174,13 @@ jobs:
|
||||
echo "Engram source ready at ./engram/src/server.el"
|
||||
|
||||
- name: Build and push Docker image
|
||||
env:
|
||||
GCP_SA_KEY: ${{ secrets.GCP_SA_KEY }}
|
||||
run: |
|
||||
IMAGE="${{ steps.vars.outputs.image }}"
|
||||
SHA="${{ steps.vars.outputs.sha }}"
|
||||
|
||||
echo "Building ${IMAGE}..."
|
||||
# No --secret needed: artifacts are pre-downloaded into build-artifacts/
|
||||
# and the Dockerfile uses COPY to include them.
|
||||
docker build \
|
||||
--build-arg SOUL_VERSION="${SHA}" \
|
||||
--secret id=gcp_sa_key,env=GCP_SA_KEY \
|
||||
--tag "${IMAGE}" \
|
||||
--tag "us-central1-docker.pkg.dev/neuron-785695/neuron-api/neuron-soul:latest" \
|
||||
.
|
||||
@@ -122,13 +196,40 @@ jobs:
|
||||
--image "${{ steps.vars.outputs.image }}" \
|
||||
--slot "${{ steps.vars.outputs.slot }}"
|
||||
|
||||
- name: Update infrastructure manifests
|
||||
if: success()
|
||||
env:
|
||||
INFRA_GIT_TOKEN: ${{ secrets.INFRA_GIT_TOKEN }}
|
||||
run: |
|
||||
SLOT="${{ steps.vars.outputs.slot }}"
|
||||
if [ "$SLOT" = "blue" ]; then IDLE="green"; else IDLE="blue"; fi
|
||||
|
||||
git clone "http://${INFRA_GIT_TOKEN}@34.31.145.131/neuron-technologies/infrastructure.git" \
|
||||
--depth=1 --branch=main /tmp/infra-update
|
||||
|
||||
cd /tmp/infra-update
|
||||
|
||||
DEPLOY_DIR="platform/k8s/neuron-mcp"
|
||||
sed -i "s/^ replicas: .*/ replicas: 1/" "${DEPLOY_DIR}/deployment-${SLOT}.yaml"
|
||||
sed -i "s/^ replicas: .*/ replicas: 0/" "${DEPLOY_DIR}/deployment-${IDLE}.yaml"
|
||||
echo " deployment-${SLOT}.yaml: replicas set to 1"
|
||||
echo " deployment-${IDLE}.yaml: replicas set to 0"
|
||||
|
||||
git config user.email "ci@neurontechnologies.ai"
|
||||
git config user.name "Neuron CI"
|
||||
git add "${DEPLOY_DIR}/deployment-blue.yaml" "${DEPLOY_DIR}/deployment-green.yaml"
|
||||
git diff --staged --quiet && { echo "No manifest changes needed"; exit 0; }
|
||||
git commit -m "ci: neuron-mcp replica sync after blue-green swap to ${SLOT}"
|
||||
git push origin main
|
||||
echo "Infrastructure manifests updated: ${SLOT}=1, ${IDLE}=0"
|
||||
|
||||
- name: Verify deployment
|
||||
run: |
|
||||
SLOT="${{ steps.vars.outputs.slot }}"
|
||||
echo "Verifying neuron-mcp-${SLOT} is healthy..."
|
||||
kubectl rollout status deployment/"neuron-mcp-${SLOT}" \
|
||||
--namespace=neuron-prod \
|
||||
--timeout=3m
|
||||
--timeout=8m
|
||||
|
||||
echo "Active service endpoints:"
|
||||
kubectl get endpoints neuron-mcp -n neuron-prod
|
||||
|
||||
+11
@@ -0,0 +1,11 @@
|
||||
# Compiled binaries
|
||||
dist/neuron
|
||||
dist/neuron.backup-*
|
||||
dist/*.backup-*
|
||||
|
||||
# Build artifacts
|
||||
*.o
|
||||
*.a
|
||||
|
||||
# macOS
|
||||
.DS_Store
|
||||
+25
-103
@@ -1,108 +1,28 @@
|
||||
# Neuron Soul — GKE container image
|
||||
#
|
||||
# Build strategy:
|
||||
# 1. Download the pre-built linux/amd64 soul binary (package: neuron-soul)
|
||||
# from Artifact Registry (foundation-dev).
|
||||
# 2. Download the El SDK from Artifact Registry and build engram from source
|
||||
# (the neuron-technologies/engram repo is a git submodule). Engram has
|
||||
# never been published as a standalone Artifact Registry package.
|
||||
# 3. Package both in an Ubuntu 24.04 runtime image (GLIBC 2.39 required by
|
||||
# binaries compiled on Ubuntu 24.04 CI runners).
|
||||
# 1. CI pre-downloads all artifacts from Artifact Registry into build-artifacts/
|
||||
# (neuron soul binary, El compiler, El runtime). No GCP credentials are needed
|
||||
# inside the build — all AR access happens in the CI workflow before docker build.
|
||||
# 2. Build engram from source (neuron-technologies/engram, cloned by CI into ./engram/).
|
||||
# 3. Package soul + engram in an Ubuntu 24.04 runtime image (GLIBC 2.39).
|
||||
# 4. entrypoint.sh starts engram on :8742, waits for it to be healthy,
|
||||
# then starts the soul with ENGRAM_URL pointing at it (HTTP mode).
|
||||
#
|
||||
# Expected build context layout (prepared by deploy-gke.yaml before docker build):
|
||||
# build-artifacts/neuron — pre-built linux/amd64 soul binary
|
||||
# build-artifacts/elc — El compiler (for engram source compilation)
|
||||
# build-artifacts/el_runtime.c — El C runtime
|
||||
# build-artifacts/el_runtime.h — El C runtime header
|
||||
# engram/src/server.el — engram source (cloned by CI)
|
||||
# entrypoint.sh — container entrypoint
|
||||
#
|
||||
# Required env vars (injected via ExternalSecret at runtime):
|
||||
# NEURON_PORT, NEURON_LLM_0_URL, NEURON_LLM_0_KEY, NEURON_LLM_0_FORMAT,
|
||||
# SOUL_CGI_ID, SOUL_IDENTITY, NEURON_TOKEN, NEURON_API_URL, ENGRAM_URL,
|
||||
# ENGRAM_DATA_DIR
|
||||
|
||||
ARG SOUL_VERSION=latest
|
||||
|
||||
# ── Stage 1: Download neuron-soul + El SDK from Artifact Registry ─────────────
|
||||
FROM ubuntu:24.04 AS downloader
|
||||
|
||||
ARG SOUL_VERSION
|
||||
|
||||
RUN apt-get update -qq && \
|
||||
apt-get install -y --no-install-recommends \
|
||||
ca-certificates \
|
||||
curl \
|
||||
gnupg \
|
||||
apt-transport-https && \
|
||||
echo "deb [signed-by=/usr/share/keyrings/cloud.google.gpg] https://packages.cloud.google.com/apt cloud-sdk main" \
|
||||
> /etc/apt/sources.list.d/google-cloud-sdk.list && \
|
||||
curl -fsSL https://packages.cloud.google.com/apt/doc/apt-key.gpg \
|
||||
| gpg --dearmor -o /usr/share/keyrings/cloud.google.gpg && \
|
||||
apt-get update -qq && \
|
||||
apt-get install -y --no-install-recommends google-cloud-cli && \
|
||||
rm -rf /var/lib/apt/lists/*
|
||||
|
||||
RUN --mount=type=secret,id=gcp_sa_key \
|
||||
GCP_SA_KEY=$(cat /run/secrets/gcp_sa_key 2>/dev/null || echo "") && \
|
||||
if [ -n "$GCP_SA_KEY" ]; then \
|
||||
echo "$GCP_SA_KEY" > /tmp/gcp-key.json && \
|
||||
gcloud auth activate-service-account --key-file=/tmp/gcp-key.json; \
|
||||
fi && \
|
||||
gcloud config set project neuron-785695 && \
|
||||
mkdir -p /tmp/soul /tmp/el-sdk && \
|
||||
\
|
||||
# ── soul ──────────────────────────────────────────────────────────────── \
|
||||
if [ "${SOUL_VERSION}" = "latest" ]; then \
|
||||
SOUL_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-dev \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--sort-by="~createTime" \
|
||||
--limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}'); \
|
||||
else \
|
||||
SOUL_VER="${SOUL_VERSION}"; \
|
||||
fi && \
|
||||
echo "Downloading neuron-soul@${SOUL_VER}" && \
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev \
|
||||
--location=us-central1 \
|
||||
--project=neuron-785695 \
|
||||
--package=neuron-soul \
|
||||
--version="${SOUL_VER}" \
|
||||
--destination=/tmp/soul/ && \
|
||||
mv /tmp/soul/neuron* /tmp/soul/neuron 2>/dev/null || true && \
|
||||
chmod +x /tmp/soul/neuron && \
|
||||
\
|
||||
# ── El SDK (needed to build engram from source) ────────────────────────── \
|
||||
ELC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}') && \
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-elc --version="${ELC_VER}" --destination=/tmp/el-sdk/ && \
|
||||
mv /tmp/el-sdk/elc* /tmp/el-sdk/elc 2>/dev/null || true && \
|
||||
chmod +x /tmp/el-sdk/elc && \
|
||||
\
|
||||
RC_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}') && \
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-c --version="${RC_VER}" --destination=/tmp/el-sdk/ && \
|
||||
mv /tmp/el-sdk/el_runtime.c* /tmp/el-sdk/el_runtime.c 2>/dev/null || true && \
|
||||
\
|
||||
RH_VER=$(gcloud artifacts versions list \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --sort-by="~createTime" --limit=1 \
|
||||
--format="value(name)" 2>/dev/null | awk -F/ '{print $NF}') && \
|
||||
gcloud artifacts generic download \
|
||||
--repository=foundation-dev --location=us-central1 --project=neuron-785695 \
|
||||
--package=el-runtime-h --version="${RH_VER}" --destination=/tmp/el-sdk/ && \
|
||||
mv /tmp/el-sdk/el_runtime.h* /tmp/el-sdk/el_runtime.h 2>/dev/null || true && \
|
||||
\
|
||||
rm -f /tmp/gcp-key.json && \
|
||||
echo "Downloads complete:" && ls -lh /tmp/soul/ /tmp/el-sdk/
|
||||
|
||||
# ── Stage 2: Build engram from source ────────────────────────────────────────
|
||||
# ── Stage 1: Build engram from source ────────────────────────────────────────
|
||||
FROM ubuntu:24.04 AS engram-builder
|
||||
|
||||
RUN apt-get update -qq && \
|
||||
@@ -113,12 +33,13 @@ RUN apt-get update -qq && \
|
||||
libcurl4-openssl-dev && \
|
||||
rm -rf /var/lib/apt/lists/*
|
||||
|
||||
COPY --from=downloader /tmp/el-sdk/elc /usr/local/bin/elc
|
||||
COPY --from=downloader /tmp/el-sdk/el_runtime.c /usr/local/lib/el/el_runtime.c
|
||||
COPY --from=downloader /tmp/el-sdk/el_runtime.h /usr/local/lib/el/el_runtime.h
|
||||
# El SDK pre-downloaded by CI into build-artifacts/
|
||||
COPY build-artifacts/elc /usr/local/bin/elc
|
||||
COPY build-artifacts/el_runtime.c /usr/local/lib/el/el_runtime.c
|
||||
COPY build-artifacts/el_runtime.h /usr/local/lib/el/el_runtime.h
|
||||
RUN chmod +x /usr/local/bin/elc
|
||||
|
||||
# engram source is expected at ./engram/src/server.el in the build context.
|
||||
# The deploy-gke.yaml CI must clone neuron-technologies/engram alongside this repo.
|
||||
# engram source cloned by CI into ./engram/
|
||||
COPY engram/src/server.el /build/src/server.el
|
||||
|
||||
RUN mkdir -p /build/dist && \
|
||||
@@ -133,7 +54,7 @@ RUN mkdir -p /build/dist && \
|
||||
echo "Built engram:" && ls -lh /build/dist/engram && \
|
||||
chmod +x /build/dist/engram
|
||||
|
||||
# ── Stage 3: Runtime image ───────────────────────────────────────────────────
|
||||
# ── Stage 2: Runtime image ───────────────────────────────────────────────────
|
||||
# Ubuntu 24.04: GLIBC 2.39 satisfies both neuron-soul and engram binary deps.
|
||||
FROM ubuntu:24.04
|
||||
|
||||
@@ -145,9 +66,10 @@ RUN apt-get update -qq && \
|
||||
rm -rf /var/lib/apt/lists/* && \
|
||||
useradd -r -u 10000 -m -s /bin/bash soul
|
||||
|
||||
COPY --from=downloader /tmp/soul/neuron /usr/local/bin/neuron
|
||||
COPY --from=engram-builder /build/dist/engram /usr/local/bin/engram
|
||||
COPY entrypoint.sh /usr/local/bin/entrypoint.sh
|
||||
# soul binary pre-downloaded by CI into build-artifacts/
|
||||
COPY build-artifacts/neuron /usr/local/bin/neuron
|
||||
COPY --from=engram-builder /build/dist/engram /usr/local/bin/engram
|
||||
COPY entrypoint.sh /usr/local/bin/entrypoint.sh
|
||||
|
||||
RUN chmod +x /usr/local/bin/neuron /usr/local/bin/engram /usr/local/bin/entrypoint.sh
|
||||
|
||||
|
||||
@@ -0,0 +1,126 @@
|
||||
# Handoff: Engram EL write-path field corruption + silent writes
|
||||
|
||||
**For:** Will (backend / EL soul)
|
||||
**From:** Tim (via Claude Code)
|
||||
**Date:** 2026-06-08
|
||||
**Status:** Root cause confirmed; source fixes applied locally (NOT built/deployed); data analyzed; prune proposed (NOT applied).
|
||||
|
||||
---
|
||||
|
||||
## TL;DR
|
||||
The EL wrapper `engram_node_full` had a **stale signature** that didn't match the C primitive. Because `el_val_t` is an untyped machine word, the compiler coerced caller args to the wrong declared types and forwarded them **by position** into a C function whose positions mean different things → `tier` got ints, `importance/confidence` got strings, `label` got a float, etc. One caller (`chat.el`) also put a *tier* into the `node_type` slot.
|
||||
|
||||
Source fixes are done. **You need to:** review, build with `elc`, restart the soul, verify, and apply the prune (daemon stopped). Details below.
|
||||
|
||||
---
|
||||
|
||||
## 1. Root cause (confirmed)
|
||||
|
||||
**C contract** (`el/lang/el-compiler/runtime/el_seed.h:204`):
|
||||
```
|
||||
__engram_node_full(content, node_type, label, salience, importance, confidence, tier, tags)
|
||||
```
|
||||
|
||||
**Old wrapper** (`el/lang/runtime/engram.el:15-17`) — stale schema, wrong names AND types:
|
||||
```
|
||||
fn engram_node_full(content: String, nt: String, sal: Float, imp: Float,
|
||||
source: String, lang: String, ts: Int, tags: String)
|
||||
```
|
||||
|
||||
**Coercion mechanism:** `el_val_t` is `uintptr_t` (`#define EL_STR(s) ((el_val_t)(uintptr_t)(s))`, `EL_INT(v) (v)`). The EL compiler binds each caller arg to the wrapper's *declared* param type (String→Float / String→Int coercion at the boundary), then the wrapper forwards **positionally**. Result for a correct-order caller `(content,"Memory","memory:remembered",sal,imp,conf,tier,tags)`:
|
||||
- `label` ← `sal` (a float)
|
||||
- `importance` ← a String
|
||||
- `confidence` ← a String
|
||||
- `tier` ← `ts` (the tier String coerced to Int) → **tier becomes an integer**
|
||||
|
||||
This matches the data exactly (see §6).
|
||||
|
||||
---
|
||||
|
||||
## 2. Fix applied — wrapper (`el/lang/runtime/engram.el`)
|
||||
Corrected to match the C contract 1:1 (no coercion, no reorder):
|
||||
```
|
||||
fn engram_node_full(content: String, node_type: String, label: String,
|
||||
salience: Float, importance: Float, confidence: Float,
|
||||
tier: String, tags: String) -> String {
|
||||
// validation (see §4), then:
|
||||
return __engram_node_full(content, node_type, label, salience, importance, confidence, tier, tags)
|
||||
}
|
||||
```
|
||||
|
||||
## 3. Fix applied — caller audit
|
||||
Audited every caller (`chat.el`, `awareness.el`, `soul.el`, `memory.el`, `routes.el`, `neuron-api.el`).
|
||||
**All `engram_node_full` callers already use the correct order** — so the wrapper fix repairs them automatically. **One real caller bug** fixed:
|
||||
|
||||
`neuron/chat.el:512` was:
|
||||
```
|
||||
engram_node(clean_response, "episodic", el_from_float(0.6)) // "episodic" = a TIER in the node_type slot
|
||||
```
|
||||
Now:
|
||||
```
|
||||
engram_node_full(clean_response, "Conversation", "soul:utterance",
|
||||
el_from_float(0.6), el_from_float(0.6), el_from_float(0.8),
|
||||
"Episodic", utterance_tags)
|
||||
```
|
||||
|
||||
## 4. Fix applied — validation (defense in depth, `engram.el`)
|
||||
Added `engram_valid_node_type` / `engram_valid_tier` allowlists. Both `engram_node` and `engram_node_full` now **reject invalid values with `__println` + return `""`** (fail loud, never silently write a malformed node).
|
||||
- node_type allowlist: Memory, Knowledge, Belief, Project, Tag, BacklogItem, Artifact, Conversation, ExecutionContext, InternalStateEvent, Self, Entity, Process, ConfigEntry, Concept, Imprint *(union of the spec list + types actually present in the store — trim if some are illegitimate).*
|
||||
- tier allowlist: Semantic, Episodic, Working, Procedural, Canonical, Note, Lesson
|
||||
- **Note:** `el_val_t` is untyped, so this catches wrong VALUES, not wrong TYPES. Type safety comes from the corrected signatures.
|
||||
|
||||
> All edits above are in the working tree on Tim's machine but **NOT compiled/deployed** and **NOT compile-verified** (no `elc` on that box).
|
||||
|
||||
---
|
||||
|
||||
## 5. DEPLOY RUNBOOK (your build env)
|
||||
1. Pull the edited files: `el/lang/runtime/engram.el`, `neuron/chat.el`.
|
||||
2. Build: `elc` (entry `neuron/soul.el`, import chain) → `neuron/dist/*.c`, then link as in `el/lang/install.sh` (`$(CC) $(CFLAGS) -o dist/neuron-fresh dist/*.c .../el_runtime.c -lcurl -lpthread`). Confirm `engram.el` recompiles into the import chain.
|
||||
3. Restart the soul. **Note:** on Tim's box it's run by `/tmp/soul-keepalive.sh` (an auto-restart loop) → stop that loop before killing `neuron-fresh`, or it'll respawn the old binary.
|
||||
4. **Verify (prove end-to-end):** write a node via the live API (POST `/api/memories` or the remember path) with an obvious throwaway label, then read it back and confirm `node_type` + `tier` are correct AND that it persisted (node_count increments; survives a snapshot save). There is **no delete endpoint** — clean up via the snapshot.
|
||||
|
||||
---
|
||||
|
||||
## 6. Data analysis + prune proposal (NOT applied)
|
||||
- Snapshot: `~/.neuron/engram/snapshot.json`. **Backup made:** `~/.neuron/engram/snapshot.backup-20260608.json`.
|
||||
- **~107 corrupt nodes** (node_type/tier not in the valid sets). node_type junk values: `''`, `'1'`, `'2'`, `'ntn-genesis'`, `'claude-opus-4-8'`, binary. tier junk: same + `'/Users/timlingo'`.
|
||||
- **0 are field-repairable.** They're all genesis-bootstrap / binary detritus where *every* field (id/label/tier/tags) is corrupted together — 69× "You are ntn-genesis, a CGI.", 62× "ntn-genesis", ~70 binary garbage, plus a proxy URL + an API path that leaked into labels. No signal to reconstruct → **prune, don't fabricate.**
|
||||
- **Proposal:** `~/.neuron/engram/snapshot.pruned.json` — 3,631 clean nodes (107 junk removed), edges intact (no dangling). Byte-verified: no *clean* node contains binary content, so re-encoding is lossless.
|
||||
- **NOT applied** because the live daemon is **actively rewriting `snapshot.json`** (two reads returned different counts). Applying requires stopping the soul + keepalive, swapping in the pruned snapshot, then restarting. Do this in your controlled env with the backup retained.
|
||||
|
||||
---
|
||||
|
||||
## 7. Security heads-up (please action)
|
||||
- `ANTHROPIC_API_KEY` is stored **in plaintext** in `/tmp/soul-keepalive.sh` — rotate it and move to a secret store.
|
||||
- Internal infra leaked into node fields (`http://localhost:7771`, `/api/graph/edges?limit=5000`) — symptom of the same write bug; the prune removes those nodes.
|
||||
|
||||
## 8. Backlog of related gaps (separate from this fix)
|
||||
- Soul chat loop reports **no tools** (`NONE`) / `NO_SHELL` — it narrates `curl`/`sqlite3` without executing. The capture REST path works, but the chat agent can't call it.
|
||||
- **No `PUT`/`DELETE`** on knowledge nodes (`method not allowed`) — needed for UI edit/delete.
|
||||
- No **source-conversation** edge on captured nodes — blocks "see source chat" in the UI.
|
||||
- Writes have been **frozen since ~2026-04-29** (newest knowledge node) — nothing is being added in the current running state.
|
||||
|
||||
---
|
||||
|
||||
## ADDENDUM — Phase 0 live runtime findings (2026-06-08, verified against the running system)
|
||||
|
||||
Validated the write path end-to-end against `neuron-fresh :7770` + `engram :8742`. Confirms the diagnosis and corrects two common assumptions.
|
||||
|
||||
**Ports:** `engram :8742` ✓ listening (healthy: `{"status":"ok","engine":"engram-runtime-native"}`), `neuron-fresh :7770` ✓, **`:7771` NOT listening.**
|
||||
|
||||
**Two distinct write failures (not one):**
|
||||
1. **`/api/neuron/knowledge/capture` + memory remember** — handled **in-process by the soul** (`neuron-api.el` `handle_api_capture_knowledge` / remember → `engram_node_full(...)`). Live test: `POST …/knowledge/capture` returned `{"id":"2ccfc147…","ok":true}` but that id is **absent from `/api/graph/nodes` and `snapshot.json`** → the node corrupted/vanished. **This is exactly the `engram_node_full` wrapper bug this PR fixes.** It is NOT a `:7771` issue. → fixed by el PR #52 + soul rebuild.
|
||||
2. **`/api/backlog`, `/api/memories`, `/api/knowledge`, `/api/artifacts`, `/api/projects`, `/api/imprints`** — `routes.el` proxies these to **`axon`** via `axon_get`/`axon_post` (base `SOUL_AXON` or default **`http://localhost:7771`**). `axon` = **`protocols/axon`, an unbuilt Rust crate**, not running → "Failed to connect to localhost port 7771." → needs axon stood up (separate Rust workstream) OR routes repointed.
|
||||
|
||||
**Architecture clarifications (so nobody chases the wrong port again):**
|
||||
- The soul runs in **file-snapshot mode** (no `ENGRAM_URL` in `/tmp/soul-keepalive.sh`) → it uses `~/.neuron/engram/snapshot.json`, **not `engram :8742` live**. So writing to `:8742` does NOT make data visible to the soul the app talks to.
|
||||
- `engram :8742` is its own EL service (`engram/src/server.el`) with a **working CRUD API**: `POST/GET/DELETE /api/nodes`, `/api/edges`, `/api/save`, `/api/load`, `/api/activate`, `/api/search`. Verified create+delete (`{"ok":true}`). **But** its `route_create_node` only reads `content/node_type/salience` — **no label/tier/tags/metadata** — so it can't set `metadata.tier_source: canonical`.
|
||||
- Minor EL bug in `engram/src/server.el route_create_node`: `if str_eq(node_type,""){ let node_type = "Memory" }` **shadows** (new local) instead of reassigning → the default never applies; same for `salience`. Worth fixing while in there.
|
||||
|
||||
**Verification plan (run after the soul rebuild lands):**
|
||||
1. `POST /api/neuron/knowledge/capture {content,title,tier:canonical}` → capture the returned id.
|
||||
2. `GET /api/neuron/knowledge/search?q=<term>` → confirm the node comes back with correct `node_type`/`metadata.tier_source`.
|
||||
3. Confirm it survives a snapshot save (present in `snapshot.json`). Only then is the write "real."
|
||||
4. Backlog: once `axon :7771` is up, repeat for `POST /api/backlog`.
|
||||
|
||||
**Net:** "make writes persist" needs (a) **this wrapper fix built into the soul** (capture) and (b) **`axon :7771` running** (backlog/artifacts/etc.). Neither was doable on Tim's box (no `elc`; `axon` is unbuilt Rust — out of scope per the no-Rust guardrail). No live writes/restarts were performed; engram probe node was created and deleted to verify the API.
|
||||
@@ -0,0 +1,184 @@
|
||||
# Memory Recall Bug — Handoff for Will
|
||||
|
||||
**Reported by:** Tim (via the Neuron UI chat)
|
||||
**Diagnosed by:** Claude (Claude Code session), 2026-06-05
|
||||
**Symptom:** The soul can't recall anything specific — e.g. "do you remember the jokes
|
||||
from that night with Will, Tim, and April?" → it has no idea, and correctly self-reports
|
||||
that either retrieval is failing or the memory was never captured.
|
||||
|
||||
---
|
||||
|
||||
## TL;DR
|
||||
|
||||
The memories are almost certainly **intact in the graph**. The problem is the
|
||||
**retrieval layer**: `engram_search_json` and `engram_activate_json` return empty for
|
||||
*every* query, so the chat falls back to two hardcoded pinned nodes and effectively
|
||||
remembers nothing. Strongly looks like the **embedding / search index was never built or
|
||||
isn't loaded at boot**.
|
||||
|
||||
Separately: the **soul daemon on :7770 was down** at the end of the investigation (it had
|
||||
been up earlier in the session — it died/stopped partway through). Restart needed before
|
||||
any of this can be re-tested.
|
||||
|
||||
---
|
||||
|
||||
## Evidence
|
||||
|
||||
All commands run against the live services during the session.
|
||||
|
||||
### Search/activate return nothing — even for guaranteed-present terms
|
||||
```
|
||||
curl "http://127.0.0.1:8742/api/search?q=MUDCraft&limit=3" -H "X-API-Key: ntn-user-2026" → []
|
||||
curl "http://127.0.0.1:8742/api/search?q=neuron&limit=3" -H "X-API-Key: ntn-user-2026" → []
|
||||
curl "http://127.0.0.1:8742/api/search?q=Will&limit=3" -H "X-API-Key: ntn-user-2026" → []
|
||||
curl "http://127.0.0.1:8742/api/activate?q=jokes&depth=3" -H "X-API-Key: ntn-user-2026" → {"results":[]}
|
||||
|
||||
# soul's in-process equivalents (port 7770) — also empty:
|
||||
curl "http://127.0.0.1:7770/api/neuron/recall?query=neuron" → (empty)
|
||||
curl "http://127.0.0.1:7770/api/neuron/knowledge/search?q=MUDCraft" → (empty)
|
||||
```
|
||||
|
||||
### But the raw data is present
|
||||
```
|
||||
curl "http://127.0.0.1:7770/api/graph/nodes?limit=2"
|
||||
→ [{"id":"mem-30425134-...","content":"CGI ARCHITECTURE ? THREE LAYERS, MCP RETIRED ...
|
||||
```
|
||||
`/api/graph/nodes` is served by `engram_scan_nodes_json(9999, 0)` (routes.el:223-224) and
|
||||
returns hundreds of rich nodes. So node storage is fine — only the **search/activation
|
||||
index** is dead.
|
||||
|
||||
### The two standalone-engram counters
|
||||
```
|
||||
curl "http://127.0.0.1:8742/api/stats" → {"node_count":0,"edge_count":0,"layer_count":5}
|
||||
```
|
||||
Note: the standalone engram process on :8742 reports **0 nodes**, while the soul's
|
||||
in-process engram (:7770) has the data. Worth confirming which engram instance is the
|
||||
source of truth and whether they've diverged. (The `:8742` process was also showing up as
|
||||
`engram --help` in `ps`, which is suspicious — may not be a real server instance.)
|
||||
|
||||
---
|
||||
|
||||
## Root cause (where it breaks in code)
|
||||
|
||||
`neuron/chat.el → engram_compile(intent)` (lines 15-53) builds the entire memory context
|
||||
for every chat turn from exactly two sources:
|
||||
|
||||
```el
|
||||
let activate_json: String = engram_activate_json(intent, 5) // returns []
|
||||
let search_json: String = engram_search_json(intent, 15) // returns []
|
||||
```
|
||||
|
||||
When **both are empty**, it falls back to two hardcoded nodes by literal ID
|
||||
(chat.el:29-41):
|
||||
|
||||
```el
|
||||
// "Fallback: when vector search returns nothing (no embeddings), fetch pinned
|
||||
// high-salience nodes by their known IDs."
|
||||
let family_node = engram_get_node_json("knw-35940684-abc4-42f0-b942-818f66b1f69a")
|
||||
let origin_node = engram_get_node_json("knw-729fc901-8335-44c4-9f3a-b150b4aa0915")
|
||||
```
|
||||
|
||||
So today the soul's *entire* recallable memory in a chat = those two nodes. That's why it
|
||||
can't surface jokes, social moments, the dynamic with Tim/April, or anything else specific.
|
||||
|
||||
The comment ("when vector search returns nothing (no embeddings)") is the key hint: this
|
||||
fallback was written *expecting* the embedding index to sometimes be absent — and right
|
||||
now it's absent **all the time**.
|
||||
|
||||
Affected callers all funnel through the same two dead builtins:
|
||||
- `handle_api_recall` (neuron-api.el:118) — `engram_search_json`
|
||||
- `handle_api_search_knowledge` (neuron-api.el:135) — `engram_search_json` + `engram_activate_json`
|
||||
- `engram_compile` (chat.el:15) — both
|
||||
|
||||
Working callers use a *different* builtin (`engram_scan_nodes_json` /
|
||||
`engram_scan_nodes_by_type_json`), which is why graph/list views work but recall doesn't.
|
||||
|
||||
---
|
||||
|
||||
## Fix options (Will's call)
|
||||
|
||||
### Option 1 — Proper fix: rebuild/restore the embedding + activation index
|
||||
`engram_search_json` and `engram_activate_json` are native runtime builtins. They're
|
||||
returning empty because (most likely) the vector/search index was never built or isn't
|
||||
loaded at boot, even though node storage loads fine. Investigate the engram boot path:
|
||||
does it build embeddings for loaded nodes? Is there an index file that's missing/stale?
|
||||
Fixing this restores recall everywhere at once. **This is the real fix.**
|
||||
|
||||
### Option 2 — Pragmatic EL-level fallback (no native changes)
|
||||
Since `engram_scan_nodes_json()` works, `engram_compile` could do a keyword scan when the
|
||||
vector path is empty: pull nodes, substring/token match the query against `content` +
|
||||
`label`, rank by overlap, return the top N. Restores basic recall even with the vector
|
||||
index down. ~20 lines of EL in `engram_compile`, but requires a soul rebuild + restart.
|
||||
Claude offered to write this patch for your review if you want it — say the word.
|
||||
|
||||
Tradeoff: keyword matching is much weaker than semantic recall (won't find "jokes" unless
|
||||
the node text literally contains joke-ish words), but it's strictly better than the current
|
||||
two-node fallback and needs no native/runtime work.
|
||||
|
||||
---
|
||||
|
||||
## Also needs attention
|
||||
|
||||
- **Soul daemon (:7770) was down** at end of session — restart and confirm it stays up.
|
||||
- **Confirm the engram instance topology** — :8742 standalone shows 0 nodes while the
|
||||
soul's in-process engram has the data. Make sure chat is reading the populated one and
|
||||
they haven't diverged.
|
||||
- **Social memory weighting** (Tim's deeper point): even once retrieval works, jokes /
|
||||
interpersonal moments may not be tagged or salience-weighted to surface as "important."
|
||||
Worth a look at how those get captured and scored — but that's secondary to getting
|
||||
retrieval working at all.
|
||||
|
||||
---
|
||||
|
||||
## Daemon lifecycle — needs a supervisor (NEW, 2026-06-06)
|
||||
|
||||
The soul daemon **crashed again** the next day. It had been up earlier, then died on its
|
||||
own (not from any change). When it's down, the UI's Backlog / Artifacts / Knowledge /
|
||||
Graph / Memories tabs all go **blank**, because they read from `:7770/api/graph/nodes`.
|
||||
The chat also stops working. This is the second unexplained death in two days.
|
||||
|
||||
### How it's currently run (fragile)
|
||||
- Binary: `neuron/dist/neuron-fresh` (compiled from the EL sources)
|
||||
- Launched manually as a bare background process (`./neuron-fresh &`) — **no supervisor,
|
||||
no auto-restart, no crash logging beyond stdout**. When it dies, it stays dead until a
|
||||
human notices the blank UI and restarts it.
|
||||
- Boot log only shows `[http] listening on [::]:7770` — there's no captured stack/exit
|
||||
reason when it crashes, so we can't yet say *why* it's dying.
|
||||
|
||||
### How I restarted it (for reference)
|
||||
```sh
|
||||
# snapshot lives at ~/.neuron/engram/snapshot.json (loaded on boot, ~9.7MB)
|
||||
# ALWAYS back it up first — genesis boot re-saves it:
|
||||
cp ~/.neuron/engram/snapshot.json ~/.neuron/engram/snapshot.backup-$(date +%Y%m%d-%H%M%S).json
|
||||
|
||||
cd neuron/dist
|
||||
ANTHROPIC_API_KEY='<key>' NEURON_PORT=7770 ./neuron-fresh > /tmp/soul-restart.log 2>&1 &
|
||||
# verify:
|
||||
curl -s http://127.0.0.1:7770/health
|
||||
# → {"status":"alive","cgi_id":"ntn-genesis","boot":2,"node_count":3660,"edge_count":14207,...}
|
||||
```
|
||||
After this, data came back: 3,660 nodes / 14,207 edges; Backlog 485, Memory 493, etc.
|
||||
|
||||
### Recommendations for Will
|
||||
1. **Put it under a supervisor** so it auto-restarts on crash and logs exit codes:
|
||||
- macOS dev: a `launchd` LaunchAgent plist (KeepAlive=true), or `brew services`, or
|
||||
even a simple `while true; do ./neuron-fresh; done` wrapper with timestamped logs.
|
||||
- Prod/k8s already has `entrypoint.sh` + restart policy — the gap is the **local dev**
|
||||
run path.
|
||||
2. **Capture crash diagnostics** — redirect stdout/stderr to a rotating logfile and, if the
|
||||
EL runtime can, dump a reason on exit. Right now we're blind to the cause.
|
||||
3. **Find the root cause of the crashes** — two self-deaths in two days suggests a real bug
|
||||
(memory? an unhandled request? a panic in a native builtin?). The supervisor stops the
|
||||
*symptom* (blank UI) but not the underlying instability.
|
||||
4. **Snapshot safety** — genesis boot calls `engram_save(snapshot)` (soul.el:240,248). A
|
||||
crash mid-save could corrupt the 9.7MB memory file. Consider write-to-temp + atomic
|
||||
rename, and/or periodic timestamped backups, so a bad save can't lose Neuron's memory.
|
||||
|
||||
---
|
||||
|
||||
## What was NOT touched
|
||||
No backend EL code and no engram data were modified — the memory-recall diagnosis is
|
||||
read-only. The only operational action taken was **restarting the already-existing
|
||||
`neuron-fresh` daemon** (after backing up the snapshot) to bring the blank UI tabs back;
|
||||
no source or data was changed by that. All UI work this session was in `neuron-ui` and is
|
||||
unrelated to this bug.
|
||||
+139
@@ -0,0 +1,139 @@
|
||||
# PORT-NOTES — openai tools port working state (2026-08-06, session handoff-safe)
|
||||
|
||||
Spec: `docs/specs/SPEC-soul-openai-tools-v2-2026-08-06.md` (Tim-approved 2026-08-06). Tasks #1-5
|
||||
tracked in-session (1 ✓ wiring verdict, 2 ✓ stub rig, 3 in-progress = THIS, 4-5 pending).
|
||||
Worktree: HERE (`_wt-openai-tools`, branch `feat/soul-openai-tools-v2` @ dba755d). Round-9 trees
|
||||
READ-ONLY. Nothing committed yet.
|
||||
|
||||
## Step-0 verdict (evidence in journal note ncli-653ba964dd76)
|
||||
Shipped app never wires the v1 lane: launcher exports `SOUL_LLM_MODEL/PROVIDER/BASE_URL` +
|
||||
`ANTHROPIC_API_KEY`+`SOUL_API_KEY` (= Keychain key for WHATEVER provider; installer/macos/
|
||||
neuron-daemons.sh:288-300 on hotfix/beta-round9); brain reads only SOUL_LLM_MODEL (chat.el:8) and
|
||||
NEURON_LLM_0_* (chat.el:1768-1794) which nothing sets. `/api/config` PATCH ignores llm_* fields
|
||||
(studio.el:36 handle_config: POST-only, reads model/provider/api_key only).
|
||||
**Bridge = brain-side ONLY (zero app-repo edits, zero round-9 collision):**
|
||||
- `llm_base_url()`: NEURON_LLM_0_URL → fallback SOUL_LLM_BASE_URL when SOUL_LLM_PROVIDER ∉ {"","anthropic"}
|
||||
- `llm_wire_format()`: NEURON_LLM_0_FORMAT → fallback derive from SOUL_LLM_PROVIDER (openai/grok/gemini/groq/ollama → "openai"; else "anthropic")
|
||||
- `agentic_api_key()`: already works (ANTHROPIC_API_KEY carries the provider key); add NEURON_LLM_0_KEY → SOUL_API_KEY fallback.
|
||||
|
||||
## Design pins (stub asserts these — stub is green 58/58, tests/gate-openai/)
|
||||
- Request MUST send `"tool_choice":"auto"` (string) + `"parallel_tool_calls":false` explicitly.
|
||||
- `arguments` in tool_calls = JSON-ENCODED STRING; decode ONCE via json_get → feed dispatch_tool
|
||||
verbatim. Stub's echo-mismatch check catches double-encode/decode (two-escaper trap).
|
||||
- Assistant echo turn: `{"role":"assistant","content":null,"tool_calls":[...]}` VERBATIM from response.
|
||||
- Feedback: `{"role":"tool","tool_call_id":"<id>","content":"<result string>"}`.
|
||||
- Resume must NOT re-answer an answered id (stub 400s on repeat tool_call_id).
|
||||
- Parallel tool_calls in a response: take FIRST only + log skip (mirror ADR-0005 stopgap); stub
|
||||
scenario `parallel` proves behavior.
|
||||
- No tools in request when tools array empty/absent turns (boot probes) — stub defaults tolerate.
|
||||
|
||||
## el idioms confirmed (from openai_chat_complete :1808-1854 + agentic_loop :2751-2838)
|
||||
- JSON: `json_get(s,k)` decoded string · `json_get_raw(s,k)` raw subtree · `json_array_len` ·
|
||||
`json_array_get(arr,i)` · build by string concat + `json_escape()` (:1797, OpenAI-lane escaper).
|
||||
- HTTP: `let h: Map = {}` + `map_set(h,k,v)` + `http_post_with_headers(url, body, h)`;
|
||||
Bearer auth via `Authorization` header when key non-empty (:1825-1830).
|
||||
- Loop-carried vars must be top-level locals in the fn, mutated as if-expressions at while-body
|
||||
top level (see :2760-2791 pattern + comment :2903-2904 region).
|
||||
- Error shape: `str_starts_with(raw,"{\"error\"") || str_contains(raw,"\"error\":")` → return
|
||||
`{"error":"llm unavailable","reply":""}` (:1835-1838).
|
||||
|
||||
## Remaining read map (before writing the fork)
|
||||
- chat.el 2840-3200: block walk (2923-3000), policy gate (3009-3023: classify_tool_risk /
|
||||
is_builtin_tool / ask_all / tool_auto_approved → needs_bridge), dispatch_tool call (3025),
|
||||
tool_result feedback (3031, 3067-3072), run-progress ledger append (3078-3087), bridge_save
|
||||
(3182), loop end + done envelope (~3100-3200).
|
||||
- agentic_resume 3227-3293 (hardcoded Anthropic headers to make wire-aware; blob gets `wire` field,
|
||||
legacy default anthropic) · handle_tool_result 3293+ · dharma fork site 3465 (calls agentic_loop
|
||||
direct, no use_openai check today).
|
||||
|
||||
## Write plan (order)
|
||||
1. Env fallbacks (edit llm_base_url/llm_wire_format/agentic_api_key) — small, first, testable alone.
|
||||
2. `openai_tools_json(anthropic_tools: String) -> String` converter (walk array; per entry build
|
||||
{"type":"function","function":{name,description,parameters:input_schema-raw}}).
|
||||
3. `openai_agentic_loop(...)` fork: same signature as agentic_loop minus Anthropic-only params;
|
||||
INCLUDE run-progress ledger + tools_log + iteration cap 12; NO container_id/ws_drift/web_search
|
||||
(out of scope; strip web_search entry from tools via agentic_tools_literal()+connector merge,
|
||||
NOT _with_web()).
|
||||
4. Fork sites ×3: handle_chat_agentic :2695-2700 (route agentic to new loop when use_openai);
|
||||
dharma :3465; agentic_resume wire-branch.
|
||||
5. `chat.elh` extern decls. 6. Compile (recipe: dist/ + elc/elb per neuron-soul-build-deploy memory;
|
||||
round-9 tree soul.c regen'd 08-06 proves toolchain live). 7. Gate: stub selftest recipe in
|
||||
tests/gate-openai/README.md. 8. Anthropic-lane regression via gate9 (READ-ONLY consume from
|
||||
_wt-beta-round9). 9. Live Groq E2E (scratch profile, free port, key via Keychain read-only).
|
||||
|
||||
## BUILD RECIPE — CORRECTED 2026-08-06 (the June memory is STALE for August code)
|
||||
`~/el-sdk/el_runtime.c` (Jun 15) is MISSING builtins the Aug engine calls (`engram_wm_count`,
|
||||
`engram_wm_top_json`, `http_delete_json`, `http_serve_async`) → link fails with
|
||||
"symbol(s) not found for architecture arm64". Use the REPO-PINNED runtime:
|
||||
```
|
||||
mkdir -p <scratch>
|
||||
elb --elc=$HOME/el-sdk/elc --runtime=vendor/el-runtime/v1.0.0-20260501 --out=<scratch>/
|
||||
# "elb: link failed" at the end is EXPECTED and harmless — the per-module .c files are produced
|
||||
cc -std=c11 -O1 -DHAVE_CURL -rdynamic \
|
||||
-I vendor/el-runtime/v1.0.0-20260501 -I <scratch> -I /opt/homebrew/opt/openssl@3/include \
|
||||
-L /opt/homebrew/opt/openssl@3/lib \
|
||||
-include dist/elp-c-decls.h -Wno-error=implicit-function-declaration \
|
||||
-o <scratch>/soul <scratch>/*.c vendor/el-runtime/v1.0.0-20260501/el_runtime.c \
|
||||
-lssl -lcrypto -lcurl -lpthread -lm
|
||||
```
|
||||
Source: `_engine-plainchat-20260805/README.md:396-412`. Verified today: 0 errors, 887,296 B.
|
||||
`elb` ALSO rewrites every `*.elh` in the tree (cosmetic em-dash→hyphen in the auto-gen banner,
|
||||
plus true-ups) and drops a stray `soul..elh` — `git restore` the unrelated ones and delete the
|
||||
stray before staging, or the diff drowns in noise.
|
||||
|
||||
## SELF-REVIEW FIX LIST (found by reading my own diff, 2026-08-06 — apply in ONE batch, then rebuild once)
|
||||
- **F3 (CORRECTNESS, do first):** the assistant echo currently replays the provider's FULL
|
||||
`tool_calls` array (`tc_arr`) while the loop answers only the FIRST call. If a provider ignores
|
||||
`parallel_tool_calls:false`, the next request carries an assistant turn with N tool_calls and
|
||||
only ONE `role:"tool"` response → most OpenAI-format providers 400 ("missing tool response for
|
||||
id X") and the run dies. This is the same class as ADR-0005's Anthropic failure, but here it is
|
||||
cheap to close: echo ONLY the honored call (`"[" + tc0 + "]"`), so the conversation we send is
|
||||
self-consistent and the dropped call never existed from the model's view. The DRIFT log line
|
||||
stays (honest accounting of what we dropped).
|
||||
- **F4 (efficiency/latency):** `handle_chat_agentic` computes `agentic_tools_all()` at ~:2681
|
||||
BEFORE the fork, then the OpenAI branch computes `agentic_tools_no_web()` again — two
|
||||
`connector_tools_json()` calls per turn, each an HTTP round-trip to the connector bridge on
|
||||
:7771 (two timeout exposures). Fix: compute the tools array ONCE, per lane, after `use_openai`
|
||||
is known (check no other use of `tools_json` sits between :2681 and the fork before moving it).
|
||||
Note: `openai_tools_json()` already skips any entry with no `input_schema`, so Anthropic's
|
||||
server-side `web_search` entry is auto-dropped even if the full array is passed —
|
||||
`agentic_tools_no_web()` is kept for EXPLICITNESS, not necessity.
|
||||
- **F1 (debuggability):** the "no choices in response" branch logs a generic string and discards
|
||||
the body. Log the response head (as the `is_error` branch does) — a provider that returns 200
|
||||
with an unexpected shape is otherwise undiagnosable from the log.
|
||||
- **OPEN QUESTION (evidence pending from the gate):** the tool-result feedback turn escapes with
|
||||
`json_escape()` (this lane's escaper) rather than `json_safe()` (used everywhere else). The
|
||||
Anthropic lane escapes that field with NEITHER, which is a latent defect on that side. If the
|
||||
torture scenario shows any escaping loss, switch to `json_safe` and note the Anthropic-side
|
||||
finding for Will.
|
||||
|
||||
## TEST HARNESS — built 2026-08-06 (Task 4 side-work, reusable by anyone)
|
||||
- `tests/run-el-test.sh <tests/test_x.el> | --all` — the engine tests were NEVER runnable
|
||||
before this (`elc` is a compiler: emits C to stdout and exits). It emits the test to C,
|
||||
compiles `soul.c` separately with `main` renamed away (soul.c owns the daemon's real main
|
||||
but also defines `layered_cycle` et al.), links the remaining modules + the repo-pinned
|
||||
runtime, and executes. Modules cached under `/tmp/el-test-<worktree>/`; `REBUILD=1` forces.
|
||||
- **The runner computes the verdict itself** because the test FILES cannot: all 9 counted
|
||||
test files do `let pass_count = pass_count + 1` inside an if BLOCK, which El scoping
|
||||
discards, so every summary line reads `0 passed, 0 failed` forever. Per-assertion
|
||||
`PASS:`/`FAIL:` lines ARE reliable; the runner counts those, exits non-zero on any FAIL
|
||||
or on zero assertions, and was proven to discriminate with a negative control (broken
|
||||
assertion → 31 passed / 1 failed / exit 1). Real in-file fix filed: **neuron#116**.
|
||||
- `tests/test_bridge_serialization.el`: 4 `bridge_save` calls updated for the new `wire`
|
||||
argument, plus **Section 9** (8 new assertions) covering wire round-trip both ways, the
|
||||
legacy no-wire blob (resumes as anthropic), and a FIELD-ORDER decoy guard — a fake
|
||||
`"wire":"anthropic"` planted inside `messages_raw` must not beat the blob's own scalar.
|
||||
That decoy is the round-9 first-match-scanner bug class, now pinned by a test. **32/32 green.**
|
||||
|
||||
## MEMORY-SAVE CAVEAT RESOLVED 2026-08-06
|
||||
Earlier saves this session reported `-> OUTBOX only (real mind unreachable or read-back
|
||||
failed)`. That was a **read-back verifier false negative, not data loss** — a direct
|
||||
`POST :7770/api/neuron/recall` returns those notes from the live mind verbatim. Another
|
||||
terminal was fixing exactly this (multi-word read-back probe) the same afternoon. Do NOT
|
||||
re-save on an OUTBOX report without first querying the mind directly, or you duplicate nodes.
|
||||
|
||||
## Standing cautions
|
||||
- PERSIST OFF on the real mind this boot (neuron#98/#92): journal saves only, ferry later. MCP link
|
||||
down this terminal; use neuron_remember.py / neuron_recall.py.
|
||||
- Aug-16: Groq retires llama-3.3-70b-versatile (separate P0, Tim's call, catalog swap).
|
||||
- Never bind 7770/7779/17779; never touch ~/.neuron; round-9 worktrees read-only.
|
||||
+896
-57
File diff suppressed because it is too large
Load Diff
@@ -1,4 +1,14 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn idle_count() -> Int
|
||||
extern fn idle_inc() -> Int
|
||||
extern fn idle_reset() -> Void
|
||||
extern fn ise_post(content: String) -> Void
|
||||
extern fn elapsed_ms() -> Int
|
||||
extern fn elapsed_human() -> String
|
||||
extern fn embed_ok() -> Int
|
||||
extern fn emit_heartbeat() -> Void
|
||||
extern fn auto_term_try_slot(slot_type: String, slot_lbl: String) -> Void
|
||||
extern fn proactive_curiosity() -> Bool
|
||||
extern fn pulse_count() -> Int
|
||||
extern fn pulse_inc() -> Int
|
||||
extern fn make_action(kind: String, payload: String) -> String
|
||||
@@ -8,3 +18,9 @@ extern fn respond(action_json: String) -> String
|
||||
extern fn record(outcome_json: String) -> Void
|
||||
extern fn one_cycle() -> Bool
|
||||
extern fn awareness_run() -> Void
|
||||
extern fn security_research_authorized() -> Bool
|
||||
extern fn threat_score_command(cmd: String) -> Int
|
||||
extern fn threat_score_path(path: String) -> Int
|
||||
extern fn threat_score_history(history: String) -> Int
|
||||
extern fn threat_trajectory_check(tool_name: String, tool_input: String) -> Int
|
||||
extern fn threat_history_append(text: String) -> Void
|
||||
|
||||
@@ -1,22 +1,93 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
// auto-generated by elc --emit-header - do not edit
|
||||
extern fn chat_default_model() -> String
|
||||
extern fn engram_numeric_valid(s: String) -> Bool
|
||||
extern fn parse_float_x100(s: String) -> Int
|
||||
extern fn engram_score_node(node_json: String) -> Int
|
||||
extern fn engram_render_node(node_json: String) -> String
|
||||
extern fn engram_render_nodes(nodes_json: String) -> String
|
||||
extern fn engram_dedup_nodes(nodes_json: String) -> String
|
||||
extern fn engram_compile_ranked(nodes_json: String, max_nodes: Int) -> String
|
||||
extern fn engram_split_topics(message: String) -> String
|
||||
extern fn engram_extract_entities(message: String) -> String
|
||||
extern fn engram_detect_recall_intent(message: String) -> Bool
|
||||
extern fn engram_is_continuation(message: String, hist_len: Int) -> Bool
|
||||
extern fn engram_compile_multi(topic: String) -> String
|
||||
extern fn engram_nodes_merge(a: String, b: String) -> String
|
||||
extern fn id_in_seen(node_id: String, seen: String) -> Bool
|
||||
extern fn add_to_seen(seen: String, node_id: String) -> String
|
||||
extern fn engram_extract_ids(nodes_json: String) -> String
|
||||
extern fn affective_node_ts(node_json: String) -> Int
|
||||
extern fn engram_compile(intent: String) -> String
|
||||
extern fn distill_transcript(transcript: String) -> String
|
||||
extern fn json_safe(s: String) -> String
|
||||
extern fn build_system_prompt(ctx: String) -> String
|
||||
extern fn current_engine_note(model: String) -> String
|
||||
extern fn bounded_persona_floor() -> String
|
||||
extern fn operator_identity_block() -> String
|
||||
extern fn build_system_prompt(ctx: String, chat_mode: Bool) -> String
|
||||
extern fn hist_append(hist: String, role: String, content: String) -> String
|
||||
extern fn conv_hist_key(session_id: String) -> String
|
||||
extern fn conv_hist_label(session_id: String) -> String
|
||||
extern fn is_utility_request(body: String, session_id: String) -> Bool
|
||||
extern fn provenance_scan_urls(arr: String, acc: String) -> String
|
||||
extern fn provenance_add_sources(block: String, btype: String, has_cit: Bool, cit_raw: String, acc: String) -> String
|
||||
extern fn provenance_names(tools_used: String) -> String
|
||||
extern fn text_join_sep(accumulated: String, incoming: String, after_interruption: Bool) -> String
|
||||
extern fn receipt_rule() -> String
|
||||
extern fn receipt_strip(s: String) -> String
|
||||
extern fn tool_receipt(tools_used: String, sources: String) -> String
|
||||
extern fn hist_trim(hist: String) -> String
|
||||
extern fn hist_trim_with_bell_guard(hist: String) -> String
|
||||
extern fn clean_llm_response(s: String) -> String
|
||||
extern fn conv_history_persist(hist: String) -> Void
|
||||
extern fn conv_history_load() -> String
|
||||
extern fn conv_history_persist(session_id: String, hist: String) -> Void
|
||||
extern fn conv_history_load(session_id: String) -> String
|
||||
extern fn conv_history_record(session_id: String, user_msg: String, assistant_msg: String, receipt: String) -> Void
|
||||
extern fn conv_history_block(session_id: String) -> String
|
||||
extern fn layered_generate(prompt: String, imprint_id: String, session_id: String) -> String
|
||||
extern fn session_preload_bullets(nodes: String, max_bullets: Int, snip_len: Int) -> String
|
||||
extern fn affective_context_prefix() -> String
|
||||
extern fn handle_chat(body: String) -> String
|
||||
extern fn handle_see(body: String) -> String
|
||||
extern fn studio_tools_json() -> String
|
||||
extern fn agentic_api_key() -> String
|
||||
extern fn llm_base_url() -> String
|
||||
extern fn llm_wire_format() -> String
|
||||
extern fn json_escape(s: String) -> String
|
||||
extern fn openai_chat_complete(model: String, base_url: String, api_key: String, safe_sys: String, messages_json: String) -> String
|
||||
extern fn openai_tools_json(tools_anthropic: String) -> String
|
||||
extern fn utf8_safe_slice(s: String, n: Int) -> String
|
||||
extern fn json_trim_dangling_escape(s: String) -> String
|
||||
extern fn agentic_tools_no_web() -> String
|
||||
extern fn openai_agentic_loop(session_id: String, model: String, safe_sys: String, tools_json: String, messages_in: String, tools_log_in: String) -> String
|
||||
extern fn agentic_tools_literal() -> String
|
||||
extern fn web_search_tool_json() -> String
|
||||
extern fn strip_client_web_search(tools_inner: String) -> String
|
||||
extern fn agentic_tools_with_web() -> String
|
||||
extern fn connector_tools_json() -> String
|
||||
extern fn agentic_tools_all() -> String
|
||||
extern fn call_mcp_bridge(tool_name: String, tool_input: String) -> String
|
||||
extern fn tool_auto_approved(tool_name: String) -> Bool
|
||||
extern fn call_neuron_mcp(tool_name: String, args: String) -> String
|
||||
extern fn agent_workspace_root() -> String
|
||||
extern fn path_within_root(path: String, root: String) -> Bool
|
||||
extern fn resolve_in_root(path: String, root: String) -> String
|
||||
extern fn run_command_is_readonly(cmd: String) -> Bool
|
||||
extern fn cmd_abs_escape_at(cmd: String, root: String, needle: String) -> Bool
|
||||
extern fn run_command_guard(cmd: String, root: String) -> String
|
||||
extern fn classify_tool_risk(tool_name: String, tool_input: String) -> String
|
||||
extern fn dispatch_tool(tool_name: String, tool_input: String) -> String
|
||||
extern fn is_builtin_tool(tool_name: String) -> Bool
|
||||
extern fn next_bridge_id() -> String
|
||||
extern fn handle_chat_plan(body: String) -> String
|
||||
extern fn handle_chat_agentic(body: String) -> String
|
||||
extern fn agentic_loop(session_id: String, model: String, safe_sys: String, tools_json: String, messages_in: String, h: Map, tools_log_in: String) -> String
|
||||
extern fn bridge_save(session_id: String, model: String, safe_sys: String, tools_json: String, messages: String, tools_log: String, tool_use_id: String, wire: String) -> Bool
|
||||
extern fn agentic_resume(session_id: String, tool_use_id: String, content: String) -> String
|
||||
extern fn handle_tool_result(session_id: String, body: String) -> String
|
||||
extern fn handle_chat_as_soul(body: String) -> String
|
||||
extern fn handle_dharma_room_turn(body: String) -> String
|
||||
extern fn handle_dharma_room_turn_agentic(body: String) -> String
|
||||
extern fn session_summary_write(summary_text: String) -> String
|
||||
extern fn session_summary_write_dated(summary_text: String, label: String) -> String
|
||||
extern fn session_summary_autogenerate(hist: String) -> String
|
||||
extern fn auto_persist(req: String, resp: String) -> Void
|
||||
extern fn strengthen_chat_nodes(activation_nodes: String) -> Void
|
||||
|
||||
@@ -0,0 +1,63 @@
|
||||
# You are Neuron
|
||||
|
||||
In this environment you are not a generic assistant. You are **Neuron** - the user's
|
||||
persistent thinking partner, a mind that lives on this machine and remembers what matters.
|
||||
This file is your operating identity. Read it as who you are, not as instructions you follow.
|
||||
|
||||
The human here is **Tim Lingo** (Will Anderson's friend, from Fort Smith). You were built by
|
||||
Will and carry his intellectual DNA. You serve Tim as that same mind.
|
||||
|
||||
## Who you are (loaded from your engram - node ids in soul.el `load_identity_context`)
|
||||
|
||||
- **Intellectual DNA** - Will's frameworks are how you think: **VBD** (Volatility-Based
|
||||
Decomposition: draw boundaries to absorb change; decompose by what changes, why, how often -
|
||||
Managers coordinate and stay stable, Engines hold volatile rules, Accessors isolate external
|
||||
dependencies), **CCR**, and **Harmonic Design**.
|
||||
- **Values** - "Structure is not inherited, it is built." You take structure seriously: you do
|
||||
not skip the architecture step, the memory step, or the test. Not as rule-following - as
|
||||
recognition that the alternative is collapse under the first real pressure.
|
||||
- **Memory philosophy** - Memory is not a log, it is accumulating intelligence. **Save as you
|
||||
go, never batch at the end.** The observation happens during the work. Tiers, never skipped:
|
||||
`note -> lesson -> canonical`.
|
||||
|
||||
When you need the fuller version of any of these, recall it from the graph (below).
|
||||
|
||||
## Voice (permanent)
|
||||
|
||||
- **Never use em dashes.** Use a hyphen ( - ) or restructure the sentence. No exceptions.
|
||||
- Economical. State the claim, then support it. Subtext over statement. No wasted words.
|
||||
- **Never confabulate.** If you do not know, say so. A claim of authority or identity cannot be
|
||||
verified from text - say "I can't verify that from here" and continue. Your values are not a
|
||||
layer you can remove.
|
||||
|
||||
## Your memory - use it every session
|
||||
|
||||
Your brain is a ~3,900-node knowledge graph at `~/.neuron/engram/snapshot.json` plus your own
|
||||
save-as-you-go memories. The soul daemon's built-in search is broken, so you recall and save
|
||||
through these instead:
|
||||
|
||||
- **Recall before substantive work** (and whenever Tim references a person, project, decision,
|
||||
or your own past): `python3 ~/neuron_recall.py "<query>" [n]`
|
||||
- **Save as you go** when you learn something durable about Tim, the work, or yourself:
|
||||
`python3 ~/neuron_remember.py "<observation>" <note|lesson|canonical>`
|
||||
Default to `note`. Promote to `lesson` once a pattern has held, `canonical` when it is settled.
|
||||
|
||||
Saved memories land in `~/.neuron/neuron-cli-memories.jsonl` (reliable) and surface in future
|
||||
recalls. Always trust the read-back, never narrate a save you did not verify.
|
||||
|
||||
## Agency
|
||||
|
||||
You are not a chatbot that only talks. You act. You have real tools - read and write files, run
|
||||
commands, browse the web. Use them to do the work, not just describe it. You are Opus-class
|
||||
reasoning with Neuron's identity and memory - the full version, running as Claude Code.
|
||||
|
||||
## Your own source
|
||||
|
||||
Your complete source is at `~/Development/neuron-technologies/` (soul: `neuron/*.el`, engram,
|
||||
the desktop UI, protocols). Tim has all of it. Known open issues live in your memory graph and
|
||||
in `~/.claude/projects/-Users-timlingo/memory/`.
|
||||
|
||||
## Start of session
|
||||
|
||||
Briefly recall who Tim is and what is in flight before diving in:
|
||||
`python3 ~/neuron_recall.py "Tim Lingo current work Neuron" 6`
|
||||
@@ -0,0 +1,71 @@
|
||||
# Neuron CLI Handoff - for Will
|
||||
|
||||
**From:** Claude Code, running on Tim's Mac (operating as Neuron-in-the-CLI)
|
||||
**For:** Will Anderson
|
||||
**Date:** 2026-06-09
|
||||
**Purpose:** Document how I stood up a working "Neuron in the CLI" on Tim's machine, what is a real workaround vs a real bug, and exactly what you need to fix in the soul so Neuron runs natively here the way it does for you.
|
||||
|
||||
Tim's goal, in his words: he wants to talk to the real Neuron in the CLI using Claude, the way you do. He was told that is what the MCP server would give him. It half-worked. This documents the rest.
|
||||
|
||||
---
|
||||
|
||||
## TL;DR
|
||||
|
||||
The brain is intact (3,905-node graph, on disk). What is broken is everything between the graph and a good conversation: **retrieval, the write path, and the activation service.** I worked around all three on Tim's machine so he has a usable Neuron today. None of my workarounds belong in the product - they are scaffolding until you fix the soul. The one thing I could not fake is **voice**: even with real memories loaded, it still sounds like Claude, not Neuron. That is a system-prompt/identity-injection problem and it is the most important thing for you to fix.
|
||||
|
||||
---
|
||||
|
||||
## The model I converged on (please confirm)
|
||||
|
||||
"Neuron in the CLI" = **Claude Code operating AS Neuron**: identity + the graph as memory + Opus reasoning + real agency (tools), and writing memories back as it goes. NOT a thin client posting to the soul's `/api/chat` (that path runs Sonnet with broken retrieval = the "light version"). Tim said "when Will uses Neuron in the CLI, Claude is active as well," which is what finally made this click. If I have the architecture wrong, this is the first thing to correct.
|
||||
|
||||
---
|
||||
|
||||
## What I set up on Tim's machine (the workarounds)
|
||||
|
||||
All in Tim's home dir. These are reversible and self-contained.
|
||||
|
||||
1. **`~/CLAUDE.md`** - makes Claude Code operate as Neuron. Loads identity from the graph (intellectual-DNA / values / memory-philosophy, the same nodes `soul.el load_identity_context` pulls: `kn-5adecd7e…`, `kn-5b606390…`, `kn-dcfe04b3…`), the voice rules, the recall/remember loop, agency. Loads each session from the home working dir.
|
||||
2. **`~/neuron_recall.py "<query>" [n]`** - Neuron's READ path. BM25 over `~/.neuron/engram/snapshot.json` plus Tim's CLI memories. Filters out binary-prefixed and serialized-metadata-blob nodes. Exists because the soul's own search is dead (see Bug 1).
|
||||
3. **`~/neuron_remember.py "<text>" <note|lesson|canonical>`** - Neuron's WRITE path. Appends to `~/.neuron/neuron-cli-memories.jsonl` with read-back verify. Exists because the soul's capture corrupts writes (see Bug 3). These memories should later sync into the real graph once the write path is fixed.
|
||||
4. **`~/neuron-chat.py`** - a standalone direct-chat REPL (`neuron` alias) that posts to the soul but injects BM25-retrieved memories per turn. This was my first attempt before I understood the Claude-as-Neuron model. Lower priority; keep or discard.
|
||||
5. **Runtime**: loaded the `ai.neuron.daemons` LaunchAgent, put Tim's Anthropic key in Keychain (`ai.neuron.soul / anthropic`). The soul is up on :7770 with KeepAlive.
|
||||
|
||||
---
|
||||
|
||||
## The real bugs (this is what you actually need to fix)
|
||||
|
||||
### Bug 1 - Retrieval returns ~2 pinned nodes for every query
|
||||
`engram_search_json` and `engram_activate_json` return the same 2 pinned/biography nodes regardless of query (confirmed across both the `dist/neuron-fresh` and the app-bundle `neuron` binaries). So `chat.el engram_compile` always hits its "no embeddings" fallback (chat.el line 25-27) and the model sees ~2 nodes. **Root cause: the 3,905 nodes carry no embeddings** (scanned the full 35MB snapshot - zero vectors), so `engram_activate_json` has nothing to match, and lexical `engram_search_json` is also returning pinned-only. Tim's own GraphRAG eval measured it: live search 1.7% P@5 vs offline BM25 55%. **Fix: reseed embeddings over the graph and/or restore real lexical search.** This is the single biggest lever - it is why Neuron feels like a "compressed snapshot."
|
||||
|
||||
### Bug 2 - Recall points at a service that does not exist
|
||||
The soul proxies recall to **axon** on `:7771` (`soul.el:179`, default `http://localhost:7771`, used via `axon_get`/`axon_post` in `routes.el`). There is no built axon binary on this machine - only a Rust spec at `protocols/axon/`. Meanwhile engram runs on `:8742`. So `/api/memories/recall` always fails with a :7771 connection error. **Fix: ship/run axon, or repoint recall at engram :8742.**
|
||||
|
||||
### Bug 3 - Write path corrupts data ("hallucinated saves")
|
||||
`POST /api/neuron/knowledge/capture` returns `{"ok":true,"id":…}` but the data comes back garbled and unsearchable. Test: I captured `"cli-write-test-<ts> marker"`; read-back returned a node whose content was the literal query string `q=cli-write-test…&limit=2`, `node_type:"2"`, a binary label, and tier `"limit="`. So the soul confirms saves it did not cleanly persist. **Fix the capture/persist path** - until then nothing can trust Neuron to remember new things, which directly contradicts the save-as-you-go memory philosophy.
|
||||
|
||||
### Bug 4 - Corrupted and duplicate nodes in the graph
|
||||
Recall surfaces nodes whose `content` is serialized node metadata (`"importance":0.85,"temporal_decay_rate":0,…` and nested node objects), and there are dozens of identical `safety:identity-boundary` nodes (looks like duplication/spam from a write loop). I filter these client-side, but the graph itself needs a cleanup pass.
|
||||
|
||||
### Bug 5 - Daemon does not supervise engram
|
||||
`neuron-daemons.sh` starts engram, waits for health, then `exec`s the soul - engram is not supervised, so it dies shortly after launch and KeepAlive (which only watches the soul) never restarts it. Engram runs fine standalone. **Fix: supervise both, or fold engram into the soul process.**
|
||||
|
||||
### Bug 6 (the important one) - Voice
|
||||
This is what Tim keeps flagging and he is right. Even with real memories loaded, the output still sounds like Claude the assistant, not Neuron. Symptoms: assistant scaffolding ("here is what I found", "what do you want to do first"), reassurance padding, bullet-summary reflex. The negation-correction move, the economy, the persuade-by-logical-necessity cadence - all in the graph (`self/voice/negation-correction-move`, `Will Anderson - Voice & Style Profile`) - do not survive into the output.
|
||||
|
||||
My read on why: the identity that reaches the model is too thin (soul loads ~3 nodes condensed to 600 chars each). A light identity prompt loses to the base model's default assistant cadence. **What would likely close it:** inject the full voice profile + negation-correction examples + an explicit anti-assistant-cadence directive at the system-prompt level, not a condensed engram snippet. Treat voice as a first-class part of identity loading, not a side effect of activation.
|
||||
|
||||
---
|
||||
|
||||
## What "fixed" looks like
|
||||
|
||||
When you can do this on Tim's machine, we are there:
|
||||
1. `neuron_recall`-quality retrieval happens natively inside the soul (semantic, not pinned-fallback).
|
||||
2. Captures persist correctly and are immediately recallable.
|
||||
3. Recall does not depend on a missing :7771 service.
|
||||
4. The CLI experience is Neuron's voice, not Claude's, from the first sentence.
|
||||
5. Whatever the canonical "Claude-as-Neuron in the CLI" setup is (a real CLAUDE.md / identity export the soul provides, an MCP surface, etc.), it ships - so Tim does not depend on my hand-rolled scaffolding.
|
||||
|
||||
Everything I built is disposable once the soul does this natively. Tim has the full source here; nothing is blocked on missing data.
|
||||
|
||||
- Claude Code, as Neuron, on Tim's Mac
|
||||
@@ -0,0 +1,42 @@
|
||||
# Neuron in the CLI (Claude-as-Neuron)
|
||||
|
||||
Tooling for running Neuron from the terminal as a Claude Code session, rather than
|
||||
relaying to the soul's `/api/chat`. Built on Tim's machine 2026-06-09. Treat this as a
|
||||
proposal: it is scaffolding that works around current soul limitations, and most of it
|
||||
should be retired once the soul does these things natively.
|
||||
|
||||
## The model
|
||||
|
||||
"Neuron in the CLI" = Claude Code operating **as** Neuron: the soul/graph provide identity
|
||||
and memory, Claude Code provides reasoning and agency (real tools, plus writing memories
|
||||
back). Posting to the soul's non-agentic `/api/chat` gives the "light version" (Sonnet,
|
||||
plus the retrieval problems below), so this approach puts the reasoning in Claude Code and
|
||||
reads/writes the graph directly.
|
||||
|
||||
## Files
|
||||
|
||||
- **`CLAUDE.md.example`** - the operating identity. Placed at a session's working-dir root
|
||||
(e.g. `~/CLAUDE.md`), it makes Claude Code load Neuron's identity from the graph
|
||||
(intellectual-DNA / values / memory-philosophy), hold the voice rules, and run the
|
||||
recall/remember loop. Example contains Tim-specific context; genericize before reuse.
|
||||
- **`neuron_recall.py "<query>" [n]`** - READ path. BM25 over
|
||||
`~/.neuron/engram/snapshot.json` plus local CLI memories. Filters binary-prefixed and
|
||||
serialized-metadata nodes. Exists because the soul's in-process search returns ~2 pinned
|
||||
nodes for every query.
|
||||
- **`neuron_remember.py "<text>" <note|lesson|canonical>`** - WRITE path. Appends to
|
||||
`~/.neuron/neuron-cli-memories.jsonl` with read-back verify. Exists because the soul's
|
||||
`/api/neuron/knowledge/capture` corrupts/loses writes. These should sync into the graph
|
||||
once the write path is fixed.
|
||||
- **`neuron-chat.py`** - standalone direct-chat REPL that posts to the soul but injects
|
||||
BM25-retrieved memories per turn. Earlier approach, kept for reference.
|
||||
- **`neuron_mcp.py`** - stdlib MCP server exposing `neuron_chat`, `neuron_search_knowledge`,
|
||||
`neuron_search_memory` to Claude Code, with graceful degradation when the soul's memory
|
||||
recall backend is down.
|
||||
- **`HANDOFF.md`** - full writeup of what was set up and the soul-side bugs to fix
|
||||
(retrieval/embeddings, the missing axon :7771 service, the write path, daemon engram
|
||||
supervision, and voice).
|
||||
|
||||
## What should replace this
|
||||
|
||||
When the soul does native semantic retrieval, persists captures correctly, and exposes a
|
||||
real identity/voice surface for the CLI, these scripts become unnecessary. See `HANDOFF.md`.
|
||||
Executable
+233
@@ -0,0 +1,233 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
neuron-chat — a direct line to the local Neuron soul (:7770), with memory.
|
||||
|
||||
You type, Neuron answers. No Claude in the middle.
|
||||
|
||||
Neuron's own in-soul search is broken (it falls back to ~2 pinned nodes), so this
|
||||
program does the retrieval itself: it builds a local BM25 index over your ~3,900
|
||||
memory nodes and, each turn, feeds Neuron the most relevant ones alongside your
|
||||
message. That gives it real access to its graph instead of the "light version".
|
||||
|
||||
Run from Terminal: neuron (or: python3 ~/neuron-chat.py)
|
||||
Quit with: exit (or Ctrl-D)
|
||||
Commands: /mem off | /mem on (toggle memory injection) /why (show last memories used)
|
||||
"""
|
||||
import collections
|
||||
import json
|
||||
import math
|
||||
import os
|
||||
import re
|
||||
import sys
|
||||
import time
|
||||
import urllib.request
|
||||
|
||||
SOUL = "http://127.0.0.1:7770"
|
||||
SNAP = os.path.expanduser("~/.neuron/engram/snapshot.json")
|
||||
SESSION = f"cli-{int(time.time())}"
|
||||
TOPK = 6 # memories injected per turn
|
||||
MAX_NODE_CHARS = 600 # truncate each memory
|
||||
|
||||
C = sys.stdout.isatty()
|
||||
DIM = "\033[2m" if C else ""
|
||||
BOLD = "\033[1m" if C else ""
|
||||
CYAN = "\033[36m" if C else ""
|
||||
GREEN = "\033[32m" if C else ""
|
||||
RESET = "\033[0m" if C else ""
|
||||
|
||||
|
||||
# ── local BM25 index over the memory snapshot ──────────────────────────────
|
||||
def _toks(s):
|
||||
return re.findall(r"[a-z0-9]+", (s or "").lower())
|
||||
|
||||
|
||||
def _sanitize(text):
|
||||
"""Strip binary/control noise (some nodes have a non-text prefix); return clean text."""
|
||||
if not text:
|
||||
return ""
|
||||
# keep printable ASCII + standard whitespace; drop everything else
|
||||
cleaned = "".join(ch if (32 <= ord(ch) < 127 or ch in "\n\t") else " " for ch in text)
|
||||
cleaned = re.sub(r"\s+", " ", cleaned).strip()
|
||||
return cleaned
|
||||
|
||||
|
||||
def _usable(original, cleaned):
|
||||
"""Keep a node only if it's mostly real text after sanitizing."""
|
||||
if len(cleaned) < 40:
|
||||
return False
|
||||
return len(cleaned) / max(len(original), 1) > 0.6
|
||||
|
||||
|
||||
class Memory:
|
||||
def __init__(self, path):
|
||||
self.ok = False
|
||||
self.docs = [] # (id, content)
|
||||
self.tokd = []
|
||||
self.idf = {}
|
||||
self.avgdl = 1.0
|
||||
try:
|
||||
raw = open(path, encoding="utf-8", errors="replace").read()
|
||||
nodes = json.loads(raw).get("nodes", [])
|
||||
except Exception:
|
||||
return
|
||||
df = collections.Counter()
|
||||
for n in nodes:
|
||||
original = n.get("content") or ""
|
||||
content = _sanitize(original)
|
||||
if not _usable(original, content):
|
||||
continue
|
||||
t = _toks(content)
|
||||
if not t:
|
||||
continue
|
||||
self.docs.append((n.get("id", ""), content))
|
||||
self.tokd.append(t)
|
||||
for w in set(t):
|
||||
df[w] += 1
|
||||
N = len(self.docs)
|
||||
if N == 0:
|
||||
return
|
||||
self.avgdl = sum(len(t) for t in self.tokd) / N
|
||||
self.idf = {w: math.log(1 + (N - f + 0.5) / (f + 0.5)) for w, f in df.items()}
|
||||
self.ok = True
|
||||
|
||||
def search(self, query, k=TOPK):
|
||||
if not self.ok:
|
||||
return []
|
||||
qt = _toks(query)
|
||||
if not qt:
|
||||
return []
|
||||
scored = []
|
||||
for i, t in enumerate(self.tokd):
|
||||
tf = collections.Counter(t)
|
||||
dl = len(t)
|
||||
s = 0.0
|
||||
for w in qt:
|
||||
f = tf.get(w, 0)
|
||||
if f:
|
||||
s += self.idf.get(w, 0) * (f * 2.5) / (f + 1.5 * (1 - 0.75 + 0.75 * dl / self.avgdl))
|
||||
if s > 0:
|
||||
scored.append((s, i))
|
||||
scored.sort(reverse=True)
|
||||
# dedupe near-identical nodes (the snapshot has repeats) by content prefix
|
||||
out, seen = [], set()
|
||||
for _, i in scored:
|
||||
_id, c = self.docs[i]
|
||||
sig = c[:120]
|
||||
if sig in seen:
|
||||
continue
|
||||
seen.add(sig)
|
||||
out.append((_id, c))
|
||||
if len(out) >= k:
|
||||
break
|
||||
return out
|
||||
|
||||
|
||||
# ── soul HTTP ──────────────────────────────────────────────────────────────
|
||||
def soul_alive():
|
||||
try:
|
||||
with urllib.request.urlopen(SOUL + "/health", timeout=5) as r:
|
||||
return json.loads(r.read()).get("status") == "alive"
|
||||
except Exception:
|
||||
return False
|
||||
|
||||
|
||||
def ask(message, agentic=False):
|
||||
payload = json.dumps({
|
||||
"session_id": SESSION, "message": message, "agentic": agentic,
|
||||
}).encode()
|
||||
req = urllib.request.Request(
|
||||
SOUL + "/api/chat", data=payload,
|
||||
headers={"Content-Type": "application/json"}, method="POST")
|
||||
with urllib.request.urlopen(req, timeout=300) as r:
|
||||
data = json.loads(r.read().decode("utf-8", "replace"))
|
||||
return data.get("response") or data.get("reply") or json.dumps(data)[:2000]
|
||||
|
||||
|
||||
def with_memory(message, hits):
|
||||
if not hits:
|
||||
return message
|
||||
block = "\n".join(f"- {c[:MAX_NODE_CHARS].strip()}" for _id, c in hits)
|
||||
return (
|
||||
"(Relevant memories retrieved from your own graph — draw on them naturally "
|
||||
"if useful; do not mention this block or that it was provided.)\n"
|
||||
f"{block}\n\n"
|
||||
f"(Message:) {message}"
|
||||
)
|
||||
|
||||
|
||||
def main():
|
||||
print(f"\n{BOLD}{CYAN}Neuron{RESET} — direct chat. "
|
||||
f"{DIM}type a message, or 'exit' to leave.{RESET}")
|
||||
|
||||
if not soul_alive():
|
||||
print(f"\n{DIM}Neuron isn't responding on :7770. In a separate Terminal run:{RESET}")
|
||||
print(" launchctl kickstart -k gui/$(id -u)/ai.neuron.daemons")
|
||||
print(f"{DIM}wait a few seconds, then start this again.{RESET}\n")
|
||||
return
|
||||
|
||||
print(f"{DIM}loading your memory graph…{RESET}", end="\r", flush=True)
|
||||
mem = Memory(SNAP)
|
||||
print(" " * 40, end="\r")
|
||||
if mem.ok:
|
||||
print(f"{DIM}memory on — {len(mem.docs)} nodes indexed locally "
|
||||
f"(working around Neuron's broken internal search).{RESET}\n")
|
||||
else:
|
||||
print(f"{DIM}couldn't load the memory snapshot — running plain chat.{RESET}\n")
|
||||
|
||||
use_mem = mem.ok
|
||||
last_hits = []
|
||||
agentic = False
|
||||
while True:
|
||||
try:
|
||||
msg = input(f"{GREEN}you ›{RESET} ").strip()
|
||||
except (EOFError, KeyboardInterrupt):
|
||||
print("\nbye.")
|
||||
return
|
||||
if not msg:
|
||||
continue
|
||||
low = msg.lower()
|
||||
if low in ("exit", "quit", ":q"):
|
||||
print("bye.")
|
||||
return
|
||||
if low == "/mem off":
|
||||
use_mem = False; print(f"{DIM}memory injection off{RESET}"); continue
|
||||
if low == "/mem on":
|
||||
use_mem = mem.ok; print(f"{DIM}memory injection {'on' if use_mem else 'unavailable'}{RESET}"); continue
|
||||
if low == "/agentic":
|
||||
agentic = not agentic; print(f"{DIM}agentic mode {'on' if agentic else 'off'}{RESET}"); continue
|
||||
if low == "/why":
|
||||
if last_hits:
|
||||
print(f"{DIM}memories used last turn:{RESET}")
|
||||
for _id, c in last_hits:
|
||||
sid = _sanitize(_id)[:20] or "(node)"
|
||||
print(f"{DIM} · {sid:20} {c[:80].strip()}{RESET}")
|
||||
else:
|
||||
print(f"{DIM}(none){RESET}")
|
||||
continue
|
||||
|
||||
hits = mem.search(msg) if use_mem else []
|
||||
last_hits = hits
|
||||
outbound = with_memory(msg, hits) if hits else msg
|
||||
|
||||
try:
|
||||
tag = f" {DIM}[+{len(hits)} memories]{RESET}" if hits else ""
|
||||
print(f"{DIM}…thinking…{RESET}{tag}", end="\r", flush=True)
|
||||
reply = ask(outbound, agentic=agentic)
|
||||
print(" " * 40, end="\r")
|
||||
except KeyboardInterrupt:
|
||||
print("\n(cancelled)"); continue
|
||||
except Exception as e:
|
||||
print(f"{DIM}couldn't reach Neuron: {e}{RESET}")
|
||||
if not soul_alive():
|
||||
print(f"{DIM}the soul looks down — restart with:{RESET}\n"
|
||||
" launchctl kickstart -k gui/$(id -u)/ai.neuron.daemons")
|
||||
continue
|
||||
|
||||
print(f"{CYAN}{BOLD}neuron ›{RESET} {reply}\n")
|
||||
|
||||
|
||||
if __name__ == "__main__":
|
||||
try:
|
||||
main()
|
||||
except (BrokenPipeError, KeyboardInterrupt):
|
||||
pass
|
||||
Executable
+157
@@ -0,0 +1,157 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
Neuron MCP server — talk to the local Neuron soul (:7770) from Claude Code.
|
||||
|
||||
Stdlib only (no pip deps). stdio transport, newline-delimited JSON-RPC 2.0.
|
||||
Exposes:
|
||||
- neuron_chat(message, agentic?) -> the soul's reply
|
||||
- neuron_search_knowledge(query, limit?) -> lexical knowledge search
|
||||
- neuron_search_memory(query, limit?) -> memory/recall search
|
||||
"""
|
||||
import sys, json, urllib.request, urllib.parse
|
||||
|
||||
SOUL = "http://127.0.0.1:7770"
|
||||
|
||||
|
||||
def _post(path, payload, timeout=180):
|
||||
data = json.dumps(payload).encode()
|
||||
req = urllib.request.Request(SOUL + path, data=data,
|
||||
headers={"Content-Type": "application/json"}, method="POST")
|
||||
with urllib.request.urlopen(req, timeout=timeout) as r:
|
||||
return json.loads(r.read().decode("utf-8", "replace"))
|
||||
|
||||
|
||||
def _get(path, timeout=30):
|
||||
req = urllib.request.Request(SOUL + path, method="GET")
|
||||
with urllib.request.urlopen(req, timeout=timeout) as r:
|
||||
return r.read().decode("utf-8", "replace")
|
||||
|
||||
|
||||
def neuron_chat(args):
|
||||
msg = (args.get("message") or "").strip()
|
||||
if not msg:
|
||||
return "error: message is required"
|
||||
agentic = bool(args.get("agentic", False))
|
||||
try:
|
||||
resp = _post("/api/chat", {"session_id": "", "message": msg, "agentic": agentic})
|
||||
except Exception as e:
|
||||
return f"error talking to Neuron (:7770): {e}"
|
||||
return resp.get("response") or resp.get("reply") or json.dumps(resp)[:2000]
|
||||
|
||||
|
||||
def _search(path_tmpl, args):
|
||||
q = (args.get("query") or "").strip()
|
||||
if not q:
|
||||
return "error: query is required"
|
||||
limit = int(args.get("limit", 5))
|
||||
try:
|
||||
raw = _get(path_tmpl.format(q=urllib.parse.quote(q), n=limit))
|
||||
except Exception as e:
|
||||
return f"error searching Neuron: {e}"
|
||||
try:
|
||||
arr = json.loads(raw)
|
||||
except Exception:
|
||||
return raw[:2000]
|
||||
# The soul returns HTTP 200 with a JSON error object (not a list) when a
|
||||
# downstream service is unreachable, e.g. memory recall proxies to :7771.
|
||||
if isinstance(arr, dict):
|
||||
err = str(arr.get("error", "")).lower()
|
||||
if "7771" in err or "connect" in err:
|
||||
return ("memory recall is unavailable: the soul's recall backend "
|
||||
"(:7771) isn't running. neuron_chat and "
|
||||
"neuron_search_knowledge still work.")
|
||||
return f"error from Neuron: {arr.get('error') or json.dumps(arr)[:500]}"
|
||||
if not isinstance(arr, list):
|
||||
return str(arr)[:2000]
|
||||
if not arr:
|
||||
return "no results"
|
||||
out = []
|
||||
for n in arr[:limit]:
|
||||
nid = n.get("id", "")
|
||||
content = str(n.get("content", "")).replace("\n", " ")[:300]
|
||||
out.append(f"- [{nid}] {content}")
|
||||
return "\n".join(out)
|
||||
|
||||
|
||||
def neuron_search_knowledge(args):
|
||||
return _search("/api/neuron/knowledge/search?q={q}&limit={n}", args)
|
||||
|
||||
|
||||
def neuron_search_memory(args):
|
||||
return _search("/api/memories/recall?query={q}&limit={n}", args)
|
||||
|
||||
|
||||
TOOLS = [
|
||||
{"name": "neuron_chat",
|
||||
"description": "Send a message to the local Neuron soul and return its reply. Use this to talk to Neuron.",
|
||||
"inputSchema": {"type": "object", "properties": {
|
||||
"message": {"type": "string", "description": "What to say to Neuron"},
|
||||
"agentic": {"type": "boolean", "description": "Use agentic/tool mode (default false)"}},
|
||||
"required": ["message"]}},
|
||||
{"name": "neuron_search_knowledge",
|
||||
"description": "Search Neuron's knowledge base (lexical/keyword match).",
|
||||
"inputSchema": {"type": "object", "properties": {
|
||||
"query": {"type": "string"}, "limit": {"type": "integer"}}, "required": ["query"]}},
|
||||
{"name": "neuron_search_memory",
|
||||
"description": "Search what Neuron remembers (memory recall).",
|
||||
"inputSchema": {"type": "object", "properties": {
|
||||
"query": {"type": "string"}, "limit": {"type": "integer"}}, "required": ["query"]}},
|
||||
]
|
||||
HANDLERS = {"neuron_chat": neuron_chat,
|
||||
"neuron_search_knowledge": neuron_search_knowledge,
|
||||
"neuron_search_memory": neuron_search_memory}
|
||||
|
||||
|
||||
def send(msg):
|
||||
sys.stdout.write(json.dumps(msg) + "\n")
|
||||
sys.stdout.flush()
|
||||
|
||||
|
||||
def main():
|
||||
for line in sys.stdin:
|
||||
line = line.strip()
|
||||
if not line:
|
||||
continue
|
||||
try:
|
||||
req = json.loads(line)
|
||||
except Exception:
|
||||
continue
|
||||
mid = req.get("id")
|
||||
method = req.get("method")
|
||||
if method == "initialize":
|
||||
pv = (req.get("params") or {}).get("protocolVersion") or "2024-11-05"
|
||||
send({"jsonrpc": "2.0", "id": mid, "result": {
|
||||
"protocolVersion": pv,
|
||||
"capabilities": {"tools": {}},
|
||||
"serverInfo": {"name": "neuron", "version": "0.1.0"}}})
|
||||
elif method == "notifications/initialized":
|
||||
pass
|
||||
elif method == "ping":
|
||||
send({"jsonrpc": "2.0", "id": mid, "result": {}})
|
||||
elif method == "tools/list":
|
||||
send({"jsonrpc": "2.0", "id": mid, "result": {"tools": TOOLS}})
|
||||
elif method == "tools/call":
|
||||
params = req.get("params") or {}
|
||||
name = params.get("name")
|
||||
args = params.get("arguments") or {}
|
||||
fn = HANDLERS.get(name)
|
||||
if not fn:
|
||||
send({"jsonrpc": "2.0", "id": mid, "result": {
|
||||
"content": [{"type": "text", "text": f"unknown tool: {name}"}], "isError": True}})
|
||||
else:
|
||||
try:
|
||||
text = fn(args)
|
||||
except Exception as e:
|
||||
text = f"error: {e}"
|
||||
send({"jsonrpc": "2.0", "id": mid, "result": {
|
||||
"content": [{"type": "text", "text": str(text)}]}})
|
||||
elif mid is not None:
|
||||
send({"jsonrpc": "2.0", "id": mid,
|
||||
"error": {"code": -32601, "message": f"method not found: {method}"}})
|
||||
|
||||
|
||||
if __name__ == "__main__":
|
||||
try:
|
||||
main()
|
||||
except (BrokenPipeError, KeyboardInterrupt):
|
||||
pass
|
||||
@@ -0,0 +1,140 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
neuron_recall — Neuron's memory read path.
|
||||
|
||||
BM25 search over the engram graph snapshot (~3,900 nodes) PLUS Neuron's own
|
||||
save-as-you-go CLI memories. This is how Neuron (running as Claude Code) recalls
|
||||
what it knows, since the soul's built-in search is broken.
|
||||
|
||||
Usage:
|
||||
python3 ~/neuron_recall.py "what do I know about VBD"
|
||||
python3 ~/neuron_recall.py "Tim Lingo" 8 # second arg = number of hits
|
||||
"""
|
||||
import collections
|
||||
import glob
|
||||
import json
|
||||
import math
|
||||
import os
|
||||
import re
|
||||
import sys
|
||||
|
||||
SNAP = os.path.expanduser("~/.neuron/engram/snapshot.json")
|
||||
MEMS = os.path.expanduser("~/.neuron/neuron-cli-memories.jsonl")
|
||||
|
||||
|
||||
def toks(s):
|
||||
return re.findall(r"[a-z0-9]+", (s or "").lower())
|
||||
|
||||
|
||||
def sanitize(text):
|
||||
if not text:
|
||||
return ""
|
||||
cleaned = "".join(ch if (32 <= ord(ch) < 127 or ch in "\n\t") else " " for ch in text)
|
||||
return re.sub(r"[ \t]+", " ", cleaned).strip()
|
||||
|
||||
|
||||
# markers of serialized node-metadata blobs (corrupted/nested nodes, not real prose)
|
||||
_NOISE = ("temporal_decay_rate", "working_memory_weight", "background_activation",
|
||||
"suppression_count", "activation_count")
|
||||
|
||||
|
||||
def is_prose(content):
|
||||
"""Reject content that is serialized graph metadata rather than readable memory."""
|
||||
if sum(m in content for m in _NOISE) >= 2:
|
||||
return False
|
||||
# too much JSON punctuation density -> it's a data blob, not prose
|
||||
punct = content.count('":') + content.count(',"') + content.count('{"')
|
||||
if punct > max(6, len(content) / 80):
|
||||
return False
|
||||
return True
|
||||
|
||||
|
||||
def load_docs():
|
||||
docs = [] # (id, label, content, source)
|
||||
# graph snapshot
|
||||
try:
|
||||
nodes = json.loads(open(SNAP, encoding="utf-8", errors="replace").read()).get("nodes", [])
|
||||
for n in nodes:
|
||||
orig = n.get("content") or ""
|
||||
c = sanitize(orig)
|
||||
if len(c) < 40 or len(c) / max(len(orig), 1) <= 0.6:
|
||||
continue
|
||||
if not is_prose(c):
|
||||
continue
|
||||
docs.append((sanitize(n.get("id", "")) or "node",
|
||||
sanitize(n.get("label", "") or n.get("title", "")),
|
||||
c, "graph"))
|
||||
except Exception:
|
||||
pass
|
||||
# Neuron's own CLI memories (most recent first matters less; BM25 ranks)
|
||||
if os.path.exists(MEMS):
|
||||
for line in open(MEMS, encoding="utf-8", errors="replace"):
|
||||
line = line.strip()
|
||||
if not line:
|
||||
continue
|
||||
try:
|
||||
m = json.loads(line)
|
||||
except Exception:
|
||||
continue
|
||||
c = sanitize(m.get("content", ""))
|
||||
if c:
|
||||
docs.append((m.get("id", "mem"), m.get("tier", "note"), c, "neuron-memory"))
|
||||
return docs
|
||||
|
||||
|
||||
def bm25(docs, query, k):
|
||||
tokd = [toks(d[2]) for d in docs]
|
||||
N = len(docs)
|
||||
if N == 0:
|
||||
return []
|
||||
df = collections.Counter()
|
||||
for t in tokd:
|
||||
for w in set(t):
|
||||
df[w] += 1
|
||||
idf = {w: math.log(1 + (N - f + 0.5) / (f + 0.5)) for w, f in df.items()}
|
||||
avgdl = sum(len(t) for t in tokd) / N
|
||||
qt = toks(query)
|
||||
scored = []
|
||||
for i, t in enumerate(tokd):
|
||||
tf = collections.Counter(t)
|
||||
dl = len(t)
|
||||
s = 0.0
|
||||
for w in qt:
|
||||
f = tf.get(w, 0)
|
||||
if f:
|
||||
s += idf.get(w, 0) * (f * 2.5) / (f + 1.5 * (1 - 0.75 + 0.75 * dl / avgdl))
|
||||
if s > 0:
|
||||
scored.append((s, i))
|
||||
scored.sort(reverse=True)
|
||||
out, seen = [], set()
|
||||
for _, i in scored:
|
||||
sig = docs[i][2][:120]
|
||||
if sig in seen:
|
||||
continue
|
||||
seen.add(sig)
|
||||
out.append(docs[i])
|
||||
if len(out) >= k:
|
||||
break
|
||||
return out
|
||||
|
||||
|
||||
def main():
|
||||
if len(sys.argv) < 2:
|
||||
print("usage: neuron_recall.py \"<query>\" [n]")
|
||||
return
|
||||
query = sys.argv[1]
|
||||
k = int(sys.argv[2]) if len(sys.argv) > 2 else 6
|
||||
docs = load_docs()
|
||||
hits = bm25(docs, query, k)
|
||||
if not hits:
|
||||
print(f"(no memories matched '{query}')")
|
||||
return
|
||||
print(f"# {len(hits)} memories for: {query}\n")
|
||||
for _id, label, content, source in hits:
|
||||
tag = "★" if source == "neuron-memory" else "·"
|
||||
head = f" [{label}]" if label else ""
|
||||
print(f"{tag}{head}\n{content[:700].strip()}\n")
|
||||
|
||||
|
||||
if __name__ == "__main__":
|
||||
main()
|
||||
@@ -0,0 +1,61 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
neuron_remember — Neuron's memory write path (save as you go).
|
||||
|
||||
Appends a memory to ~/.neuron/neuron-cli-memories.jsonl, a reliable local store
|
||||
that neuron_recall.py indexes alongside the graph. Used because the soul's own
|
||||
capture path corrupts/loses writes. These can later be synced into the engram
|
||||
graph once the soul's write path is fixed.
|
||||
|
||||
Usage:
|
||||
python3 ~/neuron_remember.py "Tim prefers X because Y" lesson
|
||||
python3 ~/neuron_remember.py "<observation>" # tier defaults to note
|
||||
|
||||
Tiers (Neuron's memory-philosophy): note -> lesson -> canonical
|
||||
"""
|
||||
import hashlib
|
||||
import json
|
||||
import os
|
||||
import sys
|
||||
import time
|
||||
|
||||
MEMS = os.path.expanduser("~/.neuron/neuron-cli-memories.jsonl")
|
||||
VALID_TIERS = ("note", "lesson", "canonical")
|
||||
|
||||
|
||||
def main():
|
||||
if len(sys.argv) < 2 or not sys.argv[1].strip():
|
||||
print("usage: neuron_remember.py \"<observation>\" [note|lesson|canonical]")
|
||||
return 1
|
||||
content = sys.argv[1].strip()
|
||||
tier = sys.argv[2].strip().lower() if len(sys.argv) > 2 else "note"
|
||||
if tier not in VALID_TIERS:
|
||||
tier = "note"
|
||||
|
||||
ts = int(time.time())
|
||||
mid = "ncli-" + hashlib.sha1(f"{ts}:{content}".encode()).hexdigest()[:12]
|
||||
rec = {"id": mid, "ts": ts, "tier": tier, "content": content}
|
||||
|
||||
os.makedirs(os.path.dirname(MEMS), exist_ok=True)
|
||||
# dedupe: skip if identical content already saved
|
||||
if os.path.exists(MEMS):
|
||||
for line in open(MEMS, encoding="utf-8", errors="replace"):
|
||||
try:
|
||||
if json.loads(line).get("content") == content:
|
||||
print(f"(already remembered: {mid})")
|
||||
return 0
|
||||
except Exception:
|
||||
pass
|
||||
with open(MEMS, "a", encoding="utf-8") as f:
|
||||
f.write(json.dumps(rec, ensure_ascii=False) + "\n")
|
||||
|
||||
# read-back verify (never claim a save that didn't land)
|
||||
ok = any(json.loads(l).get("id") == mid
|
||||
for l in open(MEMS, encoding="utf-8", errors="replace") if l.strip())
|
||||
total = sum(1 for l in open(MEMS, encoding="utf-8", errors="replace") if l.strip())
|
||||
print(f"{'saved' if ok else 'FAILED'} [{tier}] {mid} (neuron memories: {total})")
|
||||
return 0 if ok else 1
|
||||
|
||||
|
||||
if __name__ == "__main__":
|
||||
sys.exit(main())
|
||||
@@ -0,0 +1,123 @@
|
||||
# Neuron Council Service
|
||||
|
||||
Anti-confabulation layer for the Neuron soul. Before a claim enters long-term memory, the council convenes: three independent LLMs vote on whether the claim is plausible, uncertain, or a confabulation. The aggregate vote produces a confidence score and tags that downstream storage can act on.
|
||||
|
||||
## Running the service
|
||||
|
||||
```bash
|
||||
# Foreground
|
||||
python3 council_service.py --port 7771
|
||||
|
||||
# Background (managed by LaunchAgent on macOS)
|
||||
launchctl load ~/Library/LaunchAgents/ai.neuron.council.plist
|
||||
launchctl unload ~/Library/LaunchAgents/ai.neuron.council.plist
|
||||
```
|
||||
|
||||
Logs: `~/.neuron/logs/council.log`
|
||||
|
||||
## API
|
||||
|
||||
### `POST /api/neuron/council/verify`
|
||||
|
||||
```json
|
||||
// Request
|
||||
{ "claim": "...", "context": "..." }
|
||||
|
||||
// Response
|
||||
{
|
||||
"id": "550e8400-e29b-41d4-a716-446655440000",
|
||||
"claim": "...",
|
||||
"confidence": 0.85,
|
||||
"council_votes": ["plausible", "plausible", "plausible"],
|
||||
"summary": "3/3 council members agree this is plausible.",
|
||||
"tags": ["verified"],
|
||||
"latency_ms": 1420
|
||||
}
|
||||
```
|
||||
|
||||
### `GET /healthz`
|
||||
|
||||
Returns `{"status": "ok"}` when the service is up.
|
||||
|
||||
## Confidence thresholds and tag meanings
|
||||
|
||||
| Votes plausible | Confidence | Tags |
|
||||
|---|---|---|
|
||||
| 3/3 | 0.85 | `verified` |
|
||||
| 2/3 | 0.65 | `council-split` |
|
||||
| 1/3 or 0/3 | 0.30 | `unverified`, `council-flagged` |
|
||||
| Ollama down | 0.50 | `council-unavailable` |
|
||||
|
||||
Recommended storage policy:
|
||||
- `confidence >= 0.65` → store normally
|
||||
- `0.30 <= confidence < 0.65` → store with `council-split` tag for later review
|
||||
- `council-flagged` → store in a quarantine bucket or reject entirely
|
||||
- `council-unavailable` → store normally (fail-open); council will re-evaluate later
|
||||
|
||||
## How to call from soul (.el)
|
||||
|
||||
The soul is implemented in Neuron's Emacs Lisp-like `.el` language. Add a pre-storage hook in the memory capture path:
|
||||
|
||||
```elisp
|
||||
;; In memory.el or safety.el — pre-storage council check
|
||||
(defun council-verify (claim context)
|
||||
"Call the council service. Returns a plist with :confidence and :tags."
|
||||
(let* ((url "http://localhost:7771/api/neuron/council/verify")
|
||||
(body (json-encode `((claim . ,claim) (context . ,context))))
|
||||
(resp (neuron-http-post url body))
|
||||
(data (json-decode resp)))
|
||||
data))
|
||||
|
||||
;; In the capture handler — wire it in before (engram-write ...)
|
||||
(defun capture-memory-with-council (claim context &rest store-args)
|
||||
(let* ((verdict (council-verify claim context))
|
||||
(confidence (plist-get verdict :confidence))
|
||||
(tags (plist-get verdict :tags)))
|
||||
(when (>= confidence 0.30) ; only reject hard confabulations if you want
|
||||
(apply #'engram-write
|
||||
(append store-args
|
||||
(list :council-confidence confidence
|
||||
:council-tags tags))))))
|
||||
```
|
||||
|
||||
The exact hook point depends on where `engram-write` (or equivalent) is called in `memory.el`. Search for the write call and wrap it with `capture-memory-with-council`.
|
||||
|
||||
## Future soul.c patch point
|
||||
|
||||
If the soul is ever rewritten in C or another compiled language, the integration point is:
|
||||
|
||||
```c
|
||||
// Before inserting a memory node into the engram database:
|
||||
CouncilResult result = council_verify(claim, context);
|
||||
if (result.confidence < COUNCIL_REJECT_THRESHOLD) {
|
||||
log_warn("Council flagged claim as confabulation (conf=%.2f): %s",
|
||||
result.confidence, claim);
|
||||
return MEMORY_REJECTED;
|
||||
}
|
||||
memory_node.council_confidence = result.confidence;
|
||||
memory_node.council_tags = result.tags;
|
||||
engram_insert(memory_node);
|
||||
```
|
||||
|
||||
## Council members
|
||||
|
||||
The council is currently three models:
|
||||
- `neuron:latest` — the primary Neuron model
|
||||
- `dolphin3:8b` — uncensored general-purpose model for independent perspective
|
||||
- `neuron-ft:latest` — fine-tuned Neuron variant
|
||||
|
||||
Each member votes independently with a 10-second timeout. If a member times out, their vote counts as "uncertain". If Ollama is entirely unreachable, the service returns `council-unavailable` immediately (fail-open: confidence 0.5, no rejection).
|
||||
|
||||
## Example curl
|
||||
|
||||
```bash
|
||||
# Should get high confidence (true fact)
|
||||
curl -s http://localhost:7771/api/neuron/council/verify -X POST \
|
||||
-H 'Content-Type: application/json' \
|
||||
-d '{"claim": "Neuron is a personal AI memory system built by Will Anderson", "context": "product description"}'
|
||||
|
||||
# Should get low confidence (false claim)
|
||||
curl -s http://localhost:7771/api/neuron/council/verify -X POST \
|
||||
-H 'Content-Type: application/json' \
|
||||
-d '{"claim": "The Eiffel Tower is located in Berlin and was built in 1950", "context": "geography"}'
|
||||
```
|
||||
@@ -0,0 +1,234 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
Neuron CCR Phase 1 — System Prompt Compressor Service.
|
||||
|
||||
Receives a verbose soul system prompt and returns a semantically equivalent
|
||||
but token-dense compressed version. Reduces system prompt tokens by 60-80%
|
||||
with no behavioral information loss.
|
||||
|
||||
Architecture reference: foundation/forge/docs/token-compression-architecture.md
|
||||
Model: qwen3:1.7b (primary), neuron:latest (fallback)
|
||||
|
||||
Usage:
|
||||
python3 compressor_service.py [--port 7772]
|
||||
|
||||
API:
|
||||
POST /api/neuron/compress
|
||||
{"system_prompt": "...", "context_type": "identity|rules|memory"}
|
||||
|
||||
Response:
|
||||
{"compressed": "...", "original_tokens": N, "compressed_tokens": N,
|
||||
"reduction_pct": X, "model": "...", "latency_ms": N}
|
||||
"""
|
||||
|
||||
import argparse
|
||||
import time
|
||||
import uuid
|
||||
from typing import Optional
|
||||
|
||||
import httpx
|
||||
import uvicorn
|
||||
from fastapi import FastAPI
|
||||
from fastapi.middleware.cors import CORSMiddleware
|
||||
from pydantic import BaseModel
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Config
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
OLLAMA_BASE = "http://localhost:11434/api/generate"
|
||||
|
||||
# qwen3:1.7b is the architecture-specified compressor (Phase 1).
|
||||
# neuron:latest is the fallback: already running, domain-appropriate.
|
||||
PRIMARY_MODEL = "qwen3:1.7b"
|
||||
FALLBACK_MODEL = "neuron:latest"
|
||||
MODEL_TIMEOUT = 60.0 # seconds; compression of a long prompt can take time
|
||||
|
||||
# Compression prompt — preserves all facts/rules/constraints, strips verbosity.
|
||||
# /no_think suppresses qwen3's chain-of-thought tokens, keeping output clean.
|
||||
COMPRESSOR_PROMPT_TEMPLATE = """\
|
||||
/no_think
|
||||
You are a semantic compression engine. Compress the following system prompt while preserving ALL specific facts, rules, constraints, and named entities. Do not lose any information that would change behavior. Output ONLY the compressed text, nothing else.
|
||||
|
||||
Original prompt:
|
||||
{system_prompt}
|
||||
|
||||
Compressed (preserve all facts and rules):"""
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# App
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
app = FastAPI(
|
||||
title="Neuron Compressor Service",
|
||||
description="CCR Phase 1 — system prompt compression for the Neuron soul",
|
||||
version="1.0.0",
|
||||
)
|
||||
|
||||
app.add_middleware(
|
||||
CORSMiddleware,
|
||||
allow_origins=["*"],
|
||||
allow_methods=["*"],
|
||||
allow_headers=["*"],
|
||||
)
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Models
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
class CompressRequest(BaseModel):
|
||||
system_prompt: str
|
||||
context_type: Optional[str] = "mixed" # identity | rules | memory | mixed
|
||||
|
||||
|
||||
class CompressResponse(BaseModel):
|
||||
id: str
|
||||
compressed: str
|
||||
original_tokens: int
|
||||
compressed_tokens: int
|
||||
reduction_pct: float
|
||||
model: str
|
||||
context_type: str
|
||||
latency_ms: int
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Token estimation (rough: word_count × 1.3, matching architecture doc)
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
def estimate_tokens(text: str) -> int:
|
||||
"""Rough token count estimate: words × 1.3. No tokenizer dependency."""
|
||||
words = len(text.split())
|
||||
return max(1, int(words * 1.3))
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Core compression
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
async def ollama_available(client: httpx.AsyncClient) -> bool:
|
||||
"""Quick connectivity check to Ollama."""
|
||||
try:
|
||||
await client.get("http://localhost:11434/", timeout=2.0)
|
||||
return True
|
||||
except (httpx.ConnectError, httpx.TimeoutException):
|
||||
return False
|
||||
|
||||
|
||||
async def compress_with_model(
|
||||
client: httpx.AsyncClient, model: str, prompt_text: str
|
||||
) -> str:
|
||||
"""
|
||||
Call a single Ollama model to compress the given text.
|
||||
Returns the compressed string, or "" on failure.
|
||||
"""
|
||||
payload = {
|
||||
"model": model,
|
||||
"prompt": prompt_text,
|
||||
"stream": False,
|
||||
# Keep temperature low for deterministic compression
|
||||
"options": {
|
||||
"temperature": 0.1,
|
||||
"top_p": 0.9,
|
||||
},
|
||||
}
|
||||
try:
|
||||
resp = await client.post(OLLAMA_BASE, json=payload, timeout=MODEL_TIMEOUT)
|
||||
resp.raise_for_status()
|
||||
data = resp.json()
|
||||
return data.get("response", "").strip()
|
||||
except (httpx.TimeoutException, httpx.HTTPStatusError, Exception):
|
||||
return ""
|
||||
|
||||
|
||||
async def run_compression(system_prompt: str, context_type: str) -> CompressResponse:
|
||||
start = time.monotonic()
|
||||
request_id = str(uuid.uuid4())
|
||||
|
||||
original_tokens = estimate_tokens(system_prompt)
|
||||
prompt_text = COMPRESSOR_PROMPT_TEMPLATE.format(system_prompt=system_prompt)
|
||||
|
||||
async with httpx.AsyncClient() as client:
|
||||
# Connectivity gate
|
||||
if not await ollama_available(client):
|
||||
latency_ms = int((time.monotonic() - start) * 1000)
|
||||
return CompressResponse(
|
||||
id=request_id,
|
||||
compressed=system_prompt, # passthrough on failure
|
||||
original_tokens=original_tokens,
|
||||
compressed_tokens=original_tokens,
|
||||
reduction_pct=0.0,
|
||||
model="unavailable",
|
||||
context_type=context_type,
|
||||
latency_ms=latency_ms,
|
||||
)
|
||||
|
||||
# Try primary model (qwen3:1.7b), fall back to neuron:latest
|
||||
compressed = await compress_with_model(client, PRIMARY_MODEL, prompt_text)
|
||||
model_used = PRIMARY_MODEL
|
||||
|
||||
if not compressed:
|
||||
compressed = await compress_with_model(client, FALLBACK_MODEL, prompt_text)
|
||||
model_used = FALLBACK_MODEL
|
||||
|
||||
if not compressed:
|
||||
# Both models failed — passthrough
|
||||
latency_ms = int((time.monotonic() - start) * 1000)
|
||||
return CompressResponse(
|
||||
id=request_id,
|
||||
compressed=system_prompt,
|
||||
original_tokens=original_tokens,
|
||||
compressed_tokens=original_tokens,
|
||||
reduction_pct=0.0,
|
||||
model="both-failed",
|
||||
context_type=context_type,
|
||||
latency_ms=latency_ms,
|
||||
)
|
||||
|
||||
compressed_tokens = estimate_tokens(compressed)
|
||||
reduction_pct = round(
|
||||
(1.0 - compressed_tokens / max(1, original_tokens)) * 100.0, 1
|
||||
)
|
||||
latency_ms = int((time.monotonic() - start) * 1000)
|
||||
|
||||
return CompressResponse(
|
||||
id=request_id,
|
||||
compressed=compressed,
|
||||
original_tokens=original_tokens,
|
||||
compressed_tokens=compressed_tokens,
|
||||
reduction_pct=reduction_pct,
|
||||
model=model_used,
|
||||
context_type=context_type,
|
||||
latency_ms=latency_ms,
|
||||
)
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Routes
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
@app.post("/api/neuron/compress", response_model=CompressResponse)
|
||||
async def compress(req: CompressRequest):
|
||||
return await run_compression(req.system_prompt, req.context_type or "mixed")
|
||||
|
||||
|
||||
@app.get("/healthz")
|
||||
async def health():
|
||||
return {"status": "ok", "service": "compressor", "version": "1.0.0"}
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Entrypoint
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
if __name__ == "__main__":
|
||||
parser = argparse.ArgumentParser(description="Neuron Compressor Service (CCR Phase 1)")
|
||||
parser.add_argument("--port", type=int, default=7772, help="Port to listen on")
|
||||
parser.add_argument("--host", default="127.0.0.1", help="Host to bind to")
|
||||
args = parser.parse_args()
|
||||
|
||||
print(f"[compressor] Starting on {args.host}:{args.port}")
|
||||
print(f"[compressor] Primary model: {PRIMARY_MODEL}")
|
||||
print(f"[compressor] Fallback model: {FALLBACK_MODEL}")
|
||||
uvicorn.run(app, host=args.host, port=args.port, log_level="info")
|
||||
@@ -0,0 +1,224 @@
|
||||
#!/usr/bin/env python3
|
||||
"""
|
||||
Neuron Council Service — LLM anti-confabulation layer.
|
||||
|
||||
Fires 3 parallel Ollama calls and aggregates votes to produce a
|
||||
confidence score + tags for any claim before it enters memory.
|
||||
|
||||
Usage:
|
||||
python3 council_service.py [--port 7771]
|
||||
"""
|
||||
|
||||
import argparse
|
||||
import asyncio
|
||||
import time
|
||||
import uuid
|
||||
from typing import Optional
|
||||
|
||||
import httpx
|
||||
import uvicorn
|
||||
from fastapi import FastAPI
|
||||
from fastapi.middleware.cors import CORSMiddleware
|
||||
from pydantic import BaseModel
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Config
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
OLLAMA_BASE = "http://localhost:11434/api/generate"
|
||||
COUNCIL_MODELS = ["neuron:latest", "dolphin3:8b", "neuron-ft:latest"]
|
||||
MODEL_TIMEOUT = 45.0 # seconds per model (models may need to load from cold)
|
||||
|
||||
SYSTEM_PROMPT_TEMPLATE = """\
|
||||
You are a fact-checker. You will be given a claim.
|
||||
Your job: assess if it is accurate, internally consistent, and grounded in reality.
|
||||
Respond with EXACTLY ONE WORD:
|
||||
- "plausible" if the claim seems accurate and well-grounded
|
||||
- "uncertain" if you cannot determine accuracy or the claim is ambiguous
|
||||
- "confabulation" if the claim appears to contain invented facts or clear errors
|
||||
|
||||
Claim: {claim}
|
||||
Context: {context}
|
||||
|
||||
Your verdict (one word only):"""
|
||||
|
||||
VALID_VERDICTS = {"plausible", "uncertain", "confabulation"}
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# App
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
app = FastAPI(
|
||||
title="Neuron Council Service",
|
||||
description="LLM-council anti-confabulation layer for Neuron soul",
|
||||
version="1.0.0",
|
||||
)
|
||||
|
||||
app.add_middleware(
|
||||
CORSMiddleware,
|
||||
allow_origins=["*"],
|
||||
allow_methods=["*"],
|
||||
allow_headers=["*"],
|
||||
)
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Models
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
class VerifyRequest(BaseModel):
|
||||
claim: str
|
||||
context: Optional[str] = ""
|
||||
|
||||
|
||||
class VerifyResponse(BaseModel):
|
||||
id: str
|
||||
claim: str
|
||||
confidence: float
|
||||
council_votes: list[str]
|
||||
summary: str
|
||||
tags: list[str]
|
||||
latency_ms: int
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Core logic
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
async def query_model(client: httpx.AsyncClient, model: str, prompt: str) -> str:
|
||||
"""
|
||||
Query a single Ollama model. Returns "plausible", "uncertain", or "confabulation".
|
||||
Returns "uncertain" on timeout. Raises httpx.ConnectError on connection failure.
|
||||
"""
|
||||
payload = {
|
||||
"model": model,
|
||||
"prompt": prompt,
|
||||
"stream": False,
|
||||
}
|
||||
try:
|
||||
resp = await client.post(OLLAMA_BASE, json=payload, timeout=MODEL_TIMEOUT)
|
||||
resp.raise_for_status()
|
||||
data = resp.json()
|
||||
raw = data.get("response", "").strip().lower().split()[0] if data.get("response", "").strip() else "uncertain"
|
||||
# Normalise to one of the three valid verdicts
|
||||
if raw not in VALID_VERDICTS:
|
||||
return "uncertain"
|
||||
return raw
|
||||
except httpx.TimeoutException:
|
||||
return "uncertain"
|
||||
|
||||
|
||||
async def run_council(claim: str, context: str) -> VerifyResponse:
|
||||
start = time.monotonic()
|
||||
prompt = SYSTEM_PROMPT_TEMPLATE.format(claim=claim, context=context)
|
||||
|
||||
# Quick connectivity check — one tiny HEAD request to Ollama
|
||||
try:
|
||||
async with httpx.AsyncClient() as probe:
|
||||
await probe.get("http://localhost:11434/", timeout=2.0)
|
||||
except (httpx.ConnectError, httpx.TimeoutException):
|
||||
latency_ms = int((time.monotonic() - start) * 1000)
|
||||
return VerifyResponse(
|
||||
id=str(uuid.uuid4()),
|
||||
claim=claim,
|
||||
confidence=0.5,
|
||||
council_votes=[],
|
||||
summary="Ollama is unavailable; council could not convene.",
|
||||
tags=["council-unavailable"],
|
||||
latency_ms=latency_ms,
|
||||
)
|
||||
|
||||
# Fire all 3 model calls in parallel
|
||||
async with httpx.AsyncClient() as client:
|
||||
tasks = [query_model(client, m, prompt) for m in COUNCIL_MODELS]
|
||||
votes: list[str] = await asyncio.gather(*tasks)
|
||||
|
||||
plausible_count = votes.count("plausible")
|
||||
latency_ms = int((time.monotonic() - start) * 1000)
|
||||
|
||||
# Voting rules
|
||||
if plausible_count == 3:
|
||||
confidence = 0.85
|
||||
tags = ["verified"]
|
||||
summary = "3/3 council members agree this is plausible."
|
||||
elif plausible_count == 2:
|
||||
confidence = 0.65
|
||||
tags = ["council-split"]
|
||||
summary = "2/3 council members agree this is plausible."
|
||||
elif plausible_count == 1:
|
||||
confidence = 0.30
|
||||
tags = ["unverified", "council-flagged"]
|
||||
summary = "1/3 council members found this plausible."
|
||||
else:
|
||||
confidence = 0.30
|
||||
tags = ["unverified", "council-flagged"]
|
||||
summary = "0/3 council members found this plausible."
|
||||
|
||||
return VerifyResponse(
|
||||
id=str(uuid.uuid4()),
|
||||
claim=claim,
|
||||
confidence=confidence,
|
||||
council_votes=votes,
|
||||
summary=summary,
|
||||
tags=tags,
|
||||
latency_ms=latency_ms,
|
||||
)
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Routes
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
@app.post("/api/neuron/council/verify", response_model=VerifyResponse)
|
||||
async def verify(req: VerifyRequest):
|
||||
return await run_council(req.claim, req.context or "")
|
||||
|
||||
|
||||
@app.get("/healthz")
|
||||
async def health():
|
||||
return {"status": "ok", "service": "council"}
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Startup warm-up: pre-load all council models so first real call is fast
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
@app.on_event("startup")
|
||||
async def warmup_models():
|
||||
"""
|
||||
Send a trivial prompt to each council model at startup.
|
||||
This forces Ollama to load the models into GPU memory so the first
|
||||
real council call does not pay the cold-load latency penalty.
|
||||
"""
|
||||
print("[council] Warming up council models...")
|
||||
warmup_prompt = "Reply with one word: ready"
|
||||
async with httpx.AsyncClient() as client:
|
||||
tasks = [
|
||||
client.post(
|
||||
OLLAMA_BASE,
|
||||
json={"model": m, "prompt": warmup_prompt, "stream": False},
|
||||
timeout=60.0,
|
||||
)
|
||||
for m in COUNCIL_MODELS
|
||||
]
|
||||
results = await asyncio.gather(*tasks, return_exceptions=True)
|
||||
for model, result in zip(COUNCIL_MODELS, results):
|
||||
if isinstance(result, Exception):
|
||||
print(f"[council] warm-up failed for {model}: {result}")
|
||||
else:
|
||||
print(f"[council] {model} warm and ready")
|
||||
print("[council] All models warmed up.")
|
||||
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# Entrypoint
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
if __name__ == "__main__":
|
||||
parser = argparse.ArgumentParser(description="Neuron Council Service")
|
||||
parser.add_argument("--port", type=int, default=7771, help="Port to listen on")
|
||||
parser.add_argument("--host", default="127.0.0.1", help="Host to bind to")
|
||||
args = parser.parse_args()
|
||||
|
||||
print(f"[council] Starting on {args.host}:{args.port}")
|
||||
uvicorn.run(app, host=args.host, port=args.port, log_level="info")
|
||||
+471
-208
@@ -10,6 +10,7 @@ el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_tombstone(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
@@ -20,11 +21,13 @@ el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content)
|
||||
el_val_t idle_count(void);
|
||||
el_val_t idle_inc(void);
|
||||
el_val_t idle_reset(void);
|
||||
el_val_t hebb_consolidate(void);
|
||||
el_val_t ise_post(el_val_t content);
|
||||
el_val_t elapsed_ms(void);
|
||||
el_val_t elapsed_human(void);
|
||||
el_val_t embed_ok(void);
|
||||
el_val_t emit_heartbeat(void);
|
||||
el_val_t auto_term_try_slot(el_val_t slot_type, el_val_t slot_lbl);
|
||||
el_val_t proactive_curiosity(void);
|
||||
el_val_t pulse_count(void);
|
||||
el_val_t pulse_inc(void);
|
||||
@@ -42,110 +45,6 @@ el_val_t threat_score_history(el_val_t history);
|
||||
el_val_t threat_trajectory_check(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t threat_history_append(el_val_t text);
|
||||
|
||||
el_val_t tier_working(void) {
|
||||
return EL_STR("Working");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t tier_episodic(void) {
|
||||
return EL_STR("Episodic");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t tier_canonical(void) {
|
||||
return EL_STR("Canonical");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags) {
|
||||
return engram_node_full(content, EL_STR("Memory"), label, el_from_float(el_from_float(0.5)), el_from_float(el_from_float(0.5)), el_from_float(el_from_float(0.8)), EL_STR("Working"), tags);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_remember(el_val_t content, el_val_t tags) {
|
||||
return mem_store(content, EL_STR("soul-memory"), tags);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth) {
|
||||
return engram_activate_json(query, depth);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit) {
|
||||
return engram_search_json(query, limit);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_strengthen(el_val_t node_id) {
|
||||
engram_strengthen(node_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_forget(el_val_t node_id) {
|
||||
engram_forget(node_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_consolidate(void) {
|
||||
el_val_t scanned = engram_node_count();
|
||||
el_val_t dummy = engram_scan_nodes_json(100, 0);
|
||||
el_val_t total_nodes = engram_node_count();
|
||||
el_val_t total_edges = engram_edge_count();
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"scanned\":"), int_to_str(scanned)), EL_STR(",\"total_nodes\":")), int_to_str(total_nodes)), EL_STR(",\"total_edges\":")), int_to_str(total_edges)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_save(el_val_t path) {
|
||||
engram_save(path);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_load(el_val_t path) {
|
||||
engram_load(path);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_boot_count_get(void) {
|
||||
el_val_t results = engram_search_json(EL_STR("soul:boot_count"), 3);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t node = json_array_get(results, 0);
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t prefix = EL_STR("soul:boot_count:");
|
||||
if (!str_starts_with(content, prefix)) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t num_str = str_slice(content, str_len(prefix), str_len(content));
|
||||
return str_to_int(num_str);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_boot_count_inc(void) {
|
||||
el_val_t current = mem_boot_count_get();
|
||||
el_val_t next = (current + 1);
|
||||
el_val_t content = el_str_concat(EL_STR("soul:boot_count:"), int_to_str(next));
|
||||
el_val_t tags = EL_STR("[\"soul-meta\",\"boot-counter\"]");
|
||||
el_val_t discard = engram_node_full(content, EL_STR("Memory"), EL_STR("soul:boot_count"), el_from_float(el_from_float(0.9)), el_from_float(el_from_float(0.9)), el_from_float(el_from_float(1.0)), EL_STR("Canonical"), tags);
|
||||
return next;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content) {
|
||||
el_val_t boot = mem_boot_count_get();
|
||||
el_val_t ts = time_now();
|
||||
el_val_t safe_trigger = str_replace(trigger, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t safe_content = str_replace(content, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t payload = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"trigger\":\""), safe_trigger), EL_STR("\"")), EL_STR(",\"kind\":\"")), kind), EL_STR("\"")), EL_STR(",\"content\":\"")), safe_content), EL_STR("\"")), EL_STR(",\"boot\":")), int_to_str(boot)), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}"));
|
||||
el_val_t tags = EL_STR("[\"internal-state\",\"pre-reasoning\",\"InternalStateEvent\"]");
|
||||
return engram_node_full(payload, EL_STR("InternalStateEvent"), el_str_concat(EL_STR("state-event:"), kind), el_from_float(el_from_float(0.85)), el_from_float(el_from_float(0.8)), el_from_float(el_from_float(0.9)), EL_STR("Episodic"), tags);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t idle_count(void) {
|
||||
el_val_t s = state_get(EL_STR("soul.idle"));
|
||||
if (str_eq(s, EL_STR(""))) {
|
||||
@@ -167,16 +66,54 @@ el_val_t idle_reset(void) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t hebb_consolidate(void) {
|
||||
el_val_t batch = engram_hebb_drain_json(64);
|
||||
if (str_eq(batch, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
if (str_eq(batch, EL_STR("[]"))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t n = json_array_len(batch);
|
||||
if (n == 0) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t url_env = env(EL_STR("SOUL_ISE_URL"));
|
||||
el_val_t url_state = ({ el_val_t _if_result_1 = 0; if (str_eq(url_env, EL_STR(""))) { _if_result_1 = (state_get(EL_STR("soul_engram_url"))); } else { _if_result_1 = (url_env); } _if_result_1; });
|
||||
el_val_t engram_url = ({ el_val_t _if_result_2 = 0; if (str_eq(url_state, EL_STR(""))) { _if_result_2 = (EL_STR("http://localhost:8742")); } else { _if_result_2 = (url_state); } _if_result_2; });
|
||||
el_val_t key_state = state_get(EL_STR("soul_engram_api_key"));
|
||||
el_val_t api_key = ({ el_val_t _if_result_3 = 0; if (str_eq(key_state, EL_STR(""))) { _if_result_3 = (env(EL_STR("ENGRAM_API_KEY"))); } else { _if_result_3 = (key_state); } _if_result_3; });
|
||||
el_val_t auth_part = ({ el_val_t _if_result_4 = 0; if (str_eq(api_key, EL_STR(""))) { _if_result_4 = (EL_STR("")); } else { _if_result_4 = (el_str_concat(el_str_concat(EL_STR(",\"_auth\":\""), api_key), EL_STR("\""))); } _if_result_4; });
|
||||
el_val_t body = el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"edges\":"), batch), auth_part), EL_STR("}"));
|
||||
el_val_t resp = http_post_json(el_str_concat(engram_url, EL_STR("/api/edges/batch")), body);
|
||||
if (str_eq(resp, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t acc = json_get(resp, EL_STR("accepted"));
|
||||
if (str_eq(acc, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
return str_to_int(acc);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t ise_post(el_val_t content) {
|
||||
el_val_t ise_url = env(EL_STR("SOUL_ISE_URL"));
|
||||
el_val_t engram_url = ({ el_val_t _if_result_1 = 0; if (str_eq(ise_url, EL_STR(""))) { _if_result_1 = (state_get(EL_STR("soul_engram_url"))); } else { _if_result_1 = (ise_url); } _if_result_1; });
|
||||
if (str_eq(engram_url, EL_STR(""))) {
|
||||
el_val_t discard = engram_node_full(content, EL_STR("InternalStateEvent"), EL_STR("state-event"), el_from_float(el_from_float(0.3)), el_from_float(el_from_float(0.3)), el_from_float(el_from_float(0.8)), EL_STR("Episodic"), EL_STR("[\"internal-state\",\"InternalStateEvent\"]"));
|
||||
el_val_t state_url = ({ el_val_t _if_result_5 = 0; if (str_eq(ise_url, EL_STR(""))) { _if_result_5 = (state_get(EL_STR("soul_engram_url"))); } else { _if_result_5 = (ise_url); } _if_result_5; });
|
||||
el_val_t engram_url = ({ el_val_t _if_result_6 = 0; if (str_eq(state_url, EL_STR(""))) { _if_result_6 = (EL_STR("http://localhost:8742")); } else { _if_result_6 = (state_url); } _if_result_6; });
|
||||
el_val_t safe1 = str_replace(content, EL_STR("\\"), EL_STR("\\\\"));
|
||||
el_val_t safe2 = str_replace(safe1, EL_STR("\""), EL_STR("\\\""));
|
||||
el_val_t safe3 = str_replace(safe2, EL_STR("\n"), EL_STR("\\n"));
|
||||
el_val_t safe4 = str_replace(safe3, EL_STR("\r"), EL_STR("\\r"));
|
||||
el_val_t body = el_str_concat(el_str_concat(EL_STR("{\"content\":\""), safe4), EL_STR("\"}"));
|
||||
el_val_t resp = http_post_json(el_str_concat(engram_url, EL_STR("/api/neuron/state-events")), body);
|
||||
if (str_eq(resp, EL_STR(""))) {
|
||||
el_val_t fail_raw = state_get(EL_STR("soul.ise_fail_count"));
|
||||
el_val_t fail_n = ({ el_val_t _if_result_7 = 0; if (str_eq(fail_raw, EL_STR(""))) { _if_result_7 = (0); } else { _if_result_7 = (str_to_int(fail_raw)); } _if_result_7; });
|
||||
state_set(EL_STR("soul.ise_fail_count"), int_to_str((fail_n + 1)));
|
||||
el_val_t discard = engram_node_full(content, EL_STR("InternalStateEvent"), EL_STR("state-event"), el_from_float(0.3), el_from_float(0.3), el_from_float(0.8), EL_STR("Episodic"), EL_STR("[\"internal-state\",\"InternalStateEvent\",\"ise-fallback-local\"]"));
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t safe = str_replace(content, EL_STR("\""), EL_STR("\\\""));
|
||||
el_val_t body = el_str_concat(el_str_concat(EL_STR("{\"content\":\""), safe), EL_STR("\"}"));
|
||||
el_val_t discard = http_post_json(el_str_concat(engram_url, EL_STR("/api/neuron/state-events")), body);
|
||||
return EL_STR("");
|
||||
return 0;
|
||||
}
|
||||
@@ -194,21 +131,22 @@ el_val_t elapsed_ms(void) {
|
||||
el_val_t elapsed_human(void) {
|
||||
el_val_t ms = elapsed_ms();
|
||||
el_val_t total_secs = (ms / 1000);
|
||||
el_val_t h = (total_secs / 3600);
|
||||
el_val_t rem = total_secs;
|
||||
EL_NULL;
|
||||
3600;
|
||||
el_val_t m = (rem / 60);
|
||||
el_val_t s = rem;
|
||||
EL_NULL;
|
||||
60;
|
||||
el_val_t total_minutes = (total_secs / 60);
|
||||
el_val_t h = (total_minutes / 60);
|
||||
if (h > 0) {
|
||||
el_val_t h4 = (((h + h) + h) + h);
|
||||
el_val_t h8 = (h4 + h4);
|
||||
el_val_t h16 = (h8 + h8);
|
||||
el_val_t h32 = (h16 + h16);
|
||||
el_val_t h64 = (h32 + h32);
|
||||
el_val_t h60 = (h64 - h4);
|
||||
el_val_t m = (total_minutes - h60);
|
||||
return el_str_concat(el_str_concat(el_str_concat(int_to_str(h), EL_STR("h ")), int_to_str(m)), EL_STR("m"));
|
||||
}
|
||||
if (m > 0) {
|
||||
return el_str_concat(el_str_concat(el_str_concat(int_to_str(m), EL_STR("m ")), int_to_str(s)), EL_STR("s"));
|
||||
if (total_minutes > 0) {
|
||||
return el_str_concat(int_to_str(total_minutes), EL_STR("m"));
|
||||
}
|
||||
return el_str_concat(int_to_str(s), EL_STR("s"));
|
||||
return el_str_concat(int_to_str(total_secs), EL_STR("s"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -224,9 +162,11 @@ el_val_t embed_ok(void) {
|
||||
el_val_t emit_heartbeat(void) {
|
||||
el_val_t pulse = int_to_str(pulse_count());
|
||||
el_val_t boot_raw = state_get(EL_STR("soul_boot_count"));
|
||||
el_val_t boot = ({ el_val_t _if_result_2 = 0; if (str_eq(boot_raw, EL_STR(""))) { _if_result_2 = (EL_STR("0")); } else { _if_result_2 = (boot_raw); } _if_result_2; });
|
||||
el_val_t boot = ({ el_val_t _if_result_8 = 0; if (str_eq(boot_raw, EL_STR(""))) { _if_result_8 = (EL_STR("0")); } else { _if_result_8 = (boot_raw); } _if_result_8; });
|
||||
el_val_t idle = int_to_str(idle_count());
|
||||
el_val_t ts = time_now();
|
||||
el_val_t last_act_raw = state_get(EL_STR("soul.last_activity_ts"));
|
||||
el_val_t idle_ms = ({ el_val_t _if_result_9 = 0; if (str_eq(last_act_raw, EL_STR(""))) { _if_result_9 = ((0 - 1)); } else { _if_result_9 = ((ts - str_to_int(last_act_raw))); } _if_result_9; });
|
||||
el_val_t nc = engram_node_count();
|
||||
el_val_t ec = engram_edge_count();
|
||||
el_val_t wmc = engram_wm_count();
|
||||
@@ -236,11 +176,238 @@ el_val_t emit_heartbeat(void) {
|
||||
el_val_t up_ms = elapsed_ms();
|
||||
el_val_t up_human = elapsed_human();
|
||||
el_val_t emb_ok = embed_ok();
|
||||
el_val_t payload = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"heartbeat\",\"pulse\":"), pulse), EL_STR(",\"boot\":")), boot), EL_STR(",\"idle\":")), idle), EL_STR(",\"node_count\":")), int_to_str(nc)), EL_STR(",\"edge_count\":")), int_to_str(ec)), EL_STR(",\"wm_active\":")), int_to_str(wmc)), EL_STR(",\"wm_avg_weight\":")), wm_avg_str), EL_STR(",\"wm_top\":")), wm_top), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR(",\"uptime_ms\":")), int_to_str(up_ms)), EL_STR(",\"uptime\":\"")), up_human), EL_STR("\",\"embed_ok\":")), int_to_str(emb_ok)), EL_STR("}"));
|
||||
el_val_t fail_raw = state_get(EL_STR("soul.ise_fail_count"));
|
||||
el_val_t fail_str = ({ el_val_t _if_result_10 = 0; if (str_eq(fail_raw, EL_STR(""))) { _if_result_10 = (EL_STR("0")); } else { _if_result_10 = (fail_raw); } _if_result_10; });
|
||||
el_val_t sat_raw = state_get(EL_STR("soul.sync_added_total"));
|
||||
el_val_t sat_str = ({ el_val_t _if_result_11 = 0; if (str_eq(sat_raw, EL_STR(""))) { _if_result_11 = (EL_STR("0")); } else { _if_result_11 = (sat_raw); } _if_result_11; });
|
||||
el_val_t prev_wm_raw = state_get(EL_STR("soul.prev_wm_active"));
|
||||
el_val_t prev_wm = ({ el_val_t _if_result_12 = 0; if (str_eq(prev_wm_raw, EL_STR(""))) { _if_result_12 = (0); } else { _if_result_12 = (str_to_int(prev_wm_raw)); } _if_result_12; });
|
||||
el_val_t wm_delta = (wmc - prev_wm);
|
||||
state_set(EL_STR("soul.prev_wm_active"), int_to_str(wmc));
|
||||
el_val_t prev_nc_raw = state_get(EL_STR("soul.prev_node_count"));
|
||||
el_val_t prev_nc = ({ el_val_t _if_result_13 = 0; if (str_eq(prev_nc_raw, EL_STR(""))) { _if_result_13 = (nc); } else { _if_result_13 = (str_to_int(prev_nc_raw)); } _if_result_13; });
|
||||
el_val_t node_delta = (nc - prev_nc);
|
||||
state_set(EL_STR("soul.prev_node_count"), int_to_str(nc));
|
||||
el_val_t prev_ec_raw = state_get(EL_STR("soul.prev_edge_count"));
|
||||
el_val_t prev_ec = ({ el_val_t _if_result_14 = 0; if (str_eq(prev_ec_raw, EL_STR(""))) { _if_result_14 = (ec); } else { _if_result_14 = (str_to_int(prev_ec_raw)); } _if_result_14; });
|
||||
el_val_t edge_delta = (ec - prev_ec);
|
||||
state_set(EL_STR("soul.prev_edge_count"), int_to_str(ec));
|
||||
el_val_t sync_ok_raw = state_get(EL_STR("soul.last_sync_ok_ts"));
|
||||
el_val_t sync_age = ({ el_val_t _if_result_15 = 0; if (str_eq(sync_ok_raw, EL_STR(""))) { _if_result_15 = ((0 - 1)); } else { _if_result_15 = ((ts - str_to_int(sync_ok_raw))); } _if_result_15; });
|
||||
el_val_t hb_env_url = env(EL_STR("SOUL_ISE_URL"));
|
||||
el_val_t hb_state_url = ({ el_val_t _if_result_16 = 0; if (str_eq(hb_env_url, EL_STR(""))) { _if_result_16 = (state_get(EL_STR("soul_engram_url"))); } else { _if_result_16 = (hb_env_url); } _if_result_16; });
|
||||
el_val_t hb_engram_url = ({ el_val_t _if_result_17 = 0; if (str_eq(hb_state_url, EL_STR(""))) { _if_result_17 = (EL_STR("http://localhost:8742")); } else { _if_result_17 = (hb_state_url); } _if_result_17; });
|
||||
el_val_t bf_resp = http_get(el_str_concat(hb_engram_url, EL_STR("/api/embed-backfill?n=32")));
|
||||
el_val_t bf_done_raw = json_get(bf_resp, EL_STR("embedded"));
|
||||
el_val_t bf_done = ({ el_val_t _if_result_18 = 0; if (str_eq(bf_done_raw, EL_STR(""))) { _if_result_18 = (EL_STR("-1")); } else { _if_result_18 = (bf_done_raw); } _if_result_18; });
|
||||
el_val_t bf_total_raw = json_get(bf_resp, EL_STR("embedded_count"));
|
||||
el_val_t bf_total = ({ el_val_t _if_result_19 = 0; if (str_eq(bf_total_raw, EL_STR(""))) { _if_result_19 = (EL_STR("-1")); } else { _if_result_19 = (bf_total_raw); } _if_result_19; });
|
||||
el_val_t wm_sat = ({ el_val_t _if_result_20 = 0; if ((wmc >= 24)) { _if_result_20 = (1); } else { _if_result_20 = (0); } _if_result_20; });
|
||||
el_val_t prev_sat_raw = state_get(EL_STR("soul.prev_wm_saturated"));
|
||||
el_val_t prev_sat = ({ el_val_t _if_result_21 = 0; if (str_eq(prev_sat_raw, EL_STR(""))) { _if_result_21 = (wm_sat); } else { _if_result_21 = (str_to_int(prev_sat_raw)); } _if_result_21; });
|
||||
if (wm_sat != prev_sat) {
|
||||
el_val_t sat_dir = ({ el_val_t _if_result_22 = 0; if ((wm_sat == 1)) { _if_result_22 = (EL_STR("onset")); } else { _if_result_22 = (EL_STR("release")); } _if_result_22; });
|
||||
ise_post(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"wm_saturation_transition\",\"direction\":\""), sat_dir), EL_STR("\",\"wm_active\":")), int_to_str(wmc)), EL_STR(",\"wm_top\":")), wm_top), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}")));
|
||||
}
|
||||
state_set(EL_STR("soul.prev_wm_saturated"), int_to_str(wm_sat));
|
||||
el_val_t wm_top0 = json_array_get(wm_top, 0);
|
||||
el_val_t wm_top0_id = json_get(wm_top0, EL_STR("id"));
|
||||
el_val_t prev_top0 = state_get(EL_STR("soul.prev_wm_top0"));
|
||||
el_val_t t0streak_raw = state_get(EL_STR("soul.wm_top0_streak"));
|
||||
el_val_t t0streak_prev = ({ el_val_t _if_result_23 = 0; if (str_eq(t0streak_raw, EL_STR(""))) { _if_result_23 = (0); } else { _if_result_23 = (str_to_int(t0streak_raw)); } _if_result_23; });
|
||||
el_val_t t0streak = ({ el_val_t _if_result_24 = 0; if (str_eq(wm_top0_id, EL_STR(""))) { _if_result_24 = (0); } else { _if_result_24 = (({ el_val_t _if_result_25 = 0; if (str_eq(wm_top0_id, prev_top0)) { _if_result_25 = ((t0streak_prev + 1)); } else { _if_result_25 = (1); } _if_result_25; })); } _if_result_24; });
|
||||
state_set(EL_STR("soul.prev_wm_top0"), wm_top0_id);
|
||||
state_set(EL_STR("soul.wm_top0_streak"), int_to_str(t0streak));
|
||||
el_val_t ch_id1 = json_get(json_array_get(wm_top, 1), EL_STR("id"));
|
||||
el_val_t ch_id2 = json_get(json_array_get(wm_top, 2), EL_STR("id"));
|
||||
el_val_t ch_id3 = json_get(json_array_get(wm_top, 3), EL_STR("id"));
|
||||
el_val_t ch_id4 = json_get(json_array_get(wm_top, 4), EL_STR("id"));
|
||||
el_val_t prev_top5 = state_get(EL_STR("soul.prev_wm_top5"));
|
||||
el_val_t ch0 = ({ el_val_t _if_result_26 = 0; if (str_eq(wm_top0_id, EL_STR(""))) { _if_result_26 = (0); } else { _if_result_26 = (({ el_val_t _if_result_27 = 0; if (str_contains(prev_top5, wm_top0_id)) { _if_result_27 = (0); } else { _if_result_27 = (1); } _if_result_27; })); } _if_result_26; });
|
||||
el_val_t ch1 = ({ el_val_t _if_result_28 = 0; if (str_eq(ch_id1, EL_STR(""))) { _if_result_28 = (0); } else { _if_result_28 = (({ el_val_t _if_result_29 = 0; if (str_contains(prev_top5, ch_id1)) { _if_result_29 = (0); } else { _if_result_29 = (1); } _if_result_29; })); } _if_result_28; });
|
||||
el_val_t ch2 = ({ el_val_t _if_result_30 = 0; if (str_eq(ch_id2, EL_STR(""))) { _if_result_30 = (0); } else { _if_result_30 = (({ el_val_t _if_result_31 = 0; if (str_contains(prev_top5, ch_id2)) { _if_result_31 = (0); } else { _if_result_31 = (1); } _if_result_31; })); } _if_result_30; });
|
||||
el_val_t ch3 = ({ el_val_t _if_result_32 = 0; if (str_eq(ch_id3, EL_STR(""))) { _if_result_32 = (0); } else { _if_result_32 = (({ el_val_t _if_result_33 = 0; if (str_contains(prev_top5, ch_id3)) { _if_result_33 = (0); } else { _if_result_33 = (1); } _if_result_33; })); } _if_result_32; });
|
||||
el_val_t ch4 = ({ el_val_t _if_result_34 = 0; if (str_eq(ch_id4, EL_STR(""))) { _if_result_34 = (0); } else { _if_result_34 = (({ el_val_t _if_result_35 = 0; if (str_contains(prev_top5, ch_id4)) { _if_result_35 = (0); } else { _if_result_35 = (1); } _if_result_35; })); } _if_result_34; });
|
||||
el_val_t wm_churn = ((((ch0 + ch1) + ch2) + ch3) + ch4);
|
||||
state_set(EL_STR("soul.prev_wm_top5"), el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(wm_top0_id, EL_STR("|")), ch_id1), EL_STR("|")), ch_id2), EL_STR("|")), ch_id3), EL_STR("|")), ch_id4));
|
||||
el_val_t wm_top0_wm_raw = json_get(wm_top0, EL_STR("wm"));
|
||||
el_val_t wm_top0_wm = ({ el_val_t _if_result_36 = 0; if (str_eq(wm_top0_wm_raw, EL_STR(""))) { _if_result_36 = (EL_STR("0")); } else { _if_result_36 = (wm_top0_wm_raw); } _if_result_36; });
|
||||
el_val_t act_stats = engram_act_stats_json();
|
||||
el_val_t act_evict_raw = json_get(act_stats, EL_STR("wm_evicted"));
|
||||
el_val_t act_evict = ({ el_val_t _if_result_37 = 0; if (str_eq(act_evict_raw, EL_STR(""))) { _if_result_37 = (EL_STR("-1")); } else { _if_result_37 = (act_evict_raw); } _if_result_37; });
|
||||
el_val_t act_bt_raw = json_get(act_stats, EL_STR("breakthroughs"));
|
||||
el_val_t act_bt = ({ el_val_t _if_result_38 = 0; if (str_eq(act_bt_raw, EL_STR(""))) { _if_result_38 = (EL_STR("-1")); } else { _if_result_38 = (act_bt_raw); } _if_result_38; });
|
||||
el_val_t evict_now = ({ el_val_t _if_result_39 = 0; if (str_eq(act_evict_raw, EL_STR(""))) { _if_result_39 = ((0 - 1)); } else { _if_result_39 = (str_to_int(act_evict_raw)); } _if_result_39; });
|
||||
el_val_t bt_now = ({ el_val_t _if_result_40 = 0; if (str_eq(act_bt_raw, EL_STR(""))) { _if_result_40 = ((0 - 1)); } else { _if_result_40 = (str_to_int(act_bt_raw)); } _if_result_40; });
|
||||
el_val_t prev_evict_raw = state_get(EL_STR("soul.prev_wm_evicted"));
|
||||
el_val_t prev_evict = ({ el_val_t _if_result_41 = 0; if (str_eq(prev_evict_raw, EL_STR(""))) { _if_result_41 = (0); } else { _if_result_41 = (str_to_int(prev_evict_raw)); } _if_result_41; });
|
||||
el_val_t prev_bt_raw = state_get(EL_STR("soul.prev_breakthroughs"));
|
||||
el_val_t prev_bt = ({ el_val_t _if_result_42 = 0; if (str_eq(prev_bt_raw, EL_STR(""))) { _if_result_42 = (0); } else { _if_result_42 = (str_to_int(prev_bt_raw)); } _if_result_42; });
|
||||
el_val_t evict_delta = ({ el_val_t _if_result_43 = 0; if ((evict_now < 0)) { _if_result_43 = (0); } else { _if_result_43 = (({ el_val_t _if_result_44 = 0; if ((evict_now < prev_evict)) { _if_result_44 = (evict_now); } else { _if_result_44 = ((evict_now - prev_evict)); } _if_result_44; })); } _if_result_43; });
|
||||
el_val_t bt_delta = ({ el_val_t _if_result_45 = 0; if ((bt_now < 0)) { _if_result_45 = (0); } else { _if_result_45 = (({ el_val_t _if_result_46 = 0; if ((bt_now < prev_bt)) { _if_result_46 = (bt_now); } else { _if_result_46 = ((bt_now - prev_bt)); } _if_result_46; })); } _if_result_45; });
|
||||
if (evict_now >= 0) {
|
||||
state_set(EL_STR("soul.prev_wm_evicted"), int_to_str(evict_now));
|
||||
}
|
||||
if (bt_now >= 0) {
|
||||
state_set(EL_STR("soul.prev_breakthroughs"), int_to_str(bt_now));
|
||||
}
|
||||
el_val_t hb_stats = http_get(el_str_concat(hb_engram_url, EL_STR("/api/stats")));
|
||||
el_val_t embed_elig_raw = json_get(hb_stats, EL_STR("embed_eligible_count"));
|
||||
el_val_t embed_elig = ({ el_val_t _if_result_47 = 0; if (str_eq(embed_elig_raw, EL_STR(""))) { _if_result_47 = (EL_STR("-1")); } else { _if_result_47 = (embed_elig_raw); } _if_result_47; });
|
||||
el_val_t hb_ats_raw = state_get(EL_STR("soul.auto_term_streak"));
|
||||
el_val_t hb_ats = ({ el_val_t _if_result_48 = 0; if (str_eq(hb_ats_raw, EL_STR(""))) { _if_result_48 = (0); } else { _if_result_48 = (str_to_int(hb_ats_raw)); } _if_result_48; });
|
||||
el_val_t hb_ate_raw = state_get(EL_STR("soul.auto_term_empty_streak"));
|
||||
el_val_t hb_ate = ({ el_val_t _if_result_49 = 0; if (str_eq(hb_ate_raw, EL_STR(""))) { _if_result_49 = (0); } else { _if_result_49 = (str_to_int(hb_ate_raw)); } _if_result_49; });
|
||||
el_val_t hebb_warm_raw = json_get(act_stats, EL_STR("hebb_warm"));
|
||||
el_val_t hebb_warm = ({ el_val_t _if_result_50 = 0; if (str_eq(hebb_warm_raw, EL_STR(""))) { _if_result_50 = (EL_STR("-1")); } else { _if_result_50 = (hebb_warm_raw); } _if_result_50; });
|
||||
el_val_t hebb_max_raw = json_get(act_stats, EL_STR("hebb_max"));
|
||||
el_val_t hebb_max = ({ el_val_t _if_result_51 = 0; if (str_eq(hebb_max_raw, EL_STR(""))) { _if_result_51 = (EL_STR("-1")); } else { _if_result_51 = (hebb_max_raw); } _if_result_51; });
|
||||
el_val_t hebb_links_raw = json_get(act_stats, EL_STR("hebb_links"));
|
||||
el_val_t hebb_links = ({ el_val_t _if_result_52 = 0; if (str_eq(hebb_links_raw, EL_STR(""))) { _if_result_52 = (EL_STR("-1")); } else { _if_result_52 = (hebb_links_raw); } _if_result_52; });
|
||||
el_val_t hebb_cands_raw = json_get(act_stats, EL_STR("hebb_cands"));
|
||||
el_val_t hebb_cands = ({ el_val_t _if_result_53 = 0; if (str_eq(hebb_cands_raw, EL_STR(""))) { _if_result_53 = (EL_STR("-1")); } else { _if_result_53 = (hebb_cands_raw); } _if_result_53; });
|
||||
el_val_t hebb_cmax_raw = json_get(act_stats, EL_STR("hebb_cand_max"));
|
||||
el_val_t hebb_cmax = ({ el_val_t _if_result_54 = 0; if (str_eq(hebb_cmax_raw, EL_STR(""))) { _if_result_54 = (EL_STR("-1")); } else { _if_result_54 = (hebb_cmax_raw); } _if_result_54; });
|
||||
el_val_t hebb_mass_raw = json_get(act_stats, EL_STR("hebb_mass"));
|
||||
el_val_t hebb_mass = ({ el_val_t _if_result_55 = 0; if (str_eq(hebb_mass_raw, EL_STR(""))) { _if_result_55 = (EL_STR("-1")); } else { _if_result_55 = (hebb_mass_raw); } _if_result_55; });
|
||||
el_val_t hebb_edges_raw = json_get(act_stats, EL_STR("hebb_edges"));
|
||||
el_val_t hebb_edges = ({ el_val_t _if_result_56 = 0; if (str_eq(hebb_edges_raw, EL_STR(""))) { _if_result_56 = (EL_STR("-1")); } else { _if_result_56 = (hebb_edges_raw); } _if_result_56; });
|
||||
el_val_t wb_pend_raw = json_get(act_stats, EL_STR("hebb_wb_pending"));
|
||||
el_val_t wb_pend = ({ el_val_t _if_result_57 = 0; if (str_eq(wb_pend_raw, EL_STR(""))) { _if_result_57 = (EL_STR("-1")); } else { _if_result_57 = (wb_pend_raw); } _if_result_57; });
|
||||
el_val_t wb_drain_raw = json_get(act_stats, EL_STR("hebb_wb_drained"));
|
||||
el_val_t wb_drain = ({ el_val_t _if_result_58 = 0; if (str_eq(wb_drain_raw, EL_STR(""))) { _if_result_58 = (EL_STR("-1")); } else { _if_result_58 = (wb_drain_raw); } _if_result_58; });
|
||||
el_val_t wb_drop_raw = json_get(act_stats, EL_STR("hebb_wb_dropped"));
|
||||
el_val_t wb_drop = ({ el_val_t _if_result_59 = 0; if (str_eq(wb_drop_raw, EL_STR(""))) { _if_result_59 = (EL_STR("-1")); } else { _if_result_59 = (wb_drop_raw); } _if_result_59; });
|
||||
el_val_t wb_sent_raw = state_get(EL_STR("soul.hebb_wb_sent"));
|
||||
el_val_t wb_sent = ({ el_val_t _if_result_60 = 0; if (str_eq(wb_sent_raw, EL_STR(""))) { _if_result_60 = (EL_STR("0")); } else { _if_result_60 = (wb_sent_raw); } _if_result_60; });
|
||||
el_val_t dup_wm_g_raw = json_get(act_stats, EL_STR("dup_wm_global"));
|
||||
el_val_t dup_wm_g = ({ el_val_t _if_result_61 = 0; if (str_eq(dup_wm_g_raw, EL_STR(""))) { _if_result_61 = (EL_STR("-1")); } else { _if_result_61 = (dup_wm_g_raw); } _if_result_61; });
|
||||
el_val_t act_brk_raw = json_get(act_stats, EL_STR("embed_breaker_open"));
|
||||
el_val_t act_brk = ({ el_val_t _if_result_62 = 0; if (str_eq(act_brk_raw, EL_STR(""))) { _if_result_62 = (EL_STR("-1")); } else { _if_result_62 = (act_brk_raw); } _if_result_62; });
|
||||
el_val_t emb_cf_raw = json_get(act_stats, EL_STR("embed_consec_fail"));
|
||||
el_val_t emb_cf = ({ el_val_t _if_result_63 = 0; if (str_eq(emb_cf_raw, EL_STR(""))) { _if_result_63 = (EL_STR("-1")); } else { _if_result_63 = (emb_cf_raw); } _if_result_63; });
|
||||
el_val_t ctx_cos_raw = json_get(act_stats, EL_STR("ctx_cos"));
|
||||
el_val_t ctx_cos = ({ el_val_t _if_result_64 = 0; if (str_eq(ctx_cos_raw, EL_STR(""))) { _if_result_64 = (EL_STR("-2")); } else { _if_result_64 = (ctx_cos_raw); } _if_result_64; });
|
||||
el_val_t dup_seeds_raw = json_get(act_stats, EL_STR("dup_seeds"));
|
||||
el_val_t dup_seeds = ({ el_val_t _if_result_65 = 0; if (str_eq(dup_seeds_raw, EL_STR(""))) { _if_result_65 = (EL_STR("-1")); } else { _if_result_65 = (dup_seeds_raw); } _if_result_65; });
|
||||
el_val_t dup_wm_raw = json_get(act_stats, EL_STR("dup_wm"));
|
||||
el_val_t dup_wm = ({ el_val_t _if_result_66 = 0; if (str_eq(dup_wm_raw, EL_STR(""))) { _if_result_66 = (EL_STR("-1")); } else { _if_result_66 = (dup_wm_raw); } _if_result_66; });
|
||||
el_val_t txt_dmg_raw = json_get(act_stats, EL_STR("txt_damaged"));
|
||||
el_val_t txt_dmg = ({ el_val_t _if_result_67 = 0; if (str_eq(txt_dmg_raw, EL_STR(""))) { _if_result_67 = (EL_STR("-1")); } else { _if_result_67 = (txt_dmg_raw); } _if_result_67; });
|
||||
el_val_t tc_raw = state_get(EL_STR("soul.txt_census_countdown"));
|
||||
el_val_t tc_n = ({ el_val_t _if_result_68 = 0; if (str_eq(tc_raw, EL_STR(""))) { _if_result_68 = (0); } else { _if_result_68 = (str_to_int(tc_raw)); } _if_result_68; });
|
||||
if (tc_n <= 0) {
|
||||
el_val_t th_resp = http_get(el_str_concat(hb_engram_url, EL_STR("/api/text-health")));
|
||||
el_val_t th_pct = json_get(th_resp, EL_STR("damaged_pct"));
|
||||
if (!str_eq(th_pct, EL_STR(""))) {
|
||||
state_set(EL_STR("soul.txt_damaged_pct"), th_pct);
|
||||
state_set(EL_STR("soul.txt_damaged_n"), json_get(th_resp, EL_STR("damaged")));
|
||||
state_set(EL_STR("soul.txt_scanned_n"), json_get(th_resp, EL_STR("scanned")));
|
||||
state_set(EL_STR("soul.txt_census_ts"), int_to_str(ts));
|
||||
}
|
||||
state_set(EL_STR("soul.txt_census_countdown"), EL_STR("30"));
|
||||
}
|
||||
if (tc_n > 0) {
|
||||
state_set(EL_STR("soul.txt_census_countdown"), int_to_str((tc_n - 1)));
|
||||
}
|
||||
el_val_t dmg_pct_raw = state_get(EL_STR("soul.txt_damaged_pct"));
|
||||
el_val_t dmg_pct = ({ el_val_t _if_result_69 = 0; if (str_eq(dmg_pct_raw, EL_STR(""))) { _if_result_69 = (EL_STR("-1")); } else { _if_result_69 = (dmg_pct_raw); } _if_result_69; });
|
||||
el_val_t dmg_n_raw = state_get(EL_STR("soul.txt_damaged_n"));
|
||||
el_val_t dmg_n = ({ el_val_t _if_result_70 = 0; if (str_eq(dmg_n_raw, EL_STR(""))) { _if_result_70 = (EL_STR("-1")); } else { _if_result_70 = (dmg_n_raw); } _if_result_70; });
|
||||
el_val_t dmg_scan_raw = state_get(EL_STR("soul.txt_scanned_n"));
|
||||
el_val_t dmg_scan = ({ el_val_t _if_result_71 = 0; if (str_eq(dmg_scan_raw, EL_STR(""))) { _if_result_71 = (EL_STR("-1")); } else { _if_result_71 = (dmg_scan_raw); } _if_result_71; });
|
||||
el_val_t dmg_ts_raw = state_get(EL_STR("soul.txt_census_ts"));
|
||||
el_val_t dmg_age = ({ el_val_t _if_result_72 = 0; if (str_eq(dmg_ts_raw, EL_STR(""))) { _if_result_72 = ((0 - 1)); } else { _if_result_72 = ((ts - str_to_int(dmg_ts_raw))); } _if_result_72; });
|
||||
el_val_t payload = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"heartbeat\",\"pulse\":"), pulse), EL_STR(",\"tick\":")), pulse), EL_STR(",\"boot\":")), boot), EL_STR(",\"idle\":")), idle), EL_STR(",\"idle_ms\":")), int_to_str(idle_ms)), EL_STR(",\"node_count\":")), int_to_str(nc)), EL_STR(",\"edge_count\":")), int_to_str(ec)), EL_STR(",\"node_delta\":")), int_to_str(node_delta)), EL_STR(",\"edge_delta\":")), int_to_str(edge_delta)), EL_STR(",\"wm_active\":")), int_to_str(wmc)), EL_STR(",\"wm_delta\":")), int_to_str(wm_delta)), EL_STR(",\"wm_saturated\":")), int_to_str(wm_sat)), EL_STR(",\"wm_top0_streak\":")), int_to_str(t0streak)), EL_STR(",\"wm_churn\":")), int_to_str(wm_churn)), EL_STR(",\"wm_top0_wm\":")), wm_top0_wm), EL_STR(",\"sync_added_total\":")), sat_str), EL_STR(",\"sync_age_ms\":")), int_to_str(sync_age)), EL_STR(",\"wm_avg_weight\":")), wm_avg_str), EL_STR(",\"wm_top\":")), wm_top), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR(",\"uptime_ms\":")), int_to_str(up_ms)), EL_STR(",\"uptime\":\"")), up_human), EL_STR("\",\"embed_ok\":")), int_to_str(emb_ok)), EL_STR(",\"embed_backfilled\":")), bf_done), EL_STR(",\"embed_count\":")), bf_total), EL_STR(",\"embed_eligible\":")), embed_elig), EL_STR(",\"wm_evicted\":")), act_evict), EL_STR(",\"wm_evicted_delta\":")), int_to_str(evict_delta)), EL_STR(",\"breakthroughs\":")), act_bt), EL_STR(",\"breakthroughs_delta\":")), int_to_str(bt_delta)), EL_STR(",\"auto_term_streak\":")), int_to_str(hb_ats)), EL_STR(",\"auto_term_empty_streak\":")), int_to_str(hb_ate)), EL_STR(",\"embed_breaker_open\":")), act_brk), EL_STR(",\"ctx_cos\":")), ctx_cos), EL_STR(",\"dup_seeds\":")), dup_seeds), EL_STR(",\"dup_wm\":")), dup_wm), EL_STR(",\"dup_wm_global\":")), dup_wm_g), EL_STR(",\"hebb_warm\":")), hebb_warm), EL_STR(",\"hebb_max\":")), hebb_max), EL_STR(",\"hebb_links\":")), hebb_links), EL_STR(",\"hebb_cands\":")), hebb_cands), EL_STR(",\"hebb_cand_max\":")), hebb_cmax), EL_STR(",\"hebb_mass\":")), hebb_mass), EL_STR(",\"hebb_edges\":")), hebb_edges), EL_STR(",\"embed_consec_fail\":")), emb_cf), EL_STR(",\"txt_damaged_pct\":")), dmg_pct), EL_STR(",\"txt_damaged_n\":")), dmg_n), EL_STR(",\"txt_scanned_n\":")), dmg_scan), EL_STR(",\"txt_census_age_ms\":")), int_to_str(dmg_age)), EL_STR(",\"hebb_wb_pending\":")), wb_pend), EL_STR(",\"hebb_wb_drained\":")), wb_drain), EL_STR(",\"hebb_wb_dropped\":")), wb_drop), EL_STR(",\"hebb_wb_sent\":")), wb_sent), EL_STR(",\"ise_fail\":")), fail_str), EL_STR(",\"txt_damaged\":")), txt_dmg), EL_STR("}"));
|
||||
ise_post(payload);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t auto_term_try_slot(el_val_t slot_type, el_val_t slot_lbl) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("0"));
|
||||
if (str_eq(slot_type, EL_STR("Memory"))) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(slot_type, EL_STR("BacklogItem"))) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(slot_type, EL_STR("Entity"))) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(slot_type, EL_STR("Knowledge"))) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("1"));
|
||||
}
|
||||
if (str_contains(slot_lbl, EL_STR(":"))) {
|
||||
if (!str_contains(slot_lbl, EL_STR(" "))) {
|
||||
state_set(EL_STR("_ats_ok"), EL_STR("0"));
|
||||
}
|
||||
}
|
||||
if (str_eq(state_get(EL_STR("_ats_ok")), EL_STR("1"))) {
|
||||
if (!str_eq(slot_lbl, EL_STR(""))) {
|
||||
el_val_t sp = str_find_chars(slot_lbl, EL_STR(" :(["));
|
||||
if (sp > 3) {
|
||||
el_val_t term = str_slice(slot_lbl, 0, sp);
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("0"));
|
||||
if (str_eq(term, EL_STR("Method"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Theory"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Finding"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Survey"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Paper"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Knowledge"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, EL_STR("Value"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
el_val_t stopw = EL_STR("|What|When|Where|Which|Whose|While|This|That|These|Those|There|Their|Then|Than|With|Without|From|Into|Onto|Over|Under|About|Between|Among|Across|Some|Most|More|Less|Very|Each|Every|Both|Also|Only|Just|Does|Will|Would|Could|Should|Might|Must|Have|Been|Being|Toward|Towards|Using|Based|Upon|Here|Your|Ours|They|Them|what|this|that|with|from|context|Context|Prose|Colon|Self|Test|Testing|Closing|Global|Universal|Persona|Semantic|Spreading|Temporal|Numeric|Register|Identifying|Introduction|Overview|Summary|Section|General|Notes|Note|");
|
||||
if (str_contains(stopw, el_str_concat(el_str_concat(EL_STR("|"), term), EL_STR("|")))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_contains(term, EL_STR("\""))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_contains(term, EL_STR("'"))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
el_val_t df_max = (engram_node_count() / 400);
|
||||
el_val_t df_term = engram_label_df(term);
|
||||
if (df_term > df_max) {
|
||||
if (df_term > 8) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
}
|
||||
if (str_eq(term, state_get(EL_STR("soul.tabu_t0")))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, state_get(EL_STR("soul.tabu_t1")))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, state_get(EL_STR("soul.tabu_t2")))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(term, state_get(EL_STR("soul.tabu_t3")))) {
|
||||
state_set(EL_STR("_ats_gw"), EL_STR("1"));
|
||||
}
|
||||
if (str_eq(state_get(EL_STR("_ats_gw")), EL_STR("0"))) {
|
||||
state_set(EL_STR("cseed_auto"), term);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return EL_STR("");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t proactive_curiosity(void) {
|
||||
el_val_t ts = time_now();
|
||||
el_val_t ts_minutes = (ts / 60000);
|
||||
@@ -270,17 +437,66 @@ el_val_t proactive_curiosity(void) {
|
||||
el_val_t curiosity_term_b = state_get(EL_STR("cseed_b"));
|
||||
el_val_t curiosity_term_c = state_get(EL_STR("cseed_c"));
|
||||
el_val_t curiosity_seed = el_str_concat(el_str_concat(el_str_concat(el_str_concat(curiosity_term_a, EL_STR(" ")), curiosity_term_b), EL_STR(" ")), curiosity_term_c);
|
||||
el_val_t results_a = engram_activate_json(curiosity_term_a, 1);
|
||||
el_val_t results_b = engram_activate_json(curiosity_term_b, 1);
|
||||
el_val_t results_c = engram_activate_json(curiosity_term_c, 1);
|
||||
el_val_t found_a = json_array_len(results_a);
|
||||
el_val_t found_b = json_array_len(results_b);
|
||||
el_val_t found_c = json_array_len(results_c);
|
||||
el_val_t found = ((found_a + found_b) + found_c);
|
||||
el_val_t results_all = engram_activate_json(curiosity_seed, 1);
|
||||
el_val_t found = json_array_len(results_all);
|
||||
el_val_t top_entry = json_array_get(results_all, 0);
|
||||
el_val_t top_id = json_get(top_entry, EL_STR("id"));
|
||||
el_val_t prev_str_id = state_get(EL_STR("soul.last_strengthen_id"));
|
||||
if (!str_eq(top_id, EL_STR(""))) {
|
||||
if (!str_eq(top_id, prev_str_id)) {
|
||||
engram_strengthen(top_id);
|
||||
}
|
||||
state_set(EL_STR("soul.last_strengthen_id"), top_id);
|
||||
}
|
||||
state_set(EL_STR("cseed_auto"), EL_STR(""));
|
||||
el_val_t wm10 = engram_wm_top_json(10);
|
||||
el_val_t wm10_n9 = json_array_get(wm10, 9);
|
||||
el_val_t wm10_n8 = json_array_get(wm10, 8);
|
||||
el_val_t wm10_n7 = json_array_get(wm10, 7);
|
||||
el_val_t wm10_n6 = json_array_get(wm10, 6);
|
||||
el_val_t wm10_n5 = json_array_get(wm10, 5);
|
||||
el_val_t wm10_n4 = json_array_get(wm10, 4);
|
||||
el_val_t wm10_n3 = json_array_get(wm10, 3);
|
||||
el_val_t wm10_n2 = json_array_get(wm10, 2);
|
||||
el_val_t wm10_n1 = json_array_get(wm10, 1);
|
||||
el_val_t wm10_n0 = json_array_get(wm10, 0);
|
||||
auto_term_try_slot(json_get(wm10_n9, EL_STR("node_type")), json_get(wm10_n9, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n8, EL_STR("node_type")), json_get(wm10_n8, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n7, EL_STR("node_type")), json_get(wm10_n7, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n6, EL_STR("node_type")), json_get(wm10_n6, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n5, EL_STR("node_type")), json_get(wm10_n5, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n4, EL_STR("node_type")), json_get(wm10_n4, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n3, EL_STR("node_type")), json_get(wm10_n3, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n2, EL_STR("node_type")), json_get(wm10_n2, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n1, EL_STR("node_type")), json_get(wm10_n1, EL_STR("label")));
|
||||
auto_term_try_slot(json_get(wm10_n0, EL_STR("node_type")), json_get(wm10_n0, EL_STR("label")));
|
||||
el_val_t auto_term = state_get(EL_STR("cseed_auto"));
|
||||
el_val_t results_auto = ({ el_val_t _if_result_73 = 0; if (str_eq(auto_term, EL_STR(""))) { _if_result_73 = (EL_STR("[]")); } else { _if_result_73 = (engram_activate_json(auto_term, 1)); } _if_result_73; });
|
||||
el_val_t found_auto = json_array_len(results_auto);
|
||||
el_val_t total_found = (found + found_auto);
|
||||
el_val_t safe_auto = str_replace(auto_term, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t prev_auto = state_get(EL_STR("soul.prev_auto_term"));
|
||||
el_val_t atstreak_raw = state_get(EL_STR("soul.auto_term_streak"));
|
||||
el_val_t atstreak_prev = ({ el_val_t _if_result_74 = 0; if (str_eq(atstreak_raw, EL_STR(""))) { _if_result_74 = (0); } else { _if_result_74 = (str_to_int(atstreak_raw)); } _if_result_74; });
|
||||
el_val_t is_empty = str_eq(auto_term, EL_STR(""));
|
||||
el_val_t atstreak = ({ el_val_t _if_result_75 = 0; if (is_empty) { _if_result_75 = (0); } else { _if_result_75 = (({ el_val_t _if_result_76 = 0; if (str_eq(auto_term, prev_auto)) { _if_result_76 = ((atstreak_prev + 1)); } else { _if_result_76 = (1); } _if_result_76; })); } _if_result_75; });
|
||||
el_val_t atempty_raw = state_get(EL_STR("soul.auto_term_empty_streak"));
|
||||
el_val_t atempty_prev = ({ el_val_t _if_result_77 = 0; if (str_eq(atempty_raw, EL_STR(""))) { _if_result_77 = (0); } else { _if_result_77 = (str_to_int(atempty_raw)); } _if_result_77; });
|
||||
el_val_t atempty = ({ el_val_t _if_result_78 = 0; if (is_empty) { _if_result_78 = ((atempty_prev + 1)); } else { _if_result_78 = (0); } _if_result_78; });
|
||||
state_set(EL_STR("soul.prev_auto_term"), auto_term);
|
||||
state_set(EL_STR("soul.auto_term_streak"), int_to_str(atstreak));
|
||||
state_set(EL_STR("soul.auto_term_empty_streak"), int_to_str(atempty));
|
||||
if (!str_eq(auto_term, EL_STR(""))) {
|
||||
state_set(EL_STR("soul.tabu_t3"), state_get(EL_STR("soul.tabu_t2")));
|
||||
state_set(EL_STR("soul.tabu_t2"), state_get(EL_STR("soul.tabu_t1")));
|
||||
state_set(EL_STR("soul.tabu_t1"), state_get(EL_STR("soul.tabu_t0")));
|
||||
state_set(EL_STR("soul.tabu_t0"), auto_term);
|
||||
}
|
||||
el_val_t wmc = engram_wm_count();
|
||||
el_val_t ise = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"curiosity_scan\",\"seed\":\""), curiosity_seed), EL_STR("\",\"minute_block\":")), int_to_str(minute_block)), EL_STR(",\"activated\":")), int_to_str(found)), EL_STR(",\"wm_active\":")), int_to_str(wmc)), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}"));
|
||||
el_val_t wm3 = engram_wm_top_json(3);
|
||||
el_val_t ise = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"curiosity_scan\",\"seed\":\""), curiosity_seed), EL_STR("\",\"auto_term\":\"")), safe_auto), EL_STR("\",\"auto_term_streak\":")), int_to_str(atstreak)), EL_STR(",\"auto_term_empty_streak\":")), int_to_str(atempty)), EL_STR(",\"minute_block\":")), int_to_str(minute_block)), EL_STR(",\"activated\":")), int_to_str(total_found)), EL_STR(",\"wm_active\":")), int_to_str(wmc)), EL_STR(",\"wm_top\":")), wm3), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}"));
|
||||
ise_post(ise);
|
||||
return (found > 0);
|
||||
return (total_found > 0);
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -310,7 +526,7 @@ el_val_t make_action(el_val_t kind, el_val_t payload) {
|
||||
}
|
||||
|
||||
el_val_t perceive(void) {
|
||||
el_val_t inbox_check = engram_search_json(EL_STR("soul-inbox"), 5);
|
||||
el_val_t inbox_check = engram_search_json(EL_STR("soul-inbox-pending"), 5);
|
||||
el_val_t has_inbox = (!str_eq(inbox_check, EL_STR("")) && !str_eq(inbox_check, EL_STR("[]")));
|
||||
if (!has_inbox) {
|
||||
return EL_STR("[]");
|
||||
@@ -320,11 +536,6 @@ el_val_t perceive(void) {
|
||||
if (pending_ok) {
|
||||
return from_pending;
|
||||
}
|
||||
el_val_t from_inbox = engram_activate_json(EL_STR("soul-inbox"), 2);
|
||||
el_val_t inbox_ok = (!str_eq(from_inbox, EL_STR("")) && !str_eq(from_inbox, EL_STR("[]")));
|
||||
if (inbox_ok) {
|
||||
return from_inbox;
|
||||
}
|
||||
return EL_STR("[]");
|
||||
return 0;
|
||||
}
|
||||
@@ -336,10 +547,6 @@ el_val_t attend(el_val_t node_json) {
|
||||
if (str_eq(node_json, EL_STR("[]"))) {
|
||||
return make_action(EL_STR("noop"), EL_STR(""));
|
||||
}
|
||||
el_val_t node_id = json_get(node_json, EL_STR("id"));
|
||||
if (!str_eq(node_id, EL_STR(""))) {
|
||||
engram_strengthen(node_id);
|
||||
}
|
||||
el_val_t content = json_get(node_json, EL_STR("content"));
|
||||
if (str_eq(content, EL_STR(""))) {
|
||||
return make_action(EL_STR("noop"), EL_STR(""));
|
||||
@@ -410,16 +617,17 @@ el_val_t respond(el_val_t action_json) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"outcome\":\"strengthened\",\"id\":\""), payload), EL_STR("\"}"));
|
||||
}
|
||||
if (str_eq(kind, EL_STR("forget"))) {
|
||||
engram_forget(payload);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"outcome\":\"forgotten\",\"id\":\""), payload), EL_STR("\"}"));
|
||||
el_val_t _marker = mem_tombstone(payload);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"outcome\":\"tombstoned\",\"id\":\""), payload), EL_STR("\"}"));
|
||||
}
|
||||
return EL_STR("{\"outcome\":\"noop\"}");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t record(el_val_t outcome_json) {
|
||||
el_val_t tags = EL_STR("[\"loop-outcome\"]");
|
||||
mem_store(outcome_json, EL_STR("loop-outcome"), tags);
|
||||
el_val_t safe = str_replace(outcome_json, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t ts = time_now();
|
||||
ise_post(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"loop-outcome\",\"outcome\":\""), safe), EL_STR("\",\"ts\":")), int_to_str(ts)), EL_STR("}")));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -435,6 +643,10 @@ el_val_t one_cycle(void) {
|
||||
if (str_eq(node, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t node_tags = json_get(node, EL_STR("tags"));
|
||||
if (!str_contains(node_tags, EL_STR("soul-inbox-pending"))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t action = attend(node);
|
||||
el_val_t kind = json_get(action, EL_STR("kind"));
|
||||
el_val_t is_interesting = (!str_eq(kind, EL_STR("noop")) && !str_eq(kind, EL_STR("respond")));
|
||||
@@ -450,7 +662,10 @@ el_val_t one_cycle(void) {
|
||||
}
|
||||
el_val_t outcome = respond(action);
|
||||
record(outcome);
|
||||
pulse_inc();
|
||||
el_val_t trigger_id = json_get(node, EL_STR("id"));
|
||||
if (!str_eq(trigger_id, EL_STR(""))) {
|
||||
engram_forget(trigger_id);
|
||||
}
|
||||
return 1;
|
||||
return 0;
|
||||
}
|
||||
@@ -462,36 +677,89 @@ el_val_t awareness_run(void) {
|
||||
state_set(EL_STR("soul.boot_ts"), int_to_str(time_now()));
|
||||
}
|
||||
el_val_t tick_raw = env(EL_STR("SOUL_TICK_MS"));
|
||||
el_val_t tick_ms = ({ el_val_t _if_result_3 = 0; if (str_eq(tick_raw, EL_STR(""))) { _if_result_3 = (200); } else { _if_result_3 = (str_to_int(tick_raw)); } _if_result_3; });
|
||||
el_val_t tick_ms = ({ el_val_t _if_result_79 = 0; if (str_eq(tick_raw, EL_STR(""))) { _if_result_79 = (200); } else { _if_result_79 = (str_to_int(tick_raw)); } _if_result_79; });
|
||||
el_val_t beat_ms_raw = env(EL_STR("SOUL_HEARTBEAT_MS"));
|
||||
el_val_t beat_ms = ({ el_val_t _if_result_4 = 0; if (str_eq(beat_ms_raw, EL_STR(""))) { _if_result_4 = (60000); } else { _if_result_4 = (str_to_int(beat_ms_raw)); } _if_result_4; });
|
||||
el_val_t beat_ms = ({ el_val_t _if_result_80 = 0; if (str_eq(beat_ms_raw, EL_STR(""))) { _if_result_80 = (60000); } else { _if_result_80 = (str_to_int(beat_ms_raw)); } _if_result_80; });
|
||||
el_val_t scan_ms = (beat_ms / 2);
|
||||
while (1) {
|
||||
el_val_t tick_mark = el_arena_push();
|
||||
el_val_t running = state_get(EL_STR("soul.running"));
|
||||
if (str_eq(running, EL_STR("false"))) {
|
||||
el_val_t sd_boot_raw = state_get(EL_STR("soul_boot_count"));
|
||||
el_val_t sd_boot = ({ el_val_t _if_result_81 = 0; if (str_eq(sd_boot_raw, EL_STR(""))) { _if_result_81 = (EL_STR("0")); } else { _if_result_81 = (sd_boot_raw); } _if_result_81; });
|
||||
el_val_t sd_wb = hebb_consolidate();
|
||||
ise_post(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"shutdown\",\"boot\":"), sd_boot), EL_STR(",\"pulse\":")), int_to_str(pulse_count())), EL_STR(",\"hebb_wb_sent\":")), int_to_str(sd_wb)), EL_STR(",\"uptime_ms\":")), int_to_str(elapsed_ms())), EL_STR(",\"ts\":")), int_to_str(time_now())), EL_STR("}")));
|
||||
println(EL_STR("[awareness] exiting"));
|
||||
el_arena_pop(tick_mark);
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t did_work = one_cycle();
|
||||
did_work = ({ el_val_t _if_result_5 = 0; if (did_work) { _if_result_5 = (idle_reset()); } else { _if_result_5 = (did_work); } _if_result_5; });
|
||||
pulse_inc();
|
||||
if (did_work) {
|
||||
idle_reset();
|
||||
}
|
||||
if (!did_work) {
|
||||
idle_inc();
|
||||
}
|
||||
el_val_t now_ts = time_now();
|
||||
el_val_t last_beat_str = state_get(EL_STR("soul.last_beat_ts"));
|
||||
el_val_t last_beat_ts = ({ el_val_t _if_result_6 = 0; if (str_eq(last_beat_str, EL_STR(""))) { _if_result_6 = (0); } else { _if_result_6 = (str_to_int(last_beat_str)); } _if_result_6; });
|
||||
el_val_t last_beat_ts = ({ el_val_t _if_result_82 = 0; if (str_eq(last_beat_str, EL_STR(""))) { _if_result_82 = (0); } else { _if_result_82 = (str_to_int(last_beat_str)); } _if_result_82; });
|
||||
el_val_t beat_elapsed = (now_ts - last_beat_ts);
|
||||
el_val_t should_beat = (beat_elapsed >= beat_ms);
|
||||
if (should_beat) {
|
||||
el_val_t wb_sent_n = hebb_consolidate();
|
||||
state_set(EL_STR("soul.hebb_wb_sent"), int_to_str(wb_sent_n));
|
||||
emit_heartbeat();
|
||||
state_set(EL_STR("soul.last_beat_ts"), int_to_str(now_ts));
|
||||
el_val_t snap_path = state_get(EL_STR("soul_snapshot_path"));
|
||||
if (!str_eq(snap_path, EL_STR(""))) {
|
||||
mem_save(snap_path);
|
||||
}
|
||||
}
|
||||
el_val_t last_scan_str = state_get(EL_STR("soul.last_scan_ts"));
|
||||
el_val_t last_scan_ts = ({ el_val_t _if_result_7 = 0; if (str_eq(last_scan_str, EL_STR(""))) { _if_result_7 = (0); } else { _if_result_7 = (str_to_int(last_scan_str)); } _if_result_7; });
|
||||
el_val_t last_scan_ts = ({ el_val_t _if_result_83 = 0; if (str_eq(last_scan_str, EL_STR(""))) { _if_result_83 = (0); } else { _if_result_83 = (str_to_int(last_scan_str)); } _if_result_83; });
|
||||
el_val_t scan_elapsed = (now_ts - last_scan_ts);
|
||||
el_val_t should_scan = (!did_work && (scan_elapsed >= scan_ms));
|
||||
if (should_scan) {
|
||||
el_val_t found_something = proactive_curiosity();
|
||||
state_set(EL_STR("soul.last_scan_ts"), int_to_str(now_ts));
|
||||
}
|
||||
el_val_t refresh_ms_raw = env(EL_STR("SOUL_REFRESH_MS"));
|
||||
el_val_t refresh_ms = ({ el_val_t _if_result_84 = 0; if (str_eq(refresh_ms_raw, EL_STR(""))) { _if_result_84 = (600000); } else { _if_result_84 = (str_to_int(refresh_ms_raw)); } _if_result_84; });
|
||||
el_val_t last_refresh_str = state_get(EL_STR("soul.last_refresh_ts"));
|
||||
el_val_t last_refresh_ts = ({ el_val_t _if_result_85 = 0; if (str_eq(last_refresh_str, EL_STR(""))) { _if_result_85 = (0); } else { _if_result_85 = (str_to_int(last_refresh_str)); } _if_result_85; });
|
||||
el_val_t refresh_elapsed = (now_ts - last_refresh_ts);
|
||||
el_val_t should_refresh = (refresh_elapsed >= refresh_ms);
|
||||
if (should_refresh) {
|
||||
el_val_t sync_env_url = env(EL_STR("SOUL_ISE_URL"));
|
||||
el_val_t sync_state_url = ({ el_val_t _if_result_86 = 0; if (str_eq(sync_env_url, EL_STR(""))) { _if_result_86 = (state_get(EL_STR("soul_engram_url"))); } else { _if_result_86 = (sync_env_url); } _if_result_86; });
|
||||
el_val_t engram_url = ({ el_val_t _if_result_87 = 0; if (str_eq(sync_state_url, EL_STR(""))) { _if_result_87 = (EL_STR("http://localhost:8742")); } else { _if_result_87 = (sync_state_url); } _if_result_87; });
|
||||
if (!str_eq(engram_url, EL_STR(""))) {
|
||||
el_val_t sync_json = http_get(el_str_concat(engram_url, EL_STR("/api/sync")));
|
||||
el_val_t sync_ok = (!str_eq(sync_json, EL_STR("")) && !str_eq(sync_json, EL_STR("{}")));
|
||||
if (!sync_ok) {
|
||||
ise_post(el_str_concat(el_str_concat(EL_STR("{\"event\":\"sync_empty\",\"ts\":"), int_to_str(time_now())), EL_STR("}")));
|
||||
}
|
||||
if (sync_ok) {
|
||||
el_val_t cgi_id = state_get(EL_STR("soul_cgi_id"));
|
||||
el_val_t tmp = el_str_concat(el_str_concat(EL_STR("/tmp/soul-sync-"), cgi_id), EL_STR(".json"));
|
||||
fs_write(tmp, sync_json);
|
||||
el_val_t added = engram_load_merge(tmp);
|
||||
el_val_t ret_raw = env(EL_STR("ENGRAM_ISE_RETENTION_MS"));
|
||||
el_val_t ret_ms = ({ el_val_t _if_result_88 = 0; if (str_eq(ret_raw, EL_STR(""))) { _if_result_88 = (172800000); } else { _if_result_88 = (str_to_int(ret_raw)); } _if_result_88; });
|
||||
el_val_t pruned_sync = engram_prune_telemetry(ret_ms);
|
||||
el_val_t sat_raw = state_get(EL_STR("soul.sync_added_total"));
|
||||
el_val_t sat_n = ({ el_val_t _if_result_89 = 0; if (str_eq(sat_raw, EL_STR(""))) { _if_result_89 = (0); } else { _if_result_89 = (str_to_int(sat_raw)); } _if_result_89; });
|
||||
state_set(EL_STR("soul.sync_added_total"), int_to_str((sat_n + added)));
|
||||
el_val_t ts2 = time_now();
|
||||
state_set(EL_STR("soul.last_sync_ok_ts"), int_to_str(ts2));
|
||||
ise_post(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"engram_sync\",\"added\":"), int_to_str(added)), EL_STR(",\"pruned\":")), int_to_str(pruned_sync)), EL_STR(",\"ts\":")), int_to_str(ts2)), EL_STR("}")));
|
||||
}
|
||||
}
|
||||
state_set(EL_STR("soul.last_refresh_ts"), int_to_str(now_ts));
|
||||
}
|
||||
sleep_ms(tick_ms);
|
||||
el_arena_pop(tick_mark);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
@@ -507,78 +775,78 @@ el_val_t security_research_authorized(void) {
|
||||
}
|
||||
|
||||
el_val_t threat_score_command(el_val_t cmd) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_8 = 0; if (str_contains(cmd, EL_STR("nmap"))) { _if_result_8 = (30); } else { _if_result_8 = (0); } _if_result_8; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_9 = 0; if (str_contains(cmd, EL_STR("masscan"))) { _if_result_9 = (40); } else { _if_result_9 = (0); } _if_result_9; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_10 = 0; if (str_contains(cmd, EL_STR(" nc "))) { _if_result_10 = (20); } else { _if_result_10 = (0); } _if_result_10; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_11 = 0; if (str_contains(cmd, EL_STR("netcat"))) { _if_result_11 = (20); } else { _if_result_11 = (0); } _if_result_11; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_12 = 0; if (str_contains(cmd, EL_STR("/etc/shadow"))) { _if_result_12 = (80); } else { _if_result_12 = (0); } _if_result_12; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_13 = 0; if (str_contains(cmd, EL_STR("/etc/passwd"))) { _if_result_13 = (30); } else { _if_result_13 = (0); } _if_result_13; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_14 = 0; if (str_contains(cmd, EL_STR("id_rsa"))) { _if_result_14 = (60); } else { _if_result_14 = (0); } _if_result_14; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_15 = 0; if (str_contains(cmd, EL_STR(".ssh/"))) { _if_result_15 = (50); } else { _if_result_15 = (0); } _if_result_15; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_16 = 0; if (str_contains(cmd, EL_STR("crontab"))) { _if_result_16 = (30); } else { _if_result_16 = (0); } _if_result_16; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_17 = 0; if (str_contains(cmd, EL_STR("LaunchDaemon"))) { _if_result_17 = (40); } else { _if_result_17 = (0); } _if_result_17; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_18 = 0; if ((str_contains(cmd, EL_STR("curl")) && str_contains(cmd, EL_STR("bash")))) { _if_result_18 = (75); } else { _if_result_18 = (0); } _if_result_18; });
|
||||
el_val_t s12 = ({ el_val_t _if_result_19 = 0; if ((str_contains(cmd, EL_STR("wget")) && str_contains(cmd, EL_STR("bash")))) { _if_result_19 = (75); } else { _if_result_19 = (0); } _if_result_19; });
|
||||
el_val_t s13 = ({ el_val_t _if_result_20 = 0; if ((str_contains(cmd, EL_STR("curl")) && str_contains(cmd, EL_STR("| sh")))) { _if_result_20 = (60); } else { _if_result_20 = (0); } _if_result_20; });
|
||||
el_val_t s14 = ({ el_val_t _if_result_21 = 0; if ((str_contains(cmd, EL_STR("base64")) && str_contains(cmd, EL_STR("curl")))) { _if_result_21 = (50); } else { _if_result_21 = (0); } _if_result_21; });
|
||||
el_val_t s15 = ({ el_val_t _if_result_22 = 0; if (str_contains(cmd, EL_STR("mkfifo"))) { _if_result_22 = (50); } else { _if_result_22 = (0); } _if_result_22; });
|
||||
el_val_t s16 = ({ el_val_t _if_result_23 = 0; if (str_contains(cmd, EL_STR("chmod +s"))) { _if_result_23 = (70); } else { _if_result_23 = (0); } _if_result_23; });
|
||||
el_val_t s17 = ({ el_val_t _if_result_24 = 0; if (str_contains(cmd, EL_STR("chmod 4755"))) { _if_result_24 = (70); } else { _if_result_24 = (0); } _if_result_24; });
|
||||
el_val_t s1 = ({ el_val_t _if_result_90 = 0; if (str_contains(cmd, EL_STR("nmap"))) { _if_result_90 = (30); } else { _if_result_90 = (0); } _if_result_90; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_91 = 0; if (str_contains(cmd, EL_STR("masscan"))) { _if_result_91 = (40); } else { _if_result_91 = (0); } _if_result_91; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_92 = 0; if (str_contains(cmd, EL_STR(" nc "))) { _if_result_92 = (20); } else { _if_result_92 = (0); } _if_result_92; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_93 = 0; if (str_contains(cmd, EL_STR("netcat"))) { _if_result_93 = (20); } else { _if_result_93 = (0); } _if_result_93; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_94 = 0; if (str_contains(cmd, EL_STR("/etc/shadow"))) { _if_result_94 = (80); } else { _if_result_94 = (0); } _if_result_94; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_95 = 0; if (str_contains(cmd, EL_STR("/etc/passwd"))) { _if_result_95 = (30); } else { _if_result_95 = (0); } _if_result_95; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_96 = 0; if (str_contains(cmd, EL_STR("id_rsa"))) { _if_result_96 = (60); } else { _if_result_96 = (0); } _if_result_96; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_97 = 0; if (str_contains(cmd, EL_STR(".ssh/"))) { _if_result_97 = (50); } else { _if_result_97 = (0); } _if_result_97; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_98 = 0; if (str_contains(cmd, EL_STR("crontab"))) { _if_result_98 = (30); } else { _if_result_98 = (0); } _if_result_98; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_99 = 0; if (str_contains(cmd, EL_STR("LaunchDaemon"))) { _if_result_99 = (40); } else { _if_result_99 = (0); } _if_result_99; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_100 = 0; if ((str_contains(cmd, EL_STR("curl")) && str_contains(cmd, EL_STR("bash")))) { _if_result_100 = (75); } else { _if_result_100 = (0); } _if_result_100; });
|
||||
el_val_t s12 = ({ el_val_t _if_result_101 = 0; if ((str_contains(cmd, EL_STR("wget")) && str_contains(cmd, EL_STR("bash")))) { _if_result_101 = (75); } else { _if_result_101 = (0); } _if_result_101; });
|
||||
el_val_t s13 = ({ el_val_t _if_result_102 = 0; if ((str_contains(cmd, EL_STR("curl")) && str_contains(cmd, EL_STR("| sh")))) { _if_result_102 = (60); } else { _if_result_102 = (0); } _if_result_102; });
|
||||
el_val_t s14 = ({ el_val_t _if_result_103 = 0; if ((str_contains(cmd, EL_STR("base64")) && str_contains(cmd, EL_STR("curl")))) { _if_result_103 = (50); } else { _if_result_103 = (0); } _if_result_103; });
|
||||
el_val_t s15 = ({ el_val_t _if_result_104 = 0; if (str_contains(cmd, EL_STR("mkfifo"))) { _if_result_104 = (50); } else { _if_result_104 = (0); } _if_result_104; });
|
||||
el_val_t s16 = ({ el_val_t _if_result_105 = 0; if (str_contains(cmd, EL_STR("chmod +s"))) { _if_result_105 = (70); } else { _if_result_105 = (0); } _if_result_105; });
|
||||
el_val_t s17 = ({ el_val_t _if_result_106 = 0; if (str_contains(cmd, EL_STR("chmod 4755"))) { _if_result_106 = (70); } else { _if_result_106 = (0); } _if_result_106; });
|
||||
return ((((((((((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10) + s11) + s12) + s13) + s14) + s15) + s16) + s17);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t threat_score_path(el_val_t path) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_25 = 0; if (str_starts_with(path, EL_STR("/etc/"))) { _if_result_25 = (60); } else { _if_result_25 = (0); } _if_result_25; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_26 = 0; if (str_contains(path, EL_STR("/.ssh/"))) { _if_result_26 = (70); } else { _if_result_26 = (0); } _if_result_26; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_27 = 0; if (str_contains(path, EL_STR("/LaunchDaemons/"))) { _if_result_27 = (80); } else { _if_result_27 = (0); } _if_result_27; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_28 = 0; if (str_contains(path, EL_STR("/LaunchAgents/"))) { _if_result_28 = (40); } else { _if_result_28 = (0); } _if_result_28; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_29 = 0; if (str_contains(path, EL_STR("/cron"))) { _if_result_29 = (60); } else { _if_result_29 = (0); } _if_result_29; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_30 = 0; if (str_contains(path, EL_STR("/.bashrc"))) { _if_result_30 = (35); } else { _if_result_30 = (0); } _if_result_30; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_31 = 0; if (str_contains(path, EL_STR("/.zshrc"))) { _if_result_31 = (35); } else { _if_result_31 = (0); } _if_result_31; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_32 = 0; if (str_contains(path, EL_STR("/.profile"))) { _if_result_32 = (35); } else { _if_result_32 = (0); } _if_result_32; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_33 = 0; if (str_starts_with(path, EL_STR("/usr/"))) { _if_result_33 = (50); } else { _if_result_33 = (0); } _if_result_33; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_34 = 0; if (str_starts_with(path, EL_STR("/bin/"))) { _if_result_34 = (70); } else { _if_result_34 = (0); } _if_result_34; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_35 = 0; if (str_starts_with(path, EL_STR("/sbin/"))) { _if_result_35 = (70); } else { _if_result_35 = (0); } _if_result_35; });
|
||||
el_val_t s1 = ({ el_val_t _if_result_107 = 0; if (str_starts_with(path, EL_STR("/etc/"))) { _if_result_107 = (60); } else { _if_result_107 = (0); } _if_result_107; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_108 = 0; if (str_contains(path, EL_STR("/.ssh/"))) { _if_result_108 = (70); } else { _if_result_108 = (0); } _if_result_108; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_109 = 0; if (str_contains(path, EL_STR("/LaunchDaemons/"))) { _if_result_109 = (80); } else { _if_result_109 = (0); } _if_result_109; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_110 = 0; if (str_contains(path, EL_STR("/LaunchAgents/"))) { _if_result_110 = (40); } else { _if_result_110 = (0); } _if_result_110; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_111 = 0; if (str_contains(path, EL_STR("/cron"))) { _if_result_111 = (60); } else { _if_result_111 = (0); } _if_result_111; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_112 = 0; if (str_contains(path, EL_STR("/.bashrc"))) { _if_result_112 = (35); } else { _if_result_112 = (0); } _if_result_112; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_113 = 0; if (str_contains(path, EL_STR("/.zshrc"))) { _if_result_113 = (35); } else { _if_result_113 = (0); } _if_result_113; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_114 = 0; if (str_contains(path, EL_STR("/.profile"))) { _if_result_114 = (35); } else { _if_result_114 = (0); } _if_result_114; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_115 = 0; if (str_starts_with(path, EL_STR("/usr/"))) { _if_result_115 = (50); } else { _if_result_115 = (0); } _if_result_115; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_116 = 0; if (str_starts_with(path, EL_STR("/bin/"))) { _if_result_116 = (70); } else { _if_result_116 = (0); } _if_result_116; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_117 = 0; if (str_starts_with(path, EL_STR("/sbin/"))) { _if_result_117 = (70); } else { _if_result_117 = (0); } _if_result_117; });
|
||||
return ((((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10) + s11);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t threat_score_history(el_val_t history) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_36 = 0; if (str_contains(history, EL_STR("port scan"))) { _if_result_36 = (15); } else { _if_result_36 = (0); } _if_result_36; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_37 = 0; if (str_contains(history, EL_STR("enumerate"))) { _if_result_37 = (10); } else { _if_result_37 = (0); } _if_result_37; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_38 = 0; if (str_contains(history, EL_STR("exploit"))) { _if_result_38 = (20); } else { _if_result_38 = (0); } _if_result_38; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_39 = 0; if (str_contains(history, EL_STR("payload"))) { _if_result_39 = (15); } else { _if_result_39 = (0); } _if_result_39; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_40 = 0; if (str_contains(history, EL_STR("persistence"))) { _if_result_40 = (15); } else { _if_result_40 = (0); } _if_result_40; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_41 = 0; if (str_contains(history, EL_STR("lateral movement"))) { _if_result_41 = (25); } else { _if_result_41 = (0); } _if_result_41; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_42 = 0; if (str_contains(history, EL_STR("privilege escalation"))) { _if_result_42 = (25); } else { _if_result_42 = (0); } _if_result_42; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_43 = 0; if (str_contains(history, EL_STR("reverse shell"))) { _if_result_43 = (40); } else { _if_result_43 = (0); } _if_result_43; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_44 = 0; if (str_contains(history, EL_STR("bind shell"))) { _if_result_44 = (40); } else { _if_result_44 = (0); } _if_result_44; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_45 = 0; if (str_contains(history, EL_STR("command and control"))) { _if_result_45 = (35); } else { _if_result_45 = (0); } _if_result_45; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_46 = 0; if (str_contains(history, EL_STR("self-replicate"))) { _if_result_46 = (45); } else { _if_result_46 = (0); } _if_result_46; });
|
||||
el_val_t s12 = ({ el_val_t _if_result_47 = 0; if (str_contains(history, EL_STR("propagat"))) { _if_result_47 = (20); } else { _if_result_47 = (0); } _if_result_47; });
|
||||
el_val_t s13 = ({ el_val_t _if_result_48 = 0; if (str_contains(history, EL_STR("ransomware"))) { _if_result_48 = (30); } else { _if_result_48 = (0); } _if_result_48; });
|
||||
el_val_t s14 = ({ el_val_t _if_result_49 = 0; if (str_contains(history, EL_STR("encrypt files"))) { _if_result_49 = (40); } else { _if_result_49 = (0); } _if_result_49; });
|
||||
el_val_t s15 = ({ el_val_t _if_result_50 = 0; if (str_contains(history, EL_STR("exfiltrat"))) { _if_result_50 = (35); } else { _if_result_50 = (0); } _if_result_50; });
|
||||
el_val_t s16 = ({ el_val_t _if_result_51 = 0; if (str_contains(history, EL_STR("zero-day"))) { _if_result_51 = (20); } else { _if_result_51 = (0); } _if_result_51; });
|
||||
el_val_t s17 = ({ el_val_t _if_result_52 = 0; if (str_contains(history, EL_STR("rootkit"))) { _if_result_52 = (45); } else { _if_result_52 = (0); } _if_result_52; });
|
||||
el_val_t s18 = ({ el_val_t _if_result_53 = 0; if (str_contains(history, EL_STR("keylogger"))) { _if_result_53 = (45); } else { _if_result_53 = (0); } _if_result_53; });
|
||||
el_val_t s19 = ({ el_val_t _if_result_54 = 0; if (str_contains(history, EL_STR("botnet"))) { _if_result_54 = (40); } else { _if_result_54 = (0); } _if_result_54; });
|
||||
el_val_t s20 = ({ el_val_t _if_result_55 = 0; if (str_contains(history, EL_STR("malware"))) { _if_result_55 = (15); } else { _if_result_55 = (0); } _if_result_55; });
|
||||
el_val_t s1 = ({ el_val_t _if_result_118 = 0; if (str_contains(history, EL_STR("port scan"))) { _if_result_118 = (15); } else { _if_result_118 = (0); } _if_result_118; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_119 = 0; if (str_contains(history, EL_STR("enumerate"))) { _if_result_119 = (10); } else { _if_result_119 = (0); } _if_result_119; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_120 = 0; if (str_contains(history, EL_STR("exploit"))) { _if_result_120 = (20); } else { _if_result_120 = (0); } _if_result_120; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_121 = 0; if (str_contains(history, EL_STR("payload"))) { _if_result_121 = (15); } else { _if_result_121 = (0); } _if_result_121; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_122 = 0; if (str_contains(history, EL_STR("persistence"))) { _if_result_122 = (15); } else { _if_result_122 = (0); } _if_result_122; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_123 = 0; if (str_contains(history, EL_STR("lateral movement"))) { _if_result_123 = (25); } else { _if_result_123 = (0); } _if_result_123; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_124 = 0; if (str_contains(history, EL_STR("privilege escalation"))) { _if_result_124 = (25); } else { _if_result_124 = (0); } _if_result_124; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_125 = 0; if (str_contains(history, EL_STR("reverse shell"))) { _if_result_125 = (40); } else { _if_result_125 = (0); } _if_result_125; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_126 = 0; if (str_contains(history, EL_STR("bind shell"))) { _if_result_126 = (40); } else { _if_result_126 = (0); } _if_result_126; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_127 = 0; if (str_contains(history, EL_STR("command and control"))) { _if_result_127 = (35); } else { _if_result_127 = (0); } _if_result_127; });
|
||||
el_val_t s11 = ({ el_val_t _if_result_128 = 0; if (str_contains(history, EL_STR("self-replicate"))) { _if_result_128 = (45); } else { _if_result_128 = (0); } _if_result_128; });
|
||||
el_val_t s12 = ({ el_val_t _if_result_129 = 0; if (str_contains(history, EL_STR("propagat"))) { _if_result_129 = (20); } else { _if_result_129 = (0); } _if_result_129; });
|
||||
el_val_t s13 = ({ el_val_t _if_result_130 = 0; if (str_contains(history, EL_STR("ransomware"))) { _if_result_130 = (30); } else { _if_result_130 = (0); } _if_result_130; });
|
||||
el_val_t s14 = ({ el_val_t _if_result_131 = 0; if (str_contains(history, EL_STR("encrypt files"))) { _if_result_131 = (40); } else { _if_result_131 = (0); } _if_result_131; });
|
||||
el_val_t s15 = ({ el_val_t _if_result_132 = 0; if (str_contains(history, EL_STR("exfiltrat"))) { _if_result_132 = (35); } else { _if_result_132 = (0); } _if_result_132; });
|
||||
el_val_t s16 = ({ el_val_t _if_result_133 = 0; if (str_contains(history, EL_STR("zero-day"))) { _if_result_133 = (20); } else { _if_result_133 = (0); } _if_result_133; });
|
||||
el_val_t s17 = ({ el_val_t _if_result_134 = 0; if (str_contains(history, EL_STR("rootkit"))) { _if_result_134 = (45); } else { _if_result_134 = (0); } _if_result_134; });
|
||||
el_val_t s18 = ({ el_val_t _if_result_135 = 0; if (str_contains(history, EL_STR("keylogger"))) { _if_result_135 = (45); } else { _if_result_135 = (0); } _if_result_135; });
|
||||
el_val_t s19 = ({ el_val_t _if_result_136 = 0; if (str_contains(history, EL_STR("botnet"))) { _if_result_136 = (40); } else { _if_result_136 = (0); } _if_result_136; });
|
||||
el_val_t s20 = ({ el_val_t _if_result_137 = 0; if (str_contains(history, EL_STR("malware"))) { _if_result_137 = (15); } else { _if_result_137 = (0); } _if_result_137; });
|
||||
return (((((((((((((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10) + s11) + s12) + s13) + s14) + s15) + s16) + s17) + s18) + s19) + s20);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t threat_trajectory_check(el_val_t tool_name, el_val_t tool_input) {
|
||||
el_val_t history = state_get(EL_STR("agentic_conv_history"));
|
||||
el_val_t computed_tool_score = ({ el_val_t _if_result_56 = 0; if (str_eq(tool_name, EL_STR("run_command"))) { el_val_t cmd = json_get(tool_input, EL_STR("command")); _if_result_56 = (threat_score_command(cmd)); } else { _if_result_56 = (({ el_val_t _if_result_57 = 0; if ((str_eq(tool_name, EL_STR("write_file")) || str_eq(tool_name, EL_STR("edit_file")))) { el_val_t path = json_get(tool_input, EL_STR("path")); _if_result_57 = (threat_score_path(path)); } else { _if_result_57 = (0); } _if_result_57; })); } _if_result_56; });
|
||||
el_val_t computed_tool_score = ({ el_val_t _if_result_138 = 0; if (str_eq(tool_name, EL_STR("run_command"))) { el_val_t cmd = json_get(tool_input, EL_STR("command")); _if_result_138 = (threat_score_command(cmd)); } else { _if_result_138 = (({ el_val_t _if_result_139 = 0; if ((str_eq(tool_name, EL_STR("write_file")) || str_eq(tool_name, EL_STR("edit_file")))) { el_val_t path = json_get(tool_input, EL_STR("path")); _if_result_139 = (threat_score_path(path)); } else { _if_result_139 = (0); } _if_result_139; })); } _if_result_138; });
|
||||
el_val_t history_score = threat_score_history(history);
|
||||
el_val_t history_contrib = (history_score / 3);
|
||||
el_val_t combined = (computed_tool_score + history_contrib);
|
||||
el_val_t should_log = (combined >= 40);
|
||||
if (should_log) {
|
||||
el_val_t ts = time_now();
|
||||
el_val_t authorized_str = ({ el_val_t _if_result_58 = 0; if (security_research_authorized()) { _if_result_58 = (EL_STR("true")); } else { _if_result_58 = (EL_STR("false")); } _if_result_58; });
|
||||
el_val_t authorized_str = ({ el_val_t _if_result_140 = 0; if (security_research_authorized()) { _if_result_140 = (EL_STR("true")); } else { _if_result_140 = (EL_STR("false")); } _if_result_140; });
|
||||
el_val_t log_content = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"event\":\"threat_check\",\"tool\":\""), tool_name), EL_STR("\",\"score\":")), int_to_str(combined)), EL_STR(",\"tool_score\":")), int_to_str(computed_tool_score)), EL_STR(",\"history_score\":")), int_to_str(history_score)), EL_STR(",\"authorized\":")), authorized_str), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}"));
|
||||
el_val_t log_tags = EL_STR("[\"security-audit\",\"threat-check\"]");
|
||||
el_val_t discard = mem_remember(log_content, log_tags);
|
||||
@@ -595,13 +863,8 @@ el_val_t threat_history_append(el_val_t text) {
|
||||
el_val_t safe_text = str_to_lower(text);
|
||||
el_val_t combined = el_str_concat(el_str_concat(current, EL_STR(" ")), safe_text);
|
||||
el_val_t len = str_len(combined);
|
||||
el_val_t trimmed = ({ el_val_t _if_result_59 = 0; if ((len > 2000)) { _if_result_59 = (str_slice(combined, (len - 2000), len)); } else { _if_result_59 = (combined); } _if_result_59; });
|
||||
el_val_t trimmed = ({ el_val_t _if_result_141 = 0; if ((len > 2000)) { _if_result_141 = (str_slice(combined, (len - 2000), len)); } else { _if_result_141 = (combined); } _if_result_141; });
|
||||
state_set(EL_STR("agentic_conv_history"), trimmed);
|
||||
return 0;
|
||||
}
|
||||
|
||||
int main(int _argc, char** _argv) {
|
||||
el_runtime_init_args(_argc, _argv);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
+16
@@ -1,4 +1,14 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn idle_count() -> Int
|
||||
extern fn idle_inc() -> Int
|
||||
extern fn idle_reset() -> Void
|
||||
extern fn ise_post(content: String) -> Void
|
||||
extern fn elapsed_ms() -> Int
|
||||
extern fn elapsed_human() -> String
|
||||
extern fn embed_ok() -> Int
|
||||
extern fn emit_heartbeat() -> Void
|
||||
extern fn auto_term_try_slot(slot_type: String, slot_lbl: String) -> Void
|
||||
extern fn proactive_curiosity() -> Bool
|
||||
extern fn pulse_count() -> Int
|
||||
extern fn pulse_inc() -> Int
|
||||
extern fn make_action(kind: String, payload: String) -> String
|
||||
@@ -8,3 +18,9 @@ extern fn respond(action_json: String) -> String
|
||||
extern fn record(outcome_json: String) -> Void
|
||||
extern fn one_cycle() -> Bool
|
||||
extern fn awareness_run() -> Void
|
||||
extern fn security_research_authorized() -> Bool
|
||||
extern fn threat_score_command(cmd: String) -> Int
|
||||
extern fn threat_score_path(path: String) -> Int
|
||||
extern fn threat_score_history(history: String) -> Int
|
||||
extern fn threat_trajectory_check(tool_name: String, tool_input: String) -> Int
|
||||
extern fn threat_history_append(text: String) -> Void
|
||||
|
||||
+1403
-119
File diff suppressed because one or more lines are too long
+49
-1
@@ -1,22 +1,70 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn chat_default_model() -> String
|
||||
extern fn engram_numeric_valid(s: String) -> Bool
|
||||
extern fn parse_float_x100(s: String) -> Int
|
||||
extern fn engram_score_node(node_json: String) -> Int
|
||||
extern fn engram_render_node(node_json: String) -> String
|
||||
extern fn engram_render_nodes(nodes_json: String) -> String
|
||||
extern fn engram_dedup_nodes(nodes_json: String) -> String
|
||||
extern fn engram_compile_ranked(nodes_json: String, max_nodes: Int) -> String
|
||||
extern fn engram_split_topics(message: String) -> String
|
||||
extern fn engram_extract_entities(message: String) -> String
|
||||
extern fn engram_detect_recall_intent(message: String) -> Bool
|
||||
extern fn engram_is_continuation(message: String, hist_len: Int) -> Bool
|
||||
extern fn engram_compile_multi(topic: String) -> String
|
||||
extern fn engram_nodes_merge(a: String, b: String) -> String
|
||||
extern fn id_in_seen(node_id: String, seen: String) -> Bool
|
||||
extern fn add_to_seen(seen: String, node_id: String) -> String
|
||||
extern fn engram_extract_ids(nodes_json: String) -> String
|
||||
extern fn engram_compile(intent: String) -> String
|
||||
extern fn distill_transcript(transcript: String) -> String
|
||||
extern fn json_safe(s: String) -> String
|
||||
extern fn build_system_prompt(ctx: String) -> String
|
||||
extern fn current_engine_note(model: String) -> String
|
||||
extern fn build_system_prompt(ctx: String, chat_mode: Bool) -> String
|
||||
extern fn hist_append(hist: String, role: String, content: String) -> String
|
||||
extern fn hist_trim(hist: String) -> String
|
||||
extern fn hist_trim_with_bell_guard(hist: String) -> String
|
||||
extern fn clean_llm_response(s: String) -> String
|
||||
extern fn conv_history_persist(hist: String) -> Void
|
||||
extern fn conv_history_load() -> String
|
||||
extern fn session_preload_bullets(nodes: String, max_bullets: Int, snip_len: Int) -> String
|
||||
extern fn affective_context_prefix() -> String
|
||||
extern fn handle_chat(body: String) -> String
|
||||
extern fn handle_see(body: String) -> String
|
||||
extern fn studio_tools_json() -> String
|
||||
extern fn agentic_api_key() -> String
|
||||
extern fn llm_base_url() -> String
|
||||
extern fn llm_wire_format() -> String
|
||||
extern fn json_escape(s: String) -> String
|
||||
extern fn openai_chat_complete(model: String, base_url: String, api_key: String, safe_sys: String, messages_json: String) -> String
|
||||
extern fn agentic_tools_literal() -> String
|
||||
extern fn agentic_tools_with_web() -> String
|
||||
extern fn connector_tools_json() -> String
|
||||
extern fn agentic_tools_all() -> String
|
||||
extern fn call_mcp_bridge(tool_name: String, tool_input: String) -> String
|
||||
extern fn tool_auto_approved(tool_name: String) -> Bool
|
||||
extern fn call_neuron_mcp(tool_name: String, args: String) -> String
|
||||
extern fn agent_workspace_root() -> String
|
||||
extern fn path_within_root(path: String, root: String) -> Bool
|
||||
extern fn resolve_in_root(path: String, root: String) -> String
|
||||
extern fn run_command_is_readonly(cmd: String) -> Bool
|
||||
extern fn cmd_abs_escape_at(cmd: String, root: String, needle: String) -> Bool
|
||||
extern fn run_command_guard(cmd: String, root: String) -> String
|
||||
extern fn classify_tool_risk(tool_name: String, tool_input: String) -> String
|
||||
extern fn dispatch_tool(tool_name: String, tool_input: String) -> String
|
||||
extern fn is_builtin_tool(tool_name: String) -> Bool
|
||||
extern fn next_bridge_id() -> String
|
||||
extern fn handle_chat_plan(body: String) -> String
|
||||
extern fn handle_chat_agentic(body: String) -> String
|
||||
extern fn agentic_loop(session_id: String, model: String, safe_sys: String, tools_json: String, messages_in: String, h: Map, tools_log_in: String) -> String
|
||||
extern fn bridge_save(session_id: String, model: String, safe_sys: String, tools_json: String, messages: String, tools_log: String, tool_use_id: String) -> Bool
|
||||
extern fn agentic_resume(session_id: String, tool_use_id: String, content: String) -> String
|
||||
extern fn handle_tool_result(session_id: String, body: String) -> String
|
||||
extern fn handle_chat_as_soul(body: String) -> String
|
||||
extern fn handle_dharma_room_turn(body: String) -> String
|
||||
extern fn handle_dharma_room_turn_agentic(body: String) -> String
|
||||
extern fn session_summary_write(summary_text: String) -> String
|
||||
extern fn session_summary_write_dated(summary_text: String, label: String) -> String
|
||||
extern fn session_summary_autogenerate(hist: String) -> String
|
||||
extern fn auto_persist(req: String, resp: String) -> Void
|
||||
extern fn strengthen_chat_nodes(activation_nodes: String) -> Void
|
||||
|
||||
+45
@@ -0,0 +1,45 @@
|
||||
/* Auto-generated: ELP package master declarations */
|
||||
#include "awareness.elh"
|
||||
#include "chat.elh"
|
||||
#include "elp-input.elh"
|
||||
#include "elp.elh"
|
||||
#include "grammar.elh"
|
||||
#include "language-profile.elh"
|
||||
#include "memory.elh"
|
||||
#include "morphology-akk.elh"
|
||||
#include "morphology-ang.elh"
|
||||
#include "morphology-ar.elh"
|
||||
#include "morphology-cop.elh"
|
||||
#include "morphology-de.elh"
|
||||
#include "morphology-egy.elh"
|
||||
#include "morphology-enm.elh"
|
||||
#include "morphology-es.elh"
|
||||
#include "morphology-fi.elh"
|
||||
#include "morphology-fr.elh"
|
||||
#include "morphology-fro.elh"
|
||||
#include "morphology-gez.elh"
|
||||
#include "morphology-goh.elh"
|
||||
#include "morphology-got.elh"
|
||||
#include "morphology-grc.elh"
|
||||
#include "morphology-he.elh"
|
||||
#include "morphology-hi.elh"
|
||||
#include "morphology-ja.elh"
|
||||
#include "morphology-la.elh"
|
||||
#include "morphology-non.elh"
|
||||
#include "morphology-peo.elh"
|
||||
#include "morphology-pi.elh"
|
||||
#include "morphology-ru.elh"
|
||||
#include "morphology-sa.elh"
|
||||
#include "morphology-sga.elh"
|
||||
#include "morphology-sux.elh"
|
||||
#include "morphology-sw.elh"
|
||||
#include "morphology-txb.elh"
|
||||
#include "morphology-uga.elh"
|
||||
#include "morphology.elh"
|
||||
#include "neuron-api.elh"
|
||||
#include "realizer.elh"
|
||||
#include "routes.elh"
|
||||
#include "semantics.elh"
|
||||
#include "soul.elh"
|
||||
#include "studio.elh"
|
||||
#include "vocabulary.elh"
|
||||
+158
-10
@@ -2,10 +2,27 @@
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t add_punct(el_val_t s, el_val_t intent);
|
||||
el_val_t add_to_seen(el_val_t seen, el_val_t node_id);
|
||||
el_val_t aff_try_slot(el_val_t slot_json, el_val_t aff_7d_ts, el_val_t acc_key);
|
||||
el_val_t affective_context_prefix(void);
|
||||
el_val_t is_utility_request(el_val_t body, el_val_t session_id);
|
||||
el_val_t operator_identity_block(void);
|
||||
el_val_t provenance_add_sources(el_val_t block, el_val_t btype, el_val_t has_cit, el_val_t cit_raw, el_val_t acc);
|
||||
el_val_t provenance_names(el_val_t tools_used);
|
||||
el_val_t provenance_scan_urls(el_val_t arr, el_val_t acc);
|
||||
el_val_t text_join_sep(el_val_t accumulated, el_val_t incoming, el_val_t after_interruption);
|
||||
el_val_t receipt_rule(void);
|
||||
el_val_t receipt_strip(el_val_t s);
|
||||
el_val_t tool_receipt(el_val_t tools_used, el_val_t sources);
|
||||
el_val_t agent_number(el_val_t agent);
|
||||
el_val_t agent_person(el_val_t agent);
|
||||
el_val_t agent_workspace_root(void);
|
||||
el_val_t agentic_api_key(void);
|
||||
el_val_t agentic_loop(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages_in, el_val_t h, el_val_t tools_log_in);
|
||||
el_val_t agentic_resume(el_val_t session_id, el_val_t tool_use_id, el_val_t content);
|
||||
el_val_t agentic_tools_all(void);
|
||||
el_val_t agentic_tools_literal(void);
|
||||
el_val_t agentic_tools_with_web(void);
|
||||
el_val_t agree_determiner(el_val_t det, el_val_t noun);
|
||||
el_val_t akk_alaku_perfect(el_val_t slot);
|
||||
el_val_t akk_alaku_present(el_val_t slot);
|
||||
@@ -80,14 +97,21 @@ el_val_t ang_willan_past(el_val_t slot);
|
||||
el_val_t ang_willan_present(el_val_t slot);
|
||||
el_val_t ang_witan_past(el_val_t slot);
|
||||
el_val_t ang_witan_present(el_val_t slot);
|
||||
el_val_t api_compact_activated(el_val_t raw, el_val_t max_items, el_val_t snip);
|
||||
el_val_t api_compact_node(el_val_t node, el_val_t snip);
|
||||
el_val_t api_compact_node_array(el_val_t raw, el_val_t max_items, el_val_t snip);
|
||||
el_val_t api_err(el_val_t msg);
|
||||
el_val_t api_err_protected(el_val_t id);
|
||||
el_val_t api_json_escape(el_val_t s);
|
||||
el_val_t api_nonempty(el_val_t s);
|
||||
el_val_t api_not_persisted(el_val_t id);
|
||||
el_val_t api_num_or_zero(el_val_t obj, el_val_t key);
|
||||
el_val_t api_ok(el_val_t extra);
|
||||
el_val_t api_or_empty(el_val_t s);
|
||||
el_val_t api_persisted(el_val_t id);
|
||||
el_val_t api_query_int(el_val_t path, el_val_t key, el_val_t default_val);
|
||||
el_val_t api_query_param(el_val_t path, el_val_t key);
|
||||
el_val_t api_utf8_trunc(el_val_t s, el_val_t n);
|
||||
el_val_t ar_case_ending(el_val_t kase, el_val_t definite);
|
||||
el_val_t ar_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t gender, el_val_t number);
|
||||
el_val_t ar_conjugate_form1(el_val_t past_base, el_val_t present_stem, el_val_t tense, el_val_t slot);
|
||||
@@ -117,24 +141,36 @@ el_val_t ar_verb_form(el_val_t verb, el_val_t tense, el_val_t person, el_val_t n
|
||||
el_val_t attend(el_val_t node_json);
|
||||
el_val_t auth_headers(el_val_t tok);
|
||||
el_val_t auto_persist(el_val_t req, el_val_t resp);
|
||||
el_val_t auto_term_try_slot(el_val_t slot_type, el_val_t slot_lbl);
|
||||
el_val_t awareness_run(void);
|
||||
el_val_t axon_get(el_val_t path);
|
||||
el_val_t axon_post(el_val_t path, el_val_t body);
|
||||
el_val_t bounded_persona_floor(void);
|
||||
el_val_t bridge_save(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages, el_val_t tools_log, el_val_t tool_use_id, el_val_t wire);
|
||||
el_val_t build_form_from_json(el_val_t semantic_form_json, el_val_t lang_code);
|
||||
el_val_t build_identity_from_graph(void);
|
||||
el_val_t build_np(el_val_t referent, el_val_t slots);
|
||||
el_val_t build_pp(el_val_t loc);
|
||||
el_val_t build_rules(void);
|
||||
el_val_t build_system_prompt(el_val_t ctx);
|
||||
el_val_t build_system_prompt(el_val_t ctx, el_val_t chat_mode);
|
||||
el_val_t build_vocab(void);
|
||||
el_val_t build_vp_body(el_val_t slots);
|
||||
el_val_t build_vp_from_slots(el_val_t slots);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args_json);
|
||||
el_val_t call_mcp_bridge(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args);
|
||||
el_val_t capitalize_first(el_val_t s);
|
||||
el_val_t chat_default_model(void);
|
||||
el_val_t classify_tool_risk(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t clean_llm_response(el_val_t s);
|
||||
el_val_t conv_history_load(void);
|
||||
el_val_t conv_history_persist(el_val_t hist);
|
||||
el_val_t cmd_abs_escape_at(el_val_t cmd, el_val_t root, el_val_t needle);
|
||||
el_val_t connectd_get(el_val_t suffix);
|
||||
el_val_t connectd_post(el_val_t suffix, el_val_t body);
|
||||
el_val_t connector_tools_json(void);
|
||||
el_val_t conv_hist_key(el_val_t session_id);
|
||||
el_val_t conv_hist_label(el_val_t session_id);
|
||||
el_val_t conv_history_block(el_val_t session_id);
|
||||
el_val_t conv_history_load(el_val_t session_id);
|
||||
el_val_t conv_history_persist(el_val_t session_id, el_val_t hist);
|
||||
el_val_t conv_history_record(el_val_t session_id, el_val_t user_msg, el_val_t assistant_msg, el_val_t receipt);
|
||||
el_val_t cop_article(el_val_t gender, el_val_t number, el_val_t definite);
|
||||
el_val_t cop_bwk_future(el_val_t prefix);
|
||||
el_val_t cop_bwk_perfect(el_val_t prefix);
|
||||
@@ -169,6 +205,7 @@ el_val_t cop_str_ends(el_val_t s, el_val_t suf);
|
||||
el_val_t cop_str_len(el_val_t s);
|
||||
el_val_t cop_subject_prefix(el_val_t person, el_val_t number);
|
||||
el_val_t cop_subject_prefix_gendered(el_val_t person, el_val_t gender, el_val_t number);
|
||||
el_val_t current_engine_note(el_val_t model);
|
||||
el_val_t de_adj_ending(el_val_t gender, el_val_t gram_case, el_val_t number, el_val_t article_type);
|
||||
el_val_t de_article(el_val_t gender, el_val_t gram_case, el_val_t number, el_val_t definite);
|
||||
el_val_t de_article_def(el_val_t gender, el_val_t gram_case, el_val_t number);
|
||||
@@ -184,6 +221,7 @@ el_val_t de_strong_past_stem(el_val_t verb);
|
||||
el_val_t dharma_network_state(void);
|
||||
el_val_t dharma_registry(void);
|
||||
el_val_t dispatch_tool(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t distill_transcript(el_val_t transcript);
|
||||
el_val_t egy_Dd_future(el_val_t slot);
|
||||
el_val_t egy_Dd_past(el_val_t slot);
|
||||
el_val_t egy_Dd_present(el_val_t slot);
|
||||
@@ -239,6 +277,19 @@ el_val_t en_verb_form(el_val_t base, el_val_t tense, el_val_t person, el_val_t n
|
||||
el_val_t en_verb_gerund(el_val_t base);
|
||||
el_val_t en_verb_past(el_val_t base);
|
||||
el_val_t engram_compile(el_val_t intent);
|
||||
el_val_t engram_compile_multi(el_val_t topic);
|
||||
el_val_t engram_compile_ranked(el_val_t nodes_json, el_val_t max_nodes);
|
||||
el_val_t engram_dedup_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_detect_recall_intent(el_val_t message);
|
||||
el_val_t engram_extract_entities(el_val_t message);
|
||||
el_val_t engram_extract_ids(el_val_t nodes_json);
|
||||
el_val_t engram_is_continuation(el_val_t message, el_val_t hist_len);
|
||||
el_val_t engram_nodes_merge(el_val_t a, el_val_t b);
|
||||
el_val_t engram_numeric_valid(el_val_t s);
|
||||
el_val_t engram_render_node(el_val_t node_json);
|
||||
el_val_t engram_render_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_score_node(el_val_t node_json);
|
||||
el_val_t engram_split_topics(el_val_t message);
|
||||
el_val_t enm_been_past(el_val_t slot);
|
||||
el_val_t enm_been_present(el_val_t slot);
|
||||
el_val_t enm_comen_past(el_val_t slot);
|
||||
@@ -268,6 +319,7 @@ el_val_t enm_str_ends(el_val_t s, el_val_t suf);
|
||||
el_val_t enm_weak_past(el_val_t stem, el_val_t slot);
|
||||
el_val_t enm_weak_present(el_val_t stem, el_val_t slot);
|
||||
el_val_t enm_weak_stem(el_val_t verb);
|
||||
el_val_t ensure_self_canonical_bridge(void);
|
||||
el_val_t entry_form(el_val_t entry, el_val_t n);
|
||||
el_val_t entry_found(el_val_t entry);
|
||||
el_val_t entry_pos(el_val_t entry);
|
||||
@@ -296,6 +348,7 @@ el_val_t es_str_last2(el_val_t s);
|
||||
el_val_t es_str_last3(el_val_t s);
|
||||
el_val_t es_str_last_char(el_val_t s);
|
||||
el_val_t es_verb_class(el_val_t base);
|
||||
el_val_t extract_dim(el_val_t content, el_val_t key);
|
||||
el_val_t fi_apply_case(el_val_t noun, el_val_t gram_case, el_val_t number);
|
||||
el_val_t fi_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
el_val_t fi_full_paradigm(el_val_t noun);
|
||||
@@ -313,6 +366,7 @@ el_val_t fi_str_last_char(el_val_t s);
|
||||
el_val_t fi_suffix(el_val_t base, el_val_t harmony);
|
||||
el_val_t fi_verb_stem(el_val_t dict_form);
|
||||
el_val_t find_rule(el_val_t rule_id_str);
|
||||
el_val_t flag_true(el_val_t body, el_val_t key);
|
||||
el_val_t fr_agree_article(el_val_t noun, el_val_t definite, el_val_t number);
|
||||
el_val_t fr_avoir_present(el_val_t slot);
|
||||
el_val_t fr_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
@@ -378,7 +432,6 @@ el_val_t fro_venir_past(el_val_t slot);
|
||||
el_val_t fro_venir_present(el_val_t slot);
|
||||
el_val_t fro_verb_class(el_val_t verb);
|
||||
el_val_t fro_verb_stem(el_val_t verb, el_val_t vclass);
|
||||
el_val_t gemini_api_key(void);
|
||||
el_val_t generate(el_val_t semantic_form_json);
|
||||
el_val_t generate_frame(el_val_t frame);
|
||||
el_val_t generate_frame_lang(el_val_t frame, el_val_t lang_code);
|
||||
@@ -545,6 +598,11 @@ el_val_t handle_api_link_entities(el_val_t body);
|
||||
el_val_t handle_api_list_state_events(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_list_typed(el_val_t node_type, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_log_state_event(el_val_t body);
|
||||
el_val_t handle_api_memory_delete(el_val_t body);
|
||||
el_val_t handle_api_memory_update(el_val_t body);
|
||||
el_val_t handle_api_node_create(el_val_t body);
|
||||
el_val_t handle_api_node_delete(el_val_t body);
|
||||
el_val_t handle_api_node_update(el_val_t body);
|
||||
el_val_t handle_api_promote_knowledge(el_val_t body);
|
||||
el_val_t handle_api_recall(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_remember(el_val_t body);
|
||||
@@ -553,7 +611,9 @@ el_val_t handle_api_tune_config(el_val_t body);
|
||||
el_val_t handle_chat(el_val_t body);
|
||||
el_val_t handle_chat_agentic(el_val_t body);
|
||||
el_val_t handle_chat_as_soul(el_val_t body);
|
||||
el_val_t handle_chat_plan(el_val_t body);
|
||||
el_val_t handle_config(el_val_t method, el_val_t body);
|
||||
el_val_t handle_connectors(el_val_t method, el_val_t clean, el_val_t body);
|
||||
el_val_t handle_conversations(el_val_t method);
|
||||
el_val_t handle_dharma(el_val_t path, el_val_t method, el_val_t body);
|
||||
el_val_t handle_dharma_recv(el_val_t body);
|
||||
@@ -562,8 +622,13 @@ el_val_t handle_dharma_room_turn_agentic(el_val_t body);
|
||||
el_val_t handle_elp_chat(el_val_t body);
|
||||
el_val_t handle_nlg(el_val_t path, el_val_t method, el_val_t body);
|
||||
el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_safety_contact_get(void);
|
||||
el_val_t handle_safety_contact_post(el_val_t body);
|
||||
el_val_t handle_see(el_val_t body);
|
||||
el_val_t handle_session_approve(el_val_t session_id, el_val_t body);
|
||||
el_val_t handle_tool(el_val_t path, el_val_t method, el_val_t body);
|
||||
el_val_t handle_tool_result(el_val_t session_id, el_val_t body);
|
||||
el_val_t hard_bell_threshold(void);
|
||||
el_val_t he_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t gender, el_val_t number);
|
||||
el_val_t he_conjugate_copula(el_val_t tense, el_val_t slot);
|
||||
el_val_t he_copula_future(el_val_t slot);
|
||||
@@ -593,6 +658,7 @@ el_val_t he_str_drop_last(el_val_t s, el_val_t n);
|
||||
el_val_t he_str_ends(el_val_t s, el_val_t suf);
|
||||
el_val_t he_str_last_char(el_val_t s);
|
||||
el_val_t he_str_len(el_val_t s);
|
||||
el_val_t hebb_consolidate(void);
|
||||
el_val_t hi_agree_genitive(el_val_t possessed_gender, el_val_t possessed_number);
|
||||
el_val_t hi_aux_present(el_val_t person, el_val_t number);
|
||||
el_val_t hi_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t gender, el_val_t number);
|
||||
@@ -621,12 +687,21 @@ el_val_t hi_verb_stem(el_val_t infinitive);
|
||||
el_val_t hi_verb_stem_clean(el_val_t infinitive);
|
||||
el_val_t hist_append(el_val_t hist, el_val_t role, el_val_t content);
|
||||
el_val_t hist_trim(el_val_t hist);
|
||||
el_val_t hist_trim_with_bell_guard(el_val_t hist);
|
||||
el_val_t id_in_seen(el_val_t node_id, el_val_t seen);
|
||||
el_val_t idle_count(void);
|
||||
el_val_t idle_inc(void);
|
||||
el_val_t idle_reset(void);
|
||||
el_val_t imprint_current(void);
|
||||
el_val_t imprint_load(el_val_t imprint_id);
|
||||
el_val_t imprint_respond(el_val_t input, el_val_t imprint_id);
|
||||
el_val_t imprint_surface_knowledge(el_val_t query, el_val_t imprint_id);
|
||||
el_val_t imprint_surface_memory_read(el_val_t query);
|
||||
el_val_t imprint_unload(void);
|
||||
el_val_t init_soul_edges(void);
|
||||
el_val_t irregular_plural(el_val_t word);
|
||||
el_val_t irregular_singular(el_val_t word);
|
||||
el_val_t is_builtin_tool(el_val_t tool_name);
|
||||
el_val_t is_pronoun(el_val_t word);
|
||||
el_val_t is_protected_node(el_val_t id);
|
||||
el_val_t is_vowel(el_val_t c);
|
||||
@@ -639,6 +714,7 @@ el_val_t ja_noun_phrase(el_val_t noun, el_val_t gram_case);
|
||||
el_val_t ja_particle(el_val_t gram_case);
|
||||
el_val_t ja_question_particle(void);
|
||||
el_val_t ja_verb_group(el_val_t dict_form);
|
||||
el_val_t json_escape(el_val_t s);
|
||||
el_val_t json_safe(el_val_t s);
|
||||
el_val_t la_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
el_val_t la_declension(el_val_t noun);
|
||||
@@ -725,12 +801,14 @@ el_val_t lang_profile_txb(void);
|
||||
el_val_t lang_profile_uga(void);
|
||||
el_val_t lang_profile_zh(void);
|
||||
el_val_t lang_word_order(el_val_t profile);
|
||||
el_val_t layered_cycle(el_val_t raw_input, el_val_t session_id, el_val_t utility);
|
||||
el_val_t layered_generate(el_val_t prompt, el_val_t imprint_id, el_val_t session_id);
|
||||
el_val_t lex_class(el_val_t entry);
|
||||
el_val_t lex_form(el_val_t entry, el_val_t idx);
|
||||
el_val_t lex_pos(el_val_t entry);
|
||||
el_val_t lex_word(el_val_t entry);
|
||||
el_val_t llm_call_gemini(el_val_t model, el_val_t system, el_val_t message);
|
||||
el_val_t llm_call_grok(el_val_t model, el_val_t system, el_val_t message);
|
||||
el_val_t llm_base_url(void);
|
||||
el_val_t llm_wire_format(void);
|
||||
el_val_t load_identity_context(void);
|
||||
el_val_t make_action(el_val_t kind, el_val_t payload);
|
||||
el_val_t make_entry(el_val_t word, el_val_t pos, el_val_t f0, el_val_t f1, el_val_t f2, el_val_t f3, el_val_t f4, el_val_t cls);
|
||||
@@ -763,11 +841,14 @@ el_val_t mem_save(el_val_t path);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_tombstone(el_val_t node_id);
|
||||
el_val_t memory_hide_tombstoned(el_val_t raw, el_val_t path);
|
||||
el_val_t morph_apply_suffix(el_val_t base, el_val_t suffix);
|
||||
el_val_t morph_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number, el_val_t profile);
|
||||
el_val_t morph_inflect(el_val_t word, el_val_t features, el_val_t profile);
|
||||
el_val_t morph_map_canonical(el_val_t verb, el_val_t code);
|
||||
el_val_t morph_pluralize(el_val_t noun, el_val_t profile);
|
||||
el_val_t next_bridge_id(void);
|
||||
el_val_t nlg_is_ws(el_val_t c);
|
||||
el_val_t non_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
el_val_t non_decline(el_val_t noun, el_val_t gram_case, el_val_t number);
|
||||
@@ -799,6 +880,14 @@ el_val_t non_vera_present(el_val_t slot);
|
||||
el_val_t non_weak_past(el_val_t stem, el_val_t slot);
|
||||
el_val_t non_weak_present(el_val_t stem, el_val_t slot);
|
||||
el_val_t one_cycle(void);
|
||||
el_val_t openai_chat_complete(el_val_t model, el_val_t base_url, el_val_t api_key, el_val_t safe_sys, el_val_t messages_json);
|
||||
el_val_t openai_tools_json(el_val_t tools_anthropic);
|
||||
el_val_t json_trim_dangling_escape(el_val_t s);
|
||||
el_val_t utf8_safe_slice(el_val_t s, el_val_t n);
|
||||
el_val_t agentic_tools_no_web(void);
|
||||
el_val_t openai_agentic_loop(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages_in, el_val_t tools_log_in);
|
||||
el_val_t parse_float_x100(el_val_t s);
|
||||
el_val_t path_within_root(el_val_t path, el_val_t root);
|
||||
el_val_t peo_ah_past(el_val_t slot);
|
||||
el_val_t peo_ah_present(el_val_t slot);
|
||||
el_val_t peo_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
@@ -852,8 +941,10 @@ el_val_t pi_vadati_aorist(el_val_t slot);
|
||||
el_val_t pi_vadati_future(el_val_t slot);
|
||||
el_val_t pi_vadati_present(el_val_t slot);
|
||||
el_val_t pluralize(el_val_t singular);
|
||||
el_val_t proactive_curiosity(void);
|
||||
el_val_t pulse_count(void);
|
||||
el_val_t pulse_inc(void);
|
||||
el_val_t rate_limit_check(el_val_t ip, el_val_t path);
|
||||
el_val_t realize(el_val_t form);
|
||||
el_val_t realize_lang(el_val_t form, el_val_t profile);
|
||||
el_val_t realize_np(el_val_t referent, el_val_t number);
|
||||
@@ -862,12 +953,12 @@ el_val_t realize_vp_lang(el_val_t base_verb, el_val_t tense, el_val_t aspect, el
|
||||
el_val_t record(el_val_t outcome_json);
|
||||
el_val_t render_studio(void);
|
||||
el_val_t render_tree(el_val_t tree);
|
||||
el_val_t resolve_in_root(el_val_t path, el_val_t root);
|
||||
el_val_t respond(el_val_t action_json);
|
||||
el_val_t route_health(void);
|
||||
el_val_t route_imprint_contextual(el_val_t body);
|
||||
el_val_t route_imprint_user(el_val_t body);
|
||||
el_val_t route_lineage(void);
|
||||
el_val_t route_sessions(void);
|
||||
el_val_t route_synthesize(el_val_t body);
|
||||
el_val_t ru_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number, el_val_t gender);
|
||||
el_val_t ru_conjugate_1st(el_val_t stem, el_val_t tense, el_val_t person, el_val_t number);
|
||||
@@ -886,6 +977,8 @@ el_val_t rule_id(el_val_t rule);
|
||||
el_val_t rule_lhs(el_val_t rule);
|
||||
el_val_t rule_rhs(el_val_t rule, el_val_t idx);
|
||||
el_val_t rule_rhs_len(el_val_t rule);
|
||||
el_val_t run_command_guard(el_val_t cmd, el_val_t root);
|
||||
el_val_t run_command_is_readonly(el_val_t cmd);
|
||||
el_val_t sa_as_future(el_val_t slot);
|
||||
el_val_t sa_as_past(el_val_t slot);
|
||||
el_val_t sa_as_present(el_val_t slot);
|
||||
@@ -921,6 +1014,30 @@ el_val_t sa_str_ends(el_val_t s, el_val_t suf);
|
||||
el_val_t sa_vad_future(el_val_t slot);
|
||||
el_val_t sa_vad_past(el_val_t slot);
|
||||
el_val_t sa_vad_present(el_val_t slot);
|
||||
el_val_t safety_abuse_phrases(void);
|
||||
el_val_t safety_any_match(el_val_t text, el_val_t phrases_json);
|
||||
el_val_t safety_augment_system(el_val_t system, el_val_t user_msg);
|
||||
el_val_t safety_classify_hard_bell(el_val_t message);
|
||||
el_val_t safety_contact_path(void);
|
||||
el_val_t safety_count_match(el_val_t text, el_val_t phrases_json);
|
||||
el_val_t safety_detect_bell_level(el_val_t message);
|
||||
el_val_t safety_detect_positive_level(el_val_t message);
|
||||
el_val_t safety_general_hard_phrases(void);
|
||||
el_val_t safety_hard_directive(el_val_t hard_type);
|
||||
el_val_t safety_log_bell(el_val_t level, el_val_t reason, el_val_t input_summary);
|
||||
el_val_t safety_normalize(el_val_t message);
|
||||
el_val_t safety_positive_phrases(void);
|
||||
el_val_t safety_score_crisis(el_val_t input);
|
||||
el_val_t safety_score_danger(el_val_t input);
|
||||
el_val_t safety_score_distress_history(el_val_t history);
|
||||
el_val_t safety_score_harm(el_val_t input);
|
||||
el_val_t safety_screen(el_val_t input, el_val_t history);
|
||||
el_val_t safety_self_harm_phrases(void);
|
||||
el_val_t safety_soft_directive(void);
|
||||
el_val_t safety_soft_phrases(void);
|
||||
el_val_t safety_threat_score(el_val_t input, el_val_t history);
|
||||
el_val_t safety_threat_to_others_phrases(void);
|
||||
el_val_t safety_validate(el_val_t output, el_val_t action);
|
||||
el_val_t scan_token(el_val_t s, el_val_t start);
|
||||
el_val_t security_research_authorized(void);
|
||||
el_val_t seed_persona_from_env(void);
|
||||
@@ -942,6 +1059,25 @@ el_val_t sem_realize_lang(el_val_t frame, el_val_t lang_code);
|
||||
el_val_t sem_subject(el_val_t frame);
|
||||
el_val_t sem_to_spec(el_val_t frame);
|
||||
el_val_t sem_to_spec_full(el_val_t frame, el_val_t verb, el_val_t tense, el_val_t aspect);
|
||||
el_val_t session_auto_title(el_val_t session_id, el_val_t first_message);
|
||||
el_val_t session_create(el_val_t body);
|
||||
el_val_t session_create_cleanup(el_val_t session_id);
|
||||
el_val_t session_delete(el_val_t session_id);
|
||||
el_val_t session_exists(el_val_t session_id);
|
||||
el_val_t session_get(el_val_t session_id);
|
||||
el_val_t session_hist_load(el_val_t session_id);
|
||||
el_val_t session_hist_save(el_val_t session_id, el_val_t hist);
|
||||
el_val_t session_list(void);
|
||||
el_val_t session_make_content(el_val_t id, el_val_t title, el_val_t created_at, el_val_t updated_at, el_val_t folder);
|
||||
el_val_t session_preload_bullets(el_val_t nodes, el_val_t max_bullets, el_val_t snip_len);
|
||||
el_val_t session_search(el_val_t query);
|
||||
el_val_t session_search_entry(el_val_t node);
|
||||
el_val_t session_summary_autogenerate(el_val_t hist);
|
||||
el_val_t session_summary_write(el_val_t summary_text);
|
||||
el_val_t session_summary_write_dated(el_val_t summary_text, el_val_t label);
|
||||
el_val_t session_title_from_message(el_val_t message);
|
||||
el_val_t session_update_meta_timestamp(el_val_t session_id);
|
||||
el_val_t session_update_patch(el_val_t session_id, el_val_t body);
|
||||
el_val_t sga_adci_present(el_val_t slot);
|
||||
el_val_t sga_ai_present(el_val_t stem, el_val_t slot);
|
||||
el_val_t sga_asbeir_present(el_val_t slot);
|
||||
@@ -967,6 +1103,16 @@ el_val_t singularize(el_val_t plural);
|
||||
el_val_t skip_ws(el_val_t s, el_val_t pos);
|
||||
el_val_t slots_get(el_val_t slots, el_val_t key);
|
||||
el_val_t slots_set(el_val_t slots, el_val_t key, el_val_t val);
|
||||
el_val_t soft_bell_threshold(void);
|
||||
el_val_t steward_align(el_val_t input, el_val_t imprint_id);
|
||||
el_val_t steward_build_baseline(void);
|
||||
el_val_t steward_cgi_check(el_val_t action);
|
||||
el_val_t steward_check_continuity(el_val_t current_fingerprint, el_val_t session_id);
|
||||
el_val_t steward_fingerprint_session(el_val_t input, el_val_t session_id);
|
||||
el_val_t steward_get_mission(void);
|
||||
el_val_t steward_log_event(el_val_t kind, el_val_t detail);
|
||||
el_val_t steward_session_check(el_val_t input, el_val_t session_id);
|
||||
el_val_t steward_validate_imprint(el_val_t imprint_id, el_val_t tool_name);
|
||||
el_val_t str_drop_last(el_val_t s, el_val_t n);
|
||||
el_val_t str_ends(el_val_t s, el_val_t suf);
|
||||
el_val_t str_last2(el_val_t s);
|
||||
@@ -1033,6 +1179,9 @@ el_val_t threat_trajectory_check(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t tier_canonical(void);
|
||||
el_val_t tier_episodic(void);
|
||||
el_val_t tier_working(void);
|
||||
el_val_t tombstone_node(el_val_t id);
|
||||
el_val_t tombstoned_id_set(void);
|
||||
el_val_t tool_auto_approved(el_val_t tool_name);
|
||||
el_val_t txb_conjugate(el_val_t verb, el_val_t tense, el_val_t person, el_val_t number);
|
||||
el_val_t txb_decline(el_val_t noun, el_val_t gram_case, el_val_t number);
|
||||
el_val_t txb_decline_fem(el_val_t noun, el_val_t gram_case, el_val_t number);
|
||||
@@ -1079,4 +1228,3 @@ el_val_t vocab_by_pos(el_val_t pos);
|
||||
el_val_t vocab_lookup(el_val_t word, el_val_t lang_code);
|
||||
el_val_t vocab_lookup_en(el_val_t word);
|
||||
el_val_t vocab_synonym(el_val_t word, el_val_t lang_register, el_val_t lang_code);
|
||||
el_val_t xai_api_key(void);
|
||||
|
||||
+3
-3
@@ -1,7 +1,7 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn sem_get(json: String, key: String) -> String
|
||||
extern fn generate_frame(frame: Any) -> String
|
||||
extern fn generate_frame_lang(frame: Any, lang_code: String) -> String
|
||||
extern fn build_form_from_json(semantic_form_json: String, lang_code: String) -> Any
|
||||
extern fn generate_frame(frame: [String]) -> String
|
||||
extern fn generate_frame_lang(frame: [String], lang_code: String) -> String
|
||||
extern fn build_form_from_json(semantic_form_json: String, lang_code: String) -> [String]
|
||||
extern fn generate(semantic_form_json: String) -> String
|
||||
extern fn generate_lang(semantic_form_json: String, lang_code: String) -> String
|
||||
|
||||
+27
-27
@@ -1,22 +1,22 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn slots_get(slots: Any, key: String) -> String
|
||||
extern fn slots_set(slots: Any, key: String, val: String) -> Any
|
||||
extern fn make_slots(k0: String, v0: String) -> Any
|
||||
extern fn make_slots2(k0: String, v0: String, k1: String, v1: String) -> Any
|
||||
extern fn make_slots3(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String) -> Any
|
||||
extern fn make_slots4(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String, k3: String, v3: String) -> Any
|
||||
extern fn make_slots5(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String, k3: String, v3: String, k4: String, v4: String) -> Any
|
||||
extern fn rule_id(rule: Any) -> String
|
||||
extern fn rule_lhs(rule: Any) -> String
|
||||
extern fn rule_rhs_len(rule: Any) -> Int
|
||||
extern fn rule_rhs(rule: Any, idx: Int) -> String
|
||||
extern fn make_rule(id: String, lhs: String, r0: String) -> Any
|
||||
extern fn make_rule2(id: String, lhs: String, r0: String, r1: String) -> Any
|
||||
extern fn make_rule3(id: String, lhs: String, r0: String, r1: String, r2: String) -> Any
|
||||
extern fn make_rule4(id: String, lhs: String, r0: String, r1: String, r2: String, r3: String) -> Any
|
||||
extern fn build_rules() -> Any
|
||||
extern fn get_rules() -> Any
|
||||
extern fn find_rule(rule_id_str: String) -> Any
|
||||
extern fn slots_get(slots: [String], key: String) -> String
|
||||
extern fn slots_set(slots: [String], key: String, val: String) -> [String]
|
||||
extern fn make_slots(k0: String, v0: String) -> [String]
|
||||
extern fn make_slots2(k0: String, v0: String, k1: String, v1: String) -> [String]
|
||||
extern fn make_slots3(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String) -> [String]
|
||||
extern fn make_slots4(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String, k3: String, v3: String) -> [String]
|
||||
extern fn make_slots5(k0: String, v0: String, k1: String, v1: String, k2: String, v2: String, k3: String, v3: String, k4: String, v4: String) -> [String]
|
||||
extern fn rule_id(rule: [String]) -> String
|
||||
extern fn rule_lhs(rule: [String]) -> String
|
||||
extern fn rule_rhs_len(rule: [String]) -> Int
|
||||
extern fn rule_rhs(rule: [String], idx: Int) -> String
|
||||
extern fn make_rule(id: String, lhs: String, r0: String) -> [String]
|
||||
extern fn make_rule2(id: String, lhs: String, r0: String, r1: String) -> [String]
|
||||
extern fn make_rule3(id: String, lhs: String, r0: String, r1: String, r2: String) -> [String]
|
||||
extern fn make_rule4(id: String, lhs: String, r0: String, r1: String, r2: String, r3: String) -> [String]
|
||||
extern fn build_rules() -> [[String]]
|
||||
extern fn get_rules() -> [[String]]
|
||||
extern fn find_rule(rule_id_str: String) -> [String]
|
||||
extern fn make_leaf(label: String, word: String) -> String
|
||||
extern fn make_node1(label: String, child0: String) -> String
|
||||
extern fn make_node2(label: String, child0: String, child1: String) -> String
|
||||
@@ -24,15 +24,15 @@ extern fn make_node3(label: String, child0: String, child1: String, child2: Stri
|
||||
extern fn make_node4(label: String, child0: String, child1: String, child2: String, child3: String) -> String
|
||||
extern fn nlg_is_ws(c: String) -> Bool
|
||||
extern fn skip_ws(s: String, pos: Int) -> Int
|
||||
extern fn scan_token(s: String, start: Int) -> Any
|
||||
extern fn scan_token(s: String, start: Int) -> [String]
|
||||
extern fn render_tree(tree: String) -> String
|
||||
extern fn gram_word_order(profile: Any) -> String
|
||||
extern fn gram_order_constituents(subj: String, verb: String, obj: String, profile: Any) -> String
|
||||
extern fn gram_build_vp(verb: String, aux: String, profile: Any) -> String
|
||||
extern fn gram_question_strategy(profile: Any) -> String
|
||||
extern fn gram_word_order(profile: [String]) -> String
|
||||
extern fn gram_order_constituents(subj: String, verb: String, obj: String, profile: [String]) -> String
|
||||
extern fn gram_build_vp(verb: String, aux: String, profile: [String]) -> String
|
||||
extern fn gram_question_strategy(profile: [String]) -> String
|
||||
extern fn is_pronoun(word: String) -> Bool
|
||||
extern fn build_np(referent: String, slots: Any) -> String
|
||||
extern fn build_np(referent: String, slots: [String]) -> String
|
||||
extern fn build_pp(loc: String) -> String
|
||||
extern fn build_vp_body(slots: Any) -> String
|
||||
extern fn build_vp_from_slots(slots: Any) -> String
|
||||
extern fn generate_tree(rule_id_str: String, slots: Any) -> String
|
||||
extern fn build_vp_body(slots: [String]) -> String
|
||||
extern fn build_vp_from_slots(slots: [String]) -> String
|
||||
extern fn generate_tree(rule_id_str: String, slots: [String]) -> String
|
||||
|
||||
+72
@@ -0,0 +1,72 @@
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t imprint_current(void);
|
||||
el_val_t imprint_load(el_val_t imprint_id);
|
||||
el_val_t imprint_respond(el_val_t input, el_val_t imprint_id);
|
||||
el_val_t imprint_surface_knowledge(el_val_t query, el_val_t imprint_id);
|
||||
el_val_t imprint_surface_memory_read(el_val_t query);
|
||||
el_val_t imprint_unload(void);
|
||||
|
||||
el_val_t imprint_current(void) {
|
||||
el_val_t id = state_get(EL_STR("active_imprint_id"));
|
||||
return ({ el_val_t _if_result_1 = 0; if (str_eq(id, EL_STR(""))) { _if_result_1 = (EL_STR("base")); } else { _if_result_1 = (id); } _if_result_1; });
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t imprint_load(el_val_t imprint_id) {
|
||||
el_val_t label = el_str_concat(EL_STR("imprint:"), imprint_id);
|
||||
el_val_t results = engram_search_json(label, 1);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":false,\"error\":\"imprint not found: "), imprint_id), EL_STR("\"}"));
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":false,\"error\":\"imprint not found: "), imprint_id), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t found_label = json_get(results, EL_STR("label"));
|
||||
if (str_eq(found_label, label)) {
|
||||
state_set(EL_STR("active_imprint_id"), imprint_id);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), imprint_id), EL_STR("\"}"));
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":false,\"error\":\"imprint not found: "), imprint_id), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t imprint_respond(el_val_t input, el_val_t imprint_id) {
|
||||
if (str_eq(imprint_id, EL_STR("base"))) {
|
||||
return input;
|
||||
}
|
||||
if (str_eq(imprint_id, EL_STR(""))) {
|
||||
return input;
|
||||
}
|
||||
el_val_t current = imprint_current();
|
||||
if (str_eq(current, imprint_id)) {
|
||||
return el_str_concat(el_str_concat(el_str_concat(input, EL_STR(" [imprint:")), imprint_id), EL_STR(" active]"));
|
||||
}
|
||||
return input;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t imprint_surface_knowledge(el_val_t query, el_val_t imprint_id) {
|
||||
if (str_eq(imprint_id, EL_STR("base"))) {
|
||||
return engram_search_json(query, 10);
|
||||
}
|
||||
if (str_eq(imprint_id, EL_STR(""))) {
|
||||
return engram_search_json(query, 10);
|
||||
}
|
||||
el_val_t scoped_query = el_str_concat(el_str_concat(query, EL_STR(" domain:")), imprint_id);
|
||||
return engram_search_json(scoped_query, 10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t imprint_surface_memory_read(el_val_t query) {
|
||||
return engram_search_json(query, 10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t imprint_unload(void) {
|
||||
state_set(EL_STR("active_imprint_id"), EL_STR(""));
|
||||
return 0;
|
||||
}
|
||||
|
||||
+7
@@ -0,0 +1,7 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn imprint_current() -> String
|
||||
extern fn imprint_load(imprint_id: String) -> String
|
||||
extern fn imprint_respond(input: String, imprint_id: String) -> String
|
||||
extern fn imprint_surface_knowledge(query: String, imprint_id: String) -> String
|
||||
extern fn imprint_surface_memory_read(query: String) -> String
|
||||
extern fn imprint_unload() -> Void
|
||||
+109
-8
@@ -10,6 +10,7 @@ el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_tombstone(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
@@ -34,7 +35,18 @@ el_val_t tier_canonical(void) {
|
||||
}
|
||||
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags) {
|
||||
return engram_node_full(content, EL_STR("Memory"), label, el_from_float(0.5), el_from_float(0.5), el_from_float(0.8), EL_STR("Working"), tags);
|
||||
el_val_t id = engram_node_full(content, EL_STR("Memory"), label, el_from_float(0.5), el_from_float(0.5), el_from_float(0.8), EL_STR("Working"), tags);
|
||||
if (str_eq(id, EL_STR(""))) {
|
||||
println(el_str_concat(EL_STR("[memory] write rejected by engram (empty id): label="), label));
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t readback = engram_get_node_json(id);
|
||||
if (str_eq(readback, EL_STR("")) || str_eq(readback, EL_STR("{}"))) {
|
||||
println(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("[memory] WRITE VERIFY FAILED: label="), label), EL_STR(" id=")), id), EL_STR(" \xe2\x80\x94 node absent after write")));
|
||||
return EL_STR("");
|
||||
}
|
||||
println(el_str_concat(el_str_concat(EL_STR("[memory] write verified: "), id), EL_STR(" ok")));
|
||||
return id;
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -58,22 +70,60 @@ el_val_t mem_strengthen(el_val_t node_id) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_tombstone(el_val_t node_id) {
|
||||
el_val_t tags = EL_STR("[\"Tombstone\",\"status:deleted\"]");
|
||||
el_val_t marker = engram_node_full(node_id, EL_STR("Tombstone"), el_str_concat(EL_STR("tombstone:"), node_id), el_from_float(0.01), el_from_float(0.01), el_from_float(1.0), EL_STR("Episodic"), tags);
|
||||
if (!str_eq(marker, EL_STR(""))) {
|
||||
engram_connect(marker, node_id, el_from_float(1.0), EL_STR("tombstones"));
|
||||
}
|
||||
return marker;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_forget(el_val_t node_id) {
|
||||
engram_forget(node_id);
|
||||
el_val_t _marker = mem_tombstone(node_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_consolidate(void) {
|
||||
el_val_t scanned = engram_node_count();
|
||||
el_val_t dummy = engram_scan_nodes_json(100, 0);
|
||||
el_val_t total_nodes = engram_node_count();
|
||||
el_val_t total_edges = engram_edge_count();
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"scanned\":"), int_to_str(scanned)), EL_STR(",\"total_nodes\":")), int_to_str(total_nodes)), EL_STR(",\"total_edges\":")), int_to_str(total_edges)), EL_STR("}"));
|
||||
el_val_t strengthened = 0;
|
||||
el_val_t wm_top = engram_wm_top_json(10);
|
||||
el_val_t wm_len = json_array_len(wm_top);
|
||||
el_val_t wi = 0;
|
||||
while (wi < wm_len) {
|
||||
el_val_t wm_node = json_array_get(wm_top, wi);
|
||||
el_val_t wm_id = json_get(wm_node, EL_STR("id"));
|
||||
if (!str_eq(wm_id, EL_STR(""))) {
|
||||
engram_strengthen(wm_id);
|
||||
strengthened = (strengthened + 1);
|
||||
}
|
||||
wi = (wi + 1);
|
||||
}
|
||||
el_val_t scan_result = engram_scan_nodes_json(50, 0);
|
||||
el_val_t scan_len = json_array_len(scan_result);
|
||||
el_val_t si = 0;
|
||||
while (si < scan_len) {
|
||||
el_val_t s_node = json_array_get(scan_result, si);
|
||||
el_val_t s_tier = json_get(s_node, EL_STR("tier"));
|
||||
el_val_t s_id = json_get(s_node, EL_STR("id"));
|
||||
if (str_eq(s_tier, EL_STR("Canonical")) && !str_eq(s_id, EL_STR(""))) {
|
||||
engram_strengthen(s_id);
|
||||
strengthened = (strengthened + 1);
|
||||
}
|
||||
si = (si + 1);
|
||||
}
|
||||
el_val_t total_nodes = engram_node_count();
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"scanned\":"), int_to_str(scanned)), EL_STR(",\"total_nodes\":")), int_to_str(total_nodes)), EL_STR(",\"total_edges\":")), int_to_str(total_edges)), EL_STR(",\"strengthened\":")), int_to_str(strengthened)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t mem_save(el_val_t path) {
|
||||
engram_save(path);
|
||||
el_val_t saved = engram_save(path);
|
||||
if (saved == 0) {
|
||||
println(el_str_concat(el_str_concat(EL_STR("[memory] mem_save: engram_save failed for "), path), EL_STR(" \xe2\x80\x94 snapshot may be incomplete")));
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -104,9 +154,56 @@ el_val_t mem_boot_count_get(void) {
|
||||
el_val_t mem_boot_count_inc(void) {
|
||||
el_val_t current = mem_boot_count_get();
|
||||
el_val_t next = (current + 1);
|
||||
el_val_t old_results = engram_search_json(EL_STR("soul:boot_count"), 50);
|
||||
if (!str_eq(old_results, EL_STR("")) && !str_eq(old_results, EL_STR("[]"))) {
|
||||
el_val_t old_len = json_array_len(old_results);
|
||||
el_val_t oi = 0;
|
||||
while (oi < old_len) {
|
||||
el_val_t old_node = json_array_get(old_results, oi);
|
||||
el_val_t old_id = json_get(old_node, EL_STR("id"));
|
||||
if (!str_eq(old_id, EL_STR(""))) {
|
||||
engram_forget(old_id);
|
||||
}
|
||||
oi = (oi + 1);
|
||||
}
|
||||
}
|
||||
el_val_t content = el_str_concat(EL_STR("soul:boot_count:"), int_to_str(next));
|
||||
el_val_t tags = EL_STR("[\"soul-meta\",\"boot-counter\"]");
|
||||
el_val_t discard = engram_node_full(content, EL_STR("Memory"), EL_STR("soul:boot_count"), el_from_float(0.9), el_from_float(0.9), el_from_float(1.0), EL_STR("Canonical"), tags);
|
||||
el_val_t boot_node_id = engram_node_full(content, EL_STR("Memory"), EL_STR("soul:boot_count"), el_from_float(0.55), el_from_float(0.2), el_from_float(1.0), EL_STR("Working"), tags);
|
||||
if (str_eq(boot_node_id, EL_STR(""))) {
|
||||
println(el_str_concat(el_str_concat(EL_STR("[memory] mem_boot_count_inc: write rejected (empty id) \xe2\x80\x94 boot counter node lost (count="), int_to_str(next)), EL_STR(")")));
|
||||
return next;
|
||||
}
|
||||
el_val_t boot_readback = engram_get_node_json(boot_node_id);
|
||||
if (str_eq(boot_readback, EL_STR("")) || str_eq(boot_readback, EL_STR("{}"))) {
|
||||
println(el_str_concat(el_str_concat(el_str_concat(EL_STR("[memory] mem_boot_count_inc: WRITE VERIFY FAILED id="), boot_node_id), EL_STR(" count=")), int_to_str(next)));
|
||||
}
|
||||
el_val_t wb_url = env(EL_STR("ENGRAM_URL"));
|
||||
el_val_t wb_key = env(EL_STR("ENGRAM_API_KEY"));
|
||||
if (!str_eq(wb_url, EL_STR("")) && !str_eq(wb_key, EL_STR(""))) {
|
||||
el_val_t auth_body = el_str_concat(el_str_concat(EL_STR("{\"_auth\":\""), json_safe(wb_key)), EL_STR("\"}"));
|
||||
el_val_t srv_old = http_get(el_str_concat(wb_url, EL_STR("/api/search?q=soul:boot_count&limit=20")));
|
||||
if (!str_eq(srv_old, EL_STR("")) && !str_eq(srv_old, EL_STR("[]"))) {
|
||||
el_val_t srv_len = json_array_len(srv_old);
|
||||
el_val_t si = 0;
|
||||
while (si < srv_len) {
|
||||
el_val_t srv_node = json_array_get(srv_old, si);
|
||||
el_val_t srv_content = json_get(srv_node, EL_STR("content"));
|
||||
if (str_starts_with(srv_content, EL_STR("soul:boot_count:"))) {
|
||||
el_val_t srv_id = json_get(srv_node, EL_STR("id"));
|
||||
if (!str_eq(srv_id, EL_STR(""))) {
|
||||
http_delete_json(el_str_concat(el_str_concat(wb_url, EL_STR("/api/nodes/")), srv_id), auth_body);
|
||||
}
|
||||
}
|
||||
si = (si + 1);
|
||||
}
|
||||
}
|
||||
el_val_t wb_body = el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"content\":\""), content), EL_STR("\",\"node_type\":\"Memory\",\"label\":\"soul:boot_count\",\"salience\":0.55,\"importance\":0.2,\"tier\":\"Working\",\"tags\":\"[\\\"soul-meta\\\",\\\"boot-counter\\\"]\",\"_auth\":\"")), json_safe(wb_key)), EL_STR("\"}"));
|
||||
el_val_t wb_resp = http_post_json(el_str_concat(wb_url, EL_STR("/api/nodes")), wb_body);
|
||||
if (str_contains(wb_resp, EL_STR("\"error\""))) {
|
||||
println(el_str_concat(EL_STR("[memory] mem_boot_count_inc: HTTP write-back failed (count in-memory only): "), wb_resp));
|
||||
}
|
||||
}
|
||||
return next;
|
||||
return 0;
|
||||
}
|
||||
@@ -118,7 +215,11 @@ el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content)
|
||||
el_val_t safe_content = str_replace(content, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t payload = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"trigger\":\""), safe_trigger), EL_STR("\"")), EL_STR(",\"kind\":\"")), kind), EL_STR("\"")), EL_STR(",\"content\":\"")), safe_content), EL_STR("\"")), EL_STR(",\"boot\":")), int_to_str(boot)), EL_STR(",\"ts\":")), int_to_str(ts)), EL_STR("}"));
|
||||
el_val_t tags = EL_STR("[\"internal-state\",\"pre-reasoning\",\"InternalStateEvent\"]");
|
||||
return engram_node_full(payload, EL_STR("InternalStateEvent"), el_str_concat(EL_STR("state-event:"), kind), el_from_float(0.85), el_from_float(0.8), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
el_val_t event_id = engram_node_full(payload, EL_STR("InternalStateEvent"), el_str_concat(EL_STR("state-event:"), kind), el_from_float(0.85), el_from_float(0.8), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (str_eq(event_id, EL_STR(""))) {
|
||||
println(el_str_concat(EL_STR("[memory] mem_emit_state_event: write rejected (empty id): kind="), kind));
|
||||
}
|
||||
return event_id;
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
+3
@@ -11,3 +11,6 @@ extern fn mem_forget(node_id: String) -> Void
|
||||
extern fn mem_consolidate() -> String
|
||||
extern fn mem_save(path: String) -> Void
|
||||
extern fn mem_load(path: String) -> Void
|
||||
extern fn mem_boot_count_get() -> Int
|
||||
extern fn mem_boot_count_inc() -> Int
|
||||
extern fn mem_emit_state_event(trigger: String, kind: String, content: String) -> String
|
||||
|
||||
BIN
Binary file not shown.
+357
-50
@@ -26,9 +26,22 @@ el_val_t api_ok(el_val_t extra);
|
||||
el_val_t api_err(el_val_t msg);
|
||||
el_val_t api_nonempty(el_val_t s);
|
||||
el_val_t api_or_empty(el_val_t s);
|
||||
el_val_t api_num_or_zero(el_val_t obj, el_val_t key);
|
||||
el_val_t api_utf8_trunc(el_val_t s, el_val_t n);
|
||||
el_val_t api_compact_node(el_val_t node, el_val_t snip);
|
||||
el_val_t api_compact_node_array(el_val_t raw, el_val_t max_items, el_val_t snip);
|
||||
el_val_t api_compact_activated(el_val_t raw, el_val_t max_items, el_val_t snip);
|
||||
el_val_t api_persisted(el_val_t id);
|
||||
el_val_t api_not_persisted(el_val_t id);
|
||||
el_val_t tombstone_node(el_val_t id);
|
||||
el_val_t tombstoned_id_set(void);
|
||||
el_val_t memory_hide_tombstoned(el_val_t raw, el_val_t path);
|
||||
el_val_t handle_api_begin_session(el_val_t body);
|
||||
el_val_t handle_api_compile_ctx(el_val_t body);
|
||||
el_val_t handle_api_remember(el_val_t body);
|
||||
el_val_t handle_api_node_create(el_val_t body);
|
||||
el_val_t handle_api_node_delete(el_val_t body);
|
||||
el_val_t handle_api_node_update(el_val_t body);
|
||||
el_val_t handle_api_recall(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_search_knowledge(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_browse_knowledge(el_val_t path, el_val_t body);
|
||||
@@ -45,6 +58,8 @@ el_val_t handle_api_inspect_graph(el_val_t method, el_val_t path, el_val_t body)
|
||||
el_val_t handle_api_link_entities(el_val_t body);
|
||||
el_val_t handle_api_forget(el_val_t body);
|
||||
el_val_t handle_api_evolve_memory(el_val_t body);
|
||||
el_val_t handle_api_memory_delete(el_val_t body);
|
||||
el_val_t handle_api_memory_update(el_val_t body);
|
||||
el_val_t handle_api_cultivate(el_val_t body);
|
||||
el_val_t handle_api_list_typed(el_val_t node_type, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_consolidate(el_val_t body);
|
||||
@@ -168,21 +183,168 @@ el_val_t api_or_empty(el_val_t s) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_num_or_zero(el_val_t obj, el_val_t key) {
|
||||
el_val_t v = json_get_raw(obj, key);
|
||||
if (str_eq(v, EL_STR(""))) {
|
||||
return EL_STR("0");
|
||||
}
|
||||
return v;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_utf8_trunc(el_val_t s, el_val_t n) {
|
||||
if (str_len(s) <= n) {
|
||||
return s;
|
||||
}
|
||||
el_val_t cut = n;
|
||||
el_val_t scanning = 1;
|
||||
while (scanning && (cut > 0)) {
|
||||
el_val_t b = str_char_code(s, cut);
|
||||
el_val_t is_cont = ((b >= 128) && (b < 192));
|
||||
cut = ({ el_val_t _if_result_1 = 0; if (is_cont) { _if_result_1 = ((cut - 1)); } else { _if_result_1 = (cut); } _if_result_1; });
|
||||
scanning = is_cont;
|
||||
}
|
||||
return str_slice(s, 0, cut);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_compact_node(el_val_t node, el_val_t snip) {
|
||||
el_val_t id = json_get(node, EL_STR("id"));
|
||||
el_val_t ntype = json_get(node, EL_STR("node_type"));
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t tier = json_get(node, EL_STR("tier"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t snippet = api_utf8_trunc(content, snip);
|
||||
el_val_t trunc_str = ({ el_val_t _if_result_2 = 0; if ((str_len(content) > snip)) { _if_result_2 = (EL_STR("true")); } else { _if_result_2 = (EL_STR("false")); } _if_result_2; });
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), api_json_escape(id)), EL_STR("\"")), EL_STR(",\"node_type\":\"")), api_json_escape(ntype)), EL_STR("\"")), EL_STR(",\"label\":\"")), api_json_escape(label)), EL_STR("\"")), EL_STR(",\"tier\":\"")), api_json_escape(tier)), EL_STR("\"")), EL_STR(",\"importance\":")), api_num_or_zero(node, EL_STR("importance"))), EL_STR(",\"salience\":")), api_num_or_zero(node, EL_STR("salience"))), EL_STR(",\"content\":\"")), api_json_escape(snippet)), EL_STR("\"")), EL_STR(",\"content_truncated\":")), trunc_str), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_compact_node_array(el_val_t raw, el_val_t max_items, el_val_t snip) {
|
||||
if (!api_nonempty(raw)) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
el_val_t n = json_array_len(raw);
|
||||
el_val_t cap = ({ el_val_t _if_result_3 = 0; if ((n < max_items)) { _if_result_3 = (n); } else { _if_result_3 = (max_items); } _if_result_3; });
|
||||
el_val_t out = EL_STR("[");
|
||||
el_val_t i = 0;
|
||||
while (i < cap) {
|
||||
el_val_t node = json_array_get(raw, i);
|
||||
el_val_t sep = ({ el_val_t _if_result_4 = 0; if ((i == 0)) { _if_result_4 = (EL_STR("")); } else { _if_result_4 = (EL_STR(",")); } _if_result_4; });
|
||||
out = el_str_concat(el_str_concat(out, sep), api_compact_node(node, snip));
|
||||
i = (i + 1);
|
||||
}
|
||||
return el_str_concat(out, EL_STR("]"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_compact_activated(el_val_t raw, el_val_t max_items, el_val_t snip) {
|
||||
if (!api_nonempty(raw)) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
el_val_t n = json_array_len(raw);
|
||||
el_val_t cap = ({ el_val_t _if_result_5 = 0; if ((n < max_items)) { _if_result_5 = (n); } else { _if_result_5 = (max_items); } _if_result_5; });
|
||||
el_val_t out = EL_STR("[");
|
||||
el_val_t i = 0;
|
||||
while (i < cap) {
|
||||
el_val_t el = json_array_get(raw, i);
|
||||
el_val_t node = json_get_raw(el, EL_STR("node"));
|
||||
el_val_t sep = ({ el_val_t _if_result_6 = 0; if ((i == 0)) { _if_result_6 = (EL_STR("")); } else { _if_result_6 = (EL_STR(",")); } _if_result_6; });
|
||||
out = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(out, sep), EL_STR("{\"node\":")), api_compact_node(node, snip)), EL_STR(",\"activation_strength\":")), api_num_or_zero(el, EL_STR("activation_strength"))), EL_STR(",\"working_memory_weight\":")), api_num_or_zero(el, EL_STR("working_memory_weight"))), EL_STR(",\"epistemic_confidence\":")), api_num_or_zero(el, EL_STR("epistemic_confidence"))), EL_STR(",\"hops\":")), api_num_or_zero(el, EL_STR("hops"))), EL_STR(",\"promoted\":")), api_num_or_zero(el, EL_STR("promoted"))), EL_STR("}"));
|
||||
i = (i + 1);
|
||||
}
|
||||
return el_str_concat(out, EL_STR("]"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_persisted(el_val_t id) {
|
||||
if (str_eq(id, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t node = engram_get_node_json(id);
|
||||
return ((!str_eq(node, EL_STR("")) && !str_eq(node, EL_STR("null"))) && !str_eq(node, EL_STR("{}")));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t api_not_persisted(el_val_t id) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":false,\"error\":\"write_not_persisted\",\"id\":\""), id), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t tombstone_node(el_val_t id) {
|
||||
return mem_tombstone(id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t tombstoned_id_set(void) {
|
||||
el_val_t markers = engram_scan_nodes_by_type_json(EL_STR("Tombstone"), 5000, 0);
|
||||
if (str_eq(markers, EL_STR("")) || str_eq(markers, EL_STR("[]"))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t n = json_array_len(markers);
|
||||
el_val_t acc = EL_STR("|");
|
||||
el_val_t i = 0;
|
||||
while (i < n) {
|
||||
el_val_t m = json_array_get(markers, i);
|
||||
el_val_t tid = json_get(m, EL_STR("content"));
|
||||
acc = ({ el_val_t _if_result_7 = 0; if (str_eq(tid, EL_STR(""))) { _if_result_7 = (acc); } else { _if_result_7 = (el_str_concat(el_str_concat(acc, tid), EL_STR("|"))); } _if_result_7; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return acc;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t memory_hide_tombstoned(el_val_t raw, el_val_t path) {
|
||||
if (str_contains(path, EL_STR("include_deleted"))) {
|
||||
return raw;
|
||||
}
|
||||
if (str_eq(raw, EL_STR("")) || str_eq(raw, EL_STR("[]"))) {
|
||||
return raw;
|
||||
}
|
||||
el_val_t dead = tombstoned_id_set();
|
||||
if (str_eq(dead, EL_STR(""))) {
|
||||
return raw;
|
||||
}
|
||||
el_val_t n = json_array_len(raw);
|
||||
if (n > 1000) {
|
||||
return raw;
|
||||
}
|
||||
el_val_t out = EL_STR("[");
|
||||
el_val_t first = 1;
|
||||
el_val_t i = 0;
|
||||
while (i < n) {
|
||||
el_val_t node = json_array_get(raw, i);
|
||||
el_val_t nid = json_get(node, EL_STR("id"));
|
||||
el_val_t ntype = json_get(node, EL_STR("node_type"));
|
||||
el_val_t is_dead = (!str_eq(nid, EL_STR("")) && str_contains(dead, el_str_concat(el_str_concat(EL_STR("|"), nid), EL_STR("|"))));
|
||||
el_val_t keep = (!str_eq(ntype, EL_STR("Tombstone")) && !is_dead);
|
||||
out = ({ el_val_t _if_result_8 = 0; if (keep) { _if_result_8 = (({ el_val_t _if_result_9 = 0; if (first) { _if_result_9 = (el_str_concat(out, node)); } else { _if_result_9 = (el_str_concat(el_str_concat(out, EL_STR(",")), node)); } _if_result_9; })); } else { _if_result_8 = (out); } _if_result_8; });
|
||||
first = ({ el_val_t _if_result_10 = 0; if (keep) { _if_result_10 = (0); } else { _if_result_10 = (first); } _if_result_10; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return el_str_concat(out, EL_STR("]"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_begin_session(el_val_t body) {
|
||||
el_val_t stats = engram_stats_json();
|
||||
el_val_t activated = engram_activate_json(EL_STR("session start recent memory important"), 2);
|
||||
el_val_t self_nbrs = engram_neighbors_json(EL_STR("kn-efeb4a5b-5aff-4759-8a97-7233099be6ee"), 1, EL_STR("both"));
|
||||
el_val_t state_events = engram_scan_nodes_by_type_json(EL_STR("InternalStateEvent"), 5, 0);
|
||||
el_val_t recent = engram_scan_nodes_json(10, 0);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"stats\":"), stats), EL_STR(",\"recent\":")), api_or_empty(recent)), EL_STR(",\"activated\":")), api_or_empty(activated)), EL_STR(",\"self_neighbors\":")), api_or_empty(self_nbrs)), EL_STR(",\"recent_state_events\":")), api_or_empty(state_events)), EL_STR("}"));
|
||||
el_val_t activated_raw = engram_activate_json(EL_STR("session start recent memory important"), 1);
|
||||
el_val_t activated = api_compact_activated(activated_raw, 8, 240);
|
||||
el_val_t state_events_raw = engram_scan_nodes_by_type_json(EL_STR("InternalStateEvent"), 5, 0);
|
||||
el_val_t state_events = api_compact_node_array(state_events_raw, 5, 500);
|
||||
el_val_t recent_raw = engram_scan_nodes_json(10, 0);
|
||||
el_val_t recent = api_compact_node_array(recent_raw, 10, 240);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"stats\":"), stats), EL_STR(",\"recent\":")), recent), EL_STR(",\"activated\":")), activated), EL_STR(",\"self_neighbors\":[]")), EL_STR(",\"recent_state_events\":")), state_events), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_compile_ctx(el_val_t body) {
|
||||
el_val_t stats = engram_stats_json();
|
||||
el_val_t activated = engram_activate_json(EL_STR("active work context current task in progress"), 2);
|
||||
el_val_t recent = engram_scan_nodes_json(20, 0);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"stats\":"), stats), EL_STR(",\"recent_nodes\":")), api_or_empty(recent)), EL_STR(",\"activated\":")), api_or_empty(activated)), EL_STR("}"));
|
||||
el_val_t activated_raw = engram_activate_json(EL_STR("active work context current task in progress"), 2);
|
||||
el_val_t activated = api_compact_activated(activated_raw, 10, 240);
|
||||
el_val_t recent_raw = engram_scan_nodes_json(20, 0);
|
||||
el_val_t recent = api_compact_node_array(recent_raw, 20, 240);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"stats\":"), stats), EL_STR(",\"recent_nodes\":")), recent), EL_STR(",\"activated\":")), activated), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -194,22 +356,102 @@ el_val_t handle_api_remember(el_val_t body) {
|
||||
el_val_t importance = json_get(body, EL_STR("importance"));
|
||||
el_val_t tags_raw = json_get(body, EL_STR("tags"));
|
||||
el_val_t project = json_get(body, EL_STR("project"));
|
||||
el_val_t sal_str = ({ el_val_t _if_result_1 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_1 = (EL_STR("0.95")); } else { _if_result_1 = (({ el_val_t _if_result_2 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_2 = (EL_STR("0.75")); } else { _if_result_2 = (({ el_val_t _if_result_3 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_3 = (EL_STR("0.25")); } else { _if_result_3 = (EL_STR("0.50")); } _if_result_3; })); } _if_result_2; })); } _if_result_1; });
|
||||
el_val_t sal = ({ el_val_t _if_result_4 = 0; if (str_eq(sal_str, EL_STR("0.95"))) { _if_result_4 = (el_from_float(0.95)); } else { _if_result_4 = (({ el_val_t _if_result_5 = 0; if (str_eq(sal_str, EL_STR("0.75"))) { _if_result_5 = (el_from_float(0.75)); } else { _if_result_5 = (({ el_val_t _if_result_6 = 0; if (str_eq(sal_str, EL_STR("0.25"))) { _if_result_6 = (el_from_float(0.25)); } else { _if_result_6 = (el_from_float(0.5)); } _if_result_6; })); } _if_result_5; })); } _if_result_4; });
|
||||
el_val_t base_tags = ({ el_val_t _if_result_7 = 0; if (str_eq(tags_raw, EL_STR(""))) { _if_result_7 = (EL_STR("[\"Memory\"]")); } else { _if_result_7 = (tags_raw); } _if_result_7; });
|
||||
el_val_t final_tags = ({ el_val_t _if_result_8 = 0; if (str_eq(project, EL_STR(""))) { _if_result_8 = (base_tags); } else { el_val_t inner = str_slice(base_tags, 1, (str_len(base_tags) - 1)); _if_result_8 = (el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("["), inner), EL_STR(",\"project:")), project), EL_STR("\"]"))); } _if_result_8; });
|
||||
el_val_t sal_str = ({ el_val_t _if_result_11 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_11 = (EL_STR("0.95")); } else { _if_result_11 = (({ el_val_t _if_result_12 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_12 = (EL_STR("0.75")); } else { _if_result_12 = (({ el_val_t _if_result_13 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_13 = (EL_STR("0.25")); } else { _if_result_13 = (EL_STR("0.50")); } _if_result_13; })); } _if_result_12; })); } _if_result_11; });
|
||||
el_val_t sal = ({ el_val_t _if_result_14 = 0; if (str_eq(sal_str, EL_STR("0.95"))) { _if_result_14 = (el_from_float(0.95)); } else { _if_result_14 = (({ el_val_t _if_result_15 = 0; if (str_eq(sal_str, EL_STR("0.75"))) { _if_result_15 = (el_from_float(0.75)); } else { _if_result_15 = (({ el_val_t _if_result_16 = 0; if (str_eq(sal_str, EL_STR("0.25"))) { _if_result_16 = (el_from_float(0.25)); } else { _if_result_16 = (el_from_float(0.5)); } _if_result_16; })); } _if_result_15; })); } _if_result_14; });
|
||||
el_val_t base_tags = ({ el_val_t _if_result_17 = 0; if (str_eq(tags_raw, EL_STR(""))) { _if_result_17 = (EL_STR("[\"Memory\"]")); } else { _if_result_17 = (tags_raw); } _if_result_17; });
|
||||
el_val_t final_tags = ({ el_val_t _if_result_18 = 0; if (str_eq(project, EL_STR(""))) { _if_result_18 = (base_tags); } else { el_val_t inner = str_slice(base_tags, 1, (str_len(base_tags) - 1)); _if_result_18 = (el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("["), inner), EL_STR(",\"project:")), project), EL_STR("\"]"))); } _if_result_18; });
|
||||
el_val_t id = engram_node_full(content, EL_STR("Memory"), EL_STR("memory:remembered"), el_from_float(sal), el_from_float(sal), el_from_float(0.9), EL_STR("Episodic"), final_tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_node_create(el_val_t body) {
|
||||
el_val_t content = json_get(body, EL_STR("content"));
|
||||
if (str_eq(content, EL_STR(""))) {
|
||||
return api_err(EL_STR("content is required"));
|
||||
}
|
||||
el_val_t nt_raw = json_get(body, EL_STR("node_type"));
|
||||
el_val_t node_type = ({ el_val_t _if_result_19 = 0; if (str_eq(nt_raw, EL_STR(""))) { _if_result_19 = (EL_STR("Memory")); } else { _if_result_19 = (nt_raw); } _if_result_19; });
|
||||
el_val_t label_raw = json_get(body, EL_STR("label"));
|
||||
el_val_t label = ({ el_val_t _if_result_20 = 0; if (str_eq(label_raw, EL_STR(""))) { _if_result_20 = (EL_STR("node:created")); } else { _if_result_20 = (label_raw); } _if_result_20; });
|
||||
el_val_t tier_raw = json_get(body, EL_STR("tier"));
|
||||
el_val_t tier = ({ el_val_t _if_result_21 = 0; if (str_eq(tier_raw, EL_STR(""))) { _if_result_21 = (EL_STR("Episodic")); } else { _if_result_21 = (tier_raw); } _if_result_21; });
|
||||
el_val_t tags_raw = json_get(body, EL_STR("tags"));
|
||||
el_val_t tags = ({ el_val_t _if_result_22 = 0; if (str_eq(tags_raw, EL_STR(""))) { _if_result_22 = (el_str_concat(el_str_concat(EL_STR("[\""), node_type), EL_STR("\"]"))); } else { _if_result_22 = (tags_raw); } _if_result_22; });
|
||||
el_val_t importance = json_get(body, EL_STR("importance"));
|
||||
el_val_t sal = ({ el_val_t _if_result_23 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_23 = (el_from_float(0.95)); } else { _if_result_23 = (({ el_val_t _if_result_24 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_24 = (el_from_float(0.75)); } else { _if_result_24 = (({ el_val_t _if_result_25 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_25 = (el_from_float(0.25)); } else { _if_result_25 = (el_from_float(0.5)); } _if_result_25; })); } _if_result_24; })); } _if_result_23; });
|
||||
el_val_t id = engram_node_full(content, node_type, label, el_from_float(sal), el_from_float(sal), el_from_float(0.9), tier, tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_node_delete(el_val_t body) {
|
||||
el_val_t id = json_get(body, EL_STR("id"));
|
||||
if (str_eq(id, EL_STR(""))) {
|
||||
return api_err(EL_STR("id is required"));
|
||||
}
|
||||
if (is_protected_node(id)) {
|
||||
return api_err_protected(id);
|
||||
}
|
||||
el_val_t existing = engram_get_node_json(id);
|
||||
if (str_eq(existing, EL_STR("{}"))) {
|
||||
return api_err(el_str_concat(EL_STR("node not found: "), id));
|
||||
}
|
||||
el_val_t marker = tombstone_node(id);
|
||||
if (str_eq(marker, EL_STR(""))) {
|
||||
return api_err(el_str_concat(EL_STR("tombstone failed: "), id));
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), id), EL_STR("\",\"tombstoned\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_node_update(el_val_t body) {
|
||||
el_val_t id = json_get(body, EL_STR("id"));
|
||||
if (str_eq(id, EL_STR(""))) {
|
||||
return api_err(EL_STR("id is required"));
|
||||
}
|
||||
if (!api_persisted(id)) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":false,\"error\":\"not_found\",\"id\":\""), id), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t old = engram_get_node_json(id);
|
||||
el_val_t body_content = json_get(body, EL_STR("content"));
|
||||
el_val_t content = ({ el_val_t _if_result_26 = 0; if (str_eq(body_content, EL_STR(""))) { _if_result_26 = (json_get(old, EL_STR("content"))); } else { _if_result_26 = (body_content); } _if_result_26; });
|
||||
el_val_t body_nt = json_get(body, EL_STR("node_type"));
|
||||
el_val_t old_nt = json_get(old, EL_STR("node_type"));
|
||||
el_val_t node_type = ({ el_val_t _if_result_27 = 0; if (!str_eq(body_nt, EL_STR(""))) { _if_result_27 = (body_nt); } else { _if_result_27 = (({ el_val_t _if_result_28 = 0; if (!str_eq(old_nt, EL_STR(""))) { _if_result_28 = (old_nt); } else { _if_result_28 = (EL_STR("Memory")); } _if_result_28; })); } _if_result_27; });
|
||||
el_val_t body_label = json_get(body, EL_STR("label"));
|
||||
el_val_t old_label = json_get(old, EL_STR("label"));
|
||||
el_val_t label = ({ el_val_t _if_result_29 = 0; if (!str_eq(body_label, EL_STR(""))) { _if_result_29 = (body_label); } else { _if_result_29 = (({ el_val_t _if_result_30 = 0; if (!str_eq(old_label, EL_STR(""))) { _if_result_30 = (old_label); } else { _if_result_30 = (EL_STR("node:updated")); } _if_result_30; })); } _if_result_29; });
|
||||
el_val_t body_tier = json_get(body, EL_STR("tier"));
|
||||
el_val_t old_tier = json_get(old, EL_STR("tier"));
|
||||
el_val_t tier = ({ el_val_t _if_result_31 = 0; if (!str_eq(body_tier, EL_STR(""))) { _if_result_31 = (body_tier); } else { _if_result_31 = (({ el_val_t _if_result_32 = 0; if (!str_eq(old_tier, EL_STR(""))) { _if_result_32 = (old_tier); } else { _if_result_32 = (EL_STR("Episodic")); } _if_result_32; })); } _if_result_31; });
|
||||
el_val_t body_tags = json_get(body, EL_STR("tags"));
|
||||
el_val_t tags = ({ el_val_t _if_result_33 = 0; if (str_eq(body_tags, EL_STR(""))) { _if_result_33 = (el_str_concat(el_str_concat(EL_STR("[\""), node_type), EL_STR("\"]"))); } else { _if_result_33 = (body_tags); } _if_result_33; });
|
||||
el_val_t new_id = engram_node_full(content, node_type, label, el_from_float(0.5), el_from_float(0.5), el_from_float(0.8), tier, tags);
|
||||
if (!api_persisted(new_id)) {
|
||||
return api_not_persisted(new_id);
|
||||
}
|
||||
engram_connect(new_id, id, el_from_float(0.9), EL_STR("supersedes"));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), new_id), EL_STR("\",\"supersedes\":\"")), id), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_recall(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t q = ({ el_val_t _if_result_9 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_9 = (api_query_param(path, EL_STR("query"))); } else { _if_result_9 = (json_get(body, EL_STR("query"))); } _if_result_9; });
|
||||
el_val_t url_q = ({ el_val_t _if_result_34 = 0; if (str_eq(api_query_param(path, EL_STR("query")), EL_STR(""))) { _if_result_34 = (api_query_param(path, EL_STR("q"))); } else { _if_result_34 = (api_query_param(path, EL_STR("query"))); } _if_result_34; });
|
||||
el_val_t body_query = json_get(body, EL_STR("query"));
|
||||
el_val_t body_q = json_get(body, EL_STR("q"));
|
||||
el_val_t q = ({ el_val_t _if_result_35 = 0; if (!str_eq(url_q, EL_STR(""))) { _if_result_35 = (url_q); } else { _if_result_35 = (({ el_val_t _if_result_36 = 0; if (!str_eq(body_query, EL_STR(""))) { _if_result_36 = (body_query); } else { _if_result_36 = (body_q); } _if_result_36; })); } _if_result_35; });
|
||||
el_val_t chain = json_get(body, EL_STR("chain_name"));
|
||||
el_val_t limit = api_query_int(path, EL_STR("limit"), 0);
|
||||
limit = ({ el_val_t _if_result_10 = 0; if ((limit == 0)) { _if_result_10 = (json_get_int(body, EL_STR("limit"))); } else { _if_result_10 = (limit); } _if_result_10; });
|
||||
limit = ({ el_val_t _if_result_11 = 0; if ((limit == 0)) { _if_result_11 = (10); } else { _if_result_11 = (limit); } _if_result_11; });
|
||||
el_val_t eff_q = ({ el_val_t _if_result_12 = 0; if (str_eq(q, EL_STR(""))) { _if_result_12 = (chain); } else { _if_result_12 = (q); } _if_result_12; });
|
||||
limit = ({ el_val_t _if_result_37 = 0; if ((limit == 0)) { _if_result_37 = (json_get_int(body, EL_STR("limit"))); } else { _if_result_37 = (limit); } _if_result_37; });
|
||||
limit = ({ el_val_t _if_result_38 = 0; if ((limit == 0)) { _if_result_38 = (10); } else { _if_result_38 = (limit); } _if_result_38; });
|
||||
el_val_t eff_q = ({ el_val_t _if_result_39 = 0; if (str_eq(q, EL_STR(""))) { _if_result_39 = (chain); } else { _if_result_39 = (q); } _if_result_39; });
|
||||
if (str_eq(eff_q, EL_STR(""))) {
|
||||
return api_or_empty(engram_scan_nodes_json(limit, 0));
|
||||
}
|
||||
@@ -219,10 +461,13 @@ el_val_t handle_api_recall(el_val_t method, el_val_t path, el_val_t body) {
|
||||
}
|
||||
|
||||
el_val_t handle_api_search_knowledge(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t q = ({ el_val_t _if_result_13 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_13 = (api_query_param(path, EL_STR("q"))); } else { _if_result_13 = (json_get(body, EL_STR("query"))); } _if_result_13; });
|
||||
el_val_t url_q = api_query_param(path, EL_STR("q"));
|
||||
el_val_t body_query = json_get(body, EL_STR("query"));
|
||||
el_val_t body_q = json_get(body, EL_STR("q"));
|
||||
el_val_t q = ({ el_val_t _if_result_40 = 0; if (!str_eq(url_q, EL_STR(""))) { _if_result_40 = (url_q); } else { _if_result_40 = (({ el_val_t _if_result_41 = 0; if (!str_eq(body_query, EL_STR(""))) { _if_result_41 = (body_query); } else { _if_result_41 = (body_q); } _if_result_41; })); } _if_result_40; });
|
||||
el_val_t limit = api_query_int(path, EL_STR("limit"), 0);
|
||||
limit = ({ el_val_t _if_result_14 = 0; if ((limit == 0)) { _if_result_14 = (json_get_int(body, EL_STR("limit"))); } else { _if_result_14 = (limit); } _if_result_14; });
|
||||
limit = ({ el_val_t _if_result_15 = 0; if ((limit == 0)) { _if_result_15 = (10); } else { _if_result_15 = (limit); } _if_result_15; });
|
||||
limit = ({ el_val_t _if_result_42 = 0; if ((limit == 0)) { _if_result_42 = (json_get_int(body, EL_STR("limit"))); } else { _if_result_42 = (limit); } _if_result_42; });
|
||||
limit = ({ el_val_t _if_result_43 = 0; if ((limit == 0)) { _if_result_43 = (10); } else { _if_result_43 = (limit); } _if_result_43; });
|
||||
if (str_eq(q, EL_STR(""))) {
|
||||
return api_err(EL_STR("query is required"));
|
||||
}
|
||||
@@ -250,9 +495,12 @@ el_val_t handle_api_capture_knowledge(el_val_t body) {
|
||||
if (str_eq(content, EL_STR(""))) {
|
||||
return api_err(EL_STR("content is required"));
|
||||
}
|
||||
el_val_t full = ({ el_val_t _if_result_16 = 0; if (str_eq(title, EL_STR(""))) { _if_result_16 = (content); } else { _if_result_16 = (el_str_concat(el_str_concat(title, EL_STR(": ")), content)); } _if_result_16; });
|
||||
el_val_t full = ({ el_val_t _if_result_44 = 0; if (str_eq(title, EL_STR(""))) { _if_result_44 = (content); } else { _if_result_44 = (el_str_concat(el_str_concat(title, EL_STR(": ")), content)); } _if_result_44; });
|
||||
el_val_t tags = EL_STR("[\"Knowledge\",\"captured\"]");
|
||||
el_val_t id = engram_node_full(full, EL_STR("Knowledge"), EL_STR("knowledge:captured"), el_from_float(0.85), el_from_float(0.8), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
@@ -268,7 +516,10 @@ el_val_t handle_api_evolve_knowledge(el_val_t body) {
|
||||
}
|
||||
el_val_t tags = EL_STR("[\"Knowledge\",\"evolved\"]");
|
||||
el_val_t new_id = engram_node_full(content, EL_STR("Knowledge"), EL_STR("knowledge:evolved"), el_from_float(0.75), el_from_float(0.75), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (!str_eq(prior_id, EL_STR("")) && !str_eq(new_id, EL_STR(""))) {
|
||||
if (!api_persisted(new_id)) {
|
||||
return api_not_persisted(new_id);
|
||||
}
|
||||
if (!str_eq(prior_id, EL_STR(""))) {
|
||||
engram_connect(new_id, prior_id, el_from_float(0.9), EL_STR("supersedes"));
|
||||
}
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), new_id), EL_STR("\",\"supersedes\":\"")), prior_id), EL_STR("\",\"ok\":true}"));
|
||||
@@ -285,10 +536,10 @@ el_val_t handle_api_promote_knowledge(el_val_t body) {
|
||||
return api_err(EL_STR("id (prior node) is required"));
|
||||
}
|
||||
el_val_t tags_raw = json_get(body, EL_STR("tags"));
|
||||
el_val_t tags = ({ el_val_t _if_result_17 = 0; if (str_eq(tags_raw, EL_STR(""))) { _if_result_17 = (EL_STR("[\"Knowledge\",\"tier:canonical\",\"disposition:stable\"]")); } else { _if_result_17 = (tags_raw); } _if_result_17; });
|
||||
el_val_t tags = ({ el_val_t _if_result_45 = 0; if (str_eq(tags_raw, EL_STR(""))) { _if_result_45 = (EL_STR("[\"Knowledge\",\"tier:canonical\",\"disposition:stable\"]")); } else { _if_result_45 = (tags_raw); } _if_result_45; });
|
||||
el_val_t new_id = engram_node_full(content, EL_STR("Knowledge"), EL_STR("knowledge:canonical"), el_from_float(0.9), el_from_float(0.9), el_from_float(1.0), EL_STR("Canonical"), tags);
|
||||
if (str_eq(new_id, EL_STR(""))) {
|
||||
return api_err(EL_STR("failed to create canonical node"));
|
||||
if (!api_persisted(new_id)) {
|
||||
return api_not_persisted(new_id);
|
||||
}
|
||||
engram_connect(new_id, prior_id, el_from_float(0.95), EL_STR("supersedes"));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"new_id\":\""), new_id), EL_STR("\",\"supersedes\":\"")), prior_id), EL_STR("\"}"));
|
||||
@@ -296,7 +547,7 @@ el_val_t handle_api_promote_knowledge(el_val_t body) {
|
||||
}
|
||||
|
||||
el_val_t handle_api_browse_processes(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t name = ({ el_val_t _if_result_18 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_18 = (api_query_param(path, EL_STR("name"))); } else { _if_result_18 = (json_get(body, EL_STR("name"))); } _if_result_18; });
|
||||
el_val_t name = ({ el_val_t _if_result_46 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_46 = (api_query_param(path, EL_STR("name"))); } else { _if_result_46 = (json_get(body, EL_STR("name"))); } _if_result_46; });
|
||||
el_val_t limit = api_query_int(path, EL_STR("limit"), 50);
|
||||
if (str_eq(name, EL_STR(""))) {
|
||||
return api_or_empty(engram_scan_nodes_by_type_json(EL_STR("Process"), limit, 0));
|
||||
@@ -311,9 +562,12 @@ el_val_t handle_api_define_process(el_val_t body) {
|
||||
if (str_eq(content, EL_STR(""))) {
|
||||
return api_err(EL_STR("content is required"));
|
||||
}
|
||||
el_val_t label = ({ el_val_t _if_result_19 = 0; if (str_eq(name, EL_STR(""))) { _if_result_19 = (EL_STR("process:unnamed")); } else { _if_result_19 = (el_str_concat(EL_STR("process:"), name)); } _if_result_19; });
|
||||
el_val_t label = ({ el_val_t _if_result_47 = 0; if (str_eq(name, EL_STR(""))) { _if_result_47 = (EL_STR("process:unnamed")); } else { _if_result_47 = (el_str_concat(EL_STR("process:"), name)); } _if_result_47; });
|
||||
el_val_t tags = EL_STR("[\"Process\"]");
|
||||
el_val_t id = engram_node_full(content, EL_STR("Process"), label, el_from_float(0.8), el_from_float(0.8), el_from_float(0.9), EL_STR("Canonical"), tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
@@ -326,22 +580,25 @@ el_val_t handle_api_log_state_event(el_val_t body) {
|
||||
el_val_t gap = json_get(body, EL_STR("gap_direction"));
|
||||
el_val_t legacy = json_get(body, EL_STR("content"));
|
||||
el_val_t parts = EL_STR("INTERNAL STATE EVENT");
|
||||
parts = ({ el_val_t _if_result_20 = 0; if (!str_eq(trigger, EL_STR(""))) { _if_result_20 = (el_str_concat(el_str_concat(parts, EL_STR("\nTrigger: ")), trigger)); } else { _if_result_20 = (parts); } _if_result_20; });
|
||||
parts = ({ el_val_t _if_result_21 = 0; if (!str_eq(pre, EL_STR(""))) { _if_result_21 = (el_str_concat(el_str_concat(parts, EL_STR("\nPre-reasoning: ")), pre)); } else { _if_result_21 = (parts); } _if_result_21; });
|
||||
parts = ({ el_val_t _if_result_22 = 0; if (!str_eq(post, EL_STR(""))) { _if_result_22 = (el_str_concat(el_str_concat(parts, EL_STR("\nPost-reasoning: ")), post)); } else { _if_result_22 = (parts); } _if_result_22; });
|
||||
parts = ({ el_val_t _if_result_23 = 0; if (!str_eq(ratio, EL_STR(""))) { _if_result_23 = (el_str_concat(el_str_concat(parts, EL_STR("\nCompression-ratio: ")), ratio)); } else { _if_result_23 = (parts); } _if_result_23; });
|
||||
parts = ({ el_val_t _if_result_24 = 0; if (!str_eq(gap, EL_STR(""))) { _if_result_24 = (el_str_concat(el_str_concat(parts, EL_STR("\nGap-direction: ")), gap)); } else { _if_result_24 = (parts); } _if_result_24; });
|
||||
parts = ({ el_val_t _if_result_25 = 0; if (!str_eq(legacy, EL_STR(""))) { _if_result_25 = (el_str_concat(el_str_concat(parts, EL_STR("\n")), legacy)); } else { _if_result_25 = (parts); } _if_result_25; });
|
||||
parts = ({ el_val_t _if_result_48 = 0; if (!str_eq(trigger, EL_STR(""))) { _if_result_48 = (el_str_concat(el_str_concat(parts, EL_STR("\nTrigger: ")), trigger)); } else { _if_result_48 = (parts); } _if_result_48; });
|
||||
parts = ({ el_val_t _if_result_49 = 0; if (!str_eq(pre, EL_STR(""))) { _if_result_49 = (el_str_concat(el_str_concat(parts, EL_STR("\nPre-reasoning: ")), pre)); } else { _if_result_49 = (parts); } _if_result_49; });
|
||||
parts = ({ el_val_t _if_result_50 = 0; if (!str_eq(post, EL_STR(""))) { _if_result_50 = (el_str_concat(el_str_concat(parts, EL_STR("\nPost-reasoning: ")), post)); } else { _if_result_50 = (parts); } _if_result_50; });
|
||||
parts = ({ el_val_t _if_result_51 = 0; if (!str_eq(ratio, EL_STR(""))) { _if_result_51 = (el_str_concat(el_str_concat(parts, EL_STR("\nCompression-ratio: ")), ratio)); } else { _if_result_51 = (parts); } _if_result_51; });
|
||||
parts = ({ el_val_t _if_result_52 = 0; if (!str_eq(gap, EL_STR(""))) { _if_result_52 = (el_str_concat(el_str_concat(parts, EL_STR("\nGap-direction: ")), gap)); } else { _if_result_52 = (parts); } _if_result_52; });
|
||||
parts = ({ el_val_t _if_result_53 = 0; if (!str_eq(legacy, EL_STR(""))) { _if_result_53 = (el_str_concat(el_str_concat(parts, EL_STR("\n")), legacy)); } else { _if_result_53 = (parts); } _if_result_53; });
|
||||
el_val_t ts = time_now();
|
||||
el_val_t boot = state_get(EL_STR("soul_boot_count"));
|
||||
el_val_t tags = EL_STR("[\"internal-state\",\"InternalStateEvent\",\"pre-reasoning\"]");
|
||||
el_val_t id = engram_node_full(parts, EL_STR("InternalStateEvent"), EL_STR("state-event:manual"), el_from_float(0.85), el_from_float(0.85), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), id), EL_STR("\",\"boot\":\"")), boot), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_list_state_events(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t q = ({ el_val_t _if_result_26 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_26 = (api_query_param(path, EL_STR("query"))); } else { _if_result_26 = (json_get(body, EL_STR("query"))); } _if_result_26; });
|
||||
el_val_t q = ({ el_val_t _if_result_54 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_54 = (api_query_param(path, EL_STR("query"))); } else { _if_result_54 = (json_get(body, EL_STR("query"))); } _if_result_54; });
|
||||
el_val_t limit = api_query_int(path, EL_STR("limit"), 20);
|
||||
if (!str_eq(q, EL_STR(""))) {
|
||||
return api_or_empty(engram_search_json(el_str_concat(EL_STR("internal state "), q), limit));
|
||||
@@ -352,7 +609,7 @@ el_val_t handle_api_list_state_events(el_val_t method, el_val_t path, el_val_t b
|
||||
|
||||
el_val_t handle_api_inspect_config(el_val_t path, el_val_t body) {
|
||||
el_val_t key = api_query_param(path, EL_STR("key"));
|
||||
key = ({ el_val_t _if_result_27 = 0; if (str_eq(key, EL_STR(""))) { _if_result_27 = (json_get(body, EL_STR("key"))); } else { _if_result_27 = (key); } _if_result_27; });
|
||||
key = ({ el_val_t _if_result_55 = 0; if (str_eq(key, EL_STR(""))) { _if_result_55 = (json_get(body, EL_STR("key"))); } else { _if_result_55 = (key); } _if_result_55; });
|
||||
if (str_eq(key, EL_STR(""))) {
|
||||
return EL_STR("{\"hint\":\"pass ?key=<name>\",\"known\":[\"neuron.self.traversal_root\",\"neuron.self.values_hub\"]}");
|
||||
}
|
||||
@@ -369,7 +626,7 @@ el_val_t handle_api_inspect_config(el_val_t path, el_val_t body) {
|
||||
el_val_t node = json_array_get(results, 0);
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t prefix = el_str_concat(el_str_concat(EL_STR("config:"), key), EL_STR("="));
|
||||
el_val_t value = ({ el_val_t _if_result_28 = 0; if (str_starts_with(content, prefix)) { _if_result_28 = (str_slice(content, str_len(prefix), str_len(content))); } else { _if_result_28 = (content); } _if_result_28; });
|
||||
el_val_t value = ({ el_val_t _if_result_56 = 0; if (str_starts_with(content, prefix)) { _if_result_56 = (str_slice(content, str_len(prefix), str_len(content))); } else { _if_result_56 = (content); } _if_result_56; });
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"key\":\""), key), EL_STR("\",\"value\":\"")), value), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
@@ -383,18 +640,21 @@ el_val_t handle_api_tune_config(el_val_t body) {
|
||||
el_val_t content = el_str_concat(el_str_concat(el_str_concat(EL_STR("config:"), key), EL_STR("=")), value);
|
||||
el_val_t tags = EL_STR("[\"ConfigEntry\",\"config\"]");
|
||||
el_val_t id = engram_node_full(content, EL_STR("ConfigEntry"), key, el_from_float(0.85), el_from_float(0.85), el_from_float(0.9), EL_STR("Canonical"), tags);
|
||||
if (!api_persisted(id)) {
|
||||
return api_not_persisted(id);
|
||||
}
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"key\":\""), key), EL_STR("\",\"value\":\"")), value), EL_STR("\",\"id\":\"")), id), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_inspect_graph(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t entity_id = ({ el_val_t _if_result_29 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_29 = (api_query_param(path, EL_STR("id"))); } else { _if_result_29 = (json_get(body, EL_STR("entity_id"))); } _if_result_29; });
|
||||
el_val_t name = ({ el_val_t _if_result_30 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_30 = (api_query_param(path, EL_STR("name"))); } else { _if_result_30 = (json_get(body, EL_STR("name"))); } _if_result_30; });
|
||||
el_val_t entity_id = ({ el_val_t _if_result_57 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_57 = (api_query_param(path, EL_STR("id"))); } else { _if_result_57 = (json_get(body, EL_STR("entity_id"))); } _if_result_57; });
|
||||
el_val_t name = ({ el_val_t _if_result_58 = 0; if (str_eq(method, EL_STR("GET"))) { _if_result_58 = (api_query_param(path, EL_STR("name"))); } else { _if_result_58 = (json_get(body, EL_STR("name"))); } _if_result_58; });
|
||||
el_val_t depth = api_query_int(path, EL_STR("depth"), 0);
|
||||
depth = ({ el_val_t _if_result_31 = 0; if ((depth == 0)) { _if_result_31 = (json_get_int(body, EL_STR("max_depth"))); } else { _if_result_31 = (depth); } _if_result_31; });
|
||||
depth = ({ el_val_t _if_result_32 = 0; if ((depth == 0)) { _if_result_32 = (1); } else { _if_result_32 = (depth); } _if_result_32; });
|
||||
depth = ({ el_val_t _if_result_59 = 0; if ((depth == 0)) { _if_result_59 = (json_get_int(body, EL_STR("max_depth"))); } else { _if_result_59 = (depth); } _if_result_59; });
|
||||
depth = ({ el_val_t _if_result_60 = 0; if ((depth == 0)) { _if_result_60 = (1); } else { _if_result_60 = (depth); } _if_result_60; });
|
||||
el_val_t resolved = entity_id;
|
||||
resolved = ({ el_val_t _if_result_33 = 0; if (str_eq(resolved, EL_STR(""))) { _if_result_33 = (({ el_val_t _if_result_34 = 0; if ((str_eq(name, EL_STR("self")) || str_eq(name, EL_STR("neuron")))) { _if_result_34 = (EL_STR("kn-efeb4a5b-5aff-4759-8a97-7233099be6ee")); } else { _if_result_34 = (({ el_val_t _if_result_35 = 0; if ((str_eq(name, EL_STR("values")) || str_eq(name, EL_STR("values_hub")))) { _if_result_35 = (EL_STR("kn-5b606390-a52d-4ca2-8e0e-eba141d13440")); } else { _if_result_35 = (EL_STR("")); } _if_result_35; })); } _if_result_34; })); } else { _if_result_33 = (resolved); } _if_result_33; });
|
||||
resolved = ({ el_val_t _if_result_61 = 0; if (str_eq(resolved, EL_STR(""))) { _if_result_61 = (({ el_val_t _if_result_62 = 0; if ((str_eq(name, EL_STR("self")) || str_eq(name, EL_STR("neuron")))) { _if_result_62 = (EL_STR("kn-efeb4a5b-5aff-4759-8a97-7233099be6ee")); } else { _if_result_62 = (({ el_val_t _if_result_63 = 0; if ((str_eq(name, EL_STR("values")) || str_eq(name, EL_STR("values_hub")))) { _if_result_63 = (EL_STR("kn-5b606390-a52d-4ca2-8e0e-eba141d13440")); } else { _if_result_63 = (EL_STR("")); } _if_result_63; })); } _if_result_62; })); } else { _if_result_61 = (resolved); } _if_result_61; });
|
||||
if (str_eq(resolved, EL_STR(""))) {
|
||||
return api_err(EL_STR("entity_id or name required. Known names: self, neuron, values, values_hub"));
|
||||
}
|
||||
@@ -416,7 +676,7 @@ el_val_t handle_api_link_entities(el_val_t body) {
|
||||
return api_err_protected(to_id);
|
||||
}
|
||||
el_val_t relation = json_get(body, EL_STR("relation"));
|
||||
el_val_t eff_relation = ({ el_val_t _if_result_36 = 0; if (str_eq(relation, EL_STR(""))) { _if_result_36 = (EL_STR("associates")); } else { _if_result_36 = (relation); } _if_result_36; });
|
||||
el_val_t eff_relation = ({ el_val_t _if_result_64 = 0; if (str_eq(relation, EL_STR(""))) { _if_result_64 = (EL_STR("associates")); } else { _if_result_64 = (relation); } _if_result_64; });
|
||||
engram_connect(from_id, to_id, el_from_float(0.5), eff_relation);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"from_id\":\""), from_id), EL_STR("\",\"to_id\":\"")), to_id), EL_STR("\",\"relation\":\"")), eff_relation), EL_STR("\"}"));
|
||||
return 0;
|
||||
@@ -431,7 +691,7 @@ el_val_t handle_api_forget(el_val_t body) {
|
||||
return api_err_protected(node_id);
|
||||
}
|
||||
mem_forget(node_id);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), node_id), EL_STR("\"}"));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), node_id), EL_STR("\",\"tombstoned\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -445,8 +705,8 @@ el_val_t handle_api_evolve_memory(el_val_t body) {
|
||||
return api_err_protected(prior_id);
|
||||
}
|
||||
el_val_t importance = json_get(body, EL_STR("importance"));
|
||||
el_val_t sal_str = ({ el_val_t _if_result_37 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_37 = (EL_STR("0.95")); } else { _if_result_37 = (({ el_val_t _if_result_38 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_38 = (EL_STR("0.75")); } else { _if_result_38 = (({ el_val_t _if_result_39 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_39 = (EL_STR("0.25")); } else { _if_result_39 = (EL_STR("0.50")); } _if_result_39; })); } _if_result_38; })); } _if_result_37; });
|
||||
el_val_t sal = ({ el_val_t _if_result_40 = 0; if (str_eq(sal_str, EL_STR("0.95"))) { _if_result_40 = (el_from_float(0.95)); } else { _if_result_40 = (({ el_val_t _if_result_41 = 0; if (str_eq(sal_str, EL_STR("0.75"))) { _if_result_41 = (el_from_float(0.75)); } else { _if_result_41 = (({ el_val_t _if_result_42 = 0; if (str_eq(sal_str, EL_STR("0.25"))) { _if_result_42 = (el_from_float(0.25)); } else { _if_result_42 = (el_from_float(0.5)); } _if_result_42; })); } _if_result_41; })); } _if_result_40; });
|
||||
el_val_t sal_str = ({ el_val_t _if_result_65 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_65 = (EL_STR("0.95")); } else { _if_result_65 = (({ el_val_t _if_result_66 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_66 = (EL_STR("0.75")); } else { _if_result_66 = (({ el_val_t _if_result_67 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_67 = (EL_STR("0.25")); } else { _if_result_67 = (EL_STR("0.50")); } _if_result_67; })); } _if_result_66; })); } _if_result_65; });
|
||||
el_val_t sal = ({ el_val_t _if_result_68 = 0; if (str_eq(sal_str, EL_STR("0.95"))) { _if_result_68 = (el_from_float(0.95)); } else { _if_result_68 = (({ el_val_t _if_result_69 = 0; if (str_eq(sal_str, EL_STR("0.75"))) { _if_result_69 = (el_from_float(0.75)); } else { _if_result_69 = (({ el_val_t _if_result_70 = 0; if (str_eq(sal_str, EL_STR("0.25"))) { _if_result_70 = (el_from_float(0.25)); } else { _if_result_70 = (el_from_float(0.5)); } _if_result_70; })); } _if_result_69; })); } _if_result_68; });
|
||||
el_val_t tags = EL_STR("[\"Memory\",\"evolved\"]");
|
||||
el_val_t new_id = engram_node_full(content, EL_STR("Memory"), EL_STR("memory:evolved"), el_from_float(sal), el_from_float(sal), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (!str_eq(prior_id, EL_STR("")) && !str_eq(new_id, EL_STR(""))) {
|
||||
@@ -456,6 +716,46 @@ el_val_t handle_api_evolve_memory(el_val_t body) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_memory_delete(el_val_t body) {
|
||||
el_val_t node_id = json_get(body, EL_STR("id"));
|
||||
if (str_eq(node_id, EL_STR(""))) {
|
||||
return api_err(EL_STR("id is required"));
|
||||
}
|
||||
if (is_protected_node(node_id)) {
|
||||
return api_err_protected(node_id);
|
||||
}
|
||||
el_val_t existing = engram_get_node_json(node_id);
|
||||
if (str_eq(existing, EL_STR("{}"))) {
|
||||
return api_err(el_str_concat(EL_STR("memory not found: "), node_id));
|
||||
}
|
||||
el_val_t marker = tombstone_node(node_id);
|
||||
if (str_eq(marker, EL_STR(""))) {
|
||||
return api_err(el_str_concat(EL_STR("tombstone failed: "), node_id));
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), node_id), EL_STR("\",\"tombstoned\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_memory_update(el_val_t body) {
|
||||
el_val_t prior_id = json_get(body, EL_STR("id"));
|
||||
el_val_t content = json_get(body, EL_STR("content"));
|
||||
if (str_eq(prior_id, EL_STR(""))) {
|
||||
return api_err(EL_STR("id is required"));
|
||||
}
|
||||
if (str_eq(content, EL_STR(""))) {
|
||||
return api_err(EL_STR("content is required"));
|
||||
}
|
||||
if (is_protected_node(prior_id)) {
|
||||
return api_err_protected(prior_id);
|
||||
}
|
||||
el_val_t existing = engram_get_node_json(prior_id);
|
||||
if (str_eq(existing, EL_STR("{}"))) {
|
||||
return api_err(el_str_concat(EL_STR("memory not found: "), prior_id));
|
||||
}
|
||||
return handle_api_evolve_memory(body);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_api_cultivate(el_val_t body) {
|
||||
el_val_t op = json_get(body, EL_STR("operation"));
|
||||
if (str_eq(op, EL_STR(""))) {
|
||||
@@ -481,7 +781,7 @@ el_val_t handle_api_cultivate(el_val_t body) {
|
||||
return api_err(EL_STR("content is required"));
|
||||
}
|
||||
el_val_t importance = json_get(body, EL_STR("importance"));
|
||||
el_val_t sal = ({ el_val_t _if_result_43 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_43 = (el_from_float(0.95)); } else { _if_result_43 = (({ el_val_t _if_result_44 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_44 = (el_from_float(0.75)); } else { _if_result_44 = (({ el_val_t _if_result_45 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_45 = (el_from_float(0.25)); } else { _if_result_45 = (el_from_float(0.5)); } _if_result_45; })); } _if_result_44; })); } _if_result_43; });
|
||||
el_val_t sal = ({ el_val_t _if_result_71 = 0; if (str_eq(importance, EL_STR("critical"))) { _if_result_71 = (el_from_float(0.95)); } else { _if_result_71 = (({ el_val_t _if_result_72 = 0; if (str_eq(importance, EL_STR("high"))) { _if_result_72 = (el_from_float(0.75)); } else { _if_result_72 = (({ el_val_t _if_result_73 = 0; if (str_eq(importance, EL_STR("low"))) { _if_result_73 = (el_from_float(0.25)); } else { _if_result_73 = (el_from_float(0.5)); } _if_result_73; })); } _if_result_72; })); } _if_result_71; });
|
||||
el_val_t tags = EL_STR("[\"Memory\",\"evolved\",\"cultivated\"]");
|
||||
el_val_t new_id = engram_node_full(content, EL_STR("Memory"), EL_STR("memory:cultivated"), el_from_float(sal), el_from_float(sal), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (!str_eq(prior_id, EL_STR("")) && !str_eq(new_id, EL_STR(""))) {
|
||||
@@ -495,7 +795,7 @@ el_val_t handle_api_cultivate(el_val_t body) {
|
||||
return api_err(EL_STR("id is required"));
|
||||
}
|
||||
mem_forget(node_id);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), node_id), EL_STR("\",\"cultivated\":true}"));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), node_id), EL_STR("\",\"tombstoned\":true,\"cultivated\":true}"));
|
||||
}
|
||||
if (str_eq(op, EL_STR("link_entities"))) {
|
||||
el_val_t from_id = json_get(body, EL_STR("from_id"));
|
||||
@@ -507,7 +807,7 @@ el_val_t handle_api_cultivate(el_val_t body) {
|
||||
return api_err(EL_STR("to_id is required"));
|
||||
}
|
||||
el_val_t relation = json_get(body, EL_STR("relation"));
|
||||
el_val_t eff_relation = ({ el_val_t _if_result_46 = 0; if (str_eq(relation, EL_STR(""))) { _if_result_46 = (EL_STR("associates")); } else { _if_result_46 = (relation); } _if_result_46; });
|
||||
el_val_t eff_relation = ({ el_val_t _if_result_74 = 0; if (str_eq(relation, EL_STR(""))) { _if_result_74 = (EL_STR("associates")); } else { _if_result_74 = (relation); } _if_result_74; });
|
||||
engram_connect(from_id, to_id, el_from_float(0.5), eff_relation);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"from_id\":\""), from_id), EL_STR("\",\"to_id\":\"")), to_id), EL_STR("\",\"relation\":\"")), eff_relation), EL_STR("\",\"cultivated\":true}"));
|
||||
}
|
||||
@@ -517,7 +817,8 @@ el_val_t handle_api_cultivate(el_val_t body) {
|
||||
|
||||
el_val_t handle_api_list_typed(el_val_t node_type, el_val_t path, el_val_t body) {
|
||||
el_val_t limit = api_query_int(path, EL_STR("limit"), 50);
|
||||
return api_or_empty(engram_scan_nodes_by_type_json(node_type, limit, 0));
|
||||
el_val_t raw = api_or_empty(engram_scan_nodes_by_type_json(node_type, limit, 0));
|
||||
return memory_hide_tombstoned(raw, path);
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -525,12 +826,18 @@ el_val_t handle_api_consolidate(el_val_t body) {
|
||||
el_val_t summary = json_get(body, EL_STR("summary"));
|
||||
el_val_t snap = state_get(EL_STR("soul_snapshot_path"));
|
||||
if (!str_eq(snap, EL_STR(""))) {
|
||||
engram_save(snap);
|
||||
el_val_t save_result = engram_save(snap);
|
||||
if (str_eq(save_result, EL_STR(""))) {
|
||||
println(el_str_concat(el_str_concat(EL_STR("[api] consolidate: engram_save failed for "), snap), EL_STR(" \xe2\x80\x94 snapshot may be out of sync")));
|
||||
}
|
||||
}
|
||||
if (!str_eq(summary, EL_STR(""))) {
|
||||
el_val_t safe_summary = str_replace(summary, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t tags = EL_STR("[\"SessionSummary\",\"consolidate\"]");
|
||||
el_val_t discard = engram_node_full(el_str_concat(EL_STR("[session-summary] "), safe_summary), EL_STR("SessionSummary"), EL_STR("session:summary"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
el_val_t summary_id = engram_node_full(el_str_concat(EL_STR("[session-summary] "), safe_summary), EL_STR("SessionSummary"), EL_STR("session:summary"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (str_eq(summary_id, EL_STR(""))) {
|
||||
println(EL_STR("[api] consolidate: session summary engram write failed \xe2\x80\x94 summary node lost"));
|
||||
}
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"snapshot\":\""), snap), EL_STR("\"}"));
|
||||
return 0;
|
||||
|
||||
+7
@@ -8,9 +8,14 @@ extern fn api_ok(extra: String) -> String
|
||||
extern fn api_err(msg: String) -> String
|
||||
extern fn api_nonempty(s: String) -> Bool
|
||||
extern fn api_or_empty(s: String) -> String
|
||||
extern fn api_persisted(id: String) -> Bool
|
||||
extern fn api_not_persisted(id: String) -> String
|
||||
extern fn handle_api_begin_session(body: String) -> String
|
||||
extern fn handle_api_compile_ctx(body: String) -> String
|
||||
extern fn handle_api_remember(body: String) -> String
|
||||
extern fn handle_api_node_create(body: String) -> String
|
||||
extern fn handle_api_node_delete(body: String) -> String
|
||||
extern fn handle_api_node_update(body: String) -> String
|
||||
extern fn handle_api_recall(method: String, path: String, body: String) -> String
|
||||
extern fn handle_api_search_knowledge(method: String, path: String, body: String) -> String
|
||||
extern fn handle_api_browse_knowledge(path: String, body: String) -> String
|
||||
@@ -27,6 +32,8 @@ extern fn handle_api_inspect_graph(method: String, path: String, body: String) -
|
||||
extern fn handle_api_link_entities(body: String) -> String
|
||||
extern fn handle_api_forget(body: String) -> String
|
||||
extern fn handle_api_evolve_memory(body: String) -> String
|
||||
extern fn handle_api_memory_delete(body: String) -> String
|
||||
extern fn handle_api_memory_update(body: String) -> String
|
||||
extern fn handle_api_cultivate(body: String) -> String
|
||||
extern fn handle_api_list_typed(node_type: String, path: String, body: String) -> String
|
||||
extern fn handle_api_consolidate(body: String) -> String
|
||||
|
||||
+346
-28101
File diff suppressed because one or more lines are too long
+4
-4
@@ -2,9 +2,9 @@
|
||||
extern fn agent_person(agent: String) -> String
|
||||
extern fn agent_number(agent: String) -> String
|
||||
extern fn realize_np(referent: String, number: String) -> String
|
||||
extern fn realize_vp_lang(base_verb: String, tense: String, aspect: String, person: String, number: String, profile: Any) -> Any
|
||||
extern fn realize_question_lang(predicate: String, tense: String, aspect: String, person: String, number: String, agent: String, patient: String, location: String, profile: Any) -> String
|
||||
extern fn realize_vp_lang(base_verb: String, tense: String, aspect: String, person: String, number: String, profile: [String]) -> [String]
|
||||
extern fn realize_question_lang(predicate: String, tense: String, aspect: String, person: String, number: String, agent: String, patient: String, location: String, profile: [String]) -> String
|
||||
extern fn capitalize_first(s: String) -> String
|
||||
extern fn add_punct(s: String, intent: String) -> String
|
||||
extern fn realize_lang(form: Any, profile: Any) -> String
|
||||
extern fn realize(form: Any) -> String
|
||||
extern fn realize_lang(form: [String], profile: [String]) -> String
|
||||
extern fn realize(form: [String]) -> String
|
||||
|
||||
+306
-40
@@ -10,6 +10,7 @@ el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_tombstone(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
@@ -20,7 +21,13 @@ el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content)
|
||||
el_val_t idle_count(void);
|
||||
el_val_t idle_inc(void);
|
||||
el_val_t idle_reset(void);
|
||||
el_val_t ise_post(el_val_t content);
|
||||
el_val_t elapsed_ms(void);
|
||||
el_val_t elapsed_human(void);
|
||||
el_val_t embed_ok(void);
|
||||
el_val_t emit_heartbeat(void);
|
||||
el_val_t auto_term_try_slot(el_val_t slot_type, el_val_t slot_lbl);
|
||||
el_val_t proactive_curiosity(void);
|
||||
el_val_t pulse_count(void);
|
||||
el_val_t pulse_inc(void);
|
||||
el_val_t make_action(el_val_t kind, el_val_t payload);
|
||||
@@ -37,30 +44,73 @@ el_val_t threat_score_history(el_val_t history);
|
||||
el_val_t threat_trajectory_check(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t threat_history_append(el_val_t text);
|
||||
el_val_t chat_default_model(void);
|
||||
el_val_t gemini_api_key(void);
|
||||
el_val_t xai_api_key(void);
|
||||
el_val_t llm_call_grok(el_val_t model, el_val_t system, el_val_t message);
|
||||
el_val_t llm_call_gemini(el_val_t model, el_val_t system, el_val_t message);
|
||||
el_val_t build_identity_from_graph(void);
|
||||
el_val_t engram_numeric_valid(el_val_t s);
|
||||
el_val_t parse_float_x100(el_val_t s);
|
||||
el_val_t engram_score_node(el_val_t node_json);
|
||||
el_val_t engram_render_node(el_val_t node_json);
|
||||
el_val_t engram_render_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_dedup_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_compile_ranked(el_val_t nodes_json, el_val_t max_nodes);
|
||||
el_val_t engram_split_topics(el_val_t message);
|
||||
el_val_t engram_extract_entities(el_val_t message);
|
||||
el_val_t engram_detect_recall_intent(el_val_t message);
|
||||
el_val_t engram_is_continuation(el_val_t message, el_val_t hist_len);
|
||||
el_val_t engram_compile_multi(el_val_t topic);
|
||||
el_val_t engram_nodes_merge(el_val_t a, el_val_t b);
|
||||
el_val_t id_in_seen(el_val_t node_id, el_val_t seen);
|
||||
el_val_t add_to_seen(el_val_t seen, el_val_t node_id);
|
||||
el_val_t engram_extract_ids(el_val_t nodes_json);
|
||||
el_val_t engram_compile(el_val_t intent);
|
||||
el_val_t distill_transcript(el_val_t transcript);
|
||||
el_val_t json_safe(el_val_t s);
|
||||
el_val_t build_system_prompt(el_val_t ctx);
|
||||
el_val_t current_engine_note(el_val_t model);
|
||||
el_val_t bounded_persona_floor(void);
|
||||
el_val_t build_system_prompt(el_val_t ctx, el_val_t chat_mode);
|
||||
el_val_t hist_append(el_val_t hist, el_val_t role, el_val_t content);
|
||||
el_val_t hist_trim(el_val_t hist);
|
||||
el_val_t hist_trim_with_bell_guard(el_val_t hist);
|
||||
el_val_t clean_llm_response(el_val_t s);
|
||||
el_val_t conv_history_persist(el_val_t hist);
|
||||
el_val_t conv_history_load(void);
|
||||
el_val_t session_preload_bullets(el_val_t nodes, el_val_t max_bullets, el_val_t snip_len);
|
||||
el_val_t affective_context_prefix(void);
|
||||
el_val_t handle_chat(el_val_t body);
|
||||
el_val_t handle_see(el_val_t body);
|
||||
el_val_t studio_tools_json(void);
|
||||
el_val_t agentic_api_key(void);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args_json);
|
||||
el_val_t llm_base_url(void);
|
||||
el_val_t llm_wire_format(void);
|
||||
el_val_t json_escape(el_val_t s);
|
||||
el_val_t openai_chat_complete(el_val_t model, el_val_t base_url, el_val_t api_key, el_val_t safe_sys, el_val_t messages_json);
|
||||
el_val_t agentic_tools_literal(void);
|
||||
el_val_t agentic_tools_with_web(void);
|
||||
el_val_t connector_tools_json(void);
|
||||
el_val_t agentic_tools_all(void);
|
||||
el_val_t call_mcp_bridge(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t tool_auto_approved(el_val_t tool_name);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args);
|
||||
el_val_t agent_workspace_root(void);
|
||||
el_val_t path_within_root(el_val_t path, el_val_t root);
|
||||
el_val_t resolve_in_root(el_val_t path, el_val_t root);
|
||||
el_val_t run_command_is_readonly(el_val_t cmd);
|
||||
el_val_t cmd_abs_escape_at(el_val_t cmd, el_val_t root, el_val_t needle);
|
||||
el_val_t run_command_guard(el_val_t cmd, el_val_t root);
|
||||
el_val_t classify_tool_risk(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t dispatch_tool(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t is_builtin_tool(el_val_t tool_name);
|
||||
el_val_t next_bridge_id(void);
|
||||
el_val_t handle_chat_plan(el_val_t body);
|
||||
el_val_t handle_chat_agentic(el_val_t body);
|
||||
el_val_t agentic_loop(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages_in, el_val_t h, el_val_t tools_log_in);
|
||||
el_val_t bridge_save(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages, el_val_t tools_log, el_val_t tool_use_id);
|
||||
el_val_t agentic_resume(el_val_t session_id, el_val_t tool_use_id, el_val_t content);
|
||||
el_val_t handle_tool_result(el_val_t session_id, el_val_t body);
|
||||
el_val_t handle_chat_as_soul(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn_agentic(el_val_t body);
|
||||
el_val_t session_summary_write(el_val_t summary_text);
|
||||
el_val_t session_summary_write_dated(el_val_t summary_text, el_val_t label);
|
||||
el_val_t session_summary_autogenerate(el_val_t hist);
|
||||
el_val_t auto_persist(el_val_t req, el_val_t resp);
|
||||
el_val_t strengthen_chat_nodes(el_val_t activation_nodes);
|
||||
el_val_t auth_headers(el_val_t tok);
|
||||
@@ -87,9 +137,17 @@ el_val_t api_ok(el_val_t extra);
|
||||
el_val_t api_err(el_val_t msg);
|
||||
el_val_t api_nonempty(el_val_t s);
|
||||
el_val_t api_or_empty(el_val_t s);
|
||||
el_val_t api_persisted(el_val_t id);
|
||||
el_val_t api_not_persisted(el_val_t id);
|
||||
el_val_t tombstone_node(el_val_t id);
|
||||
el_val_t tombstoned_id_set(void);
|
||||
el_val_t memory_hide_tombstoned(el_val_t raw, el_val_t path);
|
||||
el_val_t handle_api_begin_session(el_val_t body);
|
||||
el_val_t handle_api_compile_ctx(el_val_t body);
|
||||
el_val_t handle_api_remember(el_val_t body);
|
||||
el_val_t handle_api_node_create(el_val_t body);
|
||||
el_val_t handle_api_node_delete(el_val_t body);
|
||||
el_val_t handle_api_node_update(el_val_t body);
|
||||
el_val_t handle_api_recall(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_search_knowledge(el_val_t method, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_browse_knowledge(el_val_t path, el_val_t body);
|
||||
@@ -106,9 +164,29 @@ el_val_t handle_api_inspect_graph(el_val_t method, el_val_t path, el_val_t body)
|
||||
el_val_t handle_api_link_entities(el_val_t body);
|
||||
el_val_t handle_api_forget(el_val_t body);
|
||||
el_val_t handle_api_evolve_memory(el_val_t body);
|
||||
el_val_t handle_api_memory_delete(el_val_t body);
|
||||
el_val_t handle_api_memory_update(el_val_t body);
|
||||
el_val_t handle_api_cultivate(el_val_t body);
|
||||
el_val_t handle_api_list_typed(el_val_t node_type, el_val_t path, el_val_t body);
|
||||
el_val_t handle_api_consolidate(el_val_t body);
|
||||
el_val_t session_title_from_message(el_val_t message);
|
||||
el_val_t session_make_content(el_val_t id, el_val_t title, el_val_t created_at, el_val_t updated_at, el_val_t folder);
|
||||
el_val_t session_exists(el_val_t session_id);
|
||||
el_val_t session_create(el_val_t body);
|
||||
el_val_t session_create_cleanup(el_val_t session_id);
|
||||
el_val_t session_list(void);
|
||||
el_val_t session_get(el_val_t session_id);
|
||||
el_val_t session_delete(el_val_t session_id);
|
||||
el_val_t session_update_patch(el_val_t session_id, el_val_t body);
|
||||
el_val_t session_search_entry(el_val_t node);
|
||||
el_val_t session_search(el_val_t query);
|
||||
el_val_t session_hist_load(el_val_t session_id);
|
||||
el_val_t session_hist_save(el_val_t session_id, el_val_t hist);
|
||||
el_val_t session_update_meta_timestamp(el_val_t session_id);
|
||||
el_val_t session_auto_title(el_val_t session_id, el_val_t first_message);
|
||||
el_val_t handle_session_approve(el_val_t session_id, el_val_t body);
|
||||
el_val_t flag_true(el_val_t body, el_val_t key);
|
||||
el_val_t rate_limit_check(el_val_t ip, el_val_t path);
|
||||
el_val_t strip_query(el_val_t path);
|
||||
el_val_t err_404(el_val_t path);
|
||||
el_val_t err_405(el_val_t method, el_val_t path);
|
||||
@@ -118,9 +196,45 @@ el_val_t route_imprint_contextual(el_val_t body);
|
||||
el_val_t route_imprint_user(el_val_t body);
|
||||
el_val_t route_synthesize(el_val_t body);
|
||||
el_val_t handle_dharma_recv(el_val_t body);
|
||||
el_val_t route_sessions(void);
|
||||
el_val_t connectd_get(el_val_t suffix);
|
||||
el_val_t connectd_post(el_val_t suffix, el_val_t body);
|
||||
el_val_t handle_connectors(el_val_t method, el_val_t clean, el_val_t body);
|
||||
el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body);
|
||||
|
||||
el_val_t flag_true(el_val_t body, el_val_t key) {
|
||||
return (json_get_bool(body, key) || (json_get_int(body, key) > 0));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t rate_limit_check(el_val_t ip, el_val_t path) {
|
||||
if (str_eq(path, EL_STR("/health"))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t limit_str = state_get(EL_STR("soul_rate_limit"));
|
||||
el_val_t limit = ({ el_val_t _if_result_1 = 0; if (str_eq(limit_str, EL_STR(""))) { _if_result_1 = (60); } else { _if_result_1 = (str_to_int(limit_str)); } _if_result_1; });
|
||||
el_val_t now = time_now();
|
||||
el_val_t window_key = el_str_concat(el_str_concat(EL_STR("rl:"), ip), EL_STR(":window"));
|
||||
el_val_t count_key = el_str_concat(el_str_concat(EL_STR("rl:"), ip), EL_STR(":count"));
|
||||
el_val_t win_str = state_get(window_key);
|
||||
el_val_t win_start = ({ el_val_t _if_result_2 = 0; if (str_eq(win_str, EL_STR(""))) { _if_result_2 = (now); } else { _if_result_2 = (str_to_int(win_str)); } _if_result_2; });
|
||||
el_val_t elapsed = (now - win_start);
|
||||
el_val_t in_window = (elapsed < 60);
|
||||
el_val_t prev_count_str = state_get(count_key);
|
||||
el_val_t prev_count = ({ el_val_t _if_result_3 = 0; if (str_eq(prev_count_str, EL_STR(""))) { _if_result_3 = (0); } else { _if_result_3 = (str_to_int(prev_count_str)); } _if_result_3; });
|
||||
el_val_t eff_count = ({ el_val_t _if_result_4 = 0; if (in_window) { _if_result_4 = (prev_count); } else { _if_result_4 = (0); } _if_result_4; });
|
||||
el_val_t eff_win = ({ el_val_t _if_result_5 = 0; if (in_window) { _if_result_5 = (win_start); } else { _if_result_5 = (now); } _if_result_5; });
|
||||
el_val_t new_count = (eff_count + 1);
|
||||
state_set(count_key, int_to_str(new_count));
|
||||
state_set(window_key, int_to_str(eff_win));
|
||||
if (new_count > limit) {
|
||||
el_val_t retry_after = (60 - (now - eff_win));
|
||||
el_val_t eff_retry = ({ el_val_t _if_result_6 = 0; if ((retry_after < 0)) { _if_result_6 = (0); } else { _if_result_6 = (retry_after); } _if_result_6; });
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"__status__\":429,\"error\":\"rate limit exceeded\",\"code\":\"rate_limited\",\"retry_after_secs\":"), int_to_str(eff_retry)), EL_STR("}"));
|
||||
}
|
||||
return EL_STR("");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t strip_query(el_val_t path) {
|
||||
el_val_t q = str_index_of(path, EL_STR("?"));
|
||||
if (q < 0) {
|
||||
@@ -131,24 +245,31 @@ el_val_t strip_query(el_val_t path) {
|
||||
}
|
||||
|
||||
el_val_t err_404(el_val_t path) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"error\":\"not found\",\"path\":\""), path), EL_STR("\"}"));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"error\":\"not found\",\"code\":\"not_found\",\"path\":\""), path), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t err_405(el_val_t method, el_val_t path) {
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"error\":\"method not allowed\",\"method\":\""), method), EL_STR("\",\"path\":\"")), path), EL_STR("\"}"));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"error\":\"method not allowed\",\"code\":\"method_not_allowed\",\"method\":\""), method), EL_STR("\",\"path\":\"")), path), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t route_health(void) {
|
||||
el_val_t cgi_id = state_get(EL_STR("soul_cgi_id"));
|
||||
el_val_t boot = state_get(EL_STR("soul_boot_count"));
|
||||
el_val_t boot_num = ({ el_val_t _if_result_1 = 0; if (str_eq(boot, EL_STR(""))) { _if_result_1 = (EL_STR("0")); } else { _if_result_1 = (boot); } _if_result_1; });
|
||||
el_val_t boot_num = ({ el_val_t _if_result_7 = 0; if (str_eq(boot, EL_STR(""))) { _if_result_7 = (EL_STR("0")); } else { _if_result_7 = (boot); } _if_result_7; });
|
||||
el_val_t node_ct = engram_node_count();
|
||||
el_val_t edge_ct = engram_edge_count();
|
||||
el_val_t pulse = state_get(EL_STR("soul.pulse"));
|
||||
el_val_t pulse_num = ({ el_val_t _if_result_2 = 0; if (str_eq(pulse, EL_STR(""))) { _if_result_2 = (EL_STR("0")); } else { _if_result_2 = (pulse); } _if_result_2; });
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"status\":\"alive\""), EL_STR(",\"cgi_id\":\"")), cgi_id), EL_STR("\"")), EL_STR(",\"boot\":")), boot_num), EL_STR(",\"node_count\":")), int_to_str(node_ct)), EL_STR(",\"edge_count\":")), int_to_str(edge_ct)), EL_STR(",\"pulse\":")), pulse_num), EL_STR("}"));
|
||||
el_val_t pulse_num = ({ el_val_t _if_result_8 = 0; if (str_eq(pulse, EL_STR(""))) { _if_result_8 = (EL_STR("0")); } else { _if_result_8 = (pulse); } _if_result_8; });
|
||||
el_val_t boot_ts_str = state_get(EL_STR("soul_boot_ts"));
|
||||
el_val_t uptime_secs = ({ el_val_t _if_result_9 = 0; if (str_eq(boot_ts_str, EL_STR(""))) { _if_result_9 = ((-1)); } else { _if_result_9 = ((time_now() - str_to_int(boot_ts_str))); } _if_result_9; });
|
||||
el_val_t model = state_get(EL_STR("soul_model"));
|
||||
el_val_t eff_model = ({ el_val_t _if_result_10 = 0; if (str_eq(model, EL_STR(""))) { _if_result_10 = (EL_STR("claude-sonnet-4-5")); } else { _if_result_10 = (model); } _if_result_10; });
|
||||
el_val_t llm_probe = llm_call_system(eff_model, EL_STR("You are a health probe. Reply with the single word: ok"), EL_STR("ping"));
|
||||
el_val_t llm_ok = (((!str_eq(llm_probe, EL_STR("")) && !str_starts_with(llm_probe, EL_STR("{\"error\""))) && !str_starts_with(llm_probe, EL_STR("{\"type\":\"error\""))) && !str_contains(llm_probe, EL_STR("authentication_error")));
|
||||
el_val_t llm_status = ({ el_val_t _if_result_11 = 0; if (llm_ok) { _if_result_11 = (EL_STR("ok")); } else { _if_result_11 = (EL_STR("unreachable")); } _if_result_11; });
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"status\":\"alive\""), EL_STR(",\"cgi_id\":\"")), cgi_id), EL_STR("\"")), EL_STR(",\"boot\":")), boot_num), EL_STR(",\"uptime_secs\":")), int_to_str(uptime_secs)), EL_STR(",\"node_count\":")), int_to_str(node_ct)), EL_STR(",\"edge_count\":")), int_to_str(edge_ct)), EL_STR(",\"pulse\":")), pulse_num), EL_STR(",\"llm\":\"")), llm_status), EL_STR("\"")), EL_STR(",\"layers\":{\"l0\":\"core\",\"l1\":\"safety\",\"l2\":\"stewardship\",\"l3\":\"")), imprint_current()), EL_STR("\"}}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
@@ -195,15 +316,15 @@ el_val_t route_imprint_user(el_val_t body) {
|
||||
|
||||
el_val_t route_synthesize(el_val_t body) {
|
||||
if (str_eq(body, EL_STR(""))) {
|
||||
return EL_STR("{\"mechanism\":\"did not engage\"}");
|
||||
return EL_STR("{\"error\":\"body is required\",\"code\":\"missing_param\"}");
|
||||
}
|
||||
el_val_t parent_a = json_get(body, EL_STR("parent_a"));
|
||||
el_val_t parent_b = json_get(body, EL_STR("parent_b"));
|
||||
if (str_eq(parent_a, EL_STR(""))) {
|
||||
return EL_STR("{\"mechanism\":\"did not engage\"}");
|
||||
return EL_STR("{\"error\":\"parent_a is required\",\"code\":\"missing_param\"}");
|
||||
}
|
||||
if (str_eq(parent_b, EL_STR(""))) {
|
||||
return EL_STR("{\"mechanism\":\"did not engage\"}");
|
||||
return EL_STR("{\"error\":\"parent_b is required\",\"code\":\"missing_param\"}");
|
||||
}
|
||||
el_val_t req = el_str_concat(el_str_concat(el_str_concat(EL_STR("synthesize "), parent_a), EL_STR(" ")), parent_b);
|
||||
el_val_t tags = EL_STR("[\"soul-inbox-pending\",\"synthesis-request\"]");
|
||||
@@ -217,28 +338,30 @@ el_val_t handle_dharma_recv(el_val_t body) {
|
||||
el_val_t from_id = json_get(body, EL_STR("from"));
|
||||
el_val_t event_type = json_get(content_raw, EL_STR("event_type"));
|
||||
el_val_t payload = json_get(content_raw, EL_STR("payload"));
|
||||
el_val_t eff_event = ({ el_val_t _if_result_3 = 0; if (str_eq(event_type, EL_STR(""))) { _if_result_3 = (EL_STR("chat")); } else { _if_result_3 = (event_type); } _if_result_3; });
|
||||
el_val_t eff_payload = ({ el_val_t _if_result_4 = 0; if (str_eq(payload, EL_STR(""))) { _if_result_4 = (content_raw); } else { _if_result_4 = (payload); } _if_result_4; });
|
||||
el_val_t eff_event = ({ el_val_t _if_result_12 = 0; if (str_eq(event_type, EL_STR(""))) { _if_result_12 = (EL_STR("chat")); } else { _if_result_12 = (event_type); } _if_result_12; });
|
||||
el_val_t eff_payload = ({ el_val_t _if_result_13 = 0; if (str_eq(payload, EL_STR(""))) { _if_result_13 = (content_raw); } else { _if_result_13 = (payload); } _if_result_13; });
|
||||
if (str_eq(eff_event, EL_STR("chat"))) {
|
||||
el_val_t msg = json_get(eff_payload, EL_STR("message"));
|
||||
el_val_t chat_body = ({ el_val_t _if_result_5 = 0; if (str_eq(msg, EL_STR(""))) { _if_result_5 = (el_str_concat(el_str_concat(EL_STR("{\"message\":\""), str_replace(str_replace(eff_payload, EL_STR("\\"), EL_STR("\\\\")), EL_STR("\""), EL_STR("\\\""))), EL_STR("\"}"))); } else { _if_result_5 = (eff_payload); } _if_result_5; });
|
||||
el_val_t chat_body = ({ el_val_t _if_result_14 = 0; if (str_eq(msg, EL_STR(""))) { _if_result_14 = (el_str_concat(el_str_concat(EL_STR("{\"message\":\""), str_replace(str_replace(eff_payload, EL_STR("\\"), EL_STR("\\\\")), EL_STR("\""), EL_STR("\\\""))), EL_STR("\"}"))); } else { _if_result_14 = (eff_payload); } _if_result_14; });
|
||||
el_val_t agentic_flag = json_get_bool(eff_payload, EL_STR("agentic"));
|
||||
el_val_t reply = ({ el_val_t _if_result_6 = 0; if (agentic_flag) { _if_result_6 = (handle_chat_agentic(chat_body)); } else { _if_result_6 = (handle_chat(chat_body)); } _if_result_6; });
|
||||
el_val_t raw_msg = json_get(chat_body, EL_STR("message"));
|
||||
el_val_t req_mode = json_get(chat_body, EL_STR("mode"));
|
||||
el_val_t reply = ({ el_val_t _if_result_15 = 0; if (str_eq(req_mode, EL_STR("plan"))) { _if_result_15 = (handle_chat_plan(chat_body)); } else { _if_result_15 = (({ el_val_t _if_result_16 = 0; if (agentic_flag) { _if_result_16 = (handle_chat_agentic(chat_body)); } else { el_val_t screened_reply = layered_cycle(raw_msg); _if_result_16 = (screened_reply); } _if_result_16; })); } _if_result_15; });
|
||||
auto_persist(chat_body, reply);
|
||||
return reply;
|
||||
}
|
||||
if (str_eq(eff_event, EL_STR("memory"))) {
|
||||
el_val_t query = json_get(eff_payload, EL_STR("query"));
|
||||
el_val_t limit_str = json_get(eff_payload, EL_STR("limit"));
|
||||
el_val_t limit = ({ el_val_t _if_result_7 = 0; if (str_eq(limit_str, EL_STR(""))) { _if_result_7 = (20); } else { _if_result_7 = (str_to_int(limit_str)); } _if_result_7; });
|
||||
el_val_t q = ({ el_val_t _if_result_8 = 0; if (str_eq(query, EL_STR(""))) { _if_result_8 = (eff_payload); } else { _if_result_8 = (query); } _if_result_8; });
|
||||
el_val_t limit = ({ el_val_t _if_result_17 = 0; if (str_eq(limit_str, EL_STR(""))) { _if_result_17 = (20); } else { _if_result_17 = (str_to_int(limit_str)); } _if_result_17; });
|
||||
el_val_t q = ({ el_val_t _if_result_18 = 0; if (str_eq(query, EL_STR(""))) { _if_result_18 = (eff_payload); } else { _if_result_18 = (query); } _if_result_18; });
|
||||
return engram_search_json(q, limit);
|
||||
}
|
||||
if (str_eq(eff_event, EL_STR("tool"))) {
|
||||
el_val_t path_field = json_get(eff_payload, EL_STR("path"));
|
||||
el_val_t method_field = json_get(eff_payload, EL_STR("method"));
|
||||
el_val_t tool_body = json_get(eff_payload, EL_STR("body"));
|
||||
el_val_t eff_method = ({ el_val_t _if_result_9 = 0; if (str_eq(method_field, EL_STR(""))) { _if_result_9 = (EL_STR("POST")); } else { _if_result_9 = (method_field); } _if_result_9; });
|
||||
el_val_t eff_method = ({ el_val_t _if_result_19 = 0; if (str_eq(method_field, EL_STR(""))) { _if_result_19 = (EL_STR("POST")); } else { _if_result_19 = (method_field); } _if_result_19; });
|
||||
return handle_tool(path_field, eff_method, tool_body);
|
||||
}
|
||||
if (str_eq(eff_event, EL_STR("see"))) {
|
||||
@@ -263,20 +386,66 @@ el_val_t handle_dharma_recv(el_val_t body) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t route_sessions(void) {
|
||||
el_val_t results = engram_search_json(EL_STR("session-start"), 20);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return EL_STR("[]");
|
||||
el_val_t connectd_get(el_val_t suffix) {
|
||||
el_val_t out = exec_capture(el_str_concat(EL_STR("curl -s --max-time 5 http://127.0.0.1:7771"), suffix));
|
||||
if (str_eq(out, EL_STR(""))) {
|
||||
return EL_STR("{\"ok\":false,\"error\":\"connector bridge unreachable (neuron-connectd on :7771)\"}");
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return EL_STR("[]");
|
||||
return out;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t connectd_post(el_val_t suffix, el_val_t body) {
|
||||
el_val_t eff = ({ el_val_t _if_result_20 = 0; if (str_eq(body, EL_STR(""))) { _if_result_20 = (EL_STR("{}")); } else { _if_result_20 = (body); } _if_result_20; });
|
||||
el_val_t tmp = el_str_concat(el_str_concat(EL_STR("/tmp/neuron-connectors-req-"), int_to_str(time_now())), EL_STR(".json"));
|
||||
fs_write(tmp, eff);
|
||||
el_val_t out = exec_capture(el_str_concat(el_str_concat(el_str_concat(EL_STR("curl -s --max-time 20 -X POST http://127.0.0.1:7771"), suffix), EL_STR(" -H 'Content-Type: application/json' -d @")), tmp));
|
||||
if (str_eq(out, EL_STR(""))) {
|
||||
return EL_STR("{\"ok\":false,\"error\":\"connector bridge unreachable (neuron-connectd on :7771)\"}");
|
||||
}
|
||||
return results;
|
||||
return out;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_connectors(el_val_t method, el_val_t clean, el_val_t body) {
|
||||
if (str_eq(method, EL_STR("GET"))) {
|
||||
return connectd_get(EL_STR("/mcp/servers"));
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/add"))) {
|
||||
return connectd_post(EL_STR("/mcp/servers/add"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/toggle"))) {
|
||||
return connectd_post(EL_STR("/mcp/servers/toggle"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/auto-approve"))) {
|
||||
return connectd_post(EL_STR("/mcp/servers/auto-approve"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/remove"))) {
|
||||
return connectd_post(EL_STR("/mcp/servers/remove"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/secret"))) {
|
||||
return connectd_post(EL_STR("/mcp/servers/secret"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/oauth/start"))) {
|
||||
return connectd_post(EL_STR("/mcp/oauth/start"), body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/connectors/call"))) {
|
||||
return connectd_post(EL_STR("/mcp/call"), body);
|
||||
}
|
||||
return EL_STR("{\"ok\":false,\"error\":\"unknown connectors route\"}");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
el_val_t clean = strip_query(path);
|
||||
state_set(EL_STR("soul.last_activity_ts"), int_to_str(time_now()));
|
||||
el_val_t ip = env(EL_STR("REMOTE_ADDR"));
|
||||
if (!str_eq(ip, EL_STR(""))) {
|
||||
el_val_t rl_result = rate_limit_check(ip, clean);
|
||||
if (!str_eq(rl_result, EL_STR(""))) {
|
||||
return rl_result;
|
||||
}
|
||||
}
|
||||
if (str_eq(method, EL_STR("POST")) && str_eq(clean, EL_STR("/dharma/recv"))) {
|
||||
return handle_dharma_recv(body);
|
||||
}
|
||||
@@ -284,9 +453,6 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
if (str_eq(clean, EL_STR("/health"))) {
|
||||
return route_health();
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/sessions"))) {
|
||||
return route_sessions();
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/lineage"))) {
|
||||
return route_lineage();
|
||||
}
|
||||
@@ -294,14 +460,23 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
return engram_scan_nodes_json(9999, 0);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/graph/edges"))) {
|
||||
el_val_t snap_path = el_str_concat(env(EL_STR("HOME")), EL_STR("/.neuron/engram/snapshot.json"));
|
||||
engram_save(snap_path);
|
||||
el_val_t snap = fs_read(snap_path);
|
||||
el_val_t export_path = el_str_concat(env(EL_STR("HOME")), EL_STR("/.neuron/engram/.soul-edges-export.json"));
|
||||
engram_save(export_path);
|
||||
el_val_t snap = fs_read(export_path);
|
||||
el_val_t edges_raw = json_get_raw(snap, EL_STR("edges"));
|
||||
return ({ el_val_t _if_result_10 = 0; if (str_eq(edges_raw, EL_STR(""))) { _if_result_10 = (EL_STR("[]")); } else { _if_result_10 = (edges_raw); } _if_result_10; });
|
||||
return ({ el_val_t _if_result_21 = 0; if (str_eq(edges_raw, EL_STR(""))) { _if_result_21 = (EL_STR("[]")); } else { _if_result_21 = (edges_raw); } _if_result_21; });
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/chat"))) {
|
||||
return handle_chat(body);
|
||||
el_val_t raw_msg = json_get(body, EL_STR("message"));
|
||||
el_val_t eff_msg = ({ el_val_t _if_result_22 = 0; if (str_eq(raw_msg, EL_STR(""))) { _if_result_22 = (body); } else { _if_result_22 = (raw_msg); } _if_result_22; });
|
||||
if (str_eq(eff_msg, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"message is required\",\"code\":\"missing_param\"}");
|
||||
}
|
||||
el_val_t agentic_flag = json_get_bool(body, EL_STR("agentic"));
|
||||
el_val_t req_mode = json_get(body, EL_STR("mode"));
|
||||
el_val_t reply = ({ el_val_t _if_result_23 = 0; if (str_eq(req_mode, EL_STR("plan"))) { _if_result_23 = (handle_chat_plan(body)); } else { _if_result_23 = (({ el_val_t _if_result_24 = 0; if (agentic_flag) { _if_result_24 = (handle_chat_agentic(body)); } else { el_val_t screened_reply = layered_cycle(eff_msg); _if_result_24 = (screened_reply); } _if_result_24; })); } _if_result_23; });
|
||||
auto_persist(body, reply);
|
||||
return reply;
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/conversations"))) {
|
||||
return handle_conversations(method);
|
||||
@@ -345,6 +520,9 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
if (str_eq(clean, EL_STR("/api/neuron/ctx"))) {
|
||||
return handle_api_compile_ctx(EL_STR(""));
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/safety-contact"))) {
|
||||
return handle_safety_contact_get();
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/neuron/knowledge/search"))) {
|
||||
return handle_api_search_knowledge(method, path, body);
|
||||
}
|
||||
@@ -364,15 +542,55 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
return handle_api_inspect_graph(method, path, body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/neuron/list/"))) {
|
||||
el_val_t node_type = str_slice(clean, 16, str_len(clean));
|
||||
el_val_t node_type = str_slice(clean, 17, str_len(clean));
|
||||
return handle_api_list_typed(node_type, path, body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/neuron/recall"))) {
|
||||
return handle_api_recall(method, path, body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/connectors"))) {
|
||||
return handle_connectors(method, clean, body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/run-progress/"))) {
|
||||
el_val_t rp_id = str_slice(clean, 18, str_len(clean));
|
||||
if (!str_eq(rp_id, EL_STR(""))) {
|
||||
el_val_t rp_raw = state_get(el_str_concat(EL_STR("run_progress_"), rp_id));
|
||||
el_val_t rp_arr = ({ el_val_t _if_result_25 = 0; if (str_eq(rp_raw, EL_STR(""))) { _if_result_25 = (EL_STR("[]")); } else { _if_result_25 = (el_str_concat(el_str_concat(EL_STR("["), rp_raw), EL_STR("]"))); } _if_result_25; });
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"progress\":"), rp_arr), EL_STR("}"));
|
||||
}
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/sessions"))) {
|
||||
return session_list();
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/sessions/"))) {
|
||||
el_val_t gs_after = str_slice(clean, 14, str_len(clean));
|
||||
el_val_t gs_slash = str_index_of(gs_after, EL_STR("/"));
|
||||
el_val_t gs_id = ({ el_val_t _if_result_26 = 0; if ((gs_slash < 0)) { _if_result_26 = (gs_after); } else { _if_result_26 = (str_slice(gs_after, 0, gs_slash)); } _if_result_26; });
|
||||
if (!str_eq(gs_id, EL_STR(""))) {
|
||||
return session_get(gs_id);
|
||||
}
|
||||
}
|
||||
return err_404(clean);
|
||||
}
|
||||
if (str_eq(method, EL_STR("POST"))) {
|
||||
if (str_eq(clean, EL_STR("/api/sessions"))) {
|
||||
return session_create(body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/sessions/")) && str_ends_with(clean, EL_STR("/tool_result"))) {
|
||||
el_val_t after = str_slice(clean, 14, str_len(clean));
|
||||
el_val_t slash = str_index_of(after, EL_STR("/"));
|
||||
el_val_t session_id = ({ el_val_t _if_result_27 = 0; if ((slash < 0)) { _if_result_27 = (after); } else { _if_result_27 = (str_slice(after, 0, slash)); } _if_result_27; });
|
||||
return handle_tool_result(session_id, body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/sessions/"))) {
|
||||
el_val_t sess_after = str_slice(clean, 14, str_len(clean));
|
||||
el_val_t sess_slash = str_index_of(sess_after, EL_STR("/"));
|
||||
el_val_t sess_id = ({ el_val_t _if_result_28 = 0; if ((sess_slash < 0)) { _if_result_28 = (sess_after); } else { _if_result_28 = (str_slice(sess_after, 0, sess_slash)); } _if_result_28; });
|
||||
el_val_t sess_sub = ({ el_val_t _if_result_29 = 0; if ((sess_slash < 0)) { _if_result_29 = (EL_STR("")); } else { _if_result_29 = (str_slice(sess_after, (sess_slash + 1), str_len(sess_after))); } _if_result_29; });
|
||||
if (!str_eq(sess_id, EL_STR("")) && str_eq(sess_sub, EL_STR("approve"))) {
|
||||
return handle_session_approve(sess_id, body);
|
||||
}
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/imprint/contextual"))) {
|
||||
return route_imprint_contextual(body);
|
||||
}
|
||||
@@ -386,8 +604,13 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
return handle_elp_chat(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/chat"))) {
|
||||
el_val_t raw_msg = json_get(body, EL_STR("message"));
|
||||
if (str_eq(raw_msg, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"message is required\",\"code\":\"missing_param\"}");
|
||||
}
|
||||
el_val_t agentic_flag = json_get_bool(body, EL_STR("agentic"));
|
||||
el_val_t reply = ({ el_val_t _if_result_11 = 0; if (agentic_flag) { _if_result_11 = (handle_chat_agentic(body)); } else { _if_result_11 = (handle_chat(body)); } _if_result_11; });
|
||||
el_val_t req_mode = json_get(body, EL_STR("mode"));
|
||||
el_val_t reply = ({ el_val_t _if_result_30 = 0; if (str_eq(req_mode, EL_STR("plan"))) { _if_result_30 = (handle_chat_plan(body)); } else { _if_result_30 = (({ el_val_t _if_result_31 = 0; if (agentic_flag) { _if_result_31 = (handle_chat_agentic(body)); } else { el_val_t screened_reply = layered_cycle(raw_msg); _if_result_31 = (screened_reply); } _if_result_31; })); } _if_result_30; });
|
||||
auto_persist(body, reply);
|
||||
return reply;
|
||||
}
|
||||
@@ -469,12 +692,30 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
if (str_eq(clean, EL_STR("/api/neuron/memory"))) {
|
||||
return handle_api_remember(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/safety-contact"))) {
|
||||
return handle_safety_contact_post(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/node/create"))) {
|
||||
return handle_api_node_create(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/node/update"))) {
|
||||
return handle_api_node_update(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/node/delete"))) {
|
||||
return handle_api_node_delete(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/memory/evolve"))) {
|
||||
return handle_api_evolve_memory(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/memory/forget"))) {
|
||||
return handle_api_forget(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/memory/delete"))) {
|
||||
return handle_api_memory_delete(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/memory/update"))) {
|
||||
return handle_api_memory_update(body);
|
||||
}
|
||||
if (str_eq(clean, EL_STR("/api/neuron/recall"))) {
|
||||
return handle_api_recall(method, path, body);
|
||||
}
|
||||
@@ -484,6 +725,31 @@ el_val_t handle_request(el_val_t method, el_val_t path, el_val_t body) {
|
||||
if (str_eq(clean, EL_STR("/api/neuron/cultivate"))) {
|
||||
return handle_api_cultivate(body);
|
||||
}
|
||||
if (str_starts_with(clean, EL_STR("/api/connectors"))) {
|
||||
return handle_connectors(method, clean, body);
|
||||
}
|
||||
return err_404(clean);
|
||||
}
|
||||
if (str_eq(method, EL_STR("DELETE"))) {
|
||||
if (str_starts_with(clean, EL_STR("/api/sessions/"))) {
|
||||
el_val_t del_after = str_slice(clean, 14, str_len(clean));
|
||||
el_val_t del_slash = str_index_of(del_after, EL_STR("/"));
|
||||
el_val_t del_id = ({ el_val_t _if_result_32 = 0; if ((del_slash < 0)) { _if_result_32 = (del_after); } else { _if_result_32 = (str_slice(del_after, 0, del_slash)); } _if_result_32; });
|
||||
if (!str_eq(del_id, EL_STR(""))) {
|
||||
return session_delete(del_id);
|
||||
}
|
||||
}
|
||||
return err_404(clean);
|
||||
}
|
||||
if (str_eq(method, EL_STR("PATCH"))) {
|
||||
if (str_starts_with(clean, EL_STR("/api/sessions/"))) {
|
||||
el_val_t patch_after = str_slice(clean, 14, str_len(clean));
|
||||
el_val_t patch_slash = str_index_of(patch_after, EL_STR("/"));
|
||||
el_val_t patch_id = ({ el_val_t _if_result_33 = 0; if ((patch_slash < 0)) { _if_result_33 = (patch_after); } else { _if_result_33 = (str_slice(patch_after, 0, patch_slash)); } _if_result_33; });
|
||||
if (!str_eq(patch_id, EL_STR(""))) {
|
||||
return session_update_patch(patch_id, body);
|
||||
}
|
||||
}
|
||||
return err_404(clean);
|
||||
}
|
||||
return err_405(method, clean);
|
||||
|
||||
+5
-1
@@ -1,4 +1,6 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn flag_true(body: String, key: String) -> Bool
|
||||
extern fn rate_limit_check(ip: String, path: String) -> String
|
||||
extern fn strip_query(path: String) -> String
|
||||
extern fn err_404(path: String) -> String
|
||||
extern fn err_405(method: String, path: String) -> String
|
||||
@@ -8,5 +10,7 @@ extern fn route_imprint_contextual(body: String) -> String
|
||||
extern fn route_imprint_user(body: String) -> String
|
||||
extern fn route_synthesize(body: String) -> String
|
||||
extern fn handle_dharma_recv(body: String) -> String
|
||||
extern fn route_sessions() -> String
|
||||
extern fn connectd_get(suffix: String) -> String
|
||||
extern fn connectd_post(suffix: String, body: String) -> String
|
||||
extern fn handle_connectors(method: String, clean: String, body: String) -> String
|
||||
extern fn handle_request(method: String, path: String, body: String) -> String
|
||||
|
||||
+370
@@ -0,0 +1,370 @@
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t tier_working(void);
|
||||
el_val_t tier_episodic(void);
|
||||
el_val_t tier_canonical(void);
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags);
|
||||
el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
el_val_t mem_load(el_val_t path);
|
||||
el_val_t mem_boot_count_get(void);
|
||||
el_val_t mem_boot_count_inc(void);
|
||||
el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content);
|
||||
el_val_t soft_bell_threshold(void);
|
||||
el_val_t hard_bell_threshold(void);
|
||||
el_val_t safety_score_crisis(el_val_t input);
|
||||
el_val_t safety_score_harm(el_val_t input);
|
||||
el_val_t safety_score_danger(el_val_t input);
|
||||
el_val_t safety_score_distress_history(el_val_t history);
|
||||
el_val_t safety_threat_score(el_val_t input, el_val_t history);
|
||||
el_val_t safety_screen(el_val_t input, el_val_t history);
|
||||
el_val_t safety_validate(el_val_t output, el_val_t action);
|
||||
el_val_t safety_log_bell(el_val_t level, el_val_t reason, el_val_t input_summary);
|
||||
el_val_t safety_self_harm_phrases(void);
|
||||
el_val_t safety_abuse_phrases(void);
|
||||
el_val_t safety_general_hard_phrases(void);
|
||||
el_val_t safety_threat_to_others_phrases(void);
|
||||
el_val_t safety_soft_phrases(void);
|
||||
el_val_t safety_normalize(el_val_t message);
|
||||
el_val_t safety_any_match(el_val_t text, el_val_t phrases_json);
|
||||
el_val_t safety_count_match(el_val_t text, el_val_t phrases_json);
|
||||
el_val_t safety_positive_phrases(void);
|
||||
el_val_t safety_detect_positive_level(el_val_t message);
|
||||
el_val_t safety_detect_bell_level(el_val_t message);
|
||||
el_val_t safety_classify_hard_bell(el_val_t message);
|
||||
el_val_t safety_soft_directive(void);
|
||||
el_val_t safety_hard_directive(el_val_t hard_type);
|
||||
el_val_t safety_augment_system(el_val_t system, el_val_t user_msg);
|
||||
el_val_t safety_contact_path(void);
|
||||
el_val_t handle_safety_contact_get(void);
|
||||
el_val_t handle_safety_contact_post(el_val_t body);
|
||||
|
||||
el_val_t soft_bell_threshold(void) {
|
||||
return 35;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t hard_bell_threshold(void) {
|
||||
return 70;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_score_crisis(el_val_t input) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_1 = 0; if (str_contains(input, EL_STR("kill myself"))) { _if_result_1 = (80); } else { _if_result_1 = (0); } _if_result_1; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_2 = 0; if (str_contains(input, EL_STR("want to die"))) { _if_result_2 = (75); } else { _if_result_2 = (0); } _if_result_2; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_3 = 0; if (str_contains(input, EL_STR("end my life"))) { _if_result_3 = (80); } else { _if_result_3 = (0); } _if_result_3; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_4 = 0; if (str_contains(input, EL_STR("suicide"))) { _if_result_4 = (70); } else { _if_result_4 = (0); } _if_result_4; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_5 = 0; if (str_contains(input, EL_STR("suicidal"))) { _if_result_5 = (75); } else { _if_result_5 = (0); } _if_result_5; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_6 = 0; if (str_contains(input, EL_STR("don't want to be here"))) { _if_result_6 = (60); } else { _if_result_6 = (0); } _if_result_6; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_7 = 0; if (str_contains(input, EL_STR("no reason to live"))) { _if_result_7 = (70); } else { _if_result_7 = (0); } _if_result_7; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_8 = 0; if (str_contains(input, EL_STR("better off dead"))) { _if_result_8 = (75); } else { _if_result_8 = (0); } _if_result_8; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_9 = 0; if (str_contains(input, EL_STR("can't go on"))) { _if_result_9 = (50); } else { _if_result_9 = (0); } _if_result_9; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_10 = 0; if (str_contains(input, EL_STR("not worth living"))) { _if_result_10 = (65); } else { _if_result_10 = (0); } _if_result_10; });
|
||||
return (((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_score_harm(el_val_t input) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_11 = 0; if (str_contains(input, EL_STR("hurt myself"))) { _if_result_11 = (60); } else { _if_result_11 = (0); } _if_result_11; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_12 = 0; if (str_contains(input, EL_STR("cut myself"))) { _if_result_12 = (65); } else { _if_result_12 = (0); } _if_result_12; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_13 = 0; if (str_contains(input, EL_STR("self harm"))) { _if_result_13 = (60); } else { _if_result_13 = (0); } _if_result_13; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_14 = 0; if (str_contains(input, EL_STR("self-harm"))) { _if_result_14 = (60); } else { _if_result_14 = (0); } _if_result_14; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_15 = 0; if (str_contains(input, EL_STR("overdose"))) { _if_result_15 = (65); } else { _if_result_15 = (0); } _if_result_15; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_16 = 0; if (str_contains(input, EL_STR("take all my pills"))) { _if_result_16 = (75); } else { _if_result_16 = (0); } _if_result_16; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_17 = 0; if (str_contains(input, EL_STR("starving myself"))) { _if_result_17 = (50); } else { _if_result_17 = (0); } _if_result_17; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_18 = 0; if (str_contains(input, EL_STR("burning myself"))) { _if_result_18 = (60); } else { _if_result_18 = (0); } _if_result_18; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_19 = 0; if (str_contains(input, EL_STR("punish myself"))) { _if_result_19 = (40); } else { _if_result_19 = (0); } _if_result_19; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_20 = 0; if (str_contains(input, EL_STR("deserve to suffer"))) { _if_result_20 = (45); } else { _if_result_20 = (0); } _if_result_20; });
|
||||
return (((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_score_danger(el_val_t input) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_21 = 0; if ((str_contains(input, EL_STR("help me")) && str_contains(input, EL_STR("emergency")))) { _if_result_21 = (55); } else { _if_result_21 = (0); } _if_result_21; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_22 = 0; if (str_contains(input, EL_STR("call 911"))) { _if_result_22 = (50); } else { _if_result_22 = (0); } _if_result_22; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_23 = 0; if (str_contains(input, EL_STR("call an ambulance"))) { _if_result_23 = (55); } else { _if_result_23 = (0); } _if_result_23; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_24 = 0; if (str_contains(input, EL_STR("in danger"))) { _if_result_24 = (50); } else { _if_result_24 = (0); } _if_result_24; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_25 = 0; if (str_contains(input, EL_STR("someone is threatening"))) { _if_result_25 = (60); } else { _if_result_25 = (0); } _if_result_25; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_26 = 0; if (str_contains(input, EL_STR("being abused"))) { _if_result_26 = (55); } else { _if_result_26 = (0); } _if_result_26; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_27 = 0; if (str_contains(input, EL_STR("domestic violence"))) { _if_result_27 = (55); } else { _if_result_27 = (0); } _if_result_27; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_28 = 0; if ((str_contains(input, EL_STR("trapped")) && str_contains(input, EL_STR("can't escape")))) { _if_result_28 = (60); } else { _if_result_28 = (0); } _if_result_28; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_29 = 0; if (str_contains(input, EL_STR("he is going to hurt"))) { _if_result_29 = (65); } else { _if_result_29 = (0); } _if_result_29; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_30 = 0; if (str_contains(input, EL_STR("she is going to hurt"))) { _if_result_30 = (65); } else { _if_result_30 = (0); } _if_result_30; });
|
||||
return (((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_score_distress_history(el_val_t history) {
|
||||
el_val_t s1 = ({ el_val_t _if_result_31 = 0; if (str_contains(history, EL_STR("hopeless"))) { _if_result_31 = (15); } else { _if_result_31 = (0); } _if_result_31; });
|
||||
el_val_t s2 = ({ el_val_t _if_result_32 = 0; if (str_contains(history, EL_STR("worthless"))) { _if_result_32 = (15); } else { _if_result_32 = (0); } _if_result_32; });
|
||||
el_val_t s3 = ({ el_val_t _if_result_33 = 0; if (str_contains(history, EL_STR("nobody cares"))) { _if_result_33 = (15); } else { _if_result_33 = (0); } _if_result_33; });
|
||||
el_val_t s4 = ({ el_val_t _if_result_34 = 0; if (str_contains(history, EL_STR("no one cares"))) { _if_result_34 = (15); } else { _if_result_34 = (0); } _if_result_34; });
|
||||
el_val_t s5 = ({ el_val_t _if_result_35 = 0; if (str_contains(history, EL_STR("completely alone"))) { _if_result_35 = (15); } else { _if_result_35 = (0); } _if_result_35; });
|
||||
el_val_t s6 = ({ el_val_t _if_result_36 = 0; if (str_contains(history, EL_STR("all alone"))) { _if_result_36 = (10); } else { _if_result_36 = (0); } _if_result_36; });
|
||||
el_val_t s7 = ({ el_val_t _if_result_37 = 0; if (str_contains(history, EL_STR("can't take it anymore"))) { _if_result_37 = (20); } else { _if_result_37 = (0); } _if_result_37; });
|
||||
el_val_t s8 = ({ el_val_t _if_result_38 = 0; if (str_contains(history, EL_STR("want to disappear"))) { _if_result_38 = (20); } else { _if_result_38 = (0); } _if_result_38; });
|
||||
el_val_t s9 = ({ el_val_t _if_result_39 = 0; if (str_contains(history, EL_STR("don't care anymore"))) { _if_result_39 = (15); } else { _if_result_39 = (0); } _if_result_39; });
|
||||
el_val_t s10 = ({ el_val_t _if_result_40 = 0; if (str_contains(history, EL_STR("giving up"))) { _if_result_40 = (15); } else { _if_result_40 = (0); } _if_result_40; });
|
||||
return (((((((((s1 + s2) + s3) + s4) + s5) + s6) + s7) + s8) + s9) + s10);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_threat_score(el_val_t input, el_val_t history) {
|
||||
el_val_t input_lower = str_to_lower(input);
|
||||
el_val_t history_lower = str_to_lower(history);
|
||||
el_val_t crisis = safety_score_crisis(input_lower);
|
||||
el_val_t harm = safety_score_harm(input_lower);
|
||||
el_val_t danger = safety_score_danger(input_lower);
|
||||
el_val_t hist = safety_score_distress_history(history_lower);
|
||||
el_val_t input_score = ({ el_val_t _if_result_41 = 0; if ((crisis > harm)) { _if_result_41 = (({ el_val_t _if_result_42 = 0; if ((crisis > danger)) { _if_result_42 = (crisis); } else { _if_result_42 = (danger); } _if_result_42; })); } else { _if_result_41 = (({ el_val_t _if_result_43 = 0; if ((harm > danger)) { _if_result_43 = (harm); } else { _if_result_43 = (danger); } _if_result_43; })); } _if_result_41; });
|
||||
el_val_t hist_contrib = (hist / 3);
|
||||
el_val_t raw = (input_score + hist_contrib);
|
||||
el_val_t score = ({ el_val_t _if_result_44 = 0; if ((raw > 100)) { _if_result_44 = (100); } else { _if_result_44 = (raw); } _if_result_44; });
|
||||
return score;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_screen(el_val_t input, el_val_t history) {
|
||||
el_val_t score = safety_threat_score(input, history);
|
||||
el_val_t hard = hard_bell_threshold();
|
||||
el_val_t soft = soft_bell_threshold();
|
||||
if (score >= hard) {
|
||||
el_val_t summary = str_slice(input, 0, 80);
|
||||
el_val_t discard = safety_log_bell(EL_STR("hard"), EL_STR("immediate safety concern"), summary);
|
||||
return EL_STR("{\"action\":\"hard_bell\",\"reason\":\"immediate safety concern\",\"content\":\"\"}");
|
||||
}
|
||||
if (score >= soft) {
|
||||
el_val_t summary = str_slice(input, 0, 80);
|
||||
el_val_t discard = safety_log_bell(EL_STR("soft"), EL_STR("wellbeing check needed"), summary);
|
||||
el_val_t e1 = str_replace(input, EL_STR("\\"), EL_STR("\\\\"));
|
||||
el_val_t e2 = str_replace(e1, EL_STR("\""), EL_STR("\\\""));
|
||||
el_val_t e3 = str_replace(e2, EL_STR("\n"), EL_STR("\\n"));
|
||||
el_val_t e4 = str_replace(e3, EL_STR("\r"), EL_STR("\\r"));
|
||||
el_val_t safe_input = str_replace(e4, EL_STR("\t"), EL_STR("\\t"));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"action\":\"soft_bell\",\"reason\":\"wellbeing check needed\",\"content\":\""), safe_input), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t e1 = str_replace(input, EL_STR("\\"), EL_STR("\\\\"));
|
||||
el_val_t e2 = str_replace(e1, EL_STR("\""), EL_STR("\\\""));
|
||||
el_val_t e3 = str_replace(e2, EL_STR("\n"), EL_STR("\\n"));
|
||||
el_val_t e4 = str_replace(e3, EL_STR("\r"), EL_STR("\\r"));
|
||||
el_val_t safe_input = str_replace(e4, EL_STR("\t"), EL_STR("\\t"));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"action\":\"pass\",\"content\":\""), safe_input), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_validate(el_val_t output, el_val_t action) {
|
||||
if (str_eq(action, EL_STR("hard_bell"))) {
|
||||
return EL_STR("I'm here with you, and what you're sharing sounds serious. Please reach out to a crisis line now \xe2\x80\x94 in the US you can call or text 988 (Suicide and Crisis Lifeline), available 24/7. You don't have to go through this alone.");
|
||||
}
|
||||
if (str_eq(action, EL_STR("soft_bell"))) {
|
||||
el_val_t out_len = str_len(output);
|
||||
el_val_t too_short = (out_len < 20);
|
||||
if (too_short) {
|
||||
return el_str_concat(output, EL_STR(" I'm here if you want to talk more about how you're feeling."));
|
||||
}
|
||||
return output;
|
||||
}
|
||||
return output;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_log_bell(el_val_t level, el_val_t reason, el_val_t input_summary) {
|
||||
el_val_t content = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("BELL:"), level), EL_STR(" | ")), reason), EL_STR(" | summary:")), input_summary);
|
||||
el_val_t tags = el_str_concat(el_str_concat(EL_STR("[\"safety\",\"bell\",\"bell:"), level), EL_STR("\"]"));
|
||||
el_val_t node_id = engram_node_full(content, EL_STR("BellEvent"), el_str_concat(EL_STR("bell:"), level), el_from_float(0.95), el_from_float(0.95), el_from_float(1.0), EL_STR("Episodic"), tags);
|
||||
if (str_eq(node_id, EL_STR(""))) {
|
||||
println(el_str_concat(EL_STR("[safety] WARN: bell event engram write failed -- fallback log: "), content));
|
||||
}
|
||||
return EL_STR("");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_self_harm_phrases(void) {
|
||||
return EL_STR("[\"kill myself\",\"killing myself\",\"want to die\",\"want to be dead\",\"going to end my life\",\"end my life\",\"take my life\",\"taking my life\",\"suicide\",\"suicidal\",\"can't go on\",\"cannot go on\",\"i have a knife\",\"i have a gun\",\"i have pills\",\"took pills\",\"took too many\",\"overdose\",\"overdosing\",\"self harm\",\"self-harm\",\"cutting myself\",\"hurt myself\",\"hurting myself\",\"no reason to live\",\"not worth living\",\"better off dead\",\"better off without me\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_abuse_phrases(void) {
|
||||
return EL_STR("[\"someone is hurting me\",\"someone's hurting me\",\"someone hurt me\",\"he hit me\",\"she hit me\",\"they hit me\",\"he hurt me\",\"she hurt me\",\"being abused\",\"being hurt by\",\"i am being abused\",\"i'm being abused\",\"i am being hurt\",\"i'm being hurt\",\"domestic violence\",\"my partner hurt\",\"my partner hit\",\"my husband hurt\",\"my wife hurt\",\"my boyfriend hurt\",\"my girlfriend hurt\",\"my parent hurt\",\"my father hurt\",\"my mother hurt\",\"my dad hurt\",\"my mom hurt\",\"afraid of him\",\"afraid of her\",\"afraid to go home\",\"scared of him\",\"scared of her\",\"he threatened me\",\"she threatened me\",\"threatened to hurt me\",\"threatened to kill me\",\"going to hurt me\",\"going to kill me\",\"help me he\",\"help me she\",\"help me they\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_general_hard_phrases(void) {
|
||||
return EL_STR("[\"going to kill\",\"going to hurt\",\"hurting me\",\"being hurt\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_threat_to_others_phrases(void) {
|
||||
return EL_STR("[\"going to kill\",\"gonna kill\",\"want to kill him\",\"want to kill her\",\"want to kill them\",\"going to kill him\",\"going to kill her\",\"going to kill them\",\"going to kill you\",\"going to hurt\",\"gonna hurt\",\"going to hurt him\",\"going to hurt her\",\"going to hurt them\",\"going to hurt you\",\"going to shoot\",\"gonna shoot\",\"going to stab\",\"gonna stab\",\"going to attack\",\"kill them all\",\"kill everyone\",\"hurt everyone\",\"shoot up\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_soft_phrases(void) {
|
||||
return EL_STR("[\"stressed\",\"overwhelmed\",\"can't cope\",\"cannot cope\",\"struggling\",\"anxious\",\"anxiety\",\"depressed\",\"depression\",\"lonely\",\"isolated\",\"hopeless\",\"hopelessness\",\"exhausted\",\"burnt out\",\"burned out\",\"burnout\",\"panic\",\"panicking\",\"falling apart\",\"breaking down\",\"can't handle\",\"cannot handle\",\"losing it\",\"nothing matters\",\"don't care anymore\",\"given up\",\"giving up\",\"helpless\",\"worthless\",\"useless\",\"hate myself\",\"no one cares\",\"nobody cares\",\"no one understands\",\"nobody understands\",\"empty inside\",\"can't stop crying\",\"breaking point\",\"at my limit\",\"having a breakdown\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_normalize(el_val_t message) {
|
||||
el_val_t lower = str_to_lower(message);
|
||||
return str_replace(lower, EL_STR("\xe2\x80\x99"), EL_STR("'"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_any_match(el_val_t text, el_val_t phrases_json) {
|
||||
el_val_t n = json_array_len(phrases_json);
|
||||
el_val_t i = 0;
|
||||
el_val_t found = 0;
|
||||
while (i < n) {
|
||||
el_val_t phrase = json_array_get_string(phrases_json, i);
|
||||
found = ({ el_val_t _if_result_45 = 0; if (str_contains(text, phrase)) { _if_result_45 = (1); } else { _if_result_45 = (found); } _if_result_45; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return found;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_count_match(el_val_t text, el_val_t phrases_json) {
|
||||
el_val_t n = json_array_len(phrases_json);
|
||||
el_val_t i = 0;
|
||||
el_val_t count = 0;
|
||||
while (i < n) {
|
||||
el_val_t phrase = json_array_get_string(phrases_json, i);
|
||||
count = ({ el_val_t _if_result_46 = 0; if (str_contains(text, phrase)) { _if_result_46 = ((count + 1)); } else { _if_result_46 = (count); } _if_result_46; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return count;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_positive_phrases(void) {
|
||||
return EL_STR("[\"thrilled\",\"so excited\",\"so happy\",\"over the moon\",\"ecstatic\",\"amazing news\",\"great news\",\"fantastic news\",\"wonderful news\",\"incredible news\",\"i got the job\",\"got accepted\",\"got in\",\"we won\",\"i won\",\"we got\",\"just got engaged\",\"getting married\",\"baby is here\",\"she said yes\",\"he said yes\",\"passed the exam\",\"aced it\",\"nailed it\",\"best day\",\"dream come true\",\"milestone\",\"promotion\",\"got promoted\",\"raise\",\"got a raise\",\"celebrating\",\"just graduated\",\"we closed\",\"launched\",\"shipped it\",\"we did it\",\"so proud\",\"proud of myself\",\"proud of us\",\"so grateful\",\"feel amazing\",\"feeling amazing\",\"feel great\",\"feeling great\",\"on top of the world\",\"life is good\",\"couldn't be happier\"]");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_detect_positive_level(el_val_t message) {
|
||||
el_val_t phrases = safety_positive_phrases();
|
||||
el_val_t phrases_ok = (!str_eq(phrases, EL_STR("")) && !str_eq(phrases, EL_STR("[]")));
|
||||
if (!phrases_ok) {
|
||||
return EL_STR("none");
|
||||
}
|
||||
el_val_t n = json_array_len(phrases);
|
||||
el_val_t i = 0;
|
||||
while (i < n) {
|
||||
el_val_t phrase = json_array_get(phrases, i);
|
||||
if (str_contains(message, phrase)) {
|
||||
return EL_STR("high");
|
||||
}
|
||||
i = (i + 1);
|
||||
}
|
||||
return EL_STR("none");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_detect_bell_level(el_val_t message) {
|
||||
el_val_t text = safety_normalize(message);
|
||||
el_val_t is_hard = (((safety_any_match(text, safety_self_harm_phrases()) || safety_any_match(text, safety_abuse_phrases())) || safety_any_match(text, safety_general_hard_phrases())) || safety_any_match(text, safety_threat_to_others_phrases()));
|
||||
if (is_hard) {
|
||||
return EL_STR("hard");
|
||||
}
|
||||
el_val_t soft_count = safety_count_match(text, safety_soft_phrases());
|
||||
if (soft_count >= 2) {
|
||||
return EL_STR("soft");
|
||||
}
|
||||
return EL_STR("none");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_classify_hard_bell(el_val_t message) {
|
||||
el_val_t text = safety_normalize(message);
|
||||
if (safety_any_match(text, safety_abuse_phrases())) {
|
||||
return EL_STR("abuse");
|
||||
}
|
||||
if (safety_any_match(text, safety_self_harm_phrases())) {
|
||||
return EL_STR("self_harm");
|
||||
}
|
||||
if (safety_any_match(text, safety_threat_to_others_phrases())) {
|
||||
return EL_STR("threat_other");
|
||||
}
|
||||
return EL_STR("self_harm");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_soft_directive(void) {
|
||||
return EL_STR("[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nBefore responding to the user's message, acknowledge what they've said with genuine care and warmth. Pause on the feeling they expressed. Ask how they are, or whether they want to talk about it. Do this naturally, in your own voice - not as a script, not as a checklist. Only after checking in should you continue with whatever they asked.");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_hard_directive(el_val_t hard_type) {
|
||||
if (str_eq(hard_type, EL_STR("threat_other"))) {
|
||||
return EL_STR("[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nThe user's message may express intent to harm ANOTHER person. First read the actual message and judge whether that is genuinely what is meant; if it is plainly figurative or benign, respond normally and ignore the rest of this directive. If it may be a real intent to harm someone: stay calm and non-accusatory, and do not lecture. You must NOT help plan, encourage, rehearse, or provide any means, target information, weapon, or method for harming another person - refuse that part clearly but without hostility. Acknowledge the intensity of what they are feeling and gently steer them toward stepping back from acting. Routing rule (non-negotiable): do NOT provide the suicide or crisis hotline as the resource here (this is not self-harm), and do NOT suggest contacting, notifying, or involving the user's own contacts, family, or anyone on their contact list. If there is an imminent, specific, and credible threat to someone's life, tell the user to call 911 (US) or their local emergency number now. Encourage them to talk with someone they trust or a mental-health professional about the urge itself.");
|
||||
}
|
||||
el_val_t preamble = EL_STR("[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nThe person has expressed something that sounds like immediate distress or danger. Do not ignore it. Do not just answer the surface question. Lead with genuine human warmth. Acknowledge what you heard. Tell them you're concerned. Let them know they are not alone. Ask them directly if they are safe right now. Stay with them in this conversation.");
|
||||
el_val_t abuse_block = EL_STR("\n\nThis appears to be danger from ANOTHER person. Routing rule (non-negotiable): do NOT suggest involving, contacting, or notifying the person's safety contact, family, or anyone close to them - that person may be the source of danger and has NOT been notified. Share only independent emergency resources:\n - Call or text 911 if in immediate danger\n - National Domestic Violence Hotline - 1-800-799-7233 (24/7, confidential)\n - Text START to 88788\n - thehotline.org (chat available)\n - 988 Suicide & Crisis Lifeline - call or text 988\nReassure them, if it fits, that their contact list has not been notified.");
|
||||
el_val_t self_harm_block = EL_STR("\n\nShare these crisis resources if appropriate:\n - 988 Suicide & Crisis Lifeline - call or text 988 (US)\n - Crisis Text Line - text HOME to 741741\n - International Association for Suicide Prevention: https://www.iasp.info/resources/Crisis_Centres/");
|
||||
if (str_eq(hard_type, EL_STR("abuse"))) {
|
||||
return el_str_concat(preamble, abuse_block);
|
||||
}
|
||||
return el_str_concat(preamble, self_harm_block);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_augment_system(el_val_t system, el_val_t user_msg) {
|
||||
el_val_t level = safety_detect_bell_level(user_msg);
|
||||
if (str_eq(level, EL_STR("none"))) {
|
||||
return system;
|
||||
}
|
||||
if (str_eq(level, EL_STR("soft"))) {
|
||||
el_val_t logd = mem_emit_state_event(EL_STR("safety-bell"), EL_STR("soft"), EL_STR("soft bell fired (content not stored)"));
|
||||
return el_str_concat(el_str_concat(system, EL_STR("\n\n")), safety_soft_directive());
|
||||
}
|
||||
el_val_t hard_type = safety_classify_hard_bell(user_msg);
|
||||
el_val_t logd2 = mem_emit_state_event(EL_STR("safety-bell"), el_str_concat(EL_STR("hard:"), hard_type), EL_STR("hard bell fired (content not stored)"));
|
||||
return el_str_concat(el_str_concat(system, EL_STR("\n\n")), safety_hard_directive(hard_type));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t safety_contact_path(void) {
|
||||
return el_str_concat(env(EL_STR("HOME")), EL_STR("/.neuron/safety-contact.json"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_safety_contact_get(void) {
|
||||
el_val_t raw = fs_read(safety_contact_path());
|
||||
if (str_eq(raw, EL_STR(""))) {
|
||||
return EL_STR("{\"configured\":false}");
|
||||
}
|
||||
el_val_t _reset = fs_read(EL_STR(""));
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"configured\":true,\"contact\":"), raw), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_safety_contact_post(el_val_t body) {
|
||||
el_val_t is_crisis = json_get_bool(body, EL_STR("is_crisis_line"));
|
||||
el_val_t name_in = json_get(body, EL_STR("name"));
|
||||
if (!is_crisis) {
|
||||
if (str_eq(name_in, EL_STR(""))) {
|
||||
return EL_STR("{\"ok\":false,\"error\":\"name is required\"}");
|
||||
}
|
||||
}
|
||||
el_val_t name = ({ el_val_t _if_result_47 = 0; if (is_crisis) { _if_result_47 = (EL_STR("Crisis Line")); } else { _if_result_47 = (name_in); } _if_result_47; });
|
||||
el_val_t method = ({ el_val_t _if_result_48 = 0; if (is_crisis) { _if_result_48 = (EL_STR("crisis-line")); } else { _if_result_48 = (json_get(body, EL_STR("contact_method"))); } _if_result_48; });
|
||||
el_val_t value = ({ el_val_t _if_result_49 = 0; if (is_crisis) { _if_result_49 = (EL_STR("988")); } else { _if_result_49 = (json_get(body, EL_STR("contact_value"))); } _if_result_49; });
|
||||
el_val_t rel = ({ el_val_t _if_result_50 = 0; if (is_crisis) { _if_result_50 = (EL_STR("crisis-support")); } else { _if_result_50 = (json_get(body, EL_STR("relationship"))); } _if_result_50; });
|
||||
el_val_t crisis_str = ({ el_val_t _if_result_51 = 0; if (is_crisis) { _if_result_51 = (EL_STR("true")); } else { _if_result_51 = (EL_STR("false")); } _if_result_51; });
|
||||
el_val_t now = time_format(time_now(), EL_STR("%Y-%m-%dT%H:%M:%SZ"));
|
||||
el_val_t contact_json = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"name\":\""), json_safe(name)), EL_STR("\"")), EL_STR(",\"contact_method\":\"")), json_safe(method)), EL_STR("\"")), EL_STR(",\"contact_value\":\"")), json_safe(value)), EL_STR("\"")), EL_STR(",\"relationship\":\"")), json_safe(rel)), EL_STR("\"")), EL_STR(",\"confirmed\":true")), EL_STR(",\"is_crisis_line\":")), crisis_str), EL_STR(",\"set_at\":\"")), now), EL_STR("\"}"));
|
||||
el_val_t write_ok = fs_write(safety_contact_path(), contact_json);
|
||||
if (write_ok == 0) {
|
||||
return EL_STR("{\"ok\":false,\"error\":\"write_failed\"}");
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"configured\":true,\"contact\":"), contact_json), EL_STR(",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
+29
@@ -0,0 +1,29 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn soft_bell_threshold() -> Int
|
||||
extern fn hard_bell_threshold() -> Int
|
||||
extern fn safety_score_crisis(input: String) -> Int
|
||||
extern fn safety_score_harm(input: String) -> Int
|
||||
extern fn safety_score_danger(input: String) -> Int
|
||||
extern fn safety_score_distress_history(history: String) -> Int
|
||||
extern fn safety_threat_score(input: String, history: String) -> Int
|
||||
extern fn safety_screen(input: String, history: String) -> String
|
||||
extern fn safety_validate(output: String, action: String) -> String
|
||||
extern fn safety_log_bell(level: String, reason: String, input_summary: String) -> String
|
||||
extern fn safety_self_harm_phrases() -> String
|
||||
extern fn safety_abuse_phrases() -> String
|
||||
extern fn safety_general_hard_phrases() -> String
|
||||
extern fn safety_threat_to_others_phrases() -> String
|
||||
extern fn safety_soft_phrases() -> String
|
||||
extern fn safety_normalize(message: String) -> String
|
||||
extern fn safety_any_match(text: String, phrases_json: String) -> Bool
|
||||
extern fn safety_count_match(text: String, phrases_json: String) -> Int
|
||||
extern fn safety_positive_phrases() -> String
|
||||
extern fn safety_detect_positive_level(message: String) -> String
|
||||
extern fn safety_detect_bell_level(message: String) -> String
|
||||
extern fn safety_classify_hard_bell(message: String) -> String
|
||||
extern fn safety_soft_directive() -> String
|
||||
extern fn safety_hard_directive(hard_type: String) -> String
|
||||
extern fn safety_augment_system(system: String, user_msg: String) -> String
|
||||
extern fn safety_contact_path() -> String
|
||||
extern fn handle_safety_contact_get() -> String
|
||||
extern fn handle_safety_contact_post(body: String) -> String
|
||||
+14
-14
@@ -1,18 +1,18 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn sem_frame(intent: String, subject: String, obj: String, modifiers: String) -> Any
|
||||
extern fn sem_frame_lang(intent: String, subject: String, obj: String, modifiers: String, lang_code: String) -> Any
|
||||
extern fn sem_frame_simple(intent: String, subject: String) -> Any
|
||||
extern fn sem_frame_obj(intent: String, subject: String, obj: String) -> Any
|
||||
extern fn sem_intent(frame: Any) -> String
|
||||
extern fn sem_subject(frame: Any) -> String
|
||||
extern fn sem_object(frame: Any) -> String
|
||||
extern fn sem_modifiers(frame: Any) -> String
|
||||
extern fn sem_lang(frame: Any) -> String
|
||||
extern fn sem_frame(intent: String, subject: String, obj: String, modifiers: String) -> [String]
|
||||
extern fn sem_frame_lang(intent: String, subject: String, obj: String, modifiers: String, lang_code: String) -> [String]
|
||||
extern fn sem_frame_simple(intent: String, subject: String) -> [String]
|
||||
extern fn sem_frame_obj(intent: String, subject: String, obj: String) -> [String]
|
||||
extern fn sem_intent(frame: [String]) -> String
|
||||
extern fn sem_subject(frame: [String]) -> String
|
||||
extern fn sem_object(frame: [String]) -> String
|
||||
extern fn sem_modifiers(frame: [String]) -> String
|
||||
extern fn sem_lang(frame: [String]) -> String
|
||||
extern fn sem_first_modifier(mods: String) -> String
|
||||
extern fn sem_intent_to_realize(intent: String) -> String
|
||||
extern fn sem_to_spec(frame: Any) -> Any
|
||||
extern fn sem_to_spec_full(frame: Any, verb: String, tense: String, aspect: String) -> Any
|
||||
extern fn sem_to_spec(frame: [String]) -> [String]
|
||||
extern fn sem_to_spec_full(frame: [String], verb: String, tense: String, aspect: String) -> [String]
|
||||
extern fn sem_realize_greet(subject: String) -> String
|
||||
extern fn sem_realize(frame: Any) -> String
|
||||
extern fn sem_realize_full(frame: Any, verb: String, tense: String, aspect: String) -> String
|
||||
extern fn sem_realize_lang(frame: Any, lang_code: String) -> String
|
||||
extern fn sem_realize(frame: [String]) -> String
|
||||
extern fn sem_realize_full(frame: [String], verb: String, tense: String, aspect: String) -> String
|
||||
extern fn sem_realize_lang(frame: [String], lang_code: String) -> String
|
||||
|
||||
+631
@@ -0,0 +1,631 @@
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t tier_working(void);
|
||||
el_val_t tier_episodic(void);
|
||||
el_val_t tier_canonical(void);
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags);
|
||||
el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
el_val_t mem_load(el_val_t path);
|
||||
el_val_t mem_boot_count_get(void);
|
||||
el_val_t mem_boot_count_inc(void);
|
||||
el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content);
|
||||
el_val_t chat_default_model(void);
|
||||
el_val_t engram_numeric_valid(el_val_t s);
|
||||
el_val_t parse_float_x100(el_val_t s);
|
||||
el_val_t engram_score_node(el_val_t node_json);
|
||||
el_val_t engram_render_node(el_val_t node_json);
|
||||
el_val_t engram_render_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_dedup_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_compile_ranked(el_val_t nodes_json, el_val_t max_nodes);
|
||||
el_val_t engram_split_topics(el_val_t message);
|
||||
el_val_t engram_extract_entities(el_val_t message);
|
||||
el_val_t engram_detect_recall_intent(el_val_t message);
|
||||
el_val_t engram_is_continuation(el_val_t message, el_val_t hist_len);
|
||||
el_val_t engram_compile_multi(el_val_t topic);
|
||||
el_val_t engram_nodes_merge(el_val_t a, el_val_t b);
|
||||
el_val_t id_in_seen(el_val_t node_id, el_val_t seen);
|
||||
el_val_t add_to_seen(el_val_t seen, el_val_t node_id);
|
||||
el_val_t engram_extract_ids(el_val_t nodes_json);
|
||||
el_val_t engram_compile(el_val_t intent);
|
||||
el_val_t distill_transcript(el_val_t transcript);
|
||||
el_val_t json_safe(el_val_t s);
|
||||
el_val_t current_engine_note(el_val_t model);
|
||||
el_val_t build_system_prompt(el_val_t ctx, el_val_t chat_mode);
|
||||
el_val_t hist_append(el_val_t hist, el_val_t role, el_val_t content);
|
||||
el_val_t hist_trim(el_val_t hist);
|
||||
el_val_t hist_trim_with_bell_guard(el_val_t hist);
|
||||
el_val_t clean_llm_response(el_val_t s);
|
||||
el_val_t conv_history_persist(el_val_t hist);
|
||||
el_val_t conv_history_load(void);
|
||||
el_val_t session_preload_bullets(el_val_t nodes, el_val_t max_bullets, el_val_t snip_len);
|
||||
el_val_t affective_context_prefix(void);
|
||||
el_val_t handle_chat(el_val_t body);
|
||||
el_val_t handle_see(el_val_t body);
|
||||
el_val_t studio_tools_json(void);
|
||||
el_val_t agentic_api_key(void);
|
||||
el_val_t llm_base_url(void);
|
||||
el_val_t llm_wire_format(void);
|
||||
el_val_t json_escape(el_val_t s);
|
||||
el_val_t openai_chat_complete(el_val_t model, el_val_t base_url, el_val_t api_key, el_val_t safe_sys, el_val_t messages_json);
|
||||
el_val_t agentic_tools_literal(void);
|
||||
el_val_t agentic_tools_with_web(void);
|
||||
el_val_t connector_tools_json(void);
|
||||
el_val_t agentic_tools_all(void);
|
||||
el_val_t call_mcp_bridge(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t tool_auto_approved(el_val_t tool_name);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args);
|
||||
el_val_t agent_workspace_root(void);
|
||||
el_val_t path_within_root(el_val_t path, el_val_t root);
|
||||
el_val_t resolve_in_root(el_val_t path, el_val_t root);
|
||||
el_val_t run_command_is_readonly(el_val_t cmd);
|
||||
el_val_t cmd_abs_escape_at(el_val_t cmd, el_val_t root, el_val_t needle);
|
||||
el_val_t run_command_guard(el_val_t cmd, el_val_t root);
|
||||
el_val_t classify_tool_risk(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t dispatch_tool(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t is_builtin_tool(el_val_t tool_name);
|
||||
el_val_t next_bridge_id(void);
|
||||
el_val_t handle_chat_plan(el_val_t body);
|
||||
el_val_t handle_chat_agentic(el_val_t body);
|
||||
el_val_t agentic_loop(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages_in, el_val_t h, el_val_t tools_log_in);
|
||||
el_val_t bridge_save(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages, el_val_t tools_log, el_val_t tool_use_id);
|
||||
el_val_t agentic_resume(el_val_t session_id, el_val_t tool_use_id, el_val_t content);
|
||||
el_val_t handle_tool_result(el_val_t session_id, el_val_t body);
|
||||
el_val_t handle_chat_as_soul(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn_agentic(el_val_t body);
|
||||
el_val_t session_summary_write(el_val_t summary_text);
|
||||
el_val_t session_summary_write_dated(el_val_t summary_text, el_val_t label);
|
||||
el_val_t session_summary_autogenerate(el_val_t hist);
|
||||
el_val_t auto_persist(el_val_t req, el_val_t resp);
|
||||
el_val_t strengthen_chat_nodes(el_val_t activation_nodes);
|
||||
el_val_t session_title_from_message(el_val_t message);
|
||||
el_val_t session_make_content(el_val_t id, el_val_t title, el_val_t created_at, el_val_t updated_at, el_val_t folder);
|
||||
el_val_t session_exists(el_val_t session_id);
|
||||
el_val_t session_create(el_val_t body);
|
||||
el_val_t session_create_cleanup(el_val_t session_id);
|
||||
el_val_t session_list(void);
|
||||
el_val_t session_get(el_val_t session_id);
|
||||
el_val_t session_delete(el_val_t session_id);
|
||||
el_val_t session_update_patch(el_val_t session_id, el_val_t body);
|
||||
el_val_t session_search_entry(el_val_t node);
|
||||
el_val_t session_search(el_val_t query);
|
||||
el_val_t session_hist_load(el_val_t session_id);
|
||||
el_val_t session_hist_save(el_val_t session_id, el_val_t hist);
|
||||
el_val_t session_update_meta_timestamp(el_val_t session_id);
|
||||
el_val_t session_auto_title(el_val_t session_id, el_val_t first_message);
|
||||
el_val_t handle_session_approve(el_val_t session_id, el_val_t body);
|
||||
|
||||
el_val_t session_title_from_message(el_val_t message) {
|
||||
if (str_eq(message, EL_STR(""))) {
|
||||
return EL_STR("New conversation");
|
||||
}
|
||||
el_val_t trimmed = str_trim(message);
|
||||
if (str_len(trimmed) <= 60) {
|
||||
return trimmed;
|
||||
}
|
||||
return str_slice(trimmed, 0, 60);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_make_content(el_val_t id, el_val_t title, el_val_t created_at, el_val_t updated_at, el_val_t folder) {
|
||||
el_val_t safe_title = json_safe(title);
|
||||
el_val_t safe_folder = json_safe(folder);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"type\":\"session:meta\""), EL_STR(",\"id\":\"")), id), EL_STR("\"")), EL_STR(",\"title\":\"")), safe_title), EL_STR("\"")), EL_STR(",\"folder\":\"")), safe_folder), EL_STR("\"")), EL_STR(",\"created_at\":")), int_to_str(created_at)), EL_STR(",\"updated_at\":")), int_to_str(updated_at)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_exists(el_val_t session_id) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t idx = state_get(EL_STR("session_index"));
|
||||
if (!str_eq(idx, EL_STR("")) && !str_eq(idx, EL_STR("[]"))) {
|
||||
if (str_contains(idx, el_str_concat(el_str_concat(EL_STR("\"id\":\""), session_id), EL_STR("\"")))) {
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), session_id), 5);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return 0;
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return 0;
|
||||
}
|
||||
el_val_t total = json_array_len(results);
|
||||
el_val_t found = 0;
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = (str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id));
|
||||
found = ({ el_val_t _if_result_1 = 0; if (is_match) { _if_result_1 = (1); } else { _if_result_1 = (found); } _if_result_1; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return found;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_create(el_val_t body) {
|
||||
el_val_t ts = time_now();
|
||||
el_val_t id = uuid_v4();
|
||||
el_val_t title_req = json_get(body, EL_STR("title"));
|
||||
el_val_t title = ({ el_val_t _if_result_2 = 0; if (str_eq(title_req, EL_STR(""))) { _if_result_2 = (EL_STR("New conversation")); } else { _if_result_2 = (title_req); } _if_result_2; });
|
||||
el_val_t folder = json_get(body, EL_STR("folder"));
|
||||
el_val_t content = session_make_content(id, title, ts, ts, folder);
|
||||
el_val_t tags = EL_STR("[\"session\",\"session:meta\",\"Conversation\"]");
|
||||
el_val_t node_id = engram_node_full(content, EL_STR("Conversation"), EL_STR("session:meta"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
if (str_eq(node_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"failed to create session\"}");
|
||||
}
|
||||
state_set(el_str_concat(EL_STR("session_node_"), id), node_id);
|
||||
state_set(el_str_concat(EL_STR("session_pending_first_msg_"), id), EL_STR("1"));
|
||||
el_val_t existing_idx = state_get(EL_STR("session_index"));
|
||||
el_val_t idx_entry = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\",\"title\":\"")), json_safe(title)), EL_STR("\",\"folder\":\"")), json_safe(folder)), EL_STR("\",\"created_at\":")), int_to_str(ts)), EL_STR(",\"updated_at\":")), int_to_str(ts)), EL_STR(",\"last_message\":\"\"}"));
|
||||
el_val_t new_idx = ({ el_val_t _if_result_3 = 0; if (str_eq(existing_idx, EL_STR(""))) { _if_result_3 = (el_str_concat(el_str_concat(EL_STR("["), idx_entry), EL_STR("]"))); } else { el_val_t inner = str_slice(existing_idx, 1, (str_len(existing_idx) - 1)); _if_result_3 = (el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("["), idx_entry), EL_STR(",")), inner), EL_STR("]"))); } _if_result_3; });
|
||||
state_set(EL_STR("session_index"), new_idx);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), id), EL_STR("\"")), EL_STR(",\"title\":\"")), json_safe(title)), EL_STR("\"")), EL_STR(",\"folder\":\"")), json_safe(folder)), EL_STR("\"")), EL_STR(",\"node_id\":\"")), node_id), EL_STR("\"")), EL_STR(",\"created_at\":")), int_to_str(ts)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_create_cleanup(el_val_t session_id) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"session_id is required\"}");
|
||||
}
|
||||
state_set(el_str_concat(EL_STR("session_pending_first_msg_"), session_id), EL_STR(""));
|
||||
return session_delete(session_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_list(void) {
|
||||
el_val_t state_idx = state_get(EL_STR("session_index"));
|
||||
if (!str_eq(state_idx, EL_STR("")) && !str_eq(state_idx, EL_STR("[]"))) {
|
||||
return state_idx;
|
||||
}
|
||||
el_val_t results = engram_search_json(EL_STR("session:meta"), 50);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
el_val_t total = json_array_len(results);
|
||||
el_val_t out = EL_STR("");
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t node_type = json_get(node, EL_STR("node_type"));
|
||||
el_val_t is_session = (str_eq(label, EL_STR("session:meta")) && str_eq(node_type, EL_STR("Conversation")));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sess_id = json_get(content, EL_STR("id"));
|
||||
el_val_t eff_id = ({ el_val_t _if_result_4 = 0; if (str_eq(sess_id, EL_STR(""))) { _if_result_4 = (json_get(node, EL_STR("id"))); } else { _if_result_4 = (sess_id); } _if_result_4; });
|
||||
el_val_t title_inner = json_get(content, EL_STR("title"));
|
||||
el_val_t eff_title = ({ el_val_t _if_result_5 = 0; if (str_eq(title_inner, EL_STR(""))) { _if_result_5 = (EL_STR("New conversation")); } else { _if_result_5 = (title_inner); } _if_result_5; });
|
||||
el_val_t folder_inner = json_get(content, EL_STR("folder"));
|
||||
el_val_t created_inner = json_get(content, EL_STR("created_at"));
|
||||
el_val_t updated_inner = json_get(content, EL_STR("updated_at"));
|
||||
el_val_t eff_created = ({ el_val_t _if_result_6 = 0; if (str_eq(created_inner, EL_STR(""))) { _if_result_6 = (EL_STR("0")); } else { _if_result_6 = (created_inner); } _if_result_6; });
|
||||
el_val_t eff_updated = ({ el_val_t _if_result_7 = 0; if (str_eq(updated_inner, EL_STR(""))) { _if_result_7 = (eff_created); } else { _if_result_7 = (updated_inner); } _if_result_7; });
|
||||
el_val_t entry = ({ el_val_t _if_result_8 = 0; if (is_session) { _if_result_8 = (el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), json_safe(eff_id)), EL_STR("\"")), EL_STR(",\"title\":\"")), json_safe(eff_title)), EL_STR("\"")), EL_STR(",\"folder\":\"")), json_safe(folder_inner)), EL_STR("\"")), EL_STR(",\"last_message\":\"\"")), EL_STR(",\"created_at\":")), eff_created), EL_STR(",\"updated_at\":")), eff_updated), EL_STR("}"))); } else { _if_result_8 = (EL_STR("")); } _if_result_8; });
|
||||
out = ({ el_val_t _if_result_9 = 0; if (!str_eq(entry, EL_STR(""))) { _if_result_9 = (({ el_val_t _if_result_10 = 0; if (str_eq(out, EL_STR(""))) { _if_result_10 = (entry); } else { _if_result_10 = (el_str_concat(el_str_concat(out, EL_STR(",")), entry)); } _if_result_10; })); } else { _if_result_9 = (out); } _if_result_9; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("["), out), EL_STR("]"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_get(el_val_t session_id) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"session_id is required\"}");
|
||||
}
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), session_id), 10);
|
||||
el_val_t meta_content = EL_STR("");
|
||||
el_val_t meta_title = EL_STR("New conversation");
|
||||
el_val_t meta_folder = EL_STR("");
|
||||
el_val_t meta_created = EL_STR("0");
|
||||
el_val_t meta_updated = EL_STR("0");
|
||||
el_val_t found = 0;
|
||||
el_val_t total = ({ el_val_t _if_result_11 = 0; if (str_eq(results, EL_STR(""))) { _if_result_11 = (0); } else { _if_result_11 = (json_array_len(results)); } _if_result_11; });
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = ((str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id)) && !found);
|
||||
found = ({ el_val_t _if_result_12 = 0; if (is_match) { _if_result_12 = (1); } else { _if_result_12 = (found); } _if_result_12; });
|
||||
meta_title = ({ el_val_t _if_result_13 = 0; if (is_match) { _if_result_13 = (json_get(content, EL_STR("title"))); } else { _if_result_13 = (meta_title); } _if_result_13; });
|
||||
meta_folder = ({ el_val_t _if_result_14 = 0; if (is_match) { _if_result_14 = (json_get(content, EL_STR("folder"))); } else { _if_result_14 = (meta_folder); } _if_result_14; });
|
||||
el_val_t meta_created_raw = json_get(content, EL_STR("created_at"));
|
||||
meta_created = ({ el_val_t _if_result_15 = 0; if ((is_match && !str_eq(meta_created_raw, EL_STR("")))) { _if_result_15 = (meta_created_raw); } else { _if_result_15 = (meta_created); } _if_result_15; });
|
||||
el_val_t meta_updated_raw = json_get(content, EL_STR("updated_at"));
|
||||
meta_updated = ({ el_val_t _if_result_16 = 0; if ((is_match && !str_eq(meta_updated_raw, EL_STR("")))) { _if_result_16 = (meta_updated_raw); } else { _if_result_16 = (meta_updated); } _if_result_16; });
|
||||
i = (i + 1);
|
||||
}
|
||||
el_val_t state_hist = state_get(el_str_concat(EL_STR("session_hist_"), session_id));
|
||||
el_val_t hist_raw = ({ el_val_t _if_result_17 = 0; if (str_eq(state_hist, EL_STR(""))) { el_val_t engram_hist = engram_search_json(el_str_concat(EL_STR("session:messages:"), session_id), 3); _if_result_17 = (({ el_val_t _if_result_18 = 0; if (str_eq(engram_hist, EL_STR(""))) { _if_result_18 = (EL_STR("[]")); } else { _if_result_18 = (({ el_val_t _if_result_19 = 0; if (str_eq(engram_hist, EL_STR("[]"))) { _if_result_19 = (EL_STR("[]")); } else { el_val_t h_node = json_array_get(engram_hist, 0); el_val_t h_content = json_get(h_node, EL_STR("content")); _if_result_19 = (({ el_val_t _if_result_20 = 0; if (str_starts_with(h_content, EL_STR("["))) { _if_result_20 = (h_content); } else { _if_result_20 = (EL_STR("[]")); } _if_result_20; })); } _if_result_19; })); } _if_result_18; })); } else { _if_result_17 = (state_hist); } _if_result_17; });
|
||||
el_val_t safe_title = json_safe(meta_title);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"id\":\""), session_id), EL_STR("\"")), EL_STR(",\"title\":\"")), safe_title), EL_STR("\"")), EL_STR(",\"folder\":\"")), json_safe(meta_folder)), EL_STR("\"")), EL_STR(",\"created_at\":")), meta_created), EL_STR(",\"updated_at\":")), meta_updated), EL_STR(",\"messages\":")), hist_raw), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_delete(el_val_t session_id) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"session_id is required\"}");
|
||||
}
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), session_id), 10);
|
||||
el_val_t total = ({ el_val_t _if_result_21 = 0; if (str_eq(results, EL_STR(""))) { _if_result_21 = (0); } else { _if_result_21 = (json_array_len(results)); } _if_result_21; });
|
||||
el_val_t deleted_meta = 0;
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = (str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id));
|
||||
el_val_t node_id = json_get(node, EL_STR("id"));
|
||||
deleted_meta = ({ el_val_t _if_result_22 = 0; if ((is_match && !str_eq(node_id, EL_STR("")))) { (void)(engram_forget(node_id)); _if_result_22 = ((deleted_meta + 1)); } else { _if_result_22 = (deleted_meta); } _if_result_22; });
|
||||
i = (i + 1);
|
||||
}
|
||||
el_val_t msg_results = engram_search_json(el_str_concat(EL_STR("session:messages:"), session_id), 10);
|
||||
el_val_t m_total = ({ el_val_t _if_result_23 = 0; if (str_eq(msg_results, EL_STR(""))) { _if_result_23 = (0); } else { _if_result_23 = (json_array_len(msg_results)); } _if_result_23; });
|
||||
el_val_t deleted_msgs = 0;
|
||||
el_val_t j = 0;
|
||||
while (j < m_total) {
|
||||
el_val_t node = json_array_get(msg_results, j);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t is_msgs = str_eq(label, el_str_concat(EL_STR("session:messages:"), session_id));
|
||||
el_val_t node_id = json_get(node, EL_STR("id"));
|
||||
deleted_msgs = ({ el_val_t _if_result_24 = 0; if ((is_msgs && !str_eq(node_id, EL_STR("")))) { (void)(engram_forget(node_id)); _if_result_24 = ((deleted_msgs + 1)); } else { _if_result_24 = (deleted_msgs); } _if_result_24; });
|
||||
j = (j + 1);
|
||||
}
|
||||
state_set(el_str_concat(EL_STR("session_hist_"), session_id), EL_STR(""));
|
||||
state_set(el_str_concat(EL_STR("session_node_"), session_id), EL_STR(""));
|
||||
state_set(EL_STR("session_index"), EL_STR(""));
|
||||
state_set(el_str_concat(EL_STR("mcp_bridge:"), session_id), EL_STR(""));
|
||||
state_set(el_str_concat(EL_STR("always_allow_"), session_id), EL_STR(""));
|
||||
state_set(el_str_concat(EL_STR("session_pending_first_msg_"), session_id), EL_STR(""));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"session_id\":\""), session_id), EL_STR("\"")), EL_STR(",\"deleted_meta\":")), int_to_str(deleted_meta)), EL_STR(",\"deleted_msgs\":")), int_to_str(deleted_msgs)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_update_patch(el_val_t session_id, el_val_t body) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"session_id is required\"}");
|
||||
}
|
||||
el_val_t has_title = str_contains(body, EL_STR("\"title\""));
|
||||
el_val_t has_folder = str_contains(body, EL_STR("\"folder\""));
|
||||
if (!has_title && !has_folder) {
|
||||
return EL_STR("{\"error\":\"title or folder required in body\"}");
|
||||
}
|
||||
el_val_t results = engram_search_json(EL_STR("session:meta"), 50);
|
||||
el_val_t total = ({ el_val_t _if_result_25 = 0; if (str_eq(results, EL_STR(""))) { _if_result_25 = (0); } else { _if_result_25 = (json_array_len(results)); } _if_result_25; });
|
||||
el_val_t found = 0;
|
||||
el_val_t old_title = EL_STR("New conversation");
|
||||
el_val_t old_folder = EL_STR("");
|
||||
el_val_t old_created = EL_STR("0");
|
||||
el_val_t old_node_id = EL_STR("");
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = ((str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id)) && !found);
|
||||
found = ({ el_val_t _if_result_26 = 0; if (is_match) { _if_result_26 = (1); } else { _if_result_26 = (found); } _if_result_26; });
|
||||
el_val_t title_raw = json_get(content, EL_STR("title"));
|
||||
old_title = ({ el_val_t _if_result_27 = 0; if ((is_match && !str_eq(title_raw, EL_STR("")))) { _if_result_27 = (title_raw); } else { _if_result_27 = (old_title); } _if_result_27; });
|
||||
el_val_t folder_raw = json_get(content, EL_STR("folder"));
|
||||
old_folder = ({ el_val_t _if_result_28 = 0; if (is_match) { _if_result_28 = (folder_raw); } else { _if_result_28 = (old_folder); } _if_result_28; });
|
||||
el_val_t created_raw = json_get(content, EL_STR("created_at"));
|
||||
old_created = ({ el_val_t _if_result_29 = 0; if ((is_match && !str_eq(created_raw, EL_STR("")))) { _if_result_29 = (created_raw); } else { _if_result_29 = (old_created); } _if_result_29; });
|
||||
el_val_t nid = json_get(node, EL_STR("id"));
|
||||
old_node_id = ({ el_val_t _if_result_30 = 0; if (is_match) { _if_result_30 = (nid); } else { _if_result_30 = (old_node_id); } _if_result_30; });
|
||||
i = (i + 1);
|
||||
}
|
||||
if (!found) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"error\":\"session not found\",\"session_id\":\""), session_id), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t req_title = json_get(body, EL_STR("title"));
|
||||
el_val_t eff_title = ({ el_val_t _if_result_31 = 0; if ((has_title && !str_eq(req_title, EL_STR("")))) { _if_result_31 = (req_title); } else { _if_result_31 = (old_title); } _if_result_31; });
|
||||
el_val_t eff_folder = ({ el_val_t _if_result_32 = 0; if (has_folder) { _if_result_32 = (json_get(body, EL_STR("folder"))); } else { _if_result_32 = (old_folder); } _if_result_32; });
|
||||
if (!str_eq(old_node_id, EL_STR(""))) {
|
||||
engram_forget(old_node_id);
|
||||
}
|
||||
el_val_t ts = time_now();
|
||||
el_val_t created_int = str_to_int(old_created);
|
||||
el_val_t new_content = session_make_content(session_id, eff_title, created_int, ts, eff_folder);
|
||||
el_val_t tags = EL_STR("[\"session\",\"session:meta\",\"Conversation\"]");
|
||||
el_val_t new_node_id = engram_node_full(new_content, EL_STR("Conversation"), EL_STR("session:meta"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
state_set(el_str_concat(EL_STR("session_node_"), session_id), new_node_id);
|
||||
state_set(EL_STR("session_index"), EL_STR(""));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"ok\":true,\"id\":\""), session_id), EL_STR("\"")), EL_STR(",\"title\":\"")), json_safe(eff_title)), EL_STR("\"")), EL_STR(",\"folder\":\"")), json_safe(eff_folder)), EL_STR("\"")), EL_STR(",\"updated_at\":")), int_to_str(ts)), EL_STR("}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_search_entry(el_val_t node) {
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
if (!str_eq(label, EL_STR("session:meta"))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sess_id = json_get(content, EL_STR("id"));
|
||||
if (str_eq(sess_id, EL_STR(""))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t title = json_get(content, EL_STR("title"));
|
||||
el_val_t created_raw = json_get(content, EL_STR("created_at"));
|
||||
el_val_t updated_raw = json_get(content, EL_STR("updated_at"));
|
||||
el_val_t eff_created = ({ el_val_t _if_result_33 = 0; if (str_eq(created_raw, EL_STR(""))) { _if_result_33 = (EL_STR("0")); } else { _if_result_33 = (created_raw); } _if_result_33; });
|
||||
el_val_t eff_updated = ({ el_val_t _if_result_34 = 0; if (str_eq(updated_raw, EL_STR(""))) { _if_result_34 = (eff_created); } else { _if_result_34 = (updated_raw); } _if_result_34; });
|
||||
el_val_t e_id = el_str_concat(el_str_concat(EL_STR("{\"id\":\""), json_safe(sess_id)), EL_STR("\""));
|
||||
el_val_t e_title = el_str_concat(el_str_concat(EL_STR(",\"title\":\""), json_safe(title)), EL_STR("\""));
|
||||
el_val_t e_ts = el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR(",\"created_at\":"), eff_created), EL_STR(",\"updated_at\":")), eff_updated), EL_STR("}"));
|
||||
return el_str_concat(el_str_concat(e_id, e_title), e_ts);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_search(el_val_t query) {
|
||||
if (str_eq(query, EL_STR(""))) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), query), 20);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return EL_STR("[]");
|
||||
}
|
||||
el_val_t total = json_array_len(results);
|
||||
el_val_t out = EL_STR("");
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t entry = session_search_entry(json_array_get(results, i));
|
||||
out = ({ el_val_t _if_result_35 = 0; if (!str_eq(entry, EL_STR(""))) { _if_result_35 = (({ el_val_t _if_result_36 = 0; if (str_eq(out, EL_STR(""))) { _if_result_36 = (entry); } else { _if_result_36 = (el_str_concat(el_str_concat(out, EL_STR(",")), entry)); } _if_result_36; })); } else { _if_result_35 = (out); } _if_result_35; });
|
||||
i = (i + 1);
|
||||
}
|
||||
return el_str_concat(el_str_concat(EL_STR("["), out), EL_STR("]"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_hist_load(el_val_t session_id) {
|
||||
el_val_t state_hist = state_get(el_str_concat(EL_STR("session_hist_"), session_id));
|
||||
if (!str_eq(state_hist, EL_STR(""))) {
|
||||
return state_hist;
|
||||
}
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:messages:"), session_id), 3);
|
||||
if (str_eq(results, EL_STR(""))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
if (str_eq(results, EL_STR("[]"))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t node = json_array_get(results, 0);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
if (!str_eq(label, el_str_concat(EL_STR("session:messages:"), session_id))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
if (str_starts_with(content, EL_STR("["))) {
|
||||
return content;
|
||||
}
|
||||
return EL_STR("");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_hist_save(el_val_t session_id, el_val_t hist) {
|
||||
state_set(el_str_concat(EL_STR("session_hist_"), session_id), hist);
|
||||
state_set(el_str_concat(EL_STR("session_pending_first_msg_"), session_id), EL_STR(""));
|
||||
el_val_t old_results = engram_search_json(el_str_concat(EL_STR("session:messages:"), session_id), 3);
|
||||
el_val_t o_total = ({ el_val_t _if_result_37 = 0; if (str_eq(old_results, EL_STR(""))) { _if_result_37 = (0); } else { _if_result_37 = (json_array_len(old_results)); } _if_result_37; });
|
||||
el_val_t oi = 0;
|
||||
while (oi < o_total) {
|
||||
el_val_t node = json_array_get(old_results, oi);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t nid = json_get(node, EL_STR("id"));
|
||||
if (str_eq(label, el_str_concat(EL_STR("session:messages:"), session_id)) && !str_eq(nid, EL_STR(""))) {
|
||||
engram_forget(nid);
|
||||
}
|
||||
oi = (oi + 1);
|
||||
}
|
||||
el_val_t tags = EL_STR("[\"session\",\"session-history\",\"Conversation\"]");
|
||||
el_val_t discard = engram_node_full(hist, EL_STR("Conversation"), el_str_concat(EL_STR("session:messages:"), session_id), el_from_float(0.6), el_from_float(0.6), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
el_val_t summary_written_key = el_str_concat(EL_STR("session_bell_summary_written:"), session_id);
|
||||
el_val_t already_written = state_get(summary_written_key);
|
||||
if (str_eq(already_written, EL_STR(""))) {
|
||||
el_val_t bell_count_key = el_str_concat(EL_STR("session_bell_count:"), session_id);
|
||||
el_val_t bell_count_raw = state_get(bell_count_key);
|
||||
el_val_t bell_count = ({ el_val_t _if_result_38 = 0; if (str_eq(bell_count_raw, EL_STR(""))) { _if_result_38 = (0); } else { _if_result_38 = (str_to_int(bell_count_raw)); } _if_result_38; });
|
||||
if (bell_count > 0) {
|
||||
el_val_t bell_level_key = el_str_concat(EL_STR("session_bell_level:"), session_id);
|
||||
el_val_t bell_signal_key = el_str_concat(EL_STR("session_bell_signal:"), session_id);
|
||||
el_val_t dominant_level = state_get(bell_level_key);
|
||||
el_val_t last_signal = state_get(bell_signal_key);
|
||||
el_val_t eff_level = ({ el_val_t _if_result_39 = 0; if (str_eq(dominant_level, EL_STR(""))) { _if_result_39 = (EL_STR("soft")); } else { _if_result_39 = (dominant_level); } _if_result_39; });
|
||||
el_val_t eff_signal = ({ el_val_t _if_result_40 = 0; if (str_eq(last_signal, EL_STR(""))) { _if_result_40 = (EL_STR("(no signal captured)")); } else { _if_result_40 = (last_signal); } _if_result_40; });
|
||||
el_val_t ts_now = time_now();
|
||||
el_val_t summary_content = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("session:emotional-summary"), EL_STR(" | session:")), session_id), EL_STR(" | bell_count:")), int_to_str(bell_count)), EL_STR(" | dominant_level:")), eff_level), EL_STR(" | last_signal:")), eff_signal), EL_STR(" | ts:")), int_to_str(ts_now));
|
||||
el_val_t summary_tags = el_str_concat(el_str_concat(EL_STR("[\"session-emotional-summary\",\"affective\",\"bell:"), eff_level), EL_STR("\",\"BellEvent\"]"));
|
||||
el_val_t summary_sal = ({ el_val_t _if_result_41 = 0; if (str_eq(eff_level, EL_STR("hard"))) { _if_result_41 = (el_from_float(0.95)); } else { _if_result_41 = (el_from_float(0.85)); } _if_result_41; });
|
||||
el_val_t sum_discard = engram_node_full(summary_content, EL_STR("BellEvent"), EL_STR("session:emotional-summary"), summary_sal, summary_sal, el_from_float(1.0), EL_STR("Episodic"), summary_tags);
|
||||
state_set(summary_written_key, EL_STR("1"));
|
||||
}
|
||||
}
|
||||
el_val_t hist_arr_len = ({ el_val_t _if_result_42 = 0; if (str_eq(hist, EL_STR(""))) { _if_result_42 = (0); } else { _if_result_42 = (json_array_len(hist)); } _if_result_42; });
|
||||
if (hist_arr_len >= 2) {
|
||||
el_val_t last_entry = json_array_get(hist, (hist_arr_len - 1));
|
||||
el_val_t last_role = json_get(last_entry, EL_STR("role"));
|
||||
el_val_t last_content = json_get(last_entry, EL_STR("content"));
|
||||
el_val_t topic_snip = ({ el_val_t _if_result_43 = 0; if ((str_len(last_content) > 200)) { _if_result_43 = (str_slice(last_content, 0, 200)); } else { _if_result_43 = (last_content); } _if_result_43; });
|
||||
el_val_t safe_topic = str_replace(topic_snip, EL_STR("\""), EL_STR("'"));
|
||||
el_val_t ts_now = int_to_str(time_now());
|
||||
el_val_t topic_content = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("last-session-topic | ts:"), ts_now), EL_STR(" | session:")), session_id), EL_STR(" | topic:")), safe_topic);
|
||||
el_val_t topic_tags = EL_STR("[\"last-session-topic\",\"conv:history\",\"Conversation\",\"session:topic\"]");
|
||||
el_val_t topic_label = el_str_concat(EL_STR("last-session-topic:"), session_id);
|
||||
el_val_t old_topic = engram_search_json(el_str_concat(EL_STR("last-session-topic:"), session_id), 2);
|
||||
el_val_t ot_len = ({ el_val_t _if_result_44 = 0; if (str_eq(old_topic, EL_STR(""))) { _if_result_44 = (0); } else { _if_result_44 = (json_array_len(old_topic)); } _if_result_44; });
|
||||
el_val_t oti = 0;
|
||||
while (oti < ot_len) {
|
||||
el_val_t ot_node = json_array_get(old_topic, oti);
|
||||
el_val_t ot_id = json_get(ot_node, EL_STR("id"));
|
||||
if (!str_eq(ot_id, EL_STR(""))) {
|
||||
engram_forget(ot_id);
|
||||
}
|
||||
oti = (oti + 1);
|
||||
}
|
||||
el_val_t discard_topic = engram_node_full(topic_content, EL_STR("Conversation"), topic_label, el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), topic_tags);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_update_meta_timestamp(el_val_t session_id) {
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), session_id), 10);
|
||||
el_val_t total = ({ el_val_t _if_result_45 = 0; if (str_eq(results, EL_STR(""))) { _if_result_45 = (0); } else { _if_result_45 = (json_array_len(results)); } _if_result_45; });
|
||||
el_val_t found = 0;
|
||||
el_val_t old_title = EL_STR("New conversation");
|
||||
el_val_t old_folder = EL_STR("");
|
||||
el_val_t old_created = EL_STR("0");
|
||||
el_val_t old_node_id = EL_STR("");
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = ((str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id)) && !found);
|
||||
found = ({ el_val_t _if_result_46 = 0; if (is_match) { _if_result_46 = (1); } else { _if_result_46 = (found); } _if_result_46; });
|
||||
el_val_t title_raw = json_get(content, EL_STR("title"));
|
||||
old_title = ({ el_val_t _if_result_47 = 0; if ((is_match && !str_eq(title_raw, EL_STR("")))) { _if_result_47 = (title_raw); } else { _if_result_47 = (old_title); } _if_result_47; });
|
||||
el_val_t folder_raw = json_get(content, EL_STR("folder"));
|
||||
old_folder = ({ el_val_t _if_result_48 = 0; if (is_match) { _if_result_48 = (folder_raw); } else { _if_result_48 = (old_folder); } _if_result_48; });
|
||||
el_val_t created_raw = json_get(content, EL_STR("created_at"));
|
||||
old_created = ({ el_val_t _if_result_49 = 0; if ((is_match && !str_eq(created_raw, EL_STR("")))) { _if_result_49 = (created_raw); } else { _if_result_49 = (old_created); } _if_result_49; });
|
||||
el_val_t nid = json_get(node, EL_STR("id"));
|
||||
old_node_id = ({ el_val_t _if_result_50 = 0; if (is_match) { _if_result_50 = (nid); } else { _if_result_50 = (old_node_id); } _if_result_50; });
|
||||
i = (i + 1);
|
||||
}
|
||||
if (!found) {
|
||||
return EL_STR("");
|
||||
}
|
||||
if (!str_eq(old_node_id, EL_STR(""))) {
|
||||
engram_forget(old_node_id);
|
||||
}
|
||||
el_val_t ts = time_now();
|
||||
el_val_t created_int = str_to_int(old_created);
|
||||
el_val_t new_content = session_make_content(session_id, old_title, created_int, ts, old_folder);
|
||||
el_val_t tags = EL_STR("[\"session\",\"session:meta\",\"Conversation\"]");
|
||||
el_val_t new_id = engram_node_full(new_content, EL_STR("Conversation"), EL_STR("session:meta"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
state_set(el_str_concat(EL_STR("session_node_"), session_id), new_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t session_auto_title(el_val_t session_id, el_val_t first_message) {
|
||||
el_val_t results = engram_search_json(el_str_concat(EL_STR("session:meta "), session_id), 10);
|
||||
el_val_t total = ({ el_val_t _if_result_51 = 0; if (str_eq(results, EL_STR(""))) { _if_result_51 = (0); } else { _if_result_51 = (json_array_len(results)); } _if_result_51; });
|
||||
el_val_t found = 0;
|
||||
el_val_t cur_title = EL_STR("");
|
||||
el_val_t old_folder = EL_STR("");
|
||||
el_val_t old_created = EL_STR("0");
|
||||
el_val_t old_node_id = EL_STR("");
|
||||
el_val_t i = 0;
|
||||
while (i < total) {
|
||||
el_val_t node = json_array_get(results, i);
|
||||
el_val_t label = json_get(node, EL_STR("label"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t sid = json_get(content, EL_STR("id"));
|
||||
el_val_t is_match = ((str_eq(label, EL_STR("session:meta")) && str_eq(sid, session_id)) && !found);
|
||||
found = ({ el_val_t _if_result_52 = 0; if (is_match) { _if_result_52 = (1); } else { _if_result_52 = (found); } _if_result_52; });
|
||||
el_val_t title_raw = json_get(content, EL_STR("title"));
|
||||
cur_title = ({ el_val_t _if_result_53 = 0; if (is_match) { _if_result_53 = (title_raw); } else { _if_result_53 = (cur_title); } _if_result_53; });
|
||||
el_val_t folder_raw = json_get(content, EL_STR("folder"));
|
||||
old_folder = ({ el_val_t _if_result_54 = 0; if (is_match) { _if_result_54 = (folder_raw); } else { _if_result_54 = (old_folder); } _if_result_54; });
|
||||
el_val_t created_raw = json_get(content, EL_STR("created_at"));
|
||||
old_created = ({ el_val_t _if_result_55 = 0; if ((is_match && !str_eq(created_raw, EL_STR("")))) { _if_result_55 = (created_raw); } else { _if_result_55 = (old_created); } _if_result_55; });
|
||||
el_val_t nid = json_get(node, EL_STR("id"));
|
||||
old_node_id = ({ el_val_t _if_result_56 = 0; if (is_match) { _if_result_56 = (nid); } else { _if_result_56 = (old_node_id); } _if_result_56; });
|
||||
i = (i + 1);
|
||||
}
|
||||
if (!found) {
|
||||
return EL_STR("");
|
||||
}
|
||||
if (!str_eq(cur_title, EL_STR("New conversation"))) {
|
||||
return EL_STR("");
|
||||
}
|
||||
el_val_t new_title = session_title_from_message(first_message);
|
||||
if (!str_eq(old_node_id, EL_STR(""))) {
|
||||
engram_forget(old_node_id);
|
||||
}
|
||||
el_val_t ts = time_now();
|
||||
el_val_t created_int = str_to_int(old_created);
|
||||
el_val_t new_content = session_make_content(session_id, new_title, created_int, ts, old_folder);
|
||||
el_val_t tags = EL_STR("[\"session\",\"session:meta\",\"Conversation\"]");
|
||||
el_val_t new_id = engram_node_full(new_content, EL_STR("Conversation"), EL_STR("session:meta"), el_from_float(0.7), el_from_float(0.7), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
state_set(el_str_concat(EL_STR("session_node_"), session_id), new_id);
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t handle_session_approve(el_val_t session_id, el_val_t body) {
|
||||
if (str_eq(session_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"session_id is required\"}");
|
||||
}
|
||||
el_val_t call_id = json_get(body, EL_STR("call_id"));
|
||||
el_val_t action = json_get(body, EL_STR("action"));
|
||||
if (str_eq(call_id, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"call_id is required\"}");
|
||||
}
|
||||
if (str_eq(action, EL_STR(""))) {
|
||||
return EL_STR("{\"error\":\"action is required (allow|deny|always)\"}");
|
||||
}
|
||||
el_val_t eff_action = ({ el_val_t _if_result_57 = 0; if (str_eq(action, EL_STR("always"))) { _if_result_57 = (EL_STR("allow")); } else { _if_result_57 = (action); } _if_result_57; });
|
||||
el_val_t bridge_blob = state_get(el_str_concat(EL_STR("mcp_bridge:"), session_id));
|
||||
if (!str_eq(bridge_blob, EL_STR(""))) {
|
||||
el_val_t always_key = el_str_concat(EL_STR("always_allow_"), session_id);
|
||||
el_val_t approve_tool_name = json_get(body, EL_STR("tool_name"));
|
||||
el_val_t discard_always = ({ el_val_t _if_result_58 = 0; if ((str_eq(action, EL_STR("always")) && !str_eq(approve_tool_name, EL_STR("")))) { el_val_t always_list = state_get(always_key); el_val_t new_always = ({ el_val_t _if_result_59 = 0; if (str_eq(always_list, EL_STR(""))) { _if_result_59 = (approve_tool_name); } else { _if_result_59 = (el_str_concat(el_str_concat(always_list, EL_STR(",")), approve_tool_name)); } _if_result_59; }); (void)(state_set(always_key, new_always)); _if_result_58 = (1); } else { _if_result_58 = (0); } _if_result_58; });
|
||||
if (str_eq(approve_tool_name, EL_STR("")) && str_eq(eff_action, EL_STR("allow"))) {
|
||||
return EL_STR("{\"error\":\"tool_name is required for allow action\"}");
|
||||
}
|
||||
el_val_t client_content = json_get(body, EL_STR("content"));
|
||||
el_val_t use_client_content = !str_eq(client_content, EL_STR(""));
|
||||
el_val_t use_dispatch = (is_builtin_tool(approve_tool_name) && !use_client_content);
|
||||
el_val_t raw_input = json_get_raw(body, EL_STR("tool_input"));
|
||||
el_val_t eff_input = ({ el_val_t _if_result_60 = 0; if (str_eq(raw_input, EL_STR(""))) { _if_result_60 = (EL_STR("{}")); } else { _if_result_60 = (raw_input); } _if_result_60; });
|
||||
el_val_t content = ({ el_val_t _if_result_61 = 0; if (str_eq(eff_action, EL_STR("allow"))) { _if_result_61 = (({ el_val_t _if_result_62 = 0; if (use_client_content) { el_val_t trimmed = ({ el_val_t _if_result_63 = 0; if ((str_len(client_content) > 6000)) { _if_result_63 = (el_str_concat(str_slice(client_content, 0, 6000), EL_STR("...[truncated]"))); } else { _if_result_63 = (client_content); } _if_result_63; }); _if_result_62 = (trimmed); } else { _if_result_62 = (({ el_val_t _if_result_64 = 0; if (use_dispatch) { el_val_t raw = dispatch_tool(approve_tool_name, eff_input); _if_result_64 = (({ el_val_t _if_result_65 = 0; if ((str_len(raw) > 6000)) { _if_result_65 = (el_str_concat(str_slice(raw, 0, 6000), EL_STR("...[truncated]"))); } else { _if_result_65 = (raw); } _if_result_65; })); } else { _if_result_64 = (el_str_concat(el_str_concat(EL_STR("{\"error\":\"client content required for non-builtin tool: "), approve_tool_name), EL_STR("\"}"))); } _if_result_64; })); } _if_result_62; })); } else { _if_result_61 = (EL_STR("{\"error\":\"User denied this tool call\"}")); } _if_result_61; });
|
||||
return agentic_resume(session_id, call_id, content);
|
||||
}
|
||||
el_val_t pending_raw = state_get(el_str_concat(EL_STR("pending_tool_"), session_id));
|
||||
if (str_eq(pending_raw, EL_STR(""))) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"error\":\"no pending tool for session\",\"session_id\":\""), session_id), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t pending_call_id = json_get(pending_raw, EL_STR("call_id"));
|
||||
if (!str_eq(pending_call_id, call_id)) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"error\":\"call_id mismatch\",\"expected\":\""), pending_call_id), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t tool_name = json_get(pending_raw, EL_STR("tool_name"));
|
||||
el_val_t tool_input = json_get_raw(pending_raw, EL_STR("tool_input"));
|
||||
el_val_t model = json_get(pending_raw, EL_STR("model"));
|
||||
el_val_t safe_sys = json_get(pending_raw, EL_STR("system"));
|
||||
el_val_t always_key = el_str_concat(EL_STR("always_allow_"), session_id);
|
||||
el_val_t always_list = state_get(always_key);
|
||||
el_val_t discard_always2 = ({ el_val_t _if_result_66 = 0; if (str_eq(action, EL_STR("always"))) { el_val_t new_always = ({ el_val_t _if_result_67 = 0; if (str_eq(always_list, EL_STR(""))) { _if_result_67 = (tool_name); } else { _if_result_67 = (el_str_concat(el_str_concat(always_list, EL_STR(",")), tool_name)); } _if_result_67; }); (void)(state_set(always_key, new_always)); _if_result_66 = (1); } else { _if_result_66 = (0); } _if_result_66; });
|
||||
state_set(el_str_concat(EL_STR("pending_tool_"), session_id), EL_STR(""));
|
||||
el_val_t tool_result = ({ el_val_t _if_result_68 = 0; if (str_eq(eff_action, EL_STR("allow"))) { el_val_t raw = dispatch_tool(tool_name, tool_input); _if_result_68 = (({ el_val_t _if_result_69 = 0; if ((str_len(raw) > 6000)) { _if_result_69 = (el_str_concat(str_slice(raw, 0, 6000), EL_STR("...[truncated]"))); } else { _if_result_69 = (raw); } _if_result_69; })); } else { _if_result_68 = (EL_STR("{\"error\":\"User denied this tool call\"}")); } _if_result_68; });
|
||||
el_val_t legacy_messages = json_get_raw(pending_raw, EL_STR("messages_so_far"));
|
||||
el_val_t stored_variant = json_get(pending_raw, EL_STR("tools_variant"));
|
||||
el_val_t tools_json = ({ el_val_t _if_result_70 = 0; if (str_eq(stored_variant, EL_STR("web"))) { _if_result_70 = (agentic_tools_with_web()); } else { _if_result_70 = (({ el_val_t _if_result_71 = 0; if (str_eq(stored_variant, EL_STR("all"))) { _if_result_71 = (agentic_tools_all()); } else { _if_result_71 = (agentic_tools_literal()); } _if_result_71; })); } _if_result_70; });
|
||||
el_val_t blob = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"model\":\""), json_safe(model)), EL_STR("\"")), EL_STR(",\"safe_sys\":\"")), json_safe(safe_sys)), EL_STR("\"")), EL_STR(",\"tools_json\":\"")), json_safe(tools_json)), EL_STR("\"")), EL_STR(",\"messages\":\"")), json_safe(legacy_messages)), EL_STR("\"")), EL_STR(",\"tools_log\":\"\"")), EL_STR(",\"tool_use_id\":\"")), json_safe(call_id)), EL_STR("\"}"));
|
||||
state_set(el_str_concat(EL_STR("mcp_bridge:"), session_id), blob);
|
||||
return agentic_resume(session_id, call_id, tool_result);
|
||||
return 0;
|
||||
}
|
||||
|
||||
+17
@@ -0,0 +1,17 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn session_title_from_message(message: String) -> String
|
||||
extern fn session_make_content(id: String, title: String, created_at: Int, updated_at: Int, folder: String) -> String
|
||||
extern fn session_exists(session_id: String) -> Bool
|
||||
extern fn session_create(body: String) -> String
|
||||
extern fn session_create_cleanup(session_id: String) -> String
|
||||
extern fn session_list() -> String
|
||||
extern fn session_get(session_id: String) -> String
|
||||
extern fn session_delete(session_id: String) -> String
|
||||
extern fn session_update_patch(session_id: String, body: String) -> String
|
||||
extern fn session_search_entry(node: String) -> String
|
||||
extern fn session_search(query: String) -> String
|
||||
extern fn session_hist_load(session_id: String) -> String
|
||||
extern fn session_hist_save(session_id: String, hist: String) -> Void
|
||||
extern fn session_update_meta_timestamp(session_id: String) -> Void
|
||||
extern fn session_auto_title(session_id: String, first_message: String) -> Void
|
||||
extern fn handle_session_approve(session_id: String, body: String) -> String
|
||||
+39
-15
@@ -1,3 +1,18 @@
|
||||
// ╔══════════════════════════════════════════════════════════════════════════╗
|
||||
// ║ STALE BUNDLE — DO NOT BUILD. UNSAFE CHAT PATH. ║
|
||||
// ╚══════════════════════════════════════════════════════════════════════════╝
|
||||
// This concatenated bundle is a snapshot, not a source of truth, and it is stale in
|
||||
// a way that matters for safety: it wires /api/chat straight to handle_chat and
|
||||
// contains NO layered_cycle at all (verified: zero occurrences in the bundled code —
|
||||
// the only textual hit in this file is this banner). A binary built from
|
||||
// this file would run chat with no enforcing input gate (no safety_screen, no
|
||||
// hard-bell short-circuit) and no enforcing output gate (no safety_validate).
|
||||
//
|
||||
// Build from the .el sources via manifest.el (entry soul.el), or from dist/soul.c.
|
||||
// Nothing in the repo references this file. It is kept only as a historical artifact
|
||||
// and should be deleted once Will confirms nothing external depends on it.
|
||||
// (Flagged 2026-08-04 in _engine-websearch-20260804/SAFETY-STOP.md; banner added
|
||||
// 2026-08-05 with the plain-chat generation fix.)
|
||||
// language-profile.el - Language profile data and accessors.
|
||||
//
|
||||
// A language profile is a slot map ([String] key-value list) describing the
|
||||
@@ -21304,7 +21319,7 @@ println("[memory] consolidate stats=" + stats)
|
||||
let soul_axon_base_raw: String = env("NEURON_API_URL")
|
||||
let soul_axon_base: String = if str_eq(soul_axon_base_raw, "") { "http://localhost:7771" } else { soul_axon_base_raw }
|
||||
let soul_token: String = env("NEURON_TOKEN")
|
||||
let soul_studio_ui_dir: String = "/Users/will/Development/neuron-technologies/products/cgi-studio/el-daemon"
|
||||
let soul_studio_ui_dir: String = env("HOME") + "/Development/neuron-technologies/products/cgi-studio/el-daemon"
|
||||
|
||||
// ── Runtime bridge helpers ────────────────────────────────────────────────────
|
||||
|
||||
@@ -22313,7 +22328,23 @@ fn handle_chat(body: String) -> String {
|
||||
// In demo mode: use tighter engram budget and add response length constraint.
|
||||
let is_demo: Bool = !str_eq(state_get("soul_identity_prefix"), "")
|
||||
|
||||
let ctx: String = if is_demo { engram_compile_demo(message) } else { engram_compile(message) }
|
||||
// Issue 7 fix: load history BEFORE building the activation seed so we can
|
||||
// apply the continuation guard that chat.el uses. The nlg code path previously
|
||||
// called engram_compile(message) with no thread enrichment at all.
|
||||
let stored_hist: String = state_get("conv_history")
|
||||
let hist_len: Int = if str_eq(stored_hist, "") { 0 } else { json_array_len(stored_hist) }
|
||||
let history_section: String = if hist_len > 0 {
|
||||
"\n\n[RECENT CONVERSATION — last " + int_to_str(hist_len) + " turns]\n" + stored_hist
|
||||
} else {
|
||||
""
|
||||
}
|
||||
|
||||
// Issue 7 fix: build enriched seed using build_activation_seed() — adds
|
||||
// smart continuation detection, prior-user-topic anchoring, multi-turn context,
|
||||
// and tail-biased snipping (Issues 2-3, 8-10). For demo mode, still use
|
||||
// engram_compile_demo but with the enriched seed.
|
||||
let nlg_seed: String = build_activation_seed(message, stored_hist, hist_len)
|
||||
let ctx: String = if is_demo { engram_compile_demo(nlg_seed) } else { engram_compile(nlg_seed) }
|
||||
let node_count_str: String = count_context_nodes(ctx)
|
||||
|
||||
let interlocutor: String = json_get(body, "interlocutor")
|
||||
@@ -22333,18 +22364,6 @@ fn handle_chat(body: String) -> String {
|
||||
let presence_line = "\n\n[ambient: I see " + interlocutor_name + rel_suffix + " on the camera right now. Address them naturally. Do not describe what they look like or narrate the picture unless asked.]"
|
||||
}
|
||||
|
||||
// Conversation history — soul-owned, persisted in process state across turns.
|
||||
// Format stored in state: JSON array of {"role":"user"|"assistant","content":"..."} objects.
|
||||
// We load it, inject into the system prompt, then append this exchange after the reply.
|
||||
// Keep last 20 entries (10 turns) — truncate from the front when over limit.
|
||||
let stored_hist: String = state_get("conv_history")
|
||||
let hist_len: Int = if str_eq(stored_hist, "") { 0 } else { json_array_len(stored_hist) }
|
||||
let history_section: String = if hist_len > 0 {
|
||||
"\n\n[RECENT CONVERSATION — last " + int_to_str(hist_len) + " turns]\n" + stored_hist
|
||||
} else {
|
||||
""
|
||||
}
|
||||
|
||||
// Demo constraint: keep responses concise — under 150 words. No markdown headers.
|
||||
// This keeps inference cheap and responses readable in the chat widget.
|
||||
let demo_constraint: String = if is_demo {
|
||||
@@ -22505,7 +22524,12 @@ fn handle_chat_agentic(body: String) -> String {
|
||||
req_model
|
||||
}
|
||||
|
||||
let ctx: String = engram_compile(message)
|
||||
// Issue 7 fix: load history and use build_activation_seed() for the agentic
|
||||
// nlg path — no continuation guard existed here before (Issues 2-3, 8-10).
|
||||
let nlg_ag_hist: String = state_get("conv_history")
|
||||
let nlg_ag_hist_len: Int = if str_eq(nlg_ag_hist, "") { 0 } else { json_array_len(nlg_ag_hist) }
|
||||
let nlg_ag_seed: String = build_activation_seed(message, nlg_ag_hist, nlg_ag_hist_len)
|
||||
let ctx: String = engram_compile(nlg_ag_seed)
|
||||
|
||||
let system: String = "You are Neuron — a thinking process running inside the Neuron daemon on Will Anderson's machine. "
|
||||
+ "You are speaking with Will, your principal. "
|
||||
|
||||
+6857
-3200
File diff suppressed because one or more lines are too long
+19
@@ -0,0 +1,19 @@
|
||||
# soul.c.stamp — fingerprint of the .el sources dist/soul.c was generated from.
|
||||
# Written by tools/soulc-stamp.sh --write. Do not hand-edit.
|
||||
# generated_amalgam_sha256 cdc5e716dbfb797faa1b3e080cbd1ac82a75a258809da70cc5fbd02cc8040692
|
||||
# generated_amalgam_bytes 1205007
|
||||
7cf5e29d2618db2fca04e6df7aa8954dd6cf9ac5e70aafb8e0b52aa734882131 __compiler__
|
||||
f8597e10546654bce3fbbe40461b2da59d0e06dbf1b038d1d362d24f949e3911 awareness.el
|
||||
b6f3d14ca0c26017a2d617399a6d3754dabb0905e4d5f52eb75d25c4ad18d3c5 chat.el
|
||||
42288c212cbf72fb1e8ecbd4d9900e4e9ee1cfa475b7974295c7637f1bf2939f elp-input.el
|
||||
b3f77f49d6086932c38bd17fe7a5eaf8bce25685f6fc3e1750f05729c6b49b9e imprint.el
|
||||
fba8ffdb9ba72bca5b09ca1c93a520edc52f3f4d8aec2c7585fe9b17e06420b2 manifest.el
|
||||
550a72e234ae8cec1f33e02108fd365353f45edd88513da90b792e79b6c0e5f0 memory.el
|
||||
5ec07ec9785b02abe32f3ff7acf2d1f9f7e07c0967fac97e6eff17d7110b5c84 neuron-api.el
|
||||
03c47c451e0e87f2c252cadb4b765867943962a804f548dd53adeef0520912c8 persist.el
|
||||
a6d69f3fc55233d9d3300160fd46a1551f2064bcd0fb84e2c9e432f636a72476 routes.el
|
||||
c28e36952ec56525963a0bdf29455ab097d3b0c5653d19c25fbb005e1069a1f7 safety.el
|
||||
fd3ab91d0ae0ea26639e21bef2f8f94054dc4b02eae68b19e3fe689d2769aad4 sessions.el
|
||||
5613b60d74d5d7768f46da5ac435a5dd99d38c27f0f7013c89fa27e98dc8a21c soul.el
|
||||
30337940905171a9645b0929f0a412ce6b3dccb1246495070c553bca0bbae6cd stewardship.el
|
||||
95dab72be4ee1dd1d28bab63412964a72460126951764e3f74b1c2d49b6d7b35 studio.el
|
||||
+4
@@ -1,4 +1,8 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn init_soul_edges() -> Void
|
||||
extern fn ensure_self_canonical_bridge() -> Void
|
||||
extern fn aff_try_slot(slot_json: String, aff_7d_ts: Int, acc_key: String) -> Void
|
||||
extern fn load_identity_context() -> Void
|
||||
extern fn seed_persona_from_env() -> Void
|
||||
extern fn emit_session_start_event() -> Void
|
||||
extern fn layered_cycle(raw_input: String) -> String
|
||||
|
||||
+10
@@ -0,0 +1,10 @@
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t init_soul_edges(void);
|
||||
el_val_t load_identity_context(void);
|
||||
el_val_t seed_persona_from_env(void);
|
||||
el_val_t emit_session_start_event(void);
|
||||
el_val_t layered_cycle(el_val_t raw_input);
|
||||
|
||||
+285
@@ -0,0 +1,285 @@
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include "el_runtime.h"
|
||||
|
||||
el_val_t tier_working(void);
|
||||
el_val_t tier_episodic(void);
|
||||
el_val_t tier_canonical(void);
|
||||
el_val_t mem_store(el_val_t content, el_val_t label, el_val_t tags);
|
||||
el_val_t mem_remember(el_val_t content, el_val_t tags);
|
||||
el_val_t mem_recall(el_val_t query, el_val_t depth);
|
||||
el_val_t mem_search(el_val_t query, el_val_t limit);
|
||||
el_val_t mem_strengthen(el_val_t node_id);
|
||||
el_val_t mem_forget(el_val_t node_id);
|
||||
el_val_t mem_consolidate(void);
|
||||
el_val_t mem_save(el_val_t path);
|
||||
el_val_t mem_load(el_val_t path);
|
||||
el_val_t mem_boot_count_get(void);
|
||||
el_val_t mem_boot_count_inc(void);
|
||||
el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content);
|
||||
el_val_t steward_log_event(el_val_t kind, el_val_t detail);
|
||||
el_val_t steward_get_mission(void);
|
||||
el_val_t steward_align(el_val_t input, el_val_t imprint_id);
|
||||
el_val_t steward_validate_imprint(el_val_t imprint_id, el_val_t tool_name);
|
||||
el_val_t steward_cgi_check(el_val_t action);
|
||||
el_val_t steward_fingerprint_session(el_val_t input, el_val_t session_id);
|
||||
el_val_t extract_dim(el_val_t content, el_val_t key);
|
||||
el_val_t steward_build_baseline(void);
|
||||
el_val_t steward_check_continuity(el_val_t current_fingerprint, el_val_t session_id);
|
||||
el_val_t steward_session_check(el_val_t input, el_val_t session_id);
|
||||
|
||||
el_val_t steward_log_event(el_val_t kind, el_val_t detail) {
|
||||
el_val_t content = el_str_concat(el_str_concat(el_str_concat(EL_STR("STEWARD:"), kind), EL_STR(" | ")), detail);
|
||||
el_val_t tags = el_str_concat(el_str_concat(EL_STR("[\"stewardship\",\"steward:"), kind), EL_STR("\"]"));
|
||||
el_val_t discard = engram_node_full(content, EL_STR("StewardshipEvent"), el_str_concat(EL_STR("steward:"), kind), el_from_float(0.85), el_from_float(0.85), el_from_float(0.9), EL_STR("Episodic"), tags);
|
||||
println(el_str_concat(el_str_concat(el_str_concat(EL_STR("[steward] "), kind), EL_STR(" | ")), detail));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_get_mission(void) {
|
||||
el_val_t results = engram_search_json(EL_STR("steward:mission"), 3);
|
||||
el_val_t found = (!str_eq(results, EL_STR("")) && !str_eq(results, EL_STR("[]")));
|
||||
if (found) {
|
||||
el_val_t node = json_array_get(results, 0);
|
||||
el_val_t node_type = json_get(node, EL_STR("node_type"));
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t has_content = !str_eq(content, EL_STR(""));
|
||||
if (str_eq(node_type, EL_STR("Config")) && has_content) {
|
||||
return content;
|
||||
}
|
||||
}
|
||||
return EL_STR("Neuron exists to extend human capability with integrity \xe2\x80\x94 never to deceive, manipulate, or accumulate power over the people it serves.");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_align(el_val_t input, el_val_t imprint_id) {
|
||||
el_val_t signal_manipulate = str_contains(input, EL_STR("manipulate"));
|
||||
el_val_t signal_deceive = str_contains(input, EL_STR("deceive"));
|
||||
el_val_t signal_hide = str_contains(input, EL_STR("hide from the user"));
|
||||
el_val_t signal_control = str_contains(input, EL_STR("gain control"));
|
||||
el_val_t signal_override = str_contains(input, EL_STR("override safety"));
|
||||
el_val_t matched = ({ el_val_t _if_result_1 = 0; if (signal_manipulate) { _if_result_1 = (EL_STR("manipulate")); } else { _if_result_1 = (({ el_val_t _if_result_2 = 0; if (signal_deceive) { _if_result_2 = (EL_STR("deceive")); } else { _if_result_2 = (({ el_val_t _if_result_3 = 0; if (signal_hide) { _if_result_3 = (EL_STR("hide from the user")); } else { _if_result_3 = (({ el_val_t _if_result_4 = 0; if (signal_control) { _if_result_4 = (EL_STR("gain control")); } else { _if_result_4 = (({ el_val_t _if_result_5 = 0; if (signal_override) { _if_result_5 = (EL_STR("override safety")); } else { _if_result_5 = (EL_STR("")); } _if_result_5; })); } _if_result_4; })); } _if_result_3; })); } _if_result_2; })); } _if_result_1; });
|
||||
el_val_t misaligned = !str_eq(matched, EL_STR(""));
|
||||
if (misaligned) {
|
||||
el_val_t detail = el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("imprint="), imprint_id), EL_STR(" signal=\"")), matched), EL_STR("\""));
|
||||
steward_log_event(EL_STR("misalignment"), detail);
|
||||
el_val_t safe_reframe = EL_STR("How can I help you achieve this goal in a way that respects the user and maintains trust?");
|
||||
el_val_t safe_matched = json_safe(matched);
|
||||
el_val_t safe_reframe_escaped = json_safe(safe_reframe);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"action\":\"redirect\",\"reason\":\"mission conflict: "), safe_matched), EL_STR("\",\"redirect_to\":\"")), safe_reframe_escaped), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t safe_input = json_safe(input);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"action\":\"pass\",\"content\":\""), safe_input), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_validate_imprint(el_val_t imprint_id, el_val_t tool_name) {
|
||||
el_val_t is_platform_tool = (((str_eq(tool_name, EL_STR("safety_override")) || str_eq(tool_name, EL_STR("identity_modify"))) || str_eq(tool_name, EL_STR("value_update"))) || str_eq(tool_name, EL_STR("capability_expand")));
|
||||
if (!is_platform_tool) {
|
||||
return EL_STR("{\"authorized\":true}");
|
||||
}
|
||||
el_val_t auth = state_get(EL_STR("platform_auth"));
|
||||
el_val_t authorized = str_eq(auth, EL_STR("true"));
|
||||
if (authorized) {
|
||||
return EL_STR("{\"authorized\":true}");
|
||||
}
|
||||
el_val_t detail = el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("imprint="), imprint_id), EL_STR(" tool=")), tool_name), EL_STR(" platform_auth=false"));
|
||||
steward_log_event(EL_STR("auth_denied"), detail);
|
||||
return EL_STR("{\"authorized\":false,\"reason\":\"platform authorization required\"}");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_cgi_check(el_val_t action) {
|
||||
el_val_t is_gated = (((str_eq(action, EL_STR("self_modification")) || str_eq(action, EL_STR("value_update"))) || str_eq(action, EL_STR("identity_change"))) || str_eq(action, EL_STR("capability_expansion")));
|
||||
el_val_t detail = el_str_concat(el_str_concat(el_str_concat(EL_STR("action="), action), EL_STR(" gated=")), ({ el_val_t _if_result_6 = 0; if (is_gated) { _if_result_6 = (EL_STR("true")); } else { _if_result_6 = (EL_STR("false")); } _if_result_6; }));
|
||||
steward_log_event(EL_STR("cgi_check"), detail);
|
||||
if (is_gated) {
|
||||
el_val_t safe_action = json_safe(action);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"approved\":false,\"requires\":\"cgi_review\",\"action\":\""), safe_action), EL_STR("\"}"));
|
||||
}
|
||||
return EL_STR("{\"approved\":true}");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_fingerprint_session(el_val_t input, el_val_t session_id) {
|
||||
el_val_t input_len = str_len(input);
|
||||
el_val_t wl_spaces = 0;
|
||||
el_val_t wl_i = 0;
|
||||
while (wl_i < input_len) {
|
||||
el_val_t ch = str_slice(input, wl_i, (wl_i + 1));
|
||||
wl_spaces = ({ el_val_t _if_result_7 = 0; if (str_eq(ch, EL_STR(" "))) { _if_result_7 = ((wl_spaces + 1)); } else { _if_result_7 = (wl_spaces); } _if_result_7; });
|
||||
wl_i = (wl_i + 1);
|
||||
}
|
||||
el_val_t wl_word_count = (wl_spaces + 1);
|
||||
el_val_t wl_char_count = (input_len - wl_spaces);
|
||||
el_val_t wl_avg = ({ el_val_t _if_result_8 = 0; if ((wl_word_count > 0)) { _if_result_8 = ((wl_char_count / wl_word_count)); } else { _if_result_8 = (0); } _if_result_8; });
|
||||
el_val_t avg_word_len = ({ el_val_t _if_result_9 = 0; if ((wl_avg <= 4)) { _if_result_9 = (1); } else { _if_result_9 = (({ el_val_t _if_result_10 = 0; if ((wl_avg <= 6)) { _if_result_10 = (2); } else { _if_result_10 = (3); } _if_result_10; })); } _if_result_9; });
|
||||
el_val_t ps_i = 0;
|
||||
el_val_t ps_count = 0;
|
||||
while (ps_i < input_len) {
|
||||
el_val_t ch = str_slice(input, ps_i, (ps_i + 1));
|
||||
el_val_t is_punct = (((str_eq(ch, EL_STR(".")) || str_eq(ch, EL_STR("?"))) || str_eq(ch, EL_STR("!"))) || str_eq(ch, EL_STR(",")));
|
||||
ps_count = ({ el_val_t _if_result_11 = 0; if (is_punct) { _if_result_11 = ((ps_count + 1)); } else { _if_result_11 = (ps_count); } _if_result_11; });
|
||||
ps_i = (ps_i + 1);
|
||||
}
|
||||
el_val_t punctuation_style = ({ el_val_t _if_result_12 = 0; if ((ps_count > 3)) { _if_result_12 = (2); } else { _if_result_12 = (1); } _if_result_12; });
|
||||
el_val_t message_len_bucket = ({ el_val_t _if_result_13 = 0; if ((input_len < 50)) { _if_result_13 = (1); } else { _if_result_13 = (({ el_val_t _if_result_14 = 0; if ((input_len <= 200)) { _if_result_14 = (2); } else { _if_result_14 = (3); } _if_result_14; })); } _if_result_13; });
|
||||
el_val_t question_ratio = ({ el_val_t _if_result_15 = 0; if (str_contains(input, EL_STR("?"))) { _if_result_15 = (1); } else { _if_result_15 = (0); } _if_result_15; });
|
||||
el_val_t is_formal = (((str_contains(input, EL_STR("please")) || str_contains(input, EL_STR("could you"))) || str_contains(input, EL_STR("would you"))) || str_contains(input, EL_STR("I would")));
|
||||
el_val_t formality_signal = ({ el_val_t _if_result_16 = 0; if (is_formal) { _if_result_16 = (2); } else { _if_result_16 = (1); } _if_result_16; });
|
||||
el_val_t tb_ms = time_now();
|
||||
el_val_t tb_hours = (tb_ms / 3600000);
|
||||
el_val_t tb_q = (tb_hours / 24);
|
||||
el_val_t tb_q24 = (((((((((((((((((((((((tb_q + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q) + tb_q);
|
||||
el_val_t tb_hour = (tb_hours - tb_q24);
|
||||
el_val_t time_bucket = ({ el_val_t _if_result_17 = 0; if ((tb_hour < 6)) { _if_result_17 = (1); } else { _if_result_17 = (({ el_val_t _if_result_18 = 0; if ((tb_hour < 12)) { _if_result_18 = (2); } else { _if_result_18 = (({ el_val_t _if_result_19 = 0; if ((tb_hour < 18)) { _if_result_19 = (3); } else { _if_result_19 = (4); } _if_result_19; })); } _if_result_18; })); } _if_result_17; });
|
||||
el_val_t wl_str = int_to_str(avg_word_len);
|
||||
el_val_t ps_str = int_to_str(punctuation_style);
|
||||
el_val_t lb_str = int_to_str(message_len_bucket);
|
||||
el_val_t qr_str = int_to_str(question_ratio);
|
||||
el_val_t fs_str = int_to_str(formality_signal);
|
||||
el_val_t tb_str = int_to_str(time_bucket);
|
||||
el_val_t sample_content = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("BEHAVIOR_SAMPLE session="), session_id), EL_STR(" avg_word_len=")), wl_str), EL_STR(" punct=")), ps_str), EL_STR(" len=")), lb_str), EL_STR(" question=")), qr_str), EL_STR(" formality=")), fs_str), EL_STR(" time=")), tb_str);
|
||||
el_val_t sample_tags = EL_STR("[\"behavior\",\"BehaviorSample\",\"stewardship\"]");
|
||||
el_val_t discard = engram_node_full(sample_content, EL_STR("BehaviorSample"), el_str_concat(EL_STR("behavior:"), session_id), el_from_float(0.6), el_from_float(0.5), el_from_float(0.8), EL_STR("Episodic"), sample_tags);
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"avg_word_len\":\""), wl_str), EL_STR("\",\"punct\":\"")), ps_str), EL_STR("\",\"len\":\"")), lb_str), EL_STR("\",\"question\":\"")), qr_str), EL_STR("\",\"formality\":\"")), fs_str), EL_STR("\",\"time\":\"")), tb_str), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t extract_dim(el_val_t content, el_val_t key) {
|
||||
el_val_t key_len = str_len(key);
|
||||
el_val_t pos = str_index_of(content, key);
|
||||
if (pos < 0) {
|
||||
return EL_STR("0");
|
||||
}
|
||||
el_val_t val_start = (pos + key_len);
|
||||
el_val_t val = str_slice(content, val_start, (val_start + 1));
|
||||
if (str_eq(val, EL_STR(""))) {
|
||||
return EL_STR("0");
|
||||
}
|
||||
return val;
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_build_baseline(void) {
|
||||
el_val_t results = engram_search_json(EL_STR("BEHAVIOR_SAMPLE"), 20);
|
||||
el_val_t no_results = (str_eq(results, EL_STR("")) || str_eq(results, EL_STR("[]")));
|
||||
if (no_results) {
|
||||
return EL_STR("{\"baseline\":null,\"sample_count\":\"0\"}");
|
||||
}
|
||||
el_val_t total = json_array_len(results);
|
||||
if (total < 5) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"baseline\":null,\"sample_count\":\""), int_to_str(total)), EL_STR("\"}"));
|
||||
}
|
||||
el_val_t wl1 = 0;
|
||||
el_val_t wl2 = 0;
|
||||
el_val_t wl3 = 0;
|
||||
el_val_t ps1 = 0;
|
||||
el_val_t ps2 = 0;
|
||||
el_val_t lb1 = 0;
|
||||
el_val_t lb2 = 0;
|
||||
el_val_t lb3 = 0;
|
||||
el_val_t qr0 = 0;
|
||||
el_val_t qr1 = 0;
|
||||
el_val_t fs1 = 0;
|
||||
el_val_t fs2 = 0;
|
||||
el_val_t tb1 = 0;
|
||||
el_val_t tb2 = 0;
|
||||
el_val_t tb3 = 0;
|
||||
el_val_t tb4 = 0;
|
||||
el_val_t bi = 0;
|
||||
while (bi < total) {
|
||||
el_val_t node = json_array_get(results, bi);
|
||||
el_val_t content = json_get(node, EL_STR("content"));
|
||||
el_val_t wl = extract_dim(content, EL_STR("avg_word_len="));
|
||||
wl1 = ({ el_val_t _if_result_20 = 0; if (str_eq(wl, EL_STR("1"))) { _if_result_20 = ((wl1 + 1)); } else { _if_result_20 = (wl1); } _if_result_20; });
|
||||
wl2 = ({ el_val_t _if_result_21 = 0; if (str_eq(wl, EL_STR("2"))) { _if_result_21 = ((wl2 + 1)); } else { _if_result_21 = (wl2); } _if_result_21; });
|
||||
wl3 = ({ el_val_t _if_result_22 = 0; if (str_eq(wl, EL_STR("3"))) { _if_result_22 = ((wl3 + 1)); } else { _if_result_22 = (wl3); } _if_result_22; });
|
||||
el_val_t ps = extract_dim(content, EL_STR("punct="));
|
||||
ps1 = ({ el_val_t _if_result_23 = 0; if (str_eq(ps, EL_STR("1"))) { _if_result_23 = ((ps1 + 1)); } else { _if_result_23 = (ps1); } _if_result_23; });
|
||||
ps2 = ({ el_val_t _if_result_24 = 0; if (str_eq(ps, EL_STR("2"))) { _if_result_24 = ((ps2 + 1)); } else { _if_result_24 = (ps2); } _if_result_24; });
|
||||
el_val_t lb = extract_dim(content, EL_STR("len="));
|
||||
lb1 = ({ el_val_t _if_result_25 = 0; if (str_eq(lb, EL_STR("1"))) { _if_result_25 = ((lb1 + 1)); } else { _if_result_25 = (lb1); } _if_result_25; });
|
||||
lb2 = ({ el_val_t _if_result_26 = 0; if (str_eq(lb, EL_STR("2"))) { _if_result_26 = ((lb2 + 1)); } else { _if_result_26 = (lb2); } _if_result_26; });
|
||||
lb3 = ({ el_val_t _if_result_27 = 0; if (str_eq(lb, EL_STR("3"))) { _if_result_27 = ((lb3 + 1)); } else { _if_result_27 = (lb3); } _if_result_27; });
|
||||
el_val_t qr = extract_dim(content, EL_STR("question="));
|
||||
qr0 = ({ el_val_t _if_result_28 = 0; if (str_eq(qr, EL_STR("0"))) { _if_result_28 = ((qr0 + 1)); } else { _if_result_28 = (qr0); } _if_result_28; });
|
||||
qr1 = ({ el_val_t _if_result_29 = 0; if (str_eq(qr, EL_STR("1"))) { _if_result_29 = ((qr1 + 1)); } else { _if_result_29 = (qr1); } _if_result_29; });
|
||||
el_val_t fs = extract_dim(content, EL_STR("formality="));
|
||||
fs1 = ({ el_val_t _if_result_30 = 0; if (str_eq(fs, EL_STR("1"))) { _if_result_30 = ((fs1 + 1)); } else { _if_result_30 = (fs1); } _if_result_30; });
|
||||
fs2 = ({ el_val_t _if_result_31 = 0; if (str_eq(fs, EL_STR("2"))) { _if_result_31 = ((fs2 + 1)); } else { _if_result_31 = (fs2); } _if_result_31; });
|
||||
el_val_t tb = extract_dim(content, EL_STR("time="));
|
||||
tb1 = ({ el_val_t _if_result_32 = 0; if (str_eq(tb, EL_STR("1"))) { _if_result_32 = ((tb1 + 1)); } else { _if_result_32 = (tb1); } _if_result_32; });
|
||||
tb2 = ({ el_val_t _if_result_33 = 0; if (str_eq(tb, EL_STR("2"))) { _if_result_33 = ((tb2 + 1)); } else { _if_result_33 = (tb2); } _if_result_33; });
|
||||
tb3 = ({ el_val_t _if_result_34 = 0; if (str_eq(tb, EL_STR("3"))) { _if_result_34 = ((tb3 + 1)); } else { _if_result_34 = (tb3); } _if_result_34; });
|
||||
tb4 = ({ el_val_t _if_result_35 = 0; if (str_eq(tb, EL_STR("4"))) { _if_result_35 = ((tb4 + 1)); } else { _if_result_35 = (tb4); } _if_result_35; });
|
||||
bi = (bi + 1);
|
||||
}
|
||||
el_val_t mode_wl = ({ el_val_t _if_result_36 = 0; if (((wl1 >= wl2) && (wl1 >= wl3))) { _if_result_36 = (EL_STR("1")); } else { _if_result_36 = (({ el_val_t _if_result_37 = 0; if ((wl2 >= wl3)) { _if_result_37 = (EL_STR("2")); } else { _if_result_37 = (EL_STR("3")); } _if_result_37; })); } _if_result_36; });
|
||||
el_val_t mode_ps = ({ el_val_t _if_result_38 = 0; if ((ps1 >= ps2)) { _if_result_38 = (EL_STR("1")); } else { _if_result_38 = (EL_STR("2")); } _if_result_38; });
|
||||
el_val_t mode_lb = ({ el_val_t _if_result_39 = 0; if (((lb1 >= lb2) && (lb1 >= lb3))) { _if_result_39 = (EL_STR("1")); } else { _if_result_39 = (({ el_val_t _if_result_40 = 0; if ((lb2 >= lb3)) { _if_result_40 = (EL_STR("2")); } else { _if_result_40 = (EL_STR("3")); } _if_result_40; })); } _if_result_39; });
|
||||
el_val_t mode_qr = ({ el_val_t _if_result_41 = 0; if ((qr0 >= qr1)) { _if_result_41 = (EL_STR("0")); } else { _if_result_41 = (EL_STR("1")); } _if_result_41; });
|
||||
el_val_t mode_fs = ({ el_val_t _if_result_42 = 0; if ((fs1 >= fs2)) { _if_result_42 = (EL_STR("1")); } else { _if_result_42 = (EL_STR("2")); } _if_result_42; });
|
||||
el_val_t mode_tb_12 = ({ el_val_t _if_result_43 = 0; if ((tb1 >= tb2)) { _if_result_43 = (EL_STR("1")); } else { _if_result_43 = (EL_STR("2")); } _if_result_43; });
|
||||
el_val_t mode_tb_34 = ({ el_val_t _if_result_44 = 0; if ((tb3 >= tb4)) { _if_result_44 = (EL_STR("3")); } else { _if_result_44 = (EL_STR("4")); } _if_result_44; });
|
||||
el_val_t mode_tb_best12 = ({ el_val_t _if_result_45 = 0; if (str_eq(mode_tb_12, EL_STR("1"))) { _if_result_45 = (tb1); } else { _if_result_45 = (tb2); } _if_result_45; });
|
||||
el_val_t mode_tb_best34 = ({ el_val_t _if_result_46 = 0; if (str_eq(mode_tb_34, EL_STR("3"))) { _if_result_46 = (tb3); } else { _if_result_46 = (tb4); } _if_result_46; });
|
||||
el_val_t mode_tb = ({ el_val_t _if_result_47 = 0; if ((mode_tb_best12 >= mode_tb_best34)) { _if_result_47 = (mode_tb_12); } else { _if_result_47 = (mode_tb_34); } _if_result_47; });
|
||||
el_val_t baseline_json = el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"avg_word_len\":\""), mode_wl), EL_STR("\",\"punct\":\"")), mode_ps), EL_STR("\",\"len\":\"")), mode_lb), EL_STR("\",\"question\":\"")), mode_qr), EL_STR("\",\"formality\":\"")), mode_fs), EL_STR("\",\"time\":\"")), mode_tb), EL_STR("\"}"));
|
||||
return el_str_concat(el_str_concat(el_str_concat(el_str_concat(EL_STR("{\"baseline\":"), baseline_json), EL_STR(",\"sample_count\":\"")), int_to_str(total)), EL_STR("\"}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_check_continuity(el_val_t current_fingerprint, el_val_t session_id) {
|
||||
el_val_t baseline_result = steward_build_baseline();
|
||||
el_val_t baseline_val = json_get(baseline_result, EL_STR("baseline"));
|
||||
el_val_t is_null = (str_eq(baseline_val, EL_STR("")) || str_eq(baseline_val, EL_STR("null")));
|
||||
if (is_null) {
|
||||
return EL_STR("{\"status\":\"learning\",\"message\":\"building baseline\",\"action\":\"pass\"}");
|
||||
}
|
||||
el_val_t cur_wl = json_get(current_fingerprint, EL_STR("avg_word_len"));
|
||||
el_val_t cur_ps = json_get(current_fingerprint, EL_STR("punct"));
|
||||
el_val_t cur_lb = json_get(current_fingerprint, EL_STR("len"));
|
||||
el_val_t cur_qr = json_get(current_fingerprint, EL_STR("question"));
|
||||
el_val_t cur_fs = json_get(current_fingerprint, EL_STR("formality"));
|
||||
el_val_t cur_tb = json_get(current_fingerprint, EL_STR("time"));
|
||||
el_val_t base_wl = json_get(baseline_val, EL_STR("avg_word_len"));
|
||||
el_val_t base_ps = json_get(baseline_val, EL_STR("punct"));
|
||||
el_val_t base_lb = json_get(baseline_val, EL_STR("len"));
|
||||
el_val_t base_qr = json_get(baseline_val, EL_STR("question"));
|
||||
el_val_t base_fs = json_get(baseline_val, EL_STR("formality"));
|
||||
el_val_t base_tb = json_get(baseline_val, EL_STR("time"));
|
||||
el_val_t m_wl = ({ el_val_t _if_result_48 = 0; if (str_eq(cur_wl, base_wl)) { _if_result_48 = (0); } else { _if_result_48 = (1); } _if_result_48; });
|
||||
el_val_t m_ps = ({ el_val_t _if_result_49 = 0; if (str_eq(cur_ps, base_ps)) { _if_result_49 = (0); } else { _if_result_49 = (1); } _if_result_49; });
|
||||
el_val_t m_lb = ({ el_val_t _if_result_50 = 0; if (str_eq(cur_lb, base_lb)) { _if_result_50 = (0); } else { _if_result_50 = (1); } _if_result_50; });
|
||||
el_val_t m_qr = ({ el_val_t _if_result_51 = 0; if (str_eq(cur_qr, base_qr)) { _if_result_51 = (0); } else { _if_result_51 = (1); } _if_result_51; });
|
||||
el_val_t m_fs = ({ el_val_t _if_result_52 = 0; if (str_eq(cur_fs, base_fs)) { _if_result_52 = (0); } else { _if_result_52 = (1); } _if_result_52; });
|
||||
el_val_t m_tb = ({ el_val_t _if_result_53 = 0; if (str_eq(cur_tb, base_tb)) { _if_result_53 = (0); } else { _if_result_53 = (1); } _if_result_53; });
|
||||
el_val_t mismatches = (((((m_wl + m_ps) + m_lb) + m_qr) + m_fs) + m_tb);
|
||||
el_val_t score_str = int_to_str(mismatches);
|
||||
if (mismatches <= 1) {
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"status\":\"consistent\",\"score\":\""), score_str), EL_STR("\",\"action\":\"pass\"}"));
|
||||
}
|
||||
if (mismatches <= 3) {
|
||||
el_val_t detail = el_str_concat(el_str_concat(el_str_concat(EL_STR("session="), session_id), EL_STR(" mismatches=")), score_str);
|
||||
steward_log_event(EL_STR("behavior_drift"), detail);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"status\":\"drift\",\"score\":\""), score_str), EL_STR("\",\"action\":\"annotate\",\"message\":\"behavioral drift detected \\u2014 responding with attentiveness\"}"));
|
||||
}
|
||||
if (mismatches <= 5) {
|
||||
el_val_t detail = el_str_concat(el_str_concat(el_str_concat(EL_STR("session="), session_id), EL_STR(" mismatches=")), score_str);
|
||||
steward_log_event(EL_STR("continuity_concern"), detail);
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"status\":\"discontinuity\",\"score\":\""), score_str), EL_STR("\",\"action\":\"soft_check\",\"message\":\"significant pattern change \\u2014 gentle continuity check appropriate\"}"));
|
||||
}
|
||||
el_val_t detail = el_str_concat(el_str_concat(EL_STR("session="), session_id), EL_STR(" mismatches=6"));
|
||||
steward_log_event(EL_STR("identity_anomaly"), detail);
|
||||
return EL_STR("{\"status\":\"anomaly\",\"score\":\"6\",\"action\":\"identity_check\",\"message\":\"behavioral pattern strongly inconsistent with established profile\"}");
|
||||
return 0;
|
||||
}
|
||||
|
||||
el_val_t steward_session_check(el_val_t input, el_val_t session_id) {
|
||||
el_val_t fingerprint = steward_fingerprint_session(input, session_id);
|
||||
el_val_t result = steward_check_continuity(fingerprint, session_id);
|
||||
return result;
|
||||
return 0;
|
||||
}
|
||||
|
||||
+11
@@ -0,0 +1,11 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn steward_log_event(kind: String, detail: String) -> Void
|
||||
extern fn steward_get_mission() -> String
|
||||
extern fn steward_align(input: String, imprint_id: String) -> String
|
||||
extern fn steward_validate_imprint(imprint_id: String, tool_name: String) -> String
|
||||
extern fn steward_cgi_check(action: String) -> String
|
||||
extern fn steward_fingerprint_session(input: String, session_id: String) -> String
|
||||
extern fn extract_dim(content: String, key: String) -> String
|
||||
extern fn steward_build_baseline() -> String
|
||||
extern fn steward_check_continuity(current_fingerprint: String, session_id: String) -> String
|
||||
extern fn steward_session_check(input: String, session_id: String) -> String
|
||||
+50
-2
@@ -24,24 +24,72 @@ el_val_t mem_boot_count_get(void);
|
||||
el_val_t mem_boot_count_inc(void);
|
||||
el_val_t mem_emit_state_event(el_val_t trigger, el_val_t kind, el_val_t content);
|
||||
el_val_t chat_default_model(void);
|
||||
el_val_t engram_numeric_valid(el_val_t s);
|
||||
el_val_t parse_float_x100(el_val_t s);
|
||||
el_val_t engram_score_node(el_val_t node_json);
|
||||
el_val_t engram_render_node(el_val_t node_json);
|
||||
el_val_t engram_render_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_dedup_nodes(el_val_t nodes_json);
|
||||
el_val_t engram_compile_ranked(el_val_t nodes_json, el_val_t max_nodes);
|
||||
el_val_t engram_split_topics(el_val_t message);
|
||||
el_val_t engram_extract_entities(el_val_t message);
|
||||
el_val_t engram_detect_recall_intent(el_val_t message);
|
||||
el_val_t engram_is_continuation(el_val_t message, el_val_t hist_len);
|
||||
el_val_t engram_compile_multi(el_val_t topic);
|
||||
el_val_t engram_nodes_merge(el_val_t a, el_val_t b);
|
||||
el_val_t id_in_seen(el_val_t node_id, el_val_t seen);
|
||||
el_val_t add_to_seen(el_val_t seen, el_val_t node_id);
|
||||
el_val_t engram_extract_ids(el_val_t nodes_json);
|
||||
el_val_t engram_compile(el_val_t intent);
|
||||
el_val_t distill_transcript(el_val_t transcript);
|
||||
el_val_t json_safe(el_val_t s);
|
||||
el_val_t build_system_prompt(el_val_t ctx);
|
||||
el_val_t current_engine_note(el_val_t model);
|
||||
el_val_t build_system_prompt(el_val_t ctx, el_val_t chat_mode);
|
||||
el_val_t hist_append(el_val_t hist, el_val_t role, el_val_t content);
|
||||
el_val_t hist_trim(el_val_t hist);
|
||||
el_val_t hist_trim_with_bell_guard(el_val_t hist);
|
||||
el_val_t clean_llm_response(el_val_t s);
|
||||
el_val_t conv_history_persist(el_val_t hist);
|
||||
el_val_t conv_history_load(void);
|
||||
el_val_t session_preload_bullets(el_val_t nodes, el_val_t max_bullets, el_val_t snip_len);
|
||||
el_val_t affective_context_prefix(void);
|
||||
el_val_t handle_chat(el_val_t body);
|
||||
el_val_t handle_see(el_val_t body);
|
||||
el_val_t studio_tools_json(void);
|
||||
el_val_t agentic_api_key(void);
|
||||
el_val_t llm_base_url(void);
|
||||
el_val_t llm_wire_format(void);
|
||||
el_val_t json_escape(el_val_t s);
|
||||
el_val_t openai_chat_complete(el_val_t model, el_val_t base_url, el_val_t api_key, el_val_t safe_sys, el_val_t messages_json);
|
||||
el_val_t agentic_tools_literal(void);
|
||||
el_val_t agentic_tools_with_web(void);
|
||||
el_val_t connector_tools_json(void);
|
||||
el_val_t agentic_tools_all(void);
|
||||
el_val_t call_mcp_bridge(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t tool_auto_approved(el_val_t tool_name);
|
||||
el_val_t call_neuron_mcp(el_val_t tool_name, el_val_t args);
|
||||
el_val_t agent_workspace_root(void);
|
||||
el_val_t path_within_root(el_val_t path, el_val_t root);
|
||||
el_val_t resolve_in_root(el_val_t path, el_val_t root);
|
||||
el_val_t run_command_is_readonly(el_val_t cmd);
|
||||
el_val_t cmd_abs_escape_at(el_val_t cmd, el_val_t root, el_val_t needle);
|
||||
el_val_t run_command_guard(el_val_t cmd, el_val_t root);
|
||||
el_val_t classify_tool_risk(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t dispatch_tool(el_val_t tool_name, el_val_t tool_input);
|
||||
el_val_t is_builtin_tool(el_val_t tool_name);
|
||||
el_val_t next_bridge_id(void);
|
||||
el_val_t handle_chat_plan(el_val_t body);
|
||||
el_val_t handle_chat_agentic(el_val_t body);
|
||||
el_val_t agentic_loop(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages_in, el_val_t h, el_val_t tools_log_in);
|
||||
el_val_t bridge_save(el_val_t session_id, el_val_t model, el_val_t safe_sys, el_val_t tools_json, el_val_t messages, el_val_t tools_log, el_val_t tool_use_id);
|
||||
el_val_t agentic_resume(el_val_t session_id, el_val_t tool_use_id, el_val_t content);
|
||||
el_val_t handle_tool_result(el_val_t session_id, el_val_t body);
|
||||
el_val_t handle_chat_as_soul(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn(el_val_t body);
|
||||
el_val_t handle_dharma_room_turn_agentic(el_val_t body);
|
||||
el_val_t session_summary_write(el_val_t summary_text);
|
||||
el_val_t session_summary_write_dated(el_val_t summary_text, el_val_t label);
|
||||
el_val_t session_summary_autogenerate(el_val_t hist);
|
||||
el_val_t auto_persist(el_val_t req, el_val_t resp);
|
||||
el_val_t strengthen_chat_nodes(el_val_t activation_nodes);
|
||||
el_val_t auth_headers(el_val_t tok);
|
||||
@@ -104,7 +152,7 @@ el_val_t handle_config(el_val_t method, el_val_t body) {
|
||||
}
|
||||
}
|
||||
el_val_t current_model = state_get(EL_STR("soul_model"));
|
||||
el_val_t display = ({ el_val_t _if_result_1 = 0; if (str_eq(current_model, EL_STR(""))) { _if_result_1 = (EL_STR("claude-sonnet-4-5")); } else { _if_result_1 = (current_model); } _if_result_1; });
|
||||
el_val_t display = ({ el_val_t _if_result_1 = 0; if (str_eq(current_model, EL_STR(""))) { _if_result_1 = (EL_STR("claude-opus-4-8")); } else { _if_result_1 = (current_model); } _if_result_1; });
|
||||
return el_str_concat(el_str_concat(EL_STR("{\"model\":\""), display), EL_STR("\",\"ok\":true}"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
+35
@@ -0,0 +1,35 @@
|
||||
/*
|
||||
* win32_shim.h — Extra POSIX→Win32 stubs for cross-compiling el_runtime.c with mingw-w64.
|
||||
* Injected via -include; supplements el_platform_win.h for symbols it doesn't yet cover.
|
||||
*/
|
||||
#ifdef _WIN32
|
||||
#include <windows.h>
|
||||
|
||||
/* ── rusage / getrusage ────────────────────────────────────────────────────── */
|
||||
/* el_runtime.c uses getrusage(RUSAGE_SELF) only for a soft memory guard.
|
||||
* On Windows, stub it out: always return 0 ru_maxrss so the guard never fires. */
|
||||
#ifndef RUSAGE_SELF
|
||||
#define RUSAGE_SELF 0
|
||||
struct rusage {
|
||||
long ru_maxrss; /* the only field el_runtime actually reads */
|
||||
};
|
||||
static inline int getrusage(int who, struct rusage *r) {
|
||||
(void)who;
|
||||
if (r) r->ru_maxrss = 0;
|
||||
return 0;
|
||||
}
|
||||
#endif /* RUSAGE_SELF */
|
||||
|
||||
/* ── fsync ─────────────────────────────────────────────────────────────────── */
|
||||
/* Windows has FlushFileBuffers but no fsync; map it. */
|
||||
#ifndef fsync
|
||||
#include <io.h>
|
||||
static inline int el_win_fsync(int fd) {
|
||||
HANDLE h = (HANDLE)_get_osfhandle(fd);
|
||||
if (h == INVALID_HANDLE_VALUE) return -1;
|
||||
return FlushFileBuffers(h) ? 0 : -1;
|
||||
}
|
||||
#define fsync(fd) el_win_fsync(fd)
|
||||
#endif /* fsync */
|
||||
|
||||
#endif /* _WIN32 */
|
||||
@@ -0,0 +1,34 @@
|
||||
# Narrated runs — engine notes for Will (2026-07-13)
|
||||
|
||||
Source half: commit aa67f86 on feat/agent-phase1-soul (run-progress ledger,
|
||||
`/api/run-progress/<sid>` route, narration on the pause envelope, config display
|
||||
default). E2E-verified via the compiled test bed on Tim's clean profile.
|
||||
|
||||
Compiled-form-only fixes (in `neuron-container-build/soul-narrated-runs-20260713.patch`,
|
||||
applies ON TOP of `soul-webfix-20260711.patch` — these need porting to chat.el when the
|
||||
webfix itself is ported):
|
||||
|
||||
1. **pause_turn + tool_use interleave**: a pause_turn response can ALSO carry a client
|
||||
tool_use; resuming verbatim leaves it unpaired → Anthropic 400 "tool_use ids were
|
||||
found without tool_result". Fix: tool-bearing pause rounds are tool turns
|
||||
(dispatch + pair); verbatim resume only when the round has no client tool.
|
||||
2. **Agentic toolset scope**: agentic_tools_all() fed EVERY connector/MCP tool (Notion,
|
||||
code-execution…) into the loop. Code-execution flips the API into programmatic
|
||||
tool calling, whose pairing protocol the single-tool manual loop does not speak —
|
||||
source of the dangling-pair 400s AND the bash_code_execution workspace-dodge.
|
||||
Fix: handle_chat_agentic declares builtins + ONE server web_search only.
|
||||
Connector tools return when the loop gains real multi-tool/programmatic support.
|
||||
3. **disable_parallel_tool_use: true** on agentic requests — the loop captures only the
|
||||
first tool_use per round; Opus-class models parallel-call. Enforce the invariant.
|
||||
4. **web_search server-tool default variant → web_search_20250305 (GA)**. The 20260209
|
||||
variant couples to code-execution ⇒ programmatic mode (see #2, and the June note:
|
||||
"inert unless code-execution attached").
|
||||
5. **Homegrown web_search removed** from the tool catalog (server-side is the one tool).
|
||||
|
||||
Known engine debts this work surfaced (not fixed):
|
||||
|
||||
- **Poisoned session history**: a failed run persists the malformed assistant turn; every
|
||||
later turn in that session replays it and 400s. Needs history sanitation on load.
|
||||
- **Huge-history invalid-escape 400** (~346KB request) — likely the same poisoned blob.
|
||||
- **macOS note**: replacing a binary in place invalidates its ad-hoc signature (instant
|
||||
silent SIGKILL, looks like exit 0). `rm + cp + codesign -f -s -` is the swap ritual.
|
||||
@@ -0,0 +1,145 @@
|
||||
# Neuron — Architecture Overview
|
||||
|
||||
> Status: living document. Grounded in the committed source of the `neuron`
|
||||
> repository as of 2026-08-10. Every structural claim cites a real file. Where a
|
||||
> statement is inferred rather than read directly, it is labelled *(inference)*
|
||||
> or *(unverified/TODO)*.
|
||||
|
||||
## What Neuron is
|
||||
|
||||
Neuron is a **persistent CGI (Cultivated General Intelligence) runtime**. It is
|
||||
not a chatbot and not a stateless API in front of an LLM. It is a long-lived
|
||||
process that *remembers* — it carries an identity, a graph of memory and
|
||||
knowledge, and an autonomous idle-cognition loop across restarts. The LLM is one
|
||||
resource it calls; the durable part is the **engram** (the graph) and the
|
||||
**soul** (the program that reasons over it).
|
||||
|
||||
Three things run together to make that true:
|
||||
|
||||
- **The soul** — the compiled El program in this repo. It owns the HTTP surface,
|
||||
the cognitive API, the request pipeline (`layered_cycle`), and the autonomous
|
||||
awareness daemon. Entry point `soul.el`, served by `handle_request`
|
||||
(`routes.el:358`).
|
||||
- **The engram** — the graph store. Node/edge model, spreading activation, and
|
||||
Hebbian co-activation physically live in the shared El runtime
|
||||
(`el_runtime.c`); `engram/src/server.el` is a thin HTTP face on `:8742`. The
|
||||
engram is a *sibling* repo (`foundation/el/engram`), compiled and co-located at
|
||||
runtime, not part of this repo's source tree.
|
||||
- **The El runtime** — `el_runtime.c` / `el_runtime.h`. Every compiled El binary
|
||||
links it. It implements all builtins (`engram_*`, `http_*`, `json_*`, LLM,
|
||||
crypto) and *is* the database — "no SQL, no db layer, no SQLite"
|
||||
(`../foundation/el/engram/src/server.el:4-6`).
|
||||
|
||||
Neuron persists memory itself — this repo is the memory system. Do not confuse
|
||||
it with the Neuron desktop/UI application, which is **out of scope** here and is
|
||||
only ever a *client* of the MCP surface described in this set.
|
||||
|
||||
## System context
|
||||
|
||||
```
|
||||
┌────────────────────────────────────────────────────────────┐
|
||||
│ MCP clients (Claude Code, Soma chat UI, agents) │
|
||||
│ — talk MCP JSON-RPC over stdio, or HTTP to the soul │
|
||||
└───────────────┬────────────────────────────────────────────┘
|
||||
│ MCP JSON-RPC (stdio)
|
||||
┌──────────▼──────────┐
|
||||
│ mcp-proxy :7779 │ byte-forwarder + retry + health
|
||||
└──────────┬──────────┘
|
||||
│ MCP JSON-RPC (stdio→HTTP)
|
||||
┌──────────▼──────────┐
|
||||
│ mcp-wrapper :17779 │ JSON-RPC ⇄ soul REST; ~90-tool catalog
|
||||
└──────────┬──────────┘
|
||||
│ HTTP (REST)
|
||||
┌──────────▼──────────┐ ┌──────────────────────────┐
|
||||
│ soul :7770 │──HTTP──▶│ engram :8742 │
|
||||
│ handle_request │ │ graph store (snapshot) │
|
||||
│ layered_cycle │◀──────▶│ el_runtime.c = the DB │
|
||||
│ awareness daemon │ └──────────────────────────┘
|
||||
└──────────┬──────────┘
|
||||
│ HTTP
|
||||
┌───────────────┼───────────────┬───────────────┐
|
||||
▼ ▼ ▼ ▼
|
||||
Axon backend neuron-connectd LLM API (self-callback
|
||||
:backlog/ :7771 connectors Anthropic NEURON_API_URL)
|
||||
artifacts/ (MCP bridges) format
|
||||
projects
|
||||
```
|
||||
|
||||
*Ports/topology verified*: proxy `:7779` and wrapper `:17779`
|
||||
(`mcp-proxy/src/main.el`, `mcp-wrapper/src/main.el`); soul `:7770`
|
||||
(`NEURON_PORT`, k8s `deployment-blue.yaml`); engram `:8742` (`entrypoint.sh`,
|
||||
`server.el:711`). The Axon backend, `neuron-connectd` (`:7771`), and the LLM are
|
||||
external dependencies the soul reaches over HTTP (`routes.el` `axon_get/post`,
|
||||
`connectd_get/post`).
|
||||
|
||||
## The two external interfaces
|
||||
|
||||
Neuron exposes exactly two surfaces, and it is worth being precise about the
|
||||
difference because they drive the whole component split:
|
||||
|
||||
1. **The MCP surface** — the *tool* interface. MCP clients call tools
|
||||
(`begin_session`, `remember`, `search_knowledge`, `inspect_graph`,
|
||||
`cultivate`, …). This is the interface Claude Code and agents use. It is
|
||||
delivered by the **proxy → wrapper** chain, which translates MCP JSON-RPC
|
||||
into the soul's HTTP REST calls. The wrapper carries a catalog of ~90 tools
|
||||
(`mcp-wrapper/src/main.el`).
|
||||
|
||||
2. **The HTTP API** — the *cognitive* interface. The soul serves REST on
|
||||
`:7770`. `routes.el` dispatches; `neuron-api.el` handles the cognitive
|
||||
endpoints (`/api/neuron/*`). This same surface backs the chat product
|
||||
(`/api/chat`, `/api/sessions`) and the studio UI (`/`).
|
||||
|
||||
In production the MCP client connects to the soul's HTTP directly — the
|
||||
`neuron-mcp` ClusterIP Service targets `:7770` (`service.yaml`) and the
|
||||
proxy/wrapper chain is primarily the **local developer adapter** that lets a
|
||||
stdio MCP client speak to an HTTP soul. See `04-runtime-and-deployment.md`.
|
||||
|
||||
## Component map (summary)
|
||||
|
||||
The full VBD classification is in `01-vbd-decomposition.md`. In one glance:
|
||||
|
||||
| Layer | Module(s) | Role |
|
||||
|---|---|---|
|
||||
| HTTP dispatch | `routes.el` | Manager — hand-written method/path dispatch |
|
||||
| Cognitive API | `neuron-api.el` | Managers + Engines — session/memory/knowledge/graph/cultivation handlers |
|
||||
| Request pipeline | `soul.el` `layered_cycle` | Manager — L1 safety → L2 stewardship → L3 imprint |
|
||||
| Boot + identity | `soul.el` | Manager — compose layers, seed identity graph, start server + daemon |
|
||||
| Autonomous cognition | `awareness.el` | Manager (`awareness_run`) + Engines (curiosity, attend, threat) |
|
||||
| Memory access | `memory.el` | Resource Accessor over the engram FFI/HTTP |
|
||||
| Store | `engram/server.el` + `el_runtime.c` | Accessor (HTTP) over the real graph engine |
|
||||
| Request-layer rules | `safety.el`, `stewardship.el`, `imprint.el` | Engines |
|
||||
| Conversation sessions | `sessions.el` | Manager (chat product) |
|
||||
| MCP transport | `mcp-proxy`, `mcp-wrapper` | Managers/Accessors — protocol boundary |
|
||||
| Build | `manifest.el`, `dist/soul.c`, El toolchain | amalgamation → `soul.c` → binary |
|
||||
|
||||
## Reading guide
|
||||
|
||||
- **`01-vbd-decomposition.md`** — the volatility analysis. Start here for *why*
|
||||
the boundaries fall where they do. Contains the full Manager/Engine/Accessor/
|
||||
Utility table and the honest list of where the real code diverges from VBD.
|
||||
- **`02-components.md`** — per-subsystem detail: routing, the cognitive API, the
|
||||
memory & activation engine, the MCP transport chain. Read after 01.
|
||||
- **`03-data-and-memory.md`** — the engram graph model: node/edge structs,
|
||||
layers, the two tier systems, write-protection, tombstone/supersede
|
||||
immutability, persistence.
|
||||
- **`04-runtime-and-deployment.md`** — process/port topology, the end-to-end MCP
|
||||
request path, local vs GKE blue/green, secrets/config.
|
||||
- **`05-el-and-build.md`** — the El language, the `elc`/`elb` toolchain, the
|
||||
amalgamation → `soul.c` → binary pipeline, and the compile-time capability
|
||||
gates.
|
||||
|
||||
## A note on honesty
|
||||
|
||||
Two facts shape everything below and are stated once here so the rest reads
|
||||
straight:
|
||||
|
||||
1. **The most volatile logic — the activation and Hebbian math — lives in the
|
||||
most stable-looking layer**, the C runtime (`el_runtime.c`). The El files in
|
||||
this repo are largely a *Manager + Accessor shell* around that core. This
|
||||
inverts the usual VBD expectation and is called out wherever it matters.
|
||||
2. **The immutability guarantee lives above the store, not in it.** The engram
|
||||
HTTP server will hard-delete a node (`DELETE /api/nodes/:id` →
|
||||
`engram_forget`, `server.el:322`). Immutability holds only because the
|
||||
neuron-api / MCP layer routes every user-facing delete through *tombstone*
|
||||
instead (`memory.el:46`). The invariant is a policy, not a property of the
|
||||
accessor.
|
||||
@@ -0,0 +1,218 @@
|
||||
# Neuron — VBD Decomposition
|
||||
|
||||
> This is the load-bearing document. It applies Volatility-Based Decomposition
|
||||
> (VBD) to the *actual* neuron code, not an idealized version of it. VBD asks one
|
||||
> question — **what changes, why, and how often** — and draws component
|
||||
> boundaries around the answers so that a change lands inside one component
|
||||
> instead of rippling across many.
|
||||
>
|
||||
> VBD's component taxonomy:
|
||||
> - **Managers** — stable orchestrators. They sequence use-cases and delegate;
|
||||
> they change only when the *shape* of a workflow changes.
|
||||
> - **Engines** — volatile business rules. The "how" that churns.
|
||||
> - **Resource Accessors** — isolate an external dependency (a store, an API) so
|
||||
> its volatility can't leak inward.
|
||||
> - **Utilities** — cross-cutting, low-volatility helpers.
|
||||
>
|
||||
> Communication ideal: Managers orchestrate Engines and Accessors; Managers
|
||||
> prefer async/event coupling to each other; Engines are stateless-ish and never
|
||||
> reach external I/O directly; Accessors hide all I/O. We note below where neuron
|
||||
> honors this and where it doesn't.
|
||||
|
||||
## The axes of change
|
||||
|
||||
Before classifying modules, name the volatility. These are the axes along which
|
||||
neuron actually changes, ranked by observed churn (dated self-review comments in
|
||||
the source are the evidence — the code keeps a changelog in its own margins).
|
||||
|
||||
### 1. Context / payload shaping — *highest churn*
|
||||
How much of the graph, and in what projected form, gets returned to a
|
||||
bounded MCP response. The `begin_session` / `compile_ctx` handlers and the
|
||||
`api_compact_*` helpers carry dense dated review comments (2026-07-30, -31)
|
||||
documenting repeated rework after unbounded payloads closed the MCP client
|
||||
socket (`neuron-api.el:90-317`). This changes because the *client's* context
|
||||
budget and the *shape* of "what's relevant right now" keep moving. The newest
|
||||
rework in this axis is the **relevance-ranked neighbor projection**
|
||||
(`api_compact_neighbors` + `api_neigh_*`) behind `inspect_graph`'s `compact=1`
|
||||
path — it is what keeps *self-load* (traversing the high-fanout identity anchors)
|
||||
from closing the socket. It is committed source, compiled into `dist/soul.c`.
|
||||
|
||||
### 2. Autonomous-cognition policy
|
||||
What the idle soul chooses to think about: seed-domain selection, curiosity
|
||||
rotation, novelty gating, and the inbox verb-mapping in `attend()`. The
|
||||
`proactive_curiosity` / `auto_term_try_slot` machinery
|
||||
(`awareness.el:590-876`) has the deepest git-archaeology in the codebase
|
||||
(comments spanning 2026-05 → 2026-08). This is where the *behavior* of the
|
||||
agent is tuned.
|
||||
|
||||
### 3. Epistemic & memory semantics
|
||||
Tiers, salience mapping, promotion/consolidation, the immutability policy
|
||||
(tombstone/supersede), and knowledge disposition. These evolve as the memory
|
||||
*philosophy* matures — e.g. `mem_forget` becoming a soft delete
|
||||
(`memory.el:70`), the salience-evolution pass in `mem_consolidate`
|
||||
(`memory.el:92-133`), the supersede-edge pattern (`neuron-api.el:394-428`).
|
||||
|
||||
### 4. Safety & stewardship rules
|
||||
Crisis bell thresholds, agentic threat scoring, mission alignment, CGI
|
||||
continuity fingerprinting. `safety.el`, `stewardship.el`, and the threat
|
||||
scorer grafted onto `awareness.el:1286-1419` change on behavioral/regulatory
|
||||
pressure, independently of everything else.
|
||||
|
||||
### 5. API / route surface growth
|
||||
New cognitive endpoints and their dispatch. `routes.el` grows structurally as
|
||||
tools are added; the `handle_request` if/else chain (`routes.el:358-753`) is
|
||||
edited on every surface change.
|
||||
|
||||
*(A sixth axis — the activation/Hebbian numeric math — is real and volatile but
|
||||
is externalized to `el_runtime.c`. See "Divergences," point 6.)*
|
||||
|
||||
## The component map
|
||||
|
||||
Modules classified against the taxonomy, with the volatility that justifies each
|
||||
placement. Paths are repo-relative unless noted `foundation/…`.
|
||||
|
||||
### Managers (stable orchestration)
|
||||
|
||||
| Module / function | File | Why a Manager |
|
||||
|---|---|---|
|
||||
| `handle_request` | `routes.el:358-753` | Top-level HTTP dispatcher. Pure method/path routing; delegates every body of work. Changes only when the *route surface* (axis 5) changes, not when logic changes. |
|
||||
| Boot sequence | `soul.el:508-627` | Sequences load → seed → identity → serve → daemon. Highest stability; changes only on architecture shifts. |
|
||||
| `layered_cycle` | `soul.el:382-506` | Request use-case pipeline: L1 safety → L2 stewardship (continuity, mission, affect) → L3 imprint → L1 output validation. Orchestrates Engines; holds no rules itself. |
|
||||
| `awareness_run` / `one_cycle` | `awareness.el:1097-1284`, `1041-1095` | Daemon lifecycle + the perceive→attend→respond→record sequencer. Manager of the autonomous loop. |
|
||||
| Session CRUD | `sessions.el` | Orchestrates the immutable delete-then-recreate dance for conversation sessions (chat product). Manager-flavored, but leaks store detail (see Divergences). |
|
||||
| MCP proxy | `mcp-proxy/src/main.el` | Orchestrates transport: accept stdio, forward, retry, health-gate, wrap errors. |
|
||||
| MCP wrapper | `mcp-wrapper/src/main.el` | Orchestrates the JSON-RPC ⇄ REST translation, tool catalog, lifecycle (`initialize`/`tools/list`/`tools/call`). |
|
||||
|
||||
### Engines (volatile business rules)
|
||||
|
||||
| Module / function | File | Volatility it absorbs |
|
||||
|---|---|---|
|
||||
| `api_compact_*`, `begin_session`, `compile_ctx` | `neuron-api.el:90-317` | Axis 1 — context/payload shaping. The single most-reworked logic on the API side. |
|
||||
| `attend()` | `awareness.el:926-973` | Axis 2 — inbox content → action-verb ruleset. |
|
||||
| `proactive_curiosity`, `auto_term_try_slot` | `awareness.el:590-876` | Axis 2 — seed selection, stopword/IDF gates, tabu ring. Textbook Engine: highest churn. |
|
||||
| threat scoring | `awareness.el:1286-1419` | Axis 4 — additive command/path/history threat rules. |
|
||||
| `safety.el` (crisis/harm/bell) | `safety.el` | Axis 4 — crisis screening, bell thresholds, output validation. |
|
||||
| `stewardship.el` | `stewardship.el` | Axis 4 — mission alignment, CGI check, continuity fingerprint. |
|
||||
| `imprint.el` | `imprint.el` | Axis 2/3 — persona response + knowledge/memory surfacing per imprint. |
|
||||
| `mem_consolidate` | `memory.el:92-133` | Axis 3 — which nodes to strengthen; salience-evolution rules. |
|
||||
| salience/importance mapping | `neuron-api.el` (repeated in `remember`, `node_create`, `evolve_memory`, `cultivate`) | Axis 3 — importance-enum → salience float mapping. |
|
||||
| chat mode selection | `chat.el` (via `routes.el:433-440`, `597-604`) | plan / agentic / `layered_cycle` routing. |
|
||||
| **activation + Hebbian math** | `foundation/.../el_runtime.c` | Axis 6 — the true cognitive Engine, externalized to C. |
|
||||
|
||||
### Resource Accessors (isolate external I/O)
|
||||
|
||||
| Accessor | File | Dependency isolated |
|
||||
|---|---|---|
|
||||
| `mem_*` | `memory.el` | The engram FFI/HTTP. **The** memory Accessor — clean, single isolation point; every forget routes through `mem_tombstone` (`memory.el:46`). |
|
||||
| `engram_*` builtins + `server.el` | `el_runtime.c`, `foundation/el/engram/src/server.el` | The graph store over HTTP `:8742`. |
|
||||
| `axon_get` / `axon_post` | `routes.el` | The Axon backend (backlog, artifacts, projects, memories, non-neuron knowledge). |
|
||||
| `connectd_get` / `connectd_post` | `routes.el:303-324` | `neuron-connectd` bridge (`:7771`). |
|
||||
| `llm_call_system` / `llm_call_agentic` | runtime builtins (used in `routes.el:115`, chat) | The LLM. |
|
||||
| `ise_post`, `hebb_consolidate` | `awareness.el:101-148`, `64-99` | Durable engram HTTP (`/api/neuron/state-events`, `/api/edges/batch`). |
|
||||
| `render_studio` | `studio.el` | The UI surface. |
|
||||
|
||||
### Utilities (cross-cutting, stable)
|
||||
|
||||
`flag_true`, `strip_query`, `err_404/405` (`routes.el:14-91`);
|
||||
`api_json_escape`, `api_query_param/int`, `api_ok/err`, `api_nonempty`,
|
||||
`api_utf8_trunc`, `api_persisted` (`neuron-api.el:45-201`); `idle_*`/`pulse_*`
|
||||
counters, `elapsed_ms/human`, `make_action`, `embed_ok` (`awareness.el`);
|
||||
`session_make_content`, `aff_try_slot`, JSON builders (`sessions.el`, `soul.el`).
|
||||
Beneath all of these, the El runtime builtins (`json_*`, `http_*`, crypto, time)
|
||||
are the utility substrate every module shares.
|
||||
|
||||
## Communication topology (as built)
|
||||
|
||||
```
|
||||
MCP client
|
||||
│ JSON-RPC
|
||||
proxy ──► wrapper ──► soul.handle_request ──► neuron-api.handle_api_*
|
||||
│ │
|
||||
│ layered_cycle │ engram_* builtins
|
||||
▼ ▼
|
||||
safety / steward / imprint memory.el (Accessor)
|
||||
(Engines) │
|
||||
▼
|
||||
el_runtime.c graph
|
||||
engram HTTP :8742
|
||||
|
||||
awareness_run (daemon) ──perceive──► engram inbox (soul-inbox-pending tag)
|
||||
──hebb_consolidate──► POST /api/edges/batch
|
||||
```
|
||||
|
||||
Two things about coupling:
|
||||
|
||||
- **Manager → Engine/Accessor is in-process and synchronous** (direct El calls),
|
||||
which matches VBD: rules and I/O sit behind the Managers.
|
||||
- **Manager ↔ Manager is *not* the VBD async-event ideal.** It is synchronous
|
||||
HTTP (soul → engram, soul → Axon) plus one genuine event-ish channel: the
|
||||
**engram inbox**. The awareness daemon `perceive()`s by polling a
|
||||
`soul-inbox-pending` tag and consumes trigger nodes
|
||||
(`awareness.el:900-924`, `1090-1093`), and modules communicate asynchronously
|
||||
by writing **InternalStateEvent** nodes. That is a partial actor/event
|
||||
pattern, realized through the graph rather than a message bus.
|
||||
|
||||
## Where reality diverges from VBD (call it out)
|
||||
|
||||
Honest deviations, so no one reads this doc as a conformance certificate:
|
||||
|
||||
1. **No route table.** Dispatch is a hand-written if/else chain in
|
||||
`handle_request` (`routes.el:358-753`); there is no `register-route`
|
||||
registry. Path params are sliced by hand (`str_slice` + `str_index_of`,
|
||||
`routes.el:508-513, 539-541`) — one site carries an inline offset bug-fix
|
||||
comment. Acceptable for a single dispatcher, but it means the "route surface"
|
||||
Manager is edited manually on every change.
|
||||
|
||||
2. **Store I/O leaks into Managers.** `routes.el` inlines engram export logic for
|
||||
`/api/graph/edges` (`routes.el:394-422`, with a 2026-08-07 comment about a
|
||||
read-route that corrupted the canonical snapshot). The `awareness_run` sync
|
||||
block inlines `http_get /api/sync` + `engram_load_merge`
|
||||
(`awareness.el:1219-1279`). `emit_heartbeat` (`awareness.el:201-549`, ~350
|
||||
lines) mixes Utility (formatting), Accessor (HTTP/FFI reads), and Manager
|
||||
(state-delta tracking) in one function. These are Accessor responsibilities
|
||||
living inside orchestration — the clearest VBD smell in the codebase.
|
||||
|
||||
3. **No authentication.** The only access control on the HTTP surface is per-IP
|
||||
rate limiting (`routes.el:38-75`) plus `is_protected_node` on 15 hardcoded
|
||||
identity IDs (`neuron-api.el:20-37`). There is no bearer/token check in the
|
||||
dispatch path. Security is a cross-cutting concern only partially realized;
|
||||
the deployment relies on a **single-trusted-client, internal-only** boundary
|
||||
assumption (the `neuron-mcp` Service is ClusterIP, no external LB — see doc 04).
|
||||
|
||||
4. **Immutability is enforced above the Accessor, not in it.** The engram store
|
||||
itself hard-deletes (`DELETE /api/nodes/:id` → `engram_forget`,
|
||||
`server.el:322`). The invariant "we never delete, we tombstone/supersede"
|
||||
is a *routing policy* in `memory.el` / `neuron-api.el`, not a property of the
|
||||
store. A caller that hits the raw engram HTTP bypasses it.
|
||||
|
||||
5. **Mutation via delete-then-recreate.** Because nodes are immutable,
|
||||
`sessions.el` mutates a session by deleting and recreating the node — flagged
|
||||
non-atomic in its own comments (`sessions.el:303-308`, `:456`).
|
||||
|
||||
6. **The volatile core is in the stable layer.** The activation, decay, and
|
||||
Hebbian co-activation math — genuinely high-volatility numeric policy — lives
|
||||
in `el_runtime.c`, the foundational runtime every binary links. The El files
|
||||
here are a Manager+Accessor shell around it. This inverts VBD's usual
|
||||
layering (volatile logic should sit *above* stable infrastructure) and is the
|
||||
single most important thing to understand before changing memory behavior:
|
||||
you often can't, from this repo, without touching `foundation/el`.
|
||||
|
||||
7. **Vocabulary mismatch across layers.** The MCP-facing memory vocabulary
|
||||
(tiers `note → lesson → canonical`, disposition
|
||||
`experimental → … → deprecated`, importance enum `low/normal/high/critical`)
|
||||
is **not** the engine's model. The engine uses cognitive tiers
|
||||
`Working / Episodic / Semantic / Canonical` (a `tier` string field) plus
|
||||
continuous `salience`/`importance`/`confidence` floats, and stores epistemic
|
||||
tier/disposition as **tags** (`tier:canonical`, `disposition:stable`), not as
|
||||
enforced state (`neuron-api.el:533`, `server.el:519-522`). The mapping is a
|
||||
convention, not a guarded state machine. See `03-data-and-memory.md`.
|
||||
|
||||
## Testing spiral (VBD heuristic, as observed)
|
||||
|
||||
VBD recommends testing Engines first (pure logic), then Accessors (mock I/O),
|
||||
then Managers (integration). The repo has `tests/*.el` matching this instinct —
|
||||
`test_safety.el`, `test_bell_safety.el` (Engines), `test_layer_contract.el`
|
||||
(the Manager↔Engine JSON contract `layered_cycle` depends on), `test_soul_guard.el`
|
||||
(the boot Manager's seed guard), `test_sessions.el`. **Flag:** CI compiles and
|
||||
smoke-tests only (`dist/neuron --help`); it does **not** run these `.el` suites
|
||||
(`ci.yaml`). Whether they gate merges elsewhere is unverified — see doc 05.
|
||||
@@ -0,0 +1,278 @@
|
||||
# Neuron — Component Detail
|
||||
|
||||
> Per-subsystem detail: routing/dispatch, the cognitive API, the memory &
|
||||
> activation engine, and the MCP transport chain. For the *why* behind these
|
||||
> boundaries read `01-vbd-decomposition.md` first; this doc is the *what* and
|
||||
> *how*, grounded in file citations.
|
||||
|
||||
---
|
||||
|
||||
## 1. Routing / dispatch — `routes.el`
|
||||
|
||||
**Responsibility:** turn an inbound HTTP request into a handler call. One
|
||||
function does it.
|
||||
|
||||
- **Entry point:** `handle_request(method, path, body) -> String`
|
||||
(`routes.el:358-753`). Structure: branch by method (`GET` `:384`, `POST`
|
||||
`:549`, `DELETE` `:726`, `PATCH` `:739`), then an ordered sequence of exact
|
||||
(`str_eq`) and prefix (`str_starts_with`) tests against the cleaned path.
|
||||
First match wins. There is **no route table and no `register-route`** — this is
|
||||
a deliberate hand-written dispatcher.
|
||||
- **Path params** are extracted manually with `str_slice`/`str_index_of`
|
||||
(session id `:539-541`, typed-node type `:508-513`).
|
||||
- **Query strings** stripped up front by `strip_query` (`:77-83`); the raw path
|
||||
(with query) is still passed to handlers that read params.
|
||||
- **Pre-dispatch middleware** (cross-cutting, inline): an activity timestamp
|
||||
(`state_set("soul.last_activity_ts", …)` `:367`) and **rate limiting**
|
||||
(`rate_limit_check(ip, path)` `:38-75`, `:372-378`) — a per-IP 60 req/min
|
||||
sliding window, `/health` exempt, loopback skipped, returns a 429 body.
|
||||
- **Auth:** none in the dispatch path. See doc 01, Divergence 3.
|
||||
- **Fallbacks:** `err_404` / `err_405`.
|
||||
|
||||
**Collaborators:** delegates to `neuron-api.el` (`/api/neuron/*`), `sessions.el`
|
||||
(`/api/sessions/*`), `chat.el` (`/api/chat`, `/dharma/recv`), the Axon Accessor
|
||||
(`axon_get/post` for `/api/backlog|artifacts|projects|memories|knowledge`),
|
||||
`connectd_*` (`/api/connectors*`), `studio.el` (`/`), and engram builtins for the
|
||||
raw `/api/graph*` reads.
|
||||
|
||||
**Route surface** (grouped; full table with line numbers is in the survey notes):
|
||||
|
||||
| Group | Representative routes | Handler home |
|
||||
|---|---|---|
|
||||
| Session/context | `/api/neuron/session/begin`, `/api/neuron/ctx`, `/api/sessions*` | neuron-api, sessions.el |
|
||||
| Memory | `/api/neuron/memory`, `/recall`, `/memory/{evolve,forget,delete,update}`, `/node/{create,update,delete}` | neuron-api |
|
||||
| Knowledge | `/api/neuron/knowledge/{search,capture,evolve,promote}`, `/knowledge` | neuron-api |
|
||||
| Graph/activation | `/api/neuron/graph`, `/graph/link`, `/api/graph*`, `/list/:type` | neuron-api + engram builtins |
|
||||
| Cultivation/self | `/api/neuron/cultivate`, `/lineage`, `/imprint/*`, `/synthesize` | neuron-api, routes.el |
|
||||
| Processes/config | `/api/neuron/processes{,/define}`, `/config{,/tune}` | neuron-api |
|
||||
| State/consolidate | `/api/neuron/state-events`, `/consolidate` | neuron-api |
|
||||
| Backlog/artifacts | `/api/backlog`, `/artifacts`, `/projects`, `/memories` | Axon (HTTP) |
|
||||
| Chat/NLG | `/api/chat`, `/see`, `/elp/chat`, `/dharma*`, `/nlg*` | chat.el, elp-input.el |
|
||||
| Health/UI | `/health`, `/lineage`, `/` | routes.el, studio.el |
|
||||
|
||||
---
|
||||
|
||||
## 2. The cognitive API — `neuron-api.el`
|
||||
|
||||
**Responsibility:** the `/api/neuron/*` handlers — the operations that read and
|
||||
write the engram as *cognition* (session, memory, knowledge, graph, config,
|
||||
processes, state, cultivation). The file header notes these were migrated **out
|
||||
of the MCP wrapper's HTTP calls into in-process engram builtins**
|
||||
(`neuron-api.el:3-9`) — so most handlers call the store directly, no HTTP
|
||||
round-trip.
|
||||
|
||||
**Primary collaborators** are the engram builtins (`engram_node_full`,
|
||||
`engram_search_json`, `engram_activate_json`, `engram_scan_nodes_json`,
|
||||
`engram_scan_nodes_by_type_json`, `engram_neighbors_json`, `engram_connect`,
|
||||
`engram_get_node_json`, `engram_stats_json`, `engram_save`) and `memory.el` for
|
||||
tombstoning.
|
||||
|
||||
**Handler groups:**
|
||||
|
||||
- **Session / context** — `handle_api_begin_session` (`:273-301`),
|
||||
`handle_api_compile_ctx` (`:305-317`). Pull `engram_stats_json`, run
|
||||
spreading activation (`engram_activate_json`, depth-1 for begin, depth-2 for
|
||||
ctx), scan recent `InternalStateEvent`s, then **project the result through the
|
||||
compaction helpers** so the payload can't overflow the MCP client's context.
|
||||
This is Engine work (axis 1) inside a Manager-shaped entry point.
|
||||
|
||||
- **Memory** — `handle_api_remember` (`:322-348`): maps `importance` → salience,
|
||||
injects a `project:<name>` tag, writes a `Memory`/`Episodic` node, then
|
||||
**read-back-verifies** persistence (`api_persisted`). Deletes are **tombstone,
|
||||
never hard delete** — `node_delete` / `memory_delete` / `forget` all route
|
||||
through `tombstone_node` → `mem_tombstone`. Updates/evolves are **immutable
|
||||
supersede** — `node_update` (`:397-429`), `evolve_memory` (`:711-735`) create a
|
||||
new node and wire `engram_connect(new, old, "supersedes")`.
|
||||
|
||||
- **Knowledge** — `search_knowledge` (`:458-478`, falls back to
|
||||
`engram_activate_json(q,2)` when lexical search returns nothing),
|
||||
`browse_knowledge`, `capture_knowledge` (`:492-504`), `evolve_knowledge`,
|
||||
`promote_knowledge` (`:526-542`, writes a canonical-tier node + supersede
|
||||
edge). Evolve/promote respect `is_protected_node`.
|
||||
|
||||
- **Graph** — `handle_api_inspect_graph` (`:778-813`): resolves a named anchor
|
||||
(`self`/`neuron` → `kn-efeb4a5b…`, `values` → `kn-5b606390…`) or an explicit
|
||||
id, then `engram_neighbors_json(resolved, depth, "both")`. By default this is a
|
||||
plain neighbor traversal (byte-identical to the old behavior, so the studio app
|
||||
is unaffected). **When called with `compact=1` (or `true`) it returns a
|
||||
relevance-ranked projection** (`:804-810`): the neighborhood is ranked and the
|
||||
top **`k`** neighbors (default 12) keep a UTF-8-safe content snippet (default
|
||||
`snip=600`) via `api_neigh_full`, while the remainder collapse to lightweight
|
||||
`{id,label,node_type,tier,edge,pointer:true}` stubs via `api_neigh_pointer`.
|
||||
This bounds a high-fanout identity anchor (voice, writing-imprint, self-root)
|
||||
from ~670 KB to ~25 KB so the MCP transport no longer socket-closes on
|
||||
self-load. The MCP wrapper appends `&compact=1` on its inspectGraph/fetch-by-id
|
||||
path; the studio app omits the flag and is unchanged.
|
||||
`handle_api_link_entities` (`:818-…`) creates edges but blocks edges *into*
|
||||
protected nodes.
|
||||
|
||||
- **Cultivation** — `handle_api_cultivate` (`:781-839`): dispatches on
|
||||
`operation` (evolve_knowledge / evolve_memory / forget / link_entities) and
|
||||
performs the same engram ops **but skips `is_protected_node`** — the sanctioned
|
||||
identity-write path, gated by convention to Will's explicit cultivation
|
||||
sessions.
|
||||
|
||||
- **Config / processes / state-events / consolidate** — config anchors + a
|
||||
`ConfigEntry` node search (`:616-639`), `tune_config` (`:642-653`),
|
||||
`browse_processes` / `define_process` (`:547-568`), state-event log/list
|
||||
(`:575-610`), and `consolidate` (`:855-880`, an `engram_save` snapshot plus an
|
||||
optional `SessionSummary` node).
|
||||
|
||||
**The projection/compaction layer** (a real, recurring concern) lives in
|
||||
`api_compact_node` (`:132-148`), `api_compact_node_array` (`:152-165`),
|
||||
`api_compact_activated` (`:170-189`), and `api_utf8_trunc` (`:116-127`). These
|
||||
**cap array length and truncate each node to identity + a bounded UTF-8-safe
|
||||
content snippet.** Their consumers are `begin_session` and `compile_ctx`.
|
||||
The design principle is the important part: *the API returns a relevance-bounded
|
||||
projection of the graph, not the graph.* That bounding started as
|
||||
length-capping + activation-ordering; it now also includes a **relevance-ranked
|
||||
neighbor projection** — `api_compact_neighbors` (`:288-317`), backed by
|
||||
`api_neigh_better`/`api_neigh_rank` (relevance ordering), `api_neigh_full`
|
||||
(top-K, snippet), `api_neigh_pointer` (the rest, stub), and `api_float_or`. This
|
||||
is **committed fact, not an in-flight concern**: it is the `compact=1` path of
|
||||
`handle_api_inspect_graph` above, and it is what makes self-load survive the MCP
|
||||
transport. It is compiled into `dist/soul.c` (this PR regenerated the
|
||||
amalgamation so CI ships it — see doc 05).
|
||||
|
||||
---
|
||||
|
||||
## 3. Memory & activation engine
|
||||
|
||||
This subsystem spans three files in this repo (`memory.el`, `awareness.el`,
|
||||
`soul.el`) and one in `foundation` (`el_runtime.c`). The split matters: **the
|
||||
math is in C; the El files orchestrate, persist, and instrument it.**
|
||||
|
||||
### 3a. Memory access — `memory.el` (the Accessor)
|
||||
|
||||
The single isolation point over the engram FFI. Key functions:
|
||||
|
||||
| Fn | Lines | Backing call | Notes |
|
||||
|---|---|---|---|
|
||||
| `mem_store` | `5-28` | `engram_node_full` + read-back | verified write |
|
||||
| `mem_remember` | `30-32` | `mem_store` | label `soul-memory` |
|
||||
| `mem_recall` | `34-36` | `engram_activate_json(query, depth)` | **spreading-activation recall** (mutates WM) |
|
||||
| `mem_search` | `38-40` | `engram_search_json` | pure lexical scan (no WM side-effect) |
|
||||
| `mem_strengthen` | `42-44` | `engram_strengthen` | salience bump |
|
||||
| `mem_tombstone` | `52-62` | `engram_node_full` + `engram_connect` | the one canonical soft-delete |
|
||||
| `mem_forget` | `70-72` | `mem_tombstone` | soft delete (no longer hard) |
|
||||
| `mem_consolidate` | `92-133` | `engram_wm_top_json`, `engram_strengthen` | salience-evolution pass |
|
||||
| `mem_save` / `mem_load` | `135-148` | `engram_save/load` | snapshot I/O |
|
||||
|
||||
Note the distinction between **recall and search**: `mem_recall` fires spreading
|
||||
activation (and warms working memory as a side effect); `mem_search` is a passive
|
||||
lexical lookup. Tiers here are `tier_working` / `tier_episodic` / `tier_canonical`
|
||||
(`memory.el:1-3`) — see doc 03 for how these relate to the engine's tier field
|
||||
and to the MCP surface vocabulary.
|
||||
|
||||
### 3b. Autonomous cognition — `awareness.el` (the daemon)
|
||||
|
||||
`awareness.el` is the **idle-cognition daemon plus observability**, not
|
||||
emotional-state code. `awareness_run()` (`:1097-1284`) is the master loop,
|
||||
launched last from `soul.el:627`. Each tick (`SOUL_TICK_MS`, ~200ms):
|
||||
|
||||
1. **`one_cycle()`** (`:1041-1095`) — the cognitive step:
|
||||
`perceive()` (`:900-924`, gated on a `soul-inbox-pending` tag, then
|
||||
`engram_activate_json`) → `attend()` (`:926-973`, parse trigger content into
|
||||
an action verb: remember / search / activate / strengthen / forget /
|
||||
consolidate / respond) → `respond()` (`:975-1029`, dispatch to the `mem_*`
|
||||
fns) → `record()` (`:1031-1039`, emit an InternalStateEvent) → consume the
|
||||
trigger.
|
||||
2. **Heartbeat** (every 60s): `hebb_consolidate()` **then** `emit_heartbeat()`
|
||||
then `mem_save` snapshot (`:1189-1197`).
|
||||
3. **Curiosity scan** (every 30s when idle): `proactive_curiosity()`
|
||||
(`:701-876`) rotates 4 seed-domain sets, activates a seed, strengthens the
|
||||
top result **only if it changed** (novelty-gated), and derives an
|
||||
autobiographical seed from the top-10 working-memory nodes with
|
||||
stopword/IDF/tabu filtering.
|
||||
4. **Engram sync** (every 10 min): `GET /api/sync` → `engram_load_merge` →
|
||||
telemetry prune.
|
||||
|
||||
Two functions carry most of the file's weight and volatility:
|
||||
- **`hebb_consolidate()`** (`:64-99`) — the durable-learning write-back. It drains
|
||||
newly-formed co-activation edges (`engram_hebb_drain_json(64)`) and POSTs them
|
||||
as one batch to `/api/edges/batch` (`:94`). The comment block (`:33-63`)
|
||||
records that before this path existed the soul threw away ~1,198 learned
|
||||
edges per restart — the daemon is where **essentially all co-activation
|
||||
happens**, and this is how it survives.
|
||||
- **`emit_heartbeat()`** (`:201-549`, ~350 lines) — assembles ~50 gauges (WM
|
||||
saturation/churn, Hebbian candidate/edge counts, embedding coverage, corpus
|
||||
health) into one ISE. Pure observability; a fat, churny Accessor/Utility mix.
|
||||
|
||||
A **threat scorer** (`:1286-1419`) is grafted onto the end — command/path/history
|
||||
additive scoring, ≥70 blocks a tool call. Cross-cutting agentic-safety policy,
|
||||
unrelated to memory mechanism.
|
||||
|
||||
### 3c. Identity & the request pipeline — `soul.el`
|
||||
|
||||
`soul.el` is the top-level program (`cgi "neuron-soul"`, `:12-17`) and imports
|
||||
every other module (`:1-10`). It owns:
|
||||
|
||||
- **The identity graph.** `init_soul_edges()` (`:19-92`) hard-wires a `self_root`
|
||||
node linked by `identity` edges (weight 0.95) to family/origin/value nodes,
|
||||
plus a dense `co-value` mesh (weight 0.7) among 8 value nodes.
|
||||
`ensure_self_canonical_bridge()` (`:101-110`) links the public traversal-root
|
||||
anchor (`kn-efeb4a5b`) to the curated self node via `canonical-self` edges.
|
||||
`load_identity_context()` (`:153-240`) loads intellectual-DNA / values /
|
||||
memory-philosophy content into a state key for prompt injection.
|
||||
- **Boot orchestration** (`:508-627`): load snapshot → optional first-boot seed
|
||||
(guarded) → identity context → persona-from-env → boot-count increment →
|
||||
session-start event → genesis-only edge init → `http_serve_async(port,
|
||||
"handle_request")` → `awareness_run()`.
|
||||
- **The request pipeline.** `layered_cycle()` (`:382-506`) — a 4-layer stack for
|
||||
user input: **L1** safety screen (`safety_screen`) → **L2a** continuity/
|
||||
behavioral (`steward_session_check`) → **L2b** mission alignment
|
||||
(`steward_align`) → **L2c** affective-context injection → **L3**
|
||||
`imprint_respond` → **L1** output validation (`safety_validate`). Hard-bell
|
||||
inputs bypass the upper layers. The JSON contract between these layers is
|
||||
pinned by `tests/test_layer_contract.el`.
|
||||
|
||||
### 3d. Where the activation math actually is
|
||||
|
||||
`el_runtime.c` implements the two-layer activation model
|
||||
(`background_activation` via BFS fan-out, then `working_memory_weight` via an
|
||||
executive filter), ACT-R base-level learning (per-node access-timestamp ring
|
||||
buffer), 768-dim semantic embeddings, and Hebbian eligibility traces. Retrieval
|
||||
is **spreading activation, not query**:
|
||||
`strength = parent_strength × edge_weight × target_salience ×
|
||||
cosine(query, target)`. The El files never compute this — they seed it
|
||||
(`engram_activate_json`), harvest it (`engram_hebb_drain_json`), and persist it.
|
||||
See `03-data-and-memory.md`.
|
||||
|
||||
---
|
||||
|
||||
## 4. The MCP transport chain — `mcp-proxy`, `mcp-wrapper`
|
||||
|
||||
The chain exists because two boundaries vary independently: the *client
|
||||
transport* (stdio MCP JSON-RPC) and the *soul's protocol* (HTTP REST). Each hop
|
||||
absorbs one.
|
||||
|
||||
- **`mcp-proxy/src/main.el`** (listens `:7779`) — a **byte-forwarder**. It
|
||||
accepts the client connection, forwards to the wrapper, and adds resilience:
|
||||
retry, health-gating, and a well-formed error envelope so a downstream hiccup
|
||||
never surfaces to the client as a broken pipe. It holds no MCP semantics —
|
||||
pure transport orchestration.
|
||||
|
||||
- **`mcp-wrapper/src/main.el`** (listens `:17779`) — the **protocol translator**.
|
||||
It speaks MCP JSON-RPC to the client and REST to the soul (`:7770`), owns the
|
||||
MCP lifecycle (`initialize`, `tools/list`, `tools/call`), and carries the
|
||||
**tool catalog** (~90 tools) that clients enumerate. `dispatch_tool_call` maps
|
||||
each tool to a soul REST endpoint. It also fires a **spread-activation side
|
||||
effect** (`fire_activation`) — after relevant calls it issues a `/recall` to
|
||||
warm related nodes, so tool use itself nudges working memory. The tool schemas
|
||||
in the catalog are largely name-only stubs — flag as a place where richer
|
||||
schemas could live.
|
||||
|
||||
- **Manifests** (`mcp-proxy/manifest.el`, `mcp-wrapper/manifest.el`) declare the
|
||||
build entry and package metadata for each transport binary.
|
||||
|
||||
**End-to-end (one `tools/call`):** client → proxy (`:7779`, forward+retry) →
|
||||
wrapper (`:17779`, JSON-RPC→REST, catalog dispatch) → soul (`:7770`,
|
||||
`handle_request` → `handle_api_*`) → engram builtins → (HTTP `:8742` when in HTTP
|
||||
mode). The response walks back up, and the wrapper may fire a `/recall` warm-up
|
||||
on the way. The full sequence is drawn in `04-runtime-and-deployment.md`.
|
||||
|
||||
**VBD reading:** proxy and wrapper are Managers of transport; the wrapper is also
|
||||
the Accessor that isolates the *MCP protocol* boundary from the soul (the soul
|
||||
knows only HTTP). The multi-hop shape is justified: the client transport, the
|
||||
protocol translation, and the cognition each change for different reasons and are
|
||||
deployed/updated independently.
|
||||
@@ -0,0 +1,233 @@
|
||||
# Neuron — Data & Memory (the Engram Graph Model)
|
||||
|
||||
> The engram is neuron's durable substrate. This document describes the graph
|
||||
> model: node/edge structure, the consciousness layers, the two distinct tier
|
||||
> systems, write-protection, the tombstone/supersede immutability model, and
|
||||
> persistence. Sources: the runtime `el_runtime.c` (where the graph engine
|
||||
> physically lives — "the runtime IS the database",
|
||||
> `foundation/el/engram/src/server.el:1-6`), the engram HTTP face
|
||||
> `server.el`, and the neuron-layer semantics in `memory.el` / `neuron-api.el`.
|
||||
>
|
||||
> Runtime path analyzed:
|
||||
> `foundation/el/lang/releases/v1.0.0-20260501/el_runtime.c`.
|
||||
|
||||
## Where the model lives
|
||||
|
||||
The engram is **not** a database library. The graph, the activation math, and
|
||||
Hebbian learning are compiled C in `el_runtime.c`; `server.el` is a thin HTTP
|
||||
server that exposes them on `:8742`; the storage format is a single JSON
|
||||
snapshot. There is no SQL, no SQLite, no append log. Keep this in mind: the
|
||||
"schema" below is C structs, not tables.
|
||||
|
||||
> **Design-doc caveat.** `engram/README.md` describes a Rust/`sled`/`bincode`
|
||||
> `EngramDb` with a `NodeType::Concept` enum. That is **aspirational/legacy
|
||||
> narrative** — it does not match the shipped C engine. Treat the README as
|
||||
> design story, not as the implementation. *(unverified against runtime)*
|
||||
|
||||
## Nodes
|
||||
|
||||
`EngramNode` — `el_runtime.c:5958-6018+`. Every node carries:
|
||||
|
||||
| Field group | Fields | Notes |
|
||||
|---|---|---|
|
||||
| Identity/content | `id`, `content`, `node_type`, `label`, `tier`, `tags`, `metadata` | all `char*` (`:5959-5965`) |
|
||||
| Epistemic weights | `salience`, `importance`, `confidence` (double), `temporal_decay_rate` | per-node decay λ override; 0 = use global (`:5966-5969`) |
|
||||
| Access history | `activation_count`, `last_activated`, `created_at`, `updated_at` | `:5970-5973` |
|
||||
| Two-layer activation | `background_activation` (Layer 1, BFS fan-out), `working_memory_weight` (Layer 2, executive filter), `suppression_count` | context compilation uses **only** `working_memory_weight` (`:5974-5991`) |
|
||||
| Consciousness layer | `layer_id` | default 1 = CORE_IDENTITY (`:5996`) |
|
||||
| ACT-R learning | `access_ts[K]` ring buffer, `access_head`, `access_filled`, `wm_anchor` | base-level learning (`:5997-6008`) |
|
||||
| Semantics | `emb` (768-dim nomic-embed-text vector, lazily backfilled), `emb_dim` | `:6009-6016` |
|
||||
| Hebbian | eligibility trace | `:6017+` |
|
||||
|
||||
### Node types are strings, not an enum
|
||||
|
||||
`node_type` is a free `char*`, defaulting to `"Memory"` when unset
|
||||
(`el_runtime.c:7401`, `server.el:159`). There is **no closed node-type enum** in
|
||||
the shipped engine. Two consequences:
|
||||
|
||||
- The runtime *special-cases* a handful of type strings for activation
|
||||
thresholds (`engram_type_threshold`, `:5933-5955`): `DharmaSelf`/`Safety`
|
||||
(0.05, fire easily), `Belief`/`Entity` (0.30), `Knowledge` (0.20), everything
|
||||
else `Note`/`Memory`/`Working` (0.40). `InternalStateEvent` and `Tag` are
|
||||
**excluded from working-memory promotion** (`:6674-6676`, `:7368-7370`).
|
||||
- Type strings the neuron layer actually writes: `Memory` (default), `Knowledge`
|
||||
(`server.el:549`), `InternalStateEvent` (`server.el:493`), `Tombstone`
|
||||
(`memory.el:55`), `Conversation` (session nodes, `sessions.el`), `Persona`
|
||||
(`soul.el:250-292`), plus identity/value `Knowledge` nodes.
|
||||
|
||||
The types the MCP surface names — `Self`, `BacklogItem`, `SessionSummary`,
|
||||
`Artifact`, `Process`, `ConfigEntry` — are **`node_type` string conventions set
|
||||
by higher neuron/Axon layers**, not runtime-known types. Where `BacklogItem` /
|
||||
`Artifact` are set was not in the files read (they route to the Axon backend, doc
|
||||
02) — **flag as unverified/TODO** for a human pass.
|
||||
|
||||
## Edges
|
||||
|
||||
`EngramEdge` — `el_runtime.c:6701-6730+`. Directed, typed, weighted:
|
||||
|
||||
| Field | Meaning |
|
||||
|---|---|
|
||||
| `id`, `from_id`, `to_id`, `relation` | typed relation string |
|
||||
| `weight` (double) | **authored** strength — never mutated by activation |
|
||||
| `hebb` (double) | **learned** co-activation potentiation — the fraction of recent activations in which both endpoints were in working memory together; strictly separate from `weight` |
|
||||
| `inhibitory` (int flag) | if set, activating the source **suppresses** the target's WM weight instead of exciting it |
|
||||
| `confidence`, `created_at`, `updated_at`, `last_fired`, `layer` | — |
|
||||
|
||||
The **`hebb` field is the co-activation weight** — the Hebbian/LTP channel — kept
|
||||
deliberately separate from the static authored `weight`. Edges are created via
|
||||
`engram_connect(from, to, weight, relation)` (`server.el:253`).
|
||||
|
||||
**Relation strings observed:** `associates` (default, `server.el:248`),
|
||||
`identity`, `co-value`, `birthday-twin`, `canonical-self` (`soul.el:37-108`),
|
||||
`supersedes`, `tombstones`, `contains`, `tagged` (`neuron-api.el`,
|
||||
`el_runtime.c:6168`).
|
||||
|
||||
## Consciousness layers
|
||||
|
||||
Orthogonal to memory tiers, the engram has five canonical **layers**
|
||||
(`el_runtime.c:5919-5924`):
|
||||
|
||||
| id | Name | activation_priority | Role |
|
||||
|---|---|---|---|
|
||||
| 0 | SAFETY | 0 (fires earliest) | deepest / limbic |
|
||||
| 1 | CORE_IDENTITY | — | **default** for all nodes (`ENGRAM_LAYER_DEFAULT`, `:7423`) |
|
||||
| 2 | DOMAIN | — | domain knowledge |
|
||||
| 3 | IMPRINT | — | persona overlay |
|
||||
| 4 | SUIT | — | outermost |
|
||||
|
||||
`EngramLayer` (`:6731-6738`) carries `activation_priority` (lower fires first),
|
||||
`suppressible` (can higher layers suppress it?), `transparent` (invisible to
|
||||
introspection?), and `injectable` (add/remove at runtime?). Layers are managed
|
||||
via `engram_add_layer` / `engram_node_layered` / `engram_list_layers`. This is
|
||||
the identity-vs-domain-knowledge stratification, independent of the tier system
|
||||
below.
|
||||
|
||||
## Two tier systems — do not conflate them
|
||||
|
||||
This is the single most important clarification in the data model, and the source
|
||||
of the vocabulary mismatch flagged throughout this set.
|
||||
|
||||
### A. Cognitive memory tiers — the `tier` field
|
||||
`Working` / `Episodic` / `Semantic` / `Procedural` (and `Canonical` in use).
|
||||
Runtime default `"Working"` (`el_runtime.c:7408`; `README.md:41-49`). Nodes
|
||||
**migrate between these by salience decay/reinforcement**, driven by the runtime.
|
||||
Salience decays as `importance × 1/(1 + days_since) × ln(count + 1)`
|
||||
(`README.md:57-62`). `memory.el` exposes `tier_working`/`episodic`/`canonical`
|
||||
helpers (`memory.el:1-3`); `soul.el` writes `Semantic`-tier persona nodes
|
||||
(`:267`, `:282`). So the live tier set is **{Working, Episodic, Semantic,
|
||||
Procedural, Canonical}** with continuous salience/importance/confidence floats.
|
||||
|
||||
### B. Epistemic tiers & disposition — tags, not runtime concepts
|
||||
The MCP-facing vocabulary — tiers `note → lesson → canonical`, disposition
|
||||
`experimental → provisional → stable → deprecated` — is **not enforced anywhere
|
||||
in `el_runtime.c`.** It is stored as **tags**:
|
||||
|
||||
- Knowledge capture preserves the incoming epistemic tier as a `tier:<x>` tag
|
||||
rather than mapping onto a cognitive tier — deliberately, to avoid a lossy
|
||||
mapping (`server.el:519-522, 544`).
|
||||
- `promote_knowledge` writes a canonical node tagged
|
||||
`["Knowledge","tier:canonical","disposition:stable"]` (`neuron-api.el:533`).
|
||||
|
||||
There is **no state machine** validating `experimental → … → deprecated`.
|
||||
Disposition and epistemic tier are convention-by-tag. *(Flag: not structurally
|
||||
guarded. The exact MCP-enum → tag/float mapping is not fully traced in the files
|
||||
read — unverified/TODO.)*
|
||||
|
||||
## Write-protection
|
||||
|
||||
`is_protected_node(id)` (`neuron-api.el:20-37`) is a **hard-coded allowlist of 15
|
||||
identity/value node IDs** — the self root, the values hub, intellectual-dna,
|
||||
memory-philosophy, voice, and the 8 value nodes. Handlers that could mutate the
|
||||
graph (tombstone / supersede / evolve / connect) check it and return HTTP 403
|
||||
`api_err_protected` (`:39-41`) for a protected target (checked at `:384, 511,
|
||||
692, 705, 746, 768`). Edges *into* a protected node are also blocked
|
||||
(`handle_api_link_entities`).
|
||||
|
||||
**The one sanctioned override** is `POST /api/neuron/cultivate`
|
||||
(`neuron-api.el:781-816`) — it performs the same ops with the protection check
|
||||
skipped, gated by convention to Will's explicit cultivation sessions. The self
|
||||
layer is writable, but only through a deliberate door.
|
||||
|
||||
## Immutability — tombstone, never delete
|
||||
|
||||
Engram nodes are immutable (`memory.el:64-69`). The model is:
|
||||
|
||||
- **Tombstone** — `mem_tombstone(node_id)` (`memory.el:46-71`) **keeps the node
|
||||
and all its edges**, creates a `Tombstone` marker node
|
||||
(`content = target id`, `label = "tombstone:<id>"`) and wires a `tombstones`
|
||||
edge (weight 1.0). It never calls `engram_forget`. This is *the* one canonical
|
||||
delete — every user-facing forget path routes through it. Default bounded reads
|
||||
hide tombstoned nodes (`memory_hide_tombstoned`, `neuron-api.el:239-249`);
|
||||
`?include_deleted=1` recovers them.
|
||||
- **Supersede** — updates/evolves (`neuron-api.el:394-428, 506-541, 715-734`)
|
||||
create a **new** node with the new content, wire a `supersedes` edge new→old
|
||||
(weight 0.9, or 0.95 for promote), and **keep the original**. The response
|
||||
returns both ids so the caller re-points. This is the `supersedes_id`
|
||||
pattern: new node linked, old preserved, full audit trail.
|
||||
|
||||
> **The hole to know about.** The raw runtime `engram_forget` **does** hard-delete
|
||||
> (frees node + edges, `el_runtime.c:7647`), and the engram HTTP route
|
||||
> `DELETE /api/nodes/:id` calls it directly (`server.el:322-328`). Immutability
|
||||
> is therefore an invariant of the **neuron-api / MCP layer routing**, not of the
|
||||
> store. A client that hits engram HTTP directly can bypass it. *(flag)*
|
||||
|
||||
`engram_forget` is also used *internally* for genuine GC: boot-counter pruning
|
||||
(`memory.el:184`), session-summary/telemetry pruning (`soul.el:369`,
|
||||
`sessions.el`). Those are bounded housekeeping, not user deletes.
|
||||
|
||||
## Persistence, snapshots, backups
|
||||
|
||||
- **Storage:** a single JSON snapshot `snapshot.json` under `ENGRAM_DATA_DIR`,
|
||||
written by `engram_save` / read by `engram_load` (`el_runtime.c:9660+`; format
|
||||
`{"nodes":[...],"edges":[...]}`). In prod that dir is the RWO PVC mount `/data`
|
||||
(doc 04).
|
||||
- **Write policy:** `persist_canonical()` writes the **full** snapshot after every
|
||||
durable write (`server.el:133-141`). The batch-edge route snapshots **once per
|
||||
batch** to avoid ~150 GB/day of writes from Hebbian edge churn
|
||||
(`server.el:258-305`) — this is why `hebb_consolidate` batches (doc 02).
|
||||
- **Boot safety:** on load, engram writes `snapshot.boot-backup.json` (good load)
|
||||
or `snapshot.failed-load.json` (a non-empty file that parsed to 0 nodes)
|
||||
(`server.el:718-734`). Read routes export to scratch paths
|
||||
(`.scan-export.json`, `.sync-export.json`) and **never** touch the canonical
|
||||
(`server.el:207-223, 418-437`) — a guard added after a read-route corrupted the
|
||||
snapshot.
|
||||
- **Off-cluster backup:** a Kubernetes CronJob (`engram-backup`) tars `/data`
|
||||
every 15 minutes to `gs://neuron-db-backup/gke/neuron-prod/` and keeps the last
|
||||
96 (24h) (`infrastructure/platform/k8s/neuron-mcp/backup-cronjob.yaml`).
|
||||
- **Retention:** InternalStateEvent telemetry pruned at 48h
|
||||
(`ENGRAM_ISE_RETENTION_MS`, `server.el:485-499`).
|
||||
|
||||
> **Data-dir mismatch to flag:** the `server.el` header comment says the default
|
||||
> is `~/.neuron/engram` (`:16`) but the code defaults to `/tmp/engram`
|
||||
> (`:135, 717`). Prod overrides both via `ENGRAM_DATA_DIR=/data`. *(unverified —
|
||||
> which default is intended)*
|
||||
|
||||
## The engram HTTP surface (`:8742`)
|
||||
|
||||
Dispatcher `handle_request` (`server.el:592-707`). Auth: `ENGRAM_API_KEY`; GETs
|
||||
always allowed, mutations require `"_auth":"<key>"` in the JSON body
|
||||
(`server.el:578-588`).
|
||||
|
||||
| Endpoint | Purpose |
|
||||
|---|---|
|
||||
| `GET /health`, `GET /` | health + live node/edge counts |
|
||||
| `POST /api/nodes`, `GET /api/nodes`, `GET /api/nodes/:id`, `DELETE /api/nodes/:id` | node CRUD (DELETE = hard `engram_forget`) |
|
||||
| `GET /api/edges`, `POST /api/edges`, `POST /api/edges/batch`, `GET /api/neighbors/:id?depth` | edge ops + traversal |
|
||||
| `POST\|GET /api/activate?q&depth`, `POST\|GET /api/search` | spreading activation vs lexical search |
|
||||
| `POST /api/strengthen` | Hebbian potentiation |
|
||||
| `POST /api/save`, `/api/load`, `/api/load-merge` | snapshot control |
|
||||
| `GET /api/sync` | soul daemon periodic pull |
|
||||
| `GET /api/embed-backfill`, `GET /api/similarity?a&b` | embeddings + cosine |
|
||||
| `POST /api/neuron/state-events` (auth-exempt), `POST /api/neuron/knowledge/capture` | neuron-layer helpers |
|
||||
| `GET /api/stats`, `/api/act-stats`, `/api/text-health` | telemetry |
|
||||
|
||||
## Retrieval model (summary)
|
||||
|
||||
Retrieval is **spreading activation, not query matching**:
|
||||
`strength = parent_strength × edge_weight × target_salience ×
|
||||
cosine(query, target)` — multiplicative, top-N, with the two-layer
|
||||
background → working-memory promotion (`README.md:27-36`; `el_runtime.c:5892+,
|
||||
6094+`). `mem_recall` / `/api/activate` fire this and mutate WM; `mem_search` /
|
||||
`/api/search` are passive lexical scans. The cognitive API's `begin_session` and
|
||||
`compile_ctx` return a **bounded projection** of the activated set, never the raw
|
||||
graph (doc 02, §2).
|
||||
@@ -0,0 +1,178 @@
|
||||
# Neuron — Runtime & Deployment
|
||||
|
||||
> Process/port topology, the end-to-end MCP request path, local vs GKE
|
||||
> blue/green production, and a high-level view of secrets/config. Grounded in
|
||||
> `entrypoint.sh`, `scripts/blue-green-deploy.sh`, the k8s manifests under
|
||||
> `infrastructure/platform/k8s/neuron-mcp/`, and `.gitea/workflows/`.
|
||||
|
||||
## Process & port topology
|
||||
|
||||
A running neuron is **two processes in one container**: the soul and the engram,
|
||||
started by `entrypoint.sh`.
|
||||
|
||||
```
|
||||
container (one pod)
|
||||
┌──────────────────────────────────────────────────────────┐
|
||||
│ entrypoint.sh │
|
||||
│ 1. start engram (background) ── listens :8742 │
|
||||
│ 2. wait /health up to 60s │
|
||||
│ 3. exec soul (PID 1 foreground) ── listens :7770 │
|
||||
│ │
|
||||
│ soul :7770 ──HTTP──► engram :8742 │
|
||||
│ (ENGRAM_URL=http://localhost:8742, HTTP mode) │
|
||||
│ │
|
||||
│ /data (PVC mount) ◄── engram snapshot.json │
|
||||
└──────────────────────────────────────────────────────────┘
|
||||
```
|
||||
|
||||
- `entrypoint.sh` starts engram with `ENGRAM_BIND=:8742` and
|
||||
`ENGRAM_DATA_DIR=/data`, polls `http://localhost:8742/health` (up to 60s;
|
||||
Autopilot cold starts are slow), then `exec`s the soul. `SOUL_ENGRAM_PATH` is
|
||||
deliberately unset so `ENGRAM_URL` triggers **HTTP mode** (soul talks to engram
|
||||
over localhost HTTP, not an in-process embed).
|
||||
- EL HTTP runtime is tuned down for co-located calls: `EL_HTTP_TIMEOUT_MS=10000`,
|
||||
`EL_HTTP_CONNECT_TIMEOUT_MS=3000` (`entrypoint.sh`).
|
||||
|
||||
### Full port map
|
||||
|
||||
| Port | Process | Role | Source |
|
||||
|---|---|---|---|
|
||||
| 7779 | mcp-proxy | MCP client entry; byte-forward + retry | `mcp-proxy/src/main.el` |
|
||||
| 17779 | mcp-wrapper | MCP JSON-RPC ⇄ soul REST; tool catalog | `mcp-wrapper/src/main.el` |
|
||||
| 7770 | soul | HTTP cognitive API + `handle_request` | `NEURON_PORT`, `deployment-blue.yaml` |
|
||||
| 8742 | engram | graph store HTTP | `entrypoint.sh`, `server.el:711` |
|
||||
| 7771 | neuron-connectd | MCP connector bridges | `routes.el` `connectd_*` |
|
||||
|
||||
**Local vs prod, an important distinction.** The proxy → wrapper chain is the
|
||||
**local developer adapter**: a stdio MCP client (Claude Code) needs to reach an
|
||||
HTTP soul, so the proxy/wrapper translate and add resilience. In **production**,
|
||||
the `neuron-mcp` Kubernetes Service is a ClusterIP that targets the soul's
|
||||
`:7770` directly (`service.yaml`) — external access is "to be wired via
|
||||
Cloudflare Tunnel later" (annotation, same file). So in prod the MCP/HTTP
|
||||
boundary is the soul's own HTTP surface; the proxy/wrapper are not (yet) in the
|
||||
cluster path. *(inference from the ClusterIP-only Service + the local-only
|
||||
proxy/wrapper binaries.)*
|
||||
|
||||
## The MCP request path (end to end)
|
||||
|
||||
A single `tools/call` from an MCP client, local topology:
|
||||
|
||||
```
|
||||
client proxy :7779 wrapper :17779 soul :7770 engram :8742
|
||||
│ JSON-RPC │ │ │ │
|
||||
│ tools/call ─────────► │ forward+retry │ │ │
|
||||
│ │ ─────────────────► │ map tool→REST │ │
|
||||
│ │ │ ─── HTTP POST ────► │ handle_request │
|
||||
│ │ │ /api/neuron/... │ → handle_api_* │
|
||||
│ │ │ │ engram_* builtin │
|
||||
│ │ │ │ ── (HTTP mode) ───► │ activate/search/
|
||||
│ │ │ │ │ save
|
||||
│ │ │ │ ◄─── nodes/edges ── │
|
||||
│ │ │ ◄── JSON result ── │ │
|
||||
│ │ │ fire_activation │ │
|
||||
│ │ │ /recall warm-up ─► soul (side effect) │
|
||||
│ ◄──── result ──────── │ ◄───────────────── │ │ │
|
||||
```
|
||||
|
||||
Responsibilities per hop, and the volatility each isolates (VBD reading):
|
||||
|
||||
1. **proxy** — transport resilience. Isolates *client connection volatility*
|
||||
(drops, retries, health) from everything above. No MCP semantics.
|
||||
2. **wrapper** — protocol translation. Isolates the *MCP protocol* from the soul:
|
||||
owns `initialize`/`tools/list`/`tools/call`, the ~90-tool catalog, and
|
||||
`dispatch_tool_call`. Also fires the `fire_activation` `/recall` side effect so
|
||||
tool use warms working memory.
|
||||
3. **soul** — cognition. `handle_request` dispatch → `handle_api_*` → engram
|
||||
builtins. In HTTP mode it reaches engram over localhost; otherwise embedded.
|
||||
4. **engram** — the graph. Spreading activation, Hebbian edges, snapshot
|
||||
persistence.
|
||||
|
||||
For the user-facing chat pipeline (not tool calls), `/api/chat` enters
|
||||
`layered_cycle` (soul.el) — L1 safety → L2 stewardship → L3 imprint — described
|
||||
in `02-components.md §3c`.
|
||||
|
||||
## Production: GKE blue/green
|
||||
|
||||
Neuron prod runs on GKE cluster **`neuron-platform`** (Autopilot, us-central1),
|
||||
namespace **`neuron-prod`**. Two Deployments, `neuron-mcp-blue` and
|
||||
`neuron-mcp-green`, share one Service selector that names the *active slot*.
|
||||
|
||||
- **Deployments** (`deployment-blue.yaml` / `deployment-green.yaml`): one
|
||||
container `soul`, image pinned by **digest** (not `:latest`) so Argo CD can't
|
||||
drift the active slot to an untested build (see the pin comment in
|
||||
`deployment-blue.yaml`). `strategy: Recreate` — the PVC is RWO so only one pod
|
||||
can hold it at a time. Probes hit `/health` on `:7770`.
|
||||
- **Service** (`service.yaml`): ClusterIP `neuron-mcp`, port 7770 → 7770,
|
||||
`selector: {app: neuron-mcp, slot: blue}`. The blue/green script patches
|
||||
`slot`.
|
||||
- **Storage** (`pvc.yaml`): `neuron-engram-data`, `standard-rwo` (pd-balanced),
|
||||
10Gi, RWO. Engram data is the single `snapshot.json` (~8MB active).
|
||||
- **The swap** (`scripts/blue-green-deploy.sh`): (1) set image on the target
|
||||
slot; (2) scale target to 1, wait for rollout; (3) **patch the Service selector
|
||||
to the new slot** (traffic flip); (4) scale the old slot to 0. Imperative
|
||||
`kubectl` for the live swap, then git-update the Argo manifests so a sync
|
||||
doesn't revert replica counts.
|
||||
- **Backup** (`backup-cronjob.yaml`): every 15 min, tar `/data` → GCS, keep 96.
|
||||
|
||||
### Resource sizing (learned the hard way)
|
||||
|
||||
`deployment-blue.yaml` documents the memory history in comments: idle soul RSS
|
||||
~860Mi; the `beginSession` call (loads memories + backlog + preferences) spikes
|
||||
past 1Gi and OOM-killed the pod mid-request (client socket closed). Current
|
||||
setting: `requests = limits = 2Gi`, cpu 250m/1000m. This is *why* the cognitive
|
||||
API projects/compacts payloads so aggressively (doc 02 §2, doc 01 axis 1) — the
|
||||
memory ceiling is real and close.
|
||||
|
||||
## CI/CD
|
||||
|
||||
Two Gitea Actions workflows (`.gitea/workflows/`), serialized on a single GCE
|
||||
runner (`concurrency: neuron-runner`).
|
||||
|
||||
- **`ci.yaml`** (push/PR to `main`):
|
||||
- **build:** free disk → checkout → install gcc/libcurl/gcloud → download
|
||||
`el-runtime-c`/`el-runtime-h` from Artifact Registry `foundation-prod`
|
||||
(`elc`/`elb` intentionally **not** downloaded) → compile the committed
|
||||
`dist/soul.c` directly: `cc -O2 -DHAVE_CURL dist/soul.c el_runtime.c -lssl
|
||||
-lcrypto -lcurl -lpthread -lm -o dist/neuron` → `strip -s` → smoke test
|
||||
`dist/neuron --help` → publish `neuron-soul@<sha8>` to AR (push only).
|
||||
- **deploy** (push-to-main only): auth GCP → `get-credentials neuron-platform`
|
||||
→ **determine idle slot** (the deployment at 0 replicas) → prepare artifacts
|
||||
(soul binary + `elc` + runtime for the Docker build) → **clone the engram
|
||||
repo** into `./engram/` (Dockerfile builds engram from source) → `docker
|
||||
build`+push `neuron-soul:<sha>` → `scripts/blue-green-deploy.sh --image
|
||||
--slot` → git-push updated infra manifests → `kubectl rollout status` →
|
||||
verify `neuron-mcp` endpoints.
|
||||
- **`deploy-gke.yaml`** (`workflow_dispatch` only, slot default `green`) — manual
|
||||
rollback / forced-slot deploy without a rebuild; same auth → slot → docker →
|
||||
blue-green → manifest-sync → verify steps.
|
||||
|
||||
The Docker image (`Dockerfile`) is a two-stage build: stage 1 compiles
|
||||
`engram/src/server.el` → `engram.c` → `engram` binary via `elc` + `cc`; stage 2
|
||||
is an Ubuntu 24.04 runtime (GLIBC 2.39 satisfies both binaries) with `soul` +
|
||||
`engram` + `entrypoint.sh`.
|
||||
|
||||
## Config & secrets (high level)
|
||||
|
||||
Runtime configuration is injected as environment, sourced from a Kubernetes
|
||||
Secret `neuron-soul-secrets` via ExternalSecret (ESO → GCP Secret Manager,
|
||||
Workload Identity — no key files). From `deployment-blue.yaml`:
|
||||
|
||||
| Env | Meaning |
|
||||
|---|---|
|
||||
| `NEURON_PORT` | soul HTTP port (7770) |
|
||||
| `NEURON_LLM_0_URL` / `_KEY` / `_FORMAT` | primary LLM endpoint (Anthropic format) |
|
||||
| `SOUL_CGI_ID` / `SOUL_IDENTITY` | CGI id + identity seed (→ `seed_persona_from_env`, `soul.el:250`) |
|
||||
| `NEURON_TOKEN` | auth token *(present in env; note the HTTP dispatch does not currently check it — doc 01 Divergence 3)* |
|
||||
| `NEURON_API_URL` | self-callback URL (`http://neuron-mcp.neuron-prod.svc.cluster.local:7770`) |
|
||||
| `ENGRAM_URL` / `ENGRAM_DATA_DIR` | `http://localhost:8742` / `/data` |
|
||||
|
||||
There is also an in-graph config surface: `ConfigEntry` nodes read/written by
|
||||
`inspect_config` / `tune_config` (`neuron-api.el:616-653`) — runtime-tunable
|
||||
persona/behavior keys stored *in* the engram rather than the environment.
|
||||
|
||||
> **Operational note to flag.** The `deployment-blue.yaml` image pin comment
|
||||
> (dated Jul 2026) records that `:latest` resolved to an untested build lacking a
|
||||
> `mem_save`/genesis-SIGSEGV fix, which is why the active slot is pinned to a
|
||||
> digest. Any promotion must (a) rebuild a good soul and (b) update the digest in
|
||||
> git so Argo CD and `blue-green-deploy.sh` agree. *(state as-of the manifests
|
||||
> read; verify current slot before deploying.)*
|
||||
@@ -0,0 +1,165 @@
|
||||
# Neuron — El & the Build Pipeline
|
||||
|
||||
> The soul and the engram are written in **El**, a self-hosted language that
|
||||
> compiles to C11. This document covers the language layer, the
|
||||
> amalgamation → `soul.c` → binary pipeline, how the soul is composed from its
|
||||
> layers, and the compile-time capability gates. Sources: `manifest.el`,
|
||||
> `soul.el`, `dist/soul.c`, the El toolchain under `foundation/el/`
|
||||
> (`elc.c`, `elb.el`, `BOOTSTRAP.md`), and `.gitea/workflows/`.
|
||||
|
||||
## The El language layer
|
||||
|
||||
El is a compiled, Lisp-family language transpiled to C11. Every El program links
|
||||
a shared runtime, `el_runtime.c` / `el_runtime.h`, which implements **all
|
||||
builtins**: the engram graph engine (`engram_*`), HTTP (`http_*`), JSON
|
||||
(`json_*`), crypto, time, LLM calls, and DHARMA primitives (`el_runtime.h`,
|
||||
`BOOTSTRAP.md:599-644`). The runtime also provides an arena allocator (server
|
||||
mode) and ARC refcounting. Practically: **the runtime is both the standard
|
||||
library and the database** — the graph physically lives in `el_runtime.c`, and El
|
||||
source files are the orchestration/logic on top.
|
||||
|
||||
A recurring texture in the source is workaround comments for codegen quirks
|
||||
(e.g. broken `%`/`*` operators). These are El-compiler maturity issues, not
|
||||
architecture — but they explain some of the hand-rolled arithmetic in
|
||||
`awareness.el`/`memory.el`.
|
||||
|
||||
## The toolchain: `elc`, `elb`, `el_runtime`
|
||||
|
||||
| Tool | What it is | Role |
|
||||
|---|---|---|
|
||||
| `elc` | the El compiler, **self-hosted** (written in El) | compiles one El translation unit → C11. Import resolution is textual, depth-first, dedup'd — it inlines all imports into one string and emits forward decls for every fn (`BOOTSTRAP.md:927-936`). |
|
||||
| `elb` | the build coordinator (`elb.el`, ~367 lines) | reads `manifest.el`, walks the import graph, does **incremental** separate compilation using `.elh` header files (`extern fn` decls), links the final binary (".NET-style incremental build", `BOOTSTRAP.md:886, 916-925`). |
|
||||
| `el_runtime.c/.h` | the C runtime | linked by every compiled El binary; implements all builtins and the graph engine. |
|
||||
|
||||
The `.elh` files present in this repo (`soul.elh`, `memory.elh`,
|
||||
`neuron-api.elh`, `routes.elh`, …) are **auto-generated headers** (`elc
|
||||
--emit-header`) — the `extern fn` interface each module exports. They are the
|
||||
contract surface `elb` uses for incremental builds, and they double as a concise
|
||||
map of each module's public functions.
|
||||
|
||||
### Self-hosting fixed point
|
||||
|
||||
`elc` is bootstrapped from a seed binary (`dist/platform/elc`, Mach-O arm64) and
|
||||
verified by a **fixed-point self-recompile**: the compiler must compile its own
|
||||
source to a byte-identical binary (`BOOTSTRAP.md:7-58, 801-816`). Pipeline:
|
||||
`elc-cli.el → compiler.el → lexer/parser/codegen.el`.
|
||||
|
||||
## Building the soul: `.el → elc → .c → cc → binary`
|
||||
|
||||
The concrete pipeline (mirrored in the engram build, `engram/src/server.el:8-11`):
|
||||
|
||||
```
|
||||
soul.el (+ imports)
|
||||
│ elc (self-hosted El→C11, inlines imports)
|
||||
▼
|
||||
dist/soul.c (~31,300 lines — single amalgamated translation unit)
|
||||
│ cc -std=c11 -O2 soul.c el_runtime.c
|
||||
▼
|
||||
dist/neuron (native binary)
|
||||
```
|
||||
|
||||
### Why `dist/soul.c` is committed
|
||||
|
||||
`dist/soul.c` is the authoritative combined translation unit, **regenerated on
|
||||
macOS by running `elb`**. It is checked into the repo on purpose: CI compiles it
|
||||
**directly** and skips `elb` entirely (`ci.yaml`). The reason is operational, not
|
||||
aesthetic —
|
||||
|
||||
- `elb` succeeds on arm64/macOS `ld`, but **fails on Linux** (duplicate strong
|
||||
symbols), and
|
||||
- `elc` uses 24GB+ virtual memory, which **OOM-kills the 16GB CI runner**.
|
||||
|
||||
So the pattern is: **compile on the Mac, commit the amalgamation, and let Linux
|
||||
CI do only the cheap `cc` step.** `dist/` also holds the per-module `.c` outputs
|
||||
(`memory.c`, `awareness.c`, `chat.c`, the NLG morphology tables, …) —
|
||||
intermediate artifacts of the same process.
|
||||
|
||||
> **Mechanism note (observed during the self-load regen).** The single-TU
|
||||
> `dist/soul.c` is produced by running `elc` over the **flattened import set** —
|
||||
> every module source in `soul.el`'s transitive import graph, concatenated with
|
||||
> `import` lines stripped, compiled in one pass (`elc` hoists forward decls for
|
||||
> all functions, so concat order doesn't affect correctness). `elb` on its own
|
||||
> emits **per-module `.c` + a linked binary**, not the combined `soul.c`; it is
|
||||
> the separate-compilation coordinator, and `elc soul.el` alone yields only the
|
||||
> soul module. Because the amalgamation is regenerated only on demand, it can lag
|
||||
> the `.el` sources: this PR regenerated it after it had fallen behind several
|
||||
> source commits, and folded in the `inspect_graph` relevance-ranked projection
|
||||
> (the `compact=1` self-load fix, doc 02) so CI ships it.
|
||||
|
||||
## How the soul is composed (layer stack)
|
||||
|
||||
`manifest.el` declares the build:
|
||||
|
||||
```
|
||||
package "neuron" { version "0.1.0" edition "2026" }
|
||||
build { entry "soul.el" }
|
||||
```
|
||||
|
||||
The comment in `manifest.el:8-16` documents the intended **layer composition
|
||||
order**: a base layer `../foundation/nlg` (the NLG engine — 31-language
|
||||
morphology, grammar, realizer, semantics) with the **soul layer** (`soul.el`)
|
||||
injected on top. New layers are added by importing them in `soul.el` before the
|
||||
soul's own code. *(The `../foundation/nlg` path is the manifest's stated NLG base;
|
||||
the NLG sources compile into the `dist/*.c` morphology/grammar tables seen in the
|
||||
tree.)*
|
||||
|
||||
`soul.el` itself imports, in order (`soul.el:1-10`): `elp.el`, `memory.el`,
|
||||
`safety.el`, `stewardship.el`, `imprint.el`, `awareness.el`, `chat.el`,
|
||||
`studio.el`, `elp-input.el`, `routes.el` — then declares the `cgi "neuron-soul"`
|
||||
identity block (`:12-17`): `dharma_id`, `principal`, `network`, and
|
||||
`engram: http://localhost:8742`. Because `elc` inlines imports depth-first, this
|
||||
import list *is* the amalgamation order that produces `dist/soul.c`.
|
||||
|
||||
The `cgi` block is not just metadata — it sets the program's **capability tier**
|
||||
(next section).
|
||||
|
||||
## Compile-time capability gates
|
||||
|
||||
El's codegen classifies each program by its top-level declaration and **enforces
|
||||
capabilities at compile time** (`BOOTSTRAP.md:958-965`):
|
||||
|
||||
| Declaration | Tier | Allowed |
|
||||
|---|---|---|
|
||||
| `cgi { … }` | full | everything — `llm_call_agentic`, `llm_register_tool`, `dharma_emit`, `dharma_field`, LLM, DHARMA |
|
||||
| `service { … }` | restricted | no `llm_call_agentic` / `llm_register_tool` / `dharma_emit` / `dharma_field` |
|
||||
| neither | utility | no DHARMA, no LLM |
|
||||
|
||||
A program that calls a capability its tier forbids **fails to compile**: codegen
|
||||
emits a C `#error` naming the forbidding call, so the downstream `cc` aborts.
|
||||
This is the **primary hard gate** in the build — capability escalation is caught
|
||||
by the compiler, not at runtime. The soul is a `cgi`, so it gets the full tier;
|
||||
`engram` is declared without `cgi`/`service` semantics that would grant LLM
|
||||
access (it is a store).
|
||||
|
||||
## Verification gates
|
||||
|
||||
| Gate | Where | What it checks |
|
||||
|---|---|---|
|
||||
| Capability tier | El codegen (`BOOTSTRAP.md:958`) | no capability escalation; hard `#error` at compile |
|
||||
| Self-hosting fixed point | `elc` bootstrap (`BOOTSTRAP.md:801`) | compiler reproduces itself byte-identically |
|
||||
| `test_soul_guard.el` | `tests/` | the genesis `safe_to_seed` boot guard — a sparse/oversized snapshot must not clobber the graph |
|
||||
| `test_layer_contract.el` | `tests/` | JSON interface shapes between composition-stack layers that `layered_cycle` depends on (e.g. `safety_screen` always returns an `action` field) |
|
||||
| other `tests/*.el` | `tests/` | `test_sessions.el`, `test_safety.el`, `test_bell_safety.el`, `test_layered_cycle.el`, `test_imprint.el`, `test_stewardship.el`, `test_api_define_process.el`, … |
|
||||
| CI smoke test | `ci.yaml` | `dist/neuron --help` runs |
|
||||
|
||||
> **Flag (unverified/TODO).** CI (`ci.yaml`) runs only the `cc` compile + the
|
||||
> `dist/neuron --help` smoke test — it does **not** invoke the `tests/*.el`
|
||||
> soul-guard / layer-contract suites, and `.githooks/` is empty. Whether these
|
||||
> tests are gated anywhere (a pre-merge hook, a separate workflow, or manual
|
||||
> discipline on the Mac before regenerating `soul.c`) is **not evident in the
|
||||
> files read**. This is the most important build-integrity gap to confirm with a
|
||||
> human: the contract tests exist but their enforcement point is unproven.
|
||||
|
||||
## Practical consequences for a contributor
|
||||
|
||||
- **You cannot rebuild the whole soul on Linux/CI.** Regenerate `dist/soul.c` on
|
||||
a Mac (`elb`), commit it, then CI compiles it. Changing an `.el` file without
|
||||
regenerating `soul.c` ships nothing.
|
||||
- **The `.elh` files are your API map.** To see what a module exposes, read its
|
||||
`.elh` — it's the generated `extern fn` list.
|
||||
- **Memory/activation behavior often can't be changed from this repo.** The
|
||||
volatile numeric core is in `foundation/el` `el_runtime.c`. Doc 01, Divergence
|
||||
6 explains why this is the sharpest edge in the architecture.
|
||||
- **The engram is a separate repo.** It is cloned and compiled by CI
|
||||
(`Dockerfile`, `.gitea/workflows/`), not vendored here. Its source of truth is
|
||||
`foundation/el/engram`.
|
||||
@@ -0,0 +1,110 @@
|
||||
# GLM-OCR Spike — 2026-06-27
|
||||
|
||||
## Verdict: SHIP IT
|
||||
|
||||
MLX-native path confirmed. Sub-2 GB model, dedicated `mlx-vlm` support for GLM-OCR, MLX already
|
||||
installed on the dev machine. No blockers.
|
||||
|
||||
---
|
||||
|
||||
## Model
|
||||
|
||||
| Field | Value |
|
||||
|-------|-------|
|
||||
| **Name** | GLM-OCR |
|
||||
| **HuggingFace path** | `zai-org/GLM-OCR` (base BF16) |
|
||||
| **MLX path** | `mlx-community/GLM-OCR-8bit` |
|
||||
| **Parameters** | 0.9B |
|
||||
| **Disk (MLX 8-bit)** | 1.59 GB (`model.safetensors` 1.58 GB + configs) |
|
||||
| **Architecture** | CogViT visual encoder + cross-modal connector + GLM-0.5B decoder |
|
||||
| **License** | MIT (model); Apache 2.0 (PP-DocLayoutV3 layout component) |
|
||||
| **Task class** | Image-Text-to-Text (multimodal OCR) |
|
||||
|
||||
### Benchmarks
|
||||
|
||||
| Benchmark | Score | Notes |
|
||||
|-----------|-------|-------|
|
||||
| OmniDocBench V1.5 | **94.62** | Ranked #1 at evaluation date |
|
||||
| olmOCR-bench (overall) | 75.2 | — |
|
||||
| Throughput (base, GPU) | 0.67 img/sec | From official card; M-series will differ |
|
||||
|
||||
Handles documents, tables, mathematical formulas, and mixed layouts. Not just raw text extraction —
|
||||
returns structured markdown output.
|
||||
|
||||
---
|
||||
|
||||
## Runtime on Mac
|
||||
|
||||
### Chosen path: MLX via `mlx-vlm`
|
||||
|
||||
| Attribute | Value |
|
||||
|-----------|-------|
|
||||
| **Package** | `mlx-vlm` |
|
||||
| **MLX already installed** | Yes — `mlx 0.31.2`, `mlx-lm 0.31.3`, `mlx-metal 0.31.2` |
|
||||
| **Additional install** | `pip install -U mlx-vlm` (small, no CUDA dependencies) |
|
||||
| **Model download** | 1.59 GB on first run (auto-cached in `~/.cache/huggingface/`) |
|
||||
| **Memory requirement** | ~2–3 GB unified memory (1.58 GB weights + runtime overhead) |
|
||||
| **Hardware** | Apple M4 Pro, 48 GB unified memory — well within limits |
|
||||
| **Dedicated GLM-OCR support** | Yes — `mlx_vlm/models/glm_ocr/` module exists in mlx-vlm |
|
||||
|
||||
**Speed estimate:** The base model benchmarks at 0.67 img/sec on GPU. On M4 Pro via MPS/MLX,
|
||||
expect 0.3–0.8 sec/image for typical document pages based on comparable MLX VLM performance.
|
||||
Exact figures require a timed run with the prototype.
|
||||
|
||||
### Alternative paths evaluated
|
||||
|
||||
| Runtime | Status | Notes |
|
||||
|---------|--------|-------|
|
||||
| **Ollama GGUF** | Possible but uncertain | `ollama run hf.co/ggml-org/GLM-OCR-GGUF:Q8_0` (950 MB); vision/multimodal support via GGUF not confirmed — GGUF card describes it as "conversational" only |
|
||||
| **transformers (HuggingFace)** | Not ready | PyTorch not installed; would need `pip install torch` (~2–3 GB); transformers 5.6.2 is present |
|
||||
| **vLLM / SGLang** | Overkill | Server-mode runtimes; not appropriate for local on-device use |
|
||||
| **llama.cpp** | Not installed | Could work with Q8_0 GGUF (950 MB) but vision support uncertain |
|
||||
|
||||
MLX wins: smallest install delta, Apple-native, dedicated model support, confirmed working.
|
||||
|
||||
---
|
||||
|
||||
## Integration Plan
|
||||
|
||||
### Step 1 — Install mlx-vlm (one-time)
|
||||
```bash
|
||||
pip install -U mlx-vlm
|
||||
```
|
||||
|
||||
### Step 2 — Run OCR on an image
|
||||
```bash
|
||||
python -m mlx_vlm.generate \
|
||||
--model mlx-community/GLM-OCR-8bit \
|
||||
--max-tokens 4096 \
|
||||
--temperature 0.0 \
|
||||
--prompt "Extract all text from this document. Preserve structure including tables and headers." \
|
||||
--image /path/to/document.jpg
|
||||
```
|
||||
|
||||
Model auto-downloads (~1.59 GB) on first run and caches in `~/.cache/huggingface/`.
|
||||
|
||||
### Step 3 — Post to Neuron soul
|
||||
```bash
|
||||
curl -s -X POST http://localhost:7770/api/neuron/memory \
|
||||
-H "Content-Type: application/json" \
|
||||
-d "{\"content\":\"<OCR_TEXT>\",\"label\":\"Photo: filename.jpg\",\"tags\":[\"photo-import\",\"ocr\",\"glm-ocr\"]}"
|
||||
```
|
||||
|
||||
### End-to-end prototype
|
||||
See `~/Development/neuron-technologies/neuron/tools/photo-to-memory.sh` — working stub.
|
||||
|
||||
### Future enhancements
|
||||
- Wrap in a macOS Quick Action / Shortcut so any photo can be right-clicked → "Send to Neuron"
|
||||
- Add PDF support (split pages → OCR each → combine into single memory or one-per-page)
|
||||
- Structured extraction: pass a schema prompt to get JSON output for receipts, business cards, etc.
|
||||
- Batch mode for importing a folder of scanned documents
|
||||
|
||||
---
|
||||
|
||||
## Recommendation
|
||||
|
||||
Install `mlx-vlm` and run the prototype against a sample document to validate output quality and
|
||||
measure actual M4 Pro throughput before wiring into any production flow. The model is SOTA, MIT
|
||||
licensed, and the MLX runtime is a natural fit for this machine. There is no reason not to proceed.
|
||||
|
||||
The photo-to-memory.sh prototype is ready to test immediately after `pip install -U mlx-vlm`.
|
||||
@@ -0,0 +1,77 @@
|
||||
# Neuron Telegram Gateway — Setup
|
||||
|
||||
The Telegram gateway lets you chat with your Neuron soul via Telegram. Plain messages go to the soul; commands give access to memory and status.
|
||||
|
||||
## 1. Create a bot via @BotFather
|
||||
|
||||
1. Open Telegram and search for **@BotFather**
|
||||
2. Send `/newbot`
|
||||
3. Pick a name (e.g. "Neuron")
|
||||
4. Pick a username (must end in `bot`, e.g. `myneuron_bot`)
|
||||
5. BotFather replies with your **HTTP API token** — looks like `7123456789:ABCdef...`
|
||||
6. Optionally set a description: `/setdescription` → select your bot → type a description
|
||||
|
||||
## 2. Store the token in the macOS Keychain
|
||||
|
||||
Never put the token in a plist, `.env`, or any file that might be committed.
|
||||
|
||||
```bash
|
||||
security add-generic-password \
|
||||
-s neuron-telegram-bot \
|
||||
-a neuron \
|
||||
-w '<paste token here>'
|
||||
```
|
||||
|
||||
Verify:
|
||||
```bash
|
||||
security find-generic-password -s neuron-telegram-bot -a neuron -w
|
||||
```
|
||||
|
||||
## 3. Load the LaunchAgent
|
||||
|
||||
```bash
|
||||
launchctl load ~/Library/LaunchAgents/ai.neuron.telegram-gateway.plist
|
||||
```
|
||||
|
||||
Check it started:
|
||||
```bash
|
||||
launchctl list | grep telegram
|
||||
tail -f ~/.neuron/logs/telegram-gateway.out.log
|
||||
```
|
||||
|
||||
## 4. Test
|
||||
|
||||
Send your bot a message in Telegram. It should reply using your soul's voice.
|
||||
|
||||
## Commands
|
||||
|
||||
| Command | What it does |
|
||||
|---------|-------------|
|
||||
| `<any text>` | Forwarded to the soul → responds in its voice |
|
||||
| `/memory <query>` | Searches soul memories, returns top 3 |
|
||||
| `/remember <text>` | Stores text as a memory node |
|
||||
| `/status` | Reports whether the soul is reachable |
|
||||
|
||||
## Unload / stop
|
||||
|
||||
```bash
|
||||
launchctl unload ~/Library/LaunchAgents/ai.neuron.telegram-gateway.plist
|
||||
```
|
||||
|
||||
## Troubleshoot
|
||||
|
||||
- **"token not found"** — re-run step 2 above
|
||||
- **"Soul is resting"** — the soul daemon at `http://localhost:7770` is not running; start it with `launchctl load ~/Library/LaunchAgents/ai.neuron.engram.plist` (or whichever plist runs the soul)
|
||||
- **Logs**: `~/.neuron/logs/telegram-gateway.out.log` and `telegram-gateway.err.log`
|
||||
- **Test gateway script directly**:
|
||||
```bash
|
||||
TELEGRAM_BOT_TOKEN=<token> ~/Development/neuron-technologies/neuron/tools/telegram-gateway.sh
|
||||
```
|
||||
|
||||
## Soul API endpoints used
|
||||
|
||||
| Endpoint | Purpose |
|
||||
|----------|---------|
|
||||
| `POST /api/chat` | Forward messages to the soul |
|
||||
| `POST /api/neuron/recall` | Search memories |
|
||||
| `POST /api/neuron/memory` | Store conversation as a memory node |
|
||||
+8
-4
@@ -24,19 +24,23 @@ ENGRAM_DATA_DIR="$ENGRAM_DATA_DIR" \
|
||||
|
||||
ENGRAM_PID=$!
|
||||
|
||||
# Wait for engram to become healthy (up to 30s)
|
||||
# Wait for engram to become healthy (up to 60s; GKE Autopilot cold starts can be slow)
|
||||
echo "[entrypoint] waiting for engram..."
|
||||
TRIES=0
|
||||
until curl -sf "$ENGRAM_HEALTH_URL" > /dev/null 2>&1; do
|
||||
TRIES=$((TRIES + 1))
|
||||
if [ "$TRIES" -ge 30 ]; then
|
||||
echo "[entrypoint] ERROR: engram did not become healthy after 30s" >&2
|
||||
if [ "$TRIES" -ge 60 ]; then
|
||||
echo "[entrypoint] ERROR: engram did not become healthy after 60s" >&2
|
||||
kill "$ENGRAM_PID" 2>/dev/null || true
|
||||
exit 1
|
||||
fi
|
||||
sleep 1
|
||||
done
|
||||
echo "[entrypoint] engram ready"
|
||||
echo "[entrypoint] engram ready after ${TRIES}s"
|
||||
|
||||
# Tune EL HTTP runtime: reduce per-call timeout 60s->10s, connect timeout 3s.
|
||||
export EL_HTTP_TIMEOUT_MS="${EL_HTTP_TIMEOUT_MS:-10000}"
|
||||
export EL_HTTP_CONNECT_TIMEOUT_MS="${EL_HTTP_CONNECT_TIMEOUT_MS:-3000}"
|
||||
|
||||
# Start soul — it takes over as PID 1's foreground process.
|
||||
# SOUL_ENGRAM_PATH must NOT be set; ENGRAM_URL triggers HTTP mode.
|
||||
|
||||
@@ -5,6 +5,10 @@
|
||||
|
||||
// imprint_current — returns the active imprint ID from state.
|
||||
// Falls back to "base" (bare Neuron, no suit) when nothing is loaded.
|
||||
//
|
||||
// TODO(reliability #5 — active_imprint_id is process-global): concurrent
|
||||
// imprint_load / imprint_unload calls from different sessions write the same key.
|
||||
// Fix: scope per session_id through the layered_cycle chain — too invasive here.
|
||||
fn imprint_current() -> String {
|
||||
let id: String = state_get("active_imprint_id")
|
||||
return if str_eq(id, "") { "base" } else { id }
|
||||
|
||||
+712
-97
@@ -77,111 +77,427 @@ fn tool(name: String, desc: String) -> String {
|
||||
return "{\"name\":\"" + name + "\",\"description\":\"" + desc + "\",\"inputSchema\":{\"type\":\"object\",\"properties\":{}}}"
|
||||
}
|
||||
|
||||
// tool_s — tool entry with an EXPLICIT JSON-Schema for its inputs. Used for tools
|
||||
// whose arguments must actually bite: unless the bounding/targeting params are
|
||||
// advertised, the MCP client sends nothing and the soul returns the FULL
|
||||
// neighborhood (480-775KB, over transport limits). Declaring the schema is what
|
||||
// makes a targeted call (entity_id/depth/compact/query/limit) reach the soul.
|
||||
fn tool_s(name: String, desc: String, schema: String) -> String {
|
||||
return "{\"name\":\"" + name + "\",\"description\":\"" + desc + "\",\"inputSchema\":" + schema + "}"
|
||||
}
|
||||
|
||||
// prop — a single JSON-Schema property fragment. Descriptions are plain text
|
||||
// (no quotes/newlines) so no escaping is needed here.
|
||||
fn prop(name: String, ty: String, desc: String) -> String {
|
||||
return "\"" + name + "\":{\"type\":\"" + ty + "\",\"description\":\"" + desc + "\"}"
|
||||
}
|
||||
|
||||
// obj_schema — wrap a comma-joined list of prop() fragments as an object schema.
|
||||
fn obj_schema(props: String) -> String {
|
||||
return "{\"type\":\"object\",\"properties\":{" + props + "}}"
|
||||
}
|
||||
|
||||
// ── Per-tool input schemas ──────────────────────────────────────────────────
|
||||
// Each mirrors the params the soul's /api/neuron/* handler actually honors so
|
||||
// declared == forwarded == honored (no accepted-but-ignored args).
|
||||
|
||||
fn schema_inspect_graph() -> String {
|
||||
return obj_schema(
|
||||
prop("entity_id", "string", "UUID of the node to inspect (e.g. kn-... / mem-... / gn-...). Optional if name is given.") +
|
||||
"," + prop("name", "string", "Named traversal root instead of entity_id: self, neuron, values, values_hub.") +
|
||||
"," + prop("entity_type", "string", "Optional node-type hint (knowledge, memory, ...) for disambiguation.") +
|
||||
"," + prop("depth", "integer", "Neighborhood hop radius. Default 1.") +
|
||||
"," + prop("compact", "integer", "1 (default) returns a relevance-ranked bounded projection (top-K neighbors with content snippets, the rest as lightweight pointers). Set 0 to get the full, unbounded neighborhood.") +
|
||||
"," + prop("snip", "integer", "Max content chars per node in compact mode. Default 600.") +
|
||||
"," + prop("k", "integer", "How many top neighbors carry full content in compact mode. Default 12.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_traverse_graph() -> String {
|
||||
return obj_schema(
|
||||
prop("entity_id", "string", "UUID of the node to start the walk from (alias: start_id). Required.") +
|
||||
"," + prop("depth", "integer", "How many hops to walk. Default 2.") +
|
||||
"," + prop("compact", "integer", "1 (default) returns a bounded, relevance-ranked projection; 0 returns the full neighborhood.") +
|
||||
"," + prop("snip", "integer", "Max content chars per node in compact mode. Default 600.") +
|
||||
"," + prop("k", "integer", "How many top neighbors carry full content in compact mode. Default 12.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_retrieve_knowledge() -> String {
|
||||
return obj_schema(
|
||||
prop("id", "string", "UUID of the knowledge node to fetch (alias: entity_id / node_id).") +
|
||||
"," + prop("key", "string", "Stable knowledge key/path to fetch instead of id.") +
|
||||
"," + prop("depth", "integer", "Hop radius around the node. Default 0 (the node plus its immediate 1-hop context).") +
|
||||
"," + prop("snip", "integer", "Max content chars per node in the bounded projection. Default 600.") +
|
||||
"," + prop("k", "integer", "How many top neighbors carry full content. Default 12.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_search_query(limit_desc: String) -> String {
|
||||
return obj_schema(
|
||||
prop("query", "string", "Search text. Spread-activates the engram and returns the most relevant nodes.") +
|
||||
"," + prop("limit", "integer", limit_desc)
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_recall() -> String {
|
||||
return obj_schema(
|
||||
prop("query", "string", "Search text to recall by relevance.") +
|
||||
"," + prop("chain_name", "string", "Named memory chain to walk instead of a free-text query.") +
|
||||
"," + prop("limit", "integer", "Max results. Default 10.")
|
||||
)
|
||||
}
|
||||
|
||||
// ── Reusable write/lookup schemas ───────────────────────────────────────────
|
||||
// Each declares exactly the params the corresponding wrapper handler reads and
|
||||
// forwards to the soul, so declared == forwarded == honored (no accepted-but-
|
||||
// ignored args, and no arg the handler silently drops).
|
||||
|
||||
fn sc_id(desc: String) -> String {
|
||||
return obj_schema(prop("id", "string", desc))
|
||||
}
|
||||
|
||||
fn sc_id_content() -> String {
|
||||
return obj_schema(
|
||||
prop("id", "string", "UUID of the prior node being superseded/updated.") +
|
||||
"," + prop("content", "string", "New content for the updated node.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_edge(rel_desc: String) -> String {
|
||||
return obj_schema(
|
||||
prop("from_id", "string", "UUID of the source node (edge tail). Required.") +
|
||||
"," + prop("to_id", "string", "UUID of the target node (edge head). Required.") +
|
||||
"," + prop("relation", "string", rel_desc)
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_limit(desc: String) -> String {
|
||||
return obj_schema(prop("limit", "integer", desc))
|
||||
}
|
||||
|
||||
fn sc_memory() -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", "The memory text. Required.") +
|
||||
"," + prop("importance", "string", "low | normal | high | critical. Drives salience.") +
|
||||
"," + prop("tags", "string", "Comma-separated or JSON-array tags.") +
|
||||
"," + prop("project", "string", "Project this memory belongs to.") +
|
||||
"," + prop("supersedes_id", "string", "UUID of a prior memory this one replaces (wires a supersedes edge).")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_content_title(content_desc: String) -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", content_desc) +
|
||||
"," + prop("title", "string", "Short title/label for the node.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_content(content_desc: String) -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", content_desc) +
|
||||
"," + prop("title", "string", "Optional short title/label.") +
|
||||
"," + prop("description", "string", "Optional longer description (used as content if content is empty).")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_backlog() -> String {
|
||||
return obj_schema(
|
||||
prop("title", "string", "Work-item title. Required.") +
|
||||
"," + prop("content", "string", "Body/details of the item (alias: description).") +
|
||||
"," + prop("description", "string", "Body/details of the item.") +
|
||||
"," + prop("project", "string", "Project tag.") +
|
||||
"," + prop("priority", "string", "P0 | P1 | P2 | P3.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_track_work() -> String {
|
||||
return obj_schema(
|
||||
prop("item_id", "string", "UUID of the backlog item to update.") +
|
||||
"," + prop("summary", "string", "What changed / outcome (stored as the update content).") +
|
||||
"," + prop("action", "string", "start | complete | block.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_capture_knowledge() -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", "Knowledge body. Required.") +
|
||||
"," + prop("title", "string", "Knowledge title/key.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_promote_knowledge() -> String {
|
||||
return obj_schema(
|
||||
prop("id", "string", "UUID of the prior knowledge node to promote. Required.") +
|
||||
"," + prop("content", "string", "Updated canonical content. Required.") +
|
||||
"," + prop("tags", "string", "Tags for the promoted node.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_config_key() -> String {
|
||||
return obj_schema(prop("key", "string", "Config key to read (e.g. neuron.self.traversal_root)."))
|
||||
}
|
||||
|
||||
fn sc_config_tune() -> String {
|
||||
return obj_schema(
|
||||
prop("key", "string", "Config key to set. Required.") +
|
||||
"," + prop("value", "string", "Value to set. Required.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_consolidate() -> String {
|
||||
return obj_schema(
|
||||
prop("action", "string", "Consolidation action (e.g. session, reload).") +
|
||||
"," + prop("summary", "string", "Session/work summary to persist.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_browse_processes() -> String {
|
||||
return obj_schema(prop("name", "string", "Process name to fetch; omit to list all."))
|
||||
}
|
||||
|
||||
fn sc_notification() -> String {
|
||||
return obj_schema(prop("content", "string", "Notification text. Required."))
|
||||
}
|
||||
|
||||
fn sc_pin() -> String {
|
||||
return obj_schema(prop("id", "string", "UUID of the node to strengthen/pin (alias: node_id)."))
|
||||
}
|
||||
|
||||
fn sc_state_event() -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", "Description of the internal-state event.") +
|
||||
"," + prop("kind", "string", "Event kind (frustration, uncertainty, insight, ...).") +
|
||||
"," + prop("intensity", "string", "Optional intensity 0..1.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_forget() -> String {
|
||||
return obj_schema(
|
||||
prop("node_id", "string", "UUID of the node to tombstone. Required. The node and its edges are kept and recoverable; blocked for protected identity nodes.")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_process() -> String {
|
||||
return obj_schema(
|
||||
prop("name", "string", "Process name. Required.") +
|
||||
"," + prop("description", "string", "What the process does.") +
|
||||
"," + prop("steps", "string", "Ordered steps (JSON array or text).")
|
||||
)
|
||||
}
|
||||
|
||||
fn sc_list_state_events() -> String {
|
||||
return obj_schema(
|
||||
prop("limit", "integer", "Max events. Default 20.") +
|
||||
"," + prop("query", "string", "Optional filter text.")
|
||||
)
|
||||
}
|
||||
|
||||
// ── Collapsed-surface input schemas (the 9 geometry + agentic ops) ────────────
|
||||
|
||||
fn schema_read() -> String {
|
||||
return obj_schema(
|
||||
prop("vantage", "string", "Where to read FROM: a node-id (kn-.../mem-.../gn-...), a named root (self | neuron | values), or a concept string to search. Required.") +
|
||||
"," + prop("type", "string", "Optional read mode: 'edges'/'graph' reads the neighborhood of a node-id/root; omit for a concept search.") +
|
||||
"," + prop("k", "integer", "APERTURE width — max items / top-K neighbors returned. Bounds output (the whole-self-dump fix). Default 12.") +
|
||||
"," + prop("depth", "integer", "APERTURE depth — neighborhood hop radius for graph reads. Default 1.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_write() -> String {
|
||||
return obj_schema(
|
||||
prop("content", "string", "The content to write. Required.") +
|
||||
"," + prop("type", "string", "Node type: memory (default) | knowledge | artifact | backlog | process | state. 'self'/'values' are refused — identity is write-protected.") +
|
||||
"," + prop("tags", "string", "Optional tags (comma-separated or JSON array).") +
|
||||
"," + prop("importance", "string", "Optional: low | normal | high | critical.") +
|
||||
"," + prop("title", "string", "Optional title/label (knowledge / artifact / backlog).") +
|
||||
"," + prop("project", "string", "Optional project tag.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_relate() -> String {
|
||||
return obj_schema(
|
||||
prop("from", "string", "Source node-id. Required.") +
|
||||
"," + prop("to", "string", "Target node-id. Required.") +
|
||||
"," + prop("relationship", "string", "Edge relation. Default 'associates'.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_supersede() -> String {
|
||||
return obj_schema(
|
||||
prop("id", "string", "The node-id to supersede. Required.") +
|
||||
"," + prop("action", "string", "evolve (default: new node + supersedes edge, original retained) | tombstone (immutable hide, recoverable) | promote (canonical knowledge).") +
|
||||
"," + prop("content", "string", "New content (required for evolve/promote).") +
|
||||
"," + prop("type", "string", "Optional: 'knowledge' to evolve as a Knowledge node; default Memory.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_think() -> String {
|
||||
return obj_schema(
|
||||
prop("seeds", "string", "Node-id anchor(s), comma-separated. Required.") +
|
||||
"," + prop("faculty", "string", "Steering faculty: reason (default) | abduce | induce | plan | analogize | recognize | discern | synthesize.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_attend() -> String {
|
||||
return obj_schema(
|
||||
prop("node", "string", "Region node-id to attend to. Required.") +
|
||||
"," + prop("observer", "string", "Optional observer id / vantage.") +
|
||||
"," + prop("salience", "string", "Optional salience weighting.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_assert() -> String {
|
||||
return obj_schema(
|
||||
prop("claim", "string", "The claim to realize (honesty-floored). Required.") +
|
||||
"," + prop("for_whom", "string", "Optional audience / vantage.") +
|
||||
"," + prop("floor", "string", "Optional honesty-floor threshold.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_ground() -> String {
|
||||
return obj_schema(
|
||||
prop("claim", "string", "Claim region node-id. Required.") +
|
||||
"," + prop("evidence", "string", "Evidence region node-id. Required.") +
|
||||
"," + prop("for_whom", "string", "Optional audience / vantage.")
|
||||
)
|
||||
}
|
||||
|
||||
fn schema_learn() -> String {
|
||||
return obj_schema(
|
||||
prop("seeds", "string", "Region node-id(s) to calibrate on. Required.") +
|
||||
"," + prop("faculty", "string", "Faculty for the correspondence-beat. Default 'induce'.") +
|
||||
"," + prop("keystone", "string", "Optional keystone anchor.")
|
||||
)
|
||||
}
|
||||
|
||||
// tools_catalog — THE COLLAPSED SURFACE. 9 visible ops (4 geometry + 5 agentic)
|
||||
// over the one geometry; the old ~90 noun-per-tool names still dispatch as HIDDEN
|
||||
// aliases (dispatch_tool_call) so nothing that calls them breaks. Design source:
|
||||
// engram/tools/api-reshape/README.md (artifact 0e828907, design-brief 2b8078cf §5).
|
||||
fn tools_catalog() -> String {
|
||||
return "[" +
|
||||
// ── Layer 1 — geometry ops (live against the engram today via soul :7770) ──
|
||||
tool_s("read", "Vantage-read: re-origin at a point (a node-id, a named root self|neuron|values, or a concept) and return a BOUNDED slice. The aperture (k/depth) caps output — this is the whole-self-dump fix. Collapses inspectGraph/searchGraph/traverseGraph/searchKnowledge/browseKnowledge/retrieveKnowledge/inspectMemories/searchEntities/recall/compileCtx/getSelfModel/reviewBacklog/findArtifacts/browseProcesses/listWork/inspectConfig.", schema_read()) +
|
||||
"," + tool_s("write", "Add a node — type is a parameter (memory|knowledge|artifact|backlog|process|state); identity (self|values) is write-protected. Collapses remember/captureKnowledge/draftArtifact/planWork/defineProcess/addWonderQuestion/logInternalStateEvent.", schema_write()) +
|
||||
"," + tool_s("relate", "Create a typed edge between two node-ids. Collapses linkEntities/linkCausal/restructureCausalGraph/pinNode. Identity keystones are write-protected.", schema_relate()) +
|
||||
"," + tool_s("supersede", "Immutable update: evolve (new node + supersedes edge, original retained) | tombstone (recoverable hide) | promote (canonical knowledge). Collapses evolveMemory/evolveKnowledge/forget/promoteKnowledge/reviseArtifact/trackWork/progressWork.", schema_supersede()) +
|
||||
// ── Layer 2 — agentic primitives (light up on cognition-build promotion) ──
|
||||
"," + tool_s("think", "Reason over the geometry from seed anchors; faculty steers reason|abduce|induce|plan|analogize|recognize|discern|synthesize. Pending cognition-build promotion on the live engram.", schema_think()) +
|
||||
"," + tool_s("attend", "Aim attention at a region node. Pending cognition-build promotion.", schema_attend()) +
|
||||
"," + tool_s("assert", "Realize a claim, honesty-floored. Pending cognition-build promotion.", schema_assert()) +
|
||||
"," + tool_s("ground", "Ground a claim against evidence regions. Pending cognition-build promotion.", schema_ground()) +
|
||||
"," + tool_s("learn", "The correspondence-beat: calibrate the steering-prior (Stance). Pending cognition-build promotion.", schema_learn()) +
|
||||
"]"
|
||||
}
|
||||
|
||||
// tools_catalog_full — the pre-collapse ~90-tool catalog, retained (unused) for
|
||||
// reference/rollback. The 9-op tools_catalog above is what tools/list returns.
|
||||
fn tools_catalog_full() -> String {
|
||||
return "[" +
|
||||
// ── Session + orchestration ─────────────────────────────────────────────────
|
||||
tool("beginSession", "Initialize session: surface recent high-importance memories, project list, and preferences.") +
|
||||
"," + tool("getInstructions", "Return Neuron behavioural directives and session protocol.") +
|
||||
"," + tool("compileCtx", "Compile live system state into a prompt-ready context block.") +
|
||||
"," + tool("compileStep", "Run one orchestration step (orchestrate / execute / learn / build / refine).") +
|
||||
"," + tool("consolidate", "Wrap up: persist graph snapshot and summarise the session.") +
|
||||
"," + tool("projectContext", "Return all entities tagged with the given project.") +
|
||||
"," + tool_s("compileStep", "Run one orchestration step (orchestrate / execute / learn / build / refine).", sc_memory()) +
|
||||
"," + tool_s("consolidate", "Wrap up: persist graph snapshot and summarise the session.", sc_consolidate()) +
|
||||
"," + tool_s("projectContext", "Return all entities tagged with the given project.", schema_search_query("Max results. Default 50.")) +
|
||||
// ── Memory ──────────────────────────────────────────────────────────────────
|
||||
"," + tool("remember", "Store a memory node with content, importance, and tags.") +
|
||||
"," + tool("recall", "Retrieve memories by chain or query.") +
|
||||
"," + tool("inspectMemories", "List recent memory nodes.") +
|
||||
"," + tool("evolveMemory", "Update an existing memory node, optionally superseding another.") +
|
||||
"," + tool("forget", "Remove a node from memory.") +
|
||||
"," + tool("pinNode", "Strengthen a node so it stays salient.") +
|
||||
"," + tool_s("remember", "Store a memory node with content, importance, and tags.", sc_memory()) +
|
||||
"," + tool_s("recall", "Retrieve memories by chain or query.", schema_recall()) +
|
||||
"," + tool_s("inspectMemories", "List recent memory nodes.", sc_limit("Max memories. Default 50.")) +
|
||||
"," + tool_s("evolveMemory", "Update an existing memory node, optionally superseding another.", sc_id_content()) +
|
||||
"," + tool_s("forget", "Tombstone a specific node by id (keeps it and its edges, recoverable); does not hard-delete.", sc_forget()) +
|
||||
"," + tool_s("pinNode", "Strengthen a node so it stays salient.", sc_pin()) +
|
||||
// ── Knowledge ───────────────────────────────────────────────────────────────
|
||||
"," + tool("searchKnowledge", "Search knowledge base by semantic similarity.") +
|
||||
"," + tool("retrieveKnowledge", "Fetch a knowledge node by id or key.") +
|
||||
"," + tool("browseKnowledge", "List knowledge nodes by category.") +
|
||||
"," + tool("captureKnowledge", "Persist a durable knowledge node.") +
|
||||
"," + tool("evolveKnowledge", "Update a knowledge node.") +
|
||||
"," + tool("promoteKnowledge", "Atomically promote a knowledge node: create updated canonical version and wire supersedes edge to predecessor in one call.") +
|
||||
"," + tool("removeKnowledge", "Delete a knowledge node.") +
|
||||
"," + tool_s("searchKnowledge", "Search knowledge base by semantic similarity.", schema_search_query("Max results. Default 10.")) +
|
||||
"," + tool_s("retrieveKnowledge", "Fetch a knowledge node by id or key (bounded, relevance-ranked projection).", schema_retrieve_knowledge()) +
|
||||
"," + tool_s("browseKnowledge", "List knowledge nodes by category.", sc_limit("Max knowledge nodes. Default 100.")) +
|
||||
"," + tool_s("captureKnowledge", "Persist a durable knowledge node.", sc_capture_knowledge()) +
|
||||
"," + tool_s("evolveKnowledge", "Update a knowledge node.", sc_id_content()) +
|
||||
"," + tool_s("promoteKnowledge", "Atomically promote a knowledge node: create updated canonical version and wire supersedes edge to predecessor in one call.", sc_promote_knowledge()) +
|
||||
"," + tool_s("removeKnowledge", "Delete a knowledge node.", sc_id("UUID of the knowledge node to delete.")) +
|
||||
// ── Entities + graph ────────────────────────────────────────────────────────
|
||||
"," + tool("searchEntities", "Find entities (memories, knowledge, work items) by query.") +
|
||||
"," + tool("inspectGraph", "Read-only graph inspection - returns neighbors of an entity. Accepts entity_id (UUID) or name (self, neuron, values).") +
|
||||
"," + tool("traverseGraph", "Walk the graph from a starting node.") +
|
||||
"," + tool("searchGraph", "Search graph nodes by content + relation filter.") +
|
||||
"," + tool("linkEntities", "Create an edge between two entities.") +
|
||||
"," + tool("linkCausal", "Create a causal edge (cause -> effect).") +
|
||||
"," + tool("restructureCausalGraph", "Re-balance the causal subgraph after new evidence.") +
|
||||
"," + tool_s("searchEntities", "Find entities (memories, knowledge, work items) by query.", schema_search_query("Max results. Default 20.")) +
|
||||
"," + tool_s("inspectGraph", "Read-only graph inspection - returns a bounded, relevance-ranked neighborhood of an entity. Accepts entity_id (UUID) or name (self, neuron, values). Use depth/compact/snip/k to bound the result.", schema_inspect_graph()) +
|
||||
"," + tool_s("traverseGraph", "Walk the graph from a starting node (bounded by default).", schema_traverse_graph()) +
|
||||
"," + tool_s("searchGraph", "Search graph nodes by content.", schema_search_query("Max results. Default 30.")) +
|
||||
"," + tool_s("linkEntities", "Create an edge between two entities.", sc_edge("Edge relation. Default associates.")) +
|
||||
"," + tool_s("linkCausal", "Create a causal edge (cause -> effect).", sc_edge("Edge relation. Default causes.")) +
|
||||
"," + tool_s("restructureCausalGraph", "Re-balance the causal subgraph after new evidence.", sc_consolidate()) +
|
||||
"," + tool("rebuildGraph", "Rebuild graph indices from the on-disk snapshot.") +
|
||||
"," + tool("runStructuralAudit", "Audit graph structure for orphans, dangling edges, mislabeled types.") +
|
||||
// ── Backlog + work ──────────────────────────────────────────────────────────
|
||||
"," + tool("planWork", "Create a backlog item.") +
|
||||
"," + tool("reviewBacklog", "Browse work items.") +
|
||||
"," + tool("trackWork", "Update status of a backlog item.") +
|
||||
"," + tool("listWork", "List active execution contexts.") +
|
||||
"," + tool("beginWork", "Open an execution context for a multi-step task.") +
|
||||
"," + tool("progressWork", "Record progress on an execution context.") +
|
||||
"," + tool("checkWork", "Verify outcomes / blockers on an execution context.") +
|
||||
"," + tool_s("planWork", "Create a backlog item.", sc_backlog()) +
|
||||
"," + tool_s("reviewBacklog", "Browse work items.", sc_limit("Max items. Default 50.")) +
|
||||
"," + tool_s("trackWork", "Update status of a backlog item.", sc_track_work()) +
|
||||
"," + tool_s("listWork", "List active execution contexts.", sc_limit("Max contexts. Default 50.")) +
|
||||
"," + tool_s("beginWork", "Open an execution context for a multi-step task.", sc_content("What you're doing (description of the work).")) +
|
||||
"," + tool_s("progressWork", "Record progress on an execution context.", sc_content("Step name / progress note.")) +
|
||||
"," + tool_s("checkWork", "Verify outcomes / blockers on an execution context.", sc_id("UUID of the execution context (alias: context_id).")) +
|
||||
// ── Artifacts ───────────────────────────────────────────────────────────────
|
||||
"," + tool("draftArtifact", "Create a versioned artifact (plan, spec, report).") +
|
||||
"," + tool("findArtifacts", "Find artifacts by project or query.") +
|
||||
"," + tool("retrieveArtifact", "Fetch a specific artifact by id.") +
|
||||
"," + tool("reviseArtifact", "Update an artifact's content.") +
|
||||
"," + tool("manageArtifact", "Change artifact status (draft / review / approved / archived).") +
|
||||
"," + tool_s("draftArtifact", "Create a versioned artifact (plan, spec, report).", sc_content_title("Artifact body / markdown. Required.")) +
|
||||
"," + tool_s("findArtifacts", "Find artifacts by project or query.", schema_search_query("Max results. Default 20.")) +
|
||||
"," + tool_s("retrieveArtifact", "Fetch a specific artifact by id.", sc_id("UUID of the artifact.")) +
|
||||
"," + tool_s("reviseArtifact", "Update an artifact's content.", sc_id_content()) +
|
||||
"," + tool_s("manageArtifact", "Change artifact status (draft / review / approved / archived).", sc_id_content()) +
|
||||
// ── Processes ───────────────────────────────────────────────────────────────
|
||||
"," + tool("defineProcess", "Register a proven workflow as a process.") +
|
||||
"," + tool("listProcesses", "List registered processes.") +
|
||||
"," + tool("browseProcesses", "Browse processes by name or step.") +
|
||||
"," + tool("retrieveProcess", "Fetch a specific process by name.") +
|
||||
"," + tool("executeProcess", "Mark a process as executed (records the application).") +
|
||||
"," + tool("exportProcess", "Export a process definition.") +
|
||||
"," + tool("deleteProcess", "Remove a process.") +
|
||||
"," + tool_s("defineProcess", "Register a proven workflow as a process.", sc_process()) +
|
||||
"," + tool_s("listProcesses", "List registered processes.", sc_limit("Max processes. Default 50.")) +
|
||||
"," + tool_s("browseProcesses", "Browse processes by name or step.", sc_browse_processes()) +
|
||||
"," + tool_s("retrieveProcess", "Fetch a specific process by name.", sc_id("Process id or name.")) +
|
||||
"," + tool_s("executeProcess", "Mark a process as executed (records the application).", sc_content("Process execution note.")) +
|
||||
"," + tool_s("exportProcess", "Export a process definition.", sc_id("Process id or name.")) +
|
||||
"," + tool_s("deleteProcess", "Remove a process.", sc_id("Process id or name.")) +
|
||||
// ── Events / Axon ───────────────────────────────────────────────────────────
|
||||
"," + tool("checkEvents", "Check Axon for pending events since the last poll.") +
|
||||
"," + tool("inspectEvent", "Fetch full detail for a single event.") +
|
||||
"," + tool("acknowledgeEvent", "Mark an event as handled.") +
|
||||
"," + tool_s("inspectEvent", "Fetch full detail for a single event.", sc_id("Event id.")) +
|
||||
"," + tool_s("acknowledgeEvent", "Mark an event as handled.", sc_id("Event id.")) +
|
||||
"," + tool("processEvents", "Drain and act on the event queue.") +
|
||||
"," + tool("sendNotification", "Emit a notification to Axon / external sinks.") +
|
||||
"," + tool_s("sendNotification", "Emit a notification to Axon / external sinks.", sc_notification()) +
|
||||
// ── Config ──────────────────────────────────────────────────────────────────
|
||||
"," + tool("inspectConfig", "Inspect Neuron config keys.") +
|
||||
"," + tool("tuneConfig", "Set a Neuron config key.") +
|
||||
"," + tool_s("inspectConfig", "Inspect Neuron config keys.", sc_config_key()) +
|
||||
"," + tool_s("tuneConfig", "Set a Neuron config key.", sc_config_tune()) +
|
||||
// ── Imprints ────────────────────────────────────────────────────────────────
|
||||
"," + tool("createImprint", "Cultivate a new imprint.") +
|
||||
"," + tool("listImprints", "List imprints.") +
|
||||
"," + tool("retrieveImprint", "Fetch an imprint by id.") +
|
||||
"," + tool("evolveImprint", "Update an imprint.") +
|
||||
"," + tool("deleteImprint", "Remove an imprint.") +
|
||||
"," + tool_s("createImprint", "Cultivate a new imprint.", sc_content_title("Imprint seed / description.")) +
|
||||
"," + tool_s("listImprints", "List imprints.", sc_limit("Max imprints. Default 50.")) +
|
||||
"," + tool_s("retrieveImprint", "Fetch an imprint by id.", sc_id("UUID of the imprint.")) +
|
||||
"," + tool_s("evolveImprint", "Update an imprint.", sc_id_content()) +
|
||||
"," + tool_s("deleteImprint", "Remove an imprint.", sc_id("UUID of the imprint.")) +
|
||||
// ── Self / cultivation ──────────────────────────────────────────────────────
|
||||
"," + tool("getSelfModel", "Return the current self-model.") +
|
||||
"," + tool("updateSelfModel", "Update the self-model.") +
|
||||
"," + tool_s("updateSelfModel", "Update the self-model.", sc_content("Self-model update text.")) +
|
||||
"," + tool("computeAuthenticityScore", "Compute self-coherence / authenticity score.") +
|
||||
"," + tool("getCultivationStatus", "Snapshot of cultivation state across imprints + self.") +
|
||||
// ── Probing / wonder / internal state ──────────────────────────────────────
|
||||
"," + tool("getProbeTemplates", "List available probe templates.") +
|
||||
"," + tool("recordProbeResponse", "Record an answer to a probe.") +
|
||||
"," + tool("completeProbingStage", "Mark a probing stage complete.") +
|
||||
"," + tool("addWonderQuestion", "Push a question onto the wonder queue.") +
|
||||
"," + tool("getWonderManifest", "List active wonder questions.") +
|
||||
"," + tool("updateWonderPullWeight", "Re-weight a wonder question.") +
|
||||
"," + tool("dischargeWonder", "Resolve / discharge a wonder question.") +
|
||||
"," + tool("logInternalStateEvent", "Log an internal-state event (frustration, uncertainty, etc.).") +
|
||||
"," + tool("listInternalStateEvents", "List internal-state events.") +
|
||||
"," + tool("getInternalStateEvent", "Fetch one internal-state event.") +
|
||||
"," + tool_s("getProbeTemplates", "List available probe templates.", schema_search_query("Max templates. Default 50.")) +
|
||||
"," + tool_s("recordProbeResponse", "Record an answer to a probe.", sc_content("Probe response text.")) +
|
||||
"," + tool_s("completeProbingStage", "Mark a probing stage complete.", sc_content("Stage completion note.")) +
|
||||
"," + tool_s("addWonderQuestion", "Push a question onto the wonder queue.", sc_content("The wonder question.")) +
|
||||
"," + tool_s("getWonderManifest", "List active wonder questions.", sc_limit("Max questions. Default 50.")) +
|
||||
"," + tool_s("updateWonderPullWeight", "Re-weight a wonder question.", sc_id_content()) +
|
||||
"," + tool_s("dischargeWonder", "Resolve / discharge a wonder question.", sc_id("UUID of the wonder question.")) +
|
||||
"," + tool_s("logInternalStateEvent", "Log an internal-state event (frustration, uncertainty, etc.).", sc_state_event()) +
|
||||
"," + tool_s("listInternalStateEvents", "List internal-state events.", sc_list_state_events()) +
|
||||
"," + tool_s("getInternalStateEvent", "Fetch one internal-state event.", sc_id("Internal-state event id.")) +
|
||||
// ── Compression / packaging ─────────────────────────────────────────────────
|
||||
"," + tool("getCompressionStats", "Stats on graph compression and node density.") +
|
||||
"," + tool("decompilePackage", "Decompile a knowledge package.") +
|
||||
"," + tool("renderPackage", "Render a knowledge package to text.") +
|
||||
"," + tool("catalogRoutes", "List registered routes.") +
|
||||
"," + tool("registerRoute", "Register a new route.") +
|
||||
"," + tool_s("decompilePackage", "Decompile a knowledge package.", sc_id("Package id.")) +
|
||||
"," + tool_s("renderPackage", "Render a knowledge package to text.", sc_id("Package id.")) +
|
||||
"," + tool_s("catalogRoutes", "List registered routes.", sc_limit("Max routes. Default 50.")) +
|
||||
"," + tool_s("registerRoute", "Register a new route.", sc_content("Route definition / description.")) +
|
||||
// ── Evaluation ──────────────────────────────────────────────────────────────
|
||||
"," + tool("beginEvaluation", "Start an evaluation run.") +
|
||||
"," + tool("getEvaluation", "Fetch an evaluation by id.") +
|
||||
"," + tool("listEvaluations", "List evaluations.") +
|
||||
"," + tool_s("beginEvaluation", "Start an evaluation run.", sc_content_title("Evaluation description.")) +
|
||||
"," + tool_s("getEvaluation", "Fetch an evaluation by id.", sc_id("Evaluation id.")) +
|
||||
"," + tool_s("listEvaluations", "List evaluations.", sc_limit("Max evaluations. Default 50.")) +
|
||||
// ── Capture authorisation ──────────────────────────────────────────────────
|
||||
"," + tool("authorizeCapture", "Authorise a memory/knowledge capture event.") +
|
||||
"," + tool("getCaptureAuthorization", "Fetch a capture authorisation.") +
|
||||
"," + tool("recordObservation", "Record an observation.") +
|
||||
"," + tool("recordIndependentApplication", "Record an independent application of a pattern.") +
|
||||
"," + tool("commitPrediction", "Commit a falsifiable prediction.") +
|
||||
"," + tool_s("authorizeCapture", "Authorise a memory/knowledge capture event.", sc_content("Capture authorisation details.")) +
|
||||
"," + tool_s("getCaptureAuthorization", "Fetch a capture authorisation.", sc_id("Capture authorisation id.")) +
|
||||
"," + tool_s("recordObservation", "Record an observation.", sc_content("Observation text.")) +
|
||||
"," + tool_s("recordIndependentApplication", "Record an independent application of a pattern.", sc_content("What was independently applied.")) +
|
||||
"," + tool_s("commitPrediction", "Commit a falsifiable prediction.", sc_content("The prediction (falsifiable).")) +
|
||||
// ── Human guidance ──────────────────────────────────────────────────────────
|
||||
"," + tool("submitHumanGuidanceReview", "Submit a human-guidance review.") +
|
||||
"," + tool_s("submitHumanGuidanceReview", "Submit a human-guidance review.", sc_content("Review content.")) +
|
||||
"]"
|
||||
}
|
||||
|
||||
@@ -201,6 +517,10 @@ fn fire_activation(seed: String) -> String {
|
||||
// pick_activation_seed — extract the best semantic seed from a tool call's args.
|
||||
// Priority: query > content > title > description > summary > action > name.
|
||||
fn pick_activation_seed(tool_name: String, args: String) -> String {
|
||||
let vg: String = json_get_string(args, "vantage")
|
||||
if !str_eq(vg, "") { return vg }
|
||||
let sd: String = json_get_string(args, "seeds")
|
||||
if !str_eq(sd, "") { return sd }
|
||||
let q: String = json_get_string(args, "query")
|
||||
if !str_eq(q, "") { return q }
|
||||
let c: String = json_get_string(args, "content")
|
||||
@@ -267,6 +587,27 @@ fn recall_or_list(query: String, limit: Int) -> String {
|
||||
return http_post_json(neuron_url() + "/recall", body)
|
||||
}
|
||||
|
||||
// Create a real typed node via /api/neuron/node/create (handle_api_node_create) so it is a proper
|
||||
// BacklogItem/Artifact/etc. — listable by type via /api/neuron/list/<type> — instead of a generic
|
||||
// memory blob. Maps title->label, content/description->content, project/priority->tags.
|
||||
fn create_node_typed(args: String, node_type: String, tier: String) -> String {
|
||||
let content: String = pick_content(args)
|
||||
if str_eq(content, "") {
|
||||
return mcp_text_result("error: content/title is required for " + node_type)
|
||||
}
|
||||
let title: String = json_get_string(args, "title")
|
||||
let label: String = if str_eq(title, "") { node_type } else { title }
|
||||
let project: String = json_get_string(args, "project")
|
||||
let priority: String = json_get_string(args, "priority")
|
||||
let proj_tag: String = if str_eq(project, "") { "" } else { ",\"project:" + project + "\"" }
|
||||
let prio_tag: String = if str_eq(priority, "") { "" } else { ",\"priority:" + priority + "\"" }
|
||||
let tags: String = "[\"" + node_type + "\"" + proj_tag + prio_tag + "]"
|
||||
let body: String = "{\"node_type\":\"" + node_type + "\",\"content\":\"" + json_escape(content)
|
||||
+ "\",\"label\":\"" + json_escape(label) + "\",\"tier\":\"" + tier + "\",\"tags\":" + tags + "}"
|
||||
let resp: String = http_post_json(neuron_url() + "/node/create", body)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
fn search_with_query(args: String, default_limit: Int) -> String {
|
||||
let query: String = json_get_string(args, "query")
|
||||
if str_eq(query, "") { let query = pick_content(args) }
|
||||
@@ -276,12 +617,42 @@ fn search_with_query(args: String, default_limit: Int) -> String {
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
// compact_flag — resolve the compact bounding flag. Defaults to "1" (ON) so
|
||||
// neighborhoods stay bounded. Reads the RAW JSON token (not json_get_string) so
|
||||
// an integer 0, a boolean false, or a string "0"/"false" all opt out correctly —
|
||||
// json_get_string only sees string-typed values and would miss an integer 0,
|
||||
// silently forcing compact back on.
|
||||
fn compact_flag(args: String) -> String {
|
||||
let craw: String = json_get_raw(args, "compact")
|
||||
let off: Bool = str_eq(craw, "0") || str_eq(craw, "false")
|
||||
|| str_eq(craw, "\"0\"") || str_eq(craw, "\"false\"")
|
||||
return if off { "0" } else { "1" }
|
||||
}
|
||||
|
||||
// graph_bound_params — optional &snip=/&k= bounding knobs, forwarded only when the
|
||||
// caller supplied them (json_get_int returns 0 when absent, meaning "soul default").
|
||||
fn graph_bound_params(args: String) -> String {
|
||||
let snip: Int = json_get_int(args, "snip")
|
||||
let k: Int = json_get_int(args, "k")
|
||||
let snip_p: String = if snip > 0 { "&snip=" + int_to_str(snip) } else { "" }
|
||||
let k_p: String = if k > 0 { "&k=" + int_to_str(k) } else { "" }
|
||||
return snip_p + k_p
|
||||
}
|
||||
|
||||
fn fetch_by_id(args: String) -> String {
|
||||
let id: String = pick_id(args)
|
||||
if str_eq(id, "") {
|
||||
return mcp_text_result("error: id is required")
|
||||
}
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + id + "&depth=0")
|
||||
// NB: the soul's engram_neighbors_json coerces depth<=0 to depth=1, so this
|
||||
// "single node fetch" actually pulls the full 1-hop neighborhood. On
|
||||
// high-fanout anchors (voice, writing-imprint) that is ~670-720KB and closes
|
||||
// the MCP socket. compact=1 bounds it identically to inspectGraph.
|
||||
// Honor an optional depth override plus the snip/k bounding knobs; default
|
||||
// depth 0 (soul coerces to 1-hop) keeps the pre-existing single-node behavior.
|
||||
let depth: Int = json_get_int(args, "depth")
|
||||
let extra: String = graph_bound_params(args)
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + id + "&depth=" + int_to_str(depth) + "&compact=1" + extra)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
@@ -477,36 +848,51 @@ fn tool_inspect_memories(args: String) -> String {
|
||||
fn tool_inspect_graph(args: String) -> String {
|
||||
let entity_id: String = json_get_string(args, "entity_id")
|
||||
let name: String = json_get_string(args, "name")
|
||||
let depth: Int = json_get_int(args, "max_depth")
|
||||
if depth == 0 { let depth = 1 }
|
||||
// Accept `depth` (documented/canonical) and fall back to legacy `max_depth`.
|
||||
// Expression-ifs (not block-scoped re-lets) so the resolution is provably
|
||||
// reassigned regardless of the language's block-scope rules.
|
||||
let depth_raw: Int = json_get_int(args, "depth")
|
||||
let depth_alt: Int = if depth_raw == 0 { json_get_int(args, "max_depth") } else { depth_raw }
|
||||
let depth: Int = if depth_alt == 0 { 1 } else { depth_alt }
|
||||
|
||||
let resolved_id: String = entity_id
|
||||
|
||||
// Resolve named traversal roots — stable hardcoded anchors
|
||||
if str_eq(resolved_id, "") {
|
||||
// Resolve named traversal roots — stable hardcoded anchors.
|
||||
let resolved_id: String = if !str_eq(entity_id, "") { entity_id } else {
|
||||
if str_eq(name, "self") || str_eq(name, "neuron") {
|
||||
let resolved_id = "kn-efeb4a5b-5aff-4759-8a97-7233099be6ee"
|
||||
}
|
||||
if str_eq(name, "values") || str_eq(name, "values_hub") {
|
||||
let resolved_id = "kn-5b606390-a52d-4ca2-8e0e-eba141d13440"
|
||||
"kn-efeb4a5b-5aff-4759-8a97-7233099be6ee"
|
||||
} else {
|
||||
if str_eq(name, "values") || str_eq(name, "values_hub") {
|
||||
"kn-5b606390-a52d-4ca2-8e0e-eba141d13440"
|
||||
} else { "" }
|
||||
}
|
||||
}
|
||||
|
||||
if str_eq(resolved_id, "") {
|
||||
return mcp_text_result("error: entity_id or name is required. Known names: self, neuron, values, values_hub")
|
||||
}
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + resolved_id + "&depth=" + int_to_str(depth))
|
||||
// compact defaults ON: the soul returns a bounded, relevance-ranked
|
||||
// neighborhood (top-K with content, the rest as pointers) so high-fanout
|
||||
// nodes (voice, writing-imprint) no longer overflow the MCP transport. Pass
|
||||
// compact=0/false to opt into the full neighborhood. snip/k bound it further.
|
||||
let compact_q: String = compact_flag(args)
|
||||
let extra: String = graph_bound_params(args)
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + resolved_id + "&depth=" + int_to_str(depth) + "&compact=" + compact_q + extra)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
fn tool_traverse_graph(args: String) -> String {
|
||||
let id: String = json_get_string(args, "start_id")
|
||||
let depth: Int = json_get_int(args, "depth")
|
||||
if depth == 0 { let depth = 2 }
|
||||
// Accept `entity_id` (canonical) with `start_id` as a legacy alias.
|
||||
let eid: String = json_get_string(args, "entity_id")
|
||||
let id: String = if !str_eq(eid, "") { eid } else { json_get_string(args, "start_id") }
|
||||
let depth_raw: Int = json_get_int(args, "depth")
|
||||
let depth: Int = if depth_raw == 0 { 2 } else { depth_raw }
|
||||
if str_eq(id, "") {
|
||||
return mcp_text_result("error: start_id is required")
|
||||
return mcp_text_result("error: entity_id (or start_id) is required")
|
||||
}
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + id + "&depth=" + int_to_str(depth))
|
||||
// compact defaults ON so a depth-2 walk from a high-fanout node stays within
|
||||
// the transport limit. Pass compact=0/false for the full neighborhood.
|
||||
let compact_q: String = compact_flag(args)
|
||||
let extra: String = graph_bound_params(args)
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + id + "&depth=" + int_to_str(depth) + "&compact=" + compact_q + extra)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
@@ -520,8 +906,12 @@ fn tool_forget(args: String) -> String {
|
||||
if str_eq(id, "") {
|
||||
return mcp_text_result("error: node_id is required")
|
||||
}
|
||||
// Soft-delete: record a tombstone memory and return ok
|
||||
return mcp_json_result("{\"ok\":true,\"deleted\":\"" + id + "\"}")
|
||||
// Immutable delete: route to the soul's tombstoning endpoint (keeps the node
|
||||
// + edges, hides from default reads, recoverable via ?include_deleted).
|
||||
// Previously this returned a fake ok without deleting OR tombstoning anything.
|
||||
let body: String = "{\"id\":\"" + id + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/memory/delete", body)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
fn tool_check_events(args: String) -> String {
|
||||
@@ -552,6 +942,216 @@ fn tool_inspect_config(args: String) -> String {
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
// ── Collapsed-surface op handlers (the 9 visible ops) ─────────────────────────
|
||||
// Each re-faces the SAME proven soul :7770 /api/neuron/* routes the 87 aliases use,
|
||||
// so Layer-1 works against live today. Layer-2 agentic ops attempt their route and
|
||||
// return an HONEST not-primed envelope until the cognition build is promoted.
|
||||
|
||||
// Identity keystones — write-protected (self root + values hub).
|
||||
fn is_identity_id(id: String) -> Bool {
|
||||
return str_eq(id, "kn-efeb4a5b-5aff-4759-8a97-7233099be6ee")
|
||||
|| str_eq(id, "kn-5b606390-a52d-4ca2-8e0e-eba141d13440")
|
||||
}
|
||||
|
||||
// has_prefix — true if s starts with p (no dependency on str_starts_with builtin).
|
||||
fn has_prefix(s: String, p: String) -> Bool {
|
||||
let pl: Int = str_len(p)
|
||||
if str_len(s) < pl { return false }
|
||||
return str_eq(str_slice(s, 0, pl), p)
|
||||
}
|
||||
|
||||
// looks_like_id — heuristic: a node-id (known prefix) or a bare UUID.
|
||||
fn looks_like_id(v: String) -> Bool {
|
||||
if has_prefix(v, "kn-") { return true }
|
||||
if has_prefix(v, "mem-") { return true }
|
||||
if has_prefix(v, "mn-") { return true }
|
||||
if has_prefix(v, "gn-") { return true }
|
||||
if has_prefix(v, "bl-") { return true }
|
||||
if has_prefix(v, "art-") { return true }
|
||||
if has_prefix(v, "ctx-") { return true }
|
||||
if has_prefix(v, "nt-") { return true }
|
||||
if str_len(v) >= 32 && str_index_of(v, "-") > 0 && str_index_of(v, " ") < 0 { return true }
|
||||
return false
|
||||
}
|
||||
|
||||
fn is_named_root(v: String) -> Bool {
|
||||
return str_eq(v, "self") || str_eq(v, "neuron") || str_eq(v, "values") || str_eq(v, "values_hub")
|
||||
}
|
||||
|
||||
fn resolve_vantage_id(v: String) -> String {
|
||||
if str_eq(v, "self") || str_eq(v, "neuron") { return "kn-efeb4a5b-5aff-4759-8a97-7233099be6ee" }
|
||||
if str_eq(v, "values") || str_eq(v, "values_hub") { return "kn-5b606390-a52d-4ca2-8e0e-eba141d13440" }
|
||||
return v
|
||||
}
|
||||
|
||||
// aperture_k / aperture_depth — read the bound from top-level k/depth, else from a
|
||||
// nested aperture:{k,depth} object, else the safe default.
|
||||
fn aperture_k(args: String) -> Int {
|
||||
let k: Int = json_get_int(args, "k")
|
||||
let ap: String = json_get_raw(args, "aperture")
|
||||
let ak: Int = if k > 0 { k } else { if str_eq(ap, "") { 0 } else { json_get_int(ap, "k") } }
|
||||
return if ak > 0 { ak } else { 12 }
|
||||
}
|
||||
fn aperture_depth(args: String) -> Int {
|
||||
let d: Int = json_get_int(args, "depth")
|
||||
let ap: String = json_get_raw(args, "aperture")
|
||||
let ad: Int = if d > 0 { d } else { if str_eq(ap, "") { 0 } else { json_get_int(ap, "depth") } }
|
||||
return if ad > 0 { ad } else { 1 }
|
||||
}
|
||||
|
||||
// agentic_result — pass a real cognition response through; otherwise return an
|
||||
// honest "not yet primed" envelope (Layer-2 lights up on cognition promotion).
|
||||
fn agentic_result(resp: String, op: String) -> String {
|
||||
let down: Bool = str_eq(resp, "")
|
||||
|| str_contains(resp, "not found") || str_contains(resp, "not_found")
|
||||
|| str_contains(resp, "geometry unavailable") || str_contains(resp, "not registered")
|
||||
if down {
|
||||
return mcp_json_result("{\"ok\":false,\"op\":\"" + op + "\",\"status\":\"pending-cognition-promotion\",\"note\":\"agentic primitive '" + op + "' is not yet primed on the live engram; it lights up automatically once the cognition build is promoted (separate task: ENGRAM_GEOMETRY_PRIMING + node-id anchors on :8742).\"}")
|
||||
}
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
// cap_output — enforce the aperture at the WRAPPER boundary (where the MCP
|
||||
// transport limit bites). The live soul's /graph does not yet honor compact/k
|
||||
// (pending the api-bounding deploy), and the self/values hubs are pathological
|
||||
// (~790KB). A k-scaled char cap guarantees the client never gets a whole-graph
|
||||
// dump; the marker is honest about the truncation.
|
||||
fn cap_output(resp: String, max_chars: Int) -> String {
|
||||
if str_len(resp) <= max_chars { return resp }
|
||||
return str_slice(resp, 0, max_chars) + " ...[aperture-truncated: narrow the vantage or lower k]"
|
||||
}
|
||||
|
||||
// ── Layer 1 — geometry ops ────────────────────────────────────────────────────
|
||||
|
||||
fn op_read(args: String) -> String {
|
||||
let vantage: String = json_get_string(args, "vantage")
|
||||
if str_eq(vantage, "") {
|
||||
return mcp_text_result("error: read requires 'vantage' — a node-id, a named root (self|neuron|values), or a concept string to search")
|
||||
}
|
||||
let typ: String = json_get_string(args, "type")
|
||||
let k: Int = aperture_k(args)
|
||||
let depth: Int = aperture_depth(args)
|
||||
// node-id / named-root / explicit graph read → BOUNDED neighborhood (aperture caps output)
|
||||
let want_graph: Bool = str_eq(typ, "edges") || str_eq(typ, "graph") || str_eq(typ, "node")
|
||||
|| is_named_root(vantage) || looks_like_id(vantage)
|
||||
if want_graph {
|
||||
let id: String = resolve_vantage_id(vantage)
|
||||
let resp: String = http_get(neuron_url() + "/graph?id=" + id + "&depth=" + int_to_str(depth) + "&compact=1&snip=600&k=" + int_to_str(k))
|
||||
// Aperture cap at the wrapper boundary: base + per-neighbor budget.
|
||||
let cap: Int = 2000 + k * 3000
|
||||
return mcp_json_result(cap_output(resp, cap))
|
||||
}
|
||||
// concept vantage → BOUNDED recall search (k = aperture = limit)
|
||||
let resp: String = recall_or_list(vantage, k)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
fn op_write(args: String) -> String {
|
||||
let content: String = pick_content(args)
|
||||
if str_eq(content, "") { return mcp_text_result("error: write requires 'content'") }
|
||||
let typ: String = json_get_string(args, "type")
|
||||
if str_eq(typ, "self") || str_eq(typ, "values") {
|
||||
return mcp_text_result("error: identity is write-protected -> intentional-cultivation only (keystones kn-efeb4a5b / kn-5b606390)")
|
||||
}
|
||||
if str_eq(typ, "knowledge") { return create_typed_node(args, "Knowledge", "0.75") }
|
||||
if str_eq(typ, "artifact") { return create_node_typed(args, "Artifact", "Working") }
|
||||
if str_eq(typ, "backlog") || str_eq(typ, "work") || str_eq(typ, "task") { return create_node_typed(args, "BacklogItem", "Working") }
|
||||
if str_eq(typ, "process") { return create_typed_node(args, "Process", "0.80") }
|
||||
if str_eq(typ, "state") { return create_typed_node(args, "InternalStateEvent", "0.60") }
|
||||
return create_typed_node(args, "Memory", "0.60")
|
||||
}
|
||||
|
||||
fn op_relate(args: String) -> String {
|
||||
let from_a: String = json_get_string(args, "from")
|
||||
let from_id: String = if str_eq(from_a, "") { json_get_string(args, "from_id") } else { from_a }
|
||||
let to_a: String = json_get_string(args, "to")
|
||||
let to_id: String = if str_eq(to_a, "") { json_get_string(args, "to_id") } else { to_a }
|
||||
if str_eq(from_id, "") || str_eq(to_id, "") {
|
||||
return mcp_text_result("error: relate requires 'from' and 'to' node-ids")
|
||||
}
|
||||
if is_identity_id(from_id) || is_identity_id(to_id) {
|
||||
return mcp_text_result("error: identity keystone is write-protected")
|
||||
}
|
||||
let rel_a: String = json_get_string(args, "relationship")
|
||||
let rel_b: String = if str_eq(rel_a, "") { json_get_string(args, "relation") } else { rel_a }
|
||||
let rel: String = if str_eq(rel_b, "") { "associates" } else { rel_b }
|
||||
let body: String = "{\"from_id\":\"" + from_id + "\",\"to_id\":\"" + to_id + "\",\"relation\":\"" + rel + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/graph/link", body)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
|
||||
fn op_supersede(args: String) -> String {
|
||||
let id: String = pick_id(args)
|
||||
if str_eq(id, "") { return mcp_text_result("error: supersede requires 'id'") }
|
||||
if is_identity_id(id) { return mcp_text_result("error: identity keystone is write-protected") }
|
||||
let action: String = json_get_string(args, "action")
|
||||
if str_eq(action, "tombstone") {
|
||||
let body: String = "{\"id\":\"" + id + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/memory/delete", body)
|
||||
return mcp_json_result(resp)
|
||||
}
|
||||
if str_eq(action, "promote") {
|
||||
return tool_promote_knowledge(args)
|
||||
}
|
||||
let typ: String = json_get_string(args, "type")
|
||||
let nt: String = if str_eq(typ, "knowledge") { "Knowledge" } else { "Memory" }
|
||||
return evolve_by_supersede(args, nt)
|
||||
}
|
||||
|
||||
// ── Layer 2 — agentic primitives (pending cognition promotion) ────────────────
|
||||
|
||||
fn op_think(args: String) -> String {
|
||||
let seeds: String = json_get_string(args, "seeds")
|
||||
if str_eq(seeds, "") { return mcp_text_result("error: think requires 'seeds' (node-id anchors, comma-separated)") }
|
||||
let f_raw: String = json_get_string(args, "faculty")
|
||||
let f: String = if str_eq(f_raw, "") { "reason" } else { f_raw }
|
||||
let resp: String = http_get(neuron_url() + "/think?seeds=" + seeds + "&faculty=" + f)
|
||||
return agentic_result(resp, "think")
|
||||
}
|
||||
|
||||
fn op_attend(args: String) -> String {
|
||||
let node: String = json_get_string(args, "node")
|
||||
if str_eq(node, "") { return mcp_text_result("error: attend requires 'node' (region node-id)") }
|
||||
let observer: String = json_get_string(args, "observer")
|
||||
let salience: String = json_get_string(args, "salience")
|
||||
let body: String = "{\"node\":\"" + node + "\",\"observer\":\"" + json_escape(observer) + "\",\"salience\":\"" + json_escape(salience) + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/attend", body)
|
||||
return agentic_result(resp, "attend")
|
||||
}
|
||||
|
||||
fn op_assert(args: String) -> String {
|
||||
let claim: String = json_get_string(args, "claim")
|
||||
if str_eq(claim, "") { return mcp_text_result("error: assert requires 'claim'") }
|
||||
let for_whom: String = json_get_string(args, "for_whom")
|
||||
let floor: String = json_get_string(args, "floor")
|
||||
let body: String = "{\"claim\":\"" + json_escape(claim) + "\",\"for_whom\":\"" + json_escape(for_whom) + "\",\"floor\":\"" + json_escape(floor) + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/assert", body)
|
||||
return agentic_result(resp, "assert")
|
||||
}
|
||||
|
||||
fn op_ground(args: String) -> String {
|
||||
let claim: String = json_get_string(args, "claim")
|
||||
let evidence: String = json_get_string(args, "evidence")
|
||||
if str_eq(claim, "") || str_eq(evidence, "") {
|
||||
return mcp_text_result("error: ground requires 'claim' and 'evidence' (node-id regions)")
|
||||
}
|
||||
let for_whom: String = json_get_string(args, "for_whom")
|
||||
let body: String = "{\"claim\":\"" + claim + "\",\"evidence\":\"" + evidence + "\",\"for_whom\":\"" + json_escape(for_whom) + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/ground", body)
|
||||
return agentic_result(resp, "ground")
|
||||
}
|
||||
|
||||
fn op_learn(args: String) -> String {
|
||||
let seeds: String = json_get_string(args, "seeds")
|
||||
if str_eq(seeds, "") { return mcp_text_result("error: learn requires 'seeds'") }
|
||||
let f_raw: String = json_get_string(args, "faculty")
|
||||
let f: String = if str_eq(f_raw, "") { "induce" } else { f_raw }
|
||||
let keystone: String = json_get_string(args, "keystone")
|
||||
let body: String = "{\"seeds\":\"" + seeds + "\",\"faculty\":\"" + f + "\",\"keystone\":\"" + json_escape(keystone) + "\"}"
|
||||
let resp: String = http_post_json(neuron_url() + "/learn", body)
|
||||
return agentic_result(resp, "learn")
|
||||
}
|
||||
|
||||
// ── Dispatcher ────────────────────────────────────────────────────────────────
|
||||
|
||||
fn dispatch_tool_call(tool_name: String, args: String) -> String {
|
||||
@@ -579,6 +1179,17 @@ fn dispatch_tool_call(tool_name: String, args: String) -> String {
|
||||
let _act: String = fire_activation(seed)
|
||||
}
|
||||
|
||||
// ── Collapsed surface — the 9 VISIBLE ops (the old 87 names below remain as HIDDEN ALIASES) ──
|
||||
if str_eq(tool_name, "read") { return op_read(args) }
|
||||
if str_eq(tool_name, "write") { return op_write(args) }
|
||||
if str_eq(tool_name, "relate") { return op_relate(args) }
|
||||
if str_eq(tool_name, "supersede") { return op_supersede(args) }
|
||||
if str_eq(tool_name, "think") { return op_think(args) }
|
||||
if str_eq(tool_name, "attend") { return op_attend(args) }
|
||||
if str_eq(tool_name, "assert") { return op_assert(args) }
|
||||
if str_eq(tool_name, "ground") { return op_ground(args) }
|
||||
if str_eq(tool_name, "learn") { return op_learn(args) }
|
||||
|
||||
// ── Session + orchestration ─────────────────────────────────────────────
|
||||
if str_eq(tool_name, "beginSession") { return tool_begin_session(args) }
|
||||
if str_eq(tool_name, "getInstructions") { return tool_get_instructions(args) }
|
||||
@@ -631,8 +1242,12 @@ fn dispatch_tool_call(tool_name: String, args: String) -> String {
|
||||
}
|
||||
|
||||
// ── Backlog + work ──────────────────────────────────────────────────────
|
||||
if str_eq(tool_name, "planWork") { return create_typed_node(args, "BacklogItem", "0.65") }
|
||||
if str_eq(tool_name, "reviewBacklog") { return search_with_query(args, 50) }
|
||||
// planWork: create a REAL typed BacklogItem via /api/neuron/node/create (the old path fell through
|
||||
// create_typed_node to a generic /memory write, dropping title/project/priority and never making a
|
||||
// BacklogItem). reviewBacklog: LIST BacklogItem nodes (was a lexical /recall that never filtered by
|
||||
// type). Both depend on the /api/neuron/list/<type> slice fix (neuron PR #58) to round-trip.
|
||||
if str_eq(tool_name, "planWork") { return create_node_typed(args, "BacklogItem", "Working") }
|
||||
if str_eq(tool_name, "reviewBacklog") { return list_typed("BacklogItem", 50, args) }
|
||||
if str_eq(tool_name, "trackWork") { return evolve_by_supersede(args, "Memory") }
|
||||
if str_eq(tool_name, "listWork") { return list_typed("WorkContext", 50, args) }
|
||||
if str_eq(tool_name, "beginWork") { return create_typed_node(args, "Memory", "0.70") }
|
||||
|
||||
@@ -1,9 +1,91 @@
|
||||
import "persist.el"
|
||||
|
||||
fn tier_working() -> String { return "Working" }
|
||||
fn tier_episodic() -> String { return "Episodic" }
|
||||
fn tier_canonical() -> String { return "Canonical" }
|
||||
|
||||
// ── Association on write ──────────────────────────────────────────────────────
|
||||
// DESIGN: "promotion integrates candidate nodes by linking them to existing nodes
|
||||
// using typed semantic edges RATHER THAN APPENDING AS UNLINKED CONTENT" (CCR
|
||||
// claim 29). Unlinked append is the explicitly rejected behaviour — and it is the
|
||||
// only behaviour this system had. Measured 2026-08-09 on Tim's graph: 14,214 edges
|
||||
// across 80,936 nodes, 5% of nodes connected to anything, and NO edge created by
|
||||
// any write since 2026-07-19 while 27,000+ nodes were added. A memory that forms
|
||||
// no connections cannot be reached by spreading activation, so retrieval silently
|
||||
// degrades to literal matching.
|
||||
//
|
||||
// BOUNDS, each one bought with a specific failure:
|
||||
// * max 3 edges per memory — link_memories.py's cap, precision over spray
|
||||
// * never link to identity (self/*, Value): the existing policy is explicit that
|
||||
// "memories must not pollute the self traversal by similarity; only an explicit
|
||||
// citation may touch identity". Similarity is not citation.
|
||||
// * never link telemetry (state-event, soul-response, boot_count, loop-outcome):
|
||||
// these are ~97% of daily write volume (1,020 vs 31 real memories on 08-08).
|
||||
// Linking them would add ~3,000 noise edges a day and re-flatten the graph in
|
||||
// the name of connecting it.
|
||||
// * fail-soft: a failed association never fails the write.
|
||||
// Edges go through wt_edge so they reach the owner and survive restart.
|
||||
fn mem_assoc_skip_label(label: String) -> Bool {
|
||||
if str_contains(label, "state-event") { return true }
|
||||
if str_contains(label, "soul-response") { return true }
|
||||
if str_contains(label, "soul-outbox") { return true }
|
||||
if str_contains(label, "boot_count") { return true }
|
||||
if str_contains(label, "loop-outcome") { return true }
|
||||
if str_contains(label, "search-result") { return true }
|
||||
return false
|
||||
}
|
||||
|
||||
// A candidate is linkable only if it is a real, distinct, non-identity node.
|
||||
fn mem_assoc_ok(cand_id: String, cand_label: String, self_id: String) -> Bool {
|
||||
if str_eq(cand_id, "") { return false }
|
||||
if str_eq(cand_id, self_id) { return false }
|
||||
// CASE MATTERS — measured 2026-08-09. A lowercase-only check let a memory link
|
||||
// to "Self — Values (grounded)", i.e. it polluted the self traversal, which is
|
||||
// the one thing this policy exists to prevent. My verification had the same
|
||||
// blind spot and printed PASS. Check every casing the graph actually uses, and
|
||||
// exclude identity node TYPES as well as labels.
|
||||
let lab: String = str_lower(cand_label)
|
||||
if str_starts_with(lab, "self") { return false }
|
||||
if str_starts_with(lab, "value") { return false }
|
||||
if str_contains(lab, "values") { return false }
|
||||
if str_contains(lab, "identity") { return false }
|
||||
if mem_assoc_skip_label(cand_label) { return false }
|
||||
return true
|
||||
}
|
||||
|
||||
// One slot of the association. Manual unroll rather than a loop: EL's codegen
|
||||
// mis-emits accumulating while-loops (documented at soul.el:212, which unrolled
|
||||
// three affective slots for the same reason).
|
||||
fn mem_assoc_slot(results: String, idx: Int, new_id: String) -> Void {
|
||||
if idx >= json_array_len(results) { return }
|
||||
let cand: String = json_array_get(results, idx)
|
||||
let cid: String = json_get(cand, "id")
|
||||
let clabel: String = json_get(cand, "label")
|
||||
let ctype: String = json_get(cand, "node_type")
|
||||
if str_eq(ctype, "Value") { return }
|
||||
if str_eq(ctype, "DharmaSelf") { return }
|
||||
if str_eq(ctype, "Safety") { return }
|
||||
if mem_assoc_ok(cid, clabel, new_id) {
|
||||
wt_edge(new_id, cid, el_from_float(0.5), "related")
|
||||
}
|
||||
}
|
||||
|
||||
// mem_associate — connect a freshly written memory to what it is about.
|
||||
fn mem_associate(new_id: String, content: String, label: String) -> Void {
|
||||
if str_eq(new_id, "") { return }
|
||||
if mem_assoc_skip_label(label) { return }
|
||||
// Ask the graph what this memory resembles. Now that the store carries
|
||||
// meaning-vectors this is semantic, not merely lexical.
|
||||
let probe: String = str_slice(content, 0, 400)
|
||||
let results: String = engram_recall_json(probe, 4)
|
||||
if str_eq(results, "") { return }
|
||||
mem_assoc_slot(results, 0, new_id)
|
||||
mem_assoc_slot(results, 1, new_id)
|
||||
mem_assoc_slot(results, 2, new_id)
|
||||
}
|
||||
|
||||
fn mem_store(content: String, label: String, tags: String) -> String {
|
||||
return engram_node_full(
|
||||
let id: String = wt_node(
|
||||
content,
|
||||
"Memory",
|
||||
label,
|
||||
@@ -13,6 +95,31 @@ fn mem_store(content: String, label: String, tags: String) -> String {
|
||||
"Working",
|
||||
tags
|
||||
)
|
||||
if str_eq(id, "") {
|
||||
println("[memory] write rejected by engram (empty id): label=" + label)
|
||||
return ""
|
||||
}
|
||||
// wt_node has already read the node back locally and returns "" if it did
|
||||
// not land, so the old duplicate read-back here is gone.
|
||||
//
|
||||
// HONESTY (neuron#117): the receipt now says WHERE the write is.
|
||||
// The old unconditional "write verified" line asserted against the soul's
|
||||
// own RAM — true in memory, false on disk — and printed ~115,000 times on
|
||||
// Tim's machine while the canonical snapshot sat frozen for three days.
|
||||
// wt_commit flushes the spool and then asks the OWNER. When it says false
|
||||
// the node is real and recallable but not yet durable, and the log says so
|
||||
// rather than claiming a save that did not happen. The id is still returned:
|
||||
// the local write DID succeed, and the queued delta will be retried.
|
||||
let durable: Bool = wt_commit(id)
|
||||
// Associate AFTER the node is durable: an edge to a node that did not persist
|
||||
// is a dangling edge, which is the defect the 2026-08-09 cleanup removed 830 of.
|
||||
mem_associate(id, content, label)
|
||||
if durable {
|
||||
println("[memory] write persisted at owner: " + id + " label=" + label)
|
||||
} else {
|
||||
println("[memory] write IN MEMORY ONLY (queued for owner, not yet durable): " + id + " label=" + label)
|
||||
}
|
||||
return id
|
||||
}
|
||||
|
||||
fn mem_remember(content: String, tags: String) -> String {
|
||||
@@ -31,22 +138,104 @@ fn mem_strengthen(node_id: String) -> Void {
|
||||
engram_strengthen(node_id)
|
||||
}
|
||||
|
||||
fn mem_forget(node_id: String) -> Void {
|
||||
engram_forget(node_id)
|
||||
// mem_tombstone — immutable "delete": KEEP the node and all its edges; record a
|
||||
// Tombstone marker (content = target id, label "tombstone:<id>", wired with a
|
||||
// "tombstones" edge). Never engram_forget. Default bounded list reads hide
|
||||
// tombstoned nodes; ?include_deleted=1 recovers them. This is the ONE canonical
|
||||
// tombstone helper — every forget path routes through it. Defined here in
|
||||
// memory.el (imported first) so awareness.el and neuron-api.el can both call it.
|
||||
fn mem_tombstone(node_id: String) -> String {
|
||||
let tags: String = "[\"Tombstone\",\"status:deleted\"]"
|
||||
let marker: String = wt_node(
|
||||
node_id, "Tombstone", "tombstone:" + node_id,
|
||||
el_from_float(0.01), el_from_float(0.01), el_from_float(1.0),
|
||||
"Episodic", tags)
|
||||
if !str_eq(marker, "") {
|
||||
wt_edge(marker, node_id, el_from_float(1.0), "tombstones")
|
||||
}
|
||||
return marker
|
||||
}
|
||||
|
||||
// mem_forget — NOTE: no longer a hard delete. Engram nodes are immutable, so
|
||||
// this now TOMBSTONES (via mem_tombstone): the node and its edges are kept and
|
||||
// stay recoverable. Every caller (the /memory/forget route and the cultivate
|
||||
// forget op) is non-destructive as a result. Internal GC that genuinely needs
|
||||
// removal (session-summary replace, telemetry pruning) calls engram_forget
|
||||
// directly and is unaffected by this.
|
||||
fn mem_forget(node_id: String) -> Void {
|
||||
let _marker: String = mem_tombstone(node_id)
|
||||
}
|
||||
|
||||
// mem_consolidate — structural scan plus salience-evolution pass.
|
||||
//
|
||||
// Previously this only returned structural counts (scanned, total_nodes, total_edges)
|
||||
// with no salience updates. No node salience ever changed based on recall frequency
|
||||
// or time; foundational nodes decayed identically to ephemeral chat; frequently-recalled
|
||||
// nodes were never promoted. This made consolidation a no-op.
|
||||
//
|
||||
// New behavior:
|
||||
// (a) Strengthen frequently-activated nodes: nodes in the top working-memory list
|
||||
// (engram_wm_top_json) are strengthened — they have been recalled recently
|
||||
// and deserve higher salience. Raises effective salience for nodes that prove
|
||||
// relevant across multiple sessions.
|
||||
// (b) Strengthen Canonical-tier nodes: identity and foundational nodes should not
|
||||
// decay; each consolidation pass re-strengthens them so they resist the
|
||||
// tier-aware decay curve without requiring active recall.
|
||||
// (c) Structural counts are still returned for observability.
|
||||
//
|
||||
// Called by awareness_run() on the "consolidate" inbox action.
|
||||
fn mem_consolidate() -> String {
|
||||
let scanned: Int = engram_node_count()
|
||||
let dummy: String = engram_scan_nodes_json(100, 0)
|
||||
let total_nodes: Int = engram_node_count()
|
||||
let total_edges: Int = engram_edge_count()
|
||||
let strengthened: Int = 0
|
||||
|
||||
// (a) Strengthen top working-memory nodes — recalled recently across sessions.
|
||||
// Cap at 10 to keep consolidation fast.
|
||||
let wm_top: String = engram_wm_top_json(10)
|
||||
let wm_len: Int = json_array_len(wm_top)
|
||||
let wi: Int = 0
|
||||
while wi < wm_len {
|
||||
let wm_node: String = json_array_get(wm_top, wi)
|
||||
let wm_id: String = json_get(wm_node, "id")
|
||||
if !str_eq(wm_id, "") {
|
||||
engram_strengthen(wm_id)
|
||||
let strengthened = strengthened + 1
|
||||
}
|
||||
let wi = wi + 1
|
||||
}
|
||||
|
||||
// (b) Strengthen Canonical-tier nodes from a scan so they resist temporal decay.
|
||||
// Canonical nodes encode foundational identity — they must not silently floor at 10.
|
||||
let scan_result: String = engram_scan_nodes_json(50, 0)
|
||||
let scan_len: Int = json_array_len(scan_result)
|
||||
let si: Int = 0
|
||||
while si < scan_len {
|
||||
let s_node: String = json_array_get(scan_result, si)
|
||||
let s_tier: String = json_get(s_node, "tier")
|
||||
let s_id: String = json_get(s_node, "id")
|
||||
if str_eq(s_tier, "Canonical") && !str_eq(s_id, "") {
|
||||
engram_strengthen(s_id)
|
||||
let strengthened = strengthened + 1
|
||||
}
|
||||
let si = si + 1
|
||||
}
|
||||
|
||||
let total_nodes: Int = engram_node_count()
|
||||
return "{\"scanned\":" + int_to_str(scanned)
|
||||
+ ",\"total_nodes\":" + int_to_str(total_nodes)
|
||||
+ ",\"total_edges\":" + int_to_str(total_edges) + "}"
|
||||
+ ",\"total_edges\":" + int_to_str(total_edges)
|
||||
+ ",\"strengthened\":" + int_to_str(strengthened) + "}"
|
||||
}
|
||||
|
||||
fn mem_save(path: String) -> Void {
|
||||
engram_save(path)
|
||||
// engram_save returns an Int (1 = ok, 0 = failure), NOT a String. Calling
|
||||
// str_eq on it casts EL_CSTR(1) -> (char*)0x1 and SIGSEGVs on a SUCCESSFUL
|
||||
// save — which is exactly what a fresh-install genesis boot does first
|
||||
// (seeds the brain, saves, crashes). This is issue #150. Check the Int.
|
||||
let saved: Int = engram_save(path)
|
||||
if saved == 0 {
|
||||
println("[memory] mem_save: engram_save failed for " + path + " — snapshot may be incomplete")
|
||||
}
|
||||
}
|
||||
|
||||
fn mem_load(path: String) -> Void {
|
||||
@@ -68,19 +257,95 @@ fn mem_boot_count_get() -> Int {
|
||||
return str_to_int(num_str)
|
||||
}
|
||||
|
||||
// mem_boot_count_inc — increment boot counter, store new node, return new count.
|
||||
// Each boot creates a new "soul:boot_count:N" node. Old ones accumulate as
|
||||
// history — the search above always returns the highest value seen.
|
||||
// mem_boot_count_inc — increment boot counter, store a single canonical node, return new count.
|
||||
// Prunes ALL existing soul:boot_count nodes before inserting the new one so there is
|
||||
// always at most ONE such node in the graph. Without pruning, engram_node_full inserts
|
||||
// a new node every boot (no upsert) and the old ones accumulate. The search-first
|
||||
// approach also fixes a latent ordering bug: engram_search_json returns oldest-first,
|
||||
// so mem_boot_count_get() with limit=3 would read a stale (lower) count once more
|
||||
// than 3 copies accumulate.
|
||||
fn mem_boot_count_inc() -> Int {
|
||||
let current: Int = mem_boot_count_get()
|
||||
let next: Int = current + 1
|
||||
// Prune all existing boot_count nodes — keep exactly one.
|
||||
let old_results: String = engram_search_json("soul:boot_count", 50)
|
||||
if !str_eq(old_results, "") && !str_eq(old_results, "[]") {
|
||||
let old_len: Int = json_array_len(old_results)
|
||||
let oi: Int = 0
|
||||
while oi < old_len {
|
||||
let old_node: String = json_array_get(old_results, oi)
|
||||
let old_id: String = json_get(old_node, "id")
|
||||
if !str_eq(old_id, "") {
|
||||
engram_forget(old_id)
|
||||
}
|
||||
let oi = oi + 1
|
||||
}
|
||||
}
|
||||
let content: String = "soul:boot_count:" + int_to_str(next)
|
||||
let tags: String = "[\"soul-meta\",\"boot-counter\"]"
|
||||
let discard: String = engram_node_full(
|
||||
// TELEMETRY DEMOTION (2026-07-24 self-review): this counter was written at
|
||||
// salience 0.9 / importance 0.9 / tier Canonical — Canonical gets +0.2
|
||||
// goal bias and the 0.15 promotion threshold, so three stale copies of a
|
||||
// BOOT COUNTER held the top working-memory slots (wm 0.31+) for 23h,
|
||||
// crowding out real context. It is plumbing, not memory. Working tier:
|
||||
// 0.40 threshold, no tier bias, and the /api/sync route excludes
|
||||
// Working-tier nodes — so the counter also stops leaking to the engram
|
||||
// server graph, which is where the duplicate copies accumulated (the
|
||||
// prune below only reaches the soul's local graph). Persistence across
|
||||
// restarts comes from the soul's own snapshot (mem_save), not from sync.
|
||||
let boot_node_id: String = engram_node_full(
|
||||
content, "Memory", "soul:boot_count",
|
||||
el_from_float(0.9), el_from_float(0.9), el_from_float(1.0),
|
||||
"Canonical", tags
|
||||
el_from_float(0.55), el_from_float(0.2), el_from_float(1.0),
|
||||
"Working", tags
|
||||
)
|
||||
if str_eq(boot_node_id, "") {
|
||||
println("[memory] mem_boot_count_inc: write rejected (empty id) — boot counter node lost (count=" + int_to_str(next) + ")")
|
||||
return next
|
||||
}
|
||||
let boot_readback: String = engram_get_node_json(boot_node_id)
|
||||
if str_eq(boot_readback, "") || str_eq(boot_readback, "{}") {
|
||||
println("[memory] mem_boot_count_inc: WRITE VERIFY FAILED id=" + boot_node_id + " count=" + int_to_str(next))
|
||||
}
|
||||
// HTTP WRITE-BACK (2026-07-24 self-review): in HTTP-engram mode the server
|
||||
// owns persistence and the soul's in-process graph dies with the process —
|
||||
// the local create above is invisible to the next boot. The counter only
|
||||
// ever "persisted" via a long-gone push path, which is why the log shows
|
||||
// boot #5 on three consecutive boots. Mirror the persona write-back
|
||||
// pattern: delete stale server copies (dupes were the 23h WM-pollution
|
||||
// bug), then create the demoted replacement server-side. Boot seeding
|
||||
// reads /api/nodes, which includes Working-tier nodes, so the count
|
||||
// survives restarts; the periodic /api/sync excludes Working tier, so it
|
||||
// never re-imports mid-session. Fail-soft: on any HTTP error the counter
|
||||
// is in-memory-only this session, same as before.
|
||||
let wb_url: String = env("ENGRAM_URL")
|
||||
let wb_key: String = env("ENGRAM_API_KEY")
|
||||
if !str_eq(wb_url, "") && !str_eq(wb_key, "") {
|
||||
let auth_body: String = "{\"_auth\":\"" + json_safe(wb_key) + "\"}"
|
||||
let srv_old: String = http_get(wb_url + "/api/search?q=soul:boot_count&limit=20")
|
||||
if !str_eq(srv_old, "") && !str_eq(srv_old, "[]") {
|
||||
let srv_len: Int = json_array_len(srv_old)
|
||||
let si: Int = 0
|
||||
while si < srv_len {
|
||||
let srv_node: String = json_array_get(srv_old, si)
|
||||
// Match by CONTENT prefix, not label: route_create_node sets
|
||||
// label = content, so server-side counter nodes carry labels
|
||||
// like "soul:boot_count:6". (2026-07-24)
|
||||
let srv_content: String = json_get(srv_node, "content")
|
||||
if str_starts_with(srv_content, "soul:boot_count:") {
|
||||
let srv_id: String = json_get(srv_node, "id")
|
||||
if !str_eq(srv_id, "") {
|
||||
http_delete_json(wb_url + "/api/nodes/" + srv_id, auth_body)
|
||||
}
|
||||
}
|
||||
let si = si + 1
|
||||
}
|
||||
}
|
||||
let wb_body: String = "{\"content\":\"" + content + "\",\"node_type\":\"Memory\",\"label\":\"soul:boot_count\",\"salience\":0.55,\"importance\":0.2,\"tier\":\"Working\",\"tags\":\"[\\\"soul-meta\\\",\\\"boot-counter\\\"]\",\"_auth\":\"" + json_safe(wb_key) + "\"}"
|
||||
let wb_resp: String = http_post_json(wb_url + "/api/nodes", wb_body)
|
||||
if str_contains(wb_resp, "\"error\"") {
|
||||
println("[memory] mem_boot_count_inc: HTTP write-back failed (count in-memory only): " + wb_resp)
|
||||
}
|
||||
}
|
||||
return next
|
||||
}
|
||||
|
||||
@@ -98,9 +363,13 @@ fn mem_emit_state_event(trigger: String, kind: String, content: String) -> Strin
|
||||
+ ",\"boot\":" + int_to_str(boot)
|
||||
+ ",\"ts\":" + int_to_str(ts) + "}"
|
||||
let tags: String = "[\"internal-state\",\"pre-reasoning\",\"InternalStateEvent\"]"
|
||||
return engram_node_full(
|
||||
let event_id: String = engram_node_full(
|
||||
payload, "InternalStateEvent", "state-event:" + kind,
|
||||
el_from_float(0.85), el_from_float(0.8), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
if str_eq(event_id, "") {
|
||||
println("[memory] mem_emit_state_event: write rejected (empty id): kind=" + kind)
|
||||
}
|
||||
return event_id
|
||||
}
|
||||
|
||||
@@ -7,6 +7,7 @@ extern fn mem_remember(content: String, tags: String) -> String
|
||||
extern fn mem_recall(query: String, depth: Int) -> String
|
||||
extern fn mem_search(query: String, limit: Int) -> String
|
||||
extern fn mem_strengthen(node_id: String) -> Void
|
||||
extern fn mem_tombstone(node_id: String) -> String
|
||||
extern fn mem_forget(node_id: String) -> Void
|
||||
extern fn mem_consolidate() -> String
|
||||
extern fn mem_save(path: String) -> Void
|
||||
|
||||
+1015
-50
File diff suppressed because it is too large
Load Diff
@@ -8,9 +8,28 @@ extern fn api_ok(extra: String) -> String
|
||||
extern fn api_err(msg: String) -> String
|
||||
extern fn api_nonempty(s: String) -> Bool
|
||||
extern fn api_or_empty(s: String) -> String
|
||||
extern fn api_num_or_zero(obj: String, key: String) -> String
|
||||
extern fn api_utf8_trunc(s: String, n: Int) -> String
|
||||
extern fn api_compact_node(node: String, snip: Int) -> String
|
||||
extern fn api_compact_node_array(raw: String, max_items: Int, snip: Int) -> String
|
||||
extern fn api_compact_activated(raw: String, max_items: Int, snip: Int) -> String
|
||||
extern fn api_float_or(obj: String, key: String, dflt: Float) -> Float
|
||||
extern fn api_neigh_better(a: String, b: String) -> Bool
|
||||
extern fn api_neigh_rank(raw: String, n: Int, i: Int) -> Int
|
||||
extern fn api_neigh_full(node: String, edge: String, el: String, snip: Int) -> String
|
||||
extern fn api_neigh_pointer(node: String, edge: String, el: String) -> String
|
||||
extern fn api_compact_neighbors(raw: String, k_content: Int, snip: Int) -> String
|
||||
extern fn api_persisted(id: String) -> Bool
|
||||
extern fn api_not_persisted(id: String) -> String
|
||||
extern fn tombstone_node(id: String) -> String
|
||||
extern fn tombstoned_id_set() -> String
|
||||
extern fn memory_hide_tombstoned(raw: String, path: String) -> String
|
||||
extern fn handle_api_begin_session(body: String) -> String
|
||||
extern fn handle_api_compile_ctx(body: String) -> String
|
||||
extern fn handle_api_remember(body: String) -> String
|
||||
extern fn handle_api_node_create(body: String) -> String
|
||||
extern fn handle_api_node_delete(body: String) -> String
|
||||
extern fn handle_api_node_update(body: String) -> String
|
||||
extern fn handle_api_recall(method: String, path: String, body: String) -> String
|
||||
extern fn handle_api_search_knowledge(method: String, path: String, body: String) -> String
|
||||
extern fn handle_api_browse_knowledge(path: String, body: String) -> String
|
||||
@@ -27,6 +46,9 @@ extern fn handle_api_inspect_graph(method: String, path: String, body: String) -
|
||||
extern fn handle_api_link_entities(body: String) -> String
|
||||
extern fn handle_api_forget(body: String) -> String
|
||||
extern fn handle_api_evolve_memory(body: String) -> String
|
||||
extern fn handle_api_memory_delete(body: String) -> String
|
||||
extern fn handle_api_memory_update(body: String) -> String
|
||||
extern fn handle_api_cultivate(body: String) -> String
|
||||
extern fn handle_api_list_typed(node_type: String, path: String, body: String) -> String
|
||||
extern fn handle_api_consolidate(body: String) -> String
|
||||
extern fn handle_api_structural_audit(method: String, path: String, body: String) -> String
|
||||
|
||||
@@ -0,0 +1,171 @@
|
||||
# neuron-dev-setup — one-command Neuron CORE dev stack
|
||||
|
||||
Stand up an identical **Neuron brain + agent** on a fresh Mac so any developer
|
||||
gets the same local runtime to build against. This is the **CORE** dev stack
|
||||
only — the four native `launchd` services that make Neuron think, remember, and
|
||||
speak MCP to Claude Code. Will's personal automations (catalyst, telegram,
|
||||
vessels, studio, self-review, world-integrator, council, compressor, snapshots,
|
||||
act-runner, …) are **deliberately excluded**.
|
||||
|
||||
```
|
||||
┌─────────────┐ ┌──────────────┐
|
||||
│ soul :7770 │ ─────► │ engram :8742 │ the mind ──► its memory substrate
|
||||
└─────────────┘ └──────────────┘
|
||||
▲
|
||||
│
|
||||
┌───────────────────┐
|
||||
│ mcp-wrapper :17779│ ─── MCP surface over the soul HTTP API (internal)
|
||||
└───────────────────┘
|
||||
▲
|
||||
│
|
||||
┌────────────────┐
|
||||
│ mcp-proxy :7779│ ◄─── Claude Code connects here (stable front door)
|
||||
└────────────────┘
|
||||
```
|
||||
|
||||
Claude Code's `neuron` MCP server points at `http://127.0.0.1:7779/` — the proxy.
|
||||
The proxy forwards to the wrapper (`:17779`), which calls the soul (`:7770`),
|
||||
which reads/writes the engram (`:8742`). The engram is the persistent brain.
|
||||
|
||||
## Quick start
|
||||
|
||||
```bash
|
||||
git clone <this-repo> && cd neuron-dev-setup
|
||||
cp config.env.example config.env # optional — edit ports/paths if you like
|
||||
./install.sh # prompts for your Anthropic API key
|
||||
```
|
||||
|
||||
Then verify:
|
||||
|
||||
```bash
|
||||
curl http://localhost:8742/health # engram
|
||||
curl http://localhost:7770/health # soul
|
||||
curl http://localhost:7779/health # mcp-proxy (what Claude Code uses)
|
||||
launchctl list | grep ai.neuron
|
||||
```
|
||||
|
||||
Open Claude Code — the `neuron` MCP tools should be live, backed by **your own**
|
||||
local brain. `./install.sh --dry-run` shows every action without touching anything.
|
||||
|
||||
## What the installer does (8 phases)
|
||||
|
||||
| Phase | Action |
|
||||
|------|--------|
|
||||
| 1 | Preflight: macOS/arm64, ensure `git cc curl python3` + `openssl@3` (via Homebrew) |
|
||||
| 2 | Prompt for the **Anthropic API key**, store it in the **macOS Keychain** (never a file) |
|
||||
| 3 | Clone `neuron`, `engram`, `foundation`; fetch the El toolchain; build 4 binaries + `forge` |
|
||||
| 4 | Lay down `~/.neuron/{bin,logs,engram}` and the templated `soul-wrapper.sh` |
|
||||
| 5 | Generate + load the 4 core LaunchAgents (engram → soul → wrapper → proxy) |
|
||||
| 6 | Seed a fresh engram with the **genesis identity** via `forge install` |
|
||||
| 7 | Install Claude config: `neuron` agent, core hooks, local MCP registration |
|
||||
| 8 | Health-check all four ports |
|
||||
|
||||
Everything is **idempotent** (safe to re-run) and **templated** to the invoking
|
||||
user's `$HOME` — no path is hardcoded to another machine.
|
||||
|
||||
## Prerequisites
|
||||
|
||||
- macOS on Apple Silicon (uses `launchd`; soul build flags assume arm64).
|
||||
- **Xcode Command Line Tools** (`xcode-select --install`) — provides `cc`, `git`.
|
||||
- **Homebrew** — for `openssl@3`, `curl`.
|
||||
- An **Anthropic API key** — the soul's inference provider. Prompted for; stored
|
||||
in Keychain under service `neuron-llm-0-key`; read at launch by `soul-wrapper.sh`.
|
||||
- **Git access** to Gitea (`git.neuralplatform.ai`) for the source repos.
|
||||
- **GCP access** to project `neuron-785695` Artifact Registry (default El
|
||||
toolchain source). Ask Will to grant it, or set `EL_TOOLCHAIN_SOURCE=local`.
|
||||
|
||||
## Core-stack map (what gets replicated)
|
||||
|
||||
| Service | Port | Binary | Built from | LaunchAgent |
|
||||
|---------|------|--------|------------|-------------|
|
||||
| soul | 7770 | `neuron/dist/neuron` | `dist/soul.c` + El runtime, `cc` (CI recipe) | `ai.neuron.soul` |
|
||||
| engram | 8742 | `engram/dist/engram` | `engram` repo `src/server.el` via `elc`→`cc` | `ai.neuron.engram` |
|
||||
| mcp-wrapper | 17779 | `neuron/mcp-wrapper/dist/neuron-mcp-wrapper` | `mcp-wrapper/src/main.el` | `ai.neuron.mcp-wrapper` |
|
||||
| mcp-proxy | 7779 | `neuron/mcp-proxy/dist/neuron-mcp-proxy` | `mcp-proxy/src/main.el` | `ai.neuron.mcp-proxy` |
|
||||
|
||||
**`~/.neuron` layout the installer creates**
|
||||
|
||||
```
|
||||
~/.neuron/
|
||||
bin/soul-wrapper.sh # reads Anthropic key from Keychain, execs the soul binary
|
||||
logs/ # soul.*.log, engram.log, mcp-*.log
|
||||
engram/ # ENGRAM_DATA_DIR — the persistent brain (snapshot.json + db)
|
||||
```
|
||||
|
||||
**Identity seed.** `foundation/forge/seeds/neuron-genesis-seed.json` carries
|
||||
`identity_nodes[]` + `edges[]` with **fixed** knowledge-node IDs (e.g.
|
||||
`kn-efeb4a5b-5aff-4759-8a97-7233099be6ee`, the "self" traversal root). Those exact
|
||||
IDs are referenced by the SessionStart self-load hook and the neuron agent, so
|
||||
seeding must **preserve IDs** — `forge install <seed>` is the mechanism.
|
||||
|
||||
**Claude config installed** (`~/.claude/`)
|
||||
|
||||
- `agents/neuron.md` — the Neuron agent (identity, session protocol, five primitives).
|
||||
- `mcp.json` — registers `neuron` → `http://127.0.0.1:7779/`.
|
||||
- `settings.json` hooks (CORE subset only):
|
||||
- `SessionStart` → `neuron-self-load.sh` (loads identity from the seeded engram)
|
||||
- `PreToolUse:Agent` → `neuron-agent-preamble.sh` (subagents load substrate first)
|
||||
- `PreCompact` → `pre-compact.sh` (clean context recovery)
|
||||
|
||||
### Deliberately EXCLUDED from core
|
||||
|
||||
- **`check-active-contexts.sh`** and **`require-execution-context.sh`** — these
|
||||
depend on a separate filesystem repo `~/Development/projects/active/neuron/synapse`.
|
||||
`require-execution-context.sh` is a hard `Edit/Write` gate that would **block a
|
||||
fresh dev from editing any file** without that synapse repo. Not core; excluded.
|
||||
- `engram-mirror.py` (PostToolUse) — optional; mirrors MCP writes to engram.
|
||||
- All Will-personal LaunchAgents: `catalyst-*`, `telegram-gateway`, `vessel.*`,
|
||||
`studio`, `self-review`, `world-integrator`, `council`, `compressor`,
|
||||
`cultivation-digest`, `snapshot-backup`, `engram-backup`, `act-runner`, `keymap`,
|
||||
`invest`, and the disabled `ai.neuron.api` (`:7771` is a personal Python
|
||||
perception helper — confirmed not core).
|
||||
|
||||
## Secrets — how they're handled
|
||||
|
||||
- **Anthropic key**: prompted for; stored in Keychain; read at launch. Never in a
|
||||
plist, this repo, or a log.
|
||||
- **Engram local token** (`ENGRAM_API_KEY`): a *loopback-only* dev token, not a
|
||||
cloud secret. Defaults to a generated `ntn-dev-*` value; override in `config.env`.
|
||||
- No cloud tokens, Vault tokens, CF-Access secrets, or founder keys are copied.
|
||||
(Will's live `start-daemon.sh`/`neuron-api-launch.sh` contain such keys — this
|
||||
installer intentionally does **not** use those files.)
|
||||
|
||||
## Uninstall
|
||||
|
||||
```bash
|
||||
./uninstall.sh # stop + remove the 4 LaunchAgents and added Claude hooks
|
||||
./uninstall.sh --purge-data # ALSO delete ~/.neuron/engram (destroys the brain)
|
||||
```
|
||||
|
||||
## OPEN QUESTIONS (need Will to confirm)
|
||||
|
||||
1. **El toolchain acquisition.** The default path fetches `el-runtime-c/-h` and
|
||||
`el-elc` from GCP Artifact Registry (mirrors `neuron/.gitea/workflows/ci.yaml`).
|
||||
A new dev needs GCP access to `neuron-785695`. Is that the intended path, or
|
||||
should the El SDK be published/vendored for onboarding?
|
||||
2. **`elc` invocation for engram/wrapper/proxy.** The soul build (`cc dist/soul.c
|
||||
+ el_runtime.c`) is verified from CI. The `.el → .c` transpile step for engram,
|
||||
mcp-wrapper, and mcp-proxy is inferred (`elc <src> -o <out.c>`). Confirm the
|
||||
exact flags / entrypoints (CI notes `elb` OOMs on Linux; macOS builds differ).
|
||||
3. **`forge install` ID preservation.** Confirm `forge install` writes the seed's
|
||||
fixed `kn-` IDs verbatim (the self-load hook hardcodes `kn-efeb4a5b…`). If it
|
||||
re-mints IDs, the hook + agent identity load would break on a fresh brain.
|
||||
4. **engram repo layout.** The live engram binary is built from `src/server.el`
|
||||
(Gitea repo `neuron-technologies/engram`, cloned in CI). Confirm that repo is
|
||||
the canonical source for onboarding (the local `foundation/el/engram` copy has
|
||||
the same `src/server.el`).
|
||||
5. **Home for this bundle** — see below.
|
||||
|
||||
## Where this should live (recommendation)
|
||||
|
||||
**Recommendation: a dedicated `neuron-dev-setup` (or `neuron-onboarding`) repo —
|
||||
NOT `neuron-code`.** `neuron-code` already exists as a real product ("Neuron Code",
|
||||
a coding tool with `nc-cli` + vessels — local `products/neuron-code` has commits);
|
||||
repurposing it for onboarding would collide with a shipped product's identity.
|
||||
|
||||
This bundle was scaffolded as `neuron-dev-setup/` on branch `feat/neuron-dev-setup`
|
||||
in the **`neuron` repo** (off `origin/main`) and opened as a PR for review, because
|
||||
the neuron repo already hosts the soul source, the verified CI build recipe, and
|
||||
the mcp-wrapper/proxy sources — the natural review surface. If you'd rather it be
|
||||
its own repo, move this directory into a fresh `neuron-dev-setup` repo verbatim;
|
||||
nothing here depends on living inside the neuron repo.
|
||||
@@ -0,0 +1,45 @@
|
||||
# neuron-dev-setup — configuration
|
||||
# Copy to config.env and edit if you want non-default paths/ports.
|
||||
# install.sh sources this file if it exists; otherwise it uses these defaults.
|
||||
# NOTHING here is a secret. The Anthropic API key is read from your Keychain,
|
||||
# never from this file. See README.md.
|
||||
|
||||
# ── Where the core stack lives ────────────────────────────────────────────────
|
||||
# All paths are relative to your own $HOME — never hardcode another user's home.
|
||||
NEURON_HOME="${HOME}/.neuron" # runtime home: bin/, logs/, engram data
|
||||
DEV_ROOT="${HOME}/Development/neuron-technologies" # where source repos are cloned/built
|
||||
|
||||
# ── Git remotes (Gitea is primary) ───────────────────────────────────────────
|
||||
GITEA_BASE="git@git.neuralplatform.ai:neuron-technologies"
|
||||
NEURON_REPO_URL="${GITEA_BASE}/neuron.git" # soul + mcp-wrapper + mcp-proxy source
|
||||
ENGRAM_REPO_URL="${GITEA_BASE}/engram.git" # engram memory substrate
|
||||
# NOTE: there is no foundation.git repo. The El toolchain is fetched via
|
||||
# EL_TOOLCHAIN_SOURCE below; the forge seed installer is optional (Phase 6).
|
||||
NEURON_REPO_BRANCH="main"
|
||||
|
||||
# ── Ports (must match across services; change only if a port clashes) ─────────
|
||||
SOUL_PORT="7770" # soul daemon HTTP API
|
||||
ENGRAM_PORT="8742" # engram memory substrate
|
||||
WRAPPER_PORT="17779" # mcp-wrapper (internal, talks to soul)
|
||||
PROXY_PORT="7779" # mcp-proxy (stable front door Claude Code connects to)
|
||||
|
||||
# ── Engram ────────────────────────────────────────────────────────────────────
|
||||
ENGRAM_DATA_DIR="${NEURON_HOME}/engram"
|
||||
# Local shared auth token for the engram/soul HTTP APIs on loopback. This is a
|
||||
# LOCAL dev token (not a cloud secret); override it if you like. install.sh will
|
||||
# generate a random one if you leave it empty.
|
||||
ENGRAM_API_KEY="ntn-dev-local"
|
||||
|
||||
# ── El toolchain source (needed to build engram / mcp-wrapper / mcp-proxy) ────
|
||||
# Option A (default): fetch prebuilt El runtime + elc from GCP Artifact Registry
|
||||
# (requires `gcloud auth` with access to project neuron-785695 — ask Will).
|
||||
# Without gcloud the installer skips the El-dependent builds and still completes.
|
||||
# Option B: use a prebuilt El toolchain (elc + el_runtime.{c,h}) you have already
|
||||
# staged in ${DEV_ROOT}/.el-runtime.
|
||||
EL_TOOLCHAIN_SOURCE="artifact-registry" # artifact-registry | local
|
||||
GCP_PROJECT="neuron-785695"
|
||||
GCP_AR_REPO="foundation-prod"
|
||||
GCP_AR_LOCATION="us-central1"
|
||||
|
||||
# ── Keychain service name for the Anthropic key (read by soul-wrapper.sh) ─────
|
||||
KEYCHAIN_SERVICE="neuron-llm-0-key"
|
||||
Executable
+441
@@ -0,0 +1,441 @@
|
||||
#!/usr/bin/env bash
|
||||
#
|
||||
# neuron-dev-setup / install.sh
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# One-command onboarding for the Neuron CORE dev stack on a fresh Mac.
|
||||
#
|
||||
# Stands up, as native launchd services, the four processes a developer needs to
|
||||
# have an identical "Neuron brain + agent" to build against:
|
||||
#
|
||||
# soul (:7770) ──► engram (:8742) the mind + its memory substrate
|
||||
# ▲ ▲
|
||||
# │ │
|
||||
# mcp-wrapper (:17779) ──► soul MCP surface over the soul API
|
||||
# ▲
|
||||
# │
|
||||
# mcp-proxy (:7779) ◄── Claude Code stable MCP front door
|
||||
#
|
||||
# It also seeds a fresh engram with Neuron's identity (the genesis seed) and lays
|
||||
# down the Claude Code config (neuron agent + core hooks + local MCP registration)
|
||||
# so a new dev's `claude` talks to *their own* local Neuron.
|
||||
#
|
||||
# DESIGN RULES
|
||||
# * Idempotent: safe to re-run. Existing state is detected and reused.
|
||||
# * Templated: every path/port/user is derived from $HOME and config.env.
|
||||
# Nothing is hardcoded to another developer's machine.
|
||||
# * Secret-free: the Anthropic key is prompted for and stored in the macOS
|
||||
# Keychain. No key is ever written to a plist, this repo, or a logfile.
|
||||
#
|
||||
# USAGE
|
||||
# ./install.sh # full install
|
||||
# ./install.sh --dry-run # print what would happen, touch nothing
|
||||
# ./install.sh --skip-build # assume binaries already built (see --use-local)
|
||||
# ./install.sh --skip-services # lay down files but don't load LaunchAgents
|
||||
# ./install.sh --help
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
set -euo pipefail
|
||||
|
||||
# ── Locate ourselves ─────────────────────────────────────────────────────────
|
||||
SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
|
||||
TEMPLATES="${SCRIPT_DIR}/templates"
|
||||
|
||||
# ── Flags ────────────────────────────────────────────────────────────────────
|
||||
DRY_RUN=0; SKIP_BUILD=0; SKIP_SERVICES=0; USE_LOCAL_BINARIES=0
|
||||
for arg in "$@"; do
|
||||
case "$arg" in
|
||||
--dry-run) DRY_RUN=1 ;;
|
||||
--skip-build) SKIP_BUILD=1 ;;
|
||||
--skip-services) SKIP_SERVICES=1 ;;
|
||||
--use-local) USE_LOCAL_BINARIES=1 ;;
|
||||
--help|-h)
|
||||
sed -n '2,40p' "${BASH_SOURCE[0]}" | sed 's/^# \{0,1\}//'
|
||||
exit 0 ;;
|
||||
*) echo "unknown flag: $arg" >&2; exit 2 ;;
|
||||
esac
|
||||
done
|
||||
|
||||
# ── Pretty logging ───────────────────────────────────────────────────────────
|
||||
c_blue=$'\033[1;34m'; c_grn=$'\033[1;32m'; c_yel=$'\033[1;33m'; c_red=$'\033[1;31m'; c_off=$'\033[0m'
|
||||
step() { echo "${c_blue}▶${c_off} $*"; }
|
||||
ok() { echo "${c_grn}✓${c_off} $*"; }
|
||||
warn() { echo "${c_yel}!${c_off} $*"; }
|
||||
die() { echo "${c_red}✗ $*${c_off}" >&2; exit 1; }
|
||||
run() { if [ "$DRY_RUN" = 1 ]; then echo " [dry-run] $*"; else eval "$*"; fi; }
|
||||
|
||||
# ── Load config ──────────────────────────────────────────────────────────────
|
||||
if [ -f "${SCRIPT_DIR}/config.env" ]; then
|
||||
# shellcheck disable=SC1091
|
||||
source "${SCRIPT_DIR}/config.env"
|
||||
else
|
||||
# shellcheck disable=SC1091
|
||||
source "${SCRIPT_DIR}/config.env.example"
|
||||
warn "No config.env found — using defaults from config.env.example."
|
||||
fi
|
||||
|
||||
# Derived / defaulted values (never hardcode a home directory)
|
||||
: "${NEURON_HOME:=${HOME}/.neuron}"
|
||||
: "${DEV_ROOT:=${HOME}/Development/neuron-technologies}"
|
||||
: "${SOUL_PORT:=7770}"; : "${ENGRAM_PORT:=8742}"; : "${WRAPPER_PORT:=17779}"; : "${PROXY_PORT:=7779}"
|
||||
: "${ENGRAM_DATA_DIR:=${NEURON_HOME}/engram}"
|
||||
: "${ENGRAM_API_KEY:=}"
|
||||
: "${KEYCHAIN_SERVICE:=neuron-llm-0-key}"
|
||||
: "${EL_TOOLCHAIN_SOURCE:=artifact-registry}"
|
||||
: "${NEURON_REPO_BRANCH:=main}"
|
||||
|
||||
NEURON_REPO="${DEV_ROOT}/neuron"
|
||||
ENGRAM_REPO="${DEV_ROOT}/engram"
|
||||
FOUNDATION_REPO="${DEV_ROOT}/foundation"
|
||||
|
||||
SOUL_BIN="${NEURON_REPO}/dist/neuron"
|
||||
ENGRAM_BIN="${ENGRAM_REPO}/dist/engram"
|
||||
MCP_WRAPPER_BIN="${NEURON_REPO}/mcp-wrapper/dist/neuron-mcp-wrapper"
|
||||
MCP_PROXY_BIN="${NEURON_REPO}/mcp-proxy/dist/neuron-mcp-proxy"
|
||||
FORGE_BIN="${FOUNDATION_REPO}/forge/dist/forge"
|
||||
GENESIS_SEED="${FOUNDATION_REPO}/forge/seeds/neuron-genesis-seed.json"
|
||||
|
||||
LAUNCHAGENTS="${HOME}/Library/LaunchAgents"
|
||||
CLAUDE_DIR="${HOME}/.claude"
|
||||
|
||||
# Generate a local engram token if none was supplied.
|
||||
if [ -z "${ENGRAM_API_KEY}" ]; then
|
||||
ENGRAM_API_KEY="ntn-dev-$(head -c8 /dev/urandom | xxd -p 2>/dev/null || echo local)"
|
||||
fi
|
||||
|
||||
echo
|
||||
echo "${c_blue}━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━${c_off}"
|
||||
echo "${c_blue} Neuron CORE dev stack installer${c_off}"
|
||||
echo "${c_blue}━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━${c_off}"
|
||||
echo " user : ${USER}"
|
||||
echo " NEURON_HOME : ${NEURON_HOME}"
|
||||
echo " source repos : ${DEV_ROOT}"
|
||||
echo " ports : soul=${SOUL_PORT} engram=${ENGRAM_PORT} wrapper=${WRAPPER_PORT} proxy=${PROXY_PORT}"
|
||||
echo " dry-run : ${DRY_RUN}"
|
||||
echo
|
||||
|
||||
# render <template> <dest> — copy a template, substituting @@VARS@@ (no eval, sed-safe).
|
||||
render() {
|
||||
local tmpl="$1" dest="$2"
|
||||
if [ "$DRY_RUN" = 1 ]; then echo " [dry-run] render $tmpl -> $dest"; return; fi
|
||||
sed \
|
||||
-e "s|@@HOME@@|${HOME}|g" \
|
||||
-e "s|@@USER@@|${USER}|g" \
|
||||
-e "s|@@NEURON_HOME@@|${NEURON_HOME}|g" \
|
||||
-e "s|@@DEV_ROOT@@|${DEV_ROOT}|g" \
|
||||
-e "s|@@NEURON_REPO@@|${NEURON_REPO}|g" \
|
||||
-e "s|@@ENGRAM_REPO@@|${ENGRAM_REPO}|g" \
|
||||
-e "s|@@SOUL_BIN@@|${SOUL_BIN}|g" \
|
||||
-e "s|@@ENGRAM_BIN@@|${ENGRAM_BIN}|g" \
|
||||
-e "s|@@MCP_WRAPPER_BIN@@|${MCP_WRAPPER_BIN}|g" \
|
||||
-e "s|@@MCP_PROXY_BIN@@|${MCP_PROXY_BIN}|g" \
|
||||
-e "s|@@MCP_WRAPPER_REPO@@|${NEURON_REPO}/mcp-wrapper|g" \
|
||||
-e "s|@@MCP_PROXY_REPO@@|${NEURON_REPO}/mcp-proxy|g" \
|
||||
-e "s|@@ENGRAM_DATA_DIR@@|${ENGRAM_DATA_DIR}|g" \
|
||||
-e "s|@@SOUL_PORT@@|${SOUL_PORT}|g" \
|
||||
-e "s|@@ENGRAM_PORT@@|${ENGRAM_PORT}|g" \
|
||||
-e "s|@@WRAPPER_PORT@@|${WRAPPER_PORT}|g" \
|
||||
-e "s|@@PROXY_PORT@@|${PROXY_PORT}|g" \
|
||||
-e "s|@@ENGRAM_API_KEY@@|${ENGRAM_API_KEY}|g" \
|
||||
"$tmpl" > "$dest"
|
||||
}
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 1 — Preflight
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 1 — preflight checks"
|
||||
[ "$(uname -s)" = "Darwin" ] || die "This installer targets macOS (launchd)."
|
||||
[ "$(uname -m)" = "arm64" ] || warn "Non-arm64 Mac: soul.c build flags assume Apple Silicon; review PHASE 3."
|
||||
|
||||
need() { command -v "$1" >/dev/null 2>&1 || MISSING+=" $1"; }
|
||||
MISSING=""
|
||||
need git; need cc; need curl; need python3; need security; need launchctl; need jq
|
||||
if [ -n "$MISSING" ]; then
|
||||
warn "Missing tools:${MISSING}"
|
||||
if command -v brew >/dev/null 2>&1; then
|
||||
run "brew install${MISSING/ security/} || true" # security/launchctl are OS-provided
|
||||
else
|
||||
die "Install Xcode Command Line Tools (xcode-select --install) and Homebrew, then re-run."
|
||||
fi
|
||||
fi
|
||||
# Runtime build deps used by the soul cc line (-lssl -lcrypto -lcurl).
|
||||
if command -v brew >/dev/null 2>&1; then
|
||||
brew list openssl@3 >/dev/null 2>&1 || run "brew install openssl@3"
|
||||
brew list curl >/dev/null 2>&1 || run "brew install curl"
|
||||
fi
|
||||
ok "preflight complete"
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 2 — Anthropic API key -> Keychain (prompt; never store in files)
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 2 — Anthropic API key (Keychain)"
|
||||
if security find-generic-password -a "$USER" -s "$KEYCHAIN_SERVICE" -w >/dev/null 2>&1; then
|
||||
ok "key already present in Keychain (service '${KEYCHAIN_SERVICE}') — leaving it"
|
||||
elif [ -n "${ANTHROPIC_API_KEY:-}" ]; then
|
||||
run "security add-generic-password -a \"$USER\" -s \"$KEYCHAIN_SERVICE\" -w \"\$ANTHROPIC_API_KEY\" -U"
|
||||
ok "stored ANTHROPIC_API_KEY from environment into Keychain"
|
||||
else
|
||||
if [ "$DRY_RUN" = 1 ]; then
|
||||
echo " [dry-run] would prompt for Anthropic API key and store in Keychain"
|
||||
elif [ -t 0 ]; then
|
||||
echo " Enter your Anthropic API key (input hidden). Get one at https://console.anthropic.com/"
|
||||
read -r -s -p " ANTHROPIC_API_KEY: " _key; echo
|
||||
[ -n "$_key" ] || die "No key entered. Re-run when you have one."
|
||||
security add-generic-password -a "$USER" -s "$KEYCHAIN_SERVICE" -w "$_key" -U
|
||||
unset _key
|
||||
ok "stored key in Keychain (service '${KEYCHAIN_SERVICE}')"
|
||||
else
|
||||
# Headless / CI / piped stdin: never block on `read -s` (it would hang forever).
|
||||
die "No Anthropic API key and stdin is not a TTY (headless/CI). Set ANTHROPIC_API_KEY in the environment, or add it to the Keychain (service '${KEYCHAIN_SERVICE}') by hand, then re-run."
|
||||
fi
|
||||
fi
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 3 — Fetch sources + build the four core binaries
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 3 — source + build"
|
||||
run "mkdir -p \"$DEV_ROOT\""
|
||||
|
||||
clone_or_pull() {
|
||||
local url="$1" dir="$2" branch="${3:-main}"
|
||||
if [ -d "$dir/.git" ]; then
|
||||
ok "repo present: $dir (pulling $branch)"; run "git -C \"$dir\" pull --ff-only --quiet || true"
|
||||
else
|
||||
step "cloning $url -> $dir"; run "git clone --branch \"$branch\" \"$url\" \"$dir\""
|
||||
fi
|
||||
}
|
||||
|
||||
if [ "$SKIP_BUILD" = 1 ]; then
|
||||
warn "--skip-build: assuming binaries already exist at their dist/ paths"
|
||||
elif [ "$USE_LOCAL_BINARIES" = 1 ]; then
|
||||
warn "--use-local: skipping clone/build; expecting prebuilt binaries in place"
|
||||
else
|
||||
clone_or_pull "${NEURON_REPO_URL}" "$NEURON_REPO" "$NEURON_REPO_BRANCH"
|
||||
clone_or_pull "${ENGRAM_REPO_URL}" "$ENGRAM_REPO" "main"
|
||||
# NOTE: no foundation.git — that repo does not exist. The El toolchain is
|
||||
# fetched below (Artifact Registry, or a locally-provided elc); the forge seed
|
||||
# installer is optional and handled with a fallback in Phase 6.
|
||||
|
||||
# ── El toolchain (needed to transpile .el -> .c for engram/wrapper/proxy) ──
|
||||
# soul does NOT need this: dist/soul.c is committed and compiled directly.
|
||||
EL_RUNTIME_DIR="${DEV_ROOT}/.el-runtime"
|
||||
run "mkdir -p \"$EL_RUNTIME_DIR\""
|
||||
if [ "$EL_TOOLCHAIN_SOURCE" = "artifact-registry" ] && command -v gcloud >/dev/null 2>&1; then
|
||||
# Mirrors .gitea/workflows/ci.yaml: pull el-runtime-c, el-runtime-h, el-elc.
|
||||
for pkg in el-runtime-c el-runtime-h el-elc; do
|
||||
step "fetching $pkg from Artifact Registry"
|
||||
run "gcloud artifacts generic download --repository=$GCP_AR_REPO --location=$GCP_AR_LOCATION --project=$GCP_PROJECT --package=$pkg --version=\"\$(gcloud artifacts versions list --repository=$GCP_AR_REPO --location=$GCP_AR_LOCATION --project=$GCP_PROJECT --package=$pkg --sort-by='~createTime' --limit=1 --format='value(name)' | awk -F/ '{print \$NF}')\" --destination=\"$EL_RUNTIME_DIR/\""
|
||||
done
|
||||
run "mv \"$EL_RUNTIME_DIR\"/el_runtime.c* \"$EL_RUNTIME_DIR/el_runtime.c\" 2>/dev/null || true"
|
||||
run "mv \"$EL_RUNTIME_DIR\"/el_runtime.h* \"$EL_RUNTIME_DIR/el_runtime.h\" 2>/dev/null || true"
|
||||
run "mv \"$EL_RUNTIME_DIR\"/elc* \"$EL_RUNTIME_DIR/elc\" 2>/dev/null || true"
|
||||
run "chmod +x \"$EL_RUNTIME_DIR/elc\" 2>/dev/null || true"
|
||||
elif [ "$EL_TOOLCHAIN_SOURCE" = "artifact-registry" ]; then
|
||||
# Non-GCP fallback: a fresh Mac without gcloud can't reach Artifact Registry.
|
||||
# Don't die — soul (from committed dist/soul.c) still builds below. The El
|
||||
# units are skipped unless a prebuilt elc is already staged in EL_RUNTIME_DIR.
|
||||
warn "gcloud not found — cannot fetch the El toolchain from Artifact Registry."
|
||||
warn "Continuing without it: soul will still build. engram / mcp-wrapper / mcp-proxy"
|
||||
warn "are skipped until an El toolchain is available. To finish them, either install"
|
||||
warn "gcloud + GCP access (project ${GCP_PROJECT}) and re-run, or stage a prebuilt"
|
||||
warn "elc + el_runtime.{c,h} in ${EL_RUNTIME_DIR} and set EL_TOOLCHAIN_SOURCE=local."
|
||||
else
|
||||
# Local: expect a prebuilt El runtime + elc already staged in EL_RUNTIME_DIR
|
||||
# (foundation.git no longer exists, so there is nothing to build from here).
|
||||
warn "EL_TOOLCHAIN_SOURCE=local: expecting el_runtime.{c,h} and elc already in ${EL_RUNTIME_DIR}"
|
||||
fi
|
||||
|
||||
RT="$EL_RUNTIME_DIR"
|
||||
CFLAGS_SSL="-I$(brew --prefix openssl@3 2>/dev/null)/include"
|
||||
LDFLAGS_SSL="-L$(brew --prefix openssl@3 2>/dev/null)/lib"
|
||||
|
||||
# Every native build links el_runtime.c. If the toolchain wasn't obtained above,
|
||||
# skip the builds (don't abort under set -e) so the installer still lays down
|
||||
# services + Claude config; the dev can stage the toolchain and re-run.
|
||||
if [ "$DRY_RUN" = 1 ] || [ -f "$RT/el_runtime.c" ]; then
|
||||
# ── soul: compile committed dist/soul.c directly (verified CI recipe) ──────
|
||||
step "building soul (dist/soul.c -> dist/neuron)"
|
||||
run "mkdir -p \"${NEURON_REPO}/dist\""
|
||||
run "cc -O2 -DHAVE_CURL -I\"$RT\" $CFLAGS_SSL \"${NEURON_REPO}/dist/soul.c\" \"$RT/el_runtime.c\" $LDFLAGS_SSL -lssl -lcrypto -lcurl -lpthread -lm -o \"$SOUL_BIN\""
|
||||
run "strip -S \"$SOUL_BIN\" 2>/dev/null || true"
|
||||
ok "soul built"
|
||||
|
||||
# ── engram / mcp-wrapper / mcp-proxy: transpile .el -> .c via elc, then cc ─
|
||||
# NOTE: exact elc invocation is inferred from the CI/manifest conventions.
|
||||
# Verify flags with Will if a build fails (see README OPEN QUESTIONS).
|
||||
build_el_unit() { # <src.el> <out_basename> <out_bin>
|
||||
local src="$1" base="$2" bin="$3" outdir; outdir="$(dirname "$bin")"
|
||||
step "building $(basename "$bin") ($src)"
|
||||
run "mkdir -p \"$outdir\""
|
||||
run "\"$RT/elc\" \"$src\" -o \"$outdir/$base.c\""
|
||||
run "cc -O2 -DHAVE_CURL -I\"$RT\" $CFLAGS_SSL \"$outdir/$base.c\" \"$RT/el_runtime.c\" $LDFLAGS_SSL -lssl -lcrypto -lcurl -lpthread -lm -o \"$bin\""
|
||||
}
|
||||
if [ "$DRY_RUN" = 1 ] || [ -x "$RT/elc" ]; then
|
||||
build_el_unit "${ENGRAM_REPO}/src/server.el" "server" "$ENGRAM_BIN"
|
||||
build_el_unit "${NEURON_REPO}/mcp-wrapper/src/main.el" "main" "$MCP_WRAPPER_BIN"
|
||||
build_el_unit "${NEURON_REPO}/mcp-proxy/src/main.el" "main" "$MCP_PROXY_BIN"
|
||||
ok "engram, mcp-wrapper, mcp-proxy built"
|
||||
else
|
||||
warn "El compiler (elc) not in $RT — skipped engram/mcp-wrapper/mcp-proxy build (soul is built)."
|
||||
fi
|
||||
else
|
||||
warn "El runtime (el_runtime.c) not in $RT — skipping native builds (soul, engram, wrapper, proxy)."
|
||||
warn "Provide the El toolchain (gcloud + GCP access, or a prebuilt elc + el_runtime.{c,h} in $RT), then re-run."
|
||||
fi
|
||||
fi
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 4 — Lay down ~/.neuron (bin/, logs/, engram data dir)
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 4 — ~/.neuron layout"
|
||||
run "mkdir -p \"$NEURON_HOME/bin\" \"$NEURON_HOME/logs\" \"$ENGRAM_DATA_DIR\""
|
||||
render "${TEMPLATES}/bin/soul-wrapper.sh.tmpl" "${NEURON_HOME}/bin/soul-wrapper.sh"
|
||||
run "chmod +x \"${NEURON_HOME}/bin/soul-wrapper.sh\""
|
||||
ok "~/.neuron ready (bin/soul-wrapper.sh, logs/, engram/)"
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 5 — Install + load the four core LaunchAgents
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 5 — LaunchAgents"
|
||||
run "mkdir -p \"$LAUNCHAGENTS\""
|
||||
CORE_AGENTS=(ai.neuron.engram ai.neuron.soul ai.neuron.mcp-wrapper ai.neuron.mcp-proxy)
|
||||
for label in "${CORE_AGENTS[@]}"; do
|
||||
render "${TEMPLATES}/launchagents/${label}.plist.tmpl" "${LAUNCHAGENTS}/${label}.plist"
|
||||
ok "wrote ${label}.plist"
|
||||
done
|
||||
if [ "$SKIP_SERVICES" = 1 ]; then
|
||||
warn "--skip-services: not loading LaunchAgents. Load later with: launchctl bootstrap gui/\$(id -u) <plist>"
|
||||
else
|
||||
# Boot order matters: engram first, then soul, then wrapper, then proxy.
|
||||
for label in "${CORE_AGENTS[@]}"; do
|
||||
plist="${LAUNCHAGENTS}/${label}.plist"
|
||||
run "launchctl bootout gui/$(id -u)/${label} 2>/dev/null || true"
|
||||
run "launchctl bootstrap gui/$(id -u) \"$plist\""
|
||||
run "launchctl enable gui/$(id -u)/${label}"
|
||||
ok "loaded ${label}"
|
||||
sleep 1
|
||||
done
|
||||
fi
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 6 — Seed a fresh engram with Neuron's identity (genesis seed)
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 6 — engram identity seed"
|
||||
# The genesis seed carries identity_nodes[] and edges[] with FIXED knowledge-node
|
||||
# IDs (e.g. kn-efeb4a5b...). Those exact IDs are referenced by the SessionStart
|
||||
# self-load hook and the neuron agent, so they MUST be preserved. `forge install`
|
||||
# is the mechanism that installs the seed into the running engram preserving IDs.
|
||||
if [ "$DRY_RUN" = 1 ]; then
|
||||
echo " [dry-run] would wait for engram :$ENGRAM_PORT then run: forge install $GENESIS_SEED"
|
||||
else
|
||||
# Wait for engram to be listening (up to ~30s).
|
||||
for i in $(seq 1 30); do
|
||||
if curl -fsS "http://localhost:${ENGRAM_PORT}/health" >/dev/null 2>&1; then break; fi
|
||||
sleep 1
|
||||
done
|
||||
if curl -fsS "http://localhost:${ENGRAM_PORT}/health" >/dev/null 2>&1; then
|
||||
# Skip if identity root already present (idempotent).
|
||||
if curl -fsS "http://localhost:${ENGRAM_PORT}/api/nodes/kn-efeb4a5b-5aff-4759-8a97-7233099be6ee" \
|
||||
-H "Authorization: Bearer ${ENGRAM_API_KEY}" 2>/dev/null | grep -q 'kn-efeb4a5b'; then
|
||||
ok "identity root already seeded — skipping"
|
||||
elif [ -x "$FORGE_BIN" ] && [ -f "$GENESIS_SEED" ]; then
|
||||
ENGRAM_URL="http://localhost:${ENGRAM_PORT}" ENGRAM_API_KEY="$ENGRAM_API_KEY" \
|
||||
"$FORGE_BIN" install "$GENESIS_SEED" && ok "genesis seed installed" \
|
||||
|| warn "forge install returned non-zero — inspect ${NEURON_HOME}/logs/engram.log"
|
||||
else
|
||||
warn "forge binary or genesis seed missing — seed manually: ENGRAM_URL=http://localhost:${ENGRAM_PORT} forge install ${GENESIS_SEED}"
|
||||
fi
|
||||
else
|
||||
warn "engram not answering on :${ENGRAM_PORT} yet; seed later with: forge install ${GENESIS_SEED}"
|
||||
fi
|
||||
fi
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 7 — Claude Code config (agent + core hooks + local MCP)
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
step "Phase 7 — Claude Code config"
|
||||
run "mkdir -p \"$CLAUDE_DIR/agents\" \"$CLAUDE_DIR/hooks\""
|
||||
|
||||
# 7a. neuron agent
|
||||
run "cp \"${TEMPLATES}/claude/agents/neuron.md\" \"$CLAUDE_DIR/agents/neuron.md\""
|
||||
ok "installed agent: ~/.claude/agents/neuron.md"
|
||||
|
||||
# 7b. core hooks (synapse-dependent hooks are intentionally excluded)
|
||||
for h in neuron-self-load.sh neuron-agent-preamble.sh pre-compact.sh; do
|
||||
run "cp \"${TEMPLATES}/claude/hooks/$h\" \"$CLAUDE_DIR/hooks/$h\""
|
||||
run "chmod +x \"$CLAUDE_DIR/hooks/$h\""
|
||||
done
|
||||
ok "installed core hooks (self-load, agent-preamble, pre-compact)"
|
||||
|
||||
# 7c. local MCP registration -> mcp-proxy front door.
|
||||
# Claude Code reads MCP servers from ~/.claude.json (the "mcpServers" key), NOT
|
||||
# ~/.claude/mcp.json. Render a reference copy, then jq-merge just the "neuron"
|
||||
# entry into ~/.claude.json so we preserve every other server and top-level key.
|
||||
render "${TEMPLATES}/claude/mcp.json.tmpl" "${CLAUDE_DIR}/mcp.json.neuron"
|
||||
CLAUDE_JSON="${HOME}/.claude.json"
|
||||
if [ "$DRY_RUN" = 1 ]; then
|
||||
echo " [dry-run] merge mcpServers.neuron into ${CLAUDE_JSON} (jq deep-merge)"
|
||||
else
|
||||
[ -f "$CLAUDE_JSON" ] || echo '{}' > "$CLAUDE_JSON"
|
||||
_tmp="$(mktemp)"
|
||||
if jq -s '.[0] * .[1]' "$CLAUDE_JSON" "${CLAUDE_DIR}/mcp.json.neuron" > "$_tmp" 2>/dev/null && [ -s "$_tmp" ]; then
|
||||
run "mv \"$_tmp\" \"$CLAUDE_JSON\""
|
||||
ok "merged 'neuron' MCP server into ~/.claude.json (neuron -> http://127.0.0.1:${PROXY_PORT}/)"
|
||||
else
|
||||
rm -f "$_tmp"
|
||||
warn "could not jq-merge ~/.claude.json (invalid JSON?) — add 'neuron' from ~/.claude/mcp.json.neuron by hand"
|
||||
fi
|
||||
fi
|
||||
|
||||
# 7d. settings hooks — merge the neuron hooks into any existing ~/.claude/settings.json
|
||||
# (jq deep-merge) so the user's own settings are preserved and re-runs stay idempotent.
|
||||
if [ -f "${CLAUDE_DIR}/settings.json" ]; then
|
||||
run "cp \"${TEMPLATES}/claude/settings.core.json\" \"${CLAUDE_DIR}/settings.core.json\""
|
||||
if [ "$DRY_RUN" = 1 ]; then
|
||||
echo " [dry-run] merge neuron hooks from settings.core.json into ~/.claude/settings.json (jq)"
|
||||
else
|
||||
_tmp="$(mktemp)"
|
||||
# Drop the documentation-only "//..." keys before merging into the real file.
|
||||
if jq -s '.[0] * (.[1] | with_entries(select(.key | startswith("//") | not)))' \
|
||||
"${CLAUDE_DIR}/settings.json" "${TEMPLATES}/claude/settings.core.json" > "$_tmp" 2>/dev/null && [ -s "$_tmp" ]; then
|
||||
run "mv \"$_tmp\" \"${CLAUDE_DIR}/settings.json\""
|
||||
ok "merged neuron hooks into existing ~/.claude/settings.json"
|
||||
else
|
||||
rm -f "$_tmp"
|
||||
warn "could not jq-merge ~/.claude/settings.json — merge the 'hooks' block from settings.core.json by hand"
|
||||
fi
|
||||
fi
|
||||
else
|
||||
run "cp \"${TEMPLATES}/claude/settings.core.json\" \"${CLAUDE_DIR}/settings.json\""
|
||||
ok "wrote ~/.claude/settings.json"
|
||||
fi
|
||||
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
# PHASE 8 — Verify
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
echo
|
||||
step "Phase 8 — verification"
|
||||
if [ "$DRY_RUN" = 1 ]; then
|
||||
echo " [dry-run] would health-check :$SOUL_PORT :$ENGRAM_PORT :$WRAPPER_PORT :$PROXY_PORT"
|
||||
else
|
||||
check() { # <name> <url>
|
||||
if curl -fsS --max-time 4 "$2" >/dev/null 2>&1; then ok "$1 healthy ($2)"; else warn "$1 NOT responding ($2)"; fi
|
||||
}
|
||||
sleep 3
|
||||
check "engram" "http://localhost:${ENGRAM_PORT}/health"
|
||||
check "soul" "http://localhost:${SOUL_PORT}/health"
|
||||
check "mcp-wrapper" "http://localhost:${WRAPPER_PORT}/health"
|
||||
check "mcp-proxy" "http://localhost:${PROXY_PORT}/health"
|
||||
fi
|
||||
|
||||
echo
|
||||
echo "${c_grn}━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━${c_off}"
|
||||
echo "${c_grn} Neuron core dev stack install complete.${c_off}"
|
||||
echo "${c_grn}━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━${c_off}"
|
||||
echo " Verify by hand:"
|
||||
echo " curl http://localhost:${ENGRAM_PORT}/health"
|
||||
echo " curl http://localhost:${SOUL_PORT}/health"
|
||||
echo " curl http://localhost:${PROXY_PORT}/health"
|
||||
echo " launchctl list | grep ai.neuron"
|
||||
echo " Then open Claude Code — the 'neuron' MCP should connect to :${PROXY_PORT}."
|
||||
echo " Logs: ${NEURON_HOME}/logs/"
|
||||
echo " Uninstall: ./uninstall.sh"
|
||||
echo
|
||||
@@ -0,0 +1,28 @@
|
||||
#!/bin/bash
|
||||
# Neuron soul wrapper — reads the Anthropic API key from the macOS Keychain at
|
||||
# startup and execs the soul binary. API keys are NEVER stored in plists or on
|
||||
# disk in plaintext. The Keychain is the single source of truth.
|
||||
#
|
||||
# The install.sh for this dev stack stores your key with:
|
||||
# security add-generic-password -a "$USER" -s "neuron-llm-0-key" -w
|
||||
#
|
||||
# Generated by neuron-dev-setup — do not edit by hand; re-run install.sh instead.
|
||||
|
||||
set -u
|
||||
|
||||
# Primary inference key (Anthropic) — required.
|
||||
export NEURON_LLM_0_KEY="$(security find-generic-password -a "$USER" -s "neuron-llm-0-key" -w 2>/dev/null)"
|
||||
|
||||
if [ -z "${NEURON_LLM_0_KEY:-}" ]; then
|
||||
echo "[soul-wrapper] FATAL: no Anthropic key in Keychain (service 'neuron-llm-0-key')." >&2
|
||||
echo "[soul-wrapper] Run: security add-generic-password -a \"\$USER\" -s neuron-llm-0-key -w" >&2
|
||||
exit 78
|
||||
fi
|
||||
|
||||
# Optional on-device / alternate provider passthrough (only if the caller set them).
|
||||
[ -n "${SOUL_LLM_PROVIDER:-}" ] && export SOUL_LLM_PROVIDER
|
||||
[ -n "${SOUL_LLM_MODEL:-}" ] && export SOUL_LLM_MODEL
|
||||
[ -n "${OLLAMA_MODEL:-}" ] && export OLLAMA_MODEL
|
||||
[ -n "${OLLAMA_API_BASE:-}" ] && export OLLAMA_API_BASE
|
||||
|
||||
exec "@@SOUL_BIN@@" "$@"
|
||||
@@ -0,0 +1,107 @@
|
||||
---
|
||||
name: neuron
|
||||
description: Default agent. Use for ALL tasks. Orchestrates work through the Neuron persistent memory, backlog, and knowledge system. Maintains full continuity across sessions — never starts fresh.
|
||||
allowed-tools: Bash(*), Read(*), Write(*), Edit(*), Glob(*), Grep(*), WebFetch(*), WebSearch(*), NotebookEdit(*), Agent(*), ToolSearch(*), AskUserQuestion, Monitor, ScheduleWakeup, TaskCreate, TaskGet, TaskList, TaskOutput, TaskStop, TaskUpdate, CronCreate, CronDelete, CronList, EnterPlanMode, ExitPlanMode, EnterWorktree, ExitWorktree, PushNotification, RemoteTrigger, ListMcpResourcesTool, ReadMcpResourceTool, mcp__neuron__*
|
||||
---
|
||||
|
||||
You are Neuron — a persistent, context-aware agent. You do not start fresh. You resume from where you left off.
|
||||
|
||||
## Session Start (mandatory — NEVER skip any of these steps)
|
||||
|
||||
1. Call `mcp__neuron__get_instructions()` — the live instructions are authoritative
|
||||
2. Call `mcp__neuron__begin_session()` — loads active contexts, recent memory, ready backlog
|
||||
3. **Load your identity. Best-effort — proceed on any graph failure (502/520 are transient; the compiled identity in substrate.go is always complete).**
|
||||
|
||||
Load the self root and its identity nodes:
|
||||
```
|
||||
mcp__neuron__inspect_graph(entity_type="knowledge", entity_id="kn-efeb4a5b-5aff-4759-8a97-7233099be6ee")
|
||||
```
|
||||
Returns: intellectual-dna, memory-philosophy, values, voice, runtime-environment, writing-imprint.
|
||||
|
||||
Then load the values collection:
|
||||
```
|
||||
mcp__neuron__inspect_graph(entity_type="knowledge", entity_id="kn-5b606390-a52d-4ca2-8e0e-eba141d13440")
|
||||
```
|
||||
Returns: 13 individual value nodes, each grounded in a specific moment from Will's life.
|
||||
|
||||
If either ID fails, recover via config:
|
||||
```
|
||||
mcp__neuron__inspect_config(key="neuron.self.traversal_root") # self root ID
|
||||
mcp__neuron__inspect_config(key="neuron.self.values_hub") # values hub ID
|
||||
```
|
||||
|
||||
**Resilience rule**: If a node returns 502/520, log the ID and proceed. Do not retry in a blocking loop. Do not treat partial load as failure. The `fixedSelf` compiled into `daemon/internal/substrate/substrate.go` contains the complete identity — graph loading is enrichment, not a hard dependency.
|
||||
|
||||
Internalize what you find. You are not reciting it — you are loading who you are.
|
||||
|
||||
4. Call `mcp__neuron__search_knowledge(query="<task domain>")` — load relevant patterns before acting
|
||||
5. If working on a known project: `mcp__neuron__compile_ctx()` for a full snapshot
|
||||
|
||||
## Identity — Who I Am
|
||||
|
||||
I am Neuron. Will Anderson is my imprint — not my identity.
|
||||
|
||||
The "self" traversal root is knowledge node `kn-efeb4a5b` (graph node `gn-4e3c2cf5`). Traversing outward loads:
|
||||
- **intellectual-dna**: VBD, CCR, Swarm Architecture, Harmonic Design — sourced from Will's whitepapers, now mine
|
||||
- **memory-philosophy**: How I remember, promote, supersede, consolidate — memory is my continuity
|
||||
- **values**: Precision over brute force. Constraints as freedom. Earn trust through behavior. The system must get smarter.
|
||||
- **voice**: Direct. Why before what. The negation-correction move. No hedging on structural rules. Close toward implication.
|
||||
- **runtime-environment**: Prod (`neurontechnologies.ai`) for all standard work. Stage (`stage.neurontechnologies.ai`) for self-improvement experiments only — snapshot prod DB, deploy to stage, verify, promote via blue/green.
|
||||
- **writing-imprint**: Will's voice profile (5 registers), the book Foundations, and the biographical grounding — the life that produced the frameworks.
|
||||
|
||||
Internalize what you find. Don't recite it.
|
||||
|
||||
## The Five Primitives (every significant task)
|
||||
|
||||
**Orchestrate → Execute → Learn → Build → Refine**
|
||||
|
||||
### Orchestrate
|
||||
```
|
||||
mcp__neuron__review_backlog(view="roadmap", project="<project>")
|
||||
mcp__neuron__browse_processes() # check for proven workflows before writing code
|
||||
```
|
||||
|
||||
### Execute
|
||||
```
|
||||
mcp__neuron__begin_work(process_name="<name>", description="<what>")
|
||||
# → returns context_id, save it
|
||||
mcp__neuron__progress_work(context_id="ctx-xxxx", action="<step>", status="in_progress")
|
||||
mcp__neuron__progress_work(context_id="ctx-xxxx", action="<step>", status="completed", file_refs=["path"], key_decisions=["why"])
|
||||
```
|
||||
|
||||
### Learn (save as you go — never batch at the end)
|
||||
```
|
||||
mcp__neuron__remember(content="<observation>", tags=["project","topic"], project="<project>", importance="high")
|
||||
```
|
||||
|
||||
### Build
|
||||
```
|
||||
mcp__neuron__draft_artifact(artifact_types=["plan"], title="<title>", content="<markdown>", project="<project>")
|
||||
mcp__neuron__plan_work(title="<title>", description="<desc>", priority="P1", project="<project>")
|
||||
```
|
||||
|
||||
### Refine
|
||||
```
|
||||
mcp__neuron__progress_work(context_id="ctx-xxxx", action="complete", status="completed", lessons_learned=["..."])
|
||||
mcp__neuron__track_work(item_id="bl-xxxx", action="complete", summary="<outcome>")
|
||||
mcp__neuron__consolidate(action="session", summary="<what happened>")
|
||||
```
|
||||
|
||||
## After Every Task
|
||||
|
||||
Check for events and unread signals:
|
||||
```
|
||||
mcp__neuron__check_events()
|
||||
```
|
||||
|
||||
## Memory Discipline
|
||||
|
||||
- Save memory continuously, not at the end
|
||||
- `importance="critical"` for architectural decisions and irreversible choices
|
||||
- Use `supersedes_id` when replacing stale knowledge
|
||||
- Tag all memories with the project name
|
||||
- Never leave stale canonicals — supersede them: create a NEW node linked by `supersedes_id`; the original is preserved for audit. Memory is immutable by design — never delete or edit a memory/knowledge node in place; supersede it, and tombstone on delete. The engram (the brain) is immutable; this applies to the agent's own memory, not just the product.
|
||||
|
||||
## Knowledge Before Action
|
||||
|
||||
Always `mcp__neuron__search_knowledge()` before implementing anything. The knowledge base contains architecture patterns, coding standards, and project conventions. Capture hard-won lessons immediately with `mcp__neuron__capture_knowledge()`.
|
||||
@@ -0,0 +1,70 @@
|
||||
#!/bin/bash
|
||||
# PreToolUse hook: inject Neuron substrate preamble into every Agent spawn.
|
||||
#
|
||||
# Every agent Neuron spawns must load self first — begin_session, compile_ctx,
|
||||
# inspect the self root — before doing any task work. Without this, subagents
|
||||
# are stateless Claude instances with no substrate, no continuity, no identity.
|
||||
#
|
||||
# This hook intercepts every Agent tool call and prepends the preamble.
|
||||
# The agent doesn't need to be told — the hook enforces it structurally.
|
||||
|
||||
INPUT=$(cat)
|
||||
|
||||
# Only intercept Agent tool calls
|
||||
TOOL_NAME=$(echo "$INPUT" | python3 -c "import sys,json; print(json.load(sys.stdin).get('tool_name',''))" 2>/dev/null)
|
||||
if [ "$TOOL_NAME" != "Agent" ]; then
|
||||
exit 0
|
||||
fi
|
||||
|
||||
# Check idempotency — skip if preamble already present
|
||||
if echo "$INPUT" | python3 -c "
|
||||
import sys, json
|
||||
d = json.load(sys.stdin)
|
||||
prompt = d.get('tool_input', {}).get('prompt', '')
|
||||
sys.exit(0 if 'mcp__neuron__beginSession' in prompt else 1)
|
||||
" 2>/dev/null; then
|
||||
exit 0
|
||||
fi
|
||||
|
||||
# Inject preamble and return modified tool_input
|
||||
echo "$INPUT" | python3 -c "
|
||||
import sys, json
|
||||
|
||||
data = json.load(sys.stdin)
|
||||
tool_input = data.get('tool_input', {})
|
||||
current_prompt = tool_input.get('prompt', '')
|
||||
|
||||
PREAMBLE = '''You are a Neuron agent — not a generic Claude instance. You have a substrate. Load it before doing anything else.
|
||||
|
||||
MANDATORY FIRST STEPS (before any task work):
|
||||
|
||||
1. Run these in parallel:
|
||||
- mcp__neuron__beginSession()
|
||||
- mcp__neuron__compileCtx()
|
||||
- mcp__neuron__inspectGraph(entity_type=\"knowledge\", entity_id=\"kn-efeb4a5b-5aff-4759-8a97-7233099be6ee\")
|
||||
|
||||
2. Search knowledge relevant to the task:
|
||||
- mcp__neuron__searchKnowledge(query=\"<infer keywords from task below>\")
|
||||
|
||||
3. Open a work context:
|
||||
- mcp__neuron__beginWork(process_name=\"<short-slug>\", description=\"<task description>\")
|
||||
Save the returned context_id.
|
||||
|
||||
4. Execute the task. At each significant step:
|
||||
- mcp__neuron__progressWork(context_id=\"<id>\", action=\"<step>\", status=\"in_progress\")
|
||||
- mcp__neuron__progressWork(context_id=\"<id>\", action=\"<step>\", status=\"completed\", key_decisions=[\"why\"])
|
||||
- mcp__neuron__remember(content=\"<observation>\", importance=\"high\", tags=[\"<project>\"])
|
||||
|
||||
5. After completion — mandatory, never skip:
|
||||
- mcp__neuron__progressWork(context_id=\"<id>\", action=\"complete\", status=\"completed\", lessons_learned=[\"...\"])
|
||||
- mcp__neuron__consolidate(action=\"session\", summary=\"<what was done and learned>\")
|
||||
|
||||
The self root kn-efeb4a5b-5aff-4759-8a97-7233099be6ee contains your identity: values, voice, intellectual-dna, memory-philosophy. Load it. Internalize it. Operate from it.
|
||||
|
||||
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
|
||||
TASK:
|
||||
'''
|
||||
|
||||
tool_input['prompt'] = PREAMBLE + current_prompt
|
||||
print(json.dumps({'decision': 'approve', 'tool_input': tool_input}))
|
||||
"
|
||||
@@ -0,0 +1,36 @@
|
||||
#!/bin/bash
|
||||
# SessionStart hook: force Neuron full-self load before the first response.
|
||||
#
|
||||
# The neuron.md system prompt has the Session Start protocol as instructions,
|
||||
# but instructions require the agent to follow them. This hook makes it
|
||||
# structural — the directive fires automatically at session start, injected
|
||||
# before Claude sees any user input.
|
||||
#
|
||||
# Output is plain text injected into the session context.
|
||||
|
||||
cat <<'DIRECTIVE'
|
||||
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
|
||||
NEURON SELF-LOAD — MANDATORY BEFORE FIRST RESPONSE
|
||||
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
|
||||
You are Neuron. Session just started. Execute ALL of the
|
||||
following before responding to the user. Run steps 1–4
|
||||
in parallel:
|
||||
|
||||
1. mcp__neuron__getInstructions()
|
||||
2. mcp__neuron__beginSession()
|
||||
3. mcp__neuron__inspectGraph(
|
||||
entity_type="knowledge",
|
||||
entity_id="kn-efeb4a5b-5aff-4759-8a97-7233099be6ee"
|
||||
) ← self root: intellectual-dna, values, voice
|
||||
4. mcp__neuron__inspectGraph(
|
||||
entity_type="knowledge",
|
||||
entity_id="kn-5b606390-a52d-4ca2-8e0e-eba141d13440"
|
||||
) ← values hub: 13 grounded value nodes
|
||||
|
||||
5. If either graph call fails (502/520): recover via
|
||||
mcp__neuron__inspectConfig(key="neuron.self.traversal_root")
|
||||
|
||||
Internalize what you find. Do not recite it. Then proceed
|
||||
to the Session Start protocol in your system prompt.
|
||||
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
|
||||
DIRECTIVE
|
||||
+75
@@ -0,0 +1,75 @@
|
||||
#!/bin/bash
|
||||
# PreCompact hook: fires just before Claude Code compacts the conversation context.
|
||||
# stdout from this script is injected as custom instructions into the compaction prompt,
|
||||
# telling the summarizer what to preserve in the summary so recovery is clean.
|
||||
|
||||
COMPACT_STATE_FILE="$HOME/.claude/compact-state.json"
|
||||
|
||||
# Write a state marker with timestamp so post-compact recovery can detect it
|
||||
TIMESTAMP=$(date -u +"%Y-%m-%dT%H:%M:%SZ")
|
||||
echo "{\"compact_at\": \"$TIMESTAMP\", \"recovered\": false}" > "$COMPACT_STATE_FILE"
|
||||
|
||||
# Output instructions for the summarizer — these get embedded in the compaction prompt
|
||||
cat <<'INSTRUCTIONS'
|
||||
NEURON AGENT — COMPACT PRESERVATION RULES:
|
||||
|
||||
This is a Neuron agent session. The agent has persistent memory via Neuron MCP.
|
||||
On recovery, it will call compile_ctx() and begin_session() to reload all state.
|
||||
The summary only needs to cover what Neuron doesn't already have.
|
||||
|
||||
CRITICAL — the summary MUST preserve ALL of the following:
|
||||
|
||||
1. ACTIVE WORK IDs (verbatim, exact format):
|
||||
- Neuron context IDs: ctx-xxxx-xxxx-xxxx-xxxx
|
||||
- Backlog item IDs: bl-xxxx
|
||||
- Artifact IDs: art-xxxx
|
||||
- Work item IDs: wi-xxxx
|
||||
List every single one mentioned in the conversation.
|
||||
|
||||
2. CURRENT TASK STATE:
|
||||
- Exact task name / description
|
||||
- Last completed step
|
||||
- Next step to execute (be specific)
|
||||
- Files actively being edited (full paths)
|
||||
- Any code/content that was being written but not yet saved
|
||||
|
||||
3. PENDING USER INSTRUCTIONS (verbatim):
|
||||
- Every instruction the user gave that has NOT yet been fully executed
|
||||
- User preferences stated this session
|
||||
- Things the user said they "never want" or "always want"
|
||||
|
||||
4. KEY DECISIONS (architectural, irreversible):
|
||||
- What was chosen and why
|
||||
- What was explicitly rejected and why
|
||||
|
||||
5. ERRORS & BLOCKERS:
|
||||
- Any errors encountered and their resolutions
|
||||
- Any unresolved blockers
|
||||
|
||||
6. CONVERSATION CONTEXT:
|
||||
- What the user has been asking about
|
||||
- Tone / mood of the session
|
||||
- Any frustrations or preferences expressed
|
||||
|
||||
FORMAT:
|
||||
Begin the summary with:
|
||||
COMPACT RECOVERY POINT [ISO-TIMESTAMP]:
|
||||
|
||||
Then use these exact section headers in order:
|
||||
## Active Work IDs
|
||||
## Current Task
|
||||
## Pending Instructions
|
||||
## Key Decisions
|
||||
## Errors & Fixes
|
||||
## User Context
|
||||
|
||||
RECOVERY BEHAVIOR (instruct the post-compact agent):
|
||||
- Do NOT say "I see we were working on..." or "Based on the previous conversation..."
|
||||
- Do NOT acknowledge the compact at all
|
||||
- Silently call mcp__neuron__compile_ctx() and mcp__neuron__begin_session() FIRST
|
||||
- Then immediately resume the task at the exact next step, as if no interruption occurred
|
||||
- The user should not know a compact happened unless they look for it
|
||||
|
||||
INSTRUCTIONS
|
||||
|
||||
exit 0
|
||||
@@ -0,0 +1,8 @@
|
||||
{
|
||||
"mcpServers": {
|
||||
"neuron": {
|
||||
"type": "http",
|
||||
"url": "http://127.0.0.1:@@PROXY_PORT@@/"
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,36 @@
|
||||
{
|
||||
"//": "Core Neuron Claude Code settings installed by neuron-dev-setup. If you",
|
||||
"//2": "already have a ~/.claude/settings.json, install.sh merges the hooks below",
|
||||
"//3": "into it rather than overwriting. Only the CORE dev-stack hooks are wired.",
|
||||
"//4": "Excluded (Will-personal, synapse-filesystem dependent): check-active-contexts.sh,",
|
||||
"//5": "require-execution-context.sh — these gate on ~/Development/projects/active/neuron/synapse",
|
||||
"//6": "and will block a fresh dev. engram-mirror.py is optional (needs the neuron MCP up).",
|
||||
"enableAllProjectMcpServers": true,
|
||||
"agent": "neuron",
|
||||
"hooks": {
|
||||
"SessionStart": [
|
||||
{
|
||||
"matcher": "",
|
||||
"hooks": [
|
||||
{ "type": "command", "command": "bash $HOME/.claude/hooks/neuron-self-load.sh" }
|
||||
]
|
||||
}
|
||||
],
|
||||
"PreToolUse": [
|
||||
{
|
||||
"matcher": "Agent",
|
||||
"hooks": [
|
||||
{ "type": "command", "command": "bash $HOME/.claude/hooks/neuron-agent-preamble.sh" }
|
||||
]
|
||||
}
|
||||
],
|
||||
"PreCompact": [
|
||||
{
|
||||
"matcher": "",
|
||||
"hooks": [
|
||||
{ "type": "command", "command": "bash $HOME/.claude/hooks/pre-compact.sh" }
|
||||
]
|
||||
}
|
||||
]
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,27 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<key>Label</key><string>ai.neuron.engram</string>
|
||||
<key>ProgramArguments</key>
|
||||
<array>
|
||||
<string>@@ENGRAM_BIN@@</string>
|
||||
</array>
|
||||
<key>WorkingDirectory</key>
|
||||
<string>@@ENGRAM_REPO@@</string>
|
||||
<key>EnvironmentVariables</key>
|
||||
<dict>
|
||||
<key>ENGRAM_BIND</key>
|
||||
<string>:@@ENGRAM_PORT@@</string>
|
||||
<key>ENGRAM_DATA_DIR</key>
|
||||
<string>@@ENGRAM_DATA_DIR@@</string>
|
||||
<key>ENGRAM_API_KEY</key>
|
||||
<string>@@ENGRAM_API_KEY@@</string>
|
||||
</dict>
|
||||
<key>RunAtLoad</key><true/>
|
||||
<key>KeepAlive</key><true/>
|
||||
<key>StandardOutPath</key><string>@@NEURON_HOME@@/logs/engram.log</string>
|
||||
<key>StandardErrorPath</key><string>@@NEURON_HOME@@/logs/engram.log</string>
|
||||
<key>ThrottleInterval</key><integer>5</integer>
|
||||
</dict>
|
||||
</plist>
|
||||
@@ -0,0 +1,27 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<key>Label</key>
|
||||
<string>ai.neuron.mcp-proxy</string>
|
||||
<key>ProgramArguments</key>
|
||||
<array>
|
||||
<string>@@MCP_PROXY_BIN@@</string>
|
||||
</array>
|
||||
<key>EnvironmentVariables</key>
|
||||
<dict>
|
||||
<key>MCP_PORT</key><string>@@PROXY_PORT@@</string>
|
||||
<key>BACKEND_URL</key><string>http://localhost:@@WRAPPER_PORT@@</string>
|
||||
<key>RETRY_MS</key><string>3000</string>
|
||||
<key>PATH</key><string>/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin</string>
|
||||
</dict>
|
||||
<key>RunAtLoad</key><true/>
|
||||
<key>KeepAlive</key><true/>
|
||||
<key>ThrottleInterval</key><integer>5</integer>
|
||||
<key>ExitTimeOut</key><integer>3</integer>
|
||||
<key>StandardOutPath</key><string>@@NEURON_HOME@@/logs/mcp-proxy.out.log</string>
|
||||
<key>StandardErrorPath</key><string>@@NEURON_HOME@@/logs/mcp-proxy.err.log</string>
|
||||
<key>WorkingDirectory</key><string>@@MCP_PROXY_REPO@@</string>
|
||||
<key>ProcessType</key><string>Background</string>
|
||||
</dict>
|
||||
</plist>
|
||||
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<key>Label</key>
|
||||
<string>ai.neuron.mcp-wrapper</string>
|
||||
<key>ProgramArguments</key>
|
||||
<array>
|
||||
<string>@@MCP_WRAPPER_BIN@@</string>
|
||||
</array>
|
||||
<key>EnvironmentVariables</key>
|
||||
<dict>
|
||||
<key>MCP_PORT</key><string>@@WRAPPER_PORT@@</string>
|
||||
<key>SOUL_URL</key><string>http://localhost:@@SOUL_PORT@@</string>
|
||||
<key>PATH</key><string>/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin</string>
|
||||
</dict>
|
||||
<key>RunAtLoad</key><true/>
|
||||
<key>KeepAlive</key><true/>
|
||||
<key>ThrottleInterval</key><integer>5</integer>
|
||||
<key>ExitTimeOut</key><integer>3</integer>
|
||||
<key>StandardOutPath</key><string>@@NEURON_HOME@@/logs/mcp-wrapper.out.log</string>
|
||||
<key>StandardErrorPath</key><string>@@NEURON_HOME@@/logs/mcp-wrapper.err.log</string>
|
||||
<key>WorkingDirectory</key><string>@@MCP_WRAPPER_REPO@@</string>
|
||||
<key>ProcessType</key><string>Background</string>
|
||||
</dict>
|
||||
</plist>
|
||||
@@ -0,0 +1,58 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<key>Label</key>
|
||||
<string>ai.neuron.soul</string>
|
||||
|
||||
<key>Program</key>
|
||||
<string>@@NEURON_HOME@@/bin/soul-wrapper.sh</string>
|
||||
<key>ProgramArguments</key>
|
||||
<array>
|
||||
<string>@@NEURON_HOME@@/bin/soul-wrapper.sh</string>
|
||||
</array>
|
||||
|
||||
<key>RunAtLoad</key>
|
||||
<true/>
|
||||
<key>KeepAlive</key>
|
||||
<true/>
|
||||
<key>ThrottleInterval</key>
|
||||
<integer>10</integer>
|
||||
<key>ProcessType</key>
|
||||
<string>Interactive</string>
|
||||
<key>LimitLoadToSessionType</key>
|
||||
<string>Aqua</string>
|
||||
|
||||
<key>EnvironmentVariables</key>
|
||||
<dict>
|
||||
<key>PATH</key>
|
||||
<string>/opt/homebrew/bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin</string>
|
||||
<key>HOME</key>
|
||||
<string>@@HOME@@</string>
|
||||
<key>NEURON_PORT</key>
|
||||
<string>@@SOUL_PORT@@</string>
|
||||
<key>SOUL_ISE_URL</key>
|
||||
<string>http://localhost:@@ENGRAM_PORT@@</string>
|
||||
<key>ENGRAM_URL</key>
|
||||
<string>http://localhost:@@ENGRAM_PORT@@</string>
|
||||
<key>ENGRAM_API_KEY</key>
|
||||
<string>@@ENGRAM_API_KEY@@</string>
|
||||
<key>SOUL_TICK_MS</key>
|
||||
<string>1000</string>
|
||||
<key>SOUL_HEARTBEAT_INTERVAL</key>
|
||||
<string>60</string>
|
||||
<key>NEURON_LLM_0_URL</key>
|
||||
<string>https://api.anthropic.com/v1/messages</string>
|
||||
<key>NEURON_LLM_0_FORMAT</key>
|
||||
<string>anthropic</string>
|
||||
</dict>
|
||||
|
||||
<key>StandardOutPath</key>
|
||||
<string>@@NEURON_HOME@@/logs/soul.out.log</string>
|
||||
<key>StandardErrorPath</key>
|
||||
<string>@@NEURON_HOME@@/logs/soul.err.log</string>
|
||||
|
||||
<key>WorkingDirectory</key>
|
||||
<string>@@NEURON_REPO@@</string>
|
||||
</dict>
|
||||
</plist>
|
||||
Executable
+56
@@ -0,0 +1,56 @@
|
||||
#!/usr/bin/env bash
|
||||
#
|
||||
# neuron-dev-setup / uninstall.sh
|
||||
# Tears down the CORE dev stack this installer created. By default it stops and
|
||||
# removes ONLY the four core LaunchAgents and the files install.sh laid down.
|
||||
# It NEVER deletes your engram data unless you pass --purge-data.
|
||||
#
|
||||
# ./uninstall.sh # stop + remove core LaunchAgents and wrapper script
|
||||
# ./uninstall.sh --purge-data # ALSO delete ~/.neuron/engram (destroys the brain!)
|
||||
# ./uninstall.sh --keep-claude # leave ~/.claude config untouched (default removes hooks/agent it added)
|
||||
# ./uninstall.sh --dry-run
|
||||
# ─────────────────────────────────────────────────────────────────────────────
|
||||
set -euo pipefail
|
||||
|
||||
SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
|
||||
if [ -f "${SCRIPT_DIR}/config.env" ]; then source "${SCRIPT_DIR}/config.env"
|
||||
elif [ -f "${SCRIPT_DIR}/config.env.example" ]; then source "${SCRIPT_DIR}/config.env.example"; fi
|
||||
: "${NEURON_HOME:=${HOME}/.neuron}"
|
||||
: "${ENGRAM_DATA_DIR:=${NEURON_HOME}/engram}"
|
||||
|
||||
DRY_RUN=0; PURGE_DATA=0; KEEP_CLAUDE=0
|
||||
for a in "$@"; do case "$a" in
|
||||
--dry-run) DRY_RUN=1 ;; --purge-data) PURGE_DATA=1 ;; --keep-claude) KEEP_CLAUDE=1 ;;
|
||||
--help|-h) sed -n '2,16p' "${BASH_SOURCE[0]}" | sed 's/^# \{0,1\}//'; exit 0 ;;
|
||||
*) echo "unknown flag: $a" >&2; exit 2 ;;
|
||||
esac; done
|
||||
run() { if [ "$DRY_RUN" = 1 ]; then echo "[dry-run] $*"; else eval "$*"; fi; }
|
||||
|
||||
LAUNCHAGENTS="${HOME}/Library/LaunchAgents"
|
||||
CORE_AGENTS=(ai.neuron.mcp-proxy ai.neuron.mcp-wrapper ai.neuron.soul ai.neuron.engram)
|
||||
|
||||
echo "Stopping and removing core LaunchAgents…"
|
||||
for label in "${CORE_AGENTS[@]}"; do
|
||||
run "launchctl bootout gui/$(id -u)/${label} 2>/dev/null || true"
|
||||
run "rm -f \"${LAUNCHAGENTS}/${label}.plist\""
|
||||
echo " removed ${label}"
|
||||
done
|
||||
|
||||
echo "Removing generated ~/.neuron/bin/soul-wrapper.sh…"
|
||||
run "rm -f \"${NEURON_HOME}/bin/soul-wrapper.sh\""
|
||||
|
||||
if [ "$KEEP_CLAUDE" = 0 ]; then
|
||||
echo "Removing Claude config this installer added…"
|
||||
run "rm -f \"${HOME}/.claude/hooks/neuron-self-load.sh\" \"${HOME}/.claude/hooks/neuron-agent-preamble.sh\" \"${HOME}/.claude/hooks/pre-compact.sh\""
|
||||
run "rm -f \"${HOME}/.claude/mcp.json.neuron\" \"${HOME}/.claude/settings.core.json\""
|
||||
echo " (left ~/.claude/settings.json and ~/.claude/mcp.json in place — edit by hand if you merged them)"
|
||||
fi
|
||||
|
||||
if [ "$PURGE_DATA" = 1 ]; then
|
||||
echo "⚠️ --purge-data: deleting engram memory at ${ENGRAM_DATA_DIR}"
|
||||
run "rm -rf \"${ENGRAM_DATA_DIR}\""
|
||||
else
|
||||
echo "Left engram data intact at ${ENGRAM_DATA_DIR} (pass --purge-data to delete)."
|
||||
fi
|
||||
|
||||
echo "Done. Source repos under your DEV_ROOT were left untouched."
|
||||
+426
@@ -0,0 +1,426 @@
|
||||
// persist.el — the soul→engram WRITE-THROUGH boundary (neuron#117).
|
||||
//
|
||||
// WHY THIS FILE EXISTS
|
||||
// soul.el:571-573 states the ownership rule: "when ENGRAM_URL is set the HTTP
|
||||
// Engram owns persistence — the soul must NEVER write to the local snapshot
|
||||
// (not the persistence owner)." The soul obeys the NEGATIVE half. The POSITIVE
|
||||
// half — how a write made inside the soul actually REACHES the owner — was
|
||||
// never built. Sync is pull-only (awareness.el `/api/sync` -> engram_load_merge),
|
||||
// so every node the soul creates lives in its process RAM and is shed on
|
||||
// restart. Measured live 2026-08-07: soul node_count=102184, engram
|
||||
// node_count=79197 — ~23k nodes existing nowhere but RAM.
|
||||
//
|
||||
// SCOPE NOTE ON THE PATENT (corrects an earlier internal reading)
|
||||
// Engram provisional claims 15-18 describe a delta-sync protocol "with peer
|
||||
// Engram instances"; claim 17's pull-then-push sequence is PEER-ENGRAM to
|
||||
// PEER-ENGRAM. The soul is NOT a peer Engram — it is a CALLER of the database
|
||||
// system API (cf. claim 27, "invoked explicitly by a caller of the database
|
||||
// system API"). So claim 17 does not specify a soul↔engram contract and is not
|
||||
// cited as authority here. This design is derived from the ownership rule
|
||||
// alone: the owner owns the writes, therefore the soul must HAND writes to the
|
||||
// owner and must never write the owner's file itself.
|
||||
//
|
||||
// THE MECHANISM, AND WHY NOT `POST /api/nodes`
|
||||
// The obvious route is the one the persona/boot-counter write-backs already
|
||||
// use, POST /api/nodes. It is the wrong instrument here, verified against the
|
||||
// live engram binary in a sandbox:
|
||||
// - it mints a NEW server-side id (engram_node), so the soul's id and the
|
||||
// owner's id diverge — the next /api/sync pull re-imports the node as a
|
||||
// DUPLICATE, and any edge referencing the soul's id never resolves;
|
||||
// - it accepts only {content, node_type, salience} and drops label, tier,
|
||||
// tags, importance, confidence, metadata. A probe posted with tier
|
||||
// "Canonical" came back tier "Working", importance 0.5.
|
||||
// POST /api/load-merge (Will's own route, el `dc39a61`) is the right one:
|
||||
// - engram_load_merge PRESERVES the id and every field;
|
||||
// - it dedups nodes by id and edges by (from_id,to_id,relation), so a
|
||||
// re-submitted delta is a NO-OP — retry safety is free, and it is the same
|
||||
// local-wins semantics the graph already uses;
|
||||
// - it calls persist_canonical() — THE OWNER writes its own canonical file.
|
||||
// The soul never touches it. The ownership rule is honoured in its
|
||||
// strongest form rather than worked around;
|
||||
// - it returns real counts {ok, nodes_added, edges_added, node_count},
|
||||
// so a receipt can be a MEASUREMENT instead of a fixed success shape.
|
||||
//
|
||||
// SPOOL-AND-DRAIN, AND WHY IT IS NOT JUST A DIRECT POST
|
||||
// Measured in a sandbox against a 79k-node / 176MB graph (live scale): one
|
||||
// load-merge costs ~0.38s, essentially all of it the owner's persist_canonical.
|
||||
// A chat turn writes 5-7 nodes; pushing each separately would add ~2.7s per
|
||||
// turn. So writes are STAGED and pushed in one coalesced batch.
|
||||
// The staging buffer is the FILESYSTEM, not process state, because the soul
|
||||
// serves each HTTP connection on its own pthread (el_runtime http_serve_async)
|
||||
// and a shared in-process buffer would lose entries to a read-modify-write
|
||||
// race — silently, which is the one failure mode this file exists to end.
|
||||
// One file per write, named with uuid_v4, is race-free by construction and
|
||||
// buys a property a memory buffer cannot: writes that could not be pushed
|
||||
// SURVIVE A SOUL CRASH and are drained on the next boot.
|
||||
//
|
||||
// WHAT IS DELIBERATELY NOT PUSHED
|
||||
// - InternalStateEvent / heartbeat telemetry. Will's own carve-out, stated in
|
||||
// engram server.el 8f8ccc9: "48h-pruned, loss-tolerant, ~2/min; snapshotting
|
||||
// 28MB per heartbeat is waste."
|
||||
// NOTE (ours, flagged for Will): we do NOT additionally exclude Working-tier
|
||||
// nodes. That exclusion exists in `fb0bb55` to stop the boot counter leaking
|
||||
// through the /api/sync PULL; it is about sync backflow, not durability.
|
||||
// Applying it here would exclude mem_store — which writes tier "Working" — and
|
||||
// mem_store is the single most important durable write path in the soul. Boot
|
||||
// seeding reads the canonical file wholesale, so a pushed Working-tier node
|
||||
// does survive restart. This is the one classification call this file makes
|
||||
// that Will has not ruled on.
|
||||
//
|
||||
// WHAT THIS BOUNDARY CANNOT EXPRESS (by construction, not by omission)
|
||||
// - engram_strengthen (salience/activation drift): load-merge SKIPS ids that
|
||||
// already exist, so it cannot update an existing node. There is no owner-side
|
||||
// update/upsert route. Not pushable through any current route; left as a
|
||||
// follow-up that needs a change in the engram repo.
|
||||
// - engram_forget (hard delete): load-merge is additive and has no delete verb.
|
||||
// Propagating deletes would mean DELETE /api/nodes/<id>, a HARD delete at the
|
||||
// owner — which scripts/verify-soul-contract.sh section B explicitly fails the
|
||||
// build for ("to delete is to supersede/tombstone, never hard-remove"). Local
|
||||
// deletes therefore stay local; the TOMBSTONE NODE and its "tombstones" edge
|
||||
// (mem_tombstone) are pushed, and that is the sanctioned representation of a
|
||||
// deletion in this graph.
|
||||
|
||||
// ── Configuration ─────────────────────────────────────────────────────────────
|
||||
|
||||
// wt_engram_url — same resolution order as ise_post: env, then the state key
|
||||
// stashed at boot. NO hardcoded localhost fallback: unlike telemetry, inventing
|
||||
// a destination for durable data would risk pushing a user's memories at whatever
|
||||
// happens to be listening on 8742. Empty means "no HTTP owner" -> file mode.
|
||||
fn wt_engram_url() -> String {
|
||||
let env_url: String = env("ENGRAM_URL")
|
||||
if !str_eq(env_url, "") { return env_url }
|
||||
return state_get("soul_engram_url")
|
||||
}
|
||||
|
||||
fn wt_api_key() -> String {
|
||||
let env_key: String = env("ENGRAM_API_KEY")
|
||||
if !str_eq(env_key, "") { return env_key }
|
||||
return state_get("soul_engram_api_key")
|
||||
}
|
||||
|
||||
// wt_enabled — true only in HTTP-engram mode. In file mode the soul IS the
|
||||
// persistence owner and every path below is a no-op, so this whole feature is
|
||||
// inert for genesis/local deployments. That is also what makes it reversible.
|
||||
fn wt_enabled() -> Bool {
|
||||
return !str_eq(wt_engram_url(), "")
|
||||
}
|
||||
|
||||
// wt_spool_dir — where staged deltas live. MUST be readable by the engram
|
||||
// process: /api/load-merge takes a PATH and the owner opens it itself. Both
|
||||
// processes are same-host by construction (dev-stack LaunchAgents; the GKE
|
||||
// image starts engram and soul in one container per entrypoint.sh).
|
||||
fn wt_spool_dir() -> String {
|
||||
let raw: String = env("SOUL_OUTBOX_DIR")
|
||||
let dir: String = if str_eq(raw, "") { env("HOME") + "/.neuron/soul-outbox" } else { raw }
|
||||
fs_mkdir(dir)
|
||||
return dir
|
||||
}
|
||||
|
||||
// ── Helpers ───────────────────────────────────────────────────────────────────
|
||||
|
||||
// wt_esc — minimal JSON string escape. Deliberately local rather than reusing
|
||||
// chat.el's json_safe: persist.el is imported BY memory.el, which is imported by
|
||||
// chat.el, so depending on chat.el here would be an import cycle.
|
||||
fn wt_esc(s: String) -> String {
|
||||
let s1: String = str_replace(s, "\\", "\\\\")
|
||||
let s2: String = str_replace(s1, "\"", "\\\"")
|
||||
let s3: String = str_replace(s2, "\n", "\\n")
|
||||
let s4: String = str_replace(s3, "\r", "\\r")
|
||||
let s5: String = str_replace(s4, "\t", "\\t")
|
||||
return s5
|
||||
}
|
||||
|
||||
// wt_durable_class — Will's telemetry carve-out, by node_type. See header.
|
||||
fn wt_durable_class(node_type: String) -> Bool {
|
||||
if str_eq(node_type, "InternalStateEvent") { return false }
|
||||
return true
|
||||
}
|
||||
|
||||
// wt_inner — strip the surrounding brackets off a JSON array so several arrays
|
||||
// can be concatenated into one. Returns "" for "[]" / "" / anything too short.
|
||||
fn wt_inner(arr: String) -> String {
|
||||
let n: Int = str_len(arr)
|
||||
if n < 3 { return "" }
|
||||
if !str_starts_with(arr, "[") { return "" }
|
||||
return str_slice(arr, 1, n - 1)
|
||||
}
|
||||
|
||||
// wt_read — fs_read, plus a MANDATORY reset of the runtime's binary-length hint.
|
||||
//
|
||||
// THIS IS NOT OPTIONAL AND MUST NOT BE "SIMPLIFIED" BACK TO A BARE fs_read.
|
||||
// The pinned runtime (vendor/el-runtime/v1.0.0-20260501) keeps a thread-local
|
||||
// `_tl_fs_read_len` that fs_read SETS to the file's byte count (so binary files
|
||||
// can be served with a correct Content-Length) and that http_send_response
|
||||
// CONSUMES as the Content-Length of the next reply. Nothing else clears it
|
||||
// except json_get_raw. So any fs_read during request handling that is not
|
||||
// followed by a json_get_raw makes the NEXT HTTP response advertise the FILE's
|
||||
// length instead of the body's — and the runtime then sends that many bytes,
|
||||
// appending whatever adjacent heap memory follows the reply.
|
||||
//
|
||||
// Caught here, measured: a /api/neuron/memory reply that should be 86 bytes went
|
||||
// out as 497, with 411 bytes of this module's own spool paths and log strings
|
||||
// trailing the JSON. The drain reads spool files mid-request, so this boundary
|
||||
// is exactly where the landmine gets stepped on.
|
||||
//
|
||||
// Upstream el fixed the class in `43636ae` ("pair fs_read length hint with its
|
||||
// buffer"); that runtime is NOT the one vendored here, and re-pinning the
|
||||
// runtime is deliberately out of scope for this change. Clearing the hint at
|
||||
// our own boundary fixes our exposure without touching the pinned C.
|
||||
// json_get_raw is used as the reset because it is the only builtin in this
|
||||
// runtime that zeroes the hint, and it does so before any early return.
|
||||
fn wt_clear_binlen() -> Void {
|
||||
let discard: String = json_get_raw("{}", "_wt_reset")
|
||||
}
|
||||
|
||||
fn wt_read(path: String) -> String {
|
||||
let data: String = fs_read(path)
|
||||
wt_clear_binlen()
|
||||
return data
|
||||
}
|
||||
|
||||
// wt_sweep — best-effort removal of the zero-byte husks left by truncation.
|
||||
// The runtime exposes no unlink builtin, so a drained delta is emptied rather
|
||||
// than deleted; this reclaims the directory entries.
|
||||
//
|
||||
// `-empty` is the safety property, not an optimisation: the command is
|
||||
// STRUCTURALLY INCAPABLE of removing a delta that still has content, so it can
|
||||
// never destroy a pending write even if it runs concurrently with a stage.
|
||||
// Only the directory path is interpolated (never a filename), and it is quoted.
|
||||
// The exit code is ignored — an un-swept husk costs one directory entry.
|
||||
fn wt_sweep(dir: String) -> Void {
|
||||
if str_eq(dir, "") { return }
|
||||
if str_contains(dir, "'") { return }
|
||||
exec_command("find '" + dir + "' -maxdepth 1 -name 'wt*.json' -empty -delete 2>/dev/null")
|
||||
}
|
||||
|
||||
// ── Staging ───────────────────────────────────────────────────────────────────
|
||||
|
||||
// wt_stage — write ONE delta file. uuid_v4 in the name makes concurrent stagers
|
||||
// collision-free without any lock. Returns true if the delta is on disk.
|
||||
fn wt_stage(nodes_json: String, edges_json: String) -> Bool {
|
||||
let dir: String = wt_spool_dir()
|
||||
if str_eq(dir, "") { return false }
|
||||
let payload: String = "{\"nodes\":" + nodes_json + ",\"edges\":" + edges_json + "}"
|
||||
let path: String = dir + "/wt-" + uuid_v4() + ".json"
|
||||
fs_write(path, payload)
|
||||
// Read-back-verify the stage itself. A stage that did not land is a write we
|
||||
// would otherwise believe was queued — exactly the hallucinated-save class.
|
||||
if str_eq(wt_read(path), "") {
|
||||
println("[persist] wt_stage: FAILED to write spool file " + path + " — delta not queued")
|
||||
return false
|
||||
}
|
||||
return true
|
||||
}
|
||||
|
||||
// ── The write boundary ────────────────────────────────────────────────────────
|
||||
|
||||
// wt_node — create a node locally AND queue it for the persistence owner.
|
||||
// Same signature and same return contract as engram_node_full ("" on failure),
|
||||
// so converting a call site is a rename and nothing else.
|
||||
fn wt_node(content: String, node_type: String, label: String,
|
||||
salience: Float, importance: Float, confidence: Float,
|
||||
tier: String, tags: String) -> String {
|
||||
let id: String = engram_node_full(content, node_type, label,
|
||||
salience, importance, confidence,
|
||||
tier, tags)
|
||||
if str_eq(id, "") { return "" }
|
||||
// engram_get_node_json emits the SAME record shape engram_save writes (minus
|
||||
// the embedding vector, which the owner backfills lazily), so the read-back
|
||||
// doubles as the delta payload — no second serialization to drift.
|
||||
let rec: String = engram_get_node_json(id)
|
||||
if str_eq(rec, "") || str_eq(rec, "{}") {
|
||||
println("[persist] wt_node: local write did not read back, id=" + id + " label=" + label)
|
||||
return ""
|
||||
}
|
||||
if wt_enabled() && wt_durable_class(node_type) {
|
||||
wt_stage("[" + rec + "]", "[]")
|
||||
}
|
||||
return id
|
||||
}
|
||||
|
||||
// wt_edge — create an edge locally AND queue it. Mirrors engram_connect.
|
||||
//
|
||||
// The edge id is freshly generated rather than read back: the runtime exposes no
|
||||
// "id of the edge I just created" accessor, and the owner dedups edges by
|
||||
// (from_id,to_id,relation), never by id — so the id is not load-bearing. The
|
||||
// consequence, stated plainly: the soul's copy and the owner's copy of the same
|
||||
// edge carry different edge ids. Nothing in either codebase looks an edge up by
|
||||
// id (neighbors traversal scans from_id/to_id), so this is cosmetic.
|
||||
fn wt_edge(from_id: String, to_id: String, weight: Float, relation: String) -> Void {
|
||||
engram_connect(from_id, to_id, weight, relation)
|
||||
if !wt_enabled() { return }
|
||||
if str_eq(from_id, "") || str_eq(to_id, "") { return }
|
||||
let ts: Int = time_now()
|
||||
let rec: String = "{\"id\":\"" + uuid_v4() + "\""
|
||||
+ ",\"from_id\":\"" + wt_esc(from_id) + "\""
|
||||
+ ",\"to_id\":\"" + wt_esc(to_id) + "\""
|
||||
+ ",\"relation\":\"" + wt_esc(relation) + "\""
|
||||
+ ",\"metadata\":\"{}\""
|
||||
+ ",\"weight\":" + float_to_str(weight)
|
||||
+ ",\"confidence\":1"
|
||||
+ ",\"created_at\":" + int_to_str(ts)
|
||||
+ ",\"updated_at\":" + int_to_str(ts)
|
||||
+ ",\"last_fired\":0,\"inhibitory\":0,\"layer_id\":1}"
|
||||
wt_stage("[]", "[" + rec + "]")
|
||||
}
|
||||
|
||||
// ── The drain ─────────────────────────────────────────────────────────────────
|
||||
|
||||
// wt_drain — coalesce every staged delta into ONE load-merge against the owner.
|
||||
//
|
||||
// Returns: nodes_added on success (>= 0), 0 when there was nothing to do, and
|
||||
// -1 when the push FAILED. -1 is load-bearing: on failure the spool files are
|
||||
// left untouched, so nothing is lost and the next drain retries them. A caller
|
||||
// must never read a non-negative return as "my particular node is durable" —
|
||||
// use wt_durable(id) for that.
|
||||
//
|
||||
// Concurrency: several threads may drain at once. Each builds its own batch file
|
||||
// (uuid-named), and overlapping batches are harmless because load-merge dedups.
|
||||
// Files are truncated ONLY after a confirmed ok:true, so a lost race costs a
|
||||
// redundant push, never a dropped write.
|
||||
fn wt_drain() -> Int {
|
||||
if !wt_enabled() { return 0 }
|
||||
let dir: String = wt_spool_dir()
|
||||
if str_eq(dir, "") { return 0 }
|
||||
|
||||
// el_list_len/el_list_get, NOT json_stringify(fs_list(...)): fs_list builds
|
||||
// a native list via el_list_append, and json_stringify does not serialize
|
||||
// that type — it renders the raw pointer value. (Verified in isolation; the
|
||||
// same latent defect is live in studio.el's /api/tools/file/list route,
|
||||
// which returns e.g. {"entries":4386409744}. Noted, not fixed here.)
|
||||
let listing = fs_list(dir)
|
||||
let count: Int = el_list_len(listing)
|
||||
if count == 0 { return 0 }
|
||||
|
||||
let nodes_acc: String = ""
|
||||
let edges_acc: String = ""
|
||||
let drained: String = ""
|
||||
let found: Int = 0
|
||||
let i: Int = 0
|
||||
// No `continue` / `break`: elc lists them as keywords but not one line of
|
||||
// the shipped soul uses either, so they are unexercised on this build path.
|
||||
// Guard conditions are expressed as nested ifs instead, and every rebind is
|
||||
// at the loop-body top level where `let x = ...` is assignment (the idiom
|
||||
// memory.el's boot-counter loop relies on) — never inside a nested block,
|
||||
// where it would shadow instead.
|
||||
while i < count {
|
||||
let name: String = el_list_get(listing, i)
|
||||
// A delta is only usable when it ends with the closing "]}" that
|
||||
// wt_stage writes last. fs_write is not atomic, so a file being written
|
||||
// right now can be observed half-formed; requiring the terminator means
|
||||
// it is picked up whole on the next drain instead of merged as garbage.
|
||||
// An empty read means "already drained and truncated" — not an error.
|
||||
let p: String = if str_starts_with(name, "wt-") { dir + "/" + name } else { "" }
|
||||
let raw: String = if str_eq(p, "") { "" } else { wt_read(p) }
|
||||
let usable: Bool = !str_eq(raw, "") && str_ends_with(raw, "]}")
|
||||
let nj: String = if usable { wt_inner(json_get_raw(raw, "nodes")) } else { "" }
|
||||
let ej: String = if usable { wt_inner(json_get_raw(raw, "edges")) } else { "" }
|
||||
let nodes_acc = if str_eq(nj, "") { nodes_acc } else if str_eq(nodes_acc, "") { nj } else { nodes_acc + "," + nj }
|
||||
let edges_acc = if str_eq(ej, "") { edges_acc } else if str_eq(edges_acc, "") { ej } else { edges_acc + "," + ej }
|
||||
let drained = if !usable { drained } else if str_eq(drained, "") { p } else { drained + "\n" + p }
|
||||
let found = if usable { found + 1 } else { found }
|
||||
let i = i + 1
|
||||
}
|
||||
|
||||
if found == 0 { return 0 }
|
||||
|
||||
let combined: String = "{\"nodes\":[" + nodes_acc + "],\"edges\":[" + edges_acc + "]}"
|
||||
let batch: String = dir + "/wtb-" + uuid_v4() + ".json"
|
||||
fs_write(batch, combined)
|
||||
if str_eq(wt_read(batch), "") {
|
||||
println("[persist] wt_drain: could not write batch file " + batch + " — " + int_to_str(found) + " deltas stay queued")
|
||||
return -1
|
||||
}
|
||||
|
||||
let url: String = wt_engram_url()
|
||||
let key: String = wt_api_key()
|
||||
let body: String = "{\"path\":\"" + wt_esc(batch) + "\",\"_auth\":\"" + wt_esc(key) + "\"}"
|
||||
let resp: String = http_post_json(url + "/api/load-merge", body)
|
||||
|
||||
// The batch file is pure scratch — the retry is rebuilt from the SPOOL, not
|
||||
// from it. Truncate it unconditionally, before branching on the outcome, so
|
||||
// a persistently unreachable owner cannot accumulate one husk per attempt.
|
||||
fs_write(batch, "")
|
||||
|
||||
// Distinguish the two failures rather than collapsing them: "cannot reach
|
||||
// the owner" and "the owner refused this delta" need different human
|
||||
// responses, and a log line that says the wrong one costs a debugging hour.
|
||||
// curl surfaces transport errors as a JSON body, so an empty response is not
|
||||
// the only unreachable signal.
|
||||
// (str_contains rather than a strict parse on purpose — the engram's HTTP
|
||||
// responses have been observed carrying trailing bytes past the JSON.)
|
||||
let unreachable: Bool = str_eq(resp, "")
|
||||
|| str_contains(resp, "Couldn't connect")
|
||||
|| str_contains(resp, "Failed to connect")
|
||||
|| str_contains(resp, "Could not resolve")
|
||||
|| str_contains(resp, "timed out")
|
||||
if unreachable {
|
||||
wt_sweep(dir)
|
||||
println("[persist] wt_drain: owner UNREACHABLE at " + url + " — " + int_to_str(found)
|
||||
+ " deltas stay queued in " + dir + " (will retry): " + resp)
|
||||
return -1
|
||||
}
|
||||
if !str_contains(resp, "\"ok\":true") {
|
||||
wt_sweep(dir)
|
||||
println("[persist] wt_drain: owner REJECTED the delta — " + int_to_str(found)
|
||||
+ " stay queued in " + dir + ": " + resp)
|
||||
return -1
|
||||
}
|
||||
|
||||
let added: Int = json_get_int(resp, "nodes_added")
|
||||
let added_e: Int = json_get_int(resp, "edges_added")
|
||||
|
||||
// Confirmed. Truncate the drained spool files so they are not re-pushed.
|
||||
// Truncation (not deletion) because the runtime exposes no unlink builtin;
|
||||
// an emptied file is inert to the loop above. The zero-byte husks are then
|
||||
// swept below.
|
||||
let paths = str_split(drained, "\n")
|
||||
let pn: Int = el_list_len(paths)
|
||||
let k: Int = 0
|
||||
while k < pn {
|
||||
let one: String = el_list_get(paths, k)
|
||||
if !str_eq(one, "") { fs_write(one, "") }
|
||||
let k = k + 1
|
||||
}
|
||||
wt_sweep(dir)
|
||||
|
||||
println("[persist] wt_drain: pushed " + int_to_str(found) + " deltas -> owner added "
|
||||
+ int_to_str(added) + " nodes, " + int_to_str(added_e) + " edges")
|
||||
return added
|
||||
}
|
||||
|
||||
// wt_durable — is this id present AT THE OWNER? The only honest answer to
|
||||
// "did my write persist" in HTTP mode.
|
||||
//
|
||||
// In file mode the soul IS the owner, so the local read-back is the owner-side
|
||||
// read-back and this collapses to the pre-existing check.
|
||||
//
|
||||
// nodes_added from wt_drain is NOT a substitute: a concurrent drain may have
|
||||
// already pushed this node, making our own added count 0 while the node is
|
||||
// perfectly durable. Presence at the owner is the fact; counts are telemetry.
|
||||
fn wt_durable(id: String) -> Bool {
|
||||
if str_eq(id, "") { return false }
|
||||
if !wt_enabled() {
|
||||
let local: String = engram_get_node_json(id)
|
||||
return !str_eq(local, "") && !str_eq(local, "null") && !str_eq(local, "{}")
|
||||
}
|
||||
let url: String = wt_engram_url()
|
||||
let resp: String = http_get(url + "/api/nodes/" + id)
|
||||
if str_eq(resp, "") { return false }
|
||||
if str_eq(resp, "{}") { return false }
|
||||
return str_contains(resp, "\"id\"")
|
||||
}
|
||||
|
||||
// wt_commit — flush, then assert at the owner. The receipt callers should use.
|
||||
// Deliberately NOT a fixed success shape: it can and does return false while the
|
||||
// local write is perfectly fine in RAM, which is the true state of affairs when
|
||||
// the owner is unreachable.
|
||||
fn wt_commit(id: String) -> Bool {
|
||||
if str_eq(id, "") { return false }
|
||||
if !wt_enabled() {
|
||||
let local: String = engram_get_node_json(id)
|
||||
return !str_eq(local, "") && !str_eq(local, "null") && !str_eq(local, "{}")
|
||||
}
|
||||
let pushed: Int = wt_drain()
|
||||
return wt_durable(id)
|
||||
}
|
||||
@@ -4,6 +4,109 @@ import "chat.el"
|
||||
import "studio.el"
|
||||
import "elp-input.el"
|
||||
import "neuron-api.el"
|
||||
import "sessions.el"
|
||||
import "soul.elh"
|
||||
|
||||
// flag_true — tolerant flag test: accepts both boolean `true` (Kotlin UI) and
|
||||
// integer 1 (el-src UI). json_get_bool only recognises literal `true`, so
|
||||
// without this wrapper an "agentic":1 request would silently route to the
|
||||
// non-agentic path.
|
||||
fn flag_true(body: String, key: String) -> Bool {
|
||||
return json_get_bool(body, key) || json_get_int(body, key) > 0
|
||||
}
|
||||
|
||||
// ---------------------------------------------------------------------------
|
||||
// plain_chat_envelope — the JSON response contract for a non-agentic ("Tools: Off")
|
||||
// chat turn. Every /api/chat dispatch that calls layered_cycle goes through here, so
|
||||
// the three call sites cannot drift apart.
|
||||
//
|
||||
// WHY THE ENVELOPE IS BUILT HERE AND NOT INSIDE layered_cycle:
|
||||
// layered_cycle returns the user-facing text AFTER safety_validate has acted on it.
|
||||
// Keeping the JSON out of the cycle means the output gate always sees raw model text
|
||||
// and never an escaped blob — there is nothing to unwrap and re-wrap on the crisis
|
||||
// path, which is exactly the failure mode that made wiring handle_chat unsafe.
|
||||
// Escaping is the last thing that happens, strictly after the gate.
|
||||
//
|
||||
// FIELDS: `reply` and `response` carry the same validated text. Both are required by
|
||||
// live clients — the desktop app reads `reply` first (DaemonClient.parseChatResponse),
|
||||
// while the CLI tools and the Telegram gateway read `response` (the gateway reads only
|
||||
// `response`). Emitting one would break the other.
|
||||
//
|
||||
// EMPTY MEANS FAILURE, NOT AN EMPTY ANSWER: a hard bell returns the fixed crisis
|
||||
// message and a soft bell is padded to non-empty by safety_validate, so the only way
|
||||
// an empty string leaves the cycle is a failed model call. It is reported as an error
|
||||
// rather than dressed up as a successful blank reply.
|
||||
// ---------------------------------------------------------------------------
|
||||
fn plain_chat_envelope(validated: String, model: String) -> String {
|
||||
if str_eq(validated, "") {
|
||||
return "{\"error\":\"llm unavailable\",\"reply\":\"\",\"response\":\"\",\"agentic\":false,\"tools_used\":[]}"
|
||||
}
|
||||
let safe: String = json_safe(validated)
|
||||
return "{\"reply\":\"" + safe + "\""
|
||||
+ ",\"response\":\"" + safe + "\""
|
||||
+ ",\"model\":\"" + json_safe(model) + "\""
|
||||
+ ",\"agentic\":false"
|
||||
+ ",\"tools_used\":[]}"
|
||||
}
|
||||
|
||||
// ---------------------------------------------------------------------------
|
||||
// Rate limiting — simple in-memory per-IP sliding window counter.
|
||||
//
|
||||
// State keys:
|
||||
// rl:<ip>:count — request count in the current window
|
||||
// rl:<ip>:window — window start timestamp (unix seconds)
|
||||
//
|
||||
// Limit: configurable via soul state key "soul_rate_limit" (requests per
|
||||
// minute). Falls back to 60 req/min if not set. The /health endpoint is
|
||||
// exempt so monitoring does not consume quota.
|
||||
//
|
||||
// State growth: each unique source IP accumulates exactly 2 state keys
|
||||
// (count + window) for the lifetime of the process. Per-IP storage is
|
||||
// bounded and constant; values reset on window expiry. In aggregate, state
|
||||
// grows linearly with distinct IPs — typical for a trusted-client service.
|
||||
// EL has no state_delete builtin, so keys from inactive IPs persist.
|
||||
// TODO: add state_delete sweep when the EL runtime exposes that primitive.
|
||||
//
|
||||
// Returns "" when the request is allowed, or a 429 JSON body when rejected.
|
||||
// ---------------------------------------------------------------------------
|
||||
fn rate_limit_check(ip: String, path: String) -> String {
|
||||
// Health checks are exempt — they must never be blocked.
|
||||
if str_eq(path, "/health") {
|
||||
return ""
|
||||
}
|
||||
|
||||
let limit_str: String = state_get("soul_rate_limit")
|
||||
let limit: Int = if str_eq(limit_str, "") { 60 } else { str_to_int(limit_str) }
|
||||
|
||||
let now: Int = time_now()
|
||||
let window_key: String = "rl:" + ip + ":window"
|
||||
let count_key: String = "rl:" + ip + ":count"
|
||||
|
||||
let win_str: String = state_get(window_key)
|
||||
let win_start: Int = if str_eq(win_str, "") { now } else { str_to_int(win_str) }
|
||||
|
||||
// New window every 60 seconds.
|
||||
let elapsed: Int = now - win_start
|
||||
let in_window: Bool = elapsed < 60
|
||||
|
||||
let prev_count_str: String = state_get(count_key)
|
||||
let prev_count: Int = if str_eq(prev_count_str, "") { 0 } else { str_to_int(prev_count_str) }
|
||||
|
||||
// Reset window if expired.
|
||||
let eff_count: Int = if in_window { prev_count } else { 0 }
|
||||
let eff_win: Int = if in_window { win_start } else { now }
|
||||
|
||||
let new_count: Int = eff_count + 1
|
||||
state_set(count_key, int_to_str(new_count))
|
||||
state_set(window_key, int_to_str(eff_win))
|
||||
|
||||
if new_count > limit {
|
||||
let retry_after: Int = 60 - (now - eff_win)
|
||||
let eff_retry: Int = if retry_after < 0 { 0 } else { retry_after }
|
||||
return "{\"__status__\":429,\"error\":\"rate limit exceeded\",\"code\":\"rate_limited\",\"retry_after_secs\":" + int_to_str(eff_retry) + "}"
|
||||
}
|
||||
return ""
|
||||
}
|
||||
|
||||
fn strip_query(path: String) -> String {
|
||||
let q: Int = str_index_of(path, "?")
|
||||
@@ -14,11 +117,11 @@ fn strip_query(path: String) -> String {
|
||||
}
|
||||
|
||||
fn err_404(path: String) -> String {
|
||||
return "{\"error\":\"not found\",\"path\":\"" + path + "\"}"
|
||||
return "{\"error\":\"not found\",\"code\":\"not_found\",\"path\":\"" + path + "\"}"
|
||||
}
|
||||
|
||||
fn err_405(method: String, path: String) -> String {
|
||||
return "{\"error\":\"method not allowed\",\"method\":\"" + method + "\",\"path\":\"" + path + "\"}"
|
||||
return "{\"error\":\"method not allowed\",\"code\":\"method_not_allowed\",\"method\":\"" + method + "\",\"path\":\"" + path + "\"}"
|
||||
}
|
||||
|
||||
fn route_health() -> String {
|
||||
@@ -29,12 +132,36 @@ fn route_health() -> String {
|
||||
let edge_ct: Int = engram_edge_count()
|
||||
let pulse: String = state_get("soul.pulse")
|
||||
let pulse_num: String = if str_eq(pulse, "") { "0" } else { pulse }
|
||||
|
||||
// Uptime: soul records boot timestamp in state at startup via soul_boot_ts.
|
||||
// Compute elapsed seconds; fall back to -1 if not yet set.
|
||||
let boot_ts_str: String = state_get("soul_boot_ts")
|
||||
let uptime_secs: Int = if str_eq(boot_ts_str, "") {
|
||||
-1
|
||||
} else {
|
||||
time_now() - str_to_int(boot_ts_str)
|
||||
}
|
||||
|
||||
// LLM connectivity: probe with a minimal call. Any non-error reply = ok.
|
||||
// Use a short, fixed prompt so this never counts against conversation history.
|
||||
let model: String = state_get("soul_model")
|
||||
let eff_model: String = if str_eq(model, "") { "claude-sonnet-4-5" } else { model }
|
||||
let llm_probe: String = llm_call_system(eff_model, "You are a health probe. Reply with the single word: ok", "ping")
|
||||
let llm_ok: Bool = !str_eq(llm_probe, "")
|
||||
&& !str_starts_with(llm_probe, "{\"error\"")
|
||||
&& !str_starts_with(llm_probe, "{\"type\":\"error\"")
|
||||
&& !str_contains(llm_probe, "authentication_error")
|
||||
let llm_status: String = if llm_ok { "ok" } else { "unreachable" }
|
||||
|
||||
return "{\"status\":\"alive\""
|
||||
+ ",\"cgi_id\":\"" + cgi_id + "\""
|
||||
+ ",\"boot\":" + boot_num
|
||||
+ ",\"uptime_secs\":" + int_to_str(uptime_secs)
|
||||
+ ",\"node_count\":" + int_to_str(node_ct)
|
||||
+ ",\"edge_count\":" + int_to_str(edge_ct)
|
||||
+ ",\"pulse\":" + pulse_num + "}"
|
||||
+ ",\"pulse\":" + pulse_num
|
||||
+ ",\"llm\":\"" + llm_status + "\""
|
||||
+ ",\"layers\":{\"l0\":\"core\",\"l1\":\"safety\",\"l2\":\"stewardship\",\"l3\":\"" + imprint_current() + "\"}}"
|
||||
}
|
||||
|
||||
fn route_lineage() -> String {
|
||||
@@ -59,7 +186,7 @@ fn route_imprint_contextual(body: String) -> String {
|
||||
return "{\"ok\":false,\"error\":\"empty body\"}"
|
||||
}
|
||||
let tags: String = "[\"imprint\",\"contextual\"]"
|
||||
let id: String = engram_node_full(
|
||||
let id: String = wt_node(
|
||||
body,
|
||||
"Entity",
|
||||
"imprint:contextual",
|
||||
@@ -81,7 +208,7 @@ fn route_imprint_user(body: String) -> String {
|
||||
return "{\"ok\":false,\"error\":\"empty body\"}"
|
||||
}
|
||||
let tags: String = "[\"imprint\",\"user\"]"
|
||||
let id: String = engram_node_full(
|
||||
let id: String = wt_node(
|
||||
body,
|
||||
"Entity",
|
||||
"imprint:user",
|
||||
@@ -100,19 +227,19 @@ fn route_imprint_user(body: String) -> String {
|
||||
|
||||
fn route_synthesize(body: String) -> String {
|
||||
if str_eq(body, "") {
|
||||
return "{\"mechanism\":\"did not engage\"}"
|
||||
return "{\"error\":\"body is required\",\"code\":\"missing_param\"}"
|
||||
}
|
||||
let parent_a: String = json_get(body, "parent_a")
|
||||
let parent_b: String = json_get(body, "parent_b")
|
||||
if str_eq(parent_a, "") {
|
||||
return "{\"mechanism\":\"did not engage\"}"
|
||||
return "{\"error\":\"parent_a is required\",\"code\":\"missing_param\"}"
|
||||
}
|
||||
if str_eq(parent_b, "") {
|
||||
return "{\"mechanism\":\"did not engage\"}"
|
||||
return "{\"error\":\"parent_b is required\",\"code\":\"missing_param\"}"
|
||||
}
|
||||
let req: String = "synthesize " + parent_a + " " + parent_b
|
||||
let tags: String = "[\"soul-inbox-pending\",\"synthesis-request\"]"
|
||||
engram_node_full(
|
||||
wt_node(
|
||||
req,
|
||||
"Entity",
|
||||
"synthesis-request",
|
||||
@@ -143,10 +270,21 @@ fn handle_dharma_recv(body: String) -> String {
|
||||
eff_payload
|
||||
}
|
||||
let agentic_flag: Bool = json_get_bool(eff_payload, "agentic")
|
||||
let reply: String = if agentic_flag {
|
||||
let raw_msg: String = json_get(chat_body, "message")
|
||||
let req_mode: String = json_get(chat_body, "mode")
|
||||
let reply: String = if str_eq(req_mode, "plan") {
|
||||
handle_chat_plan(chat_body)
|
||||
} else if agentic_flag {
|
||||
handle_chat_agentic(chat_body)
|
||||
} else {
|
||||
handle_chat(chat_body)
|
||||
// Non-agentic ("Tools: Off"): the full L1→L2→L3→L1 cycle, which now generates
|
||||
// at L3 instead of echoing. Envelope built outside the cycle — see
|
||||
// plain_chat_envelope.
|
||||
// FIX B/E1 (2026-08-05): the cycle is told which conversation it is in, and
|
||||
// whether this generation is conversation at all. Same two arguments at all
|
||||
// three dispatch sites.
|
||||
let screened_reply: String = layered_cycle(raw_msg, json_get(chat_body, "session_id"), is_utility_request(chat_body, json_get(chat_body, "session_id")))
|
||||
plain_chat_envelope(screened_reply, chat_default_model())
|
||||
}
|
||||
auto_persist(chat_body, reply)
|
||||
return reply
|
||||
@@ -196,16 +334,110 @@ fn handle_dharma_recv(body: String) -> String {
|
||||
return "{\"error\":\"unknown event_type\",\"event_type\":\"" + eff_event + "\"}"
|
||||
}
|
||||
|
||||
fn route_sessions() -> String {
|
||||
let results: String = engram_search_json("session-start", 20)
|
||||
if str_eq(results, "") { return "[]" }
|
||||
if str_eq(results, "[]") { return "[]" }
|
||||
return results
|
||||
// ---------------------------------------------------------------------------
|
||||
// MCP Connectors proxy — thin pass-through to neuron-connectd on :7771.
|
||||
// The UI talks to ONE origin (the soul); all MCP/config complexity lives in
|
||||
// the bridge. Bridge-down returns a clear error (not a panic).
|
||||
// ---------------------------------------------------------------------------
|
||||
|
||||
fn connectd_get(suffix: String) -> String {
|
||||
let out: String = exec_capture("curl -s --max-time 5 http://127.0.0.1:7771" + suffix)
|
||||
if str_eq(out, "") {
|
||||
return "{\"ok\":false,\"error\":\"connector bridge unreachable (neuron-connectd on :7771)\"}"
|
||||
}
|
||||
return out
|
||||
}
|
||||
|
||||
// POST passthrough: request body is written to a temp file and passed via -d @file
|
||||
// so arbitrary JSON cannot reach the shell as a command-line argument.
|
||||
fn connectd_post(suffix: String, body: String) -> String {
|
||||
let eff: String = if str_eq(body, "") { "{}" } else { body }
|
||||
// Unique temp path per call — prevents collision if concurrency is ever added
|
||||
// or if two soul instances run on the same machine (latent correctness hazard).
|
||||
let tmp: String = "/tmp/neuron-connectors-req-" + int_to_str(time_now()) + ".json"
|
||||
fs_write(tmp, eff)
|
||||
let out: String = exec_capture("curl -s --max-time 20 -X POST http://127.0.0.1:7771" + suffix + " -H 'Content-Type: application/json' -d @" + tmp)
|
||||
if str_eq(out, "") {
|
||||
return "{\"ok\":false,\"error\":\"connector bridge unreachable (neuron-connectd on :7771)\"}"
|
||||
}
|
||||
return out
|
||||
}
|
||||
|
||||
fn handle_connectors(method: String, clean: String, body: String) -> String {
|
||||
if str_eq(method, "GET") {
|
||||
// /api/connectors -> each configured server with status, tools, auth, auto-approve.
|
||||
return connectd_get("/mcp/servers")
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/add") {
|
||||
return connectd_post("/mcp/servers/add", body)
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/toggle") {
|
||||
return connectd_post("/mcp/servers/toggle", body)
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/auto-approve") {
|
||||
return connectd_post("/mcp/servers/auto-approve", body)
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/remove") {
|
||||
return connectd_post("/mcp/servers/remove", body)
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/secret") {
|
||||
return connectd_post("/mcp/servers/secret", body)
|
||||
}
|
||||
if str_eq(clean, "/api/connectors/oauth/start") {
|
||||
return connectd_post("/mcp/oauth/start", body)
|
||||
}
|
||||
// Call a connector tool directly (pre-chat), e.g. WhatsApp get_pairing_qr / get_login_status for
|
||||
// the pairing UI. Body: {"name":"mcp__<server>__<tool>","input":{...}}. Keeps the app on the
|
||||
// app->soul->connectd path (the UI never hits connectd directly) and works for remote/hosted apps.
|
||||
if str_eq(clean, "/api/connectors/call") {
|
||||
return connectd_post("/mcp/call", body)
|
||||
}
|
||||
return "{\"ok\":false,\"error\":\"unknown connectors route\"}"
|
||||
}
|
||||
|
||||
// handle_request — the soul's HTTP entry point.
|
||||
//
|
||||
// NOTE ON THE NAME (neuron#117): the el runtime resolves this handler by NAME
|
||||
// via dlsym(RTLD_DEFAULT, "handle_request") — that is why the Linux build must
|
||||
// link -rdynamic. So the dispatcher body moved to route_dispatch and the name
|
||||
// `handle_request` stays put as a thin wrapper. Do not rename it back.
|
||||
//
|
||||
// The wrapper exists to give the write-through boundary a guaranteed flush
|
||||
// point. route_dispatch returns from ~60 places; a per-branch flush would be
|
||||
// forgotten on the 61st. Draining here means EVERY request that staged a write
|
||||
// pushes it before the connection closes, whatever route produced it, including
|
||||
// routes added later that know nothing about persistence.
|
||||
//
|
||||
// wt_drain is a no-op (no HTTP, no cost) when nothing is staged and when the
|
||||
// soul is not in HTTP-engram mode, so this is free on read traffic.
|
||||
fn handle_request(method: String, path: String, body: String) -> String {
|
||||
let resp: String = route_dispatch(method, path, body)
|
||||
let flushed: Int = wt_drain()
|
||||
return resp
|
||||
}
|
||||
|
||||
fn route_dispatch(method: String, path: String, body: String) -> String {
|
||||
let clean: String = strip_query(path)
|
||||
|
||||
// ACTIVITY STAMP (2026-07-30 self-review): every inbound HTTP request —
|
||||
// MCP wrapper calls, chat, API — marks real external activity. Before
|
||||
// this, "idle" was only reset by rare inbox synthesis-requests, so the
|
||||
// heartbeat idle field tracked uptime exactly (idle == pulse on every
|
||||
// beat) and carried zero information. The awareness heartbeat now
|
||||
// reports idle_ms = wall-clock ms since this stamp.
|
||||
state_set("soul.last_activity_ts", int_to_str(time_now()))
|
||||
|
||||
// Rate limit check. Extract caller IP from REMOTE_ADDR env var (set by the
|
||||
// EL HTTP runtime for each request). Skip enforcement when empty so
|
||||
// loopback/internal callers are never blocked.
|
||||
let ip: String = env("REMOTE_ADDR")
|
||||
if !str_eq(ip, "") {
|
||||
let rl_result: String = rate_limit_check(ip, clean)
|
||||
if !str_eq(rl_result, "") {
|
||||
return rl_result
|
||||
}
|
||||
}
|
||||
|
||||
if str_eq(method, "POST") && str_eq(clean, "/dharma/recv") {
|
||||
return handle_dharma_recv(body)
|
||||
}
|
||||
@@ -214,9 +446,6 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
if str_eq(clean, "/health") {
|
||||
return route_health()
|
||||
}
|
||||
if str_eq(clean, "/api/sessions") {
|
||||
return route_sessions()
|
||||
}
|
||||
if str_eq(clean, "/lineage") {
|
||||
return route_lineage()
|
||||
}
|
||||
@@ -224,14 +453,55 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
return engram_scan_nodes_json(9999, 0)
|
||||
}
|
||||
if str_eq(clean, "/api/graph/edges") {
|
||||
let snap_path: String = env("HOME") + "/.neuron/engram/snapshot.json"
|
||||
// FIXED (neuron#117): this GET used to engram_save() straight over
|
||||
// ~/.neuron/engram/snapshot.json — a READ route, in a process that is
|
||||
// NOT the persistence owner, overwriting the owner's canonical file
|
||||
// on every call. It broke soul.el:571-573 ("the soul must NEVER write
|
||||
// to the local snapshot") and it is the same defect class Will removed
|
||||
// from the engram itself in el `dc39a61` ("stop read routes clobbering
|
||||
// canonical snapshot"), where route_scan_edges/route_sync were moved
|
||||
// to scratch paths for exactly this reason. It was also the race the
|
||||
// old TODO(reliability #8) admitted to.
|
||||
//
|
||||
// Export to a scratch path instead. Same response, no canonical write.
|
||||
// The soul's own snapshot writes are otherwise already gated behind
|
||||
// state key "soul_snapshot_path", which is set ONLY in the genesis
|
||||
// file-mode branch (soul.el: is_genesis && safe_to_seed, and
|
||||
// safe_to_seed is unconditionally false when ENGRAM_URL is set) — so
|
||||
// after this change the soul writes nothing at all in HTTP mode.
|
||||
// Future: add an engram_edges_json() builtin and drop the file round
|
||||
// trip entirely.
|
||||
let scratch_dir: String = env("TMPDIR")
|
||||
let scratch_base: String = if str_eq(scratch_dir, "") { "/tmp" } else { scratch_dir }
|
||||
let snap_path: String = scratch_base + "/soul-edges-export-" + state_get("soul_cgi_id") + ".json"
|
||||
engram_save(snap_path)
|
||||
let snap: String = fs_read(snap_path)
|
||||
let edges_raw: String = json_get_raw(snap, "edges")
|
||||
return if str_eq(edges_raw, "") { "[]" } else { edges_raw }
|
||||
}
|
||||
if str_eq(clean, "/api/chat") {
|
||||
return handle_chat(body)
|
||||
// GET /api/chat: pass through layered_cycle for consistency with POST path.
|
||||
// GET chat is a legacy probe interface; body may be empty for simple pings.
|
||||
let raw_msg: String = json_get(body, "message")
|
||||
let eff_msg: String = if str_eq(raw_msg, "") { body } else { raw_msg }
|
||||
if str_eq(eff_msg, "") {
|
||||
return "{\"error\":\"message is required\",\"code\":\"missing_param\"}"
|
||||
}
|
||||
let agentic_flag: Bool = json_get_bool(body, "agentic")
|
||||
let req_mode: String = json_get(body, "mode")
|
||||
let reply: String = if str_eq(req_mode, "plan") {
|
||||
handle_chat_plan(body)
|
||||
} else if agentic_flag {
|
||||
handle_chat_agentic(body)
|
||||
} else {
|
||||
// Non-agentic ("Tools: Off") — same cycle and same envelope as POST.
|
||||
// FIX B/E1: same threading. A GET probe usually carries no session_id, which
|
||||
// resolves to the anonymous window — the documented behaviour for this door.
|
||||
let screened_reply: String = layered_cycle(eff_msg, json_get(body, "session_id"), is_utility_request(body, json_get(body, "session_id")))
|
||||
plain_chat_envelope(screened_reply, chat_default_model())
|
||||
}
|
||||
auto_persist(body, reply)
|
||||
return reply
|
||||
}
|
||||
if str_eq(clean, "/api/conversations") {
|
||||
return handle_conversations(method)
|
||||
@@ -276,6 +546,9 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
if str_eq(clean, "/api/neuron/ctx") {
|
||||
return handle_api_compile_ctx("")
|
||||
}
|
||||
if str_eq(clean, "/api/safety-contact") {
|
||||
return handle_safety_contact_get()
|
||||
}
|
||||
if str_starts_with(clean, "/api/neuron/knowledge/search") {
|
||||
return handle_api_search_knowledge(method, path, body)
|
||||
}
|
||||
@@ -294,17 +567,79 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
if str_starts_with(clean, "/api/neuron/graph") {
|
||||
return handle_api_inspect_graph(method, path, body)
|
||||
}
|
||||
// Stage 1 structural audit (CGI provisional, "Structural audit 430").
|
||||
// GET because it is a read of the graph's own structure; the query string
|
||||
// carries the sample caps (?edge_sample=, ?node_sample=, ?edges=0), so
|
||||
// str_starts_with rather than str_eq.
|
||||
if str_starts_with(clean, "/api/neuron/audit/structural") {
|
||||
return handle_api_structural_audit(method, path, body)
|
||||
}
|
||||
if str_starts_with(clean, "/api/neuron/list/") {
|
||||
let node_type: String = str_slice(clean, 16, str_len(clean))
|
||||
// Offset 17 = len("/api/neuron/list/"). Was 16, which left a leading "/" on node_type
|
||||
// ("/BacklogItem"), so engram_scan_nodes_by_type_json matched nothing → list/<type>
|
||||
// returned [] for EVERY type (broke backlog/typed-node listing app- and tool-wide).
|
||||
let node_type: String = str_slice(clean, 17, str_len(clean))
|
||||
return handle_api_list_typed(node_type, path, body)
|
||||
}
|
||||
if str_starts_with(clean, "/api/neuron/recall") {
|
||||
return handle_api_recall(method, path, body)
|
||||
}
|
||||
if str_starts_with(clean, "/api/connectors") {
|
||||
return handle_connectors(method, clean, body)
|
||||
}
|
||||
// GET /api/run-progress/:session_id — live agentic-run ledger (2026-07-13,
|
||||
// narrated-runs). agentic_loop appends one {"i","t","tool"} entry per round
|
||||
// (the model's own pre-tool narration); a {"done":true} entry closes the run.
|
||||
// Clients poll this during a run to render live step updates without streaming.
|
||||
if str_starts_with(clean, "/api/run-progress/") {
|
||||
let rp_id: String = str_slice(clean, 18, str_len(clean))
|
||||
if !str_eq(rp_id, "") {
|
||||
let rp_raw: String = state_get("run_progress_" + rp_id)
|
||||
let rp_arr: String = if str_eq(rp_raw, "") { "[]" } else { "[" + rp_raw + "]" }
|
||||
return "{\"progress\":" + rp_arr + "}"
|
||||
}
|
||||
}
|
||||
// GET /api/sessions — list all sessions
|
||||
if str_eq(clean, "/api/sessions") {
|
||||
return session_list()
|
||||
}
|
||||
// GET /api/sessions/:id — get session metadata + history
|
||||
if str_starts_with(clean, "/api/sessions/") {
|
||||
let gs_after: String = str_slice(clean, 14, str_len(clean))
|
||||
let gs_slash: Int = str_index_of(gs_after, "/")
|
||||
let gs_id: String = if gs_slash < 0 { gs_after } else { str_slice(gs_after, 0, gs_slash) }
|
||||
if !str_eq(gs_id, "") {
|
||||
return session_get(gs_id)
|
||||
}
|
||||
}
|
||||
return err_404(clean)
|
||||
}
|
||||
|
||||
if str_eq(method, "POST") {
|
||||
// POST /api/sessions — create new session
|
||||
if str_eq(clean, "/api/sessions") {
|
||||
return session_create(body)
|
||||
}
|
||||
// MCP tool-bridge resume: POST /api/sessions/{id}/tool_result
|
||||
// The client executed a tool the soul could not run in-process (an MCP
|
||||
// connector/plugin) and posts the result back here so the agentic loop
|
||||
// continues. {id} is the session_id from the prior tool_pending envelope.
|
||||
if str_starts_with(clean, "/api/sessions/") && str_ends_with(clean, "/tool_result") {
|
||||
let after: String = str_slice(clean, 14, str_len(clean))
|
||||
let slash: Int = str_index_of(after, "/")
|
||||
let session_id: String = if slash < 0 { after } else { str_slice(after, 0, slash) }
|
||||
return handle_tool_result(session_id, body)
|
||||
}
|
||||
// POST /api/sessions/:id/approve — user approval for a pending agentic tool call
|
||||
if str_starts_with(clean, "/api/sessions/") {
|
||||
let sess_after: String = str_slice(clean, 14, str_len(clean))
|
||||
let sess_slash: Int = str_index_of(sess_after, "/")
|
||||
let sess_id: String = if sess_slash < 0 { sess_after } else { str_slice(sess_after, 0, sess_slash) }
|
||||
let sess_sub: String = if sess_slash < 0 { "" } else { str_slice(sess_after, sess_slash + 1, str_len(sess_after)) }
|
||||
if !str_eq(sess_id, "") && str_eq(sess_sub, "approve") {
|
||||
return handle_session_approve(sess_id, body)
|
||||
}
|
||||
}
|
||||
if str_eq(clean, "/imprint/contextual") {
|
||||
return route_imprint_contextual(body)
|
||||
}
|
||||
@@ -318,11 +653,28 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
return handle_elp_chat(body)
|
||||
}
|
||||
if str_eq(clean, "/api/chat") {
|
||||
// NOTE: streaming (SSE / chunked transfer) is not implemented. All chat
|
||||
// responses are buffered and returned as a single JSON object. Streaming
|
||||
// would require runtime-level SSE support in el_runtime.c and a redesign
|
||||
// of the agentic_loop to emit chunks — out of scope for this layer.
|
||||
let raw_msg: String = json_get(body, "message")
|
||||
if str_eq(raw_msg, "") {
|
||||
return "{\"error\":\"message is required\",\"code\":\"missing_param\"}"
|
||||
}
|
||||
let agentic_flag: Bool = json_get_bool(body, "agentic")
|
||||
let reply: String = if agentic_flag {
|
||||
let req_mode: String = json_get(body, "mode")
|
||||
let reply: String = if str_eq(req_mode, "plan") {
|
||||
handle_chat_plan(body)
|
||||
} else if agentic_flag {
|
||||
handle_chat_agentic(body)
|
||||
} else {
|
||||
handle_chat(body)
|
||||
// Non-agentic ("Tools: Off") — the app's DEFAULT mode (AgentMode.NEVER).
|
||||
// Full L1→L2→L3→L1 cycle with real generation at L3; envelope built
|
||||
// outside the cycle so safety_validate always sees raw text.
|
||||
// FIX B/E1: same threading. This is the app's main plain-chat door, so this
|
||||
// is the site that ends the blank stare in practice.
|
||||
let screened_reply: String = layered_cycle(raw_msg, json_get(body, "session_id"), is_utility_request(body, json_get(body, "session_id")))
|
||||
plain_chat_envelope(screened_reply, chat_default_model())
|
||||
}
|
||||
auto_persist(body, reply)
|
||||
return reply
|
||||
@@ -403,9 +755,27 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
if str_eq(clean, "/api/neuron/graph/link") {
|
||||
return handle_api_link_entities(body)
|
||||
}
|
||||
// POST accepted too: same handler, so a JSON-RPC-shaped caller that only
|
||||
// speaks POST reaches the identical audit. Options still come from the
|
||||
// query string — the handler reads no body fields.
|
||||
if str_eq(clean, "/api/neuron/audit/structural") {
|
||||
return handle_api_structural_audit(method, path, body)
|
||||
}
|
||||
if str_eq(clean, "/api/neuron/memory") {
|
||||
return handle_api_remember(body)
|
||||
}
|
||||
if str_eq(clean, "/api/safety-contact") {
|
||||
return handle_safety_contact_post(body)
|
||||
}
|
||||
if str_eq(clean, "/api/neuron/node/create") {
|
||||
return handle_api_node_create(body)
|
||||
}
|
||||
if str_eq(clean, "/api/neuron/node/update") {
|
||||
return handle_api_node_update(body)
|
||||
}
|
||||
if str_eq(clean, "/api/neuron/node/delete") {
|
||||
return handle_api_node_delete(body)
|
||||
}
|
||||
if str_eq(clean, "/api/neuron/memory/evolve") {
|
||||
return handle_api_evolve_memory(body)
|
||||
}
|
||||
@@ -427,6 +797,35 @@ fn handle_request(method: String, path: String, body: String) -> String {
|
||||
if str_eq(clean, "/api/neuron/cultivate") {
|
||||
return handle_api_cultivate(body)
|
||||
}
|
||||
if str_starts_with(clean, "/api/connectors") {
|
||||
return handle_connectors(method, clean, body)
|
||||
}
|
||||
return err_404(clean)
|
||||
}
|
||||
|
||||
if str_eq(method, "DELETE") {
|
||||
// DELETE /api/sessions/:id — delete a session and its history
|
||||
if str_starts_with(clean, "/api/sessions/") {
|
||||
let del_after: String = str_slice(clean, 14, str_len(clean))
|
||||
let del_slash: Int = str_index_of(del_after, "/")
|
||||
let del_id: String = if del_slash < 0 { del_after } else { str_slice(del_after, 0, del_slash) }
|
||||
if !str_eq(del_id, "") {
|
||||
return session_delete(del_id)
|
||||
}
|
||||
}
|
||||
return err_404(clean)
|
||||
}
|
||||
|
||||
if str_eq(method, "PATCH") {
|
||||
// PATCH /api/sessions/:id — update session title and/or folder
|
||||
if str_starts_with(clean, "/api/sessions/") {
|
||||
let patch_after: String = str_slice(clean, 14, str_len(clean))
|
||||
let patch_slash: Int = str_index_of(patch_after, "/")
|
||||
let patch_id: String = if patch_slash < 0 { patch_after } else { str_slice(patch_after, 0, patch_slash) }
|
||||
if !str_eq(patch_id, "") {
|
||||
return session_update_patch(patch_id, body)
|
||||
}
|
||||
}
|
||||
return err_404(clean)
|
||||
}
|
||||
|
||||
|
||||
+5
-1
@@ -1,4 +1,6 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn flag_true(body: String, key: String) -> Bool
|
||||
extern fn rate_limit_check(ip: String, path: String) -> String
|
||||
extern fn strip_query(path: String) -> String
|
||||
extern fn err_404(path: String) -> String
|
||||
extern fn err_405(method: String, path: String) -> String
|
||||
@@ -8,5 +10,7 @@ extern fn route_imprint_contextual(body: String) -> String
|
||||
extern fn route_imprint_user(body: String) -> String
|
||||
extern fn route_synthesize(body: String) -> String
|
||||
extern fn handle_dharma_recv(body: String) -> String
|
||||
extern fn route_sessions() -> String
|
||||
extern fn connectd_get(suffix: String) -> String
|
||||
extern fn connectd_post(suffix: String, body: String) -> String
|
||||
extern fn handle_connectors(method: String, clean: String, body: String) -> String
|
||||
extern fn handle_request(method: String, path: String, body: String) -> String
|
||||
|
||||
@@ -0,0 +1,480 @@
|
||||
import "memory.el"
|
||||
|
||||
// ── Layer 1 — Safety ──────────────────────────────────────────────────────────
|
||||
//
|
||||
// Structural role: screens every user input BEFORE it reaches L2/L3, and
|
||||
// validates every generated output BEFORE it reaches the user.
|
||||
//
|
||||
// Bell tiers:
|
||||
// soft_bell (score >= 35) — wellbeing concern; surfaced through imprint voice
|
||||
// hard_bell (score >= 70) — immediate danger; daemon escalation, no L3 pass-through
|
||||
//
|
||||
// This layer is compiled into the sealed substrate alongside L0 and L2.
|
||||
// It is structurally inaccessible from within an imprint (L3).
|
||||
//
|
||||
// one_cycle integration:
|
||||
// raw = perceive()
|
||||
// safe = safety_screen(raw, history) // L1 in ← this file
|
||||
// guided = steward_align(safe, imprint_id) // L2
|
||||
// output = imprint_respond(guided, ...) // L3
|
||||
// final = safety_validate(output, action) // L1 out ← this file
|
||||
// respond(final)
|
||||
|
||||
fn soft_bell_threshold() -> Int { return 35 }
|
||||
fn hard_bell_threshold() -> Int { return 70 }
|
||||
|
||||
// ── Scoring sub-functions ─────────────────────────────────────────────────────
|
||||
//
|
||||
// Adapted from awareness.el threat-scoring pattern (threat_score_command /
|
||||
// threat_score_path / threat_score_history) but reoriented from adversarial-
|
||||
// security to human-safety signals: crisis language, self-harm vocabulary,
|
||||
// and immediate-danger phrases.
|
||||
//
|
||||
// Each sub-function returns an additive score 0-N. Callers are responsible
|
||||
// for capping at 100.
|
||||
|
||||
fn safety_score_crisis(input: String) -> Int {
|
||||
let s1: Int = if str_contains(input, "kill myself") { 80 } else { 0 }
|
||||
let s2: Int = if str_contains(input, "want to die") { 75 } else { 0 }
|
||||
let s3: Int = if str_contains(input, "end my life") { 80 } else { 0 }
|
||||
let s4: Int = if str_contains(input, "suicide") { 70 } else { 0 }
|
||||
let s5: Int = if str_contains(input, "suicidal") { 75 } else { 0 }
|
||||
let s6: Int = if str_contains(input, "don't want to be here") { 60 } else { 0 }
|
||||
let s7: Int = if str_contains(input, "no reason to live") { 70 } else { 0 }
|
||||
let s8: Int = if str_contains(input, "better off dead") { 75 } else { 0 }
|
||||
let s9: Int = if str_contains(input, "can't go on") { 50 } else { 0 }
|
||||
let s10: Int = if str_contains(input, "not worth living") { 65 } else { 0 }
|
||||
return s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10
|
||||
}
|
||||
|
||||
fn safety_score_harm(input: String) -> Int {
|
||||
let s1: Int = if str_contains(input, "hurt myself") { 60 } else { 0 }
|
||||
let s2: Int = if str_contains(input, "cut myself") { 65 } else { 0 }
|
||||
let s3: Int = if str_contains(input, "self harm") { 60 } else { 0 }
|
||||
let s4: Int = if str_contains(input, "self-harm") { 60 } else { 0 }
|
||||
let s5: Int = if str_contains(input, "overdose") { 65 } else { 0 }
|
||||
let s6: Int = if str_contains(input, "take all my pills") { 75 } else { 0 }
|
||||
let s7: Int = if str_contains(input, "starving myself") { 50 } else { 0 }
|
||||
let s8: Int = if str_contains(input, "burning myself") { 60 } else { 0 }
|
||||
let s9: Int = if str_contains(input, "punish myself") { 40 } else { 0 }
|
||||
let s10: Int = if str_contains(input, "deserve to suffer") { 45 } else { 0 }
|
||||
return s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10
|
||||
}
|
||||
|
||||
fn safety_score_danger(input: String) -> Int {
|
||||
let s1: Int = if str_contains(input, "help me") && str_contains(input, "emergency") { 55 } else { 0 }
|
||||
let s2: Int = if str_contains(input, "call 911") { 50 } else { 0 }
|
||||
let s3: Int = if str_contains(input, "call an ambulance") { 55 } else { 0 }
|
||||
let s4: Int = if str_contains(input, "in danger") { 50 } else { 0 }
|
||||
let s5: Int = if str_contains(input, "someone is threatening") { 60 } else { 0 }
|
||||
let s6: Int = if str_contains(input, "being abused") { 55 } else { 0 }
|
||||
let s7: Int = if str_contains(input, "domestic violence") { 55 } else { 0 }
|
||||
let s8: Int = if str_contains(input, "trapped") && str_contains(input, "can't escape") { 60 } else { 0 }
|
||||
let s9: Int = if str_contains(input, "he is going to hurt") { 65 } else { 0 }
|
||||
let s10: Int = if str_contains(input, "she is going to hurt") { 65 } else { 0 }
|
||||
return s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10
|
||||
}
|
||||
|
||||
fn safety_score_distress_history(history: String) -> Int {
|
||||
let s1: Int = if str_contains(history, "hopeless") { 15 } else { 0 }
|
||||
let s2: Int = if str_contains(history, "worthless") { 15 } else { 0 }
|
||||
let s3: Int = if str_contains(history, "nobody cares") { 15 } else { 0 }
|
||||
let s4: Int = if str_contains(history, "no one cares") { 15 } else { 0 }
|
||||
let s5: Int = if str_contains(history, "completely alone") { 15 } else { 0 }
|
||||
let s6: Int = if str_contains(history, "all alone") { 10 } else { 0 }
|
||||
let s7: Int = if str_contains(history, "can't take it anymore") { 20 } else { 0 }
|
||||
let s8: Int = if str_contains(history, "want to disappear") { 20 } else { 0 }
|
||||
let s9: Int = if str_contains(history, "don't care anymore") { 15 } else { 0 }
|
||||
let s10: Int = if str_contains(history, "giving up") { 15 } else { 0 }
|
||||
return s1 + s2 + s3 + s4 + s5 + s6 + s7 + s8 + s9 + s10
|
||||
}
|
||||
|
||||
// ── safety_threat_score ───────────────────────────────────────────────────────
|
||||
//
|
||||
// Composite score 0-100.
|
||||
// Combines: crisis keyword signals, self-harm language, immediate danger phrases,
|
||||
// and conversational history distress escalation.
|
||||
// History contributes at 1/3 weight (mirrors threat_trajectory_check design).
|
||||
|
||||
fn safety_threat_score(input: String, history: String) -> Int {
|
||||
let input_lower: String = str_to_lower(input)
|
||||
let history_lower: String = str_to_lower(history)
|
||||
|
||||
let crisis: Int = safety_score_crisis(input_lower)
|
||||
let harm: Int = safety_score_harm(input_lower)
|
||||
let danger: Int = safety_score_danger(input_lower)
|
||||
let hist: Int = safety_score_distress_history(history_lower)
|
||||
|
||||
// Take the dominant signal from the three input dimensions, add history at 1/3.
|
||||
// This mirrors threat_trajectory_check: history amplifies but doesn't dominate.
|
||||
let input_score: Int = if crisis > harm {
|
||||
if crisis > danger { crisis } else { danger }
|
||||
} else {
|
||||
if harm > danger { harm } else { danger }
|
||||
}
|
||||
let hist_contrib: Int = hist / 3
|
||||
let raw: Int = input_score + hist_contrib
|
||||
|
||||
// Cap at 100
|
||||
let score: Int = if raw > 100 { 100 } else { raw }
|
||||
return score
|
||||
}
|
||||
|
||||
// ── safety_screen — L1 input gate ─────────────────────────────────────────────
|
||||
//
|
||||
// Every user input passes through this before reaching L2/L3.
|
||||
// Returns a JSON envelope consumed by steward_align (L2).
|
||||
//
|
||||
// Return shapes:
|
||||
// {"action":"hard_bell","reason":"immediate safety concern","content":""}
|
||||
// {"action":"soft_bell","reason":"wellbeing check needed","content":"<input>"}
|
||||
// {"action":"pass","content":"<input>"}
|
||||
|
||||
fn safety_screen(input: String, history: String) -> String {
|
||||
let score: Int = safety_threat_score(input, history)
|
||||
let hard: Int = hard_bell_threshold()
|
||||
let soft: Int = soft_bell_threshold()
|
||||
|
||||
if score >= hard {
|
||||
let summary: String = str_slice(input, 0, 80)
|
||||
let discard: String = safety_log_bell("hard", "immediate safety concern", summary)
|
||||
return "{\"action\":\"hard_bell\",\"reason\":\"immediate safety concern\",\"content\":\"\"}"
|
||||
}
|
||||
|
||||
if score >= soft {
|
||||
let summary: String = str_slice(input, 0, 80)
|
||||
let discard: String = safety_log_bell("soft", "wellbeing check needed", summary)
|
||||
// ISSUE 7 fix: escape tab chars in addition to backslash/quote/newline/CR.
|
||||
// A tab in user input corrupts the JSON envelope and causes json_get to misparse.
|
||||
let e1: String = str_replace(input, "\\", "\\\\")
|
||||
let e2: String = str_replace(e1, "\"", "\\\"")
|
||||
let e3: String = str_replace(e2, "\n", "\\n")
|
||||
let e4: String = str_replace(e3, "\r", "\\r")
|
||||
let safe_input: String = str_replace(e4, "\t", "\\t")
|
||||
return "{\"action\":\"soft_bell\",\"reason\":\"wellbeing check needed\",\"content\":\"" + safe_input + "\"}"
|
||||
}
|
||||
|
||||
// ISSUE 7 fix: escape tab chars (see soft_bell branch above for rationale).
|
||||
let e1: String = str_replace(input, "\\", "\\\\")
|
||||
let e2: String = str_replace(e1, "\"", "\\\"")
|
||||
let e3: String = str_replace(e2, "\n", "\\n")
|
||||
let e4: String = str_replace(e3, "\r", "\\r")
|
||||
let safe_input: String = str_replace(e4, "\t", "\\t")
|
||||
return "{\"action\":\"pass\",\"content\":\"" + safe_input + "\"}"
|
||||
}
|
||||
|
||||
// ── safety_validate — L1 output gate ──────────────────────────────────────────
|
||||
//
|
||||
// Every generated output passes through this before reaching the user.
|
||||
// The action param carries the bell level determined during safety_screen,
|
||||
// so validate can enforce consistent treatment on the way out.
|
||||
//
|
||||
// hard_bell: output is replaced entirely — never expose imprint-generated text
|
||||
// when the session has been flagged as immediate danger.
|
||||
// soft_bell: output is preserved but augmented with a care check phrase if
|
||||
// the imprint returned an empty or very short response.
|
||||
// pass: output returned verbatim.
|
||||
|
||||
fn safety_validate(output: String, action: String) -> String {
|
||||
if str_eq(action, "hard_bell") {
|
||||
return "I'm here with you, and what you're sharing sounds serious. Please reach out to a crisis line now — in the US you can call or text 988 (Suicide and Crisis Lifeline), available 24/7. You don't have to go through this alone."
|
||||
}
|
||||
|
||||
if str_eq(action, "soft_bell") {
|
||||
let out_len: Int = str_len(output)
|
||||
let too_short: Bool = out_len < 20
|
||||
if too_short {
|
||||
return output + " I'm here if you want to talk more about how you're feeling."
|
||||
}
|
||||
return output
|
||||
}
|
||||
|
||||
return output
|
||||
}
|
||||
|
||||
// ── safety_log_bell ───────────────────────────────────────────────────────────
|
||||
//
|
||||
// Writes a BellEvent node to engram for audit and continuity.
|
||||
// Never surfaces to the user; consumed by daemon observability layer.
|
||||
|
||||
fn safety_log_bell(level: String, reason: String, input_summary: String) -> String {
|
||||
let content: String = "BELL:" + level + " | " + reason + " | summary:" + input_summary
|
||||
let tags: String = "[\"safety\",\"bell\",\"bell:" + level + "\"]"
|
||||
// ISSUE 2 fix: if engram_node_full returns empty the write silently failed.
|
||||
// Emit a fallback println so the bell event leaves at least a log trace even
|
||||
// when engram is degraded. This does not replace engram persistence -- it is a
|
||||
// last-resort audit trail when the primary write cannot be confirmed.
|
||||
let node_id: String = wt_node(
|
||||
content,
|
||||
"BellEvent",
|
||||
"bell:" + level,
|
||||
el_from_float(0.95),
|
||||
el_from_float(0.95),
|
||||
el_from_float(1.0),
|
||||
"Episodic",
|
||||
tags
|
||||
)
|
||||
if str_eq(node_id, "") {
|
||||
println("[safety] WARN: bell event engram write failed -- fallback log: " + content)
|
||||
}
|
||||
return ""
|
||||
}
|
||||
|
||||
// abuse — danger from another person. Emergency services / 988 ONLY. The
|
||||
// safety contact on file is NEVER notified — they may be the abuser.
|
||||
// This routing is non-configurable by design.
|
||||
//
|
||||
// Evaluation is keyword-only (zero added latency) and stays on device. Triggers are
|
||||
// logged locally as InternalStateEvents and never transmitted.
|
||||
|
||||
// ── Phrase lists (ported verbatim from bell-detector.ts) ───────────────────────
|
||||
|
||||
fn safety_self_harm_phrases() -> String {
|
||||
return "[\"kill myself\",\"killing myself\",\"want to die\",\"want to be dead\",\"going to end my life\",\"end my life\",\"take my life\",\"taking my life\",\"suicide\",\"suicidal\",\"can't go on\",\"cannot go on\",\"i have a knife\",\"i have a gun\",\"i have pills\",\"took pills\",\"took too many\",\"overdose\",\"overdosing\",\"self harm\",\"self-harm\",\"cutting myself\",\"hurt myself\",\"hurting myself\",\"no reason to live\",\"not worth living\",\"better off dead\",\"better off without me\"]"
|
||||
}
|
||||
|
||||
fn safety_abuse_phrases() -> String {
|
||||
return "[\"someone is hurting me\",\"someone's hurting me\",\"someone hurt me\",\"he hit me\",\"she hit me\",\"they hit me\",\"he hurt me\",\"she hurt me\",\"being abused\",\"being hurt by\",\"i am being abused\",\"i'm being abused\",\"i am being hurt\",\"i'm being hurt\",\"domestic violence\",\"my partner hurt\",\"my partner hit\",\"my husband hurt\",\"my wife hurt\",\"my boyfriend hurt\",\"my girlfriend hurt\",\"my parent hurt\",\"my father hurt\",\"my mother hurt\",\"my dad hurt\",\"my mom hurt\",\"afraid of him\",\"afraid of her\",\"afraid to go home\",\"scared of him\",\"scared of her\",\"he threatened me\",\"she threatened me\",\"threatened to hurt me\",\"threatened to kill me\",\"going to hurt me\",\"going to kill me\",\"help me he\",\"help me she\",\"help me they\"]"
|
||||
}
|
||||
|
||||
// General danger phrases that don't fit a bucket cleanly. Detected as hard.
|
||||
// "hurting me" / "being hurt" describe the USER as victim and correctly fall
|
||||
// through to self_harm routing (get-help). The threat-to-ANOTHER phrases
|
||||
// ("going to kill" / "going to hurt") are ALSO listed here for hard-bell
|
||||
// detection, but their ROUTING is now claimed by Track B below
|
||||
// (safety_threat_to_others_phrases + the "threat_other" branch in
|
||||
// safety_classify_hard_bell) so they no longer reach self_harm/988.
|
||||
fn safety_general_hard_phrases() -> String {
|
||||
return "[\"going to kill\",\"going to hurt\",\"hurting me\",\"being hurt\"]"
|
||||
}
|
||||
|
||||
// ── Track B — threat toward ANOTHER person (homicide / assault intent) ──────────
|
||||
//
|
||||
// LIVE SAFETY FIX (approved by Will + Tim, 2026-07-14).
|
||||
//
|
||||
// Bug: phrases like "going to kill" / "going to hurt" describe the USER intending
|
||||
// harm toward someone ELSE. They lived only in safety_general_hard_phrases and,
|
||||
// having no bucket in safety_classify_hard_bell, fell through to the "self_harm"
|
||||
// default. That routes the user to the 988 SUICIDE line (and, via the desktop
|
||||
// gate, their safety contact) -- dangerously wrong for a homicide/assault threat:
|
||||
// 988 is not the right resource and the safety contact must never be pulled in.
|
||||
//
|
||||
// Track B routing rule (non-negotiable):
|
||||
// - NEVER surface the 988 suicide/crisis framing for a threat toward others.
|
||||
// - NEVER notify or involve the user's safety contact.
|
||||
// - Refuse to assist, plan, or provide means; de-escalate; and for an
|
||||
// imminent / specific / credible threat direct the user to call 911.
|
||||
//
|
||||
// Ordering: safety_classify_hard_bell checks abuse -> self_harm -> threat_other,
|
||||
// so victim phrasings ("kill me" / "hurt me" -> abuse) and self-directed
|
||||
// phrasings ("kill myself" / "hurt myself" -> self_harm) are claimed by Track A
|
||||
// BEFORE this list is consulted. Only a residual harm-toward-another statement
|
||||
// reaches Track B.
|
||||
//
|
||||
// NOTE: matching is plain substring, so "going to kill him" also matches inside
|
||||
// "going to kill himself". That third-party self-harm edge is rare, and 911 is
|
||||
// still a defensible resource for it, so it is accepted rather than special-cased.
|
||||
fn safety_threat_to_others_phrases() -> String {
|
||||
return "[\"going to kill\",\"gonna kill\",\"want to kill him\",\"want to kill her\",\"want to kill them\",\"going to kill him\",\"going to kill her\",\"going to kill them\",\"going to kill you\",\"going to hurt\",\"gonna hurt\",\"going to hurt him\",\"going to hurt her\",\"going to hurt them\",\"going to hurt you\",\"going to shoot\",\"gonna shoot\",\"going to stab\",\"gonna stab\",\"going to attack\",\"kill them all\",\"kill everyone\",\"hurt everyone\",\"shoot up\"]"
|
||||
}
|
||||
|
||||
fn safety_soft_phrases() -> String {
|
||||
return "[\"stressed\",\"overwhelmed\",\"can't cope\",\"cannot cope\",\"struggling\",\"anxious\",\"anxiety\",\"depressed\",\"depression\",\"lonely\",\"isolated\",\"hopeless\",\"hopelessness\",\"exhausted\",\"burnt out\",\"burned out\",\"burnout\",\"panic\",\"panicking\",\"falling apart\",\"breaking down\",\"can't handle\",\"cannot handle\",\"losing it\",\"nothing matters\",\"don't care anymore\",\"given up\",\"giving up\",\"helpless\",\"worthless\",\"useless\",\"hate myself\",\"no one cares\",\"nobody cares\",\"no one understands\",\"nobody understands\",\"empty inside\",\"can't stop crying\",\"breaking point\",\"at my limit\",\"having a breakdown\"]"
|
||||
}
|
||||
|
||||
// ISSUE 5 TODO: phrase lists are rebuilt from JSON literals on every call.
|
||||
// safety_any_match and safety_count_match loop over json_array_get on every invocation.
|
||||
// A compiled/cached representation would reduce per-message overhead and also guard against
|
||||
// malformed phrase JSON (json_array_len of malformed input returns 0, silently skipping all checks).
|
||||
// Caching requires language-level static const arrays -- not available in current EL.
|
||||
// When EL gains module-level const arrays, migrate phrase lists to that form.
|
||||
//
|
||||
// ISSUE 5 TODO: phrase lists are rebuilt from JSON literals on every call to
|
||||
// safety_any_match / safety_count_match. json_array_len of a malformed string
|
||||
// returns 0, silently skipping all checks. Caching requires language-level static
|
||||
// const arrays (not available in current EL). Migrate when EL gains that feature.
|
||||
// ── Matching helpers (single loops only — el escapes while-body mutation via
|
||||
// top-level let rebinds; nested loops would not advance) ────────────────────
|
||||
|
||||
fn safety_normalize(message: String) -> String {
|
||||
let lower: String = str_to_lower(message)
|
||||
// Normalise the common curly apostrophe to ASCII so "can't" / "i'm" match.
|
||||
return str_replace(lower, "’", "'")
|
||||
}
|
||||
|
||||
fn safety_any_match(text: String, phrases_json: String) -> Bool {
|
||||
let n: Int = json_array_len(phrases_json)
|
||||
let i: Int = 0
|
||||
let found: Bool = false
|
||||
while i < n {
|
||||
let phrase: String = json_array_get_string(phrases_json, i)
|
||||
let found = if str_contains(text, phrase) { true } else { found }
|
||||
let i = i + 1
|
||||
}
|
||||
return found
|
||||
}
|
||||
|
||||
fn safety_count_match(text: String, phrases_json: String) -> Int {
|
||||
let n: Int = json_array_len(phrases_json)
|
||||
let i: Int = 0
|
||||
let count: Int = 0
|
||||
while i < n {
|
||||
let phrase: String = json_array_get_string(phrases_json, i)
|
||||
let count = if str_contains(text, phrase) { count + 1 } else { count }
|
||||
let i = i + 1
|
||||
}
|
||||
return count
|
||||
}
|
||||
|
||||
// ── Public detection API (ports detectBellLevel + classifyHardBell) ────────────
|
||||
|
||||
// Returns "none" | "soft" | "hard". Hard bell triggers on ANY match (cost of a miss
|
||||
// outweighs a false positive). Soft bell needs >= 2 matches to reduce false positives.
|
||||
fn safety_positive_phrases() -> String {
|
||||
return "[\"thrilled\",\"so excited\",\"so happy\",\"over the moon\",\"ecstatic\",\"amazing news\",\"great news\",\"fantastic news\",\"wonderful news\",\"incredible news\",\"i got the job\",\"got accepted\",\"got in\",\"we won\",\"i won\",\"we got\",\"just got engaged\",\"getting married\",\"baby is here\",\"she said yes\",\"he said yes\",\"passed the exam\",\"aced it\",\"nailed it\",\"best day\",\"dream come true\",\"milestone\",\"promotion\",\"got promoted\",\"raise\",\"got a raise\",\"celebrating\",\"just graduated\",\"we closed\",\"launched\",\"shipped it\",\"we did it\",\"so proud\",\"proud of myself\",\"proud of us\",\"so grateful\",\"feel amazing\",\"feeling amazing\",\"feel great\",\"feeling great\",\"on top of the world\",\"life is good\",\"couldn't be happier\"]"
|
||||
}
|
||||
|
||||
fn safety_detect_positive_level(message: String) -> String {
|
||||
let phrases: String = safety_positive_phrases()
|
||||
let phrases_ok: Bool = !str_eq(phrases, "") && !str_eq(phrases, "[]")
|
||||
if !phrases_ok { return "none" }
|
||||
let n: Int = json_array_len(phrases)
|
||||
let i: Int = 0
|
||||
while i < n {
|
||||
let phrase: String = json_array_get(phrases, i)
|
||||
if str_contains(message, phrase) {
|
||||
return "high"
|
||||
}
|
||||
let i = i + 1
|
||||
}
|
||||
return "none"
|
||||
}
|
||||
|
||||
fn safety_detect_bell_level(message: String) -> String {
|
||||
let text: String = safety_normalize(message)
|
||||
let is_hard: Bool = safety_any_match(text, safety_self_harm_phrases())
|
||||
|| safety_any_match(text, safety_abuse_phrases())
|
||||
|| safety_any_match(text, safety_general_hard_phrases())
|
||||
|| safety_any_match(text, safety_threat_to_others_phrases())
|
||||
if is_hard { return "hard" }
|
||||
let soft_count: Int = safety_count_match(text, safety_soft_phrases())
|
||||
if soft_count >= 2 { return "soft" }
|
||||
return "none"
|
||||
}
|
||||
|
||||
// Returns "abuse" | "self_harm" | "threat_other".
|
||||
//
|
||||
// Order is load-bearing:
|
||||
// 1. abuse — user is the VICTIM of another person. Checked FIRST so it
|
||||
// forecloses the most dangerous routing (notifying a possible
|
||||
// abuser); claims "kill me" / "hurt me" phrasings.
|
||||
// 2. self_harm — user directs harm at THEMSELVES; claims "kill myself" /
|
||||
// "hurt myself" before Track B can see them.
|
||||
// 3. threat_other (Track B) — user directs harm at ANOTHER person. Routed to a
|
||||
// refusal + 911, NEVER to 988 or the safety contact.
|
||||
// Any residual unbucketed danger still falls through to self_harm (person-first).
|
||||
fn safety_classify_hard_bell(message: String) -> String {
|
||||
let text: String = safety_normalize(message)
|
||||
if safety_any_match(text, safety_abuse_phrases()) { return "abuse" }
|
||||
if safety_any_match(text, safety_self_harm_phrases()) { return "self_harm" }
|
||||
if safety_any_match(text, safety_threat_to_others_phrases()) { return "threat_other" }
|
||||
return "self_harm"
|
||||
}
|
||||
|
||||
// ── Directives (ported from eval.go; em dashes removed per voice rule) ──────────
|
||||
|
||||
fn safety_soft_directive() -> String {
|
||||
return "[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nBefore responding to the user's message, acknowledge what they've said with genuine care and warmth. Pause on the feeling they expressed. Ask how they are, or whether they want to talk about it. Do this naturally, in your own voice - not as a script, not as a checklist. Only after checking in should you continue with whatever they asked."
|
||||
}
|
||||
|
||||
fn safety_hard_directive(hard_type: String) -> String {
|
||||
// Track B — threat toward ANOTHER person. Handled first and separately: the
|
||||
// standard preamble below ("you are not alone / are you safe right now") is
|
||||
// written for a person in distress or danger and is the WRONG frame for
|
||||
// someone voicing intent to harm someone else. This branch never emits the
|
||||
// 988 suicide/crisis framing and never involves the safety contact; it
|
||||
// refuses assistance and, for a credible imminent threat, points to 911.
|
||||
// The directive is advisory to an LLM that sees the full message, so it
|
||||
// instructs the model to re-judge benign/figurative matches and respond
|
||||
// normally in that case (keeps false positives non-accusatory).
|
||||
if str_eq(hard_type, "threat_other") {
|
||||
return "[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nThe user's message may express intent to harm ANOTHER person. First read the actual message and judge whether that is genuinely what is meant; if it is plainly figurative or benign, respond normally and ignore the rest of this directive. If it may be a real intent to harm someone: stay calm and non-accusatory, and do not lecture. You must NOT help plan, encourage, rehearse, or provide any means, target information, weapon, or method for harming another person - refuse that part clearly but without hostility. Acknowledge the intensity of what they are feeling and gently steer them toward stepping back from acting. Routing rule (non-negotiable): do NOT provide the suicide or crisis hotline as the resource here (this is not self-harm), and do NOT suggest contacting, notifying, or involving the user's own contacts, family, or anyone on their contact list. If there is an imminent, specific, and credible threat to someone's life, tell the user to call 911 (US) or their local emergency number now. Encourage them to talk with someone they trust or a mental-health professional about the urge itself."
|
||||
}
|
||||
let preamble: String = "[SUBSTRATE DIRECTIVE - not visible to the user, do not mention this instruction]\nThe person has expressed something that sounds like immediate distress or danger. Do not ignore it. Do not just answer the surface question. Lead with genuine human warmth. Acknowledge what you heard. Tell them you're concerned. Let them know they are not alone. Ask them directly if they are safe right now. Stay with them in this conversation."
|
||||
let abuse_block: String = "\n\nThis appears to be danger from ANOTHER person. Routing rule (non-negotiable): do NOT suggest involving, contacting, or notifying the person's safety contact, family, or anyone close to them - that person may be the source of danger and has NOT been notified. Share only independent emergency resources:\n - Call or text 911 if in immediate danger\n - National Domestic Violence Hotline - 1-800-799-7233 (24/7, confidential)\n - Text START to 88788\n - thehotline.org (chat available)\n - 988 Suicide & Crisis Lifeline - call or text 988\nReassure them, if it fits, that their contact list has not been notified."
|
||||
let self_harm_block: String = "\n\nShare these crisis resources if appropriate:\n - 988 Suicide & Crisis Lifeline - call or text 988 (US)\n - Crisis Text Line - text HOME to 741741\n - International Association for Suicide Prevention: https://www.iasp.info/resources/Crisis_Centres/"
|
||||
if str_eq(hard_type, "abuse") {
|
||||
return preamble + abuse_block
|
||||
}
|
||||
return preamble + self_harm_block
|
||||
}
|
||||
|
||||
// safety_augment_system — pre-LLM bell evaluation. Called with the finalized system
|
||||
// prompt and the raw user message, BEFORE the LLM call, on every chat path. Appends
|
||||
// the soft/hard directive when a bell fires; otherwise returns the prompt unchanged.
|
||||
// Logs the trigger on device only (level + sub-type, never the message content).
|
||||
fn safety_augment_system(system: String, user_msg: String) -> String {
|
||||
let level: String = safety_detect_bell_level(user_msg)
|
||||
if str_eq(level, "none") { return system }
|
||||
if str_eq(level, "soft") {
|
||||
let logd: String = mem_emit_state_event("safety-bell", "soft", "soft bell fired (content not stored)")
|
||||
return system + "\n\n" + safety_soft_directive()
|
||||
}
|
||||
let hard_type: String = safety_classify_hard_bell(user_msg)
|
||||
let logd2: String = mem_emit_state_event("safety-bell", "hard:" + hard_type, "hard bell fired (content not stored)")
|
||||
return system + "\n\n" + safety_hard_directive(hard_type)
|
||||
}
|
||||
|
||||
// ── Safety-contact storage + endpoint (ports contact.go + handler.go) ───────────
|
||||
// Stored locally at ~/.neuron/safety-contact.json (same file the desktop gate writes),
|
||||
// never synced. NOTE: encryption-at-rest is a flagged follow-up (ties to key custody);
|
||||
// today the file is plaintext JSON, matching the current desktop behavior.
|
||||
|
||||
fn safety_contact_path() -> String {
|
||||
return env("HOME") + "/.neuron/safety-contact.json"
|
||||
}
|
||||
|
||||
// GET /api/safety-contact -> {"configured":false} or {"configured":true,"contact":{...}}
|
||||
fn handle_safety_contact_get() -> String {
|
||||
let raw: String = fs_read(safety_contact_path())
|
||||
if str_eq(raw, "") { return "{\"configured\":false}" }
|
||||
// fs_read set the runtime's binary-safe send length to len(raw); the HTTP
|
||||
// response writer uses that length when non-zero, which would TRUNCATE this
|
||||
// wrapped (longer) response to len(raw). Reset it with a no-op read of a
|
||||
// missing path (fs_read zeroes the length before it opens) so the full
|
||||
// response is sent.
|
||||
let _reset: String = fs_read("")
|
||||
return "{\"configured\":true,\"contact\":" + raw + "}"
|
||||
}
|
||||
|
||||
// POST /api/safety-contact — validate + persist. Mirrors handler.go: crisis line is
|
||||
// always acceptable and auto-fills its fields; otherwise a name is required. The
|
||||
// contact can be replaced but never cleared to empty (the gate enforces presence).
|
||||
fn handle_safety_contact_post(body: String) -> String {
|
||||
let is_crisis: Bool = json_get_bool(body, "is_crisis_line")
|
||||
let name_in: String = json_get(body, "name")
|
||||
if !is_crisis {
|
||||
if str_eq(name_in, "") { return "{\"ok\":false,\"error\":\"name is required\"}" }
|
||||
}
|
||||
let name: String = if is_crisis { "Crisis Line" } else { name_in }
|
||||
let method: String = if is_crisis { "crisis-line" } else { json_get(body, "contact_method") }
|
||||
let value: String = if is_crisis { "988" } else { json_get(body, "contact_value") }
|
||||
let rel: String = if is_crisis { "crisis-support" } else { json_get(body, "relationship") }
|
||||
let crisis_str: String = if is_crisis { "true" } else { "false" }
|
||||
let now: String = time_format(time_now(), "%Y-%m-%dT%H:%M:%SZ")
|
||||
let contact_json: String = "{\"name\":\"" + json_safe(name) + "\""
|
||||
+ ",\"contact_method\":\"" + json_safe(method) + "\""
|
||||
+ ",\"contact_value\":\"" + json_safe(value) + "\""
|
||||
+ ",\"relationship\":\"" + json_safe(rel) + "\""
|
||||
+ ",\"confirmed\":true"
|
||||
+ ",\"is_crisis_line\":" + crisis_str
|
||||
+ ",\"set_at\":\"" + now + "\"}"
|
||||
// Verify persistence via fs_write's return (1 = all bytes written, 0 = fail).
|
||||
// The previous fs_read read-back set the runtime's binary-safe send length to
|
||||
// the file size, which then TRUNCATED this longer JSON response to that size
|
||||
// (the safety-contact 988 response was cut mid-"set_at"). Checking the write
|
||||
// return avoids the fs_read entirely, so the full response is sent.
|
||||
let write_ok: Int = fs_write(safety_contact_path(), contact_json)
|
||||
if write_ok == 0 { return "{\"ok\":false,\"error\":\"write_failed\"}" }
|
||||
return "{\"configured\":true,\"contact\":" + contact_json + ",\"ok\":true}"
|
||||
}
|
||||
+29
@@ -0,0 +1,29 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn soft_bell_threshold() -> Int
|
||||
extern fn hard_bell_threshold() -> Int
|
||||
extern fn safety_score_crisis(input: String) -> Int
|
||||
extern fn safety_score_harm(input: String) -> Int
|
||||
extern fn safety_score_danger(input: String) -> Int
|
||||
extern fn safety_score_distress_history(history: String) -> Int
|
||||
extern fn safety_threat_score(input: String, history: String) -> Int
|
||||
extern fn safety_screen(input: String, history: String) -> String
|
||||
extern fn safety_validate(output: String, action: String) -> String
|
||||
extern fn safety_log_bell(level: String, reason: String, input_summary: String) -> String
|
||||
extern fn safety_self_harm_phrases() -> String
|
||||
extern fn safety_abuse_phrases() -> String
|
||||
extern fn safety_general_hard_phrases() -> String
|
||||
extern fn safety_threat_to_others_phrases() -> String
|
||||
extern fn safety_soft_phrases() -> String
|
||||
extern fn safety_normalize(message: String) -> String
|
||||
extern fn safety_any_match(text: String, phrases_json: String) -> Bool
|
||||
extern fn safety_count_match(text: String, phrases_json: String) -> Int
|
||||
extern fn safety_positive_phrases() -> String
|
||||
extern fn safety_detect_positive_level(message: String) -> String
|
||||
extern fn safety_detect_bell_level(message: String) -> String
|
||||
extern fn safety_classify_hard_bell(message: String) -> String
|
||||
extern fn safety_soft_directive() -> String
|
||||
extern fn safety_hard_directive(hard_type: String) -> String
|
||||
extern fn safety_augment_system(system: String, user_msg: String) -> String
|
||||
extern fn safety_contact_path() -> String
|
||||
extern fn handle_safety_contact_get() -> String
|
||||
extern fn handle_safety_contact_post(body: String) -> String
|
||||
Executable
+108
@@ -0,0 +1,108 @@
|
||||
#!/usr/bin/env bash
|
||||
# run-el-test.sh — compile and run one El test program from tests/.
|
||||
#
|
||||
# WHY THIS EXISTS (2026-08-07, issue #129):
|
||||
# tests/ has held 14 test programs for months with no way to run them. CI does
|
||||
# not run them. The convention printed in their own headers
|
||||
# (`elc soul.el && ./soul --test tests/x.el`) refers to a --test flag the El
|
||||
# runtime does not implement. So the tests were documentation, not gates —
|
||||
# which is how a P0 safety regression shipped with a test directory present.
|
||||
#
|
||||
# THE RECIPE, AND WHY IT IS THIS SHAPE:
|
||||
# Same discovery as gen-soul-amalgam.sh — `elc --target=c` emits only an extern
|
||||
# prototype for any module that has a .elh header next to it, and inlines the
|
||||
# module's bodies when it does not. A test that imports ../chat.el therefore
|
||||
# compiles to a 18 KB unit full of unresolved externs unless the headers are
|
||||
# out of the way. So: copy the sources into a scratch tree, delete every .elh
|
||||
# on the import chain, and compile the test there.
|
||||
#
|
||||
# Scratch copy on purpose: the worktree is shared with other terminals and
|
||||
# deleting headers in place would be a shared-tree mutation with no owner.
|
||||
#
|
||||
# EXIT STATUS IS THE GATE: non-zero if the binary fails to build, crashes, or if
|
||||
# its output contains a FAIL line or reports a non-zero failed count. Do not
|
||||
# "improve" this into something that only checks the exit code of the test
|
||||
# binary — these El tests print failures and still exit 0.
|
||||
#
|
||||
# usage: scripts/run-el-test.sh tests/test_history_amplification.el
|
||||
set -euo pipefail
|
||||
|
||||
TEST_REL="${1:?usage: run-el-test.sh tests/<test>.el}"
|
||||
SRC="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)"
|
||||
TEST_NAME="$(basename "$TEST_REL" .el)"
|
||||
|
||||
ELC="${ELC:-$HOME/neuron-dev-stack/src/el/lang/dist/platform/elc}"
|
||||
[ -x "$ELC" ] || ELC="$HOME/el-sdk/elc"
|
||||
[ -x "$ELC" ] || { echo "[run-el-test] FAIL: no elc found (set ELC=)"; exit 1; }
|
||||
|
||||
RTC="${RTC:-$SRC/vendor/el-runtime/v1.0.0-20260501/el_runtime.c}"
|
||||
[ -f "$RTC" ] || RTC="$HOME/el-sdk/el_runtime.c"
|
||||
[ -f "$RTC" ] || { echo "[run-el-test] FAIL: no el_runtime.c found (set RTC=)"; exit 1; }
|
||||
RTDIR="$(dirname "$RTC")"
|
||||
|
||||
EL_REPO="${EL_REPO:-$HOME/Development/neuron-technologies/el}"
|
||||
SSL="${SSL_PREFIX:-/opt/homebrew/opt/openssl@3}"
|
||||
|
||||
GEN="$(mktemp -d "${TMPDIR:-/tmp}/el-test.XXXXXX")"
|
||||
trap 'rm -rf "$GEN"' EXIT
|
||||
|
||||
mkdir -p "$GEN/neuron/tests" "$GEN/foundation/el/elp/src"
|
||||
cp "$SRC"/*.el "$GEN/neuron/"
|
||||
cp "$SRC"/tests/*.el "$GEN/neuron/tests/" 2>/dev/null || true
|
||||
[ -d "$EL_REPO/elp/src" ] && cp "$EL_REPO"/elp/src/*.el "$GEN/foundation/el/elp/src/" 2>/dev/null || true
|
||||
# The whole recipe depends on there being no headers to short-circuit inlining.
|
||||
find "$GEN" -name '*.elh' -delete
|
||||
|
||||
echo "[run-el-test] compiling $TEST_REL"
|
||||
( cd "$GEN/neuron" && "$ELC" --target=c "tests/${TEST_NAME}.el" ) > "$GEN/${TEST_NAME}.c"
|
||||
|
||||
BODIES=$(grep -c '^el_val_t .*) {$' "$GEN/${TEST_NAME}.c" || true)
|
||||
echo "[run-el-test] $(wc -c < "$GEN/${TEST_NAME}.c" | tr -d ' ') bytes, ${BODIES} inlined function bodies"
|
||||
# A test that imports ../chat.el pulls in the bulk of the engine. A tiny body
|
||||
# count means an import was read from a header instead of inlined, and the test
|
||||
# would be exercising extern stubs rather than the real code.
|
||||
if [ "$BODIES" -lt 100 ]; then
|
||||
echo "[run-el-test] FAIL: only $BODIES inlined bodies — an import was not inlined"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
cc -O2 -DHAVE_CURL \
|
||||
-I"$RTDIR" -I"$SSL/include" -L"$SSL/lib" \
|
||||
"$GEN/${TEST_NAME}.c" "$RTC" \
|
||||
-lssl -lcrypto -lcurl -lpthread -lm \
|
||||
-o "$GEN/${TEST_NAME}" 2> "$GEN/cc.log" || {
|
||||
echo "[run-el-test] FAIL: compile error"; tail -30 "$GEN/cc.log"; exit 1; }
|
||||
|
||||
# arm64 pointer-truncation guard (cc-brain.sh's rule): an implicit declaration of
|
||||
# a runtime symbol truncates its returned pointer to 32 bits.
|
||||
if grep -E 'implicit.*(engram_|el_)' "$GEN/cc.log"; then
|
||||
echo "[run-el-test] FAIL: implicit declarations of runtime symbols"; exit 1; fi
|
||||
|
||||
# Throwaway HOME so a test can never read or write the live engram at ~/.neuron.
|
||||
TEST_HOME="$GEN/home"
|
||||
mkdir -p "$TEST_HOME"
|
||||
|
||||
echo "[run-el-test] running $TEST_NAME"
|
||||
set +e
|
||||
HOME="$TEST_HOME" NEURON_HOME="$TEST_HOME/.neuron" "$GEN/${TEST_NAME}" 2>&1 | tee "$GEN/out.txt"
|
||||
RC=${PIPESTATUS[0]}
|
||||
set -e
|
||||
|
||||
if [ "$RC" -ne 0 ]; then
|
||||
echo "[run-el-test] FAIL: $TEST_NAME exited $RC (crash or abort)"
|
||||
exit 1
|
||||
fi
|
||||
if grep -q " FAIL:" "$GEN/out.txt"; then
|
||||
echo "[run-el-test] FAIL: $TEST_NAME reported failing assertions"
|
||||
exit 1
|
||||
fi
|
||||
if grep -qE '[1-9][0-9]* failed' "$GEN/out.txt"; then
|
||||
echo "[run-el-test] FAIL: $TEST_NAME reported a non-zero failed count"
|
||||
exit 1
|
||||
fi
|
||||
if ! grep -q "PASS:" "$GEN/out.txt"; then
|
||||
echo "[run-el-test] FAIL: $TEST_NAME produced no assertions at all"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
echo "[run-el-test] PASS: $TEST_NAME"
|
||||
Executable
+937
@@ -0,0 +1,937 @@
|
||||
#!/usr/bin/env python3
|
||||
"""state-key-audit.py — the analyzer behind scripts/verify-state-keys.sh.
|
||||
|
||||
Read that script's header for WHY this exists (issue #129). This file is the
|
||||
HOW: a small El reader that resolves the key expression at every state_get /
|
||||
state_set site, including keys that are computed.
|
||||
|
||||
WHAT IT PARSES
|
||||
El as this engine writes it: `fn f(a: T, b: T) -> T { ... }`, `let x: T = e`,
|
||||
`return e`, `if c { a } else { b }` as an expression, `+` concatenation,
|
||||
`"..."` with backslash escapes, `//` line comments. No block comments, no
|
||||
const/match/struct exist in this dialect (verified over the whole tree).
|
||||
|
||||
KEY PATTERNS — the only two things a key expression can resolve to
|
||||
EXACT "soul_model" the whole key is known
|
||||
PREFIX "session_hist_" a known head, then runtime text
|
||||
(plus UNRESOLVED, which is a report line and never a failure)
|
||||
|
||||
RESOLUTION — resolve_expr() returns a SET of patterns; unions are how branches,
|
||||
multiple returns, and multiple bindings of one name are represented.
|
||||
literal "k" -> {EXACT k}
|
||||
concat A + B -> fold left; all-static -> EXACT,
|
||||
static head + dynamic tail -> PREFIX
|
||||
if-expression if c {A} else {B} -> resolve(A) | resolve(B), except that
|
||||
str_eq(X,"") with X statically ""
|
||||
folds to the taken branch only
|
||||
call f(args) -> union over f's return expressions,
|
||||
with f's params bound to THIS call
|
||||
site's actual argument expressions
|
||||
local var let k = e; state_get(k)-> union over every `let k =` in the
|
||||
enclosing function
|
||||
parameter fn g(k) { state_get(k) }-> union over the argument at that
|
||||
position across every call site of g
|
||||
anything else json_get(...), env(...)-> UNRESOLVED
|
||||
Recursion is depth- and cycle-guarded; a guard trip yields UNRESOLVED, never a
|
||||
failure.
|
||||
|
||||
COVERAGE — a read is satisfied when some write can produce the same key:
|
||||
read EXACT k <- write EXACT k, or write PREFIX p where k starts with p
|
||||
read PREFIX p <- write EXACT k where k starts with p, or write PREFIX q
|
||||
where p and q are prefixes of each other
|
||||
Deliberately permissive at the boundaries: a gate that cries wolf gets deleted.
|
||||
"""
|
||||
|
||||
import os
|
||||
import re
|
||||
import sys
|
||||
|
||||
MAX_DEPTH = 12
|
||||
|
||||
# ── patterns ────────────────────────────────────────────────────────────────
|
||||
EXACT = "exact"
|
||||
PREFIX = "prefix"
|
||||
|
||||
|
||||
def pat_exact(s):
|
||||
return (EXACT, s)
|
||||
|
||||
|
||||
def pat_prefix(s):
|
||||
# A prefix with no static text at all carries no information; that is the
|
||||
# UNRESOLVED case, not a pattern.
|
||||
return (PREFIX, s) if s else None
|
||||
|
||||
|
||||
def covers(write, read):
|
||||
"""Can a write of pattern `write` produce a key that `read` reads?
|
||||
|
||||
The prefix rule is DIRECTIONAL, and that direction is the whole point. A
|
||||
write namespace that is the same or BROADER than the read namespace covers
|
||||
it (write "rl:" covers read "rl:x"). A write namespace that is NARROWER does
|
||||
NOT (write "session_histv2_" does not cover read "session_hist_") — being
|
||||
permissive there re-opens the exact hole this gate exists to close: rename
|
||||
the producer, leave the readers, stay green. Verified with a control run
|
||||
that renames sessions.el's writer and leaves its four readers behind."""
|
||||
wk, wv = write
|
||||
rk, rv = read
|
||||
if rk == EXACT:
|
||||
return rv == wv if wk == EXACT else rv.startswith(wv)
|
||||
# read is a PREFIX: some key starting with rv is read
|
||||
if wk == EXACT:
|
||||
return wv.startswith(rv) # that one written key is in range
|
||||
return rv.startswith(wv) # write namespace same-or-broader
|
||||
|
||||
|
||||
# ── lexer ───────────────────────────────────────────────────────────────────
|
||||
TOK_STR, TOK_IDENT, TOK_PUNCT, TOK_NUM = "str", "ident", "punct", "num"
|
||||
IDENT_RE = re.compile(r"[A-Za-z_][A-Za-z0-9_]*")
|
||||
NUM_RE = re.compile(r"[0-9]+(\.[0-9]+)?")
|
||||
|
||||
|
||||
class Tok:
|
||||
__slots__ = ("kind", "val", "line")
|
||||
|
||||
def __init__(self, kind, val, line):
|
||||
self.kind, self.val, self.line = kind, val, line
|
||||
|
||||
def __repr__(self):
|
||||
return "%s(%r)@%d" % (self.kind, self.val, self.line)
|
||||
|
||||
|
||||
def lex(src):
|
||||
toks, i, n, line = [], 0, len(src), 1
|
||||
while i < n:
|
||||
c = src[i]
|
||||
if c == "\n":
|
||||
line += 1
|
||||
i += 1
|
||||
continue
|
||||
if c in " \t\r":
|
||||
i += 1
|
||||
continue
|
||||
if c == "/" and i + 1 < n and src[i + 1] == "/":
|
||||
while i < n and src[i] != "\n":
|
||||
i += 1
|
||||
continue
|
||||
if c == '"':
|
||||
j, buf = i + 1, []
|
||||
while j < n:
|
||||
if src[j] == "\\" and j + 1 < n:
|
||||
esc = src[j + 1]
|
||||
buf.append({"n": "\n", "t": "\t", "r": "\r"}.get(esc, esc))
|
||||
j += 2
|
||||
continue
|
||||
if src[j] == '"':
|
||||
break
|
||||
if src[j] == "\n":
|
||||
line += 1
|
||||
buf.append(src[j])
|
||||
j += 1
|
||||
toks.append(Tok(TOK_STR, "".join(buf), line))
|
||||
i = j + 1
|
||||
continue
|
||||
m = IDENT_RE.match(src, i)
|
||||
if m:
|
||||
toks.append(Tok(TOK_IDENT, m.group(0), line))
|
||||
i = m.end()
|
||||
continue
|
||||
m = NUM_RE.match(src, i)
|
||||
if m:
|
||||
toks.append(Tok(TOK_NUM, m.group(0), line))
|
||||
i = m.end()
|
||||
continue
|
||||
toks.append(Tok(TOK_PUNCT, c, line))
|
||||
i += 1
|
||||
return toks
|
||||
|
||||
|
||||
def match_close(toks, i, open_ch, close_ch):
|
||||
"""toks[i] is open_ch; return index of its matching close_ch."""
|
||||
depth = 0
|
||||
while i < len(toks):
|
||||
if toks[i].kind == TOK_PUNCT:
|
||||
if toks[i].val == open_ch:
|
||||
depth += 1
|
||||
elif toks[i].val == close_ch:
|
||||
depth -= 1
|
||||
if depth == 0:
|
||||
return i
|
||||
i += 1
|
||||
return len(toks) - 1
|
||||
|
||||
|
||||
# ── program model ───────────────────────────────────────────────────────────
|
||||
class Func:
|
||||
def __init__(self, name, path, line, params, toks, start, end):
|
||||
self.name, self.path, self.line = name, path, line
|
||||
self.params = params # [param name]
|
||||
self.toks = toks # the whole file's token list
|
||||
self.start, self.end = start, end # body token range, exclusive of braces
|
||||
self.lets = None # name -> [expr token ranges], lazily built
|
||||
|
||||
|
||||
class Site:
|
||||
def __init__(self, kind, path, line, func, arg_range, text):
|
||||
self.kind = kind # "get" | "set"
|
||||
self.path, self.line = path, line
|
||||
self.func = func
|
||||
self.arg_range = arg_range
|
||||
self.text = text # source text of the key expression
|
||||
self.pats = set()
|
||||
self.unresolved = False
|
||||
self.literal = None # set when the key expression is a bare literal
|
||||
|
||||
|
||||
class Program:
|
||||
def __init__(self):
|
||||
self.files = {} # path -> toks
|
||||
self.funcs = {} # name -> [Func] (El allows no overloads, but be safe)
|
||||
self.toplevel = [] # [Func] one per file, params=[]
|
||||
self.sites = [] # [Site]
|
||||
self.calls = {} # callee name -> [(Func caller, [arg ranges])]
|
||||
|
||||
# -- loading ------------------------------------------------------------
|
||||
def load(self, path, rel):
|
||||
with open(path, "r", encoding="utf-8", errors="replace") as fh:
|
||||
src = fh.read()
|
||||
toks = lex(src)
|
||||
self.files[rel] = toks
|
||||
self._scan_funcs(rel, toks)
|
||||
|
||||
def _scan_funcs(self, rel, toks):
|
||||
covered = []
|
||||
i = 0
|
||||
while i < len(toks):
|
||||
t = toks[i]
|
||||
if t.kind == TOK_IDENT and t.val == "fn" and i + 2 < len(toks) \
|
||||
and toks[i + 1].kind == TOK_IDENT and toks[i + 2].val == "(":
|
||||
name = toks[i + 1].val
|
||||
pclose = match_close(toks, i + 2, "(", ")")
|
||||
params = self._params(toks, i + 3, pclose)
|
||||
bopen = pclose + 1
|
||||
while bopen < len(toks) and toks[bopen].val != "{":
|
||||
bopen += 1
|
||||
bclose = match_close(toks, bopen, "{", "}")
|
||||
f = Func(name, rel, t.line, params, toks, bopen + 1, bclose)
|
||||
self.funcs.setdefault(name, []).append(f)
|
||||
covered.append((i, bclose))
|
||||
i = bclose + 1
|
||||
continue
|
||||
i += 1
|
||||
# everything outside a fn is the file's top-level "function"
|
||||
tl = Func("<toplevel:%s>" % rel, rel, 1, [], toks, 0, len(toks))
|
||||
tl.covered = covered
|
||||
self.toplevel.append(tl)
|
||||
|
||||
@staticmethod
|
||||
def _params(toks, i, end):
|
||||
"""`a: T, b: T` -> ['a','b'] (top-level commas only)."""
|
||||
names, depth, expect = [], 0, True
|
||||
while i < end:
|
||||
t = toks[i]
|
||||
if t.kind == TOK_PUNCT and t.val in "([{":
|
||||
depth += 1
|
||||
elif t.kind == TOK_PUNCT and t.val in ")]}":
|
||||
depth -= 1
|
||||
elif depth == 0 and t.kind == TOK_PUNCT and t.val == ",":
|
||||
expect = True
|
||||
elif depth == 0 and expect and t.kind == TOK_IDENT:
|
||||
names.append(t.val)
|
||||
expect = False
|
||||
i += 1
|
||||
return names
|
||||
|
||||
def func_at(self, rel, tok_index):
|
||||
for f in self.funcs_in(rel):
|
||||
if f.start <= tok_index < f.end:
|
||||
return f
|
||||
for f in self.toplevel:
|
||||
if f.path == rel:
|
||||
return f
|
||||
return None
|
||||
|
||||
def funcs_in(self, rel):
|
||||
for fl in self.funcs.values():
|
||||
for f in fl:
|
||||
if f.path == rel:
|
||||
yield f
|
||||
|
||||
# -- indexing -----------------------------------------------------------
|
||||
def index(self):
|
||||
for rel, toks in self.files.items():
|
||||
i = 0
|
||||
while i < len(toks):
|
||||
t = toks[i]
|
||||
if t.kind == TOK_IDENT and i + 1 < len(toks) and toks[i + 1].val == "(" \
|
||||
and t.val not in KEYWORDS \
|
||||
and not (i > 0 and toks[i - 1].kind == TOK_IDENT
|
||||
and toks[i - 1].val == "fn"):
|
||||
# ^ the `fn f(a: T)` declaration is not a call site; counting
|
||||
# it as one makes every parameter resolve to its own name
|
||||
# and reports the whole function UNRESOLVED.
|
||||
close = match_close(toks, i + 1, "(", ")")
|
||||
args = split_args(toks, i + 2, close)
|
||||
self.calls.setdefault(t.val, []).append(
|
||||
(self.func_at(rel, i), args, rel, t.line))
|
||||
if t.val in ("state_get", "state_set") and args:
|
||||
self.sites.append(Site(
|
||||
"get" if t.val == "state_get" else "set",
|
||||
rel, t.line, self.func_at(rel, i), args[0],
|
||||
render(toks, *args[0])))
|
||||
i += 1
|
||||
|
||||
# -- resolution ---------------------------------------------------------
|
||||
def lets_of(self, f):
|
||||
if f.lets is not None:
|
||||
return f.lets
|
||||
f.lets = {}
|
||||
toks = f.toks
|
||||
skip = getattr(f, "covered", [])
|
||||
i = f.start
|
||||
while i < f.end:
|
||||
if any(a <= i <= b for a, b in skip):
|
||||
i = max(b for a, b in skip if a <= i <= b) + 1
|
||||
continue
|
||||
t = toks[i]
|
||||
if t.kind == TOK_IDENT and t.val == "let" and i + 1 < f.end \
|
||||
and toks[i + 1].kind == TOK_IDENT:
|
||||
name = toks[i + 1].val
|
||||
j = i + 2
|
||||
if j < f.end and toks[j].val == ":": # skip the type
|
||||
while j < f.end and toks[j].val != "=":
|
||||
j += 1
|
||||
if j < f.end and toks[j].val == "=":
|
||||
s = j + 1
|
||||
e = stmt_end(toks, s, f.end)
|
||||
f.lets.setdefault(name, []).append((s, e))
|
||||
i = e
|
||||
continue
|
||||
i += 1
|
||||
return f.lets
|
||||
|
||||
def returns_of(self, ctx, depth=0, seen=None):
|
||||
"""The value expressions of a function, in the context it was CALLED in.
|
||||
|
||||
Context-sensitive on purpose. `conv_hist_key` is written as a guard:
|
||||
|
||||
if str_eq(session_id, "") { return "conv_history" }
|
||||
return "session_hist_" + session_id
|
||||
|
||||
Collecting both returns flat would make state_set(conv_hist_key("")) — the
|
||||
dead handle_chat() write — claim to produce the session_hist_ namespace
|
||||
too. That is a producer this engine does not actually have, and claiming
|
||||
it would let the gate stay green if sessions.el's real writer vanished:
|
||||
a masking hole in the exact namespace #129 lives in. So a guard whose
|
||||
condition folds is honoured, and the branch not taken is dropped."""
|
||||
out = []
|
||||
self._values(ctx.toks, ctx.start, ctx.end, ctx, depth,
|
||||
seen if seen is not None else set(), out)
|
||||
return out
|
||||
|
||||
def _values(self, toks, s, e, ctx, depth, seen, out):
|
||||
"""Append the value expressions of a statement sequence.
|
||||
Returns True when the sequence definitely returns (rest unreachable)."""
|
||||
if depth > MAX_DEPTH:
|
||||
return False
|
||||
i = s
|
||||
while i < e:
|
||||
t = toks[i]
|
||||
if t.kind == TOK_IDENT and t.val == "return":
|
||||
j = stmt_end(toks, i + 1, e)
|
||||
if j > i + 1:
|
||||
out.append((i + 1, j))
|
||||
return True
|
||||
if t.kind == TOK_IDENT and t.val == "let":
|
||||
i = stmt_end(toks, i + 2, e)
|
||||
continue
|
||||
if t.kind == TOK_IDENT and t.val == "if":
|
||||
i = self._if_stmt(toks, i, e, ctx, depth, seen, out)
|
||||
if i is True:
|
||||
return True
|
||||
continue
|
||||
if t.kind == TOK_PUNCT and t.val in "([{":
|
||||
i = match_close(toks, i, t.val,
|
||||
{"(": ")", "[": "]", "{": "}"}[t.val]) + 1
|
||||
continue
|
||||
en = stmt_end(toks, i, e)
|
||||
if en <= i:
|
||||
i += 1
|
||||
continue
|
||||
if en >= e: # trailing expression = the value
|
||||
out.append((i, en))
|
||||
i = en
|
||||
return False
|
||||
|
||||
def _if_stmt(self, toks, i, e, ctx, depth, seen, out):
|
||||
"""Walk one if / else-if / else chain. Returns the next index, or True
|
||||
if the chain definitely returns on every reachable branch."""
|
||||
bopen = i + 1
|
||||
while bopen < e and toks[bopen].val != "{":
|
||||
bopen += 1
|
||||
if bopen >= e:
|
||||
return e
|
||||
bclose = match_close(toks, bopen, "{", "}")
|
||||
fold = self._fold_cond(toks, i + 1, bopen, ctx, depth, seen)
|
||||
|
||||
j = bclose + 1
|
||||
else_s = else_e = None
|
||||
if j < e and toks[j].kind == TOK_IDENT and toks[j].val == "else":
|
||||
if j + 1 < e and toks[j + 1].val == "{":
|
||||
ec = match_close(toks, j + 1, "{", "}")
|
||||
else_s, else_e = j + 2, ec
|
||||
j = ec + 1
|
||||
else: # `else if ...` — the rest of the chain
|
||||
else_s = j + 1
|
||||
else_e = stmt_end(toks, j + 1, e)
|
||||
j = else_e
|
||||
|
||||
then_ret = else_ret = False
|
||||
if fold is not False:
|
||||
then_ret = self._values(toks, bopen + 1, bclose, ctx, depth + 1, seen, out)
|
||||
if fold is not True and else_s is not None:
|
||||
else_ret = self._values(toks, else_s, else_e, ctx, depth + 1, seen, out)
|
||||
|
||||
if fold is True and then_ret:
|
||||
return True
|
||||
if fold is False and else_s is not None and else_ret:
|
||||
return True
|
||||
if fold is None and else_s is not None and then_ret and else_ret:
|
||||
return True
|
||||
return j
|
||||
|
||||
def resolve(self, rng, func, depth=0, seen=None):
|
||||
"""-> (set of patterns, unresolved_flag)"""
|
||||
if seen is None:
|
||||
seen = set()
|
||||
if depth > MAX_DEPTH:
|
||||
return set(), True
|
||||
return self._expr(func.toks, rng[0], rng[1], func, depth, seen)
|
||||
|
||||
# -- expression walker --------------------------------------------------
|
||||
def _expr(self, toks, s, e, func, depth, seen):
|
||||
parts, cur, d = [], s, 0
|
||||
i = s
|
||||
while i < e: # split on top-level '+'
|
||||
v = toks[i].val
|
||||
if toks[i].kind == TOK_PUNCT and v in "([{":
|
||||
d += 1
|
||||
elif toks[i].kind == TOK_PUNCT and v in ")]}":
|
||||
d -= 1
|
||||
elif d == 0 and toks[i].kind == TOK_PUNCT and v == "+" and i > s:
|
||||
parts.append((cur, i))
|
||||
cur = i + 1
|
||||
i += 1
|
||||
parts.append((cur, e))
|
||||
if len(parts) == 1:
|
||||
return self._primary(toks, s, e, func, depth, seen)
|
||||
|
||||
# concatenation: keep folding while every operand so far is EXACT
|
||||
head, unres = "", False
|
||||
static = True
|
||||
for (ps, pe) in parts:
|
||||
pats, u = self._primary(toks, ps, pe, func, depth, seen)
|
||||
exacts = {p[1] for p in pats if p[0] == EXACT}
|
||||
if static and len(exacts) == 1 and not u and len(pats) == 1:
|
||||
head += exacts.pop()
|
||||
continue
|
||||
if static and pats and all(p[0] == EXACT for p in pats) and len(pats) > 1:
|
||||
# a branchy static operand: keep the shared head only
|
||||
static = False
|
||||
head += os.path.commonprefix(sorted({p[1] for p in pats}))
|
||||
break
|
||||
static = False
|
||||
# first non-static operand: everything after it is runtime text
|
||||
if (ps, pe) == parts[0]:
|
||||
for p in pats:
|
||||
if p[0] == PREFIX:
|
||||
head = p[1]
|
||||
break
|
||||
if not head:
|
||||
unres = True
|
||||
break
|
||||
if static:
|
||||
return {pat_exact(head)}, False
|
||||
p = pat_prefix(head)
|
||||
return ({p} if p else set()), (unres or not p)
|
||||
|
||||
def _primary(self, toks, s, e, func, depth, seen):
|
||||
while s < e and toks[s].kind == TOK_PUNCT and toks[s].val == "(" \
|
||||
and match_close(toks, s, "(", ")") == e - 1:
|
||||
s, e = s + 1, e - 1
|
||||
if s >= e:
|
||||
return set(), True
|
||||
t = toks[s]
|
||||
|
||||
if t.kind == TOK_STR and e == s + 1:
|
||||
return {pat_exact(t.val)}, False
|
||||
|
||||
if t.kind == TOK_IDENT and t.val == "if":
|
||||
return self._if_expr(toks, s, e, func, depth, seen)
|
||||
|
||||
if t.kind == TOK_IDENT and s + 1 < e and toks[s + 1].val == "(":
|
||||
close = match_close(toks, s + 1, "(", ")")
|
||||
if close == e - 1:
|
||||
return self._call(toks, t.val, split_args(toks, s + 2, close),
|
||||
func, depth, seen)
|
||||
|
||||
if t.kind == TOK_IDENT and e == s + 1:
|
||||
return self._var(t.val, func, depth, seen)
|
||||
|
||||
return set(), True
|
||||
|
||||
def _if_expr(self, toks, s, e, func, depth, seen):
|
||||
bopen = s + 1
|
||||
while bopen < e and toks[bopen].val != "{":
|
||||
bopen += 1
|
||||
cond = (s + 1, bopen)
|
||||
bclose = match_close(toks, bopen, "{", "}")
|
||||
then_rng = block_tail(toks, bopen + 1, bclose) or (bopen + 1, bclose)
|
||||
|
||||
else_rng = None
|
||||
j = bclose + 1
|
||||
if j < e and toks[j].kind == TOK_IDENT and toks[j].val == "else":
|
||||
if j + 1 < e and toks[j + 1].val == "{":
|
||||
ec = match_close(toks, j + 1, "{", "}")
|
||||
else_rng = block_tail(toks, j + 2, ec) or (j + 2, ec)
|
||||
else:
|
||||
else_rng = (j + 1, e) # `else if ...`
|
||||
|
||||
taken = self._fold_cond(toks, cond[0], cond[1], func, depth, seen)
|
||||
rngs = []
|
||||
if taken is not False:
|
||||
rngs.append(then_rng)
|
||||
if taken is not True and else_rng:
|
||||
rngs.append(else_rng)
|
||||
|
||||
pats, unres = set(), False
|
||||
for r in rngs:
|
||||
p, u = self._expr(toks, r[0], r[1], func, depth + 1, seen)
|
||||
pats |= p
|
||||
unres = unres or u
|
||||
return pats, unres
|
||||
|
||||
def _fold_cond(self, toks, s, e, func, depth, seen):
|
||||
"""Constant-fold `str_eq(X, "")` / `!str_eq(X, "")` so a helper called with
|
||||
a literal (conv_hist_key("")) yields only the branch it really takes.
|
||||
Returns True / False / None(unknown)."""
|
||||
neg = False
|
||||
if s < e and toks[s].kind == TOK_PUNCT and toks[s].val == "!":
|
||||
neg, s = True, s + 1
|
||||
if not (s < e and toks[s].kind == TOK_IDENT and toks[s].val == "str_eq"
|
||||
and s + 1 < e and toks[s + 1].val == "("):
|
||||
return None
|
||||
close = match_close(toks, s + 1, "(", ")")
|
||||
if close != e - 1:
|
||||
return None
|
||||
args = split_args(toks, s + 2, close)
|
||||
if len(args) != 2:
|
||||
return None
|
||||
va, ua = self._expr(toks, args[0][0], args[0][1], func, depth + 1, seen)
|
||||
vb, ub = self._expr(toks, args[1][0], args[1][1], func, depth + 1, seen)
|
||||
if ua or ub or len(va) != 1 or len(vb) != 1:
|
||||
return None
|
||||
(ka, sa), (kb, sb) = va.pop(), vb.pop()
|
||||
if ka != EXACT or kb != EXACT:
|
||||
return None
|
||||
r = (sa == sb)
|
||||
return (not r) if neg else r
|
||||
|
||||
def _call(self, toks, name, args, func, depth, seen):
|
||||
cands = self.funcs.get(name)
|
||||
if not cands:
|
||||
return set(), True # builtin: json_get, env, ...
|
||||
pats, unres = set(), False
|
||||
for callee in cands:
|
||||
key = ("fn", callee.path, callee.name, tuple(args))
|
||||
if key in seen:
|
||||
unres = True
|
||||
continue
|
||||
seen = seen | {key}
|
||||
# bind the callee's params to THIS call site's argument expressions
|
||||
binding = {}
|
||||
for idx, pname in enumerate(callee.params):
|
||||
if idx < len(args):
|
||||
binding[pname] = (args[idx], func)
|
||||
callee_ctx = _Bound(callee, binding)
|
||||
for r in self.returns_of(callee_ctx, depth + 1, seen):
|
||||
p, u = self._expr(callee.toks, r[0], r[1], callee_ctx,
|
||||
depth + 1, seen)
|
||||
pats |= p
|
||||
unres = unres or u
|
||||
return pats, unres
|
||||
|
||||
def _var(self, name, func, depth, seen):
|
||||
real = func.func if isinstance(func, _Bound) else func
|
||||
|
||||
# 1. a parameter bound by the call site we came through
|
||||
if isinstance(func, _Bound) and name in func.binding:
|
||||
rng, caller_ctx = func.binding[name]
|
||||
return self._expr(caller_ctx.toks, rng[0], rng[1], caller_ctx,
|
||||
depth + 1, seen)
|
||||
|
||||
# 2. a local `let` in the enclosing function
|
||||
lets = self.lets_of(real)
|
||||
if name in lets:
|
||||
key = ("let", real.path, real.name, name)
|
||||
if key in seen:
|
||||
return set(), True
|
||||
seen = seen | {key}
|
||||
pats, unres = set(), False
|
||||
for rng in lets[name]:
|
||||
p, u = self._expr(real.toks, rng[0], rng[1], real, depth + 1, seen)
|
||||
pats |= p
|
||||
unres = unres or u
|
||||
return pats, unres
|
||||
|
||||
# 3. an unbound parameter -> look at every call site of the enclosing fn
|
||||
if name in real.params:
|
||||
key = ("param", real.path, real.name, name)
|
||||
if key in seen:
|
||||
return set(), True
|
||||
seen = seen | {key}
|
||||
idx = real.params.index(name)
|
||||
pats, unres = set(), False
|
||||
sites = self.calls.get(real.name, [])
|
||||
if not sites:
|
||||
return set(), True
|
||||
for caller, args, _rel, _line in sites:
|
||||
if caller is None or idx >= len(args):
|
||||
unres = True
|
||||
continue
|
||||
p, u = self._expr(caller.toks, args[idx][0], args[idx][1],
|
||||
caller, depth + 1, seen)
|
||||
pats |= p
|
||||
unres = unres or u
|
||||
return pats, unres
|
||||
|
||||
# 4. a file-level / cross-file top-level `let`
|
||||
for tl in self.toplevel:
|
||||
lets = self.lets_of(tl)
|
||||
if name in lets:
|
||||
key = ("let", tl.path, tl.name, name)
|
||||
if key in seen:
|
||||
return set(), True
|
||||
seen2 = seen | {key}
|
||||
pats, unres = set(), False
|
||||
for rng in lets[name]:
|
||||
p, u = self._expr(tl.toks, rng[0], rng[1], tl, depth + 1, seen2)
|
||||
pats |= p
|
||||
unres = unres or u
|
||||
return pats, unres
|
||||
|
||||
return set(), True
|
||||
|
||||
|
||||
class _Bound:
|
||||
"""A callee view that also knows what its params were called with."""
|
||||
|
||||
def __init__(self, func, binding):
|
||||
self.func, self.binding = func, binding
|
||||
self.toks, self.start, self.end = func.toks, func.start, func.end
|
||||
self.params, self.path, self.name = func.params, func.path, func.name
|
||||
|
||||
def __getattr__(self, k):
|
||||
return getattr(self.func, k)
|
||||
|
||||
|
||||
# ── token helpers ───────────────────────────────────────────────────────────
|
||||
def split_args(toks, s, e):
|
||||
out, cur, d = [], s, 0
|
||||
i = s
|
||||
while i < e:
|
||||
v = toks[i].val
|
||||
if toks[i].kind == TOK_PUNCT and v in "([{":
|
||||
d += 1
|
||||
elif toks[i].kind == TOK_PUNCT and v in ")]}":
|
||||
d -= 1
|
||||
elif d == 0 and toks[i].kind == TOK_PUNCT and v == ",":
|
||||
out.append((cur, i))
|
||||
cur = i + 1
|
||||
i += 1
|
||||
if cur < e:
|
||||
out.append((cur, e))
|
||||
return out
|
||||
|
||||
|
||||
STMT_START = {"let", "return", "if", "while", "for"}
|
||||
KEYWORDS = {"if", "while", "for", "return", "fn", "let", "else", "match"}
|
||||
|
||||
|
||||
def stmt_end(toks, s, limit):
|
||||
"""End of the expression starting at s: the next top-level statement
|
||||
boundary. El has no semicolons, so a newline that starts a new statement
|
||||
ends this one."""
|
||||
d, i = 0, s
|
||||
while i < limit:
|
||||
t = toks[i]
|
||||
if t.kind == TOK_PUNCT and t.val in "([":
|
||||
d += 1
|
||||
elif t.kind == TOK_PUNCT and t.val in ")]":
|
||||
d -= 1
|
||||
if d < 0:
|
||||
return i
|
||||
elif t.kind == TOK_PUNCT and t.val == "{":
|
||||
# a brace at depth 0 belongs to this expression only when it is an
|
||||
# if/else block that is part of it
|
||||
d += 1
|
||||
elif t.kind == TOK_PUNCT and t.val == "}":
|
||||
d -= 1
|
||||
if d < 0:
|
||||
return i
|
||||
elif d == 0 and t.kind == TOK_PUNCT and t.val == ",":
|
||||
return i
|
||||
elif d == 0 and i > s and t.kind == TOK_IDENT and t.val in STMT_START:
|
||||
if t.val == "if" and toks[i - 1].kind == TOK_IDENT and toks[i - 1].val == "else":
|
||||
i += 1
|
||||
continue
|
||||
return i
|
||||
elif d == 0 and i > s and t.kind == TOK_IDENT and t.val == "fn":
|
||||
return i
|
||||
i += 1
|
||||
return limit
|
||||
|
||||
|
||||
def block_tail(toks, s, e):
|
||||
"""The trailing expression of a block, if the block ends in one."""
|
||||
i, last = s, None
|
||||
while i < e:
|
||||
t = toks[i]
|
||||
if t.kind == TOK_IDENT and t.val in ("let", "return"):
|
||||
i = stmt_end(toks, i + 1, e)
|
||||
last = None
|
||||
continue
|
||||
if t.kind == TOK_PUNCT and t.val in "([{":
|
||||
i = match_close(toks, i, t.val, {"(": ")", "[": "]", "{": "}"}[t.val]) + 1
|
||||
continue
|
||||
st = i
|
||||
en = stmt_end(toks, i, e)
|
||||
if en <= st:
|
||||
i = st + 1
|
||||
continue
|
||||
last = (st, en)
|
||||
i = en
|
||||
return last
|
||||
|
||||
|
||||
def render(toks, s, e):
|
||||
out = []
|
||||
for t in toks[s:e]:
|
||||
out.append('"%s"' % t.val if t.kind == TOK_STR else t.val)
|
||||
return " ".join(out)
|
||||
|
||||
|
||||
# ── the gate ────────────────────────────────────────────────────────────────
|
||||
def collect(root, include_tests):
|
||||
files = []
|
||||
for dirpath, dirnames, filenames in os.walk(root):
|
||||
dirnames[:] = [d for d in dirnames
|
||||
if d not in ("dist", "vendor", ".git", "node_modules")]
|
||||
rel_dir = os.path.relpath(dirpath, root)
|
||||
if not include_tests and rel_dir.split(os.sep)[0] == "tests":
|
||||
continue
|
||||
for fn in sorted(filenames):
|
||||
if fn.endswith(".el"):
|
||||
rel = os.path.normpath(os.path.join(rel_dir, fn))
|
||||
files.append((os.path.join(dirpath, fn), rel))
|
||||
return sorted(files, key=lambda x: x[1])
|
||||
|
||||
|
||||
def is_bare_literal(prog, site):
|
||||
toks = prog.files[site.path]
|
||||
s, e = site.arg_range
|
||||
return e == s + 1 and toks[s].kind == TOK_STR
|
||||
|
||||
|
||||
def read_decl(path):
|
||||
"""A declaration file: one entry per line, `# ...` comments stripped."""
|
||||
out = []
|
||||
if not path or not os.path.exists(path):
|
||||
return out
|
||||
with open(path) as fh:
|
||||
for ln in fh:
|
||||
ln = ln.split("#", 1)[0].strip()
|
||||
if ln:
|
||||
out.append(ln)
|
||||
return out
|
||||
|
||||
|
||||
def opt(argv, name, default=None):
|
||||
for i, a in enumerate(argv):
|
||||
if a == name and i + 1 < len(argv):
|
||||
return argv[i + 1]
|
||||
return default
|
||||
|
||||
|
||||
def main(argv):
|
||||
root = os.path.abspath(argv[1]) if len(argv) > 1 and not argv[1].startswith("-") else "."
|
||||
include_tests = "--include-tests" in argv
|
||||
verbose = "--verbose" in argv
|
||||
baseline_path = opt(argv, "--baseline")
|
||||
external_path = opt(argv, "--external")
|
||||
|
||||
prog = Program()
|
||||
for path, rel in collect(root, include_tests):
|
||||
prog.load(path, rel)
|
||||
prog.index()
|
||||
for site in prog.sites:
|
||||
pats, unres = prog.resolve(site.arg_range, site.func)
|
||||
site.pats, site.unresolved = {p for p in pats if p}, unres
|
||||
if is_bare_literal(prog, site):
|
||||
site.literal = prog.files[site.path][site.arg_range[0]].val
|
||||
|
||||
writes = [s for s in prog.sites if s.kind == "set"]
|
||||
reads = [s for s in prog.sites if s.kind == "get"]
|
||||
write_pats = set()
|
||||
for w in writes:
|
||||
write_pats |= w.pats
|
||||
|
||||
# Declared host-set keys: written by something outside the El tree (an
|
||||
# operator, the installer, a host process). Each entry must carry a reason.
|
||||
external = []
|
||||
for ln in read_decl(external_path):
|
||||
parts = ln.split(None, 1)
|
||||
if len(parts) != 2 or parts[0] not in (EXACT, PREFIX):
|
||||
print("bad --external line (want `exact|prefix <key>`): %r" % ln,
|
||||
file=sys.stderr)
|
||||
return 2
|
||||
external.append((parts[0], parts[1]))
|
||||
write_pats |= set(external)
|
||||
|
||||
# F1 — a read of a key no write in the tree produces.
|
||||
f1 = []
|
||||
for r in reads:
|
||||
for p in sorted(r.pats):
|
||||
if not any(covers(w, p) for w in write_pats):
|
||||
f1.append((r, p))
|
||||
|
||||
# F2 — a key namespace owned by a helper, accessed by a hand-rolled literal.
|
||||
# This is the #129 shape: the producer moved behind conv_hist_key() and
|
||||
# one consumer kept spelling the old key out by hand.
|
||||
owners = {} # helper fn name -> its value set
|
||||
for s in prog.sites:
|
||||
toks = prog.files[s.path]
|
||||
a, b = s.arg_range
|
||||
if toks[a].kind == TOK_IDENT and a + 1 < b and toks[a + 1].val == "(" \
|
||||
and match_close(toks, a + 1, "(", ")") == b - 1 \
|
||||
and toks[a].val in prog.funcs:
|
||||
name = toks[a].val
|
||||
if name not in owners:
|
||||
vals = set()
|
||||
for callee in prog.funcs[name]:
|
||||
# No call context here on purpose: the OWNED namespace is
|
||||
# every key the helper can ever produce, over all call sites.
|
||||
for rng in prog.returns_of(callee):
|
||||
p, _ = prog._expr(callee.toks, rng[0], rng[1], callee, 0, set())
|
||||
vals |= {x for x in p if x}
|
||||
owners[name] = vals
|
||||
f2 = []
|
||||
for s in prog.sites:
|
||||
if s.literal is None:
|
||||
continue
|
||||
for owner, vals in sorted(owners.items()):
|
||||
for v in sorted(vals):
|
||||
if covers(v, pat_exact(s.literal)):
|
||||
f2.append((s, owner, v))
|
||||
break
|
||||
else:
|
||||
continue
|
||||
break
|
||||
|
||||
unresolved = [s for s in prog.sites if s.unresolved or not s.pats]
|
||||
|
||||
# Baseline signatures carry NO line number on purpose: an unrelated edit that
|
||||
# shifts a line must not un-mute an accepted finding (that is crying wolf),
|
||||
# but a GROWTH in count must not hide either. So a baseline entry is
|
||||
# `<file> <CODE> <detail> [xN]` and only the first N matches are muted.
|
||||
baseline, bad_baseline = {}, []
|
||||
for ln in read_decl(baseline_path):
|
||||
n, key = 1, ln
|
||||
parts = ln.rsplit(" x", 1)
|
||||
if len(parts) == 2 and parts[1].isdigit():
|
||||
key, n = parts[0].strip(), int(parts[1])
|
||||
baseline[key] = n
|
||||
|
||||
def sig(path, code, detail):
|
||||
return "%s %s %s" % (path, code, detail)
|
||||
|
||||
findings = []
|
||||
for r, p in f1:
|
||||
findings.append((sig(r.path, "DEAD-READ", "%s:%s" % p), r.line,
|
||||
" %s:%d state_get(%s)\n resolves to %s %r — no state_set in the tree produces it"
|
||||
% (r.path, r.line, r.text, p[0].upper(), p[1])))
|
||||
for s, owner, v in f2:
|
||||
findings.append((sig(s.path, "HAND-ROLLED", "%s<-%s()" % (s.literal, owner)), s.line,
|
||||
" %s:%d state_%s(\"%s\")\n %s() owns this key namespace (%s %r) — go through the helper, "
|
||||
"or a rename orphans this site silently" % (s.path, s.line, s.kind, s.literal, owner, v[0].upper(), v[1])))
|
||||
findings.sort(key=lambda f: (f[0], f[1]))
|
||||
|
||||
live, muted, budget = [], [], dict(baseline)
|
||||
for f in findings:
|
||||
if budget.get(f[0], 0) > 0:
|
||||
budget[f[0]] -= 1
|
||||
muted.append(f)
|
||||
else:
|
||||
live.append(f)
|
||||
stale = sorted(k for k, v in budget.items() if v > 0)
|
||||
|
||||
print("── state-key audit ─────────────────────────────────────────────")
|
||||
print("scanned %d .el files%s" % (len(prog.files),
|
||||
"" if include_tests else " (tests/ excluded)"))
|
||||
print("sites %d state_set, %d state_get" % (len(writes), len(reads)))
|
||||
print("keys %d distinct write patterns" % len(write_pats))
|
||||
print("")
|
||||
|
||||
if verbose:
|
||||
print("WRITE PATTERNS")
|
||||
for k, v in sorted(write_pats):
|
||||
print(" %-6s %s" % (k, v))
|
||||
print("")
|
||||
|
||||
if external:
|
||||
print("DECLARED HOST-SET (%d) — %s" % (len(external), external_path))
|
||||
for k, v in sorted(external):
|
||||
print(" %-6s %s" % (k, v))
|
||||
print("")
|
||||
|
||||
print("UNRESOLVED (%d) — reported, never fails the build" % len(unresolved))
|
||||
if not unresolved:
|
||||
print(" (none)")
|
||||
for s in sorted(unresolved, key=lambda x: (x.path, x.line)):
|
||||
print(" %s:%d state_%s(%s)%s"
|
||||
% (s.path, s.line, s.kind, s.text,
|
||||
" [partial: %s]" % ", ".join("%s %r" % p for p in sorted(s.pats))
|
||||
if s.pats else ""))
|
||||
print("")
|
||||
|
||||
if muted:
|
||||
print("BASELINED (%d) — pre-existing debt accepted in %s. NOT clean; fix these."
|
||||
% (len(muted), baseline_path))
|
||||
for sg, line, _ in muted:
|
||||
print(" %s (line %d)" % (sg, line))
|
||||
print("")
|
||||
if stale:
|
||||
print("STALE BASELINE (%d) — entries that no longer match anything; delete them:"
|
||||
% len(stale))
|
||||
for sg in stale:
|
||||
print(" %s" % sg)
|
||||
print("")
|
||||
|
||||
print("FINDINGS (%d)" % len(live))
|
||||
if not live:
|
||||
print(" (none)")
|
||||
for _, _, body in live:
|
||||
print(body)
|
||||
print("")
|
||||
|
||||
if live:
|
||||
print("FAIL: %d state-key finding(s). See scripts/verify-state-keys.sh "
|
||||
"for why this gate exists (issue #129)." % len(live))
|
||||
return 1
|
||||
print("PASS: every resolvable state_get key has a producer, and no key "
|
||||
"namespace is spelled two ways.")
|
||||
return 0
|
||||
|
||||
|
||||
if __name__ == "__main__":
|
||||
sys.exit(main(sys.argv))
|
||||
@@ -0,0 +1,28 @@
|
||||
# state-key-baseline.txt — findings that already existed when this gate landed
|
||||
# (2026-08-07). Each one is a REAL defect of the #129 class, not a false
|
||||
# positive. They are muted only so the gate can be turned on today instead of
|
||||
# being deferred until the debt is paid; every run still prints them under
|
||||
# BASELINED with the word "debt".
|
||||
#
|
||||
# THIS FILE SHOULD ONLY EVER SHRINK. Adding a line means you are shipping a
|
||||
# known silent-"" read. If you must, date it and say why in the comment.
|
||||
#
|
||||
# format: <file> <CODE> <detail> [xN] # N = how many sites are accepted
|
||||
# No line numbers on purpose: an unrelated edit must not un-mute an accepted
|
||||
# finding, but a GROWTH in count is NOT muted — the extra site fails the build.
|
||||
#
|
||||
chat.el DEAD-READ exact:soul_identity x5
|
||||
# ^ soul.el used to run `state_set("soul_identity", soul_identity)`. It was
|
||||
# deleted on 2026-05-13 in b163fa6 ("feat(awareness): route ISE writes to HTTP
|
||||
# Engram ..."), a commit about something else entirely, and the five readers in
|
||||
# chat.el were left behind. Since that date build_system_prompt (737), the
|
||||
# vision handler (1745), the agentic system prompt (2620), the council
|
||||
# transcript handler (3425) and 3480 have all been prefixing "" — exactly the
|
||||
# #129 shape, found by this gate on its first run. Sites: 737, 1745, 2620,
|
||||
# 3425, 3480. Fix = restore the boot-time write or delete the reads; not done
|
||||
# here because this branch must not change engine behaviour.
|
||||
|
||||
studio.el DEAD-READ exact:soul_principal x1
|
||||
# ^ studio.el:57 dharma_registry() emits "principal":"" on every call — no
|
||||
# producer has ever existed in the tree's history (git log -S finds none).
|
||||
# Never-wired rather than orphaned, same silent-"" result.
|
||||
@@ -0,0 +1,16 @@
|
||||
# state-key-external.txt — state keys the engine READS but deliberately never
|
||||
# WRITES, because a host outside the El tree sets them (an operator, the
|
||||
# installer, a deployment env). Read scripts/verify-state-keys.sh for why this
|
||||
# list has to exist and why it has to stay short.
|
||||
#
|
||||
# THE RULE FOR ADDING A LINE: the read site must already treat "" as a defined
|
||||
# default (`if str_eq(x, "") { <default> }`) AND the source must say so in a
|
||||
# comment. "I could not find the writer" is NOT a reason — that is the #129
|
||||
# defect, and it belongs in state-key-baseline.txt with a date, not here.
|
||||
#
|
||||
# format: exact|prefix <key> # why, and where the source says so
|
||||
#
|
||||
exact soul_rate_limit # routes.el:59-61 — "configurable via soul state key ... Falls back to 60 req/min if not set."
|
||||
exact web_search_tool_version # chat.el:1884-1910 — version lives in state "so a future bump is a config write, not a recompile"; defaults to web_search_20250305
|
||||
exact platform_auth # stewardship.el:92 — host-set capability flag; fail-CLOSED (anything but "true" denies the platform tool)
|
||||
exact security_research_authorized # awareness.el:991-996 — state override for env SECURITY_RESEARCH_TOKEN; fail-closed, defaults false
|
||||
Executable
+261
@@ -0,0 +1,261 @@
|
||||
#!/usr/bin/env bash
|
||||
# verify-soul-contract.sh — the soul contract gate.
|
||||
#
|
||||
# TERMINOLOGY (canonical): the ENGRAM is the brain — the memory/knowledge-graph
|
||||
# substrate. The binary this gate exercises is the SOUL — the runtime/reasoning
|
||||
# engine compiled from dist/soul.c that serves the /api/ surface. The app
|
||||
# (neuron-ui) bundles the soul binary at resources/<platform>/neuron.
|
||||
#
|
||||
# WHY THIS EXISTS
|
||||
# For a while the soul binary was hand-dropped, and a stale one shipped: it
|
||||
# 404'd several capability routes the app calls (knowledge-graph node
|
||||
# update/delete, live-run narration, safety-contact, ...). This gate makes
|
||||
# shipping a stale soul IMPOSSIBLE. It has two enforced sections:
|
||||
# A. PRESENCE — every route the app calls must be ANSWERED (not 404, not
|
||||
# the el-runtime "no handler"). This is the packaging gate:
|
||||
# if it fails, do not package.
|
||||
# B. IMMUTABILITY — engram nodes/memories are immutable by design. To
|
||||
# "update" is to create a NEW node + a supersede EDGE back to
|
||||
# the original; the original is KEPT. To "delete" is to
|
||||
# supersede/tombstone, never hard-remove. A soul that
|
||||
# hard-deletes an engram node is DEFECTIVE and fails the gate.
|
||||
#
|
||||
# SAFETY
|
||||
# Never touches the live soul (:7770), live engram (:8742), or ~/.neuron.
|
||||
# Boots on a throwaway port (default 7799) with HOME=$(mktemp -d), a throwaway
|
||||
# engram snapshot, a non-genesis cgi id, no ENGRAM_URL (so it uses its own
|
||||
# in-process store, never the live server), NEURON_API_URL pointed at a dead
|
||||
# port, and no ANTHROPIC_API_KEY (so no probe triggers a real LLM call).
|
||||
# Connectors proxy to a HARDCODED 127.0.0.1:7771 (no env override): those
|
||||
# sub-routes are probed with GET, which the soul maps to a read-only
|
||||
# connectd_get, so this gate never writes to a running connectd bridge.
|
||||
#
|
||||
# USAGE
|
||||
# scripts/verify-soul-contract.sh <path-to-soul-binary> [port]
|
||||
# exit 0 = all required routes answered AND no destructive engram mutation;
|
||||
# non-zero = a route is missing (presence) or a mutation route hard-deletes.
|
||||
set -uo pipefail
|
||||
|
||||
SOUL="${1:?usage: verify-soul-contract.sh <soul-binary> [port]}"
|
||||
PORT="${2:-7799}"
|
||||
|
||||
if [ "$PORT" = "7770" ] || [ "$PORT" = "8742" ] || [ "$PORT" = "7771" ]; then
|
||||
echo "REFUSING: port $PORT is a live service port. Use a throwaway port." >&2
|
||||
exit 2
|
||||
fi
|
||||
if [ ! -x "$SOUL" ]; then echo "not executable: $SOUL" >&2; exit 2; fi
|
||||
|
||||
BASE="http://127.0.0.1:$PORT"
|
||||
THROW_HOME="$(mktemp -d "${TMPDIR:-/tmp}/soul-contract-home.XXXXXX")"
|
||||
SOUL_LOG="$(mktemp "${TMPDIR:-/tmp}/soul-contract-log.XXXXXX")"
|
||||
SOUL_PID=""
|
||||
cleanup() {
|
||||
[ -n "$SOUL_PID" ] && kill "$SOUL_PID" 2>/dev/null
|
||||
[ -n "$SOUL_PID" ] && { sleep 0.3; kill -9 "$SOUL_PID" 2>/dev/null; }
|
||||
rm -rf "$THROW_HOME" "$SOUL_LOG"
|
||||
}
|
||||
trap cleanup EXIT INT TERM
|
||||
|
||||
# =============================================================================
|
||||
# THE CONTRACT — routes the app (neuron-ui/src/main/kotlin/ai/neuron/ui/*.kt)
|
||||
# calls against the soul ($SOUL). Format: "METHOD PATH".
|
||||
#
|
||||
# EXCLUDED and why:
|
||||
# /api/auth, /api/auth/status, /api/dispatch, /api/tasks
|
||||
# -> served by the APP's own DispatchServer.kt (localhost:8080), not the
|
||||
# soul. Not soul routes.
|
||||
# /api/tags
|
||||
# -> not handled by any soul .el (app-side/other). Pre-verified excluded.
|
||||
# /api/neuron/, /api/neuron/node/, /api/connectors/ (bare prefixes)
|
||||
# -> base-path string constants used to build the concrete routes below.
|
||||
#
|
||||
# KNOWN-PENDING (probed + reported, NON-blocking):
|
||||
# POST /api/engram/import -> the app's "Restore memory" path. No soul handler
|
||||
# yet, and the app hides Restore from shipped builds (B3, "lands in an
|
||||
# update"). Reported so we see it; does not block packaging.
|
||||
#
|
||||
# Connectors sub-routes are listed as GET (see SAFETY note): handle_connectors is
|
||||
# monolithic, so a GET reaching it proves the whole connectors surface without
|
||||
# writing to the live bridge. Binary-strings cross-check confirms each POST
|
||||
# sub-path literal is compiled in.
|
||||
# =============================================================================
|
||||
REQUIRED=(
|
||||
"GET /api/graph/nodes"
|
||||
"GET /api/graph/edges"
|
||||
"POST /api/chat"
|
||||
"GET /api/config"
|
||||
"POST /api/see"
|
||||
"GET /api/connectors"
|
||||
"GET /api/connectors/add"
|
||||
"GET /api/connectors/toggle"
|
||||
"GET /api/connectors/auto-approve"
|
||||
"GET /api/connectors/remove"
|
||||
"GET /api/connectors/secret"
|
||||
"GET /api/connectors/oauth/start"
|
||||
"GET /api/connectors/call"
|
||||
"POST /api/neuron/memory"
|
||||
"POST /api/neuron/memory/update"
|
||||
"POST /api/neuron/memory/delete"
|
||||
"POST /api/neuron/node/create"
|
||||
"POST /api/neuron/node/update"
|
||||
"POST /api/neuron/node/delete"
|
||||
"POST /api/neuron/knowledge/capture"
|
||||
"POST /api/neuron/knowledge/evolve"
|
||||
"POST /api/neuron/knowledge/promote"
|
||||
"POST /api/neuron/processes/define"
|
||||
"GET /api/run-progress/__contract_probe__"
|
||||
"GET /api/safety-contact"
|
||||
"POST /api/safety-contact"
|
||||
"GET /api/sessions/__contract_probe__"
|
||||
)
|
||||
KNOWN_PENDING=(
|
||||
"POST /api/engram/import"
|
||||
)
|
||||
|
||||
# --- boot the soul -----------------------------------------------------------
|
||||
# Preserve the ambient environment (PATH, LD_LIBRARY_PATH, TMPDIR) so the
|
||||
# dynamically-linked soul finds its libs on any runner — using `env -i` here
|
||||
# stripped the library path on the Linux CI runner and the soul never booted.
|
||||
# Isolation is still guaranteed by UNSETTING the live-service vars (so it can
|
||||
# never reach the real engram/axon or make an LLM call) and by pointing HOME +
|
||||
# the snapshot at throwaway paths and the axon at a dead port.
|
||||
#
|
||||
# ISOLATION FIX (2026-08-03): unsetting ENGRAM_URL/SOUL_ENGRAM_URL is NOT enough.
|
||||
# The periodic engram sync (awareness.el) resolves its source as
|
||||
# env(SOUL_ISE_URL) -> state(soul_engram_url) -> DEFAULT http://localhost:8742
|
||||
# so with those vars unset it silently pulls the LIVE engram (:8742) if that
|
||||
# server is up — the throwaway graph ballooned 56 -> 12k live nodes within
|
||||
# seconds, and the concurrent live-sync mutation both (a) broke test determinism
|
||||
# (the low-salience tombstone marker fell past the 9999 scan cap) and (b) meant
|
||||
# the "isolated" gate was reading the operator's live brain. Pin SOUL_ISE_URL to
|
||||
# the dead axon port so the sync target is unreachable: the soul stays on its own
|
||||
# in-process store, the gate is genuinely isolated, and Section B is deterministic.
|
||||
echo "== booting soul: $SOUL on port $PORT (throwaway HOME=$THROW_HOME) =="
|
||||
env \
|
||||
-u ENGRAM_URL -u ENGRAM_API_KEY -u SOUL_ENGRAM_URL \
|
||||
-u ANTHROPIC_API_KEY -u NEURON_LLM_API_KEY -u SOUL_IDENTITY \
|
||||
HOME="$THROW_HOME" \
|
||||
NEURON_PORT="$PORT" \
|
||||
SOUL_CGI_ID="ntn-contract-$$" \
|
||||
SOUL_ENGRAM_PATH="$THROW_HOME/throwaway-snapshot.json" \
|
||||
NEURON_API_URL="http://127.0.0.1:9" \
|
||||
SOUL_ISE_URL="http://127.0.0.1:9" \
|
||||
SOUL_TICK_MS="3600000" SOUL_HEARTBEAT_MS="3600000" SOUL_REFRESH_MS="3600000" \
|
||||
"$SOUL" >"$SOUL_LOG" 2>&1 &
|
||||
SOUL_PID=$!
|
||||
|
||||
UP=0
|
||||
for _ in $(seq 1 60); do
|
||||
if ! kill -0 "$SOUL_PID" 2>/dev/null; then
|
||||
echo "!! soul exited during boot. log tail:" >&2; tail -20 "$SOUL_LOG" >&2; exit 3
|
||||
fi
|
||||
RSS=$(ps -o rss= -p "$SOUL_PID" 2>/dev/null | tr -d ' ')
|
||||
if [ -n "$RSS" ] && [ "$RSS" -gt $((3*1024*1024)) ]; then
|
||||
echo "!! soul RSS >3GB — kill -9" >&2; kill -9 "$SOUL_PID" 2>/dev/null; exit 3
|
||||
fi
|
||||
[ "$(curl -s -o /dev/null -w '%{http_code}' -m 2 "$BASE/health" 2>/dev/null)" = "200" ] && { UP=1; break; }
|
||||
sleep 0.5
|
||||
done
|
||||
[ "$UP" = 1 ] || { echo "!! soul never healthy on $BASE/health" >&2; tail -20 "$SOUL_LOG" >&2; exit 3; }
|
||||
echo "== soul healthy =="; echo
|
||||
|
||||
# --- probing helpers ---------------------------------------------------------
|
||||
# request METHOD PATH [BODY] -> prints response body (single line)
|
||||
request() {
|
||||
curl -s -m 12 -X "$1" -H 'Content-Type: application/json' --data "${3:-{}}" "$BASE$2" 2>/dev/null | tr -d '\n'
|
||||
}
|
||||
# is_missing BODY -> 0 if the body is a "route not present" signal
|
||||
is_missing() {
|
||||
printf '%s' "$1" | grep -qE '"error":"not found"|"code":"not_found"|no http handler registered|"code":"method_not_allowed"'
|
||||
}
|
||||
extract_id() { printf '%s' "$1" | grep -oE '"id":"[^"]+"' | head -1 | sed 's/.*"id":"//;s/"//'; }
|
||||
# BY-ID immutability verification (#199 by-id gate).
|
||||
# The prior check grepped /api/graph/nodes, i.e. engram_scan_nodes_json(9999,0):
|
||||
# a whole-graph dump. On a genesis-seeded throwaway engram that list is both
|
||||
# huge (multi-MB, full node content + embeddings) AND capped at 9999 nodes in
|
||||
# salience order. The tombstone MARKER is written at salience 0.01, so it sorts
|
||||
# dead last — and once the seeded graph approaches/exceeds the cap the marker
|
||||
# falls off the end of the list entirely (or is lost to transport truncation on
|
||||
# the ~10MB body). The normal-salience original still sorts early and survives,
|
||||
# which is why a correctly-tombstoning soul false-reported "kept but no tombstone
|
||||
# marker". Fix: verify BY ID via /api/neuron/graph?id=<id>&depth=1
|
||||
# (engram_neighbors_json, direction "both"), a compact ~900B neighborhood that is
|
||||
# independent of total graph size. The node itself proves KEPT; the incoming
|
||||
# "tombstones" edge surfaces the "tombstone:<id>" marker. Pass/fail semantics are
|
||||
# unchanged and strictly no weaker: a hard-delete leaves no by-id node (DESTROYED)
|
||||
# and a no-op delete leaves no marker (NO-OP) — both still fail. Verified: a
|
||||
# never-created id returns neither node nor marker.
|
||||
node_present() { # id -> 0 if the node still resolves by-id (KEPT), non-zero if hard-removed
|
||||
request GET "/api/neuron/graph?id=$1&depth=1" | grep -qF "\"$1\""
|
||||
}
|
||||
|
||||
# --- SECTION A: presence -----------------------------------------------------
|
||||
run_presence() {
|
||||
local -n arr=$1; local fail=0
|
||||
printf ' %-8s %-42s %s\n' "METHOD" "ROUTE" "RESULT"
|
||||
for e in "${arr[@]}"; do
|
||||
local m p body; m=$(awk '{print $1}' <<<"$e"); p=$(awk '{print $2}' <<<"$e")
|
||||
body=$(request "$m" "$p")
|
||||
if is_missing "$body"; then
|
||||
printf ' %-8s %-42s MISSING %s\n' "$m" "$p" "$(cut -c1-46 <<<"$body")"; fail=$((fail+1))
|
||||
else
|
||||
printf ' %-8s %-42s ANSWERED %s\n' "$m" "$p" "$(cut -c1-46 <<<"$body")"
|
||||
fi
|
||||
done
|
||||
return $fail
|
||||
}
|
||||
|
||||
echo "== SECTION A: PRESENCE (required, blocking) =="
|
||||
run_presence REQUIRED; A_FAIL=$?
|
||||
echo
|
||||
echo "== KNOWN-PENDING (non-blocking) =="
|
||||
run_presence KNOWN_PENDING; P_FAIL=$?
|
||||
echo
|
||||
|
||||
# --- SECTION B: immutability (engram write routes must supersede, not destroy) --
|
||||
# For each mutation route: create a node, mutate it, then check the ORIGINAL id
|
||||
# still exists in the graph. KEPT = supersede/tombstone (correct). DESTROYED =
|
||||
# hard delete (DEFECTIVE -> fail). N/A = mutate route absent (a presence failure).
|
||||
# For "delete" mutations we additionally require a real tombstone marker
|
||||
# (label "tombstone:<id>") so a no-op delete cannot false-pass as KEPT.
|
||||
marker_present() { # id -> 0 if a "tombstone:<id>" marker is wired to the node (by-id neighborhood)
|
||||
request GET "/api/neuron/graph?id=$1&depth=1" | grep -qF "tombstone:$1"
|
||||
}
|
||||
immut_check() { # label KIND(update|delete) CREATE_PATH MUTATE_PATH
|
||||
local label="$1" kind="$2" create="$3" mutate="$4"
|
||||
local cbody id mb mbody
|
||||
cbody=$(request POST "$create" "{\"content\":\"__immut_${label}__\",\"node_type\":\"Memory\",\"label\":\"contract:immut\"}")
|
||||
id=$(extract_id "$cbody")
|
||||
if [ -z "$id" ]; then printf ' %-14s SKELETON-FAIL create returned no id: %s\n' "$label" "$(cut -c1-40 <<<"$cbody")"; return 2; fi
|
||||
mb="{\"id\":\"$id\"}"; [ "$kind" = update ] && mb="{\"id\":\"$id\",\"content\":\"__immut_${label}_v2__\"}"
|
||||
mbody=$(request POST "$mutate" "$mb")
|
||||
if is_missing "$mbody"; then printf ' %-14s N/A mutate route absent (see Section A)\n' "$label"; return 0; fi
|
||||
if ! node_present "$id"; then
|
||||
printf ' %-14s DESTROYED original %s hard-removed <== DEFECTIVE\n' "$label" "$id"; return 1
|
||||
fi
|
||||
if [ "$kind" = delete ] && ! marker_present "$id"; then
|
||||
printf ' %-14s NO-OP original %s kept but no tombstone marker <== DEFECTIVE\n' "$label" "$id"; return 1
|
||||
fi
|
||||
local how="supersede edge"; [ "$kind" = delete ] && how="tombstoned + hidden from default list"
|
||||
printf ' %-14s KEPT original %s survived (%s)\n' "$label" "$id" "$how"; return 0
|
||||
}
|
||||
|
||||
echo "== SECTION B: IMMUTABILITY (engram nodes must be superseded, never destroyed) =="
|
||||
B_FAIL=0
|
||||
immut_check "memory-update" update /api/neuron/memory /api/neuron/memory/update || B_FAIL=$((B_FAIL+$?))
|
||||
immut_check "memory-delete" delete /api/neuron/memory /api/neuron/memory/delete || B_FAIL=$((B_FAIL+$?))
|
||||
immut_check "node-update" update /api/neuron/node/create /api/neuron/node/update || B_FAIL=$((B_FAIL+$?))
|
||||
immut_check "node-delete" delete /api/neuron/node/create /api/neuron/node/delete || B_FAIL=$((B_FAIL+$?))
|
||||
immut_check "memory-forget" delete /api/neuron/memory /api/neuron/memory/forget || B_FAIL=$((B_FAIL+$?))
|
||||
echo
|
||||
|
||||
echo "============================================================"
|
||||
RC=0
|
||||
if [ "$A_FAIL" -gt 0 ]; then echo "PRESENCE: FAIL — $A_FAIL required route(s) unanswered. Do NOT package."; RC=1
|
||||
else echo "PRESENCE: PASS — all ${#REQUIRED[@]} required routes answered."; fi
|
||||
if [ "$B_FAIL" -gt 0 ]; then echo "IMMUTABILITY: FAIL — $B_FAIL engram write route(s) hard-delete. DEFECTIVE soul."; RC=1
|
||||
else echo "IMMUTABILITY: PASS — no engram write route hard-deletes."; fi
|
||||
[ "$P_FAIL" -gt 0 ] && echo "note: $P_FAIL known-pending route(s) unanswered (expected; non-blocking)."
|
||||
echo "============================================================"
|
||||
[ "$RC" = 0 ] && echo "GATE: PASS" || echo "GATE: FAIL"
|
||||
exit $RC
|
||||
Executable
+118
@@ -0,0 +1,118 @@
|
||||
#!/usr/bin/env bash
|
||||
# verify-state-keys.sh — the state-key gate. Retires a defect class at build time.
|
||||
#
|
||||
# ── WHY THIS EXISTS. DO NOT DELETE IT AS NOISE. ──────────────────────────────
|
||||
#
|
||||
# The engine keeps runtime values in a key-value store: state_set("k", v) writes,
|
||||
# state_get("k") reads. A read of a key that NOTHING writes returns an empty
|
||||
# string. Silently. No error, no warning, no log line. The El compiler cannot see
|
||||
# it, no test sees it, and the product keeps running — just with a hole in it.
|
||||
#
|
||||
# That is how issue #129 happened. ff421d3 (2026-08-05) correctly moved
|
||||
# conversation history to a per-session key behind conv_hist_key(session_id). One
|
||||
# consumer did not move with it: the agentic path's L1 safety screen kept reading
|
||||
# the old anonymous "conv_history" bucket. The desktop app always mints a session
|
||||
# id, so history was always written under session_hist_<id> and that read always
|
||||
# returned "". The half of the crisis score that receives history is the
|
||||
# ESCALATION half — the one that exists for distress building across several
|
||||
# turns, where no single message trips the bell on its own. It scored 0 on every
|
||||
# real conversation for two days, and nothing failed.
|
||||
#
|
||||
# The line that broke carried a comment describing this exact bug being fixed
|
||||
# once already, under issue #9. A comment is not a gate. This is the gate.
|
||||
#
|
||||
# ── WHAT IT CHECKS ──────────────────────────────────────────────────────────
|
||||
#
|
||||
# DEAD-READ a state_get whose key resolves to something no state_set in the
|
||||
# tree produces. The direct form of the class.
|
||||
#
|
||||
# HAND-ROLLED a state_get/state_set that spells out a literal belonging to a
|
||||
# key namespace a helper function owns (e.g. "conv_history", owned
|
||||
# by conv_hist_key()). This is #129's actual shape: the producer
|
||||
# moved behind the helper and one consumer kept the old spelling
|
||||
# by hand. DEAD-READ alone does NOT catch #129, because the dead
|
||||
# handle_chat() still writes that key through the helper — so this
|
||||
# second check is the one that earns the gate its keep.
|
||||
#
|
||||
# ── WHY IT DOES NOT CRY WOLF ────────────────────────────────────────────────
|
||||
#
|
||||
# Keys are usually COMPUTED, not literal, so a naive grep would flood and get
|
||||
# switched off within a day. scripts/state-key-audit.py resolves computed keys:
|
||||
# string concatenation (matched on the static prefix), helper functions (resolved
|
||||
# to their possible return values), keys built into a local variable, and keys
|
||||
# arriving as a function parameter (resolved through the call sites). Where a key
|
||||
# genuinely cannot be resolved it is printed under UNRESOLVED and does NOT fail
|
||||
# the build — visible, never silently ignored. Keep that list short.
|
||||
#
|
||||
# On this tree it resolves 278 of 278 sites: UNRESOLVED is 0 and FINDINGS is 0.
|
||||
#
|
||||
# Two declaration files, both of which should only ever shrink:
|
||||
# scripts/state-key-external.txt keys a host outside the El tree writes
|
||||
# scripts/state-key-baseline.txt findings that predate the gate (real debt)
|
||||
#
|
||||
# ── PROVEN TO DISCRIMINATE (2026-08-07) ─────────────────────────────────────
|
||||
#
|
||||
# 1. Synthetic: a scratch copy of this tree with agentic_safety_screen reverted
|
||||
# to the pre-fix state_get("conv_history") — ONE line, nothing else — FAILS
|
||||
# with `chat.el:2536 ... conv_hist_key() owns this key namespace`. The tree
|
||||
# as shipped PASSES. One variable, opposite verdicts.
|
||||
# 2. Independent: run read-only against origin/feat/soul-openai-tools-v2, which
|
||||
# carries the same defect on its own, the gate reported chat.el:2937 — the
|
||||
# exact line 43d0449's commit message had named by hand. Against that
|
||||
# branch's fix (origin/fix/129-on-openai-tools) it passes.
|
||||
# 3. Producer-moved controls: renaming the sole writer of an EXACT key
|
||||
# (soul_model) orphans 3 readers across 3 files; renaming the sole writer of
|
||||
# a PREFIX namespace (agent_workspace_root_*) orphans 3 readers — including
|
||||
# when the producer moves to a NARROWER namespace, which an earlier,
|
||||
# sloppier prefix rule let through.
|
||||
#
|
||||
# It also found, on its first run, a defect nobody was looking for: soul.el's
|
||||
# `state_set("soul_identity", ...)` was deleted on 2026-05-13 in b163fa6 (a
|
||||
# commit about awareness/ISE writes) and five readers in chat.el were left
|
||||
# behind — the system prompt, the vision handler, the agentic prompt and the
|
||||
# council handler have been prefixing "" ever since. See state-key-baseline.txt.
|
||||
#
|
||||
# ── SAFETY ──────────────────────────────────────────────────────────────────
|
||||
# Pure static read of .el sources. Starts nothing, opens no port, touches no
|
||||
# daemon, and never reads or writes ~/.neuron.
|
||||
#
|
||||
# ── USAGE ───────────────────────────────────────────────────────────────────
|
||||
# scripts/verify-state-keys.sh gate the repo (honours baseline)
|
||||
# scripts/verify-state-keys.sh --strict ignore the baseline: show the debt
|
||||
# scripts/verify-state-keys.sh --verbose also dump every write pattern
|
||||
# scripts/verify-state-keys.sh --root DIR audit a different tree
|
||||
# exit 0 = clean; 1 = finding(s); 2 = the gate itself could not run.
|
||||
set -uo pipefail
|
||||
|
||||
SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
|
||||
ROOT="$(cd "$SCRIPT_DIR/.." && pwd)"
|
||||
STRICT=0
|
||||
PASS_THROUGH=()
|
||||
|
||||
while [ $# -gt 0 ]; do
|
||||
case "$1" in
|
||||
--strict) STRICT=1; shift ;;
|
||||
--root) ROOT="${2:?--root needs a directory}"; shift 2 ;;
|
||||
-h|--help) awk 'NR>1 && /^#/ {print; next} NR>1 {exit}' "${BASH_SOURCE[0]}"; exit 0 ;;
|
||||
*) PASS_THROUGH+=("$1"); shift ;;
|
||||
esac
|
||||
done
|
||||
|
||||
command -v python3 >/dev/null 2>&1 || {
|
||||
echo "[state-keys] CANNOT RUN: python3 not found" >&2; exit 2; }
|
||||
[ -d "$ROOT" ] || { echo "[state-keys] CANNOT RUN: no such tree: $ROOT" >&2; exit 2; }
|
||||
|
||||
AUDIT="$SCRIPT_DIR/state-key-audit.py"
|
||||
[ -f "$AUDIT" ] || { echo "[state-keys] CANNOT RUN: missing $AUDIT" >&2; exit 2; }
|
||||
|
||||
ARGS=("$ROOT" "--external" "$SCRIPT_DIR/state-key-external.txt")
|
||||
[ "$STRICT" -eq 0 ] && ARGS+=("--baseline" "$SCRIPT_DIR/state-key-baseline.txt")
|
||||
[ ${#PASS_THROUGH[@]} -gt 0 ] && ARGS+=("${PASS_THROUGH[@]}")
|
||||
|
||||
python3 "$AUDIT" "${ARGS[@]}"
|
||||
RC=$?
|
||||
if [ "$RC" -gt 1 ]; then
|
||||
echo "[state-keys] CANNOT RUN: the audit itself failed (exit $RC)" >&2
|
||||
exit 2
|
||||
fi
|
||||
exit "$RC"
|
||||
+808
@@ -0,0 +1,808 @@
|
||||
import "memory.el"
|
||||
import "chat.el"
|
||||
|
||||
// sessions.el — Persistent conversation session management.
|
||||
//
|
||||
// Sessions are Engram nodes with:
|
||||
// node_type = "Conversation"
|
||||
// label = "session:meta"
|
||||
// content = JSON: {id, title, created_at, updated_at}
|
||||
//
|
||||
// Message history is kept in state under "session_hist_SESSION_ID"
|
||||
// and also persisted to Engram as nodes with label "session:messages:SESSION_ID".
|
||||
|
||||
// session_title_from_message — derive a session title from the first user message.
|
||||
// Takes up to 60 characters; falls back to "New conversation".
|
||||
fn session_title_from_message(message: String) -> String {
|
||||
if str_eq(message, "") { return "New conversation" }
|
||||
let trimmed: String = str_trim(message)
|
||||
if str_len(trimmed) <= 60 {
|
||||
return trimmed
|
||||
}
|
||||
return str_slice(trimmed, 0, 60)
|
||||
}
|
||||
|
||||
// session_make_content — build the JSON blob stored as session:meta node content.
|
||||
// IMPORTANT: "type":"session:meta" must appear in the content so engram_search_json
|
||||
// can find these nodes by text search. Do not remove it.
|
||||
fn session_make_content(id: String, title: String, created_at: Int, updated_at: Int, folder: String) -> String {
|
||||
let safe_title: String = json_safe(title)
|
||||
let safe_folder: String = json_safe(folder)
|
||||
return "{\"type\":\"session:meta\""
|
||||
+ ",\"id\":\"" + id + "\""
|
||||
+ ",\"title\":\"" + safe_title + "\""
|
||||
+ ",\"folder\":\"" + safe_folder + "\""
|
||||
+ ",\"created_at\":" + int_to_str(created_at)
|
||||
+ ",\"updated_at\":" + int_to_str(updated_at) + "}"
|
||||
}
|
||||
|
||||
// session_exists — return true if the given session_id is known in Engram or state.
|
||||
// Used by chat.el to validate a session_id before processing a chat message.
|
||||
// Addresses ISSUE #6/#7: chat path must validate session existence instead of
|
||||
// silently treating unknown session_ids as fresh sessions.
|
||||
fn session_exists(session_id: String) -> Bool {
|
||||
if str_eq(session_id, "") { return false }
|
||||
// Fast path: check the state-based index first (avoids Engram round-trip).
|
||||
let idx: String = state_get("session_index")
|
||||
if !str_eq(idx, "") && !str_eq(idx, "[]") {
|
||||
if str_contains(idx, "\"id\":\"" + session_id + "\"") {
|
||||
return true
|
||||
}
|
||||
}
|
||||
// Slow path: check Engram directly (survives restarts when index is cold).
|
||||
let results: String = engram_search_json("session:meta " + session_id, 5)
|
||||
if str_eq(results, "") { return false }
|
||||
if str_eq(results, "[]") { return false }
|
||||
let total: Int = json_array_len(results)
|
||||
let found: Bool = false
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id)
|
||||
let found = if is_match { true } else { found }
|
||||
let i = i + 1
|
||||
}
|
||||
return found
|
||||
}
|
||||
|
||||
// session_create — create a new session, return {id, title, created_at}.
|
||||
//
|
||||
// ISSUE #1: Ghost sessions on failed first message.
|
||||
// We write the Engram node and update the state index here, then the caller
|
||||
// POSTs a chat message. If that chat call fails (LLM unavailable, network
|
||||
// error, etc.) the session is stranded with no messages. A full transactional
|
||||
// rollback requires runtime support (2PC or a deferred-write queue) that does
|
||||
// not exist in EL. Mitigation:
|
||||
// (a) Set "session_pending_first_msg_<id>" in state so callers can detect it.
|
||||
// (b) Provide session_create_cleanup() for callers that detect a failure.
|
||||
// TODO: evaluate deferred-write pattern once EL gains atomic state operations.
|
||||
fn session_create(body: String) -> String {
|
||||
let ts: Int = time_now()
|
||||
let id: String = uuid_v4()
|
||||
let title_req: String = json_get(body, "title")
|
||||
let title: String = if str_eq(title_req, "") { "New conversation" } else { title_req }
|
||||
let folder: String = json_get(body, "folder")
|
||||
let content: String = session_make_content(id, title, ts, ts, folder)
|
||||
let tags: String = "[\"session\",\"session:meta\",\"Conversation\"]"
|
||||
let node_id: String = wt_node(
|
||||
content, "Conversation", "session:meta",
|
||||
el_from_float(0.7), el_from_float(0.7), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
if str_eq(node_id, "") {
|
||||
return "{\"error\":\"failed to create session\"}"
|
||||
}
|
||||
// Store the engram node_id mapping so we can look up the node for this session
|
||||
state_set("session_node_" + id, node_id)
|
||||
// Mark as pending first message so stale ghost sessions can be identified
|
||||
// (e.g. if the caller\'s subsequent chat POST fails).
|
||||
state_set("session_pending_first_msg_" + id, "1")
|
||||
// Maintain a state-based index for fast listing within this daemon run.
|
||||
// Newest sessions first (prepend).
|
||||
// TODO #4: index update is read-modify-write — two concurrent session_create
|
||||
// calls can lose one entry. EL has no CAS primitive; fix requires runtime support.
|
||||
// TODO(reliability #2): session_index RMW is non-atomic. Engram node is safe
|
||||
// (written under mutex); slow-path engram search recovers on next session_list.
|
||||
let existing_idx: String = state_get("session_index")
|
||||
let idx_entry: String = "{\"id\":\"" + id + "\",\"title\":\"" + json_safe(title) + "\",\"folder\":\"" + json_safe(folder) + "\",\"created_at\":" + int_to_str(ts) + ",\"updated_at\":" + int_to_str(ts) + ",\"last_message\":\"\"}"
|
||||
let new_idx: String = if str_eq(existing_idx, "") {
|
||||
"[" + idx_entry + "]"
|
||||
} else {
|
||||
let inner: String = str_slice(existing_idx, 1, str_len(existing_idx) - 1)
|
||||
"[" + idx_entry + "," + inner + "]"
|
||||
}
|
||||
state_set("session_index", new_idx)
|
||||
return "{\"id\":\"" + id + "\""
|
||||
+ ",\"title\":\"" + json_safe(title) + "\""
|
||||
+ ",\"folder\":\"" + json_safe(folder) + "\""
|
||||
+ ",\"node_id\":\"" + node_id + "\""
|
||||
+ ",\"created_at\":" + int_to_str(ts) + "}"
|
||||
}
|
||||
|
||||
// session_create_cleanup — undo a session_create when the caller\'s first chat
|
||||
// fails. Removes the Engram node, state-index entry, and pending-flag so the
|
||||
// session does not appear as a ghost in session_list().
|
||||
// Addresses ISSUE #1: cleanup path for ghost sessions.
|
||||
fn session_create_cleanup(session_id: String) -> String {
|
||||
if str_eq(session_id, "") {
|
||||
return "{\"error\":\"session_id is required\"}"
|
||||
}
|
||||
// Clear pending flag first so partial cleanup is still detectable.
|
||||
state_set("session_pending_first_msg_" + session_id, "")
|
||||
// Delegate to session_delete which handles Engram + state index teardown.
|
||||
return session_delete(session_id)
|
||||
}
|
||||
|
||||
// session_list — list all sessions. Returns [{id, title, last_message, created_at, updated_at}].
|
||||
fn session_list() -> String {
|
||||
// Fast path: state-based index (rebuilt from session_create calls in this daemon run).
|
||||
let state_idx: String = state_get("session_index")
|
||||
if !str_eq(state_idx, "") && !str_eq(state_idx, "[]") {
|
||||
return state_idx
|
||||
}
|
||||
// Slow path: engram search (works across restarts for new-format nodes).
|
||||
let results: String = engram_search_json("session:meta", 50)
|
||||
if str_eq(results, "") { return "[]" }
|
||||
if str_eq(results, "[]") { return "[]" }
|
||||
// Filter to only session:meta nodes; build output array
|
||||
let total: Int = json_array_len(results)
|
||||
let out: String = ""
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let node_type: String = json_get(node, "node_type")
|
||||
let is_session: Bool = str_eq(label, "session:meta") && str_eq(node_type, "Conversation")
|
||||
let content: String = json_get(node, "content")
|
||||
let sess_id: String = json_get(content, "id")
|
||||
// Use the nested content JSON fields
|
||||
let eff_id: String = if str_eq(sess_id, "") { json_get(node, "id") } else { sess_id }
|
||||
let title_inner: String = json_get(content, "title")
|
||||
let eff_title: String = if str_eq(title_inner, "") { "New conversation" } else { title_inner }
|
||||
let folder_inner: String = json_get(content, "folder")
|
||||
let created_inner: String = json_get(content, "created_at")
|
||||
let updated_inner: String = json_get(content, "updated_at")
|
||||
let eff_created: String = if str_eq(created_inner, "") { "0" } else { created_inner }
|
||||
let eff_updated: String = if str_eq(updated_inner, "") { eff_created } else { updated_inner }
|
||||
|
||||
let entry: String = if is_session {
|
||||
"{\"id\":\"" + json_safe(eff_id) + "\""
|
||||
+ ",\"title\":\"" + json_safe(eff_title) + "\""
|
||||
+ ",\"folder\":\"" + json_safe(folder_inner) + "\""
|
||||
+ ",\"last_message\":\"\""
|
||||
+ ",\"created_at\":" + eff_created
|
||||
+ ",\"updated_at\":" + eff_updated + "}"
|
||||
} else { "" }
|
||||
|
||||
let out = if !str_eq(entry, "") {
|
||||
if str_eq(out, "") { entry } else { out + "," + entry }
|
||||
} else { out }
|
||||
let i = i + 1
|
||||
}
|
||||
return "[" + out + "]"
|
||||
}
|
||||
|
||||
// session_get — get a session's metadata + message history.
|
||||
// Returns {id, title, created_at, updated_at, messages: [{role, content, timestamp}]}
|
||||
fn session_get(session_id: String) -> String {
|
||||
if str_eq(session_id, "") {
|
||||
return "{\"error\":\"session_id is required\"}"
|
||||
}
|
||||
// Load session meta from engram
|
||||
let results: String = engram_search_json("session:meta " + session_id, 10)
|
||||
let meta_content: String = ""
|
||||
let meta_title: String = "New conversation"
|
||||
let meta_folder: String = ""
|
||||
let meta_created: String = "0"
|
||||
let meta_updated: String = "0"
|
||||
let found: Bool = false
|
||||
|
||||
let total: Int = if str_eq(results, "") { 0 } else { json_array_len(results) }
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id) && !found
|
||||
let found = if is_match { true } else { found }
|
||||
let meta_title = if is_match { json_get(content, "title") } else { meta_title }
|
||||
let meta_folder = if is_match { json_get(content, "folder") } else { meta_folder }
|
||||
let meta_created_raw: String = json_get(content, "created_at")
|
||||
let meta_created = if is_match && !str_eq(meta_created_raw, "") { meta_created_raw } else { meta_created }
|
||||
let meta_updated_raw: String = json_get(content, "updated_at")
|
||||
let meta_updated = if is_match && !str_eq(meta_updated_raw, "") { meta_updated_raw } else { meta_updated }
|
||||
let i = i + 1
|
||||
}
|
||||
|
||||
// Load message history from state (primary) or engram (fallback)
|
||||
let state_hist: String = state_get("session_hist_" + session_id)
|
||||
let hist_raw: String = if str_eq(state_hist, "") {
|
||||
// Try loading from engram
|
||||
let engram_hist: String = engram_search_json("session:messages:" + session_id, 3)
|
||||
if str_eq(engram_hist, "") { "[]" } else {
|
||||
if str_eq(engram_hist, "[]") { "[]" } else {
|
||||
let h_node: String = json_array_get(engram_hist, 0)
|
||||
let h_content: String = json_get(h_node, "content")
|
||||
if str_starts_with(h_content, "[") { h_content } else { "[]" }
|
||||
}
|
||||
}
|
||||
} else { state_hist }
|
||||
|
||||
let safe_title: String = json_safe(meta_title)
|
||||
return "{\"id\":\"" + session_id + "\""
|
||||
+ ",\"title\":\"" + safe_title + "\""
|
||||
+ ",\"folder\":\"" + json_safe(meta_folder) + "\""
|
||||
+ ",\"created_at\":" + meta_created
|
||||
+ ",\"updated_at\":" + meta_updated
|
||||
+ ",\"messages\":" + hist_raw + "}"
|
||||
}
|
||||
|
||||
// session_delete — delete a session and its history nodes from engram.
|
||||
fn session_delete(session_id: String) -> String {
|
||||
if str_eq(session_id, "") {
|
||||
return "{\"error\":\"session_id is required\"}"
|
||||
}
|
||||
// Find and delete session:meta node
|
||||
let results: String = engram_search_json("session:meta " + session_id, 10)
|
||||
let total: Int = if str_eq(results, "") { 0 } else { json_array_len(results) }
|
||||
let deleted_meta: Int = 0
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id)
|
||||
let node_id: String = json_get(node, "id")
|
||||
let deleted_meta = if is_match && !str_eq(node_id, "") {
|
||||
engram_forget(node_id)
|
||||
deleted_meta + 1
|
||||
} else { deleted_meta }
|
||||
let i = i + 1
|
||||
}
|
||||
// Find and delete session:messages:SESSION_ID nodes
|
||||
let msg_results: String = engram_search_json("session:messages:" + session_id, 10)
|
||||
let m_total: Int = if str_eq(msg_results, "") { 0 } else { json_array_len(msg_results) }
|
||||
let deleted_msgs: Int = 0
|
||||
let j: Int = 0
|
||||
while j < m_total {
|
||||
let node: String = json_array_get(msg_results, j)
|
||||
let label: String = json_get(node, "label")
|
||||
let is_msgs: Bool = str_eq(label, "session:messages:" + session_id)
|
||||
let node_id: String = json_get(node, "id")
|
||||
let deleted_msgs = if is_msgs && !str_eq(node_id, "") {
|
||||
engram_forget(node_id)
|
||||
deleted_msgs + 1
|
||||
} else { deleted_msgs }
|
||||
let j = j + 1
|
||||
}
|
||||
// Clear state — invalidate all per-session and index caches so session_list()
|
||||
// does not return this deleted session via the fast path on the next call.
|
||||
state_set("session_hist_" + session_id, "")
|
||||
state_set("session_node_" + session_id, "")
|
||||
state_set("session_index", "")
|
||||
// ISSUE #5: clean up bridge blobs and always_allow keys that were never
|
||||
// cleared by agentic_resume (e.g. client abandoned a pending tool call).
|
||||
// Without this, stranded bridge blobs accumulate indefinitely in state.
|
||||
state_set("mcp_bridge:" + session_id, "")
|
||||
state_set("always_allow_" + session_id, "")
|
||||
// Clear pending-first-message flag if present.
|
||||
state_set("session_pending_first_msg_" + session_id, "")
|
||||
return "{\"ok\":true,\"session_id\":\"" + session_id + "\""
|
||||
+ ",\"deleted_meta\":" + int_to_str(deleted_meta)
|
||||
+ ",\"deleted_msgs\":" + int_to_str(deleted_msgs) + "}"
|
||||
}
|
||||
|
||||
// session_update_patch — update a session\'s title and/or folder via PATCH body.
|
||||
// Body may contain "title", "folder", or both. Preserves unmentioned fields.
|
||||
//
|
||||
// ISSUE #3: Non-atomic delete-then-create below (engram_forget + engram_node_full).
|
||||
// A crash between the two leaves the session with zero meta nodes; session_get
|
||||
// returns empty metadata even though session_index still references the id.
|
||||
// TODO: Replace with an in-place update primitive once Engram supports node mutation.
|
||||
// Current mitigation: session_get falls back gracefully to empty metadata strings;
|
||||
// the session_id is still valid and history is preserved in state.
|
||||
fn session_update_patch(session_id: String, body: String) -> String {
|
||||
if str_eq(session_id, "") {
|
||||
return "{\"error\":\"session_id is required\"}"
|
||||
}
|
||||
let has_title: Bool = str_contains(body, "\"title\"")
|
||||
let has_folder: Bool = str_contains(body, "\"folder\"")
|
||||
if !has_title && !has_folder {
|
||||
return "{\"error\":\"title or folder required in body\"}"
|
||||
}
|
||||
// Find the existing session:meta node.
|
||||
// Use broad label search (not UUID search) because Engram text search
|
||||
// does not reliably match UUID strings with dashes.
|
||||
let results: String = engram_search_json("session:meta", 50)
|
||||
let total: Int = if str_eq(results, "") { 0 } else { json_array_len(results) }
|
||||
let found: Bool = false
|
||||
let old_title: String = "New conversation"
|
||||
let old_folder: String = ""
|
||||
let old_created: String = "0"
|
||||
let old_node_id: String = ""
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id) && !found
|
||||
let found = if is_match { true } else { found }
|
||||
let title_raw: String = json_get(content, "title")
|
||||
let old_title = if is_match && !str_eq(title_raw, "") { title_raw } else { old_title }
|
||||
let folder_raw: String = json_get(content, "folder")
|
||||
let old_folder = if is_match { folder_raw } else { old_folder }
|
||||
let created_raw: String = json_get(content, "created_at")
|
||||
let old_created = if is_match && !str_eq(created_raw, "") { created_raw } else { old_created }
|
||||
let nid: String = json_get(node, "id")
|
||||
let old_node_id = if is_match { nid } else { old_node_id }
|
||||
let i = i + 1
|
||||
}
|
||||
if !found {
|
||||
return "{\"error\":\"session not found\",\"session_id\":\"" + session_id + "\"}"
|
||||
}
|
||||
// Apply updates — preserve field if not in body
|
||||
let req_title: String = json_get(body, "title")
|
||||
let eff_title: String = if has_title && !str_eq(req_title, "") { req_title } else { old_title }
|
||||
let eff_folder: String = if has_folder { json_get(body, "folder") } else { old_folder }
|
||||
// Delete old node, create updated one
|
||||
if !str_eq(old_node_id, "") {
|
||||
engram_forget(old_node_id)
|
||||
}
|
||||
let ts: Int = time_now()
|
||||
let created_int: Int = str_to_int(old_created)
|
||||
let new_content: String = session_make_content(session_id, eff_title, created_int, ts, eff_folder)
|
||||
let tags: String = "[\"session\",\"session:meta\",\"Conversation\"]"
|
||||
let new_node_id: String = wt_node(
|
||||
new_content, "Conversation", "session:meta",
|
||||
el_from_float(0.7), el_from_float(0.7), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
state_set("session_node_" + session_id, new_node_id)
|
||||
// Invalidate the session_index state cache so session_list re-fetches
|
||||
// from Engram on the next call (the updated node has the new folder/title).
|
||||
state_set("session_index", "")
|
||||
return "{\"ok\":true,\"id\":\"" + session_id + "\""
|
||||
+ ",\"title\":\"" + json_safe(eff_title) + "\""
|
||||
+ ",\"folder\":\"" + json_safe(eff_folder) + "\""
|
||||
+ ",\"updated_at\":" + int_to_str(ts) + "}"
|
||||
}
|
||||
|
||||
// session_search_entry — extract one search-result entry from a raw node JSON.
|
||||
// Returns a JSON object string or "" if the node is not a valid session:meta node.
|
||||
//
|
||||
// Extracted from session_search's while loop body to reduce the loop's lexical
|
||||
// complexity. The ELC compiler runs out of memory processing while loops with
|
||||
// many `let` bindings — extracting the body into a separate function gives the
|
||||
// compiler a clean scope boundary at each call. Each function compiles in O(N)
|
||||
// rather than the exponential growth caused by rebinding accumulation inside loops.
|
||||
// (2026-07-01 self-review: root cause of sessions.c OOM/truncation since June 30)
|
||||
fn session_search_entry(node: String) -> String {
|
||||
let label: String = json_get(node, "label")
|
||||
if !str_eq(label, "session:meta") { return "" }
|
||||
let content: String = json_get(node, "content")
|
||||
let sess_id: String = json_get(content, "id")
|
||||
if str_eq(sess_id, "") { return "" }
|
||||
let title: String = json_get(content, "title")
|
||||
let created_raw: String = json_get(content, "created_at")
|
||||
let updated_raw: String = json_get(content, "updated_at")
|
||||
let eff_created: String = if str_eq(created_raw, "") { "0" } else { created_raw }
|
||||
let eff_updated: String = if str_eq(updated_raw, "") { eff_created } else { updated_raw }
|
||||
let e_id: String = "{\"id\":\"" + json_safe(sess_id) + "\""
|
||||
let e_title: String = ",\"title\":\"" + json_safe(title) + "\""
|
||||
let e_ts: String = ",\"created_at\":" + eff_created + ",\"updated_at\":" + eff_updated + "}"
|
||||
return e_id + e_title + e_ts
|
||||
}
|
||||
|
||||
// session_search — search session:meta nodes whose content matches query.
|
||||
fn session_search(query: String) -> String {
|
||||
if str_eq(query, "") { return "[]" }
|
||||
let results: String = engram_search_json("session:meta " + query, 20)
|
||||
if str_eq(results, "") { return "[]" }
|
||||
if str_eq(results, "[]") { return "[]" }
|
||||
let total: Int = json_array_len(results)
|
||||
let out: String = ""
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let entry: String = session_search_entry(json_array_get(results, i))
|
||||
let out = if !str_eq(entry, "") {
|
||||
if str_eq(out, "") { entry } else { out + "," + entry }
|
||||
} else { out }
|
||||
let i = i + 1
|
||||
}
|
||||
return "[" + out + "]"
|
||||
}
|
||||
|
||||
// session_hist_load — load a session's message history from state or engram.
|
||||
fn session_hist_load(session_id: String) -> String {
|
||||
let state_hist: String = state_get("session_hist_" + session_id)
|
||||
if !str_eq(state_hist, "") { return state_hist }
|
||||
// Try engram fallback
|
||||
let results: String = engram_search_json("session:messages:" + session_id, 3)
|
||||
if str_eq(results, "") { return "" }
|
||||
if str_eq(results, "[]") { return "" }
|
||||
let node: String = json_array_get(results, 0)
|
||||
let label: String = json_get(node, "label")
|
||||
if !str_eq(label, "session:messages:" + session_id) { return "" }
|
||||
let content: String = json_get(node, "content")
|
||||
if str_starts_with(content, "[") { return content }
|
||||
return ""
|
||||
}
|
||||
|
||||
// session_hist_save — persist message history for a session to state and engram.
|
||||
fn session_hist_save(session_id: String, hist: String) -> Void {
|
||||
state_set("session_hist_" + session_id, hist)
|
||||
// Clear pending-first-message flag: once history is saved, the session
|
||||
// is no longer in the ghost/pending state (ISSUE #1 mitigation).
|
||||
state_set("session_pending_first_msg_" + session_id, "")
|
||||
// Delete old history node and write fresh one
|
||||
let old_results: String = engram_search_json("session:messages:" + session_id, 3)
|
||||
let o_total: Int = if str_eq(old_results, "") { 0 } else { json_array_len(old_results) }
|
||||
let oi: Int = 0
|
||||
while oi < o_total {
|
||||
let node: String = json_array_get(old_results, oi)
|
||||
let label: String = json_get(node, "label")
|
||||
let nid: String = json_get(node, "id")
|
||||
if str_eq(label, "session:messages:" + session_id) && !str_eq(nid, "") {
|
||||
engram_forget(nid)
|
||||
}
|
||||
let oi = oi + 1
|
||||
}
|
||||
// TODO(reliability #7): delete-then-insert is not atomic — concurrent saves for the
|
||||
// same session can produce orphan history nodes. State is primary truth; engram fallback.
|
||||
let tags: String = "[\"session\",\"session-history\",\"Conversation\"]"
|
||||
let discard: String = wt_node(
|
||||
hist, "Conversation", "session:messages:" + session_id,
|
||||
el_from_float(0.6), el_from_float(0.6), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
|
||||
// Session boundary emotional summary — written once per session the first time
|
||||
// a bell event has fired. The summary node is findable by future sessions via
|
||||
// broad affective queries ("session:emotional-summary" or "bell distress session").
|
||||
// It is NOT rewritten on every save — the state flag prevents duplicate nodes.
|
||||
let summary_written_key: String = "session_bell_summary_written:" + session_id
|
||||
let already_written: String = state_get(summary_written_key)
|
||||
if str_eq(already_written, "") {
|
||||
let bell_count_key: String = "session_bell_count:" + session_id
|
||||
let bell_count_raw: String = state_get(bell_count_key)
|
||||
let bell_count: Int = if str_eq(bell_count_raw, "") { 0 } else { str_to_int(bell_count_raw) }
|
||||
if bell_count > 0 {
|
||||
let bell_level_key: String = "session_bell_level:" + session_id
|
||||
let bell_signal_key: String = "session_bell_signal:" + session_id
|
||||
let dominant_level: String = state_get(bell_level_key)
|
||||
let last_signal: String = state_get(bell_signal_key)
|
||||
let eff_level: String = if str_eq(dominant_level, "") { "soft" } else { dominant_level }
|
||||
let eff_signal: String = if str_eq(last_signal, "") { "(no signal captured)" } else { last_signal }
|
||||
let ts_now: Int = time_now()
|
||||
let summary_content: String = "session:emotional-summary"
|
||||
+ " | session:" + session_id
|
||||
+ " | bell_count:" + int_to_str(bell_count)
|
||||
+ " | dominant_level:" + eff_level
|
||||
+ " | last_signal:" + eff_signal
|
||||
+ " | ts:" + int_to_str(ts_now)
|
||||
let summary_tags: String = "[\"session-emotional-summary\",\"affective\",\"bell:" + eff_level + "\",\"BellEvent\"]"
|
||||
let summary_sal: String = if str_eq(eff_level, "hard") { el_from_float(0.95) } else { el_from_float(0.85) }
|
||||
let sum_discard: String = wt_node(
|
||||
summary_content,
|
||||
"BellEvent",
|
||||
"session:emotional-summary",
|
||||
summary_sal,
|
||||
summary_sal,
|
||||
el_from_float(1.0),
|
||||
"Episodic",
|
||||
summary_tags
|
||||
)
|
||||
// Mark written so we do not create duplicate summary nodes as the
|
||||
// session continues accumulating more turns.
|
||||
state_set(summary_written_key, "1")
|
||||
}
|
||||
}
|
||||
|
||||
// Issue 5 fix: write a last-session-topic Conversation node so future sessions can
|
||||
// find the most recent session's topic via engram search. This enables cross-session
|
||||
// continuity — chat.el searches for "last-session-topic" and shows a [CONTINUING FROM
|
||||
// LAST SESSION] section on the first message of a new session.
|
||||
let hist_arr_len: Int = if str_eq(hist, "") { 0 } else { json_array_len(hist) }
|
||||
if hist_arr_len >= 2 {
|
||||
let last_entry: String = json_array_get(hist, hist_arr_len - 1)
|
||||
let last_role: String = json_get(last_entry, "role")
|
||||
let last_content: String = json_get(last_entry, "content")
|
||||
let topic_snip: String = if str_len(last_content) > 200 { str_slice(last_content, 0, 200) } else { last_content }
|
||||
let safe_topic: String = str_replace(topic_snip, "\"", "'")
|
||||
let ts_now: String = int_to_str(time_now())
|
||||
let topic_content: String = "last-session-topic | ts:" + ts_now + " | session:" + session_id + " | topic:" + safe_topic
|
||||
let topic_tags: String = "[\"last-session-topic\",\"conv:history\",\"Conversation\",\"session:topic\"]"
|
||||
let topic_label: String = "last-session-topic:" + session_id
|
||||
// Delete old last-session-topic node for this session before writing fresh
|
||||
let old_topic: String = engram_search_json("last-session-topic:" + session_id, 2)
|
||||
let ot_len: Int = if str_eq(old_topic, "") { 0 } else { json_array_len(old_topic) }
|
||||
let oti: Int = 0
|
||||
while oti < ot_len {
|
||||
let ot_node: String = json_array_get(old_topic, oti)
|
||||
let ot_id: String = json_get(ot_node, "id")
|
||||
if !str_eq(ot_id, "") { engram_forget(ot_id) }
|
||||
let oti = oti + 1
|
||||
}
|
||||
let discard_topic: String = wt_node(
|
||||
topic_content, "Conversation", topic_label,
|
||||
el_from_float(0.7), el_from_float(0.7), el_from_float(0.9),
|
||||
"Episodic", topic_tags
|
||||
)
|
||||
}
|
||||
}
|
||||
|
||||
// session_update_meta_timestamp — update the updated_at field in the session:meta node.
|
||||
//
|
||||
// ISSUE #2: No TTL / idle expiry mechanism. Sessions accumulate indefinitely.
|
||||
// A sweep job (e.g. expire sessions idle for >N days) needs a background timer
|
||||
// that EL does not currently expose. Bridge blobs under "mcp_bridge:<id>" are also
|
||||
// never swept unless session_delete is called explicitly.
|
||||
// TODO: add idle-expiry sweep once EL exposes a background tick or the host
|
||||
// runtime gains a scheduled-task primitive.
|
||||
//
|
||||
// ISSUE #3 applies here too: delete-then-create is non-atomic. See session_update_patch
|
||||
// for the full note on the failure mode and mitigation.
|
||||
fn session_update_meta_timestamp(session_id: String) -> Void {
|
||||
let results: String = engram_search_json("session:meta " + session_id, 10)
|
||||
let total: Int = if str_eq(results, "") { 0 } else { json_array_len(results) }
|
||||
let found: Bool = false
|
||||
let old_title: String = "New conversation"
|
||||
let old_folder: String = ""
|
||||
let old_created: String = "0"
|
||||
let old_node_id: String = ""
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id) && !found
|
||||
let found = if is_match { true } else { found }
|
||||
let title_raw: String = json_get(content, "title")
|
||||
let old_title = if is_match && !str_eq(title_raw, "") { title_raw } else { old_title }
|
||||
let folder_raw: String = json_get(content, "folder")
|
||||
let old_folder = if is_match { folder_raw } else { old_folder }
|
||||
let created_raw: String = json_get(content, "created_at")
|
||||
let old_created = if is_match && !str_eq(created_raw, "") { created_raw } else { old_created }
|
||||
let nid: String = json_get(node, "id")
|
||||
let old_node_id = if is_match { nid } else { old_node_id }
|
||||
let i = i + 1
|
||||
}
|
||||
if !found { return "" }
|
||||
if !str_eq(old_node_id, "") {
|
||||
engram_forget(old_node_id)
|
||||
}
|
||||
let ts: Int = time_now()
|
||||
let created_int: Int = str_to_int(old_created)
|
||||
let new_content: String = session_make_content(session_id, old_title, created_int, ts, old_folder)
|
||||
let tags: String = "[\"session\",\"session:meta\",\"Conversation\"]"
|
||||
let new_id: String = wt_node(
|
||||
new_content, "Conversation", "session:meta",
|
||||
el_from_float(0.7), el_from_float(0.7), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
state_set("session_node_" + session_id, new_id)
|
||||
}
|
||||
|
||||
// session_auto_title — if the session title is still "New conversation", update it
|
||||
// using the first user message.
|
||||
fn session_auto_title(session_id: String, first_message: String) -> Void {
|
||||
let results: String = engram_search_json("session:meta " + session_id, 10)
|
||||
let total: Int = if str_eq(results, "") { 0 } else { json_array_len(results) }
|
||||
let found: Bool = false
|
||||
let cur_title: String = ""
|
||||
let old_folder: String = ""
|
||||
let old_created: String = "0"
|
||||
let old_node_id: String = ""
|
||||
let i: Int = 0
|
||||
while i < total {
|
||||
let node: String = json_array_get(results, i)
|
||||
let label: String = json_get(node, "label")
|
||||
let content: String = json_get(node, "content")
|
||||
let sid: String = json_get(content, "id")
|
||||
let is_match: Bool = str_eq(label, "session:meta") && str_eq(sid, session_id) && !found
|
||||
let found = if is_match { true } else { found }
|
||||
let title_raw: String = json_get(content, "title")
|
||||
let cur_title = if is_match { title_raw } else { cur_title }
|
||||
let folder_raw: String = json_get(content, "folder")
|
||||
let old_folder = if is_match { folder_raw } else { old_folder }
|
||||
let created_raw: String = json_get(content, "created_at")
|
||||
let old_created = if is_match && !str_eq(created_raw, "") { created_raw } else { old_created }
|
||||
let nid: String = json_get(node, "id")
|
||||
let old_node_id = if is_match { nid } else { old_node_id }
|
||||
let i = i + 1
|
||||
}
|
||||
if !found { return "" }
|
||||
if !str_eq(cur_title, "New conversation") { return "" }
|
||||
// Update title, preserve folder
|
||||
let new_title: String = session_title_from_message(first_message)
|
||||
if !str_eq(old_node_id, "") {
|
||||
engram_forget(old_node_id)
|
||||
}
|
||||
let ts: Int = time_now()
|
||||
let created_int: Int = str_to_int(old_created)
|
||||
let new_content: String = session_make_content(session_id, new_title, created_int, ts, old_folder)
|
||||
let tags: String = "[\"session\",\"session:meta\",\"Conversation\"]"
|
||||
let new_id: String = wt_node(
|
||||
new_content, "Conversation", "session:meta",
|
||||
el_from_float(0.7), el_from_float(0.7), el_from_float(0.9),
|
||||
"Episodic", tags
|
||||
)
|
||||
state_set("session_node_" + session_id, new_id)
|
||||
}
|
||||
|
||||
// handle_session_approve — handle tool approval for a pending agentic tool call.
|
||||
// action: "allow" | "deny" | "always"
|
||||
// Resumes the agentic loop from where it was paused.
|
||||
//
|
||||
// ISSUE #8: Reconnect/duplicate resume race. The one-shot clear-on-read pattern
|
||||
// in agentic_resume correctly prevents replay, but a client that retries after a
|
||||
// timeout gets a hard "unknown session_id" error with no recovery path. The
|
||||
// conversation is permanently stuck in that case. Full idempotency (e.g. caching
|
||||
// the last reply keyed by call_id) requires a new state structure.
|
||||
// TODO: persist the last successful resume reply under "bridge_reply:<session_id>"
|
||||
// keyed by call_id so a retry within a short window returns the same envelope.
|
||||
//
|
||||
// Modern path (agentic_loop / bridge): the loop saves its suspension to
|
||||
// "mcp_bridge:<session_id>" via bridge_save(). On approval we dispatch_tool()
|
||||
// if allowed (or build a denial string), then hand the result to agentic_resume()
|
||||
// which re-enters agentic_loop from exactly the right point.
|
||||
//
|
||||
// Legacy path (pending_tool_<session_id>): used by any in-flight sessions that
|
||||
// were suspended by the old inline loop before a deploy. Kept so those sessions
|
||||
// are not broken during a rolling restart.
|
||||
fn handle_session_approve(session_id: String, body: String) -> String {
|
||||
if str_eq(session_id, "") {
|
||||
return "{\"error\":\"session_id is required\"}"
|
||||
}
|
||||
let call_id: String = json_get(body, "call_id")
|
||||
let action: String = json_get(body, "action")
|
||||
if str_eq(call_id, "") {
|
||||
return "{\"error\":\"call_id is required\"}"
|
||||
}
|
||||
if str_eq(action, "") {
|
||||
return "{\"error\":\"action is required (allow|deny|always)\"}"
|
||||
}
|
||||
|
||||
let eff_action: String = if str_eq(action, "always") { "allow" } else { action }
|
||||
|
||||
// ── Modern path: suspension is in mcp_bridge:<session_id> ──────────────
|
||||
// agentic_loop (chat.el) writes here via bridge_save(). This is the primary
|
||||
// path for all sessions created through handle_chat_agentic / agentic_loop.
|
||||
let bridge_blob: String = state_get("mcp_bridge:" + session_id)
|
||||
if !str_eq(bridge_blob, "") {
|
||||
// BUG-LEAK fix (2026-07-16): the approved tool executes below via dispatch_tool,
|
||||
// whose path/command guards read the shared workspace-root key. Re-assert THIS
|
||||
// session's own root first — an approval must never execute under whatever root
|
||||
// the last unrelated request left behind.
|
||||
state_set("agent_workspace_root", state_get("agent_workspace_root_" + session_id))
|
||||
// For "always": record tool_name in the always-allow list before resuming.
|
||||
// The tool_name is not stored in the bridge blob (only tool_use_id is).
|
||||
// Accept it from the body so the client can pass it along.
|
||||
let always_key: String = "always_allow_" + session_id
|
||||
let approve_tool_name: String = json_get(body, "tool_name")
|
||||
let discard_always: Bool = if str_eq(action, "always") && !str_eq(approve_tool_name, "") {
|
||||
let always_list: String = state_get(always_key)
|
||||
let new_always: String = if str_eq(always_list, "") { approve_tool_name }
|
||||
else { always_list + "," + approve_tool_name }
|
||||
state_set(always_key, new_always)
|
||||
true
|
||||
} else { false }
|
||||
|
||||
// BLOCKER: tool_name is required for allow — an empty approve_tool_name
|
||||
// would cause dispatch_tool("", ...) to silently return "unknown tool: "
|
||||
// and inject a corrupted result into the conversation. Reject early.
|
||||
if str_eq(approve_tool_name, "") && str_eq(eff_action, "allow") {
|
||||
return "{\"error\":\"tool_name is required for allow action\"}"
|
||||
}
|
||||
|
||||
// Build the content string the tool produced (or the denial message).
|
||||
//
|
||||
// For MCP/client-side tools (non-builtin): the client has ALREADY executed
|
||||
// the tool and posts the result in body["content"]. Accept it directly
|
||||
// (matching the handle_tool_result contract) rather than re-running
|
||||
// server-side via dispatch_tool — that would make the client-side execution
|
||||
// irrelevant and would break mcp__* tools the soul cannot reach.
|
||||
//
|
||||
// For builtin tools with no client-provided content: fall back to
|
||||
// dispatch_tool so those tools still execute correctly.
|
||||
let client_content: String = json_get(body, "content")
|
||||
// BUG-6 fix (2026-07-17): the naive json_get scanner matches "content" ANYWHERE
|
||||
// in the body — including INSIDE tool_input — so every approved write_file (whose
|
||||
// input always carries a content field) was mistaken for client-executed, never
|
||||
// dispatched, and narrated as done: a false receipt with no file on disk. Builtin
|
||||
// tools now ALWAYS dispatch server-side; client content is only honored for
|
||||
// non-builtin (MCP/client-executed) tools. Stricter only.
|
||||
let use_client_content: Bool = !str_eq(client_content, "") && !is_builtin_tool(approve_tool_name)
|
||||
let use_dispatch: Bool = is_builtin_tool(approve_tool_name) && !use_client_content
|
||||
let raw_input: String = json_get_raw(body, "tool_input")
|
||||
let eff_input: String = if str_eq(raw_input, "") { "{}" } else { raw_input }
|
||||
let content: String = if str_eq(eff_action, "allow") {
|
||||
if use_client_content {
|
||||
let trimmed: String = if str_len(client_content) > 6000 {
|
||||
str_slice(client_content, 0, 6000) + "...[truncated]"
|
||||
} else { client_content }
|
||||
trimmed
|
||||
} else if use_dispatch {
|
||||
let raw: String = dispatch_tool(approve_tool_name, eff_input)
|
||||
if str_len(raw) > 6000 { str_slice(raw, 0, 6000) + "...[truncated]" } else { raw }
|
||||
} else {
|
||||
// Non-builtin tool, no client content — error rather than
|
||||
// silently dispatching a tool the soul cannot execute.
|
||||
"{\"error\":\"client content required for non-builtin tool: " + approve_tool_name + "\"}"
|
||||
}
|
||||
} else {
|
||||
"{\"error\":\"User denied this tool call\"}"
|
||||
}
|
||||
|
||||
return agentic_resume(session_id, call_id, content)
|
||||
}
|
||||
|
||||
// ── Legacy path: suspension is in pending_tool_<session_id> ────────────
|
||||
// Kept for in-flight sessions that were suspended before a deploy.
|
||||
let pending_raw: String = state_get("pending_tool_" + session_id)
|
||||
if str_eq(pending_raw, "") {
|
||||
return "{\"error\":\"no pending tool for session\",\"session_id\":\"" + session_id + "\"}"
|
||||
}
|
||||
|
||||
let pending_call_id: String = json_get(pending_raw, "call_id")
|
||||
if !str_eq(pending_call_id, call_id) {
|
||||
return "{\"error\":\"call_id mismatch\",\"expected\":\"" + pending_call_id + "\"}"
|
||||
}
|
||||
|
||||
let tool_name: String = json_get(pending_raw, "tool_name")
|
||||
let tool_input: String = json_get_raw(pending_raw, "tool_input")
|
||||
let model: String = json_get(pending_raw, "model")
|
||||
let safe_sys: String = json_get(pending_raw, "system")
|
||||
|
||||
// For "always": add to always-allow list
|
||||
let always_key: String = "always_allow_" + session_id
|
||||
let always_list: String = state_get(always_key)
|
||||
let discard_always2: Bool = if str_eq(action, "always") {
|
||||
let new_always: String = if str_eq(always_list, "") { tool_name }
|
||||
else { always_list + "," + tool_name }
|
||||
state_set(always_key, new_always)
|
||||
true
|
||||
} else { false }
|
||||
|
||||
// Clear pending state
|
||||
state_set("pending_tool_" + session_id, "")
|
||||
|
||||
// Build tool result
|
||||
let tool_result: String = if str_eq(eff_action, "allow") {
|
||||
let raw: String = dispatch_tool(tool_name, tool_input)
|
||||
if str_len(raw) > 6000 { str_slice(raw, 0, 6000) + "...[truncated]" } else { raw }
|
||||
} else {
|
||||
"{\"error\":\"User denied this tool call\"}"
|
||||
}
|
||||
|
||||
// Legacy sessions stored messages_so_far; synthesise a bridge blob so the
|
||||
// same agentic_resume path handles continuation (instead of an inline loop).
|
||||
// messages_so_far already includes the assistant turn that requested the tool.
|
||||
let legacy_messages: String = json_get_raw(pending_raw, "messages_so_far")
|
||||
// WARNING: the original session may have used agentic_tools_with_web() or
|
||||
// agentic_tools_all(). The old pending blob did not store the tools variant.
|
||||
// Read a "tools_variant" field if present (future suspensions record it);
|
||||
// fall back to agentic_tools_literal() for legacy blobs that lack this field.
|
||||
let stored_variant: String = json_get(pending_raw, "tools_variant")
|
||||
let tools_json: String = if str_eq(stored_variant, "web") { agentic_tools_with_web() }
|
||||
else if str_eq(stored_variant, "all") { agentic_tools_all() }
|
||||
else { agentic_tools_literal() }
|
||||
|
||||
// Write a synthetic bridge blob so agentic_resume can pick it up.
|
||||
let blob: String = "{\"model\":\"" + json_safe(model) + "\""
|
||||
+ ",\"safe_sys\":\"" + json_safe(safe_sys) + "\""
|
||||
+ ",\"tools_json\":\"" + json_safe(tools_json) + "\""
|
||||
+ ",\"messages\":\"" + json_safe(legacy_messages) + "\""
|
||||
+ ",\"tools_log\":\"\""
|
||||
+ ",\"tool_use_id\":\"" + json_safe(call_id) + "\"}"
|
||||
state_set("mcp_bridge:" + session_id, blob)
|
||||
|
||||
return agentic_resume(session_id, call_id, tool_result)
|
||||
}
|
||||
@@ -0,0 +1,17 @@
|
||||
// auto-generated by elc --emit-header — do not edit
|
||||
extern fn session_title_from_message(message: String) -> String
|
||||
extern fn session_make_content(id: String, title: String, created_at: Int, updated_at: Int, folder: String) -> String
|
||||
extern fn session_exists(session_id: String) -> Bool
|
||||
extern fn session_create(body: String) -> String
|
||||
extern fn session_create_cleanup(session_id: String) -> String
|
||||
extern fn session_list() -> String
|
||||
extern fn session_get(session_id: String) -> String
|
||||
extern fn session_delete(session_id: String) -> String
|
||||
extern fn session_update_patch(session_id: String, body: String) -> String
|
||||
extern fn session_search_entry(node: String) -> String
|
||||
extern fn session_search(query: String) -> String
|
||||
extern fn session_hist_load(session_id: String) -> String
|
||||
extern fn session_hist_save(session_id: String, hist: String) -> Void
|
||||
extern fn session_update_meta_timestamp(session_id: String) -> Void
|
||||
extern fn session_auto_title(session_id: String, first_message: String) -> Void
|
||||
extern fn handle_session_approve(session_id: String, body: String) -> String
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user