lua51script.cpp

Go to the documentation of this file.

// © Copyright 2010 - 2016 BlackTopp Studios Inc.
/* This file is part of The Mezzanine Engine.

    The Mezzanine Engine 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 3 of the License, or
    (at your option) any later version.

    The Mezzanine Engine 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 The Mezzanine Engine.  If not, see <http://www.gnu.org/licenses/>.
*/
/* The original authors have included a copy of the license specified above in the
   'Docs' folder. See 'gpl.txt'
*/
/* We welcome the use of the Mezzanine engine to anyone, including companies who wish to
   Build professional software and charge for their product.

   However there are some practical restrictions, so if your project involves
   any of the following you should contact us and we will try to work something
   out:
    - DRM or Copy Protection of any kind(except Copyrights)
    - Software Patents You Do Not Wish to Freely License
    - Any Kind of Linking to Non-GPL licensed Works
    - Are Currently In Violation of Another Copyright Holder's GPL License
    - If You want to change our code and not add a few hundred MB of stuff to
        your distribution

   These and other limitations could cause serious legal problems if you ignore
   them, so it is best to simply contact us or the Free Software Foundation, if
   you have any questions.

   Joseph Toppi - toppij@gmail.com
   John Blackwood - makoenergy02@gmail.com
*/
#ifndef _lua51script_cpp
#define _lua51script_cpp

#include "datatypes.h"

#ifdef MEZZLUA51

#include "lua51script.h"
#include "lua51scriptargument.h"
#include "lua51scriptingengine.h"
#include "exception.h"

#include <algorithm>

/// @file
/// @brief This file has the implemetation for the Lua script storage.

extern "C"
{
    #include "lua.h"            // Lua Core
    #include "lualib.h"         // for opening the base state
    #include "lauxlib.h"        // Extra Lua Goodies like lua_open()

    /// @internal
    /// @brief Entry point into Swig bindings, required to initialize Lua.
    int luaopen_Mezzanine(lua_State* L);
}

namespace Mezzanine
{
    namespace Scripting
    {
        namespace Lua
        {

            ///////////////////////////////////////////////////////////////////////////////////////
            // LuaScript basics
            Lua51Script::Lua51Script() : FunctionCall(false)
                { }

            Lua51Script::Lua51Script(const String& InitialSourceCode, Lua51ScriptingEngine* Compiler, Boole JustAFunctionCall, String ScriptName)
                : SourceCode(InitialSourceCode),
                  Name(ScriptName),
                  FunctionCall(JustAFunctionCall)
            {
                if(Compiler && !FunctionCall)
                    { Compile(Compiler); }
            }

            Lua51Script::Lua51Script(const String& InitialSourceCode, Lua51ScriptingEngine& Compiler, Boole JustAFunctionCall, String ScriptName)
                : SourceCode(InitialSourceCode),
                  Name(ScriptName),
                  FunctionCall(JustAFunctionCall)
            {
                if(!FunctionCall)
                    { Compile(&Compiler); }
            }

            Lua51Script::~Lua51Script()
                {}

            ///////////////////////////////////////////////////////////////////////////////////////
            // Arguments
            void Lua51Script::AddArgument(CountedPtr<iScriptArgument> Arg)
                { Args.push_back(Arg); }

            void Lua51Script::AddArgument(Lua51IntegerArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51IntegerArgument(Arg))); }

            void Lua51Script::AddArgument(Lua51RealArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51RealArgument(Arg))); }

            void Lua51Script::AddArgument(Lua51WholeArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51WholeArgument(Arg))); }

            void Lua51Script::AddArgument(Lua51StringArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51StringArgument(Arg))); }

            void Lua51Script::AddArgument(Lua51BoolArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51BoolArgument(Arg))); }

            void Lua51Script::AddArgument(Lua51NilArgument Arg)
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51NilArgument(Arg))); }

            void Lua51Script::AddArgument(Integer Arg)
                { AddArgument(Lua51IntegerArgument(Arg)); }

            void Lua51Script::AddArgument(Real Arg)
                { AddArgument((Lua51RealArgument(Arg))); }

            void Lua51Script::AddArgument(Whole Arg)
                { AddArgument((Lua51WholeArgument(Arg))); }

            void Lua51Script::AddArgument(String Arg)
                { AddArgument((Lua51StringArgument(Arg))); }

            void Lua51Script::AddArgument(Char8 *Arg)
                { AddArgument((String(Arg))); }

            void Lua51Script::AddArgument(Boole Arg)
                { AddArgument((Lua51BoolArgument(Arg))); }

            void Lua51Script::AddArgument()
                { Args.push_back(CountedPtr<iScriptArgument>(new Lua51NilArgument)); }

            void Lua51Script::RemoveArgument(CountedPtr<iScriptArgument> Arg)
                { Args.erase( std::remove(Args.begin(),Args.end(),Arg) ); }

            void Lua51Script::RemoveArgument(Whole ArgNumber)
                { Args.erase(Args.begin()+ArgNumber); }

            Whole Lua51Script::GetArgumentCount() const
                { return Args.size(); }

            void Lua51Script::ClearArguments()
                { Args.clear(); }

            CountedPtr<iScriptArgument> Lua51Script::GetArgument(Whole ArgNumber) const
                { return Args.at(ArgNumber); }

            ///////////////////////////////////////////////////////////////////////////////////////
            // Source code
            void Lua51Script::SetSourceCode(const String& Code)
            {
                CompiledByteCode.DeleteBuffer();
                SourceCode = Code;
            }

            void Lua51Script::SetSourceCode(const String& Code, CountedPtr<iScriptArgument> Return1)
            {
                SetSourceCode(Code);
                Returns.clear();
                Returns.push_back(Return1);
            }

            String Lua51Script::GetSourceCode() const
                { return SourceCode; }

            void Lua51Script::SetByteCode(BinaryTools::BinaryBuffer Code)
                { CompiledByteCode = Code; }

            BinaryTools::BinaryBuffer Lua51Script::GetByteCode() const
                { return CompiledByteCode; }

            FlaggedBuffer& Lua51Script::GetByteCodeReference()
                { return CompiledByteCode; }

            bool Lua51Script::IsCompiled() const
                { return CompiledByteCode.Binary != 0; }

            void Lua51Script::Compile(Lua51ScriptingEngine* Compiler)
                { Compiler->Compile(this); }

            void Lua51Script::Compile(Lua51ScriptingEngine& Compiler)
                { Compiler.Compile(this); }

            ///////////////////////////////////////////////////////////////////////////////////////
            // Name
            String Lua51Script::GetName() const
                { return Name; }

            void Lua51Script::SetName(const String& NewName)
                { Name = NewName; }

            ///////////////////////////////////////////////////////////////////////////////////////
            // Returns
            Whole Lua51Script::GetReturnCount() const
                { return Returns.size(); }

            void Lua51Script::AddReturn(CountedPtr<iScriptArgument> ReturnArg)
                { Returns.push_back(ReturnArg); }

            ArgumentGroup Lua51Script::GetAllReturns() const
                { return Returns; }

            CountedPtr<iScriptArgument> Lua51Script::GetReturn(Whole ReturnNumber) const
                { return Returns.at(ReturnNumber); }
        } // Lua
    } // Scripting
} // Mezzanine




#endif //  MEZZLUA51
#endif