From 559fa5045974aad0f985fa8adc6afb29ea803658 Mon Sep 17 00:00:00 2001
From: Paul Liverman III <paul.liverman.iii@gmail.com>
Date: Mon, 14 Aug 2017 05:48:36 -0700
Subject: [PATCH] wip class system

---
 class.lua           | 20 ++++++++++++++++++++
 class.moon          | 39 +++++++++++++++++++++++++++++++++++++++
 tmp.class.usage.lua | 12 ++++++++++++
 3 files changed, 71 insertions(+)
 create mode 100644 class.lua
 create mode 100644 class.moon
 create mode 100644 tmp.class.usage.lua

diff --git a/class.lua b/class.lua
new file mode 100644
index 0000000..b3f55a4
--- /dev/null
+++ b/class.lua
@@ -0,0 +1,20 @@
+local Class
+Class = function(name, parent)
+  local newClass, base
+  base = {
+    __index = base,
+    __class = newClass
+  }
+  newClass = setmetable({
+    __init = function() end,
+    __base = base,
+    __name = name
+  }, {
+    __call = function(cls, ...)
+      local self = setmetable({ }, base)
+      cls.__init(self, ...)
+      return self
+    end
+  })
+end
+return Class
diff --git a/class.moon b/class.moon
new file mode 100644
index 0000000..741d69e
--- /dev/null
+++ b/class.moon
@@ -0,0 +1,39 @@
+-- basically, gonna use the knowledge of how MoonScript classes work to make
+--  something that does the same thing using syntax similar to MiddleClass
+
+Class = (name) ->
+  local newClass, base
+  base = {
+    __index: base
+    __class: newClass
+  }
+
+  newClass = setmetable {
+    __init: ->
+    __base: base
+    __name: name
+  }, {
+    __call: (cls, ...) ->
+      @ = setmetable({}, base)
+      cls.__init(@, ...)
+      return @
+  }
+
+  return newClass
+
+return Class
+
+-- base obj with an __index to itself, contains functions accepting a self argument,
+--  and __class pointing to class obj
+--
+-- class is obj w __init function, __base linking to base obj, and __name specifying name of class
+--  it has metatable, __index is the base table (makes perfect sense),
+--   __call is a function that creates a self obj w the base obj as a metatable, then calls __init
+--      on it, and returns the self (__init is never meant to get directly called)
+--
+-- inheritance addtionally does:
+--
+-- new base obj will have a metatable set to parent.__base (where parent is parent class obj)
+-- new class obj will have __parent value linking to parent class obj, and __index metamethod
+--   that returns rawget(new base, name) or return parent class[name] if that was nil
+-- if parent class had __inherited, then is called w parent class and new class
diff --git a/tmp.class.usage.lua b/tmp.class.usage.lua
new file mode 100644
index 0000000..6431fab
--- /dev/null
+++ b/tmp.class.usage.lua
@@ -0,0 +1,12 @@
+local class = require "Class"
+
+local Car = class("Car")
+
+function Car:__init(x, y)
+  self.x = x or 0
+  self.y = y or 0
+end
+
+function Car:print() -- this will be broken
+  print("I'm a car, at ("..self.x..","..self.y..")")
+end