[Stratagus-CVS] stratagus/tools wartool.c

[address@hidden]

CVSROOT:        /home/strat
Module name:    stratagus
Changes by:      <address@hidden>       04/01/02 10:12:53

Modified files:
        tools          : wartool.c 

Log message:
        Converted to lua

Patches:
Index: stratagus/tools/wartool.c
diff -u stratagus/tools/wartool.c:1.113 stratagus/tools/wartool.c:1.114
--- stratagus/tools/wartool.c:1.113     Sat Dec 20 16:33:53 2003
+++ stratagus/tools/wartool.c   Fri Jan  2 10:12:52 2004
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: wartool.c,v 1.113 2003/12/20 05:33:53 jsalmon3 Exp $
+//     $Id: wartool.c,v 1.114 2004/01/01 23:12:52 jsalmon3 Exp $
 
 //@{
 
@@ -3900,12 +3900,12 @@
 
        sprintf(buf, "%s/ccl", Dir);
        if (!stat(buf, &st)) {
-               sprintf(buf, "%s/ccl/wc2-config.ccl", Dir);
+               sprintf(buf, "%s/ccl/wc2-config.lua", Dir);
                f = fopen(buf, "w");
                if (expansion_cd) {
-                       fprintf(f, "(define expansion #t)\n");
+                       fprintf(f, "expansion = true\n");
                } else {
-                       fprintf(f, "(define expansion #f)\n");
+                       fprintf(f, "expansion = false\n");
                }
                fclose(f);
        }