candle 0.0.1

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/cache.lua

@@ -0,0 +1,73 @@
+wax.cache = {}
+setmetatable(wax.cache, wax.cache)
+
+-- Returns contents of cache keys
+--    key: string # value for cache
+--    maxAge: number (optional) # max age of file in seconds
+function wax.cache.get(key, maxAge)
+  local path = wax.cache.pathFor(key)
+
+  if not wax.filesystem.isFile(path) then return nil end
+
+  if maxAge then
+    local fileAge = os.time() - wax.filesystem.attributes(path).modifiedAt
+    if fileAge > maxAge then
+      return nil
+    end
+  end
+
+  local success, result = pcall(function()
+    return NSKeyedUnarchiver:unarchiveObjectWithFile(path)
+  end)
+
+  if not success then -- Bad cache
+    puts("Error: Couldn't read cache with key %s", key)
+    wax.cache.clear(key)
+    return nil
+  else
+    return result
+  end
+end
+
+-- Creates a cache for the key with contents
+--    key: string # value for the cache
+--    contents: object # whatever is NSKeyedArchive compatible
+function wax.cache.set(key, contents)
+  local path = wax.cache.pathFor(key)
+
+  if not contents then -- delete the value from the cache
+    wax.cache.clear(key)
+  else
+    local success = NSKeyedArchiver:archiveRootObject_toFile(contents, path)
+    if not success then puts("Couldn't archive cache '%s' to '%s'", key, path) end
+  end
+end
+
+function wax.cache.age(key)
+  local path = wax.cache.pathFor(key)
+
+  -- If there is no file, just send them back a really big age. Cleaner than
+  -- dealing with nils
+  if not wax.filesystem.isFile(path) then return wax.time.days(1000) end
+
+  local fileAge = os.time() - wax.filesystem.attributes(path).modifiedAt
+  return fileAge
+end
+
+-- Removes specific keys from cache
+function wax.cache.clear(...)
+  for i, key in ipairs({...}) do
+    local path = wax.cache.pathFor(key)
+    wax.filesystem.delete(path)
+  end
+end
+
+-- Removes entire cache dir
+function wax.cache.clearAll()
+  wax.filesystem.delete(NSCacheDirectory)
+  wax.filesystem.createDir(NSCacheDirectory)
+end
+
+function wax.cache.pathFor(key)
+  return NSCacheDirectory .. "/" .. wax.base64.encode(key)
+end

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/callback.lua

@@ -0,0 +1,22 @@
+-- Let's us cancel a callback
+
+wax.callback = function(callback)
+  local object = {callback = callback}
+
+  function object.cancel(self)
+    self.canceled = true
+  end
+  
+  function object.__call(self, ...)
+    if self.canceled then 
+      return 
+    end
+    
+    local args = self.scope and {self.scope, ...} or {...}
+    self.callback(unpack(args))
+  end
+
+  setmetatable(object, object)
+  
+  return object
+end

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/frame.lua

@@ -0,0 +1,76 @@
+-- This is weird code... I'm just playing with an idea
+function wax.frame(object)
+  return wax.dimensions(object, "frame")
+end
+
+function wax.bounds(object)
+  return wax.dimensions(object, "bounds")
+end
+
+function wax.dimensions(object, varName)
+  return setmetatable({
+    object = object,
+    center = function(self)
+      local offset = (wax.dimensions(self.object:superview(), varName).width - self.width) / 2
+      self.x = offset
+      return self
+    end,
+  },
+  {
+    __index = function(self, key)
+      if key == "y" then key = "top"
+      elseif key == "x" then key = "left"
+      end
+
+      local dimensions = (varName == "frame") and object:frame() or object:bounds()
+      if key == "left" then return dimensions.x
+      elseif key == "right" then return dimensions.x + dimensions.width
+      elseif key == "top" then return dimensions.y
+      elseif key == "bottom" then return dimensions.y + dimensions.height
+      elseif key == "height" then return dimensions.height
+      elseif key == "width" then return dimensions.width
+
+      elseif key == "size" then return CGSize(dimensions.width, dimensions.height)
+      elseif key == "origin" then return CGPoint(dimensions.x, dimensions.y)
+
+      else
+        error("Unknown frame key: " .. key)
+      end
+    end,
+
+    __newindex = function(self, key, value)
+      if key == "y" then key = "top"
+      elseif key == "x" then key = "left"
+      end
+
+      local dimensions = (varName == "frame") and object:frame() or object:bounds()
+      if key == "left" then dimensions.x = value
+      elseif key == "right" then dimensions.x = value - dimensions.width
+      elseif key == "top" then dimensions.y = value
+      elseif key == "bottom" then dimensions.y = value - dimensions.height
+      elseif key == "height" then dimensions.height = value
+      elseif key == "width" then dimensions.width = value
+
+      elseif key == "size" then dimensions.width = value.width dimensions.height = value.height
+      elseif key == "origin" then dimensions.x = value.x dimensions.y = value.y
+      elseif key == "stretchTop" then
+        dimensions.height = dimensions.height - (value - dimensions.y)
+        dimensions.y = value
+      elseif key == "stretchBottom" then
+        dimensions.height = dimensions.height + (value - (dimensions.height + dimensions.y))
+      elseif key == "stretchRight" then
+        dimensions.width = dimensions.width + (value - (dimensions.width + dimensions.x))
+      else
+        error("Unknown frame key: " .. key)
+      end
+
+      if (varName == "frame") then
+        object:setFrame(dimensions)
+      else
+        object:setBounds(dimensions)
+      end
+
+      return self
+    end
+  })
+end

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/init.lua

@@ -0,0 +1,78 @@
+require "wax.helpers.bit"
+require "wax.helpers.callback"
+require "wax.helpers.frame"
+require "wax.helpers.base64"
+require "wax.helpers.time"
+require "wax.helpers.cache"
+require "wax.helpers.autoload"
+require "wax.helpers.WaxServer"
+require "wax.helpers.pickView"
+
+-- Just a bunch of global helper functions
+
+function IBOutlet(...)
+  -- does nothing... just used so we can parse it
+end
+
+function wax.alert(title, message, ...)
+  local alert = UIAlertView:init()
+  alert:setTitle(title)
+  alert:setMessage(message)
+
+  if not ... then
+    alert:addButtonWithTitle("OK")
+  else
+    for i, name in ipairs{...} do
+      alert:addButtonWithTitle(name)
+    end
+  end
+
+  alert:show()
+
+  return alert
+end
+
+-- Forces print to use NSLog
+if not UIDevice:currentDevice():model():match("iPhone Simulator") then
+  function print(obj)
+    -- if there is an error, ignore it
+    pcall(function() wax.print(tostring(obj)) end)
+  end
+end
+
+function wax.tostring(obj, ...)
+  if type(obj) == "table" then
+    return table.tostring(obj)
+  end
+
+  if ... then
+    obj = string.format(tostring(obj), ...)
+  else
+    obj = tostring(obj)
+  end
+
+  return obj
+end
+
+function puts(obj, ...)
+  print(wax.tostring(obj, ...))
+end
+
+function wax.guid()
+  return NSProcessInfo:processInfo():globallyUniqueString()
+end
+
+function wax.eval(input)
+  return pcall(function()
+    if not input:match("=") then
+      input = "do return (" .. input .. ") end"
+    end
+
+    local code, err = loadstring(input, "REPL")
+    if err then
+      error("Syntax Error: " .. err)
+    else
+      puts(code())
+    end
+  end)
+end

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/pickView.lua

@@ -0,0 +1,54 @@
+
+function startPick()
+    local w = UIApplication:sharedApplication():keyWindow()
+    _interceptor = InterceptorView:alloc():initWithFrame(w:bounds())
+    w:addSubview(_interceptor)
+    return "Go on, touch something. Get the view by calling endPick() when you're done."
+end
+
+function endPick()
+    local v = _interceptor:pickedView()
+    _interceptor:removeFromSuperview()
+    return v
+end
+
+-- wax doesn't automagically bridge C functions
+function CGRectContainsPoint(rect, point)
+    return rect.x <= point.x
+       and point.x <= rect.x + rect.width
+       and rect.y <= point.y
+       and point.y <= rect.y + rect.height
+end
+
+waxClass{"InterceptorView", UIView}
+
+function touchesEnded_withEvent(self, touches, event)
+    local point = touches:anyObject():locationInView(self)
+    local w = UIApplication:sharedApplication():keyWindow()
+    local pointInWindow = w:convertPoint_fromView(point, self)
+    self.pickedView_ = self:findOwnerOfPoint_startingWith(pointInWindow, w)
+    print(self.pickedView_:class())
+end
+
+function pickedView(self)
+    return self.pickedView_
+end
+
+function findOwnerOfPoint_startingWith(self, point, view)
+    if view == self then
+        return nil
+    end
+
+    if not CGRectContainsPoint(view:bounds(), point) then
+        return nil
+    end
+
+    local betterResult = nil
+
+    for i, subview in ipairs(view:subviews()) do
+        pointInSubview = subview:convertPoint_fromView(point, view)
+        betterResult = self:findOwnerOfPoint_startingWith(pointInSubview, subview) or betterResult
+    end
+
+    return betterResult or view
+end

data/lib/candle/generators/lua/wax/lib/stdlib/helpers/time.lua

@@ -0,0 +1,102 @@
+wax.time = {}
+
+function wax.time.minutes(number)
+  return number * 60
+end
+
+function wax.time.hours(number)
+  return number * wax.time.minutes(60)
+end
+
+function wax.time.days(number)
+  return number * wax.time.hours(24)
+end
+
+-- Pattern match formats found here http://unicode.org/reports/tr35/tr35-6.html#Date_Format_Patterns
+function wax.time.formatDate(date, pattern)
+  if not wax.time._outputFormatter then 
+    wax.time._outputFormatter = NSDateFormatter:init()
+    local locale = NSLocale:initWithLocaleIdentifier("en_US_POSIX")
+    wax.time._outputFormatter:setLocale(locale)
+  end
+
+  wax.time._outputFormatter:setDateFormat(pattern or "MMMM d")
+  return wax.time._outputFormatter:stringFromDate(date)
+end
+
+-- Pattern match formats found here http://unicode.org/reports/tr35/tr35-6.html#Date_Format_Patterns
+function wax.time.parseDate(dateString, pattern)
+  -- I don't think NSDateFormatter can handle times with Z at the end. Someone
+  -- prove me wrong!
+  dateString = dateString:gsub("Z$", " GMT")
+  
+  if not wax.time._inputFormatter then 
+    wax.time._inputFormatter = NSDateFormatter:init() 
+    locale = NSLocale:initWithLocaleIdentifier("en_US_POSIX")
+    wax.time._inputFormatter:setLocale(locale)
+  end
+
+  wax.time._inputFormatter:setDateFormat(pattern or "yyyy-MM-dd'T'HH:mm:ss ZZZ")
+  return wax.time._inputFormatter:dateFromString(dateString)
+end
+
+function wax.time.beginingOfDay(date)
+  local calendar = NSCalendar:currentCalendar()
+  local dateComponents = calendar:components_fromDate(-1, date or NSDate:date())
+  local newComponents = NSDateComponents:init()
+  newComponents:setYear(dateComponents:year())
+  newComponents:setMonth(dateComponents:month())
+  newComponents:setDay(dateComponents:day())
+  
+  return calendar:dateFromComponents(newComponents)
+end
+
+function wax.time.endOfDay(date)
+  local calendar = NSCalendar:currentCalendar()
+  local dateComponents = calendar:components_fromDate(-1, date)
+  local newComponents = NSDateComponents:init()
+  newComponents:setYear(dateComponents:year())
+  newComponents:setMonth(dateComponents:month())
+  newComponents:setDay(dateComponents:day())
+  newComponents:setHour(24)
+  newComponents:setMinute(59)
+  newComponents:setSecond(59)
+  
+  return calendar:dateFromComponents(newComponents)
+end
+
+function wax.time.timeAgoInWords(firstDate, secondDate)
+  local difference = (secondDate or NSDate:date()):timeIntervalSince1970() - firstDate:timeIntervalSince1970()
+  local seconds = math.abs(difference)
+  local minutes = math.floor(seconds / 60)
+  local hours = math.floor(minutes / 60)
+  local days = math.floor(hours / 24)
+  local months = math.floor(days / 30)
+
+  if minutes <= 1 then return "less than a minute"
+  elseif minutes <= 44 then return ("%d minutes"):format(minutes)
+  elseif minutes <= 89 then return "about 1 hour"
+  elseif hours <= 24 then return ("about %d hours"):format(hours)
+  elseif hours <= 47 then return "1 day"
+  elseif days <= 29 then return ("%d days"):format(days)
+  elseif days <= 59 then return "about 1 month"
+  elseif months <= 15 then return "about 1 year"
+  elseif months <= 22 then return "over 1 year"
+  elseif years < 2 then return "almost 2 years"
+  elseif minutes <= 1051199 then return "about 1 year"
+  else return ("over %d years"):format(years)
+  end
+end
+
+function wax.time.since(date, referenceDate)
+  referenceDate = referenceDate or NSDate:date()
+  local difference = referenceDate:timeIntervalSince1970() - date:timeIntervalSince1970()
+  local timeSinceMidnight = date:timeIntervalSince1970() - wax.time.beginingOfDay():timeIntervalSince1970()
+  
+  -- Also returns the preposition as second arg
+  if difference < wax.time.days(1) and timeSinceMidnight > 0 then return wax.time.formatDate(date, "h:mm a"), "at"
+  elseif difference < wax.time.days(2) then return "Yesterday", ""
+  elseif difference < wax.time.days(7) then return wax.time.formatDate(date, "EEEE"), "on"
+  else return wax.time.formatDate(date, "MM/dd/yy"), "on"
+  end
+end

data/lib/candle/generators/lua/wax/lib/stdlib/init.lua

@@ -0,0 +1,18 @@
+setmetatable(_G, {
+  __index = function(self, key)
+    local class = wax.class[key]
+    if class then self[key] = class end -- cache it for future use
+
+    if not class and key:match("^[A-Z][A-Z][A-Z][^A-Z]") then -- looks like they were trying to use an objective-c obj
+      print("WARNING: No object named '" .. key .. "' found.")
+    end
+
+    return class
+  end
+})
+
+require "wax.ext"
+require "wax.enums"
+require "wax.structs"
+require "wax.waxClass"
+require "wax.helpers"

data/lib/candle/generators/lua/wax/lib/stdlib/luaspec/init.lua

@@ -0,0 +1,2 @@
+require "wax.luaspec.luaspec"
+require "wax.luaspec.luamock"

data/lib/candle/generators/lua/wax/lib/stdlib/luaspec/luamock.lua

@@ -0,0 +1,84 @@
+Mock = { calls = {}, return_values = {} }
+
+-- we store all calls and requested return values indexed
+-- by the mock object, we don't want to hold onto references
+-- when they should be garbage collected to make the tables
+-- be weak
+setmetatable(Mock.calls, { __mode="k" })
+setmetatable(Mock.return_values, { __mode="k" })
+
+function Mock.__call(mock, ...)
+    Mock.calls[mock] = Mock.calls[mock] or {}
+    local calls = Mock.calls[mock]
+    calls[#calls+1] = {...}
+    
+    local return_values = Mock.return_values[mock]
+    
+    if return_values and return_values[#calls] then    
+        return unpack(return_values[#calls])
+    end
+end
+
+function Mock.__index(mock, key)
+    local new_mock = Mock:new()
+    rawset(mock, key, new_mock)
+    return new_mock
+end
+
+function Mock:new()
+    local mock = { returns = self.returns, then_returns = self.returns }
+    setmetatable(mock, self)
+    return mock
+end
+
+function Mock:returns(...)
+    if getmetatable(self) ~= Mock then
+        error("returns must be called with : operator", 2)
+    end
+    local return_values = Mock.return_values[self] or {}
+    return_values[#return_values+1] = {...}
+    Mock.return_values[self] = return_values
+    return self
+end
+
+matchers = matchers or {}
+
+function matchers.was_called(target, value)
+    if getmetatable(target) ~= Mock then
+        return false, "target must be a Mock"
+    end
+    
+    local calls = Mock.calls[target] or {}
+    
+    if #calls ~= value then
+        return false, "expecting "..tostring(value).." calls, actually "..#calls
+    end
+    return true
+end
+
+function matchers.was_called_with(target, ...)
+    if getmetatable(target) ~= Mock then
+        return false, "target must be a Mock"
+    end
+    
+    local calls = Mock.calls[target] or {}
+    
+    if #calls ~= 1 then
+        return false, "expecting "..tostring(1).." call, actually "..#calls 
+    end
+    
+    local params = calls[1] or {}
+    
+    local args = {...}
+    
+    if #args ~= #params then
+        return false, "expecting "..#args.." parameters, actually "..#params
+    end
+    
+    for i=1,#args do
+        if args[i] ~= params[i] then
+            return false, "expecting parameter #"..tostring(i).." to be "..tostring(args[i]).." actually "..tostring(params[i])
+        end
+    end
+    return true
+end