engines/common/InstrumentScriptVMFunctions.cpp

/*
 * Copyright (c) 2014 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 "InstrumentScriptVM.h"
#include "../AbstractEngineChannel.h"

namespace LinuxSampler {

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

    VMFnResult* InstrumentScriptVMFunction_play_note::exec(VMFnArgs* args) {
        int note = args->arg(0)->asInt()->evalInt();
        int velocity = (args->argsCount() >= 2) ? args->arg(1)->asInt()->evalInt() : 127;
        int sampleoffset = (args->argsCount() >= 3) ? args->arg(2)->asInt()->evalInt() : 0;
        int duration = (args->argsCount() >= 4) ? args->arg(3)->asInt()->evalInt() : 0; //TODO: once -1 is implemented, it might be a better default value instead of 0

        if (note < 0 || note > 127) {
            errMsg("play_note(): argument 1 is an invalid note number");
            return errorResult(-1);
        }

        if (velocity < 0 || velocity > 127) {
            errMsg("play_note(): argument 2 is an invalid velocity value");
            return errorResult(-1);
        }

        if (sampleoffset < 0) {
            errMsg("play_note(): argument 3 may not be a negative sample offset");
            return errorResult(-1);
        } else if (sampleoffset != 0) {
            wrnMsg("play_note(): argument 3 does not support a sample offset other than 0 yet");
        }

        if (duration < -1) {
            errMsg("play_note(): argument 4 must be a duration value of at least -1 or higher");
            return errorResult(-1);
        } else if (duration == -1) {
            wrnMsg("play_note(): argument 4 does not support special value -1 as duration yet");
        } else if (duration != 0) {
            wrnMsg("play_note(): argument 4 does not support any other value as 0 as duration yet");
        }

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

        Event e = m_vm->m_event->cause;
        e.Type = Event::type_note_on;
        e.Param.Note.Key = note;
        e.Param.Note.Velocity = velocity;

        int id = pEngineChannel->ScheduleEvent(&e, duration);

        return successResult(id);
    }

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

    VMFnResult* InstrumentScriptVMFunction_ignore_event::exec(VMFnArgs* args) {
        int id = args->arg(0)->asInt()->evalInt();
        if (id < 0) {
            wrnMsg("ignore_event(): argument may not be a negative event ID");
            return successResult();
        }

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

        pEngineChannel->IgnoreEvent(id);

        return successResult();
    }

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

    VMFnResult* InstrumentScriptVMFunction_ignore_controller::exec(VMFnArgs* args) {
        int id = (args->argsCount() >= 1) ? args->arg(0)->asInt()->evalInt() : m_vm->m_event->id;
        if (id < 0) {
            wrnMsg("ignore_controller(): argument may not be a negative event ID");
            return successResult();
        }

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

        pEngineChannel->IgnoreEvent(id);

        return successResult();
    }

} // namespace LinuxSampler
1	schoenebeck	2596	/*
2			* Copyright (c) 2014 Christian Schoenebeck
3			*
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 "InstrumentScriptVM.h"
12			#include "../AbstractEngineChannel.h"
13
14			namespace LinuxSampler {
15
16			InstrumentScriptVMFunction_play_note::InstrumentScriptVMFunction_play_note(InstrumentScriptVM* parent)
17			: m_vm(parent)
18			{
19			}
20
21			VMFnResult* InstrumentScriptVMFunction_play_note::exec(VMFnArgs* args) {
22			int note = args->arg(0)->asInt()->evalInt();
23			int velocity = (args->argsCount() >= 2) ? args->arg(1)->asInt()->evalInt() : 127;
24			int sampleoffset = (args->argsCount() >= 3) ? args->arg(2)->asInt()->evalInt() : 0;
25			int duration = (args->argsCount() >= 4) ? args->arg(3)->asInt()->evalInt() : 0; //TODO: once -1 is implemented, it might be a better default value instead of 0
26
27			if (note < 0 \|\| note > 127) {
28			errMsg("play_note(): argument 1 is an invalid note number");
29	schoenebeck	2598	return errorResult(-1);
30	schoenebeck	2596	}
31
32			if (velocity < 0 \|\| velocity > 127) {
33			errMsg("play_note(): argument 2 is an invalid velocity value");
34	schoenebeck	2598	return errorResult(-1);
35	schoenebeck	2596	}
36
37			if (sampleoffset < 0) {
38			errMsg("play_note(): argument 3 may not be a negative sample offset");
39	schoenebeck	2598	return errorResult(-1);
40	schoenebeck	2596	} else if (sampleoffset != 0) {
41			wrnMsg("play_note(): argument 3 does not support a sample offset other than 0 yet");
42			}
43
44			if (duration < -1) {
45			errMsg("play_note(): argument 4 must be a duration value of at least -1 or higher");
46	schoenebeck	2598	return errorResult(-1);
47	schoenebeck	2596	} else if (duration == -1) {
48			wrnMsg("play_note(): argument 4 does not support special value -1 as duration yet");
49			} else if (duration != 0) {
50			wrnMsg("play_note(): argument 4 does not support any other value as 0 as duration yet");
51			}
52
53			AbstractEngineChannel* pEngineChannel =
54			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
55
56			Event e = m_vm->m_event->cause;
57			e.Type = Event::type_note_on;
58			e.Param.Note.Key = note;
59			e.Param.Note.Velocity = velocity;
60
61	schoenebeck	2598	int id = pEngineChannel->ScheduleEvent(&e, duration);
62	schoenebeck	2596
63	schoenebeck	2598	return successResult(id);
64			}
65
66			InstrumentScriptVMFunction_ignore_event::InstrumentScriptVMFunction_ignore_event(InstrumentScriptVM* parent)
67			: m_vm(parent)
68			{
69			}
70
71			VMFnResult* InstrumentScriptVMFunction_ignore_event::exec(VMFnArgs* args) {
72			int id = args->arg(0)->asInt()->evalInt();
73			if (id < 0) {
74			wrnMsg("ignore_event(): argument may not be a negative event ID");
75			return successResult();
76			}
77
78			AbstractEngineChannel* pEngineChannel =
79			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
80
81			pEngineChannel->IgnoreEvent(id);
82
83	schoenebeck	2596	return successResult();
84			}
85
86	schoenebeck	2598	InstrumentScriptVMFunction_ignore_controller::InstrumentScriptVMFunction_ignore_controller(InstrumentScriptVM* parent)
87			: m_vm(parent)
88			{
89			}
90
91			VMFnResult* InstrumentScriptVMFunction_ignore_controller::exec(VMFnArgs* args) {
92			int id = (args->argsCount() >= 1) ? args->arg(0)->asInt()->evalInt() : m_vm->m_event->id;
93			if (id < 0) {
94			wrnMsg("ignore_controller(): argument may not be a negative event ID");
95			return successResult();
96			}
97
98			AbstractEngineChannel* pEngineChannel =
99			static_cast<AbstractEngineChannel*>(m_vm->m_event->cause.pEngineChannel);
100
101			pEngineChannel->IgnoreEvent(id);
102
103			return successResult();
104			}
105
106	schoenebeck	2596	} // namespace LinuxSampler