actually add Message class

1 files changed, 19 insertions, 0 deletions

diff --git a/message.lua b/message.lua
new file mode 100644
index 0000000..092f332
--- /dev/null
+++ b/message.lua
@@ -0,0 +1,19 @@
+local class = require'r.class'
+
+local BasePylon = require 'pylon'
+local Thing = require 'thing'
+
+local Message = class()
+-- since this is the beating heart of wilson, it pays to do some validation
+function Message.make(cls, self)
+	setmetatable(self,cls)
+	for k,v in pairs{
+		pylon=BasePylon,
+		channel=Thing,
+		author=Thing,
+	} do assert(class.is(self[k],v), 'field '..k..' missing or wrong') end
+	assert(type(self.body)=='string','field body missing or wrong')
+	assert(self.pylon == self.channel.pylon and self.pylon == self.author.pylon,
+		"inconsistent pylons!")
+	return self end
+return Message