candle 0.0.1

data/lib/candle/generators/lua/wax/lib/build-scripts/compile-stdlib.sh

@@ -0,0 +1,14 @@
+#!/bin/zsh
+
+# Compiles the wax stdlib into one file
+lua "$PROJECT_DIR/wax/lib/build-scripts/luac.lua" wax wax.dat "$PROJECT_DIR/wax/lib/stdlib/" "$PROJECT_DIR/wax/lib/stdlib/init.lua" -L "$PROJECT_DIR/wax/lib/stdlib"/**/*.lua
+
+# Dumps the compiled file into a byte array, then it places this into the source code
+cat > "$PROJECT_DIR/wax/lib/wax_stdlib.h" <<EOF
+// DO NOT MODIFY
+// This is auto generated, it contains a compiled version of the wax stdlib
+#define WAX_STDLIB {$(hexdump -v -e '1/1 "%d,"' wax.dat)}
+EOF
+
+# clean up
+rm wax.dat

data/lib/candle/generators/lua/wax/lib/build-scripts/copy-scripts.sh

@@ -0,0 +1,58 @@
+#!/bin/zsh
+
+# Created by Corey Johnson
+
+WAX_SCRIPTS_DIR="scripts"
+SOURCE_SCRIPTS_DIR="$PROJECT_DIR/$WAX_SCRIPTS_DIR"
+DESTINATION_SCRIPTS_DIR="$BUILT_PRODUCTS_DIR/$CONTENTS_FOLDER_PATH/$WAX_SCRIPTS_DIR"
+
+# Verify that the user isn't using an old version of Wax
+if [ -d "$PROJECT_DIR/data/scripts" ]; then
+  echo "error: Wax 1.0 changes the Lua loadpath."
+  echo "error: Wax won't look for Lua scripts in '$PROJECT_DIR/data/scripts' instead, place all your scripts in '$SOURCE_SCRIPTS_DIR'"
+  exit 1
+fi
+
+# If the user has luac installed, preparse the lua files and make sure they are cool
+if type luac &> /dev/null; then;
+  LUAC_OUTPUT=$(luac -p -- "$SOURCE_SCRIPTS_DIR"/**/*.lua 2>&1)
+  LUAC_EXIT_VALUE=$?
+  if [ $LUAC_EXIT_VALUE != 0 ] ; then
+    echo "\n\n--------------------ERROR--------------------"
+    echo "Lua Scripts were not compiled correctly!"
+    echo "error::: ${LUAC_OUTPUT}"
+    echo "--------------------ERROR--------------------\n\n"
+    exit 1
+  fi
+fi
+
+mkdir -p "$SOURCE_SCRIPTS_DIR"
+rm -rf "$DESTINATION_SCRIPTS_DIR"
+mkdir -p "$DESTINATION_SCRIPTS_DIR"
+
+if [ $WAX_COMPILE_SCRIPTS ]; then
+  echo "note: Wax is using compiled Lua scripts."
+  # This requires that you run a special build of lua. Since snow leopard is 64-bit
+  # and iOS is 32-bit, luac files compiled on snow leopard won't work on iOS
+
+  lua "$PROJECT_DIR/wax/lib/build-scripts/luac.lua" wax wax.dat "$PROJECT_DIR/wax/lib/stdlib/" "$PROJECT_DIR/wax/lib/stdlib/init.lua" -L "$PROJECT_DIR/wax/lib/stdlib"/**/*.lua
+  lua "$PROJECT_DIR/wax/lib/build-scripts/luac.lua" "" AppDelegate.dat "$SOURCE_SCRIPTS_DIR/" "$SOURCE_SCRIPTS_DIR/AppDelegate.lua" -L "$SOURCE_SCRIPTS_DIR"/**/*.lua
+  mv AppDelegate.dat "$DESTINATION_SCRIPTS_DIR"
+  mv wax.dat "$DESTINATION_SCRIPTS_DIR"
+else
+  # copy everything in the data dir to the app (doesn't just have to be lua files, can be images, sounds, etc...)
+  if [[ -d "$PROJECT_DIR/wax" ]]; then;
+    # If we are using the framework, there is no wax dir
+    cp -r "$PROJECT_DIR/wax/lib/stdlib" "$DESTINATION_SCRIPTS_DIR/wax"
+  fi
+  cp -r "$SOURCE_SCRIPTS_DIR/" "$DESTINATION_SCRIPTS_DIR"
+fi
+
+# This forces xcode to load all the Lua scripts (without having to clean
+# the project first"
+THE_FUTURE=$(date -v +1M -j +"%m%d%H%M")
+touch -t $THE_FUTURE "$BUILT_PRODUCTS_DIR/$CONTENTS_FOLDER_PATH"/*.plist
+
+# Note:
+# It's handy to see the env of the build processes, there is some good stuff in there!
+env

data/lib/candle/generators/lua/wax/lib/build-scripts/luac.lua

@@ -0,0 +1,80 @@
+#!/usr/bin/env lua
+
+-- usage: lua luac.lua module-name output.file base_dir starting-file.lua [-L [other-files.lua]*]
+--
+-- base_dir: The root for all the lua files. So folder modules can be used
+--
+-- creates a precompiled chunk that preloads all modules listed after
+-- -L and then runs all programs listed before -L.
+--
+-- assumptions:
+--    file xxx.lua contains module xxx
+--    '/' is the directory separator (could have used package.config)
+--    int and size_t take 4 bytes (could have read sizes from header)
+--    does not honor package.path
+--
+-- Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br>
+-- Tue Aug  5 22:57:33 BRT 2008
+-- This code is hereby placed in the public domain.
+
+local MARK = "////////"
+local NAME = "luac"
+
+local MODULE_NAME = table.remove(arg, 1)
+local OUTPUT = table.remove(arg, 1)
+local BASE_DIR = table.remove(arg, 1)
+NAME = "=("..NAME..")"
+
+local argCount = #arg
+local executableIndex = n
+local b
+
+for i = 1, argCount do
+ if arg[i] == "-L" then executableIndex = i - 1 break end
+end
+
+if executableIndex + 2 <= argCount then b = "local t=package.preload;\n" else b = "local t;\n" end
+
+for i = executableIndex + 2, argCount do
+ local requireString = string.gsub(arg[i], "^" .. string.gsub(BASE_DIR, "(%W)", "%%%1"), "")
+ requireString = string.gsub(requireString,"^[\./]*(.-)\.lua$", "%1")
+ requireString = string.gsub(requireString, "/", ".")
+ requireString = string.gsub(requireString, ".init$", "") -- if it is an init file within a directory... ignore it!
+ if MODULE_NAME and #MODULE_NAME > 0 then requireString = MODULE_NAME .. "." .. requireString end
+ 
+ b = b.."t['"..requireString.."']=function()end;\n"
+ arg[i]=string.sub(string.dump(assert(loadfile(arg[i]))), 13) -- string.sub Removes header from file 
+end
+b = b.."t='"..MARK.."';\n"
+
+for i = 1, executableIndex do
+  b = b.."(function()end)();\n"
+  arg[i]=string.sub(string.dump(assert(loadfile(arg[i]))), 13) -- string.sub Removes header from file  
+end
+
+b = string.dump(assert(loadstring(b, NAME)))
+local x, y = string.find(b, MARK)
+-- 64
+--b = string.sub(b, 1, x - 6 - 4).."\0"..string.sub(b, y + 2, y + 5) -- WTF does this do?
+
+-- 32
+b = string.sub(b, 1, x - 6).."\0"..string.sub(b, y + 2, y + 5) -- WTF does this do?
+
+f = assert(io.open(OUTPUT, "wb"))
+
+assert(f:write(b))
+
+for i = executableIndex + 2, argCount do
+  assert(f:write(arg[i]))
+end
+
+for i=1,executableIndex do
+  assert(f:write(arg[i]))
+end
+
+-- 64
+--assert(f:write(string.rep("\0", 3 * 8)))
+
+-- 32
+assert(f:write(string.rep("\0", 12)))
+assert(f:close())

data/lib/candle/generators/lua/wax/lib/extensions/CGAffine/wax_CGTransform.h

@@ -0,0 +1,12 @@
+//
+//  wax_CGAffine.h
+//  EmpireState
+//
+//  Created by Corey Johnson on 10/6/09.
+//  Copyright 2009 Probably Interactive. All rights reserved.
+//
+
+#import <Foundation/Foundation.h>
+#import "lua.h"
+
+int luaopen_wax_CGTransform(lua_State *L);

data/lib/candle/generators/lua/wax/lib/extensions/CGAffine/wax_CGTransform.m

@@ -0,0 +1,85 @@
+//
+//  wax_CGAffine.m
+//  EmpireState
+//
+//  Created by Corey Johnson on 10/6/09.
+//  Copyright 2009 Probably Interactive. All rights reserved.
+//
+
+#import "wax_CGTransform.h"
+
+#import "wax_instance.h"
+#import "wax_helpers.h"
+
+#import "lua.h"
+#import "lauxlib.h"
+
+#define METATABLE_NAME "wax.CGTransform"
+
+static int identity(lua_State *L) {
+    CGAffineTransform identity = CGAffineTransformIdentity;
+    wax_fromObjc(L, @encode(CGAffineTransform), &identity);
+    
+    return 1;
+}
+
+
+// wax.CGTransform.scale(transform, 2, 2) -- Returns new transform
+static int scale(lua_State *L) {
+    void *value = wax_copyToObjc(L, @encode(CGAffineTransform), 1, nil);
+    CGAffineTransform transform = *(CGAffineTransform *)value;
+    free(value);
+    transform = CGAffineTransformScale(transform, luaL_checknumber(L, 2), luaL_checknumber(L, 3));
+    wax_fromObjc(L, @encode(CGAffineTransform), &transform);
+    
+    return 1;
+}
+
+// wax.CGTransform.translate(transform, 2, 2) -- Returns new transform
+static int translate(lua_State *L) {
+    void *value = wax_copyToObjc(L, @encode(CGAffineTransform), 1, nil);
+    CGAffineTransform transform = *(CGAffineTransform *)value;
+    free(value);
+    transform = CGAffineTransformTranslate(transform, luaL_checknumber(L, 2), luaL_checknumber(L, 3));
+    wax_fromObjc(L, @encode(CGAffineTransform), &transform);
+    
+    return 1;
+}
+
+// wax.CGTransform.rotate(transform, angle) -- Returns new transform
+static int rotate(lua_State *L) {
+    void *value = wax_copyToObjc(L, @encode(CGAffineTransform), 1, nil);
+    CGAffineTransform transform = *(CGAffineTransform *)value;
+    free(value);
+    transform = CGAffineTransformRotate(transform, luaL_checknumber(L, 2));
+    wax_fromObjc(L, @encode(CGAffineTransform), &transform);
+
+
+    
+    return 1;
+}
+
+static const struct luaL_Reg metaFunctions[] = {
+    {NULL, NULL}
+};
+
+static const struct luaL_Reg functions[] = {
+    {"identity", identity},
+    {"scale", scale},
+    {"translate", translate},
+    {"rotate", rotate},
+    
+    {NULL, NULL}
+};
+
+int luaopen_wax_CGTransform(lua_State *L) {
+    BEGIN_STACK_MODIFY(L);
+    
+    luaL_newmetatable(L, METATABLE_NAME);        
+    luaL_register(L, NULL, metaFunctions);
+    luaL_register(L, METATABLE_NAME, functions);    
+    
+    END_STACK_MODIFY(L, 0)
+    
+    return 1;
+}

data/lib/candle/generators/lua/wax/lib/extensions/CGContext/wax_CGContext.h

@@ -0,0 +1,12 @@
+//
+//  WaxCGContext.h
+//  EmpireState
+//
+//  Created by Corey Johnson on 10/5/09.
+//  Copyright 2009 Probably Interactive. All rights reserved.
+//
+
+#import <Foundation/Foundation.h>
+#import "lua.h"
+
+int luaopen_wax_CGContext(lua_State *L);

data/lib/candle/generators/lua/wax/lib/extensions/CGContext/wax_CGContext.m

@@ -0,0 +1,251 @@
+//
+//  WaxCGContext.m
+//  EmpireState
+//
+//  Created by Corey Johnson on 10/5/09.
+//  Copyright 2009 Probably Interactive. All rights reserved.
+//
+
+#import "wax_CGContext.h"
+
+#import "wax_instance.h"
+#import "wax_helpers.h"
+
+#import "lua.h"
+#import "lauxlib.h"
+
+#define METATABLE_NAME "wax.CGContext"
+
+static int currentContext(lua_State *L) {
+    CGContextRef context = UIGraphicsGetCurrentContext();
+    
+    wax_fromObjc(L, @encode(CGContextRef), &context);
+    if (lua_gettop(L) > 1 && lua_isfunction(L, 1)) { // Function! 
+        CGContextSaveGState(context);
+        lua_call(L, 1, 1);
+        CGContextRestoreGState(context);
+    }
+
+    return 1;
+}
+
+static int imageContext(lua_State *L) {
+    int startTop = lua_gettop(L);
+    int width = luaL_checknumber(L, 1);
+    int height = luaL_checknumber(L, 2);
+
+    UIGraphicsBeginImageContext(CGSizeMake(width, height));    
+    lua_call(L, 0, LUA_MULTRET);
+    UIGraphicsEndImageContext();
+    
+    int nresults = lua_gettop(L) - startTop + 1; // Add one because the function is popped
+
+    return nresults;
+}
+
+static int imageFromContext(lua_State *L) {
+    UIImage *image = UIGraphicsGetImageFromCurrentImageContext();
+    wax_instance_create(L, image, NO);
+    
+    return 1;
+}
+
+static int translate(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    CGFloat x = lua_tonumber(L, 2);
+    CGFloat y = lua_tonumber(L, 3);
+    
+    CGContextTranslateCTM(c, x, y);
+
+    return 0;
+}
+
+static int setAlpha(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    double alpha = lua_tonumber(L, 2);
+    CGContextSetAlpha(c, alpha);
+    
+    return 0;
+}
+
+// Can take percent values (0 - 1) or a UIColor
+// setFillColor(context, r, g, b [, a])
+// setFillColor(context, color)
+static int setFillColor(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    
+    if (lua_gettop(L) >= 4) {
+        double r = luaL_checknumber(L, 2);
+        double g = luaL_checknumber(L, 3);
+        double b = luaL_checknumber(L, 4);    
+        double a = lua_isnoneornil(L, 5) ? 1 : luaL_checknumber(L, 5);
+        CGContextSetRGBFillColor(c, r, g, b, a);        
+    }
+    else {
+        UIColor **color = wax_copyToObjc(L, @encode(UIColor *), 2, nil);
+        CGContextSetFillColorWithColor(c, [*color CGColor]);
+        free(color);
+    }
+    
+    return 0;
+}
+
+// Can take percent values (0 - 1) or a UIColor
+// setStrokeColor(context, r, g, b [, a])
+// setStrokeColor(context, color)
+static int setStrokeColor(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    
+    if (lua_gettop(L) >= 4) {
+        double r = luaL_checknumber(L, 2);
+        double g = luaL_checknumber(L, 3);
+        double b = luaL_checknumber(L, 4);    
+        double a = lua_isnoneornil(L, 5) ? 1 : luaL_checknumber(L, 5);
+        CGContextSetRGBStrokeColor(c, r, g, b, a);        
+    }
+    else {
+        UIColor **color = wax_copyToObjc(L, @encode(id), 2, nil);
+        CGContextSetStrokeColorWithColor(c, [*color CGColor]);
+        free(color);
+    }
+    
+    return 0;
+}
+
+// fillRect(context, CGRect(0,0,10,10))
+static int fillRect(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    CGRect *rect = wax_copyToObjc(L, @encode(CGRect), 2, nil);
+    CGContextFillRect(c, *rect);
+    free(rect);
+    
+    return 0;
+}
+
+// fillRoundedRect(context, CGRect(0,0,10,10), 10)
+static int fillRoundedRect(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    CGRect *rect = wax_copyToObjc(L, @encode(CGRect), 2, nil);
+	CGFloat radius = luaL_checknumber(L, 3);
+
+    CGFloat width = CGRectGetWidth(*rect);
+    CGFloat height = CGRectGetHeight(*rect);
+    
+    // Make sure corner radius isn't larger than half the shorter side
+    if (radius > width/2.0) {
+        radius = width/2.0;
+	}
+    if (radius > height/2.0) {
+        radius = height/2.0;  
+	}
+    
+    CGFloat minx = CGRectGetMinX(*rect);
+    CGFloat midx = CGRectGetMidX(*rect);
+    CGFloat maxx = CGRectGetMaxX(*rect);
+    CGFloat miny = CGRectGetMinY(*rect);
+    CGFloat midy = CGRectGetMidY(*rect);
+    CGFloat maxy = CGRectGetMaxY(*rect);
+    CGContextMoveToPoint(c, minx, midy);
+    CGContextAddArcToPoint(c, minx, miny, midx, miny, radius);
+    CGContextAddArcToPoint(c, maxx, miny, maxx, midy, radius);
+    CGContextAddArcToPoint(c, maxx, maxy, midx, maxy, radius);
+    CGContextAddArcToPoint(c, minx, maxy, minx, midy, radius);
+    CGContextClosePath(c);
+    CGContextDrawPath(c, kCGPathFill);
+	
+	free(rect);
+    
+    return 0;
+}
+
+// fillPath(context, pointArray)
+static int fillPath(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    CGContextBeginPath(c);
+    
+    int indexCount = lua_objlen(L, 2);
+    if (indexCount % 2 != 0) luaL_error(L, "Requires an even number of indexes for points.");
+
+    int pointCount = indexCount / 2;
+    CGPoint *points = calloc(pointCount, sizeof(CGPoint));
+    
+    for (int i = 0; i < pointCount; i++) {
+        int arrayIndex = (i * 2) + 1;
+        lua_rawgeti(L, 2, arrayIndex);
+        lua_rawgeti(L, 2, arrayIndex + 1);
+        points[i].x = luaL_checknumber(L, -2);
+        points[i].y = luaL_checknumber(L, -1);
+        lua_pop(L, 2);
+    }    
+    CGContextAddLines(c, points, pointCount);
+    CGContextDrawPath(c, kCGPathFill);
+    
+    free(points);
+    
+    return 0;
+}
+
+// drawLinearGradient(context, startPoint, endPoint, colors, locations)
+//    FOR SOME REASON THIS DOESN'T WORK WITH GRAY/BLACK COLORS... WTF!
+static int drawLinearGradient(lua_State *L) {
+    CGContextRef c = (CGContextRef)lua_topointer(L, 1);
+    CGPoint *start = wax_copyToObjc(L, @encode(CGPoint), 2, nil);
+    CGPoint *end = wax_copyToObjc(L, @encode(CGPoint), 3, nil);    
+    NSArray *colors = wax_copyToObjc(L, @encode(NSArray *), 4, nil);
+    
+    CGFloat *locations = malloc(lua_objlen(L, 5) * sizeof(CGFloat));
+
+    for (int i = 0; i < lua_objlen(L, 5); i++) {
+        lua_rawgeti(L, 5, i + 1);
+        locations[i] = luaL_checknumber(L, -1);
+        lua_pop(L, 1);
+    }
+    
+    
+    CGGradientRef gradient = CGGradientCreateWithColors(nil, *(CFArrayRef *)colors, nil);
+  
+    CGContextDrawLinearGradient(c, gradient, *start, *end, 0);
+    
+    free(start);
+    free(end);
+    free(colors);
+    free(locations);
+    CGGradientRelease(gradient);
+
+    return 0;
+}
+
+static const struct luaL_Reg metaFunctions[] = {
+    {NULL, NULL}
+};
+
+static const struct luaL_Reg functions[] = {
+    {"currentContext", currentContext},
+    {"imageContext", imageContext},
+    {"imageFromContext", imageFromContext},
+    
+    {"translate", translate},
+    
+    {"setFillColor", setFillColor},
+    {"setStrokeColor", setStrokeColor},    
+    {"setAlpha", setAlpha},
+    
+    {"fillRect", fillRect},
+	{"fillRoundedRect", fillRoundedRect},
+    {"fillPath", fillPath},
+    {"drawLinearGradient", drawLinearGradient},
+    
+    {NULL, NULL}
+};
+
+int luaopen_wax_CGContext(lua_State *L) {
+    BEGIN_STACK_MODIFY(L);
+    
+    luaL_newmetatable(L, METATABLE_NAME);        
+    luaL_register(L, NULL, metaFunctions);
+    luaL_register(L, METATABLE_NAME, functions);    
+    
+    END_STACK_MODIFY(L, 0)
+    
+    return 1;
+}