candle 0.0.1

data/lib/candle/generators/lua/wax/lib/stdlib/ext/string.lua

@@ -0,0 +1,97 @@
+function string.unescape(url)
+  url = string.gsub(url, "+", " ")
+  url = string.gsub(url, "%%(%x%x)", function(hex)
+    return string.char(tonumber(hex, 16))
+  end)  
+  
+  return url
+end
+
+function string.split(s, sep)
+  local t = {}
+  for o in string.gmatch(s, "([^" .. (sep or " ") .. "]+)") do 
+    table.insert(t, o) 
+  end
+  
+  return t
+end
+
+function string.strip(s, pattern)
+  pattern = pattern or "%s+"
+  s = s:gsub("^" .. pattern, "")
+  s = s:gsub(pattern .. "$", "")
+  return s
+end
+
+function string.camelCase(s)
+  local splitTable = s:split("_-")
+  local result = table.remove(splitTable, 1)
+  for i, chunk in ipairs(splitTable) do
+    result = result .. chunk:sub(1,1):upper() .. chunk:sub(2)
+  end
+    
+  return result
+end
+
+function string.escape(s)
+  s = string.gsub(s, "([!%*'%(%);:@&=%+%$,/%?#%[%]<>~%.\"{}|\\%-`_%^%%%c])",
+                  function (c)
+                    return string.format("%%%02X", string.byte(c))
+                  end)
+  s = string.gsub(s, " ", "+")
+  
+  return s
+end
+
+function string.decodeEntities(s)
+  local entities = {
+    amp = "&",
+    lt = "<",
+    gt = ">",
+    quot = "\"",
+    apos = "'", 
+    nbsp = " ",
+    iexcl = "¡",
+    cent = "¢",
+    pound = "£",
+    curren = "¤",
+    yen = "¥",
+    brvbar = "¦",
+    sect = "§",
+    uml = "¨",
+    copy = "©",
+    ordf = "ª",
+    laquo = "«",
+--    not = "¬",
+    shy = "­",
+    reg = "®",
+    macr = "¯",
+    deg = "°",
+    plusmn = "±",
+    sup2 = "²",
+    sup3 = "³",
+    acute = "´",
+    micro = "µ",
+    para = "¶",
+    middot = "·",
+    cedil = "¸",
+    sup1 = "¹",
+    ordm = "º",
+    raquo = "»",
+    frac14 = "¼",
+    frac12 = "½",
+    frac34 = "¾",
+    iquest = "¿",
+    times = "×",
+    divide = "÷",   
+  }
+    
+  return string.gsub(s, "&(%w+);", entities)
+end
+
+function string.caseInsensitive(s)
+  s = string.gsub(s, "%a", function (c)
+    return string.format("[%s%s]", string.lower(c), string.upper(c))
+  end)
+  return s
+end

data/lib/candle/generators/lua/wax/lib/stdlib/ext/table.lua

@@ -0,0 +1,165 @@
+function table.clone(t, nometa)
+  local u = {}
+
+  if not nometa then
+    setmetatable(u, getmetatable(t))
+  end
+
+  for i, v in pairs(t) do
+    if type(v) == "table" then
+      u[i] = table.clone(v)
+    else
+      u[i] = v
+    end
+  end
+
+  return u
+end
+
+function table.merge(t, u)
+  local r = table.clone(t)
+
+  for i, v in pairs(u) do
+    r[i] = v
+  end
+
+  return r
+end
+
+function table.keys(t)
+  local keys = {}
+  for k, v in pairs(t) do table.insert(keys, k) end
+  return keys
+end
+
+function table.unique(t)
+  local seen = {}
+  for i, v in ipairs(t) do
+    if not table.includes(seen, v) then table.insert(seen, v) end
+  end
+
+  return seen
+end
+
+function table.values(t)
+  local values = {}
+  for k, v in pairs(t) do table.insert(values, v) end
+  return values
+end
+
+function table.last(t)
+  return t[#t]
+end
+
+function table.append(t, moreValues)
+  for i, v in ipairs(moreValues) do
+    table.insert(t, v)
+  end
+
+  return t
+end
+
+function table.indexOf(t, value)
+  for k, v in pairs(t) do
+    if type(value) == "function" then
+      if value(v) then return k end
+    else
+      if v == value then return k end
+    end
+  end
+
+  return nil
+end
+
+function table.includes(t, value)
+  return table.indexOf(t, value)
+end
+
+function table.removeValue(t, value)
+  local index = table.indexOf(t, value)
+  if index then table.remove(t, index) end
+  return t
+end
+
+function table.each(t, func)
+  for k, v in pairs(t) do
+    func(v, k)
+  end
+end
+
+function table.find(t, func)
+  for k, v in pairs(t) do
+    if func(v) then return v, k end
+  end
+
+  return nil
+end
+
+function table.filter(t, func)
+  local matches = {}
+  for k, v in pairs(t) do
+    if func(v) then table.insert(matches, v) end
+  end
+
+  return matches
+end
+
+function table.map(t, func)
+  local mapped = {}
+  for k, v in pairs(t) do
+    table.insert(mapped, func(v, k))
+  end
+
+  return mapped
+end
+
+function table.groupBy(t, func)
+  local grouped = {}
+  for k, v in pairs(t) do
+    local groupKey = func(v)
+    if not grouped[groupKey] then grouped[groupKey] = {} end
+    table.insert(grouped[groupKey], v)
+  end
+
+  return grouped
+end
+
+function table.tostring(tbl, indent, limit, depth, jstack)
+  limit   = limit  or 1000
+  depth   = depth  or 7
+  jstack  = jstack or {}
+  local i = 0
+
+  local output = {}
+  if type(tbl) == "table" then
+    -- very important to avoid disgracing ourselves with circular referencs...
+    for i,t in ipairs(jstack) do
+      if tbl == t then
+        return "<self>,\n"
+      end
+    end
+    table.insert(jstack, tbl)
+
+    table.insert(output, "{\n")
+    for key, value in pairs(tbl) do
+      local innerIndent = (indent or " ") .. (indent or " ")
+      table.insert(output, innerIndent .. tostring(key) .. " = ")
+      table.insert(output,
+        value == tbl and "<self>," or table.tostring(value, innerIndent, limit, depth, jstack)
+      )
+
+      i = i + 1
+      if i > limit then
+        table.insert(output, (innerIndent or "") .. "...\n")
+        break
+      end
+    end
+
+    table.insert(output, indent and (indent or "") .. "},\n" or "}")
+  else
+    if type(tbl) == "string" then tbl = string.format("%q", tbl) end -- quote strings
+    table.insert(output, tostring(tbl) .. ",\n")
+  end
+
+  return table.concat(output)
+end

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

@@ -0,0 +1,49 @@
+-- I don't know where the proper place for this file is. It's not really a helper
+waxClass{"WaxServer"}
+
+-- Class Method
+---------------
+function start(self)
+  self.server = wax.class['wax_server']:init()
+
+  local err = self.server and self.server:startOnPort(9000)
+  if err then
+    puts("Failed creating server: %s", err and err:description() or "Server Not Created")
+    return err
+  end
+
+  self.server:setDelegate(self)
+
+  -- redirect print
+  local formerPrint = print
+  _G.print = function(...)
+    formerPrint(...) 
+    local objects = table.map({...}, function(o) return tostring(o) end)
+    self.server:send(table.concat(objects, '\t') .. "\n")
+  end
+
+  return nil
+end
+
+function showPrompt(self)
+  self.server:send "> "
+end
+
+-- DebugServerDelegate
+----------------------
+function connected(self)
+  self:showPrompt()
+end
+
+function disconnected(self)
+  self.server:send("GOODBYE!")
+end
+
+function dataReceived(self, data)
+  local input = NSString:initWithData_encoding(data, NSASCIIStringEncoding)
+  local success, err = wax.eval(input)
+
+  if not success then self.server:send("Error: " .. err .. "\n") end
+
+  self:showPrompt()
+end

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

@@ -0,0 +1,10 @@
+function wax.autoload(...)
+  for i, folder in ipairs({...}) do
+    local files = wax.filesystem.search(wax.root(folder), "lua$")
+    for i, file in ipairs(files) do
+      local requireString = file:match(wax.root() .. "/(.*)%.lua$")
+      requireString = requireString:gsub("/", ".")
+      require(requireString)
+    end
+  end
+end

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

@@ -0,0 +1,64 @@
+-- working lua base64 codec (c) 2006-2008 by Alex Kloss
+-- compatible with lua 5.1
+-- http://www.it-rfc.de
+
+module("wax.base64", package.seeall)
+
+-- bitshift functions (<<, >> equivalent)
+-- shift left
+function lsh(value,shift)
+  return (value*(2^shift)) % 256
+end
+
+-- shift right
+function rsh(value,shift)
+  return math.floor(value/2^shift) % 256
+end
+
+-- return single bit (for OR)
+function bit(x,b)
+  return (x % 2^b - x % 2^(b-1) > 0)
+end
+
+-- logic OR for number values
+function lor(x,y)
+  result = 0
+  for p=1,8 do result = result + (((bit(x,p) or bit(y,p)) == true) and 2^(p-1) or 0) end
+  return result
+end
+
+-- encryption table
+local base64chars = {[0]='A',[1]='B',[2]='C',[3]='D',[4]='E',[5]='F',[6]='G',[7]='H',[8]='I',[9]='J',[10]='K',[11]='L',[12]='M',[13]='N',[14]='O',[15]='P',[16]='Q',[17]='R',[18]='S',[19]='T',[20]='U',[21]='V',[22]='W',[23]='X',[24]='Y',[25]='Z',[26]='a',[27]='b',[28]='c',[29]='d',[30]='e',[31]='f',[32]='g',[33]='h',[34]='i',[35]='j',[36]='k',[37]='l',[38]='m',[39]='n',[40]='o',[41]='p',[42]='q',[43]='r',[44]='s',[45]='t',[46]='u',[47]='v',[48]='w',[49]='x',[50]='y',[51]='z',[52]='0',[53]='1',[54]='2',[55]='3',[56]='4',[57]='5',[58]='6',[59]='7',[60]='8',[61]='9',[62]='+',[63]='/'}
+
+-- function encode
+-- encodes input string to base64.
+function encode(data)
+  local bytes = {}
+  local result = ""
+  for spos=0,string.len(data)-1,3 do
+    for byte=1,3 do bytes[byte] = string.byte(string.sub(data,(spos+byte))) or 0 end
+    result = string.format('%s%s%s%s%s',result,
+      base64chars[rsh(bytes[1],2)],
+      base64chars[lor(lsh((bytes[1] % 4),4), rsh(bytes[2],4))] or "=",
+      ((#data-spos) > 1) and base64chars[lor(lsh(bytes[2] % 16,2), rsh(bytes[3],6))] or "=",
+      ((#data-spos) > 2) and base64chars[(bytes[3] % 64)] or "=")
+  end
+  return result
+end
+
+-- decryption table
+local base64bytes = {['A']=0,['B']=1,['C']=2,['D']=3,['E']=4,['F']=5,['G']=6,['H']=7,['I']=8,['J']=9,['K']=10,['L']=11,['M']=12,['N']=13,['O']=14,['P']=15,['Q']=16,['R']=17,['S']=18,['T']=19,['U']=20,['V']=21,['W']=22,['X']=23,['Y']=24,['Z']=25,['a']=26,['b']=27,['c']=28,['d']=29,['e']=30,['f']=31,['g']=32,['h']=33,['i']=34,['j']=35,['k']=36,['l']=37,['m']=38,['n']=39,['o']=40,['p']=41,['q']=42,['r']=43,['s']=44,['t']=45,['u']=46,['v']=47,['w']=48,['x']=49,['y']=50,['z']=51,['0']=52,['1']=53,['2']=54,['3']=55,['4']=56,['5']=57,['6']=58,['7']=59,['8']=60,['9']=61,['+']=62,['/']=63,['=']=nil}
+
+-- function decode
+-- decode base64 input to string
+function decode(data)
+  local chars = {}
+  local result=""
+  for dpos=0,string.len(data)-1,4 do
+    for char=1,4 do chars[char] = base64bytes[(string.sub(data,(dpos+char),(dpos+char)) or "=")] end
+    result = result .. string.char(lor(lsh(chars[1],2), rsh(chars[2],4)))
+    result = result .. ((chars[3] ~= nil) and string.char(lor(lsh(chars[2],4), rsh(chars[3],2))) or "")
+    result = result .. ((chars[4] ~= nil) and string.char(lor(lsh(chars[3] % 4,6), (chars[4]))) or "")
+  end
+  return result
+end

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

@@ -0,0 +1,274 @@
+--[[---------------
+LuaBit v0.4
+-------------------
+a bitwise operation lib for lua.
+
+http://luaforge.net/projects/bit/
+
+How to use:
+-------------------
+ wax.bit.bnot(n) -- bitwise not (~n)
+ wax.bit.band(m, n) -- bitwise and (m & n)
+ wax.bit.bor(m, n) -- bitwise or (m | n)
+ wax.bit.bxor(m, n) -- bitwise xor (m ^ n)
+ wax.bit.brshift(n, bits) -- right shift (n >> bits)
+ wax.bit.blshift(n, bits) -- left shift (n << bits)
+ wax.bit.blogic_rshift(n, bits) -- logic right shift(zero fill >>>)
+ 
+Please note that bit.brshift and bit.blshift only support number within
+32 bits.
+
+2 utility functions are provided too:
+ bit.tobits(n) -- convert n into a bit table(which is a 1/0 sequence)
+               -- high bits first
+ bit.tonumb(bit_tbl) -- convert a bit table into a number 
+-------------------
+
+Under the MIT license.
+
+copyright(c) 2006~2007 hanzhao (abrash_han@hotmail.com)
+--]]---------------
+
+do
+
+------------------------
+-- bit lib implementions
+
+local function check_int(n)
+ -- checking not float
+ if(n - math.floor(n) > 0) then
+  error("trying to use bitwise operation on non-integer!")
+ end
+end
+
+local function to_bits(n)
+ check_int(n)
+ if(n < 0) then
+  -- negative
+  return to_bits(bit.bnot(math.abs(n)) + 1)
+ end
+ -- to bits table
+ local tbl = {}
+ local cnt = 1
+ while (n > 0) do
+  local last = math.mod(n,2)
+  if(last == 1) then
+   tbl[cnt] = 1
+  else
+   tbl[cnt] = 0
+  end
+  n = (n-last)/2
+  cnt = cnt + 1
+ end
+
+ return tbl
+end
+
+local function tbl_to_number(tbl)
+ local n = table.getn(tbl)
+
+ local rslt = 0
+ local power = 1
+ for i = 1, n do
+  rslt = rslt + tbl[i]*power
+  power = power*2
+ end
+ 
+ return rslt
+end
+
+local function expand(tbl_m, tbl_n)
+ local big = {}
+ local small = {}
+ if(table.getn(tbl_m) > table.getn(tbl_n)) then
+  big = tbl_m
+  small = tbl_n
+ else
+  big = tbl_n
+  small = tbl_m
+ end
+ -- expand small
+ for i = table.getn(small) + 1, table.getn(big) do
+  small[i] = 0
+ end
+
+end
+
+local function bit_or(m, n, ...)
+ local tbl_m = to_bits(m)
+ local tbl_n = to_bits(n)
+ expand(tbl_m, tbl_n)
+
+ local tbl = {}
+ local rslt = math.max(table.getn(tbl_m), table.getn(tbl_n))
+ for i = 1, rslt do
+  if(tbl_m[i]== 0 and tbl_n[i] == 0) then
+   tbl[i] = 0
+  else
+   tbl[i] = 1
+  end
+ end
+ 
+ local result = tbl_to_number(tbl)
+ if ... then
+   local args = {...}
+   local n = table.remove(args, 1)
+   return bit_or(result, n, #args > 0 and args or nil) 
+ else
+   return result
+ end
+end
+
+local function bit_and(m, n, ...)
+ local tbl_m = to_bits(m)
+ local tbl_n = to_bits(n)
+ expand(tbl_m, tbl_n) 
+
+ local tbl = {}
+ local rslt = math.max(table.getn(tbl_m), table.getn(tbl_n))
+ for i = 1, rslt do
+  if(tbl_m[i]== 0 or tbl_n[i] == 0) then
+   tbl[i] = 0
+  else
+   tbl[i] = 1
+  end
+ end
+
+ local result = tbl_to_number(tbl)
+ if ... then
+   local args = {...}
+   local n = table.remove(args, 1)
+   return bit_and(result, n, #args > 0 and args or nil) 
+ else
+   return result
+ end
+end
+
+local function bit_not(n)
+ 
+ local tbl = to_bits(n)
+ local size = math.max(table.getn(tbl), 32)
+ for i = 1, size do
+  if(tbl[i] == 1) then 
+   tbl[i] = 0
+  else
+   tbl[i] = 1
+  end
+ end
+ return tbl_to_number(tbl)
+end
+
+local function bit_xor(m, n)
+ local tbl_m = to_bits(m)
+ local tbl_n = to_bits(n)
+ expand(tbl_m, tbl_n) 
+
+ local tbl = {}
+ local rslt = math.max(table.getn(tbl_m), table.getn(tbl_n))
+ for i = 1, rslt do
+  if(tbl_m[i] ~= tbl_n[i]) then
+   tbl[i] = 1
+  else
+   tbl[i] = 0
+  end
+ end
+ 
+ --table.foreach(tbl, print)
+
+ return tbl_to_number(tbl)
+end
+
+local function bit_rshift(n, bits)
+ check_int(n)
+ 
+ local high_bit = 0
+ if(n < 0) then
+  -- negative
+  n = bit_not(math.abs(n)) + 1
+  high_bit = 2147483648 -- 0x80000000
+ end
+
+ for i=1, bits do
+  n = n/2
+  n = bit_or(math.floor(n), high_bit)
+ end
+ return math.floor(n)
+end
+
+-- logic rightshift assures zero filling shift
+local function bit_logic_rshift(n, bits)
+ check_int(n)
+ if(n < 0) then
+  -- negative
+  n = bit_not(math.abs(n)) + 1
+ end
+ for i=1, bits do
+  n = n/2
+ end
+ return math.floor(n)
+end
+
+local function bit_lshift(n, bits)
+ check_int(n)
+ 
+ if(n < 0) then
+  -- negative
+  n = bit_not(math.abs(n)) + 1
+ end
+
+ for i=1, bits do
+  n = n*2
+ end
+ return bit_and(n, 4294967295) -- 0xFFFFFFFF
+end
+
+local function bit_xor2(m, n)
+ local rhs = bit_or(bit_not(m), bit_not(n))
+ local lhs = bit_or(m, n)
+ local rslt = bit_and(lhs, rhs)
+ return rslt
+end
+
+--------------------
+-- bit lib interface
+
+wax.bit = {
+ -- bit operations
+ bnot = bit_not,
+ band = bit_and,
+ bor  = bit_or,
+ bxor = bit_xor,
+ brshift = bit_rshift,
+ blshift = bit_lshift,
+ bxor2 = bit_xor2,
+ blogic_rshift = bit_logic_rshift,
+
+ -- utility func
+ tobits = to_bits,
+ tonumb = tbl_to_number,
+}
+
+end
+
+--[[
+for i = 1, 100 do
+ for j = 1, 100 do
+  if(bit.bxor(i, j) ~= bit.bxor2(i, j)) then
+   error("bit.xor failed.")
+  end
+ end
+end
+--]]
+
+
+
+
+
+
+
+
+
+
+
+
+