From e927376355a1b07e5385dedad7a0d6c5d5bb1f92 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Mon, 6 Oct 2025 04:19:06 +0700
Subject: ames done

---
 ocaml/lib/effects.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'ocaml/lib/effects.ml')

diff --git a/ocaml/lib/effects.ml b/ocaml/lib/effects.ml
index e73af3e..f0d9955 100644
--- a/ocaml/lib/effects.ml
+++ b/ocaml/lib/effects.ml
@@ -92,6 +92,16 @@ let log_ovum ~msg:_ =
       (Noun.atom 0); (* simplified - would be text *)
   }
 
+(* Create an Ames packet ovum *)
+let ames_packet ~from:_ ~data:_ =
+  {
+    wire = Noun.atom 0;  (* simplified routing *)
+    card = Noun.cell
+      (Noun.atom 2)  (* ames tag *)
+      (Noun.atom 0); (* simplified - would be packet data *)
+  }
+  (* Note: from and data ignored for now, would be encoded in card *)
+
 (* Parse effects from Arvo output
  *
  * In a real implementation, this would parse the noun structure
-- 
cgit v1.2.3