src/scriptvm/CoreVMFunctions.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 "CoreVMFunctions.h"

#include <iostream>
#include "tree.h"
#include "ScriptVM.h"

namespace LinuxSampler {

VMFnResult* VMEmptyResultFunction::errorResult() {
    result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED | STMT_ERROR_OCCURRED);
    return &result;
}

VMFnResult* VMEmptyResultFunction::successResult() {
    result.flags = STMT_SUCCESS;
    return &result;
}

VMFnResult* VMIntResultFunction::errorResult(int i) {
    result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED | STMT_ERROR_OCCURRED);
    result.value = i;
    return &result;
}

VMFnResult* VMIntResultFunction::successResult(int i) {
    result.flags = STMT_SUCCESS;
    result.value = i;
    return &result;
}

VMFnResult* VMStringResultFunction::errorResult(const String& s) {
    result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED | STMT_ERROR_OCCURRED);
    result.value = s;
    return &result;
}

VMFnResult* VMStringResultFunction::successResult(const String& s) {
    result.flags = STMT_SUCCESS;
    result.value = s;
    return &result;
}

bool CoreVMFunction_message::acceptsArgType(int iArg, ExprType_t type) const {
    return type == INT_EXPR || type == STRING_EXPR;
}

VMFnResult* CoreVMFunction_message::exec(VMFnArgs* args) {
    if (!args->argsCount()) return errorResult();

    VMStringExpr* strExpr = dynamic_cast<VMStringExpr*>(args->arg(0));
    if (strExpr) {
        std::cout << "[ScriptVM] " << strExpr->evalStr() << "\n";
        return successResult();
    }

    VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(args->arg(0));
    if (intExpr) {
        std::cout << "[ScriptVM] " << intExpr->evalInt() << "\n";
        return successResult();
    }

    return errorResult();
}

VMFnResult* CoreVMFunction_exit::exec(VMFnArgs* args) {
    this->result.flags = STMT_ABORT_SIGNALLED;
    return &result;
}

VMFnResult* CoreVMFunction_wait::exec(VMFnArgs* args) {
    ExecContext* ctx = dynamic_cast<ExecContext*>(vm->currentVMExecContext());
    VMIntExpr* expr = dynamic_cast<VMIntExpr*>(args->arg(0));
    ctx->suspendMicroseconds = expr->evalInt();
    this->result.flags = STMT_SUSPEND_SIGNALLED;
    return &result;
}

} // namespace LinuxSampler
1	schoenebeck	2581	/*
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 "CoreVMFunctions.h"
11
12			#include <iostream>
13			#include "tree.h"
14			#include "ScriptVM.h"
15
16			namespace LinuxSampler {
17
18			VMFnResult* VMEmptyResultFunction::errorResult() {
19			result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED \| STMT_ERROR_OCCURRED);
20			return &result;
21			}
22
23	schoenebeck	2598	VMFnResult* VMEmptyResultFunction::successResult() {
24			result.flags = STMT_SUCCESS;
25			return &result;
26	schoenebeck	2596	}
27
28	schoenebeck	2598	VMFnResult* VMIntResultFunction::errorResult(int i) {
29			result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED \| STMT_ERROR_OCCURRED);
30			result.value = i;
31			return &result;
32	schoenebeck	2596	}
33
34	schoenebeck	2598	VMFnResult* VMIntResultFunction::successResult(int i) {
35	schoenebeck	2581	result.flags = STMT_SUCCESS;
36	schoenebeck	2598	result.value = i;
37	schoenebeck	2581	return &result;
38			}
39
40			VMFnResult* VMStringResultFunction::errorResult(const String& s) {
41			result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED \| STMT_ERROR_OCCURRED);
42			result.value = s;
43			return &result;
44			}
45
46			VMFnResult* VMStringResultFunction::successResult(const String& s) {
47			result.flags = STMT_SUCCESS;
48			result.value = s;
49			return &result;
50			}
51
52			bool CoreVMFunction_message::acceptsArgType(int iArg, ExprType_t type) const {
53			return type == INT_EXPR \|\| type == STRING_EXPR;
54			}
55
56			VMFnResult* CoreVMFunction_message::exec(VMFnArgs* args) {
57			if (!args->argsCount()) return errorResult();
58
59			VMStringExpr* strExpr = dynamic_cast<VMStringExpr*>(args->arg(0));
60			if (strExpr) {
61			std::cout << "[ScriptVM] " << strExpr->evalStr() << "\n";
62			return successResult();
63			}
64
65			VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(args->arg(0));
66			if (intExpr) {
67			std::cout << "[ScriptVM] " << intExpr->evalInt() << "\n";
68			return successResult();
69			}
70
71			return errorResult();
72			}
73
74			VMFnResult* CoreVMFunction_exit::exec(VMFnArgs* args) {
75			this->result.flags = STMT_ABORT_SIGNALLED;
76			return &result;
77			}
78
79			VMFnResult* CoreVMFunction_wait::exec(VMFnArgs* args) {
80			ExecContext* ctx = dynamic_cast<ExecContext*>(vm->currentVMExecContext());
81			VMIntExpr* expr = dynamic_cast<VMIntExpr*>(args->arg(0));
82			ctx->suspendMicroseconds = expr->evalInt();
83			this->result.flags = STMT_SUSPEND_SIGNALLED;
84			return &result;
85			}
86
87			} // namespace LinuxSampler