| | |
| | | * Copyright (c) 2012-2013 Jan Breuer, |
| | | * |
| | | * All Rights Reserved |
| | | * |
| | | * |
| | | * Redistribution and use in source and binary forms, with or without |
| | | * modification, are permitted provided that the following conditions are |
| | | * met: |
| | |
| | | * 2. Redistributions in binary form must reproduce the above copyright |
| | | * notice, this list of conditions and the following disclaimer in the |
| | | * documentation and/or other materials provided with the distribution. |
| | | * |
| | | * |
| | | * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR |
| | | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| | | * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| | |
| | | /** |
| | | * @file scpi-def.c |
| | | * @date Thu Nov 15 10:58:45 UTC 2012 |
| | | * |
| | | * |
| | | * @brief SCPI parser test |
| | | * |
| | | * |
| | | * |
| | | * |
| | | */ |
| | | |
| | | #include <stdio.h> |
| | |
| | | static scpi_result_t DMM_MeasureVoltageDcQ(scpi_t * context) { |
| | | scpi_number_t param1, param2; |
| | | char bf[15]; |
| | | fprintf(stderr, "meas:volt:dc\r\n"); // debug command name |
| | | fprintf(stderr, "meas:volt:dc\r\n"); // debug command name |
| | | |
| | | // read first parameter if present |
| | | if (!SCPI_ParamNumber(context, scpi_special_numbers_def, ¶m1, FALSE)) { |
| | |
| | | static scpi_result_t DMM_MeasureVoltageAcQ(scpi_t * context) { |
| | | scpi_number_t param1, param2; |
| | | char bf[15]; |
| | | fprintf(stderr, "meas:volt:ac\r\n"); // debug command name |
| | | fprintf(stderr, "meas:volt:ac\r\n"); // debug command name |
| | | |
| | | // read first parameter if present |
| | | if (!SCPI_ParamNumber(context, scpi_special_numbers_def, ¶m1, FALSE)) { |
| | |
| | | |
| | | static scpi_result_t DMM_ConfigureVoltageDc(scpi_t * context) { |
| | | double param1, param2; |
| | | fprintf(stderr, "conf:volt:dc\r\n"); // debug command name |
| | | fprintf(stderr, "conf:volt:dc\r\n"); // debug command name |
| | | |
| | | // read first parameter if present |
| | | if (!SCPI_ParamDouble(context, ¶m1, TRUE)) { |
| | |
| | | |
| | | static scpi_result_t TEST_Bool(scpi_t * context) { |
| | | scpi_bool_t param1; |
| | | fprintf(stderr, "TEST:BOOL\r\n"); // debug command name |
| | | fprintf(stderr, "TEST:BOOL\r\n"); // debug command name |
| | | |
| | | // read first parameter if present |
| | | if (!SCPI_ParamBool(context, ¶m1, TRUE)) { |
| | |
| | | typedef struct _scpi_channel_value_t scpi_channel_value_t; |
| | | |
| | | /** |
| | | * @brief |
| | | * @brief |
| | | * parses lists |
| | | * channel numbers > 0. |
| | | * no checks yet. |
| | | * valid: (@1), (@3!1:1!3), ... |
| | | * (@1!1:3!2) would be 1!1, 1!2, 2!1, 2!2, 3!1, 3!2. |
| | | * (@3!1:1!3) would be 3!1, 3!2, 3!3, 2!1, 2!2, 2!3, ... 1!3. |
| | | * |
| | | * |
| | | * @param channel_list channel list, compare to SCPI99 Vol 1 Ch. 8.3.2 |
| | | */ |
| | | static scpi_result_t TEST_Chanlst(scpi_t *context) { |
| | | scpi_parameter_t channel_list_param; |
| | | #define maxrow 2 //maximum number of rows |
| | | #define maxcol 6 //maximum number of columns |
| | | #define maxdim 2 //maximum number of dimensions |
| | | scpi_channel_value_t array[maxrow * maxcol]; //array which holds values in order (2D) |
| | | #define MAXROW 2 //maximum number of rows |
| | | #define MAXCOL 6 //maximum number of columns |
| | | #define MAXDIM 2 //maximum number of dimensions |
| | | scpi_channel_value_t array[MAXROW * MAXCOL]; //array which holds values in order (2D) |
| | | size_t chanlst_idx; //index for channel list |
| | | size_t arr_idx = 0; //index for array |
| | | size_t n, m = 1; //counters for row (n) and columns (m) |
| | |
| | | if (SCPI_Parameter(context, &channel_list_param, TRUE)) { |
| | | scpi_expr_result_t res; |
| | | scpi_bool_t is_range; |
| | | int32_t values_from[maxdim]; |
| | | int32_t values_to[maxdim]; |
| | | int32_t values_from[MAXDIM]; |
| | | int32_t values_to[MAXDIM]; |
| | | size_t dimensions; |
| | | |
| | | bool for_stop_row = false; //true if iteration for rows has to stop |
| | |
| | | array[arr_idx].col = values_from[1]; |
| | | } else { |
| | | return SCPI_RES_ERR; |
| | | break; |
| | | } |
| | | arr_idx++; //inkrement array where we want to save our values to, not neccessary otherwise |
| | | if (arr_idx >= MAXROW * MAXCOL) { |
| | | return SCPI_RES_ERR; |
| | | } |
| | | } else if (is_range == true) { |
| | | if (values_from[0] > values_to[0]) { |
| | | dir_row = -1; //we have to decrement from values_from |
| | |
| | | array[arr_idx].row = n; |
| | | array[arr_idx].col = m; |
| | | arr_idx++; |
| | | if (arr_idx >= MAXROW * MAXCOL) { |
| | | return SCPI_RES_ERR; |
| | | } |
| | | if (m == (size_t)values_to[1]) { |
| | | //endpoint reached, stop column for-loop |
| | | for_stop_col = true; |
| | |
| | | array[arr_idx].row = n; |
| | | array[arr_idx].col = 0; |
| | | arr_idx++; |
| | | if (arr_idx >= MAXROW * MAXCOL) { |
| | | return SCPI_RES_ERR; |
| | | } |
| | | } |
| | | if (n == (size_t)values_to[0]) { |
| | | //endpoint reached, stop row for-loop |
| | |
| | | |
| | | } else { |
| | | return SCPI_RES_ERR; |
| | | break; |
| | | } |
| | | //increase index |
| | | chanlst_idx++; |
| | |
| | | //while checks, whether incremented index is valid |
| | | } |
| | | //do something at the end if needed |
| | | array[arr_idx].row = 0; |
| | | array[arr_idx].col = 0; |
| | | //array[arr_idx].row = 0; |
| | | //array[arr_idx].col = 0; |
| | | } |
| | | |
| | | |
| | | { |
| | | size_t i; |
| | | fprintf(stderr, "TEST_Chanlst: "); |