nlua_music.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include "nlua_music.h"
 
#include "music.h"
#include "nluadef.h"
 
/* Music methods. */
static int musicL_choose( lua_State *L );
static int musicL_play( lua_State *L );
static int musicL_pause( lua_State *L );
static int musicL_stop( lua_State *L );
static int musicL_isPlaying( lua_State *L );
static int musicL_current( lua_State *L );
static int musicL_getVolume( lua_State *L );
 
static const luaL_Reg music_methods[] = {
   { "choose", musicL_choose },
   { "play", musicL_play },
   { "pause", musicL_pause },
   { "stop", musicL_stop },
   { "isPlaying", musicL_isPlaying },
   { "current", musicL_current },
   { "getVolume", musicL_getVolume },
   { 0, 0 } }; 

int nlua_loadMusic( nlua_env env )
{
   nlua_register( env, "music", music_methods, 0 );
   return 0;
}

static int musicL_choose( lua_State *L )
{
   const char *situation = luaL_checkstring( L, 1 );
   if ( music_choose( situation ) )
      return NLUA_ERROR( L, "music.choose failed!" );
   return 0;
}

static int musicL_play( lua_State *L )
{
   const char *str = luaL_optstring( L, 1, NULL );
   if ( music_play( str ) )
      return NLUA_ERROR( L, "music.play failed!" );
   return 0;
}

static int musicL_pause( lua_State *L )
{
   int disable = lua_toboolean( L, 1 );
   if ( music_pause( disable ) )
      return NLUA_ERROR( L, "music.pause failed!" );
   return 0;
}

static int musicL_stop( lua_State *L )
{
   int disable = lua_toboolean( L, 1 );
   if ( music_stop( disable ) )
      return NLUA_ERROR( L, "music.stop failed!" );
   return 0;
}

static int musicL_isPlaying( lua_State *L )
{
   if ( music_disabled ) {
      lua_pushboolean( L, 0 );
   } else {
      MusicInfo_t *minfo = music_info();
      if ( minfo == NULL )
         return NLUA_ERROR( L, "Failed to get music info!" );
      lua_pushboolean( L, minfo->playing );
   }
   return 1;
}

static int musicL_current( lua_State *L )
{
   if ( music_disabled ) {
      lua_pushstring( L, "none" );
      lua_pushnumber( L, -1. );
   } else {
      MusicInfo_t *minfo = music_info();
      if ( minfo == NULL )
         return NLUA_ERROR( L, "Failed to get music info!" );
      lua_pushstring( L, minfo->name );
      lua_pushnumber( L, minfo->pos );
   }
   return 2;
}

static int musicL_getVolume( lua_State *L )
{
   if ( lua_toboolean( L, 1 ) )
      lua_pushnumber( L, music_getVolumeLog() );
   else
      lua_pushnumber( L, music_getVolume() );
   return 1;
}