SCOLLog.cpp

Go to the documentation of this file.

/*
-----------------------------------------------------------------------------
This source file is part of OpenSpace3D
For the latest info, see http://www.openspace3d.com
 
Copyright (c) 2012 I-maginer
 
This program is free software; you can redistribute it and/or modify it under
the terms of the GNU Lesser 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 Lesser General Public License for more details.
 
You should have received a copy of the GNU Lesser 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, or go to
http://www.gnu.org/copyleft/lesser.txt
 
-----------------------------------------------------------------------------
*/
 
/*
 SO3Engine : Wrapper Ogre for SCOL
 First version : nov 2008
*/
 
#include "SCOLPack/SO3SCOL.h"
 
// Renderer includes
#include "SO3Renderer/SO3Root.h"
#include "SO3Renderer/SO3LogListener.h"
 
int SO3LOGS;
int SO3_LOGS_MSG;
 
 
class ScolLogEventsListener : public SLogListener
{
public:
protected:
private:
 
public:
  ScolLogEventsListener()
  {
  };
 
  virtual void messageLogged(const Ogre::String& message)
  {
    char* cmess = (char*)malloc(sizeof(char*) * (message.length() + 1));
    std::strcpy(cmess, message.c_str());
 
    OBJpostEvent(SO3_LOGS_MSG, SCOL_PTR SRoot::getSingletonPtr(), SCOL_PTR cmess);
  }
 
protected:
private:
};
 
 
ScolLogEventsListener* scolLogEventsListener = 0;
 
 
int     destroyLogs(mmachine m, SCOL_PTR_TYPE handle, int obj)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "destroyLogs \n");
#endif
 
  SRoot::getSingleton().SetLogEnable(false);
  MMsetPointer<SRoot*>(m, MTOP(obj), 0);
  return 0;
}
 
 
int getLogCallback(mmachine m, SCOL_PTR_TYPE id, SCOL_PTR_TYPE param)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "getLogCallback\n");
#endif
 
  int k = 0;
  int obj = 0;
 
  if (SRoot::getSingletonPtr() == 0)
    return -1;
 
  // equal to OBJbeginreflex
  // is there a callback assigned to the object?
  obj = OBJfindTH(m, SO3LOGS, id);
  if (obj == NIL)
    return -1;
 
  if (MMfetch(m, obj, OFFOBJREF0 + SO3_LOGS_CB * 2) == NIL)
    return -1;
 
  //equal to OBJpreparereflex but replace the object
  //set the current channel
  MMsetglobal(m, OFFSCCUR, MMfetch(m, obj, OFFOBJCHN));
  if (MMpush(m, MMgetglobal(m, OFFSCCUR))) return MERRMEM;
 
  //push the callback ptr
  if (MMpush(m, MMfetch(m, obj, OFFOBJREF0 + SO3_LOGS_CB * 2))) return MERRMEM;
 
  // replace the object by the log message
  if (Mpushstrbloc(m, (char*)param)) return MERRMEM;
 
  //push the user parameter
  if (MMpush(m, MMfetch(m, obj, OFFOBJREF0 + SO3_LOGS_CB * 2 + 1))) return MERRMEM;
 
  free((char*)param);
  return OBJcallreflex(m, 0);
}
 
 
int SO3CbLogs(mmachine m)
{
#ifdef SO3_DEBUG
  MMechostr(MSKDEBUG, "SO3CbSceneLog\n");
#endif
 
  int flag = MMpull(m);
  int p = MMpull(m);
  int reflex = MMpull(m);
  int   chan = MMget(m, 0);
 
  if (chan == NIL)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  if (SRoot::getSingletonPtr() == 0)
  {
    MMset(m, 0, NIL);
    return 0;
  }
 
  int n = OBJfindTH(m, SO3LOGS, SCOL_PTR SRoot::getSingletonPtr());
  if (n != NIL)
  {
    n = MMfetch(m, n, OFFOBJMAG);
    MMset(m, 0, n);
  }
  else
  {
    if ((MMpushPointer(m, SRoot::getSingletonPtr()) != 0))
    {
      MMset(m, 0, NIL);
      return MERRMEM;
    }
 
    OBJcreate(m, SO3LOGS, SCOL_PTR SRoot::getSingletonPtr(), NIL, 0);
  }
 
 
  Ogre::LogMessageLevel logFlag = Ogre::LML_NORMAL;
  if (flag != NIL)
    logFlag = (Ogre::LogMessageLevel)MTOI(flag);
 
  SRoot::getSingleton().SetLogMask(logFlag);
  SRoot::getSingleton().SetLogEnable(reflex == NIL ? false : true);
 
  MMpush(m, reflex);
  MMpush(m, p);
 
  OBJaddreflex(m, SO3LOGS, SO3_LOGS_CB);
 
  MMset(m, 0, ITOM(1));
 
  return 0;
}
 
 
NativeDefinition natSO3Log[] = {
  { "SO3Logs",   TYPTYPE,  NULL,                              NULL      },
  { "SO3CbLogs", 4,        "fun [Chn fun [S u0] u1 u0 I] I",  SO3CbLogs }
};
 
 
int SCOLloadLogs(mmachine m, cbmachine w)
{
  scolLogEventsListener = new ScolLogEventsListener();
  SRoot::getSingleton().AddLogListener(scolLogEventsListener);
 
  SO3LOGS = OBJregister(1, 1, destroyLogs, "SO3_LOGS");
 
  SO3_LOGS_MSG = OBJgetUserEvent();
  OBJdefEvent(SO3_LOGS_MSG, getLogCallback);
  return PKhardpak2(m, "SO3Log.pkg", sizeof(natSO3Log) / sizeof(natSO3Log[0]), natSO3Log);
}
 
 
int SCOLfreeLogs()
{
  SRoot::getSingleton().RemoveLogListener(scolLogEventsListener);
  SO3_SAFE_DELETE(scolLogEventsListener);
  return 0;
}