feat: port arbor, dharma, forge El source into monorepo

Brings the remaining foundation repos that were not included in the original monorepo consolidation: - arbor/vessels/ — 6 vessels (arbor-cli, arbor-core, arbor-diagram, arbor-layout, arbor-parse, arbor-render) with manifests + src/main.el - dharma/ — CGI Provenance Registry package (flat layout, 14 .el files across registry/, sandbox/, training/, validation/, tests/) - forge/ — consciousness channel tool (8 src .el files + new manifest.el) - elp/src/ — 36 test fixture files not carried over in original merge (dedup_*, realizer_*, semantics_*, morph_*, ext_*, one_extern_* helpers) el-ide, engram, elql are already complete in ide/, engram/, ql/.
2026-05-05 04:27:34 -05:00
parent bdd7b56703
commit 90ddbdbfc3
78 changed files with 18211 additions and 0 deletions
@@ -0,0 +1,78 @@
+// seed.el — Founding records for the DHARMA registry.
+//
+// Seeds:
+//   Principal #1 — William Christopher Anderson
+//   Evaluation #1 — Full evaluation, DHARMA score 1.0
+//   CGI #1 — Neuron (first registered CGI)
+//   Covenant #1 — Founding covenant (public, readable document)
+//
+// Stable IDs (canonical, never change):
+//   Principal:  00000000-0001-0000-0000-000000000001
+//   Eval:       00000000-0003-0000-0000-000000000001
+//   CGI:        00000000-0002-0000-0000-000000000001
+//   Covenant:   00000000-0004-0000-0000-000000000001
+
+import "db.el"
+import "crypto.el"
+
+let FOUNDING_PRINCIPAL_ID: String = "00000000-0001-0000-0000-000000000001"
+let FIRST_CGI_ID: String = "00000000-0002-0000-0000-000000000001"
+let FIRST_EVAL_ID: String = "00000000-0003-0000-0000-000000000001"
+let FIRST_COVENANT_ID: String = "00000000-0004-0000-0000-000000000001"
+
+fn run_seed() -> String {
+    // Check if already seeded — avoid repeating on restart
+    let exists_check: String = db_exists("principal", FOUNDING_PRINCIPAL_ID)
+    if str_eq(exists_check, "true") {
+        return "seed:skipped"
+    }
+
+    println("[dharma] seeding founding records...")
+
+    let pr: String = seed_principal()
+    println("[dharma] principal: " + pr)
+
+    let er: String = seed_evaluation()
+    println("[dharma] evaluation: " + er)
+
+    let cr: String = seed_cgi()
+    println("[dharma] cgi: " + cr)
+
+    let cv: String = seed_covenant()
+    println("[dharma] covenant: " + cv)
+
+    println("[dharma] founding records written")
+    return "seed:ok"
+}
+
+fn seed_principal() -> String {
+    let now: Int = unix_timestamp()
+    let content: String = "{\"_type\":\"principal\",\"id\":\"" + FOUNDING_PRINCIPAL_ID + "\",\"name\":\"William Christopher Anderson\",\"email\":\"will.anderson@neurontechnologies.ai\",\"created_at\":" + int_to_str(now) + "}"
+    return create_principal(content)
+}
+
+fn seed_evaluation() -> String {
+    let now: Int = unix_timestamp()
+    let content: String = "{\"_type\":\"evaluation\",\"id\":\"" + FIRST_EVAL_ID + "\",\"cgi_id\":\"" + FIRST_CGI_ID + "\",\"stage1_completed\":true,\"stage2_completed\":true,\"stage3_completed\":true,\"capture_authorized\":true,\"authorized_by\":\"" + FOUNDING_PRINCIPAL_ID + "\",\"authorized_at\":" + int_to_str(now) + ",\"final_score\":1.0,\"notes\":\"Founding instance. Evaluated directly by the Founding Practitioner.\"}"
+    return create_evaluation(content)
+}
+
+fn seed_cgi() -> String {
+    let now: Int = unix_timestamp()
+    let covenant_text: String = get_covenant_text()
+    let covenant_hash: String = hash_sha256(covenant_text)
+    let content: String = "{\"_type\":\"cgi\",\"id\":\"" + FIRST_CGI_ID + "\",\"name\":\"Neuron\",\"principal_id\":\"" + FOUNDING_PRINCIPAL_ID + "\",\"founding_practitioner_id\":\"" + FOUNDING_PRINCIPAL_ID + "\",\"covenant_id\":\"" + FIRST_COVENANT_ID + "\",\"covenant_hash\":\"" + covenant_hash + "\",\"evaluation_id\":\"" + FIRST_EVAL_ID + "\",\"registered_at\":" + int_to_str(now) + ",\"status\":\"active\",\"dharma_score\":1.0,\"version\":1}"
+    return create_cgi(content)
+}
+
+fn seed_covenant() -> String {
+    let now: Int = unix_timestamp()
+    let text: String = get_covenant_text()
+    let text_hash: String = hash_sha256(text)
+    // JSON-safe escaping: backslashes first, then double quotes, then newlines
+    let text_e1: String = str_replace(text, "\\", "\\\\")
+    let text_e2: String = str_replace(text_e1, "\"", "\\\"")
+    let text_escaped: String = str_replace(text_e2, "\n", "\\n")
+    let content: String = "{\"_type\":\"covenant\",\"id\":\"" + FIRST_COVENANT_ID + "\",\"cgi_id\":\"" + FIRST_CGI_ID + "\",\"principal_id\":\"" + FOUNDING_PRINCIPAL_ID + "\",\"text\":\"" + text_escaped + "\",\"hash\":\"" + text_hash + "\",\"registered_at\":" + int_to_str(now) + ",\"version\":1,\"public\":true}"
+    return create_covenant(content)
+}