scpi_result_t RP_APP_SpecRunning(scpi_t *context) {
int running = rpApp_SpecRunning();
SCPI_ResultInt(context, running);
syslog(LOG_INFO, "*SPEC:RUNNING Successfully.");
return SCPI_RES_OK;
}
scpi_result_t SCPIMM_trigger_countQ(scpi_t* context) {
scpimm_context_t* const ctx = SCPIMM_CONTEXT(context);
scpi_number_t num = {0.0, SCPI_UNIT_NONE, SCPI_NUM_NUMBER};
int32_t lnum;
if (!SCPI_ParamNumber(context, &num, FALSE)) {
return SCPI_RES_ERR;
}
switch (num.type) {
case SCPI_NUM_MIN:
lnum = 1;
break;
case SCPI_NUM_MAX:
lnum = max_trigger_count();
break;
case SCPI_NUM_DEF:
if (ctx->infinite_trigger_count) {
SCPI_ResultDouble(context, INF_TRIGGER_COUNT);
return SCPI_RES_OK;
}
lnum = ctx->trigger_count_num;
break;
default:
SCPI_ErrorPush(context, SCPIMM_ERROR_ILLEGAL_PARAMETER_VALUE);
return SCPI_RES_ERR;
}
SCPI_ResultInt(context, lnum);
return SCPI_RES_OK;
}
/**
* *TST?
* @param context
* @return
*/
scpi_result_t SCPI_CoreTstQ(scpi_t * context) {
int result = 0;
if (context && context->interface && context->interface->test) {
result = context->interface->test(context) == SCPI_RES_OK ? 0 : 1;
}
SCPI_ResultInt(context, result);
return SCPI_RES_OK;
}
/**
* SYSTem:ERRor[:NEXT]?
* @param context
* @return
*/
scpi_result_t SCPI_SystemErrorNextQ(scpi_t * context) {
int16_t err = SCPI_ErrorPop(context);
SCPI_ResultInt(context, err);
SCPI_ResultText(context, SCPI_ErrorTranslate(err));
return SCPI_RES_OK;
}
/**
* *TST?
* @param context
* @return
*/
scpi_result_t SCPIParser::SCPI_CoreTstQ() {
int result = 0;
if (context.interface && context.interface->test) {
result=SCPI_Test();
//result = context.interface->test(context);
}
SCPI_ResultInt(result);
return SCPI_RES_OK;
}
/**
* STATus:QUEStionable[:EVENt]?
* @param context
* @return
*/
scpi_result_t SCPI_StatusQuestionableEventQ(scpi_t * context) {
/* return value */
SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_QUES));
/* clear register */
SCPI_RegSet(context, SCPI_REG_QUES, 0);
return SCPI_RES_OK;
}
scpi_result_t TEST_ChoiceQ(scpi_t * context) {
int32_t param;
if (!SCPI_ParamChoice(context, trigger_source, ¶m, true)) {
return SCPI_RES_ERR;
}
fprintf(stderr, "\tP1=%s (%d)\r\n", trigger_source[param], param);
SCPI_ResultInt(context, param);
return SCPI_RES_OK;
}
static scpi_result_t TEST_ChoiceQ(scpi_t * context) {
int32_t param;
const char * name;
if (!SCPI_ParamChoice(context, trigger_source, ¶m, TRUE)) {
return SCPI_RES_ERR;
}
SCPI_ChoiceToName(trigger_source, param, &name);
printf( "\tP1=%s (%ld)\r\n", name, (long int)param);
SCPI_ResultInt(context, param);
return SCPI_RES_OK;
}
/**
* *TST?
* @param context
* @return
*/
scpi_result_t SCPI_CoreTstQ(scpi_t * context) {
(void) context;
SCPI_ResultInt(context, 0);
return SCPI_RES_OK;
}
/**
* *OPC?
* @param context
* @return
*/
scpi_result_t SCPI_CoreOpcQ(scpi_t * context) {
/* Operation is always completed */
SCPI_ResultInt(context, 1);
return SCPI_RES_OK;
}
/**
* *STB?
* @param context
* @return
*/
scpi_result_t SCPI_CoreStbQ(scpi_t * context) {
SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_STB));
return SCPI_RES_OK;
}
/**
* *ESE?
* @param context
* @return
*/
scpi_result_t SCPI_CoreEseQ(scpi_t * context) {
SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_ESE));
return SCPI_RES_OK;
}
/**
* *ESR?
* @param context
* @return
*/
scpi_result_t SCPI_CoreEsrQ(scpi_t * context) {
SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_ESR));
SCPI_RegSet(context, SCPI_REG_ESR, 0);
return SCPI_RES_OK;
}
scpi_result_t SCPI_SystemCommTcpipControlQ(scpi_t * context) {
SCPI_ResultInt(context, CONTROL_PORT);
return SCPI_RES_OK;
}
static scpi_result_t test_treeB(scpi_t* context) {
SCPI_ResultInt(context, 20);
return SCPI_RES_OK;
}
/**
* *ESE?
* @param context
* @return
*/
scpi_result_t SCPIParser::SCPI_CoreEseQ() {
SCPI_ResultInt(SCPI_RegGet(SCPI_REG_ESE));
return SCPI_RES_OK;
}
/**
* SYSTem:ERRor:COUNt?
* @param context
* @return
*/
scpi_result_t SCPI_SystemErrorCountQ(scpi_t * context) {
SCPI_ResultInt(context, SCPI_ErrorCount(context));
return SCPI_RES_OK;
}
/**
* Reimplement IEEE488.2 *TST?
*
* Result should be 0 if everything is ok
* Result should be 1 if something goes wrong
*
* Return SCPI_RES_OK
*/
static scpi_result_t My_CoreTstQ(scpi_t * context) {
SCPI_ResultInt(context, 0);
return SCPI_RES_OK;
}
/**
* *ESR?
* @param context
* @return
*/
scpi_result_t SCPIParser::SCPI_CoreEsrQ() {
SCPI_ResultInt(SCPI_RegGet(SCPI_REG_ESR));
SCPI_RegSet(SCPI_REG_ESR, 0);
return SCPI_RES_OK;
}
/**
* STATus:QUEStionable:ENABle?
* @param context
* @return
*/
scpi_result_t SCPI_StatusQuestionableEnableQ(scpi_t * context) {
/* return value */
SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_QUESE));
return SCPI_RES_OK;
}
/**
* Write boolean value to the result
* @param context
* @param val
* @return
*/
size_t SCPI_ResultBool(scpi_t * context, scpi_bool_t val) {
return SCPI_ResultInt(context, val ? 1 : 0);
}
/**
* *OPC?
* @param context
* @return
*/
scpi_result_t SCPIParser::SCPI_CoreOpcQ() {
/* Operation is always completed */
SCPI_ResultInt(1);
return SCPI_RES_OK;
}
/**
* Write boolean value to the result
* @param context
* @param val
* @return
*/
size_t SCPIParser::SCPI_ResultBool(scpi_bool_t val) {
return SCPI_ResultInt(val ? 1 : 0);
}
/**
* *STB?
* @param context
* @return
*/
scpi_result_t SCPIParser::SCPI_CoreStbQ() {
SCPI_ResultInt(SCPI_RegGet(SCPI_REG_STB));
return SCPI_RES_OK;
}
