added read-timeout (sec) to individual netcons #23

Author: zeroflag

arch/esp8266/ext.S

@@ -229,12 +229,27 @@ defprimitive "ms",2,ms,REGULAR
     CCALL forth_delay_ms
     NEXT
 
+// internal timeout
 defprimitive "netcon-set-recvtimeout",22,netcon_set_recvtimeout,REGULAR 
     DPOP a2                    // conn
     DPOP a3                    // recv timeout ms
     CCALL forth_netcon_set_recvtimeout
     NEXT
 
+// get user defined socket read timeout
+defprimitive "netcon-read-timeout@",20,netcon_get_readtimeout,REGULAR
+    DPOP a2                   // netcon
+    CCALL forth_netcon_get_read_timeout
+    DPUSH a2                  // timeout_sec
+    NEXT
+
+// set user defined socket read timeout
+defprimitive "netcon-read-timeout!",20,netcon_set_readtimeout,REGULAR
+    DPOP a2                   // netcon
+    DPOP a3                   // timeout_sec
+    CCALL forth_netcon_set_read_timeout
+    NEXT
+
 defprimitive "netcon-new",10,netcon_new,REGULAR
     DPOP a2                    // conn type
     CCALL forth_netcon_new

arch/esp8266/rtos/user/forth_netconn.c

@@ -8,6 +8,7 @@ struct forth_netconn {
     struct netconn* conn;
     struct netbuf* nbuf;
     int bufpos;
+    int read_timeout_sec;
 };
 
 struct forth_netconn* make_forth_netconn(struct netconn* conn) {
@@ -16,9 +17,18 @@ struct forth_netconn* make_forth_netconn(struct netconn* conn) {
     result->conn = conn;
     result->nbuf = NULL;
     result->bufpos = 0;
+    result->read_timeout_sec = -1;
     return result;
 }
 
+int forth_netcon_get_read_timeout(struct forth_netconn* conn) {
+    return conn->read_timeout_sec;
+}
+
+void forth_netcon_set_read_timeout(struct forth_netconn* conn, int seconds) {
+    conn->read_timeout_sec = seconds;
+}
+
 struct forth_netconn* forth_netcon_new(int type) {
     enum netconn_type con_type;
     //printf("New netcon type: %d\n", type);