main.cpp

   1 /*
   2 LuaGame Game Execution Environment
   3 ----------------------------------
   4
   5 Copyright (c)2006-2007 - Brett Lajzer
   6
   7 See LICENSE for license information.
   8 */
   9
  10 #include <iostream>
  11 #include <list>
  12 #include <string>
  13 #include "lua.hpp"
  14 #include "SDL/SDL.h"
  15 #include "globals.h"
  16 #include "SoundEngine.h"
  17 #include "funcs.h"
  18 #include "funcs_input.h"
  19 #include "funcs_video.h"
  20 #include "funcs_sound.h"
  21 #include "funcs_font.h"
  22 #include "funcs_draw.h"
  23
  24 using namespace std; //don't cry about this. really.
  25
  26 int main(int argc, char *argv[]){
  27
  28     //get path from the command line
  29         //or print usage info if the arg is --help or -h
  30         if(argc == 2){
  31         if(string(argv[1])=="-h" || string(argv[1])=="--help"){
  32             print_usage(string(argv[0]));
  33             return 0;
  34         }else{
  35             if(chdir(argv[1])==-1){
  36                                 perror("");
  37                                 return 1;
  38                         }
  39         }
  40         }
  41
  42     //init Lua
  43     lua_State *L = luaL_newstate();
  44     luaL_openlibs(L);
  45
  46     //init SDL
  47     SDL_Init(SDL_INIT_EVERYTHING);
  48
  49     //initialize audio
  50     SoundEngine::open();
  51
  52     //initialize fonts
  53     TTF_Init();
  54
  55     //load up configuration file and create screen surface
  56     screen = load_config(L, string(argv[0]));
  57     if(!screen){ //die
  58       cerr << "Error: Cannot create video surface. \n";
  59       SDL_Quit();
  60       lua_close(L);
  61       return 1;
  62     }
  63
  64     //register functions with lua
  65     lua_pushcfunction(L, l_getimage);
  66     lua_setglobal(L, "get_image");
  67
  68     lua_pushcfunction(L, l_releaseimage);
  69     lua_setglobal(L, "release_image");
  70
  71     lua_pushcfunction(L, l_flip);
  72     lua_setglobal(L, "update_screen");
  73
  74     lua_pushcfunction(L, l_blit);
  75     lua_setglobal(L, "blit");
  76
  77     lua_pushcfunction(L, l_blitframe);
  78     lua_setglobal(L, "blit_frame");
  79
  80     lua_pushcfunction(L, l_mouse_state);
  81     lua_setglobal(L, "mouse_state");
  82
  83     lua_pushcfunction(L, l_show_cursor);
  84     lua_setglobal(L, "show_cursor");
  85
  86     lua_pushcfunction(L, l_fill_screen);
  87     lua_setglobal(L, "fill_screen");
  88
  89     lua_pushcfunction(L, l_delete_image);
  90     lua_setglobal(L, "delete_image");
  91
  92     lua_pushcfunction(L, l_rotzoom);
  93     lua_setglobal(L, "rotzoom");
  94
  95     lua_pushcfunction(L, l_playsample);
  96     lua_setglobal(L, "play_sample");
  97
  98     lua_pushcfunction(L, l_playmusic);
  99     lua_setglobal(L, "play_music");
 100
 101     lua_pushcfunction(L, l_stopmusic);
 102     lua_setglobal(L, "stop_music");
 103
 104     lua_pushcfunction(L, l_load_font);
 105     lua_setglobal(L, "load_font");
 106
 107     lua_pushcfunction(L, l_close_font);
 108     lua_setglobal(L, "unload_font");
 109
 110     lua_pushcfunction(L, l_font_string_metrics);
 111     lua_setglobal(L, "rendered_string_size");
 112
 113     lua_pushcfunction(L, l_render_string);
 114     lua_setglobal(L, "render_string");
 115
 116     lua_pushcfunction(L, l_get_event);
 117     lua_setglobal(L, "get_event");
 118
 119     lua_pushcfunction(L, l_getticks);
 120     lua_setglobal(L, "get_ticks");
 121
 122     lua_pushcfunction(L, l_delay);
 123     lua_setglobal(L, "delay");
 124
 125     lua_pushcfunction(L, l_num_joysticks);
 126     lua_setglobal(L, "num_joysticks");
 127
 128     //draw functions
 129     lua_pushcfunction(L, l_draw_pixel);
 130     lua_setglobal(L, "draw_pixel");
 131
 132     lua_pushcfunction(L, l_draw_line);
 133     lua_setglobal(L, "draw_line");
 134
 135     lua_pushcfunction(L, l_draw_rect);
 136     lua_setglobal(L, "draw_rect");
 137
 138     lua_pushcfunction(L, l_draw_frect);
 139     lua_setglobal(L, "draw_filled_rect");
 140
 141     lua_pushcfunction(L, l_draw_circle);
 142     lua_setglobal(L, "draw_circle");
 143
 144     lua_pushcfunction(L, l_draw_fcircle);
 145     lua_setglobal(L, "draw_filled_circle");
 146
 147     lua_pushcfunction(L, l_draw_ellipse);
 148     lua_setglobal(L, "draw_ellipse");
 149
 150     lua_pushcfunction(L, l_draw_fellipse);
 151     lua_setglobal(L, "draw_filled_ellipse");
 152
 153
 154     //force joystick event handling on
 155     SDL_JoystickEventState(SDL_ENABLE);
 156
 157     //open up all available joysticks
 158     std::list<SDL_Joystick*> joystick_list;
 159     for(int i=0; i < SDL_NumJoysticks(); i++){
 160         joystick_list.push_back(SDL_JoystickOpen(i));
 161         std::cout << "Opened Joystick: " << SDL_JoystickName(i) << std::endl;
 162     }
 163
 164     //nil bits of the os table for safety reasons
 165     luaL_loadstring(L, "os.execute=nil os.exit=nil os.remove=nil os.rename=nil os.tmpname=nil");
 166     lua_pcall(L, 0, 0, 0);
 167
 168     //load up the main script into the lua environment
 169     //and make it all happen
 170     int error_main = luaL_loadfile(L, "base/init.lua") ||
 171         lua_pcall(L, 0, 0, 0);
 172
 173     if ( error_main) { // die a horrible death b/c we can't run without that file
 174         cerr << lua_tostring(L, -1) << "\n";
 175         lua_pop(L,1);
 176
 177         //close any opened joysticks
 178         for(std::list<SDL_Joystick*>::iterator it=joystick_list.begin(); it != joystick_list.end(); it++){
 179             SDL_JoystickClose(*it);
 180         }
 181
 182         //end it all
 183         TTF_Quit();
 184         SoundEngine::close();
 185         clear_images();
 186         SDL_Quit();
 187         lua_close(L);
 188         return 1;
 189     }
 190
 191     //close any opened joysticks
 192     for(std::list<SDL_Joystick*>::iterator it=joystick_list.begin(); it != joystick_list.end(); it++){
 193         SDL_JoystickClose(*it);
 194     }
 195
 196
 197     //end fonts
 198     TTF_Quit();
 199
 200     //close audio
 201     SoundEngine::close();
 202
 203     //cleanup image store
 204     clear_images();
 205
 206     //kill sdl
 207     SDL_Quit();
 208
 209     //kill lua
 210     lua_close(L);
 211
 212     return 0;
 213 }