diff options
Diffstat (limited to 'ocaml/lib/effects.ml')
| -rw-r--r-- | ocaml/lib/effects.ml | 10 |
1 files changed, 10 insertions, 0 deletions
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 |