initial commit

Author: ryanplusplus

.gitignore

@@ -39,3 +39,4 @@ luac.out
 *.x86_64
 *.hex
 
+.DS_Store

rockspecs/switch-1.0-0.rockspec

@@ -0,0 +1,20 @@
+package = 'switch'
+version = '1.0-0'
+source = {
+  url = 'https://github.com/ryanplusplus/switch.lua/archive/v1.0-0.tar.gz',
+  dir = 'switch.lua-1.0-0/src'
+}
+description = {
+  summary = 'Lua implementation of a switch statement.',
+  homepage = 'https://github.com/ryanplusplus/switch.lua/',
+  license = 'MIT <http://opensource.org/licenses/MIT>'
+}
+dependencies = {
+  'lua >= 5.1'
+}
+build = {
+  type = 'builtin',
+  modules = {
+    ['switch'] = 'switch.lua'
+  }
+}

rockspecs/switch-git-0.rockspec

@@ -0,0 +1,20 @@
+package = 'switch'
+version = 'git-0'
+source = {
+  url = 'git://github.com/ryanplusplus/switch.lua.git',
+  dir = 'src'
+}
+description = {
+  summary = 'Lua implementation of a switch statement.',
+  homepage = 'https://github.com/ryanplusplus/switch.lua/',
+  license = 'MIT <http://opensource.org/licenses/MIT>'
+}
+dependencies = {
+  'lua >= 5.1'
+}
+build = {
+  type = 'builtin',
+  modules = {
+    ['switch'] = 'switch.lua'
+  }
+}

spec/switch_spec.lua

@@ -0,0 +1,32 @@
+describe('switch', function()
+  local switch = require 'switch'
+
+  it('should call the corresponding function with the switched value', function()
+    local f = spy.new(load'')
+
+    switch('hello', {
+      goodbye = error,
+      hello = f
+    })
+
+    assert.spy(f).was_called_with('hello')
+  end)
+
+  it('should not call any functions if no value matches', function()
+    switch('hello', {
+      goodbye = error
+    })
+  end)
+
+  it('should allow a default case to be provided', function()
+    local f = spy.new(load'')
+
+    switch('lua', {
+      goodbye = error,
+      hello = error,
+      [switch.default] = f
+    })
+
+    assert.spy(f).was_called_with('lua')
+  end)
+end)

src/switch.lua

@@ -0,0 +1,16 @@
+local default_case = {}
+
+local function switch(value, cases)
+  local default = cases[default_case] or load''
+  return setmetatable(cases, {
+    __index = function()
+      return default
+    end
+  })[value](value)
+end
+
+return setmetatable({
+  default = default_case
+}, {
+  __call = function(_, ...) return switch(...) end
+})