stratagus-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Stratagus-CVS] stratagus/src/game trigger.c


From: address@hidden
Subject: [Stratagus-CVS] stratagus/src/game trigger.c
Date: 6 Jan 2004 03:17:42 +1100

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       04/01/06 03:17:42

Modified files:
        src/game       : trigger.c 

Log message:
        Clean up triggers

Patches:
Index: stratagus/src/game/trigger.c
diff -u stratagus/src/game/trigger.c:1.54 stratagus/src/game/trigger.c:1.55
--- stratagus/src/game/trigger.c:1.54   Sat Jan  3 11:27:32 2004
+++ stratagus/src/game/trigger.c        Tue Jan  6 03:17:41 2004
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: trigger.c,v 1.54 2004/01/03 00:27:32 jsalmon3 Exp $
+//      $Id: trigger.c,v 1.55 2004/01/05 16:17:41 jsalmon3 Exp $
 
 //@{
 
@@ -1314,7 +1314,7 @@
        int trigger;
 
        CLprintf(file, "\n;;; -----------------------------------------\n");
-       CLprintf(file, ";;; MODULE: trigger $Id: trigger.c,v 1.54 2004/01/03 
00:27:32 jsalmon3 Exp $\n\n");
+       CLprintf(file, ";;; MODULE: trigger $Id: trigger.c,v 1.55 2004/01/05 
16:17:41 jsalmon3 Exp $\n\n");
 
        i = 0;
        trigger = -1;
@@ -1372,17 +1372,11 @@
 */
 global void CleanTriggers(void)
 {
-#if defined(USE_GUILE) || defined(USE_SIOD)
-       SCM var;
-
-       DebugLevel0Fn("FIXME: Cleaning trigger not written\n");
-
-       var = gh_symbol2scm("*triggers*");
-       setvar(var, NIL, NIL);
+       lua_pushstring(Lua, "_triggers_");
+       lua_pushnil(Lua);
+       lua_settable(Lua, LUA_GLOBALSINDEX);
 
-       CclGcProtectedAssign(&Trigger, NULL);
-#elif defined(USE_LUA)
-#endif
+       Trigger = 0;
 
        memset(&GameTimer, 0, sizeof(GameTimer));
 }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]