[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/src/include ccl.h
From: |
Jimmy Salmon |
Subject: |
[Stratagus-CVS] stratagus/src/include ccl.h |
Date: |
Mon, 01 Dec 2003 23:03:09 -0500 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] stratagus/src/include ccl.h,
Jimmy Salmon <=