| | |
| | | /*- |
| | | * 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. |
| | | */ |
| | | |
| | | /** |
| | |
| | | #include "lwip/tcp.h" |
| | | #include "lwip/inet.h" |
| | | |
| | | |
| | | #define DEVICE_PORT 5025 |
| | | #define CONTROL_PORT 5026 |
| | | |
| | | #define SCPI_THREAD_PRIO (tskIDLE_PRIORITY + 2) |
| | | |
| | | #define SCPI_MSG_TIMEOUT 0 |
| | |
| | | struct netconn *io; |
| | | struct netconn *control_io; |
| | | xQueueHandle evtQueue; |
| | | //FILE * fio; |
| | | //fd_set fds; |
| | | /* FILE * fio; */ |
| | | /* fd_set fds; */ |
| | | } user_data_t; |
| | | |
| | | struct _queue_event_t { |
| | |
| | | if (context->user_context != NULL) { |
| | | user_data_t * u = (user_data_t *) (context->user_context); |
| | | if (u->io) { |
| | | return (netconn_write(u->io, data, len, NETCONN_NOCOPY) == ERR_OK) ? len : 0; |
| | | return (netconn_write(u->io, data, len, NETCONN_COPY) == ERR_OK) ? len : 0; |
| | | } |
| | | } |
| | | return 0; |
| | |
| | | } |
| | | |
| | | int SCPI_Error(scpi_t * context, int_fast16_t err) { |
| | | (void) context; |
| | | // BEEP |
| | | iprintf("**ERROR: %ld, \"%s\"\r\n", (int32_t) err, SCPI_ErrorTranslate(err)); |
| | | (void) context; |
| | | if (err != 0) { |
| | | /* New error */ |
| | | /* Beep */ |
| | | /* Error LED ON */ |
| | | SCPI_Event_ErrorIndicatorOn(context, err); |
| | | } else { |
| | | /* No more errors in the queue */ |
| | | /* Error LED OFF */ |
| | | SCPI_Event_ErrorIndicatorOff(context, err); |
| | | } |
| | | return 0; |
| | | } |
| | |
| | | user_data_t * u = (user_data_t *) (context->user_context); |
| | | if (u->control_io) { |
| | | snprintf(b, sizeof (b), "SRQ%d\r\n", val); |
| | | return netconn_write(u->control_io, b, strlen(b), NETCONN_NOCOPY) == ERR_OK ? SCPI_RES_OK : SCPI_RES_ERR; |
| | | return netconn_write(u->control_io, b, strlen(b), NETCONN_COPY) == ERR_OK ? SCPI_RES_OK : SCPI_RES_ERR; |
| | | } |
| | | } |
| | | return SCPI_RES_OK; |
| | | } |
| | | |
| | | scpi_result_t SCPI_Reset(scpi_t * context) { |
| | | scpi_result_t __attribute__((weak)) SCPI_Reset(scpi_t * context) { |
| | | (void) context; |
| | | iprintf("**Reset\r\n"); |
| | | return SCPI_RES_OK; |
| | | } |
| | | |
| | | scpi_result_t SCPI_SystemCommTcpipControlQ(scpi_t * context) { |
| | | SCPI_ResultInt(context, CONTROL_PORT); |
| | | SCPI_ResultInt(context, SCPI_CONTROL_PORT); |
| | | return SCPI_RES_OK; |
| | | } |
| | | |
| | |
| | | } |
| | | |
| | | void SCPI_RequestControl(void) { |
| | | BaseType_t xReturned; |
| | | queue_event_t msg; |
| | | msg.cmd = SCPI_MSG_SET_ESE_REQ; |
| | | |
| | |
| | | } |
| | | */ |
| | | |
| | | xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | xReturned = xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | /* @fixme: replace by real error handling code */ |
| | | LWIP_ASSERT("SCPI_RequestControl failed", xReturned == pdPASS); |
| | | } |
| | | |
| | | void SCPI_AddError(int16_t err) { |
| | | BaseType_t xReturned; |
| | | queue_event_t msg; |
| | | msg.cmd = SCPI_MSG_SET_ERROR; |
| | | msg.param2 = err; |
| | | |
| | | xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | xReturned = xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | /* @fixme: replace by real error handling code */ |
| | | LWIP_ASSERT("SCPI_AddError failed", xReturned == pdPASS); |
| | | } |
| | | |
| | | void scpi_netconn_callback(struct netconn * conn, enum netconn_evt evt, u16_t len) { |
| | | BaseType_t xReturned; |
| | | queue_event_t msg; |
| | | (void) len; |
| | | |
| | |
| | | } else if (conn == user_data.control_io_listen) { |
| | | msg.cmd = SCPI_MSG_CONTROL_IO_LISTEN; |
| | | } |
| | | xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | xReturned = xQueueSend(user_data.evtQueue, &msg, 1000); |
| | | /* @fixme: replace by real error handling code */ |
| | | LWIP_ASSERT("scpi_netconn_callback failed", xReturned == pdPASS); |
| | | } |
| | | } |
| | | |
| | |
| | | } |
| | | } |
| | | |
| | | static int processIoListen(user_data_t * user_data) { |
| | | static int processIoListen(scpi_t * context, user_data_t * user_data) { |
| | | struct netconn *newconn; |
| | | |
| | | if (netconn_accept(user_data->io_listen, &newconn) == ERR_OK) { |
| | | if (user_data->io) { |
| | | // Close unwanted connection |
| | | /* Close unwanted connection */ |
| | | netconn_close(newconn); |
| | | netconn_delete(newconn); |
| | | } else { |
| | | // connection established |
| | | iprintf("***Connection established %s\r\n", inet_ntoa(newconn->pcb.ip->remote_ip)); |
| | | /* connection established */ |
| | | SCPI_Event_DeviceConnected(context, newconn); |
| | | ip_set_option(newconn->pcb.tcp, SOF_KEEPALIVE); |
| | | newconn->pcb.tcp->keep_idle = SCPI_KEEP_IDLE; // Override TCP_KEEPIDLE_DEFAULT for this connection. |
| | | newconn->pcb.tcp->keep_intvl = SCPI_KEEP_INTVL; // Override TCP_KEEPINTVL_DEFAULT for this connection. |
| | | newconn->pcb.tcp->keep_cnt = SCPI_KEEP_CNT; // Override TCP_KEEPCNT_DEFAULT for this connection. |
| | | user_data->io = newconn; |
| | | } |
| | | } |
| | |
| | | return 0; |
| | | } |
| | | |
| | | static int processSrqIoListen(user_data_t * user_data) { |
| | | static int processSrqIoListen(scpi_t * context, user_data_t * user_data) { |
| | | struct netconn *newconn; |
| | | |
| | | if (netconn_accept(user_data->control_io_listen, &newconn) == ERR_OK) { |
| | |
| | | netconn_close(newconn); |
| | | netconn_delete(newconn); |
| | | } else { |
| | | // control connection established |
| | | iprintf("***Control Connection established %s\r\n", inet_ntoa(newconn->pcb.ip->remote_ip)); |
| | | /* control connection established */ |
| | | SCPI_Event_ControlConnected(context, newconn); |
| | | ip_set_option(newconn->pcb.tcp, SOF_KEEPALIVE); |
| | | newconn->pcb.tcp->keep_idle = SCPI_KEEP_IDLE; // Override TCP_KEEPIDLE_DEFAULT for this connection. |
| | | newconn->pcb.tcp->keep_intvl = SCPI_KEEP_INTVL; // Override TCP_KEEPINTVL_DEFAULT for this connection. |
| | | newconn->pcb.tcp->keep_cnt = SCPI_KEEP_CNT; // Override TCP_KEEPCNT_DEFAULT for this connection. |
| | | user_data->control_io = newconn; |
| | | } |
| | | } |
| | |
| | | return 0; |
| | | } |
| | | |
| | | static void closeIo(user_data_t * user_data) { |
| | | // connection closed |
| | | static void closeIo(scpi_t * context, user_data_t * user_data) { |
| | | /* connection closed */ |
| | | SCPI_Event_DeviceDisconnected(context, user_data->io); |
| | | netconn_close(user_data->io); |
| | | netconn_delete(user_data->io); |
| | | user_data->io = NULL; |
| | | iprintf("***Connection closed\r\n"); |
| | | } |
| | | |
| | | static void closeSrqIo(user_data_t * user_data) { |
| | | // control connection closed |
| | | static void closeSrqIo(scpi_t * context, user_data_t * user_data) { |
| | | /* control connection closed */ |
| | | SCPI_Event_ControlDisconnected(context, user_data->io); |
| | | netconn_close(user_data->control_io); |
| | | netconn_delete(user_data->control_io); |
| | | user_data->control_io = NULL; |
| | | iprintf("***Control Connection closed\r\n"); |
| | | } |
| | | |
| | | static int processIo(user_data_t * user_data) { |
| | |
| | | if (buflen > 0) { |
| | | SCPI_Input(&scpi_context, buf, buflen); |
| | | } else { |
| | | //goto fail2; |
| | | /* goto fail2; */ |
| | | } |
| | | |
| | | netbuf_delete(inbuf); |
| | |
| | | netbuf_data(inbuf, (void**) &buf, &buflen); |
| | | |
| | | if (buflen > 0) { |
| | | // TODO process control |
| | | /* TODO process control */ |
| | | } else { |
| | | //goto fail2; |
| | | /* goto fail2; */ |
| | | } |
| | | |
| | | netbuf_delete(inbuf); |
| | |
| | | (void) arg; |
| | | |
| | | user_data.evtQueue = xQueueCreate(10, sizeof (queue_event_t)); |
| | | LWIP_ASSERT("user_data.evtQueue != NULL", user_data.evtQueue != NULL); |
| | | |
| | | // user_context will be pointer to socket |
| | | /* user_context will be pointer to socket */ |
| | | SCPI_Init(&scpi_context, |
| | | scpi_commands, |
| | | &scpi_interface, |
| | |
| | | |
| | | scpi_context.user_context = &user_data; |
| | | |
| | | user_data.io_listen = createServer(DEVICE_PORT); |
| | | user_data.control_io_listen = createServer(CONTROL_PORT); |
| | | user_data.io_listen = createServer(SCPI_DEVICE_PORT); |
| | | LWIP_ASSERT("user_data.io_listen != NULL", user_data.io_listen != NULL); |
| | | |
| | | user_data.control_io_listen = createServer(SCPI_CONTROL_PORT); |
| | | LWIP_ASSERT("user_data.control_io_listen != NULL", user_data.control_io_listen != NULL); |
| | | |
| | | while (1) { |
| | | waitServer(&user_data, &evt); |
| | | |
| | | if (evt.cmd == SCPI_MSG_TIMEOUT) { // timeout |
| | | if (evt.cmd == SCPI_MSG_TIMEOUT) { /* timeout */ |
| | | SCPI_Input(&scpi_context, NULL, 0); |
| | | } |
| | | |
| | | if ((user_data.io_listen != NULL) && (evt.cmd == SCPI_MSG_IO_LISTEN)) { |
| | | processIoListen(&user_data); |
| | | processIoListen(&scpi_context, &user_data); |
| | | } |
| | | |
| | | if ((user_data.control_io_listen != NULL) && (evt.cmd == SCPI_MSG_CONTROL_IO_LISTEN)) { |
| | | processSrqIoListen(&user_data); |
| | | processSrqIoListen(&scpi_context, &user_data); |
| | | } |
| | | |
| | | if ((user_data.io != NULL) && (evt.cmd == SCPI_MSG_IO)) { |
| | | processIo(&user_data); |
| | | processIo(&scpi_context, &user_data); |
| | | } |
| | | |
| | | if ((user_data.control_io != NULL) && (evt.cmd == SCPI_MSG_CONTROL_IO)) { |
| | | processSrqIo(&user_data); |
| | | processSrqIo(&scpi_context, &user_data); |
| | | } |
| | | |
| | | if (evt.cmd == SCPI_MSG_SET_ESE_REQ) { |
| | |
| | | } |
| | | |
| | | void scpi_server_init(void) { |
| | | sys_thread_new("SCPI", scpi_server_thread, NULL, 2 * DEFAULT_THREAD_STACKSIZE, SCPI_THREAD_PRIO); |
| | | } |
| | | TaskHandle_t xHandle = NULL; |
| | | BaseType_t xReturned; |
| | | xReturned = xTaskCreate(scpi_server_thread, "SCPI", DEFAULT_THREAD_STACKSIZE, NULL, SCPI_THREAD_PRIO, &xHandle); |
| | | LWIP_ASSERT("scpi_server_init failed", xReturned == pdPASS); |
| | | } |
| | | |
| | | /* Called by processIoListen() for additional reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_DeviceConnected(scpi_t * context, struct netconn * conn) { |
| | | iprintf("***Connection established %s\r\n", inet_ntoa(newconn->pcb.ip->remote_ip)); |
| | | /* Remote or Eth LED ON */ |
| | | } |
| | | |
| | | /* Called by closeIO() for additional reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_DeviceDisconnected(scpi_t * context, struct netconn * conn) { |
| | | iprintf("***Connection closed\r\n"); |
| | | /* Remote or Eth LED OFF */ |
| | | } |
| | | |
| | | /* Called by processIoListen() for additional reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_ControlConnected(scpi_t * context, struct netconn * conn) { |
| | | iprintf("***Control Connection established %s\r\n", inet_ntoa(newconn->pcb.ip->remote_ip)); |
| | | } |
| | | |
| | | /* Called by closeIO() for additional reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_ControlDisconnected(scpi_t * context, struct netconn * conn) { |
| | | iprintf("***Control Connection closed\r\n"); |
| | | } |
| | | |
| | | /* Called by SCPI_Error() for reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_ErrorIndicatorOn(scpi_t * context, int_fast16_t err) { |
| | | iprintf("**ERROR: %ld, \"%s\"\r\n", (int32_t) err, SCPI_ErrorTranslate(err)); |
| | | /* New error : BEEP, Error LED ON */ |
| | | } |
| | | |
| | | /* Called by SCPI_Error() for reporting. Override on demand. */ |
| | | void __attribute__((weak)) SCPI_Event_ErrorIndicatorOff(scpi_t * context, int_fast16_t err) { |
| | | iprintf("**ERROR: %ld, \"%s\"\r\n", (int32_t) err, SCPI_ErrorTranslate(err)); |
| | | /* No more errors in the queue : Error LED OFF */ |
| | | } |