| | |
| | | /*- |
| | | * Copyright (c) 2012-2013 Jan Breuer, |
| | | * BSD 2-Clause License |
| | | * |
| | | * All Rights Reserved |
| | | * Copyright (c) 2012-2018, 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: |
| | | * 1. Redistributions of source code must retain the above copyright notice, |
| | | * this list of conditions and the following disclaimer. |
| | | * 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. |
| | | * modification, are permitted provided that the following conditions are met: |
| | | * |
| | | * 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 |
| | | * DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE |
| | | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR |
| | | * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
| | | * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR |
| | | * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
| | | * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE |
| | | * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN |
| | | * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| | | * * Redistributions of source code must retain the above copyright notice, this |
| | | * list of conditions and the following disclaimer. |
| | | * |
| | | * * 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 COPYRIGHT HOLDERS AND CONTRIBUTORS "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 |
| | | * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE |
| | | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
| | | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR |
| | | * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER |
| | | * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, |
| | | * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
| | | * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| | | */ |
| | | |
| | | /** |
| | |
| | | /* Temperature */ |
| | | {/* name */ "CEL", /* unit */ SCPI_UNIT_CELSIUS, /* mult */ 1}, |
| | | #if USE_UNITS_IMPERIAL |
| | | {/* name */ "FAR", /* unit */ SCPI_UNIT_FAGRENHEIT, /* mult */ 1}, |
| | | {/* name */ "FAR", /* unit */ SCPI_UNIT_FAHRENHEIT, /* mult */ 1}, |
| | | #endif /* USE_UNITS_IMPERIAL */ |
| | | {/* name */ "K", /* unit */ SCPI_UNIT_KELVIN, /* mult */ 1}, |
| | | #endif /* USE_UNITS_TEMPERATURE */ |
| | |
| | | return FALSE; |
| | | } |
| | | |
| | | value->value *= unitDef->mult; |
| | | value->content.value *= unitDef->mult; |
| | | value->unit = unitDef->unit; |
| | | |
| | | return TRUE; |
| | |
| | | |
| | | switch (param.type) { |
| | | case SCPI_TOKEN_DECIMAL_NUMERIC_PROGRAM_DATA: |
| | | SCPI_ParamToDouble(context, ¶m, &(value->value)); |
| | | SCPI_ParamToDouble(context, ¶m, &(value->content.value)); |
| | | break; |
| | | case SCPI_TOKEN_HEXNUM: |
| | | SCPI_ParamToDouble(context, ¶m, &(value->value)); |
| | | SCPI_ParamToDouble(context, ¶m, &(value->content.value)); |
| | | break; |
| | | case SCPI_TOKEN_OCTNUM: |
| | | SCPI_ParamToDouble(context, ¶m, &(value->value)); |
| | | SCPI_ParamToDouble(context, ¶m, &(value->content.value)); |
| | | break; |
| | | case SCPI_TOKEN_BINNUM: |
| | | SCPI_ParamToDouble(context, ¶m, &(value->value)); |
| | | SCPI_ParamToDouble(context, ¶m, &(value->content.value)); |
| | | break; |
| | | case SCPI_TOKEN_DECIMAL_NUMERIC_PROGRAM_DATA_WITH_SUFFIX: |
| | | scpiLex_DecimalNumericProgramData(&state, &token); |
| | | scpiLex_WhiteSpace(&state, &token); |
| | | scpiLex_SuffixProgramData(&state, &token); |
| | | |
| | | SCPI_ParamToDouble(context, ¶m, &(value->value)); |
| | | SCPI_ParamToDouble(context, ¶m, &(value->content.value)); |
| | | |
| | | result = transformNumber(context, token.ptr, token.len, value); |
| | | break; |
| | |
| | | result = SCPI_ParamToChoice(context, &token, special, &tag); |
| | | |
| | | value->special = TRUE; |
| | | value->tag = tag; |
| | | value->content.tag = tag; |
| | | |
| | | break; |
| | | default: |
| | |
| | | } |
| | | |
| | | if (value->special) { |
| | | if (SCPI_ChoiceToName(special, value->tag, &type)) { |
| | | if (SCPI_ChoiceToName(special, value->content.tag, &type)) { |
| | | strncpy(str, type, len); |
| | | result = SCPIDEFINE_strnlen(str, len - 1); |
| | | str[result] = '\0'; |
| | |
| | | } |
| | | } |
| | | |
| | | result = SCPI_DoubleToStr(value->value, str, len); |
| | | result = SCPI_DoubleToStr(value->content.value, str, len); |
| | | |
| | | if (result + 1 < len) { |
| | | unit = translateUnitInverse(context->units, value->unit); |