wayne roberts / libscpi

https://github.com/j123b567/scpi-parser

Dependents:   scpi_sx127x scpi_sx127x_firstTest MLX90418_I2C_master

src/minimal.c@1:b497f235115a, 2015-08-07 (annotated)

Committer:
dudmuck
Date:
Fri Aug 07 21:54:11 2015 +0000
Revision:
1:b497f235115a
Parent:
0:aad43948c45c 
update from github commit 6e5e3e0e3fc450eaf53feee059824ad85c4f270d

Who changed what in which revision?

UserRevisionLine numberNew contents of line
dudmuck 0:aad43948c45c 1 /*-
dudmuck 0:aad43948c45c 2 * Copyright (c) 2012-2013 Jan Breuer,
dudmuck 0:aad43948c45c 3 *
dudmuck 0:aad43948c45c 4 * All Rights Reserved
dudmuck 0:aad43948c45c 5 *
dudmuck 0:aad43948c45c 6 * Redistribution and use in source and binary forms, with or without
dudmuck 0:aad43948c45c 7 * modification, are permitted provided that the following conditions are
dudmuck 0:aad43948c45c 8 * met:
dudmuck 0:aad43948c45c 9 * 1. Redistributions of source code must retain the above copyright notice,
dudmuck 0:aad43948c45c 10 * this list of conditions and the following disclaimer.
dudmuck 0:aad43948c45c 11 * 2. Redistributions in binary form must reproduce the above copyright
dudmuck 0:aad43948c45c 12 * notice, this list of conditions and the following disclaimer in the
dudmuck 0:aad43948c45c 13 * documentation and/or other materials provided with the distribution.
dudmuck 0:aad43948c45c 14 *
dudmuck 0:aad43948c45c 15 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
dudmuck 0:aad43948c45c 16 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
dudmuck 0:aad43948c45c 17 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
dudmuck 0:aad43948c45c 18 * DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
dudmuck 0:aad43948c45c 19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
dudmuck 0:aad43948c45c 20 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
dudmuck 0:aad43948c45c 21 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
dudmuck 0:aad43948c45c 22 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
dudmuck 0:aad43948c45c 23 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
dudmuck 0:aad43948c45c 24 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
dudmuck 0:aad43948c45c 25 * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
dudmuck 0:aad43948c45c 26 */
dudmuck 0:aad43948c45c 27
dudmuck 0:aad43948c45c 28 /**
dudmuck 0:aad43948c45c 29 * @file scpi_minimal.c
dudmuck 0:aad43948c45c 30 * @date Thu Nov 15 10:58:45 UTC 2012
dudmuck 0:aad43948c45c 31 *
dudmuck 0:aad43948c45c 32 * @brief SCPI minimal implementation
dudmuck 0:aad43948c45c 33 *
dudmuck 0:aad43948c45c 34 *
dudmuck 0:aad43948c45c 35 */
dudmuck 0:aad43948c45c 36
dudmuck 0:aad43948c45c 37
dudmuck 0:aad43948c45c 38 #include "scpi/parser.h"
dudmuck 0:aad43948c45c 39 #include "scpi/minimal.h"
dudmuck 0:aad43948c45c 40 #include "scpi/constants.h"
dudmuck 0:aad43948c45c 41 #include "scpi/error.h"
dudmuck 0:aad43948c45c 42 #include "scpi/ieee488.h"
dudmuck 0:aad43948c45c 43
dudmuck 0:aad43948c45c 44 /**
dudmuck 0:aad43948c45c 45 * Command stub function
dudmuck 0:aad43948c45c 46 * @param context
dudmuck 0:aad43948c45c 47 * @return
dudmuck 0:aad43948c45c 48 */
dudmuck 0:aad43948c45c 49 scpi_result_t SCPI_Stub(scpi_t * context) {
dudmuck 0:aad43948c45c 50 (void) context;
dudmuck 0:aad43948c45c 51 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 52 }
dudmuck 0:aad43948c45c 53
dudmuck 0:aad43948c45c 54 /**
dudmuck 0:aad43948c45c 55 * Query command stub function
dudmuck 0:aad43948c45c 56 * @param context
dudmuck 0:aad43948c45c 57 * @return
dudmuck 0:aad43948c45c 58 */
dudmuck 0:aad43948c45c 59 scpi_result_t SCPI_StubQ(scpi_t * context) {
dudmuck 1:b497f235115a 60 SCPI_ResultInt(context, 0);
dudmuck 0:aad43948c45c 61 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 62 }
dudmuck 0:aad43948c45c 63
dudmuck 0:aad43948c45c 64 /**
dudmuck 0:aad43948c45c 65 * SYSTem:VERSion?
dudmuck 0:aad43948c45c 66 * @param context
dudmuck 0:aad43948c45c 67 * @return
dudmuck 0:aad43948c45c 68 */
dudmuck 0:aad43948c45c 69 scpi_result_t SCPI_SystemVersionQ(scpi_t * context) {
dudmuck 1:b497f235115a 70 SCPI_ResultMnemonic(context, SCPI_STD_VERSION_REVISION);
dudmuck 0:aad43948c45c 71 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 72 }
dudmuck 0:aad43948c45c 73
dudmuck 0:aad43948c45c 74 /**
dudmuck 0:aad43948c45c 75 * SYSTem:ERRor[:NEXT]?
dudmuck 0:aad43948c45c 76 * @param context
dudmuck 0:aad43948c45c 77 * @return
dudmuck 0:aad43948c45c 78 */
dudmuck 0:aad43948c45c 79 scpi_result_t SCPI_SystemErrorNextQ(scpi_t * context) {
dudmuck 0:aad43948c45c 80 int16_t err = SCPI_ErrorPop(context);
dudmuck 0:aad43948c45c 81
dudmuck 0:aad43948c45c 82 SCPI_ResultInt(context, err);
dudmuck 0:aad43948c45c 83 SCPI_ResultText(context, SCPI_ErrorTranslate(err));
dudmuck 0:aad43948c45c 84
dudmuck 0:aad43948c45c 85 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 86 }
dudmuck 0:aad43948c45c 87
dudmuck 0:aad43948c45c 88 /**
dudmuck 0:aad43948c45c 89 * SYSTem:ERRor:COUNt?
dudmuck 0:aad43948c45c 90 * @param context
dudmuck 0:aad43948c45c 91 * @return
dudmuck 0:aad43948c45c 92 */
dudmuck 0:aad43948c45c 93 scpi_result_t SCPI_SystemErrorCountQ(scpi_t * context) {
dudmuck 0:aad43948c45c 94 SCPI_ResultInt(context, SCPI_ErrorCount(context));
dudmuck 0:aad43948c45c 95
dudmuck 0:aad43948c45c 96 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 97 }
dudmuck 0:aad43948c45c 98
dudmuck 0:aad43948c45c 99 /**
dudmuck 0:aad43948c45c 100 * STATus:QUEStionable[:EVENt]?
dudmuck 0:aad43948c45c 101 * @param context
dudmuck 0:aad43948c45c 102 * @return
dudmuck 0:aad43948c45c 103 */
dudmuck 0:aad43948c45c 104 scpi_result_t SCPI_StatusQuestionableEventQ(scpi_t * context) {
dudmuck 0:aad43948c45c 105 /* return value */
dudmuck 0:aad43948c45c 106 SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_QUES));
dudmuck 0:aad43948c45c 107
dudmuck 0:aad43948c45c 108 /* clear register */
dudmuck 0:aad43948c45c 109 SCPI_RegSet(context, SCPI_REG_QUES, 0);
dudmuck 0:aad43948c45c 110
dudmuck 0:aad43948c45c 111 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 112 }
dudmuck 0:aad43948c45c 113
dudmuck 0:aad43948c45c 114 /**
dudmuck 0:aad43948c45c 115 * STATus:QUEStionable:ENABle?
dudmuck 0:aad43948c45c 116 * @param context
dudmuck 0:aad43948c45c 117 * @return
dudmuck 0:aad43948c45c 118 */
dudmuck 0:aad43948c45c 119 scpi_result_t SCPI_StatusQuestionableEnableQ(scpi_t * context) {
dudmuck 0:aad43948c45c 120 /* return value */
dudmuck 0:aad43948c45c 121 SCPI_ResultInt(context, SCPI_RegGet(context, SCPI_REG_QUESE));
dudmuck 0:aad43948c45c 122
dudmuck 0:aad43948c45c 123 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 124 }
dudmuck 0:aad43948c45c 125
dudmuck 0:aad43948c45c 126 /**
dudmuck 0:aad43948c45c 127 * STATus:QUEStionable:ENABle
dudmuck 0:aad43948c45c 128 * @param context
dudmuck 0:aad43948c45c 129 * @return
dudmuck 0:aad43948c45c 130 */
dudmuck 0:aad43948c45c 131 scpi_result_t SCPI_StatusQuestionableEnable(scpi_t * context) {
dudmuck 0:aad43948c45c 132 int32_t new_QUESE;
dudmuck 0:aad43948c45c 133 if (SCPI_ParamInt(context, &new_QUESE, TRUE)) {
dudmuck 1:b497f235115a 134 SCPI_RegSet(context, SCPI_REG_QUESE, (scpi_reg_val_t)new_QUESE);
dudmuck 0:aad43948c45c 135 }
dudmuck 0:aad43948c45c 136 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 137 }
dudmuck 0:aad43948c45c 138
dudmuck 0:aad43948c45c 139 /**
dudmuck 0:aad43948c45c 140 * STATus:PRESet
dudmuck 0:aad43948c45c 141 * @param context
dudmuck 0:aad43948c45c 142 * @return
dudmuck 0:aad43948c45c 143 */
dudmuck 0:aad43948c45c 144 scpi_result_t SCPI_StatusPreset(scpi_t * context) {
dudmuck 0:aad43948c45c 145 /* clear STATUS:... */
dudmuck 0:aad43948c45c 146 SCPI_RegSet(context, SCPI_REG_QUES, 0);
dudmuck 0:aad43948c45c 147 return SCPI_RES_OK;
dudmuck 0:aad43948c45c 148 }