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* 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	/*
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	VMFnResult* VMEmptyResultFunction::successResult() {
24	result.flags = STMT_SUCCESS;
25	return &result;
26	}
27
28	VMFnResult* VMStringResultFunction::errorResult(const String& s) {
29	result.flags = StmtFlags_t(STMT_ABORT_SIGNALLED \| STMT_ERROR_OCCURRED);
30	result.value = s;
31	return &result;
32	}
33
34	VMFnResult* VMStringResultFunction::successResult(const String& s) {
35	result.flags = STMT_SUCCESS;
36	result.value = s;
37	return &result;
38	}
39
40	bool CoreVMFunction_message::acceptsArgType(int iArg, ExprType_t type) const {
41	return type == INT_EXPR \|\| type == STRING_EXPR;
42	}
43
44	VMFnResult* CoreVMFunction_message::exec(VMFnArgs* args) {
45	if (!args->argsCount()) return errorResult();
46
47	VMStringExpr* strExpr = dynamic_cast<VMStringExpr*>(args->arg(0));
48	if (strExpr) {
49	std::cout << "[ScriptVM] " << strExpr->evalStr() << "\n";
50	return successResult();
51	}
52
53	VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(args->arg(0));
54	if (intExpr) {
55	std::cout << "[ScriptVM] " << intExpr->evalInt() << "\n";
56	return successResult();
57	}
58
59	return errorResult();
60	}
61
62	VMFnResult* CoreVMFunction_exit::exec(VMFnArgs* args) {
63	this->result.flags = STMT_ABORT_SIGNALLED;
64	return &result;
65	}
66
67	VMFnResult* CoreVMFunction_wait::exec(VMFnArgs* args) {
68	ExecContext* ctx = dynamic_cast<ExecContext*>(vm->currentVMExecContext());
69	VMIntExpr* expr = dynamic_cast<VMIntExpr*>(args->arg(0));
70	ctx->suspendMicroseconds = expr->evalInt();
71	this->result.flags = STMT_SUSPEND_SIGNALLED;
72	return &result;
73	}
74
75	} // namespace LinuxSampler