candle 0.0.1

data/lib/candle/generators/lua/wax/lib/lua/lvm.h

@@ -0,0 +1,36 @@
+/*
+** $Id: lvm.h,v 2.5.1.1 2007/12/27 13:02:25 roberto Exp $
+** Lua virtual machine
+** See Copyright Notice in lua.h
+*/
+
+#ifndef lvm_h
+#define lvm_h
+
+
+#include "ldo.h"
+#include "lobject.h"
+#include "ltm.h"
+
+
+#define tostring(L,o) ((ttype(o) == LUA_TSTRING) || (luaV_tostring(L, o)))
+
+#define tonumber(o,n)    (ttype(o) == LUA_TNUMBER || \
+                         (((o) = luaV_tonumber(o,n)) != NULL))
+
+#define equalobj(L,o1,o2) \
+    (ttype(o1) == ttype(o2) && luaV_equalval(L, o1, o2))
+
+
+LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
+LUAI_FUNC int luaV_equalval (lua_State *L, const TValue *t1, const TValue *t2);
+LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n);
+LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj);
+LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key,
+                                            StkId val);
+LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key,
+                                            StkId val);
+LUAI_FUNC void luaV_execute (lua_State *L, int nexeccalls);
+LUAI_FUNC void luaV_concat (lua_State *L, int total, int last);
+
+#endif

data/lib/candle/generators/lua/wax/lib/lua/lzio.c

@@ -0,0 +1,82 @@
+/*
+** $Id: lzio.c,v 1.31.1.1 2007/12/27 13:02:25 roberto Exp $
+** a generic input stream interface
+** See Copyright Notice in lua.h
+*/
+
+
+#include <string.h>
+
+#define lzio_c
+#define LUA_CORE
+
+#include "lua.h"
+
+#include "llimits.h"
+#include "lmem.h"
+#include "lstate.h"
+#include "lzio.h"
+
+
+int luaZ_fill (ZIO *z) {
+  size_t size;
+  lua_State *L = z->L;
+  const char *buff;
+  lua_unlock(L);
+  buff = z->reader(L, z->data, &size);
+  lua_lock(L);
+  if (buff == NULL || size == 0) return EOZ;
+  z->n = size - 1;
+  z->p = buff;
+  return char2int(*(z->p++));
+}
+
+
+int luaZ_lookahead (ZIO *z) {
+  if (z->n == 0) {
+    if (luaZ_fill(z) == EOZ)
+      return EOZ;
+    else {
+      z->n++;  /* luaZ_fill removed first byte; put back it */
+      z->p--;
+    }
+  }
+  return char2int(*z->p);
+}
+
+
+void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) {
+  z->L = L;
+  z->reader = reader;
+  z->data = data;
+  z->n = 0;
+  z->p = NULL;
+}
+
+
+/* --------------------------------------------------------------- read --- */
+size_t luaZ_read (ZIO *z, void *b, size_t n) {
+  while (n) {
+    size_t m;
+    if (luaZ_lookahead(z) == EOZ)
+      return n;  /* return number of missing bytes */
+    m = (n <= z->n) ? n : z->n;  /* min. between n and z->n */
+    memcpy(b, z->p, m);
+    z->n -= m;
+    z->p += m;
+    b = (char *)b + m;
+    n -= m;
+  }
+  return 0;
+}
+
+/* ------------------------------------------------------------------------ */
+char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n) {
+  if (n > buff->buffsize) {
+    if (n < LUA_MINBUFFER) n = LUA_MINBUFFER;
+    luaZ_resizebuffer(L, buff, n);
+  }
+  return buff->buffer;
+}
+
+

data/lib/candle/generators/lua/wax/lib/lua/lzio.h

@@ -0,0 +1,67 @@
+/*
+** $Id: lzio.h,v 1.21.1.1 2007/12/27 13:02:25 roberto Exp $
+** Buffered streams
+** See Copyright Notice in lua.h
+*/
+
+
+#ifndef lzio_h
+#define lzio_h
+
+#include "lua.h"
+
+#include "lmem.h"
+
+
+#define EOZ    (-1)            /* end of stream */
+
+typedef struct Zio ZIO;
+
+#define char2int(c)    cast(int, cast(unsigned char, (c)))
+
+#define zgetc(z)  (((z)->n--)>0 ?  char2int(*(z)->p++) : luaZ_fill(z))
+
+typedef struct Mbuffer {
+  char *buffer;
+  size_t n;
+  size_t buffsize;
+} Mbuffer;
+
+#define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0)
+
+#define luaZ_buffer(buff)    ((buff)->buffer)
+#define luaZ_sizebuffer(buff)    ((buff)->buffsize)
+#define luaZ_bufflen(buff)    ((buff)->n)
+
+#define luaZ_resetbuffer(buff) ((buff)->n = 0)
+
+
+#define luaZ_resizebuffer(L, buff, size) \
+    (luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \
+    (buff)->buffsize = size)
+
+#define luaZ_freebuffer(L, buff)    luaZ_resizebuffer(L, buff, 0)
+
+
+LUAI_FUNC char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n);
+LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader,
+                                        void *data);
+LUAI_FUNC size_t luaZ_read (ZIO* z, void* b, size_t n);    /* read next n bytes */
+LUAI_FUNC int luaZ_lookahead (ZIO *z);
+
+
+
+/* --------- Private Part ------------------ */
+
+struct Zio {
+  size_t n;            /* bytes still unread */
+  const char *p;        /* current position in buffer */
+  lua_Reader reader;
+  void* data;            /* additional data */
+  lua_State *L;            /* Lua state (for reader) */
+};
+
+
+LUAI_FUNC int luaZ_fill (ZIO *z);
+
+#endif

data/lib/candle/generators/lua/wax/lib/lua/print.c

@@ -0,0 +1,227 @@
+/*
+** $Id: print.c,v 1.55a 2006/05/31 13:30:05 lhf Exp $
+** print bytecodes
+** See Copyright Notice in lua.h
+*/
+
+#include <ctype.h>
+#include <stdio.h>
+
+#define luac_c
+#define LUA_CORE
+
+#include "ldebug.h"
+#include "lobject.h"
+#include "lopcodes.h"
+#include "lundump.h"
+
+#define PrintFunction    luaU_print
+
+#define Sizeof(x)    ((int)sizeof(x))
+#define VOID(p)        ((const void*)(p))
+
+static void PrintString(const TString* ts)
+{
+ const char* s=getstr(ts);
+ size_t i,n=ts->tsv.len;
+ putchar('"');
+ for (i=0; i<n; i++)
+ {
+  int c=s[i];
+  switch (c)
+  {
+   case '"': printf("\\\""); break;
+   case '\\': printf("\\\\"); break;
+   case '\a': printf("\\a"); break;
+   case '\b': printf("\\b"); break;
+   case '\f': printf("\\f"); break;
+   case '\n': printf("\\n"); break;
+   case '\r': printf("\\r"); break;
+   case '\t': printf("\\t"); break;
+   case '\v': printf("\\v"); break;
+   default:    if (isprint((unsigned char)c))
+               putchar(c);
+        else
+            printf("\\%03u",(unsigned char)c);
+  }
+ }
+ putchar('"');
+}
+
+static void PrintConstant(const Proto* f, int i)
+{
+ const TValue* o=&f->k[i];
+ switch (ttype(o))
+ {
+  case LUA_TNIL:
+    printf("nil");
+    break;
+  case LUA_TBOOLEAN:
+    printf(bvalue(o) ? "true" : "false");
+    break;
+  case LUA_TNUMBER:
+    printf(LUA_NUMBER_FMT,nvalue(o));
+    break;
+  case LUA_TSTRING:
+    PrintString(rawtsvalue(o));
+    break;
+  default:                /* cannot happen */
+    printf("? type=%d",ttype(o));
+    break;
+ }
+}
+
+static void PrintCode(const Proto* f)
+{
+ const Instruction* code=f->code;
+ int pc,n=f->sizecode;
+ for (pc=0; pc<n; pc++)
+ {
+  Instruction i=code[pc];
+  OpCode o=GET_OPCODE(i);
+  int a=GETARG_A(i);
+  int b=GETARG_B(i);
+  int c=GETARG_C(i);
+  int bx=GETARG_Bx(i);
+  int sbx=GETARG_sBx(i);
+  int line=getline(f,pc);
+  printf("\t%d\t",pc+1);
+  if (line>0) printf("[%d]\t",line); else printf("[-]\t");
+  printf("%-9s\t",luaP_opnames[o]);
+  switch (getOpMode(o))
+  {
+   case iABC:
+    printf("%d",a);
+    if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (-1-INDEXK(b)) : b);
+    if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (-1-INDEXK(c)) : c);
+    break;
+   case iABx:
+    if (getBMode(o)==OpArgK) printf("%d %d",a,-1-bx); else printf("%d %d",a,bx);
+    break;
+   case iAsBx:
+    if (o==OP_JMP) printf("%d",sbx); else printf("%d %d",a,sbx);
+    break;
+  }
+  switch (o)
+  {
+   case OP_LOADK:
+    printf("\t; "); PrintConstant(f,bx);
+    break;
+   case OP_GETUPVAL:
+   case OP_SETUPVAL:
+    printf("\t; %s", (f->sizeupvalues>0) ? getstr(f->upvalues[b]) : "-");
+    break;
+   case OP_GETGLOBAL:
+   case OP_SETGLOBAL:
+    printf("\t; %s",svalue(&f->k[bx]));
+    break;
+   case OP_GETTABLE:
+   case OP_SELF:
+    if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); }
+    break;
+   case OP_SETTABLE:
+   case OP_ADD:
+   case OP_SUB:
+   case OP_MUL:
+   case OP_DIV:
+   case OP_POW:
+   case OP_EQ:
+   case OP_LT:
+   case OP_LE:
+    if (ISK(b) || ISK(c))
+    {
+     printf("\t; ");
+     if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-");
+     printf(" ");
+     if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-");
+    }
+    break;
+   case OP_JMP:
+   case OP_FORLOOP:
+   case OP_FORPREP:
+    printf("\t; to %d",sbx+pc+2);
+    break;
+   case OP_CLOSURE:
+    printf("\t; %p",VOID(f->p[bx]));
+    break;
+   case OP_SETLIST:
+    if (c==0) printf("\t; %d",(int)code[++pc]);
+    else printf("\t; %d",c);
+    break;
+   default:
+    break;
+  }
+  printf("\n");
+ }
+}
+
+#define SS(x)    (x==1)?"":"s"
+#define S(x)    x,SS(x)
+
+static void PrintHeader(const Proto* f)
+{
+ const char* s=getstr(f->source);
+ if (*s=='@' || *s=='=')
+  s++;
+ else if (*s==LUA_SIGNATURE[0])
+  s="(bstring)";
+ else
+  s="(string)";
+ printf("\n%s <%s:%d,%d> (%d instruction%s, %d bytes at %p)\n",
+     (f->linedefined==0)?"main":"function",s,
+    f->linedefined,f->lastlinedefined,
+    S(f->sizecode),f->sizecode*Sizeof(Instruction),VOID(f));
+ printf("%d%s param%s, %d slot%s, %d upvalue%s, ",
+    f->numparams,f->is_vararg?"+":"",SS(f->numparams),
+    S(f->maxstacksize),S(f->nups));
+ printf("%d local%s, %d constant%s, %d function%s\n",
+    S(f->sizelocvars),S(f->sizek),S(f->sizep));
+}
+
+static void PrintConstants(const Proto* f)
+{
+ int i,n=f->sizek;
+ printf("constants (%d) for %p:\n",n,VOID(f));
+ for (i=0; i<n; i++)
+ {
+  printf("\t%d\t",i+1);
+  PrintConstant(f,i);
+  printf("\n");
+ }
+}
+
+static void PrintLocals(const Proto* f)
+{
+ int i,n=f->sizelocvars;
+ printf("locals (%d) for %p:\n",n,VOID(f));
+ for (i=0; i<n; i++)
+ {
+  printf("\t%d\t%s\t%d\t%d\n",
+  i,getstr(f->locvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1);
+ }
+}
+
+static void PrintUpvalues(const Proto* f)
+{
+ int i,n=f->sizeupvalues;
+ printf("upvalues (%d) for %p:\n",n,VOID(f));
+ if (f->upvalues==NULL) return;
+ for (i=0; i<n; i++)
+ {
+  printf("\t%d\t%s\n",i,getstr(f->upvalues[i]));
+ }
+}
+
+void PrintFunction(const Proto* f, int full)
+{
+ int i,n=f->sizep;
+ PrintHeader(f);
+ PrintCode(f);
+ if (full)
+ {
+  PrintConstants(f);
+  PrintLocals(f);
+  PrintUpvalues(f);
+ }
+ for (i=0; i<n; i++) PrintFunction(f->p[i],full);
+}

data/lib/candle/generators/lua/wax/lib/project.rake

@@ -0,0 +1,159 @@
+TEXTMATE_FILE="TEXTMATE"
+WAX_PATH = File.expand_path("wax")
+WAX_PATH = File.expand_path("wax.framework/Resources") if not File.exists?(WAX_PATH)
+
+desc "Create a Wax TextMate project"
+task :tm => "TEXTMATE" do
+  sh "mate #{TEXTMATE_FILE} ./scripts ./wax/lib/stdlib"
+  sh "mate #{TEXTMATE_FILE}"
+end
+
+namespace :tm do
+  desc "Install textmate lua & wax bundles"
+  task :install_bundles do
+    sh "mkdir -p ~/Library/Application\\ Support/TextMate/Bundles/"
+
+    lua_bundle_dir = "~/Library/Application\\ Support/TextMate/Bundles/Lua.tmbundle"
+    if not sh("test -e #{lua_bundle_dir}") {|ok, status| ok} # This is bad code...
+      sh "curl -L http://github.com/textmate/lua.tmbundle/tarball/master | tar xvz"
+      sh "mv textmate-lua.tmbundle* #{lua_bundle_dir}"
+    end
+
+    wax_bundle_dir = "~/Library/Application\\ Support/TextMate/Bundles/Wax.tmbundle"
+    if not sh("test -e #{wax_bundle_dir}") {|ok, status| ok}
+      sh "curl -L http://github.com/probablycorey/Wax.tmbundle/tarball/master | tar xvz"
+      sh "mv probablycorey-[Ww]ax.tmbundle* #{wax_bundle_dir}"
+    end
+  end
+
+  file TEXTMATE_FILE do |t|
+    open(t.name, "w") do |file|
+      file.write <<-TEXTMATE_HELP
+Some tips to make life easier
+
+1) Install the Lua and Wax TextMate Bundles.
+  a) Either type "rake tm:install_bundles"
+
+     Or, you can manually install the bundles from
+     http://github.com/textmate/lua.tmbundle and
+     http://github.com/probablycorey/Wax.tmbundle
+     into ~/Library/Application\ Support/TextMate/Bundles
+
+  b) From TextMate click Bundles > Bundle Editor > Reload Bundles
+
+      TEXTMATE_HELP
+    end
+  end
+end
+
+desc "Update the wax lib with the lastest code"
+task :update do
+  puts
+  puts "User Input Required!"
+  puts "--------------------"
+  print "About to remove wax directory '#{WAX_PATH}' and replace it with an updated version (y/n) "
+
+  if STDIN.gets !~ /^y/i
+    puts "Exiting... nothing was done!"
+    return
+  end
+
+  tmp_dir = "./_wax-download"
+  rm_rf tmp_dir
+  mkdir_p tmp_dir
+  sh "curl -L http://github.com/probablycorey/wax/tarball/master | tar -C #{tmp_dir} -x -z"
+  rm_rf WAX_PATH
+  sh "mv #{tmp_dir}/* \"#{WAX_PATH}\""
+  rm_rf tmp_dir
+end
+
+desc "Git specific tasks"
+namespace :git do
+
+  desc "make the wax folder a submodule"
+  task :sub do
+    rm_rf WAX_PATH
+    sh "git init"
+    sh "git submodule add git@github.com:probablycorey/wax.git wax"
+  end
+end
+
+desc "Build and run tests on the app"
+task :test do
+  sh "#{WAX_PATH}/bin/hammer --headless WAX_TEST=YES"
+end
+
+desc "Runs a REPL on the current app"
+task :console do
+  sh "#{WAX_PATH}/bin/hammer --headless WAX_REPL=YES"
+end
+
+desc "Build"
+task :build do
+  sh "#{WAX_PATH}/bin/hammer"
+end
+
+desc "Package an adhoc build"
+task :adhoc do
+  #sh "#{WAX_PATH}/bin/hammer clean"
+  #rm_rf "build"
+
+  output = `#{WAX_PATH}/bin/hammer -c 'Ad\\ Hoc' -v`
+  success = ($? == 0)
+  if not success
+    puts output
+  else
+    puts output
+    provisioning_id = output[/PROVISIONING_PROFILE\s+([\w\-]+)/, 1]
+    provisioning_profile = `grep -rl '#{provisioning_id}' '#{ENV['HOME']}/Library/MobileDevice/Provisioning\ Profiles/'`.split("\n").first.strip
+    puts provisioning_id
+
+    raise "Could not find the Ad Hoc provisioning profile matching #{provisioning_id}" if not provisioning_profile or not provisioning_id
+
+    app_file = output[/CODESIGNING_FOLDER_PATH\s+(.*?)$/, 1]
+    executable_name = output[/EXECUTABLE_NAME\s+(.*?)$/, 1]
+    output_dir = "archive"
+    rm_rf output_dir
+    mkdir output_dir
+
+    sh "zip -r #{output_dir}/#{executable_name}.ipa '#{provisioning_profile}' #{app_file}"
+    sh "open #{output_dir}"
+  end
+end
+
+desc "Package a distribution build"
+task :distribution do
+  if not ENV["sdk"]
+    raise "\nYou need to specify an sdk!\nUsage: rake adhoc sdk=iphoneos3.0\n"
+  end
+
+  sh "#{WAX_PATH}/bin/hammer clean"
+  rm_rf "build"
+
+  output = `#{WAX_PATH}/bin/hammer --sdk #{ENV["sdk"]} -c 'Distribution' -v`
+  success = ($? == 0)
+  if not success
+    puts output
+  else
+    timestamp = Time.now.strftime("%m-%d-%y")
+    dir = "distribution-builds/#{timestamp}"
+    rm_rf dir
+    mkdir_p dir
+
+    app_file = Dir["build/Distribution-iphoneos/*.app"]
+
+    sh "mv '#{app_file}' '#{dir}'"
+    sh "cd '#{dir}'; zip -r distribution.zip ./*"
+    sh "open #{dir}"
+  end
+end
+
+desc "Build and run the app"
+task :run do
+  sh "#{WAX_PATH}/bin/hammer --run"
+end
+
+desc "Goes through your lua scripts and updates all the xibs to know about waxClasses"
+task :ib do
+  sh "#{WAX_PATH}/bin/update-xibs"
+end