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

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/11/29 17:10:10

Modified files:
        src/clone      : clone.c 

Log message:
        Print compile options for siod, guile, lua, and sdl surface

Patches:
Index: stratagus/src/clone/clone.c
diff -u stratagus/src/clone/clone.c:1.229 stratagus/src/clone/clone.c:1.230
--- stratagus/src/clone/clone.c:1.229   Sun Nov 23 14:11:02 2003
+++ stratagus/src/clone/clone.c Sat Nov 29 17:10:09 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: clone.c,v 1.229 2003/11/23 19:11:02 jsalmon3 Exp $
+//     $Id: clone.c,v 1.230 2003/11/29 22:10:09 jsalmon3 Exp $
 
 //@{
 
@@ -394,7 +394,7 @@
 /**
 **     Compute a square root using ints
 **
-**     Uses John Halleck's method, see 
+**     Uses John Halleck's method, see
 **     http://www.cc.utah.edu/~nahaj/factoring/isqrt.legalize.c.html
 **
 **     @param num      Calculate the square root of this number
@@ -417,8 +417,8 @@
     // is even, and the one bit is as far left as is consistant
     // with that condition.)
     //
-    // This portable load replaces the loop that used to be 
-    // here, and was donated by  address@hidden 
+    // This portable load replaces the loop that used to be
+    // here, and was donated by  address@hidden
     //
     squaredbit  = (long)((((unsigned long)~0L) >> 1) & ~(((unsigned long)~0L) 
>> 2));
 
@@ -433,7 +433,7 @@
        } else {
            root >>= 1;
        }
-       squaredbit >>= 2; 
+       squaredbit >>= 2;
     }
 
     return root;
@@ -1210,7 +1210,15 @@
     "\n  SDL Copyright by Sam Lantinga."
 #endif
     "\nCompile options "
-    "CCL "
+#ifdef USE_SIOD
+    "SIOD "
+#endif
+#ifdef USE_GUILE
+    "GUILE "
+#endif
+#ifdef USE_LUA
+    "LUA "
+#endif
 #ifdef USE_THREAD
     "THREAD "
 #endif
@@ -1232,6 +1240,9 @@
 #ifdef USE_SDL
     "SDL "
 #endif
+#ifdef USE_SDL_SURFACE
+    "SDL-SURFACE "
+#endif
 #ifdef USE_SDLA
     "SDL-AUDIO "
 #endif
@@ -1461,9 +1472,9 @@
            case 'c':
                CclStartFile = optarg;
                continue;
-            case 'd':
-                StratagusLibPath = optarg;
-                continue;
+           case 'd':
+               StratagusLibPath = optarg;
+               continue;
            case 'e':
                EditorRunning = 2;
                continue;