engines/common/InstrumentScriptVMDynVars.cpp

/*
 * Copyright (c) 2016 - 2019 Christian Schoenebeck
 *
 * http://www.linuxsampler.org
 *
 * This file is part of LinuxSampler and released under the same terms.
 * See README file for details.
 */

#include "InstrumentScriptVMFunctions.h"
#include "InstrumentScriptVMDynVars.h"
#include "InstrumentScriptVM.h"
#include "../AbstractEngineChannel.h"
#include "../EngineBase.h"

namespace LinuxSampler {

    // built-in variable $ENGINE_UPTIME

    vmint InstrumentScriptVMDynVar_ENGINE_UPTIME::evalInt() {

        AbstractEngineChannel* pEngineChannel =
            static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);

        AbstractEngine* pEngine =
            static_cast<AbstractEngine*>(pEngineChannel->GetEngine());

        // engine's official playback time in milliseconds (offline bounce safe)
        return vmint( double(pEngine->FrameTime + m_vm->m_event->cause.FragmentPos()) /
                      double(pEngine->SampleRate) * 1000.0 );
    }

    // built-in variable $NI_CALLBACK_ID

    vmint InstrumentScriptVMDynVar_NI_CALLBACK_ID::evalInt() {

        AbstractEngineChannel* pEngineChannel =
            static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);

        return pEngineChannel->GetScriptCallbackID(m_vm->m_event);
    }

    // built-in array variable %NKSP_CALLBACK_CHILD_ID[]

    InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID(InstrumentScriptVM* parent)
        : m_vm(parent)
    {
    }

    VMIntArrayExpr* InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::asIntArray() const {
        return const_cast<VMIntArrayExpr*>( dynamic_cast<const VMIntArrayExpr*>(this) );
    }

    vmint InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::arraySize() const {
        return m_vm->m_event->countChildHandlers();
    }

    vmint InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::evalIntElement(vmuint i) {
        if (i >= arraySize()) return 0;
        return m_vm->m_event->childHandlerID[i];
    }

    // built-in variable %ALL_EVENTS

    InstrumentScriptVMDynVar_ALL_EVENTS::InstrumentScriptVMDynVar_ALL_EVENTS(InstrumentScriptVM* parent)
        : m_vm(parent), m_ids(NULL), m_numIDs(0)
    {
        m_ids = new note_id_t[GLOBAL_MAX_NOTES];
        memset(&m_ids[0], 0, GLOBAL_MAX_NOTES * sizeof(note_id_t));
    }

    InstrumentScriptVMDynVar_ALL_EVENTS::~InstrumentScriptVMDynVar_ALL_EVENTS() {
        if (m_ids) delete[] m_ids;
    }

    VMIntArrayExpr* InstrumentScriptVMDynVar_ALL_EVENTS::asIntArray() const {
        const_cast<InstrumentScriptVMDynVar_ALL_EVENTS*>(this)->updateNoteIDs();
        return const_cast<VMIntArrayExpr*>( dynamic_cast<const VMIntArrayExpr*>(this) );
    }

    vmint InstrumentScriptVMDynVar_ALL_EVENTS::arraySize() const {
        return m_numIDs;
    }

    vmint InstrumentScriptVMDynVar_ALL_EVENTS::evalIntElement(vmuint i) {
        if (i >= m_numIDs) return 0;
        return m_ids[i];
    }

    void InstrumentScriptVMDynVar_ALL_EVENTS::updateNoteIDs() {

        AbstractEngineChannel* pEngineChannel =
            static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);

        m_numIDs = pEngineChannel->AllNoteIDs(&m_ids[0], GLOBAL_MAX_NOTES);

        // translate sampler engine internal note IDs to public script id scope
        for (vmuint i = 0; i < m_numIDs; ++i)
            m_ids[i] = ScriptID::fromNoteID(m_ids[i]);
    }

} // namespace LinuxSampler
1	schoenebeck	2942	/*
2	schoenebeck	3557	* Copyright (c) 2016 - 2019 Christian Schoenebeck
3	schoenebeck	2942	*
4			* http://www.linuxsampler.org
5			*
6			* This file is part of LinuxSampler and released under the same terms.
7			* See README file for details.
8			*/
9
10			#include "InstrumentScriptVMFunctions.h"
11			#include "InstrumentScriptVMDynVars.h"
12			#include "InstrumentScriptVM.h"
13			#include "../AbstractEngineChannel.h"
14	schoenebeck	3073	#include "../EngineBase.h"
15	schoenebeck	2942
16			namespace LinuxSampler {
17
18	schoenebeck	3073	// built-in variable $ENGINE_UPTIME
19
20	schoenebeck	3557	vmint InstrumentScriptVMDynVar_ENGINE_UPTIME::evalInt() {
21	schoenebeck	2942
22			AbstractEngineChannel* pEngineChannel =
23			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
24
25			AbstractEngine* pEngine =
26			static_cast<AbstractEngine*>(pEngineChannel->GetEngine());
27
28			// engine's official playback time in milliseconds (offline bounce safe)
29	schoenebeck	3557	return vmint( double(pEngine->FrameTime + m_vm->m_event->cause.FragmentPos()) /
30			double(pEngine->SampleRate) * 1000.0 );
31	schoenebeck	2942	}
32
33	schoenebeck	3073	// built-in variable $NI_CALLBACK_ID
34
35	schoenebeck	3557	vmint InstrumentScriptVMDynVar_NI_CALLBACK_ID::evalInt() {
36	schoenebeck	2948
37			AbstractEngineChannel* pEngineChannel =
38			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
39
40			return pEngineChannel->GetScriptCallbackID(m_vm->m_event);
41			}
42
43	schoenebeck	3293	// built-in array variable %NKSP_CALLBACK_CHILD_ID[]
44
45			InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID(InstrumentScriptVM* parent)
46			: m_vm(parent)
47			{
48			}
49
50			VMIntArrayExpr* InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::asIntArray() const {
51			return const_cast<VMIntArrayExpr>( dynamic_cast<const VMIntArrayExpr>(this) );
52			}
53
54	schoenebeck	3557	vmint InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::arraySize() const {
55	schoenebeck	3293	return m_vm->m_event->countChildHandlers();
56			}
57
58	schoenebeck	3557	vmint InstrumentScriptVMDynVar_NKSP_CALLBACK_CHILD_ID::evalIntElement(vmuint i) {
59	schoenebeck	3293	if (i >= arraySize()) return 0;
60			return m_vm->m_event->childHandlerID[i];
61			}
62
63	schoenebeck	3073	// built-in variable %ALL_EVENTS
64
65			InstrumentScriptVMDynVar_ALL_EVENTS::InstrumentScriptVMDynVar_ALL_EVENTS(InstrumentScriptVM* parent)
66			: m_vm(parent), m_ids(NULL), m_numIDs(0)
67			{
68			m_ids = new note_id_t[GLOBAL_MAX_NOTES];
69			memset(&m_ids[0], 0, GLOBAL_MAX_NOTES * sizeof(note_id_t));
70			}
71
72			InstrumentScriptVMDynVar_ALL_EVENTS::~InstrumentScriptVMDynVar_ALL_EVENTS() {
73			if (m_ids) delete[] m_ids;
74			}
75
76			VMIntArrayExpr* InstrumentScriptVMDynVar_ALL_EVENTS::asIntArray() const {
77			const_cast<InstrumentScriptVMDynVar_ALL_EVENTS*>(this)->updateNoteIDs();
78			return const_cast<VMIntArrayExpr>( dynamic_cast<const VMIntArrayExpr>(this) );
79			}
80
81	schoenebeck	3557	vmint InstrumentScriptVMDynVar_ALL_EVENTS::arraySize() const {
82	schoenebeck	3073	return m_numIDs;
83			}
84
85	schoenebeck	3557	vmint InstrumentScriptVMDynVar_ALL_EVENTS::evalIntElement(vmuint i) {
86	schoenebeck	3073	if (i >= m_numIDs) return 0;
87			return m_ids[i];
88			}
89
90			void InstrumentScriptVMDynVar_ALL_EVENTS::updateNoteIDs() {
91
92			AbstractEngineChannel* pEngineChannel =
93			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
94
95			m_numIDs = pEngineChannel->AllNoteIDs(&m_ids[0], GLOBAL_MAX_NOTES);
96
97			// translate sampler engine internal note IDs to public script id scope
98	schoenebeck	3557	for (vmuint i = 0; i < m_numIDs; ++i)
99	schoenebeck	3073	m_ids[i] = ScriptID::fromNoteID(m_ids[i]);
100			}
101
102	schoenebeck	2942	} // namespace LinuxSampler