luaScriptInterfaceImpl.h

Go to the documentation of this file.

/*******************************************************************************
** Copyright (c) 2013 MAK Technologies, Inc.
** All rights reserved.
*******************************************************************************/
#pragma once

#include <vrfLua/vrfLuaDefines.h>
#include <vrfLua/luaFeatureSet.h>
#include <vrfLua/luaPathJob.h>

#include "vrfobjcore/scriptInterface.h"
#include "vrfutil/scriptGeometry.h"
#include "vrfobjcore/scriptVrfObject.h"
#include <luabind/luabind.hpp>
#include <vrfobjcore/luaScriptInterfaceExtension.h>
//TMP
#include <vrfcore/simMgr.h>
#include <vrfcore/exClock.h>

#include <lua.hpp>
#include <lauxlib.h>
#include <lualib.h>

class DT_DLL_vrfLua DtLuaScriptInterfaceImpl : public DtScriptInterface
{
protected:
   DtLuaScriptInterfaceImpl();

   DtLuaScriptInterfaceImpl(const DtLuaScriptInterfaceImpl& other);
   DtLuaScriptInterfaceImpl& operator=(const DtLuaScriptInterfaceImpl& other);

public:
   virtual ~DtLuaScriptInterfaceImpl();

   static DtScriptInterface* creator();

   virtual void init();

   virtual DtString type() const;

   virtual bool invokeInit();
   virtual void invokeSuspend();
   virtual bool invokeResume();
   virtual void invokeTick();
   virtual bool invokeCheck();
   virtual void invokeCheckInit();

   virtual bool loadScript(bool reload);

   virtual void setLuaState(lua_State* L);
   virtual lua_State* getLuaState();


   virtual DtReaderWriter* saveState();
   virtual bool loadState(const DtReaderWriter* loadState);
   virtual void processClearForReuse();

   static void addLuaScriptInterfaceExtension(DtLuaScriptInterfaceExtension::CreatorFcn extension, void* usr);

   static void addLuaScriptInterfaceExtension(DtLuaScriptInterfaceExtension::CreatorFcn extension,
      const DtVrfObject* onlyForEntity, void* usr);

   static void removeLuaScriptInterfaceExtension(DtLuaScriptInterfaceExtension::CreatorFcn extension, void* usr);

   static void removeLuaScriptInterfaceExtension(DtLuaScriptInterfaceExtension::CreatorFcn extension,
      const DtVrfObject* onlyForEntity, void* usr);

   virtual bool initializeVRFLuaExtensions(lua_State* L);
   virtual bool importTaskParams(lua_State* L);

   static void addKeyToIgnore(const std::string&);

   static void removeKeyToIgnore(const std::string&);

   void luaEndTask(bool success);




   int luaStartSubtask(const std::string taskName, luabind::object const& parameters);
   void luaStopSubtask(int subtaskId);
   void luaStopAllSubtasks();
   bool luaIsSubtaskRunning(int subtaskId);
   bool luaIsSubtaskComplete(int subtaskId);
   bool luaIsSubtaskCanceled(int subtaskId);
   bool luaSubtaskResult(int subtaskId);

   int luaSendTask(DtScriptVrfObject& object, const::std::string taskName,
      luabind::object const& parameters);
   int luaSendTaskActAsSubtask(DtScriptVrfObject& object, const::std::string taskName,
      luabind::object const& parameters, bool actAsSubtask);

   void luaStopAllTasks();

   void luaSendSetDataToSelf(const::std::string setName,
      luabind::object const& parameters);

   void luaSendSetData(DtScriptVrfObject& object, const::std::string setName,
      luabind::object const& parameters);

   luabind::object luaGetReactionStatus();

   std::string luaGetScriptId();

   luabind::object luaGetObjectsNear(const DtLocation3D& loc, double distance);
   luabind::object luaGetObjectsNearWithFilter(const DtLocation3D& loc, double distance, luabind::object const& parameters);

   luabind::object luaGetVrfObjects();

   DtLuaFeatureSet luaGetFeaturesWithinArea(luabind::object const& points, luabind::object const& attributes);
   DtLuaFeatureSet luaGetFeaturesWithinAreaNoAttributes(luabind::object const& points);
  
   DtLuaFeatureSet luaGetFeaturesWithinRange(const DtLocation3D&, double range, luabind::object const& attributes);
   DtLuaFeatureSet luaGetFeaturesWithinRangeNoAttributes(const DtLocation3D&, double range);

   boost::shared_ptr<DtLuaAsyncJob> luaNavigateThroughFeatures(const luabind::object& parameters);

   void luaSendMessage(const DtScriptVrfObject& receiver, const std::string& message);
   void luaDeleteObject(std::string const& receiver);
   void luaDeleteScriptObject(const DtScriptVrfObject& receiver);
   
   static void textReportCallback(const DtVrfObjectMessage* m, void* usr);
   virtual void processTextReport(const DtVrfObjectMessage* m);


   DtScriptVrfObject luaCreateEntity(luabind::object const& parameters);

   DtScriptVrfObject luaCreateTacticalGraphic(luabind::object const& parameters);

   DtScriptVrfObject luaCreateObstacle(luabind::object const& parameters);

   DtScriptVrfObject luaCreateRoute(luabind::object const& parameters);

   DtScriptVrfObject luaCreateArea(luabind::object const& parameters);

   DtScriptVrfObject luaCreateWaypoint(luabind::object const& parameters);

   DtScriptVrfObject luaCreatePhaseLine(luabind::object const& parameters);


   unsigned luaBitwiseOr(unsigned val1, unsigned val2);
   unsigned luaBitwiseAnd(unsigned val1, unsigned val2);
   unsigned luaBitwiseXor(unsigned val1, unsigned val2);
   unsigned luaBitwiseNot(unsigned val);
   unsigned luaBitwiseLeftShift(unsigned val, unsigned shift);
   unsigned luaBitwiseRightShift(unsigned val, unsigned shift);


protected:
   virtual bool callLuaNoArgFunction(const std::string& functionName);

   lua_State* myLState;
   bool myLuaScriptWarningShown;

   typedef std::vector<DtLuaScriptInterfaceExtension*> LocalInterfaceExtensions;
   LocalInterfaceExtensions myInterfaceExtensions;

   struct LuaExtension
   {
      LuaExtension() : creator(0), onlyForEntity(0), usr(0) {};
      LuaExtension(const LuaExtension& orig) : creator(orig.creator), onlyForEntity(orig.onlyForEntity),
         usr(orig.usr) {};

      DtLuaScriptInterfaceExtension::CreatorFcn creator;
      const DtVrfObject* onlyForEntity;
      void* usr;
   };

   typedef std::vector<LuaExtension> GlobalInterfaceExtensions;

   static GlobalInterfaceExtensions theLuaInterfaceExtensions;
};

//
//
namespace luaScriptInterface
{
   typedef luabind::object (*rwToLuaBindObjectFcn)(
      DtReaderWriter* rw, lua_State* L);

   luabind::object luaGetEntityParam(lua_State* L, 
      const DtScriptVrfObject& entity, std::string const& paramName);

   luabind::object luaGetSystemAttribute(
      const DtScriptComponentSystem& system, const std::string& attributeName
      , bool *error
      , lua_State *L
      );
   bool luaSetSystemAttribute(
      DtScriptComponentSystem& system, const std::string& attributeName,
      const luabind::object & value,
      lua_State *L);
};