[Stratagus-CVS] stratagus/src clone/ccl_helpers.c network/comma...

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/11/14 15:20:47

Modified files:
        src/clone      : ccl_helpers.c 
        src/network    : commands.c 

Log message:
        Fixed WITH_LUA errors

Patches:
Index: stratagus/src/clone/ccl_helpers.c
diff -u stratagus/src/clone/ccl_helpers.c:1.8 
stratagus/src/clone/ccl_helpers.c:1.9
--- stratagus/src/clone/ccl_helpers.c:1.8       Fri Nov 14 11:47:41 2003
+++ stratagus/src/clone/ccl_helpers.c   Fri Nov 14 15:20:46 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: ccl_helpers.c,v 1.8 2003/11/14 16:47:41 pludov Exp $
+//      $Id: ccl_helpers.c,v 1.9 2003/11/14 20:20:46 jsalmon3 Exp $
 
 //@{
 
@@ -43,7 +43,6 @@
 #include "ai.h"
 #include "ccl_helpers.h"
 
-#if defined(USE_GUILE) || defined(USE_SIOD)
 /*----------------------------------------------------------------------------
 --     Functions
 ----------------------------------------------------------------------------*/
@@ -53,6 +52,7 @@
 global unsigned int IOTabLevel;
 global CLFile *IOOutFile;
 
+#if defined(USE_GUILE) || defined(USE_SIOD)
 /**
 **     Output tabs when saving a ccl value
 */
Index: stratagus/src/network/commands.c
diff -u stratagus/src/network/commands.c:1.77 
stratagus/src/network/commands.c:1.78
--- stratagus/src/network/commands.c:1.77       Fri Nov 14 11:51:18 2003
+++ stratagus/src/network/commands.c    Fri Nov 14 15:20:47 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: commands.c,v 1.77 2003/11/14 16:51:18 pludov Exp $
+//     $Id: commands.c,v 1.78 2003/11/14 20:20:47 jsalmon3 Exp $
 
 //@{
 
@@ -127,6 +127,7 @@
 //     Constants
 //----------------------------------------------------------------------------
 
+#if defined(USE_GUILE) || defined(USE_SIOD)
 /// Description of the LogEntry structure 
 static IOStructDef LogEntryStructDef = {
     "LogEntry",
@@ -190,6 +191,7 @@
        {0, 0, 0, 0}
     }
 };
+#endif
 
 //----------------------------------------------------------------------------
 //     Variables
@@ -236,7 +238,7 @@
 
     replay->Comment1 = strdup("Generated by Stratagus Version " VERSION 
"\"\n");
     replay->Comment2 = strdup("Visit http://Stratagus.Org for more 
information\"\n");
-    replay->Comment3 = strdup("$Id: commands.c,v 1.77 2003/11/14 16:51:18 
pludov Exp $");
+    replay->Comment3 = strdup("$Id: commands.c,v 1.78 2003/11/14 20:20:47 
jsalmon3 Exp $");
     
     if (GameSettings.NetGameType == SettingsSinglePlayerGame) {
        replay->Type = ReplaySinglePlayer;
@@ -358,11 +360,7 @@
 
 #if defined(USE_GUILE) || defined(USE_SIOD)
     CLprintf(dest, "(replay-log (quote\n");
-#endif
-
     IOStructPtr(SCM_UNSPECIFIED, (void*)&CurrentReplay, 
(void*)&FullReplayStructDef);
-
-#if defined(USE_GUILE) || defined(USE_SIOD)
     CLprintf(dest, "))\n");
 #endif
     // FIXME : IODone();
@@ -398,9 +396,7 @@
     IOTabLevel = 2;
 #if defined(USE_GUILE) || defined(USE_SIOD)
     CLprintf(LogFile, "(log (quote ");
-#endif
     IOLinkedList(SCM_UNSPECIFIED, (void*)&log, (void*)&LogEntryStructDef);
-#if defined(USE_GUILE) || defined(USE_SIOD)
     CLprintf(LogFile,"))\n");
 #endif
     CLflush(LogFile);