[Stratagus-CVS] stratagus/src/sound ccl_sound.c sound_server.c

[Jimmy Salmon]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Jimmy Salmon <address@hidden>   03/11/12 15:26:52

Modified files:
        src/sound      : ccl_sound.c sound_server.c 

Log message:
        Started lua support

Patches:
Index: stratagus/src/sound/ccl_sound.c
diff -u stratagus/src/sound/ccl_sound.c:1.55 
stratagus/src/sound/ccl_sound.c:1.56
--- stratagus/src/sound/ccl_sound.c:1.55        Fri Oct 31 01:18:56 2003
+++ stratagus/src/sound/ccl_sound.c     Wed Nov 12 15:26:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_sound.c,v 1.55 2003/10/31 06:18:56 jsalmon3 Exp $
+//     $Id: ccl_sound.c,v 1.56 2003/11/12 20:26:52 jsalmon3 Exp $
 
 //@{
 
@@ -57,10 +57,13 @@
 ** C representation for the siod sound type
 ** ALPHA VERSION!!!!!!!!!
 */
+#if defined(USE_GUILE) || defined(USE_SIOD)
 local ccl_smob_type_t SiodSoundTag;
 
 #define CCL_SOUNDP(x)  (CclGetSmobType(x) == SiodSoundTag)
 #define CCL_SOUND_ID(x) ((SoundId)CclGetSmobData(x))
+#elif defined(USE_LUA)
+#endif
 
 /*----------------------------------------------------------------------------
 --     Functions
@@ -73,6 +76,7 @@
 **
 **     @return         its siod version
 */
+#if defined(USE_GUILE) || defined(USE_SIOD)
 local SCM sound_id_ccl(SoundId id)
 {
     SCM sound_id;
@@ -675,12 +679,15 @@
 
     return SCM_UNSPECIFIED;
 }
+#elif defined(USE_LUA)
+#endif
 
 /**
 **     Register CCL features for sound.
 */
 global void SoundCclRegister(void)
 {
+#if defined(USE_GUILE) || defined(USE_SIOD)
     SiodSoundTag = CclMakeSmobType("Sound");
 
     gh_new_procedure1_0("set-sound-volume!", CclSetSoundVolume);
@@ -707,6 +714,7 @@
     gh_new_procedure1_0("play-music", CclPlayMusic);
     gh_new_procedure1_0("play-file", CclPlayFile);
     gh_new_procedure0_0("stop-music", CclStopMusic);
+#endif
 }
 
 #else  // }{ WITH_SOUND
Index: stratagus/src/sound/sound_server.c
diff -u stratagus/src/sound/sound_server.c:1.125 
stratagus/src/sound/sound_server.c:1.126
--- stratagus/src/sound/sound_server.c:1.125    Mon Nov  3 06:09:52 2003
+++ stratagus/src/sound/sound_server.c  Wed Nov 12 15:26:52 2003
@@ -27,7 +27,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: sound_server.c,v 1.125 2003/11/03 11:09:52 pludov Exp $
+//     $Id: sound_server.c,v 1.126 2003/11/12 20:26:52 jsalmon3 Exp $
 
 //@{
 
@@ -152,6 +152,7 @@
 */
 global void PlayListAdvance(void)
 {
+#if defined(USE_GUILE) || defined(USE_SIOD)
     int proceed;
     SCM cb;
     SCM value;
@@ -175,6 +176,8 @@
            }
        }
     }
+#elif defined(USE_LUA)
+#endif
 }
 
 /**