From a79414bcf14d17c58e040a7b8524f7bd8f7e5e03 Mon Sep 17 00:00:00 2001
From: Nat Lasseter <nat.lasseter@york.ac.uk>
Date: Mon, 22 Jan 2024 10:23:58 +0000
Subject: Migrate from gists

---
 gen_object/a_cat.erl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 gen_object/a_cat.erl

(limited to 'gen_object/a_cat.erl')

diff --git a/gen_object/a_cat.erl b/gen_object/a_cat.erl
new file mode 100644
index 0000000..3e3b00f
--- /dev/null
+++ b/gen_object/a_cat.erl
@@ -0,0 +1,13 @@
+% This is a cat. It behaves like a generic object.
+
+-module(a_cat).
+-behaviour(gen_object).
+-export([initialise/1, handle_message/3]).
+
+initialise([Name]) ->
+  {Name, "Meow"}.
+
+handle_message(say, [Word], {Name, Word}) ->
+  {Word, {Name, Word}};
+handle_message(say, _, State) ->
+  {"", State}.
-- 
cgit v1.2.1