[Stratagus-CVS] stratagus/src/include ccl.h

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/12/01 23:03:09

Modified files:
        src/include    : ccl.h 

Log message:
        Added LuaUserData

Patches:
Index: stratagus/src/include/ccl.h
diff -u stratagus/src/include/ccl.h:1.44 stratagus/src/include/ccl.h:1.45
--- stratagus/src/include/ccl.h:1.44    Thu Nov 20 12:21:34 2003
+++ stratagus/src/include/ccl.h Mon Dec  1 23:03:08 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl.h,v 1.44 2003/11/20 17:21:34 jsalmon3 Exp $
+//     $Id: ccl.h,v 1.45 2003/12/02 04:03:08 jsalmon3 Exp $
 
 #ifndef __CCL_H__
 #define __CCL_H__
@@ -61,7 +61,7 @@
 #  define gh_new_procedureN(name, proc) gh_new_procedure(name, proc, 0, 0, 1)
 #  define aset1(array, pos, value)      gh_vector_set_x(array, pos, value)
 #  define repl_c_string(msg, a, b, c  ) gh_eval_str(msg)
-#  define print_welcome()         
+#  define print_welcome()
 #  define gh_scm2newstr(scm, lenp) \
   (gh_symbol_p(scm) ? gh_symbol2newstr(scm, lenp) : gh_scm2newstr(scm,lenp))
 #  define gh_scm2int(val) \
@@ -150,7 +150,7 @@
 #define SCM_BOOL_T     sym_t
 #define SCM_BOOL_F     NIL
 
-#define gh_vector_set_x(array, pos, value) aset1(array, pos, value) 
+#define gh_vector_set_x(array, pos, value) aset1(array, pos, value)
 
 extern LISP sym_t;
 typedef long ccl_smob_type_t;
@@ -162,6 +162,16 @@
 #include "lua.h"
 #include "lauxlib.h"
 #include "lualib.h"
+
+typedef struct _lua_user_data_ {
+    int Type;
+    void* Data;
+} LuaUserData;
+
+enum {
+    LuaUnitType = 100,
+    LuaSoundType,
+};
 
 extern lua_State* Lua;