[Stratagus-CVS] stratagus/src/clone ccl.c

[Jimmy Salmon]

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

Modified files:
        src/clone      : ccl.c 

Log message:
        Clean up lua

Patches:
Index: stratagus/src/clone/ccl.c
diff -u stratagus/src/clone/ccl.c:1.143 stratagus/src/clone/ccl.c:1.144
--- stratagus/src/clone/ccl.c:1.143     Mon Dec  1 20:21:56 2003
+++ stratagus/src/clone/ccl.c   Mon Dec  1 23:06:23 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl.c,v 1.143 2003/12/02 01:21:56 jsalmon3 Exp $
+//     $Id: ccl.c,v 1.144 2003/12/02 04:06:23 jsalmon3 Exp $
 
 //@{
 
@@ -256,7 +256,6 @@
     }
 #endif
 }
-#elif defined(USE_LUA)
 #endif
 
 /**
@@ -279,7 +278,6 @@
     return TYPE(smob);
 #endif
 }
-#elif defined(USE_LUA)
 #endif
 
 /**
@@ -298,7 +296,6 @@
     return smob->storage_as.cons.cdr;
 #endif
 }
-#elif defined(USE_LUA)
 #endif
 
 /**
@@ -322,7 +319,6 @@
     return value;
 #endif
 }
-#elif defined(USE_LUA)
 #endif
 
 /**
@@ -345,7 +341,6 @@
 
   return new_type;
 }
-#elif defined(USE_LUA)
 #endif
 
 
@@ -2017,7 +2012,7 @@
     }
 
     fprintf(fd, ";;; -----------------------------------------\n");
-    fprintf(fd, ";;; $Id: ccl.c,v 1.143 2003/12/02 01:21:56 jsalmon3 Exp $\n");
+    fprintf(fd, ";;; $Id: ccl.c,v 1.144 2003/12/02 04:06:23 jsalmon3 Exp $\n");
 
     fprintf(fd, "(set-video-resolution! %d %d)\n", VideoWidth, VideoHeight);
     fprintf(fd, "(set-group-keys \"");
@@ -2049,7 +2044,7 @@
     }
 
     fprintf(fd, "--- -----------------------------------------\n");
-    fprintf(fd, "--- $Id: ccl.c,v 1.143 2003/12/02 01:21:56 jsalmon3 Exp $\n");
+    fprintf(fd, "--- $Id: ccl.c,v 1.144 2003/12/02 04:06:23 jsalmon3 Exp $\n");
 
     fprintf(fd, "SetVideoResolution(%d, %d)\n", VideoWidth, VideoHeight);
     fprintf(fd, "SetGroupKeys(\"");
@@ -2087,7 +2082,7 @@
     }
 
     fprintf(fd, ";;; -----------------------------------------\n");
-    fprintf(fd, ";;; $Id: ccl.c,v 1.143 2003/12/02 01:21:56 jsalmon3 Exp $\n");
+    fprintf(fd, ";;; $Id: ccl.c,v 1.144 2003/12/02 04:06:23 jsalmon3 Exp $\n");
 
     // Global options
     if (OriginalFogOfWar) {
@@ -2168,7 +2163,7 @@
     }
 
     fprintf(fd, "--- -----------------------------------------\n");
-    fprintf(fd, "--- $Id: ccl.c,v 1.143 2003/12/02 01:21:56 jsalmon3 Exp $\n");
+    fprintf(fd, "--- $Id: ccl.c,v 1.144 2003/12/02 04:06:23 jsalmon3 Exp $\n");
 
     // Global options
     if (OriginalFogOfWar) {
@@ -2291,7 +2286,7 @@
     extern SCM oblistvar;
 
     CLprintf(file, "\n;;; -----------------------------------------\n");
-    CLprintf(file, ";;; MODULE: CCL $Id: ccl.c,v 1.143 2003/12/02 01:21:56 
jsalmon3 Exp $\n\n");
+    CLprintf(file, ";;; MODULE: CCL $Id: ccl.c,v 1.144 2003/12/02 04:06:23 
jsalmon3 Exp $\n\n");
 
     for (list = oblistvar; gh_list_p(list); list = gh_cdr(list)) {
        SCM sym;