path: root/Dalos/Dalos.cc

/* 
 *  Dalos
 *  Copyright (C) 2003-2005 Nicolas "Pixel" Noble 
 * 
 *  This program is free software; you can redistribute it and/or modify 
 *  it under the terms of the GNU General Public License as published by 
 *  the Free Software Foundation; either version 2 of the License, or 
 *  (at your option) any later version. 
 * 
 *  This program is distributed in the hope that it will be useful, 
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of 
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
 *  GNU General Public License for more details. 
 * 
 *  You should have received a copy of the GNU General Public License 
 *  along with this program; if not, write to the Free Software 
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
 */

/* $Id: Dalos.cc,v 1.25 2006-02-09 17:13:31 pixel Exp $ */

#include <SDL.h>
#include <SDL_thread.h>

#include <vector>

#include <Main.h>
#include <Handle.h>
#include <Input.h>
#include <Buffer.h>
#include <BLua.h>
#include <LuaHandle.h>
#include <LuaConfigFile.h>
#include <LuaRegex.h>
#include <LuaGL.h>

#include <engine.h>
#include <glbase.h>
#include <glshape.h>
#include <font.h>

#include <luacd.h>
#include <luapsx.h>

#include <Console.h>
#include <Hexview.h>

#include "cd-tool-hc.h"

#ifdef __MINGW32__
#define main SDL_main
#endif


// all these global variables are ugly...
bool auto_exec = true;
bool lua_started = false;
bool do_lua_break = false;
bool do_lua_pause = false;
bool lua_paused = false;

Lua * L;

CODE_BEGINS

mogltk::widgets::Root * Root;
mogltk::widget * Frame, * MainPanel;
mogltk::widgets::Menu * MainMenu;

class threaded_Lua : public Lua {
  public:
      threaded_Lua() : mutex(SDL_CreateMutex()) { }
      virtual ~threaded_Lua() { SDL_DestroyMutex(mutex); }
    virtual void lock() {
        SDL_mutexP(mutex);
    }
    virtual void unlock() {
        SDL_mutexV(mutex);
    }
  protected:
    virtual Lua * spawn_from_thread(lua_State * __L) {
        return new threaded_Lua(__L);
    }
  private:
      threaded_Lua(lua_State * __L) : Lua(__L) { }
    SDL_mutex * mutex;
};

class threaded_locker : public locker_t {
  public:
      threaded_locker() : mutex(SDL_CreateMutex()) { }
      virtual ~threaded_locker() { SDL_DestroyMutex(mutex); }
    virtual void lock() {
        SDL_mutexP(mutex);
    }
    virtual void unlock() {
        SDL_mutexV(mutex);
    }
  private:
    SDL_mutex * mutex;
};

static int lua_print(lua_State * __L) {
    Lua * L = Lua::find(__L);
    String t = L->tostring() + "\n";
    char * tc = t.strdup();

    printm(M_STATUS, "%s", tc);

    free(tc);
    
    return 0;
}

static void lua_hook(lua_State * __L, lua_Debug * ar) {
    if (!lua_started)
        return;
    Lua * L = Lua::find(__L);

    if (do_lua_break) {
        L->do_break();
        do_lua_break = false;
    }

    if (do_lua_pause) {
        L->yield();
        do_lua_pause = false;
        lua_paused = true;
    }
}

void start_lua() {
    Lua * L1;
    L = new threaded_Lua();
    bool use_builtin_cdtool = false;
    
    L->lock();

    L->open_base();
    L->open_math();
    L->open_string();
    L->open_table();
    
    LuaInput::pushconstruct(L);
    LuaOutput::pushconstruct(L);
    LuaBuffer::pushconstruct(L);

    LuaConfigFile::pushstatics(L);
    LuaRegex::pushstatics(L);
    
    CD_PUSHSTATICS(L);
    Luapsx::pushstatics(L);

    luaopen_opengl(L);
    L->pop();
    
    L->push("print");
    L->push(lua_print);
    L->setvar();

    L->unlock();
    
    console_lock = SDL_CreateMutex();
    console_sem = SDL_CreateSemaphore(0);
    
    try {
        L->load(&Input("cd-tool.lua"));
    } catch (GeneralException e) {
        printm(M_WARNING, "There was an error loading cd-tool.lua: %s, using built-in.\n", e.GetMsg());
        use_builtin_cdtool = true;
    }
    
    if (use_builtin_cdtool) {
        Buffer built;
        built.write(cd_tool_lua, cd_tool_lua_size);
        try {
            L->load(&built);
        }
        catch (GeneralException e) {
            printm(M_WARNING, "There was an error loading built-in cd-tool.lua: %s\n", e.GetMsg());
        }
    }

    L1 = L->thread();
    L1->sethook(lua_hook, LUA_MASKLINE, 0);
    SDL_CreateThread(LuaThread, L1);
}

static int LuaThread(void * d) {
    Lua * L = (Lua *) d;
    while (true) {
        SDL_SemWait(console_sem);
        lua_started = true;
        SDL_mutexP(console_lock);
        try {
            L->resume(&console_buffer);
        }
        catch (LuaException e) {
            /* If there was an error, ignore it, and free the stack */
            while(L->gettop())
                L->pop();
        }
        catch (GeneralException e) {
            /* A more severe exception... */
            while(L->gettop())
                L->pop();
            printm(M_ERROR, "Aborted. LUA caused the following exception: %s\n", e.GetMsg());
        }
        SDL_mutexV(console_lock);
        lua_started = false;
    }
}

class myprinter : public printer_t {
  public:
      myprinter() : lock(SDL_CreateMutex()) { }
      virtual ~myprinter() { SDL_DestroyMutex(lock); }
    virtual bool printm(int level, const char * m, va_list ap) {
        static const String heads[] = {"EE", "--", "WW", "II"};
        static char buffer[20480];
        
        if (level >= M_INFO)
            return true;
        
        SDL_mutexP(lock);
        
        vsnprintf(buffer, 20479, m, ap);
        if (level >= 0) 
            CurrentConsole->add_line("(" + heads[level] + ") " + buffer);
        else
            CurrentConsole->add_line(buffer);
        
        SDL_mutexV(lock);
        
        return true;
    }
  private:
    SDL_mutex * lock;
};

class frame : public mogltk::widget {
  public:
      frame(mogltk::shape * sh, mogltk::widget * father) :
        widget(father, 2, 2, father->GetW() - 4, father->GetH() - 4, 0, "MyFrame", sh) { }
  protected:
    virtual void draw() {
    }
    virtual mogltk::rect GetDrawRect() {
	mogltk::rect r;

	r.x = GetX() + 2;
	r.y = GetY() + 2;
	r.w = GetW() - 4;
	r.h = GetH() - 4;

	return r;
    }
    virtual bool process_event(int mx, int my, mogltk::event_t event) {
        mx -= GetAX();
        my -= GetAY();
        return false;
    }
    virtual void resize_notify() {
        resize(Father()->GetW() - 4, Father()->GetH() - 4);
    }
};

class timer : public mogltk::widget {
  public:
      timer() :
        widget(Application->Root, 0, 0, 0, 0, 0, "Timer", 0), tick(0)
        { set_timed_event(100); }
  protected:
    virtual bool process_event(int, int, mogltk::event_t event) {
        if (event == mogltk::E_TIMER) {
            set_timed_event(100);
            tick = (tick + 1) % 4;
            switch (tick) {
            case 0:
                Application->MainMenu->SetCaption(0, "/");
                break;
            case 1:
                Application->MainMenu->SetCaption(0, "-");
                break;
            case 2:
                Application->MainMenu->SetCaption(0, "\\");
                break;
            case 3:
                Application->MainMenu->SetCaption(0, "I");
                break;
            }
            String fps;
            fps.set("FPS: %6.2f", mogltk::engine::FPS());
            Application->MainMenu->SetCaption(3, fps);

            L->resume("fps = " + String(mogltk::engine::FPS()));
            L->resume("tick = " + String(tick));

            return true;
        }
        return false;
    }
  private:
    int tick;
};

class quit : public mogltk::widgets::action {
  public:
    virtual void do_action(mogltk::widget * w) {
        mogltk::engine::quit();
    }
} action_quit;

class about : public mogltk::widgets::action {
  public:
    virtual void do_action(mogltk::widget * w) {
        new mogltk::widgets::MsgBox(0, w->Shaper(), w->Father(), "About...",
            "Dalos version 0.1 - OpenGL version\n"
            "Copyright (C) 2004-2005 Nicolas \"Pixel\" Noble\n"
            "\n"
            "Thanks and greetings fly to (no particular order)\n"
            "GreatSkaori, Orphis, Ti Dragon, Yaz0r, S-O-R,\n"
            "Meradrin, SkeuD, Moogle, InVerse, LavosSpawn\n"
            "\n"
            "And to all I forgot!\n"
        );
    }
} about_dialog;

virtual int startup() throw (GeneralException) {
    verbosity = M_INFO;
    try {
        new Archive(argv[0], ARCHIVE_EXECUTABLE);
    }
    catch (...) {
        printm(M_INFO, "Built-in data file unreadable, looking for external .paq file.\n");
        new Archive("Dalos.paq");
    }
    
    mogltk::widgets::ContextMenu * c;
#if 1
    mogltk::base * gl = new mogltk::glbase();
#else
    mogltk::base * gl = new mogltk::glbase(800, 600, SDL_FULLSCREEN);
#endif
    mogltk::shape * sh = new mogltk::glshape();

    SDL_EnableKeyRepeat(250, 40);
    
    mogltk::engine::setcursorvisible(true);
    mogltk::engine::setappactive(true);

    Root = new mogltk::widgets::Root(sh);
    MainPanel = Root->InnerPanel();
    MainMenu = new mogltk::widgets::Menu(sh, MainPanel);
    Frame = new frame(sh, new mogltk::widgets::Frame(sh, MainPanel, 0, MainMenu->GetH(), Root->GetW() - 1, Root->GetH() - MainMenu->GetH() - 1));

    mogltk::widget * box = new mogltk::widgets::SmartBoxClose(sh, MainPanel, 50, 50, 500, 400, "Hexview");
    (new hexview(sh, box->InnerPanel()))->bind_handle(new Input(argv[0]));

    CurrentConsole = new console(sh, Root, 0, 8);
    console::create_console_thread();
    CurrentConsole->move(0, Root->GetH() - CurrentConsole->GetH());
    CurrentConsole->add_line("Dalos v0.1 - LUA console - Press ESC to show/hide it.");
//    CurrentConsole->SetVisible(true);
    
    printer = new myprinter();
    locker = new threaded_locker();

    start_lua();
    
    // Filling menu.
    MainMenu->addnode("/", 0);

    c = MainMenu->createsub("File");
    c->addnode("Quit", &action_quit);

    c = MainMenu->createsub("Help");
    c->addnode("About", &about_dialog);
    
    MainMenu->addnode("FPS:", 0);

    new timer();

    // Setting up the key event handlers
    new hexview::hexview_keyevent;
    new console::console_keyevent; // Should be one of the last

//    new mogltk::widgets::InputDialog(0, sh, MainPanel, "Test", "blah blah blah");

    // And launching the main loop
    Root->mainloop();
    
    // Should cleanup here... nevermind ;)

    return 0;
}

CODE_ENDS