[270] | 1 | /*
|
---|
| 2 | * TOPPERS ECHONET Lite Communication Middleware
|
---|
| 3 | *
|
---|
| 4 | * Copyright (C) 2014-2017 Cores Co., Ltd. Japan
|
---|
| 5 | *
|
---|
| 6 | * ä¸è¨èä½æ¨©è
|
---|
| 7 | ã¯ï¼ä»¥ä¸ã®(1)ï½(4)ã®æ¡ä»¶ãæºããå ´åã«éãï¼æ¬ã½ããã¦ã§
|
---|
| 8 | * ã¢ï¼æ¬ã½ããã¦ã§ã¢ãæ¹å¤ãããã®ãå«ãï¼ä»¥ä¸åãï¼ã使ç¨ã»è¤è£½ã»æ¹
|
---|
| 9 | * å¤ã»åé
|
---|
| 10 | å¸ï¼ä»¥ä¸ï¼å©ç¨ã¨å¼ã¶ï¼ãããã¨ãç¡åã§è¨±è«¾ããï¼
|
---|
| 11 | * (1) æ¬ã½ããã¦ã§ã¢ãã½ã¼ã¹ã³ã¼ãã®å½¢ã§å©ç¨ããå ´åã«ã¯ï¼ä¸è¨ã®èä½
|
---|
| 12 | * 権表示ï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãï¼ãã®ã¾ã¾ã®å½¢ã§ã½ã¼
|
---|
| 13 | * ã¹ã³ã¼ãä¸ã«å«ã¾ãã¦ãããã¨ï¼
|
---|
| 14 | * (2) æ¬ã½ããã¦ã§ã¢ãï¼ã©ã¤ãã©ãªå½¢å¼ãªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
| 15 | * ç¨ã§ããå½¢ã§åé
|
---|
| 16 | å¸ããå ´åã«ã¯ï¼åé
|
---|
| 17 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨
|
---|
| 18 | * è
|
---|
| 19 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®èä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨
|
---|
| 20 | * ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
| 21 | * (3) æ¬ã½ããã¦ã§ã¢ãï¼æ©å¨ã«çµã¿è¾¼ããªã©ï¼ä»ã®ã½ããã¦ã§ã¢éçºã«ä½¿
|
---|
| 22 | * ç¨ã§ããªãå½¢ã§åé
|
---|
| 23 | å¸ããå ´åã«ã¯ï¼æ¬¡ã®ããããã®æ¡ä»¶ãæºããã
|
---|
| 24 | * ã¨ï¼
|
---|
| 25 | * (a) åé
|
---|
| 26 | å¸ã«ä¼´ãããã¥ã¡ã³ãï¼å©ç¨è
|
---|
| 27 | ããã¥ã¢ã«ãªã©ï¼ã«ï¼ä¸è¨ã®è
|
---|
| 28 | * ä½æ¨©è¡¨ç¤ºï¼ãã®å©ç¨æ¡ä»¶ããã³ä¸è¨ã®ç¡ä¿è¨¼è¦å®ãæ²è¼ãããã¨ï¼
|
---|
| 29 | * (b) åé
|
---|
| 30 | å¸ã®å½¢æ
|
---|
| 31 | ãï¼å¥ã«å®ããæ¹æ³ã«ãã£ã¦ï¼TOPPERSããã¸ã§ã¯ãã«
|
---|
| 32 | * å ±åãããã¨ï¼
|
---|
| 33 | * (4) æ¬ã½ããã¦ã§ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ
|
---|
| 34 | * 害ãããï¼ä¸è¨èä½æ¨©è
|
---|
| 35 | ããã³TOPPERSããã¸ã§ã¯ããå
|
---|
| 36 | 責ãããã¨ï¼
|
---|
| 37 | * ã¾ãï¼æ¬ã½ããã¦ã§ã¢ã®ã¦ã¼ã¶ã¾ãã¯ã¨ã³ãã¦ã¼ã¶ããã®ãããªãç
|
---|
| 38 | * ç±ã«åºã¥ãè«æ±ãããï¼ä¸è¨èä½æ¨©è
|
---|
| 39 | ããã³TOPPERSããã¸ã§ã¯ãã
|
---|
| 40 | * å
|
---|
| 41 | 責ãããã¨ï¼
|
---|
| 42 | *
|
---|
| 43 | * æ¬ã½ããã¦ã§ã¢ã¯ï¼ç¡ä¿è¨¼ã§æä¾ããã¦ãããã®ã§ããï¼ä¸è¨èä½æ¨©è
|
---|
| 44 | ã
|
---|
| 45 | * ãã³TOPPERSããã¸ã§ã¯ãã¯ï¼æ¬ã½ããã¦ã§ã¢ã«é¢ãã¦ï¼ç¹å®ã®ä½¿ç¨ç®ç
|
---|
| 46 | * ã«å¯¾ããé©åæ§ãå«ãã¦ï¼ãããªãä¿è¨¼ãè¡ããªãï¼ã¾ãï¼æ¬ã½ããã¦ã§
|
---|
| 47 | * ã¢ã®å©ç¨ã«ããç´æ¥çã¾ãã¯éæ¥çã«çãããããªãæ害ã«é¢ãã¦ãï¼ã
|
---|
| 48 | * ã®è²¬ä»»ãè² ããªãï¼
|
---|
| 49 | *
|
---|
| 50 | * @(#) $Id: main.c 270 2017-02-09 04:03:47Z coas-nagasima $
|
---|
| 51 | */
|
---|
| 52 |
|
---|
| 53 | /*
|
---|
| 54 | * ãµã³ãã«ããã°ã©ã (1)ã®æ¬ä½
|
---|
| 55 | */
|
---|
| 56 |
|
---|
| 57 | #include <kernel.h>
|
---|
| 58 | #include <t_syslog.h>
|
---|
| 59 | #include <t_stdlib.h>
|
---|
| 60 | #include <sil.h>
|
---|
| 61 | #include <stdlib.h>
|
---|
| 62 | #include <string.h>
|
---|
| 63 | #include "syssvc/serial.h"
|
---|
| 64 | #include "syssvc/syslog.h"
|
---|
| 65 | #include "kernel_cfg.h"
|
---|
| 66 | #include "main.h"
|
---|
| 67 | #include "rza1.h"
|
---|
| 68 | #include <mruby.h>
|
---|
| 69 | #include <mruby/compile.h>
|
---|
| 70 | #include <mruby/proc.h>
|
---|
| 71 | #include <mruby/array.h>
|
---|
| 72 | #include <mruby/data.h>
|
---|
| 73 | #include <mruby/class.h>
|
---|
| 74 | #include <mruby/dump.h>
|
---|
| 75 | #include <mruby/string.h>
|
---|
| 76 | #include <tinet_config.h>
|
---|
| 77 | #include <netinet/in.h>
|
---|
| 78 | #include <netinet/in_itron.h>
|
---|
| 79 | #include <tinet_nic_defs.h>
|
---|
| 80 | #include <tinet_cfg.h>
|
---|
| 81 | #include <netinet/in_var.h>
|
---|
| 82 | #include <net/ethernet.h>
|
---|
| 83 | #include <net/if6_var.h>
|
---|
| 84 | #include <net/net.h>
|
---|
| 85 | #include <net/if_var.h>
|
---|
| 86 | #include <netinet/udp_var.h>
|
---|
| 87 | #include <ethernet_api.h>
|
---|
| 88 | #include "../webserver/httpd.h"
|
---|
| 89 | #include "../webserver/httpd-fs.h"
|
---|
| 90 | #include "../webserver/http-strings.h"
|
---|
| 91 | #include "../webserver/base64.h"
|
---|
| 92 | #include "../webserver/sha1.h"
|
---|
| 93 | #include "mruby_arduino.h"
|
---|
| 94 | #include "gpio_api.h"
|
---|
| 95 | #include "arduino.h"
|
---|
| 96 | #include "ff.h"
|
---|
| 97 |
|
---|
| 98 | #ifndef _MSC_VER
|
---|
| 99 | void strcpy_s(char *dst, int size, const char *src);
|
---|
| 100 | void strcat_s(char *dst, int size, const char *src);
|
---|
| 101 | #endif
|
---|
| 102 |
|
---|
| 103 | uint8_t mac_addr[6] = {0x00, 0x30, 0x13, 0x06, 0x62, 0xC0};
|
---|
| 104 |
|
---|
| 105 | SYSTIM main_time;
|
---|
| 106 | struct httpd_state *uploding;
|
---|
| 107 |
|
---|
| 108 | static void netif_link_callback(T_IFNET *ether);
|
---|
| 109 | static void execute_ruby();
|
---|
| 110 |
|
---|
| 111 | /* TCP éåä¿¡ã¦ã£ã³ããããã¡ */
|
---|
| 112 | uint8_t tcp_swbuf1[TCP_SWBUF_SIZE];
|
---|
| 113 | uint8_t tcp_rwbuf1[TCP_RWBUF_SIZE];
|
---|
| 114 | uint8_t tcp_swbuf2[TCP_SWBUF_SIZE];
|
---|
| 115 | uint8_t tcp_rwbuf2[TCP_RWBUF_SIZE];
|
---|
| 116 |
|
---|
| 117 | #define ISO_nl 0x0a
|
---|
| 118 | #define ISO_space 0x20
|
---|
| 119 | #define ISO_bang 0x21
|
---|
| 120 | #define ISO_percent 0x25
|
---|
| 121 | #define ISO_period 0x2e
|
---|
| 122 | #define ISO_slash 0x2f
|
---|
| 123 | #define ISO_colon 0x3a
|
---|
| 124 |
|
---|
| 125 | ID ecn_api_mailboxid;
|
---|
| 126 | ID WEBSOCKET_MBXID;
|
---|
| 127 |
|
---|
| 128 | struct httpd_state httpd_state[2] = {
|
---|
| 129 | {MAIN1_TASK, TCP_CEPID1},
|
---|
| 130 | {MAIN2_TASK, TCP_CEPID2},
|
---|
| 131 | };
|
---|
| 132 |
|
---|
| 133 | /*
|
---|
| 134 | * ãããã¯ã¼ã¯å±¤ã®é¸æ
|
---|
| 135 | */
|
---|
| 136 |
|
---|
| 137 | #ifdef SUPPORT_INET6
|
---|
| 138 |
|
---|
| 139 | #define TCP_ACP_CEP(c,r,d,t) tcp6_acp_cep(c,r,d,t)
|
---|
| 140 | #define IP2STR(s,a) ipv62str(s,a)
|
---|
| 141 |
|
---|
| 142 | #else /* of #ifdef SUPPORT_INET6 */
|
---|
| 143 |
|
---|
| 144 | #ifdef SUPPORT_INET4
|
---|
| 145 |
|
---|
| 146 | #define TCP_ACP_CEP(c,r,d,t) tcp_acp_cep(c,r,d,t)
|
---|
| 147 | #define IP2STR(s,a) ip2str(s,a)
|
---|
| 148 |
|
---|
| 149 | #endif /* of #ifdef SUPPORT_INET4 */
|
---|
| 150 |
|
---|
| 151 | #endif /* of #ifdef SUPPORT_INET6 */
|
---|
| 152 |
|
---|
| 153 | struct httpd_state *get_httpd(ID cepid)
|
---|
| 154 | {
|
---|
| 155 | for (int i = 0; i < 2; i++) {
|
---|
| 156 | if (httpd_state[i].cepid != cepid)
|
---|
| 157 | continue;
|
---|
| 158 |
|
---|
| 159 | return &httpd_state[i];
|
---|
| 160 | }
|
---|
| 161 | return NULL;
|
---|
| 162 | }
|
---|
| 163 |
|
---|
| 164 | struct websocket *websocket_getws(ID wbsid)
|
---|
| 165 | {
|
---|
| 166 | for (int i = 0; i < 2; i++) {
|
---|
| 167 | if (httpd_state[i].websocket.wbsid != wbsid)
|
---|
| 168 | continue;
|
---|
| 169 |
|
---|
| 170 | return &httpd_state[i].websocket;
|
---|
| 171 | }
|
---|
| 172 | return NULL;
|
---|
| 173 | }
|
---|
| 174 |
|
---|
| 175 | void send_file(struct httpd_state *s)
|
---|
| 176 | {
|
---|
| 177 | char *buf;
|
---|
| 178 | int len, slen;
|
---|
| 179 |
|
---|
| 180 | while (s->file.len > 0) {
|
---|
| 181 | slen = tcp_get_buf(s->cepid, (void **)&buf, TMO_FEVR);
|
---|
| 182 | if (slen < 0) {
|
---|
| 183 | syslog(LOG_ERROR, "send_file#tcp_get_buf(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, slen);
|
---|
| 184 | s->state = STATE_CLOSING;
|
---|
| 185 | break;
|
---|
| 186 | }
|
---|
| 187 | if (slen == 0)
|
---|
| 188 | return;
|
---|
| 189 |
|
---|
| 190 | len = s->file.len;
|
---|
| 191 | if (len > slen)
|
---|
| 192 | len = slen;
|
---|
| 193 |
|
---|
| 194 | len = httpd_fs_read(&s->file, buf, len);
|
---|
| 195 | if (len <= 0) {
|
---|
| 196 | syslog(LOG_ERROR, "send_file#httpd_fs_read(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, len);
|
---|
| 197 | break;
|
---|
| 198 | }
|
---|
| 199 |
|
---|
| 200 | s->file.len -= len;
|
---|
| 201 | s->file.pos += len;
|
---|
| 202 |
|
---|
| 203 | if ((slen = tcp_snd_buf(s->cepid, len)) != E_OK) {
|
---|
| 204 | syslog(LOG_ERROR, "send_file#tcp_snd_buf(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, slen);
|
---|
| 205 | s->state = STATE_CLOSING;
|
---|
| 206 | break;
|
---|
| 207 | }
|
---|
| 208 | }
|
---|
| 209 |
|
---|
| 210 | syslog(LOG_NOTICE, "close: %s.%d %s", s->addr, ((T_IPV4EP *)s->dst)->portno, s->filename);
|
---|
| 211 | httpd_fs_close(&s->file);
|
---|
| 212 | s->file.len = 0;
|
---|
| 213 | s->file.pos = 0;
|
---|
| 214 |
|
---|
| 215 | s->out.state = OUT_STATE_SEND_END;
|
---|
| 216 | }
|
---|
| 217 |
|
---|
| 218 | void send_data(struct httpd_state *s)
|
---|
| 219 | {
|
---|
| 220 | char *buf;
|
---|
| 221 | int len, slen;
|
---|
| 222 |
|
---|
| 223 | while (s->response_len > 0) {
|
---|
| 224 | slen = tcp_get_buf(s->cepid, (void **)&buf, TMO_FEVR);
|
---|
| 225 | if (slen < 0) {
|
---|
| 226 | syslog(LOG_ERROR, "send_data#tcp_get_buf(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, slen);
|
---|
| 227 | s->state = STATE_CLOSING;
|
---|
| 228 | break;
|
---|
| 229 | }
|
---|
| 230 | if (slen == 0)
|
---|
| 231 | return;
|
---|
| 232 |
|
---|
| 233 | len = s->response_len;
|
---|
| 234 | if (len > slen)
|
---|
| 235 | len = slen;
|
---|
| 236 |
|
---|
| 237 | memcpy(buf, &s->response_body[s->response_pos], len);
|
---|
| 238 |
|
---|
| 239 | s->response_len -= len;
|
---|
| 240 | s->response_pos += len;
|
---|
| 241 |
|
---|
| 242 | if ((slen = tcp_snd_buf(s->cepid, len)) != E_OK) {
|
---|
| 243 | syslog(LOG_ERROR, "send_data#tcp_snd_buf(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, slen);
|
---|
| 244 | s->state = STATE_CLOSING;
|
---|
| 245 | break;
|
---|
| 246 | }
|
---|
| 247 | }
|
---|
| 248 |
|
---|
| 249 | s->response_body = NULL;
|
---|
| 250 | s->response_len = 0;
|
---|
| 251 | s->response_pos = 0;
|
---|
| 252 |
|
---|
| 253 | s->out.state = OUT_STATE_SEND_END;
|
---|
| 254 | }
|
---|
| 255 |
|
---|
| 256 | void send_headers(struct httpd_state *s, const char *statushdr)
|
---|
| 257 | {
|
---|
| 258 | int len;
|
---|
| 259 | char *ptr;
|
---|
| 260 |
|
---|
| 261 | len = strlen(statushdr);
|
---|
| 262 | tcp_snd_dat(s->cepid, (void *)statushdr, len, TMO_FEVR);
|
---|
| 263 |
|
---|
| 264 | if ((s->filename[0] == '0') && (s->file.len > 0)) {
|
---|
| 265 | len = sizeof(http_content_encoding_gzip) - 1;
|
---|
| 266 | tcp_snd_dat(s->cepid, (void *)http_content_encoding_gzip, len, TMO_FEVR);
|
---|
| 267 | }
|
---|
| 268 |
|
---|
| 269 | if (s->file.redirect) {
|
---|
| 270 | len = sizeof(http_location) - 1;
|
---|
| 271 | tcp_snd_dat(s->cepid, (void *)http_location, len, TMO_FEVR);
|
---|
| 272 | if (s->filename[0] == '1') {
|
---|
| 273 | len = 2;
|
---|
| 274 | tcp_snd_dat(s->cepid, "/~", len, TMO_FEVR);
|
---|
| 275 | }
|
---|
| 276 | len = strlen(s->filename);
|
---|
| 277 | tcp_snd_dat(s->cepid, s->filename, len, TMO_FEVR);
|
---|
| 278 | if (s->query != NULL) {
|
---|
| 279 | tcp_snd_dat(s->cepid, "?", 1, TMO_FEVR);
|
---|
| 280 | len = strlen(s->query);
|
---|
| 281 | tcp_snd_dat(s->cepid, s->query, len, TMO_FEVR);
|
---|
| 282 | }
|
---|
| 283 | len = 2;
|
---|
| 284 | tcp_snd_dat(s->cepid, "\r", len, TMO_FEVR);
|
---|
| 285 | }
|
---|
| 286 |
|
---|
| 287 | ptr = strrchr(s->filename, ISO_period);
|
---|
| 288 | if (ptr == NULL) {
|
---|
| 289 | len = sizeof(http_content_type_binary) - 1;
|
---|
| 290 | tcp_snd_dat(s->cepid, (void *)http_content_type_binary, len, TMO_FEVR);
|
---|
| 291 | }
|
---|
| 292 | else if (strncmp(http_html, ptr, sizeof(http_html) - 1) == 0 ||
|
---|
| 293 | strncmp(http_htm, ptr, sizeof(http_htm) - 1) == 0) {
|
---|
| 294 | len = sizeof(http_content_type_html) - 1;
|
---|
| 295 | tcp_snd_dat(s->cepid, (void *)http_content_type_html, len, TMO_FEVR);
|
---|
| 296 | }
|
---|
| 297 | else if (strncmp(http_css, ptr, sizeof(http_css) - 1) == 0) {
|
---|
| 298 | len = sizeof(http_content_type_css) - 1;
|
---|
| 299 | tcp_snd_dat(s->cepid, (void *)http_content_type_css, len, TMO_FEVR);
|
---|
| 300 | }
|
---|
| 301 | else if (strncmp(http_js, ptr, sizeof(http_js) - 1) == 0) {
|
---|
| 302 | len = sizeof(http_content_type_js) - 1;
|
---|
| 303 | tcp_snd_dat(s->cepid, (void *)http_content_type_js, len, TMO_FEVR);
|
---|
| 304 | }
|
---|
| 305 | else if (strncmp(http_json, ptr, sizeof(http_json) - 1) == 0) {
|
---|
| 306 | len = sizeof(http_content_type_json) - 1;
|
---|
| 307 | tcp_snd_dat(s->cepid, (void *)http_content_type_json, len, TMO_FEVR);
|
---|
| 308 | }
|
---|
| 309 | else if (strncmp(http_png, ptr, sizeof(http_png) - 1) == 0) {
|
---|
| 310 | len = sizeof(http_content_type_png) - 1;
|
---|
| 311 | tcp_snd_dat(s->cepid, (void *)http_content_type_png, len, TMO_FEVR);
|
---|
| 312 | }
|
---|
| 313 | else if (strncmp(http_gif, ptr, sizeof(http_gif) - 1) == 0) {
|
---|
| 314 | len = sizeof(http_content_type_gif) - 1;
|
---|
| 315 | tcp_snd_dat(s->cepid, (void *)http_content_type_gif, len, TMO_FEVR);
|
---|
| 316 | }
|
---|
| 317 | else if (strncmp(http_jpg, ptr, sizeof(http_jpg) - 1) == 0) {
|
---|
| 318 | len = sizeof(http_content_type_jpg) - 1;
|
---|
| 319 | tcp_snd_dat(s->cepid, (void *)http_content_type_jpg, len, TMO_FEVR);
|
---|
| 320 | }
|
---|
| 321 | else if (strncmp(http_svg, ptr, sizeof(http_svg) - 1) == 0) {
|
---|
| 322 | len = sizeof(http_content_type_svg) - 1;
|
---|
| 323 | tcp_snd_dat(s->cepid, (void *)http_content_type_svg, len, TMO_FEVR);
|
---|
| 324 | }
|
---|
| 325 | else if (strncmp(http_text, ptr, sizeof(http_text) - 1) == 0) {
|
---|
| 326 | len = sizeof(http_content_type_text) - 1;
|
---|
| 327 | tcp_snd_dat(s->cepid, (void *)http_content_type_text, len, TMO_FEVR);
|
---|
| 328 | }
|
---|
| 329 | else if (strncmp(http_eot, ptr, sizeof(http_eot) - 1) == 0) {
|
---|
| 330 | len = sizeof(http_content_type_eot) - 1;
|
---|
| 331 | tcp_snd_dat(s->cepid, (void *)http_content_type_eot, len, TMO_FEVR);
|
---|
| 332 | }
|
---|
| 333 | else if (strncmp(http_ttf, ptr, sizeof(http_ttf) - 1) == 0) {
|
---|
| 334 | len = sizeof(http_content_type_ttf) - 1;
|
---|
| 335 | tcp_snd_dat(s->cepid, (void *)http_content_type_ttf, len, TMO_FEVR);
|
---|
| 336 | }
|
---|
| 337 | else if (strncmp(http_woff, ptr, sizeof(http_woff) - 1) == 0) {
|
---|
| 338 | len = sizeof(http_content_type_woff) - 1;
|
---|
| 339 | tcp_snd_dat(s->cepid, (void *)http_content_type_woff, len, TMO_FEVR);
|
---|
| 340 | }
|
---|
| 341 | else if (strncmp(http_woff2, ptr, sizeof(http_woff2) - 1) == 0) {
|
---|
| 342 | len = sizeof(http_content_type_woff2) - 1;
|
---|
| 343 | tcp_snd_dat(s->cepid, (void *)http_content_type_woff2, len, TMO_FEVR);
|
---|
| 344 | }
|
---|
| 345 | else if (strncmp(http_ico, ptr, sizeof(http_ico) - 1) == 0) {
|
---|
| 346 | len = sizeof(http_content_type_ico) - 1;
|
---|
| 347 | tcp_snd_dat(s->cepid, (void *)http_content_type_ico, len, TMO_FEVR);
|
---|
| 348 | }
|
---|
| 349 | else {
|
---|
| 350 | len = sizeof(http_content_type_plain) - 1;
|
---|
| 351 | tcp_snd_dat(s->cepid, (void *)http_content_type_plain, len, TMO_FEVR);
|
---|
| 352 | }
|
---|
| 353 |
|
---|
| 354 | if (s->file.len > 0) {
|
---|
| 355 | len = sizeof(http_content_length) - 1;
|
---|
| 356 | tcp_snd_dat(s->cepid, (void *)http_content_length, len, TMO_FEVR);
|
---|
| 357 | sprintf(s->temp, "%d\r\n", s->file.len);
|
---|
| 358 | tcp_snd_dat(s->cepid, (void *)s->temp, strlen(s->temp), TMO_FEVR);
|
---|
| 359 | }
|
---|
| 360 |
|
---|
| 361 | if (s->message.should_keep_alive && s->reset == 0) {
|
---|
| 362 | len = sizeof(http_connection_keep_alive) - 1;
|
---|
| 363 | tcp_snd_dat(s->cepid, (void *)http_connection_keep_alive, len, TMO_FEVR);
|
---|
| 364 | }
|
---|
| 365 | else {
|
---|
| 366 | len = sizeof(http_connection_close) - 1;
|
---|
| 367 | tcp_snd_dat(s->cepid, (void *)http_connection_close, len, TMO_FEVR);
|
---|
| 368 | }
|
---|
| 369 |
|
---|
| 370 | tcp_snd_dat(s->cepid, (void *)http_crnl, 2, TMO_FEVR);
|
---|
| 371 |
|
---|
| 372 | if (s->filename != NULL) {
|
---|
| 373 | s->out.state = OUT_STATE_SEND_FILE;
|
---|
| 374 | }
|
---|
| 375 | else {
|
---|
| 376 | s->out.state = OUT_STATE_SEND_DATA;
|
---|
| 377 | }
|
---|
| 378 | }
|
---|
| 379 |
|
---|
| 380 | void handle_output(struct httpd_state *s)
|
---|
| 381 | {
|
---|
| 382 | s->out.wait = false;
|
---|
| 383 |
|
---|
| 384 | switch (s->out.state) {
|
---|
| 385 | case OUT_STATE_WAIT_REQUEST:
|
---|
| 386 | s->out.wait = true;
|
---|
| 387 | break;
|
---|
| 388 | case OUT_STATE_OPEN_GET_FILE:
|
---|
| 389 | syslog(LOG_NOTICE, "open: %s.%d %s", s->addr, ((T_IPV4EP *)s->dst)->portno, s->filename);
|
---|
| 390 | if (!httpd_fs_open(s->filename, sizeof(s->message.request_url), &s->file)) {
|
---|
| 391 | s->filename = NULL;
|
---|
| 392 | s->response_body = http_content_404;
|
---|
| 393 | s->response_pos = 0;
|
---|
| 394 | s->response_len = sizeof(http_content_403) - 1;
|
---|
| 395 | s->out.statushdr = http_header_404;
|
---|
| 396 | }
|
---|
| 397 | else {
|
---|
| 398 | s->out.statushdr = s->file.redirect ? http_header_301 : http_header_200;
|
---|
| 399 | }
|
---|
| 400 | s->out.state = OUT_STATE_SEND_HEADER;
|
---|
| 401 | break;
|
---|
| 402 | case OUT_STATE_WAIT_POST_BODY:
|
---|
| 403 | s->out.wait = true;
|
---|
| 404 | break;
|
---|
| 405 | case OUT_STATE_BODY_RECEIVED:
|
---|
| 406 | s->out.statushdr = http_header_200;
|
---|
| 407 | s->out.state = OUT_STATE_SEND_HEADER;
|
---|
| 408 | break;
|
---|
| 409 | case OUT_STATE_SEND_HEADER:
|
---|
| 410 | send_headers(s, s->out.statushdr);
|
---|
| 411 | break;
|
---|
| 412 | case OUT_STATE_SEND_FILE:
|
---|
| 413 | send_file(s);
|
---|
| 414 | break;
|
---|
| 415 | case OUT_STATE_SEND_DATA:
|
---|
| 416 | send_data(s);
|
---|
| 417 | break;
|
---|
| 418 | case OUT_STATE_SEND_END:
|
---|
| 419 | s->out.wait = true;
|
---|
| 420 | if (s->message.should_keep_alive && s->reset == 0) {
|
---|
| 421 | s->out.state = OUT_STATE_WAIT_REQUEST;
|
---|
| 422 | }
|
---|
| 423 | else {
|
---|
| 424 | s->state = STATE_CLOSING;
|
---|
| 425 | }
|
---|
| 426 | break;
|
---|
| 427 | }
|
---|
| 428 | }
|
---|
| 429 |
|
---|
| 430 | void send_ws_headers(struct httpd_state *s, const char *statushdr)
|
---|
| 431 | {
|
---|
| 432 | int len;
|
---|
| 433 |
|
---|
| 434 | len = strlen(statushdr);
|
---|
| 435 | tcp_snd_dat(s->cepid, (void *)statushdr, len, TMO_FEVR);
|
---|
| 436 |
|
---|
| 437 | len = sizeof(http_upgrade) - 1;
|
---|
| 438 | tcp_snd_dat(s->cepid, (void *)http_upgrade, len, TMO_FEVR);
|
---|
| 439 | len = strlen(s->message.upgrade);
|
---|
| 440 | tcp_snd_dat(s->cepid, s->message.upgrade, len, TMO_FEVR);
|
---|
| 441 | len = sizeof(http_crnl) - 1;
|
---|
| 442 | tcp_snd_dat(s->cepid, (void *)http_crnl, len, TMO_FEVR);
|
---|
| 443 |
|
---|
| 444 | len = sizeof(http_connection) - 1;
|
---|
| 445 | tcp_snd_dat(s->cepid, (void *)http_connection, len, TMO_FEVR);
|
---|
| 446 | len = strlen(s->message.connection);
|
---|
| 447 | tcp_snd_dat(s->cepid, s->message.connection, len, TMO_FEVR);
|
---|
| 448 | len = sizeof(http_crnl) - 1;
|
---|
| 449 | tcp_snd_dat(s->cepid, (void *)http_crnl, len, TMO_FEVR);
|
---|
| 450 |
|
---|
| 451 | len = sizeof(http_sec_websocket_accept) - 1;
|
---|
| 452 | tcp_snd_dat(s->cepid, (void *)http_sec_websocket_accept, len, TMO_FEVR);
|
---|
| 453 | len = strlen(s->message.response_key);
|
---|
| 454 | tcp_snd_dat(s->cepid, s->message.response_key, len, TMO_FEVR);
|
---|
| 455 | len = sizeof(http_crnl) - 1;
|
---|
| 456 | tcp_snd_dat(s->cepid, (void *)http_crnl, len, TMO_FEVR);
|
---|
| 457 |
|
---|
| 458 | len = sizeof(http_sec_websocket_protocol) - 1;
|
---|
| 459 | tcp_snd_dat(s->cepid, (void *)http_sec_websocket_protocol, len, TMO_FEVR);
|
---|
| 460 | len = strlen(s->message.sec_websocket_protocol);
|
---|
| 461 | tcp_snd_dat(s->cepid, s->message.sec_websocket_protocol, len, TMO_FEVR);
|
---|
| 462 | len = sizeof(http_crnl) - 1;
|
---|
| 463 | tcp_snd_dat(s->cepid, (void *)http_crnl, len, TMO_FEVR);
|
---|
| 464 |
|
---|
| 465 | len = sizeof(http_crnl) - 1;
|
---|
| 466 | tcp_snd_dat(s->cepid, (void *)http_crnl, len, TMO_FEVR);
|
---|
| 467 | }
|
---|
| 468 |
|
---|
| 469 | void send_ws_data(struct httpd_state *s)
|
---|
| 470 | {
|
---|
| 471 | char *buf;
|
---|
| 472 | int slen;
|
---|
| 473 |
|
---|
| 474 | slen = tcp_get_buf(s->cepid, (void **)&buf, TMO_FEVR);
|
---|
| 475 | if (slen < 0) {
|
---|
| 476 | syslog(LOG_ERROR, "send_ws_data#tcp_get_buf(%s.%d) => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, slen);
|
---|
| 477 | return;
|
---|
| 478 | }
|
---|
| 479 |
|
---|
| 480 | websocket_output(&s->websocket, buf, slen);
|
---|
| 481 | }
|
---|
| 482 |
|
---|
| 483 | void handle_ws_output(struct httpd_state *s)
|
---|
| 484 | {
|
---|
| 485 | char shaHash[20];
|
---|
| 486 | SHA_CTX sha1;
|
---|
| 487 | int len;
|
---|
| 488 |
|
---|
| 489 | strlncat(s->message.response_key, sizeof(s->message.response_key),
|
---|
| 490 | s->message.sec_websocket_key, sizeof(s->message.sec_websocket_key));
|
---|
| 491 | len = strlncat(s->message.response_key, sizeof(s->message.response_key),
|
---|
| 492 | http_websocket_guid, sizeof(http_websocket_guid));
|
---|
| 493 | memset(shaHash, 0, sizeof(shaHash));
|
---|
| 494 | SHA1_Init(&sha1);
|
---|
| 495 | SHA1_Update(&sha1, (sha1_byte *)s->message.response_key, len);
|
---|
| 496 | SHA1_Final((sha1_byte *)shaHash, &sha1);
|
---|
| 497 | base64_encode((unsigned char *)s->message.response_key,
|
---|
| 498 | sizeof(s->message.response_key), (unsigned char *)shaHash, sizeof(shaHash));
|
---|
| 499 |
|
---|
| 500 | send_ws_headers(s, http_header_101);
|
---|
| 501 |
|
---|
| 502 | s->message.response_key[0] = '\0';
|
---|
| 503 |
|
---|
| 504 | do {
|
---|
| 505 | while (!websocket_newdata(&s->websocket))
|
---|
| 506 | slp_tsk();
|
---|
| 507 |
|
---|
| 508 | send_ws_data(s);
|
---|
| 509 | } while ((s->state == STATE_CONNECTED) && (!s->close_req));
|
---|
| 510 | s->state = STATE_DISCONNECTED;
|
---|
| 511 | websocket_destroy(&s->websocket);
|
---|
| 512 | s->close_req = 0;
|
---|
| 513 |
|
---|
| 514 | s->state = STATE_CLOSING;
|
---|
| 515 | }
|
---|
| 516 |
|
---|
| 517 | void handle_input(struct httpd_state *s)
|
---|
| 518 | {
|
---|
| 519 | size_t done;
|
---|
| 520 | int len;
|
---|
| 521 |
|
---|
| 522 | s->in.wait = false;
|
---|
| 523 |
|
---|
| 524 | switch (s->in.state) {
|
---|
| 525 | case IN_STATE_START:
|
---|
| 526 | http_parser_init(&s->parser, HTTP_REQUEST);
|
---|
| 527 | s->in.state = IN_STATE_REQUEST;
|
---|
| 528 | break;
|
---|
| 529 | case IN_STATE_REQUEST:
|
---|
| 530 | case IN_STATE_RESPONSE:
|
---|
| 531 | case IN_STATE_UPLOAD:
|
---|
| 532 | if ((len = tcp_rcv_buf(s->cepid, (void **)&s->in.data, TMO_POL)) <= 0) {
|
---|
| 533 | if ((len == E_TMOUT) || (len == 0)) {
|
---|
| 534 | // 3ç§ã¯å¾
|
---|
| 535 | ã¤
|
---|
| 536 | if (main_time - s->in.timer < 30000000) {
|
---|
| 537 | s->in.wait = true;
|
---|
| 538 | break;
|
---|
| 539 | }
|
---|
| 540 | }
|
---|
| 541 | syslog(LOG_ERROR, "handle_input#tcp_rcv_buf#%d(%s.%d) => %d", s->in.state, s->addr, ((T_IPV4EP *)s->dst)->portno, len);
|
---|
| 542 | uploding = NULL;
|
---|
| 543 | s->state = STATE_CLOSING;
|
---|
| 544 | return;
|
---|
| 545 | }
|
---|
| 546 | done = http_parser_execute(&s->parser, &websvr_settings, s->in.data, len);
|
---|
| 547 | tcp_rel_buf(s->cepid, done);
|
---|
| 548 | if (s->parser.http_errno != HPE_OK) {
|
---|
| 549 | syslog(LOG_ERROR, "http_parser error %s.%d => %d", s->addr, ((T_IPV4EP *)s->dst)->portno, s->parser.http_errno);
|
---|
| 550 | uploding = NULL;
|
---|
| 551 | s->state = STATE_CLOSING;
|
---|
| 552 | return;
|
---|
| 553 | }
|
---|
| 554 |
|
---|
| 555 | s->parse_pos = done;
|
---|
| 556 | s->parse_len = len - done;
|
---|
| 557 | break;
|
---|
| 558 | case IN_STATE_UPLOAD_WAIT:
|
---|
| 559 | if (uploding != NULL) {
|
---|
| 560 | s->in.wait = true;
|
---|
| 561 | }
|
---|
| 562 | else {
|
---|
| 563 | uploding = s;
|
---|
| 564 | s->in.state = IN_STATE_UPLOAD;
|
---|
| 565 | }
|
---|
| 566 | break;
|
---|
| 567 | case IN_STATE_WEBSOCKET:
|
---|
| 568 | if (s->parse_len <= 0) {
|
---|
| 569 | if ((len = tcp_rcv_buf(s->cepid, (void **)&s->in.data, TMO_POL)) <= 0) {
|
---|
| 570 | if ((len == E_TMOUT) || (len == 0)) {
|
---|
| 571 | s->in.wait = true;
|
---|
| 572 | break;
|
---|
| 573 | }
|
---|
| 574 | syslog(LOG_ERROR, "handle_input#tcp_rcv_buf#%d(%s.%d) => %d", s->in.state, s->addr, ((T_IPV4EP *)s->dst)->portno, len);
|
---|
| 575 | s->state = STATE_CLOSING;
|
---|
| 576 | break;
|
---|
| 577 | }
|
---|
| 578 |
|
---|
| 579 | s->parse_pos = 0;
|
---|
| 580 | s->parse_len = len;
|
---|
| 581 | }
|
---|
| 582 | else
|
---|
| 583 | len = s->parse_len;
|
---|
| 584 | done = websocket_input(&s->websocket, (void *)s->in.data, s->parse_len);
|
---|
| 585 | tcp_rel_buf(s->cepid, done);
|
---|
| 586 | if ((done != 0) || (s->websocket.rstate.opecode == connection_close)) {
|
---|
| 587 | s->close_req = 1;
|
---|
| 588 | s->state = STATE_CLOSING;
|
---|
| 589 | break;
|
---|
| 590 | }
|
---|
| 591 | s->parse_pos = done;
|
---|
| 592 | s->parse_len -= done;
|
---|
| 593 | break;
|
---|
| 594 | case IN_STATE_END:
|
---|
| 595 | s->in.wait = true;
|
---|
| 596 | break;
|
---|
| 597 | default:
|
---|
| 598 | s->state = STATE_CLOSING;
|
---|
| 599 | break;
|
---|
| 600 | }
|
---|
| 601 | }
|
---|
| 602 |
|
---|
| 603 | /*
|
---|
| 604 | * ãã³ããããã³ã°ã³ã¼ã«ã®ã³ã¼ã«ããã¯é¢æ°
|
---|
| 605 | */
|
---|
| 606 | ER
|
---|
| 607 | callback_nblk_tcp(ID cepid, FN fncd, void *p_parblk)
|
---|
| 608 | {
|
---|
| 609 | struct httpd_state *s = get_httpd(cepid);
|
---|
| 610 |
|
---|
| 611 | if (s == NULL)
|
---|
| 612 | syslog(LOG_NOTICE, "callback_nblk_tcp(%d, %d)", fncd, cepid);
|
---|
| 613 | else
|
---|
| 614 | syslog(LOG_NOTICE, "callback_nblk_tcp(%d, %s.%d)", fncd, s->addr, ((T_IPV4EP *)s->dst)->portno);
|
---|
| 615 |
|
---|
| 616 | return E_PAR;
|
---|
| 617 | }
|
---|
| 618 |
|
---|
| 619 | /*
|
---|
| 620 | * ã¡ã¤ã³ã¿ã¹ã¯
|
---|
| 621 | */
|
---|
| 622 | void main_task(intptr_t exinf)
|
---|
| 623 | {
|
---|
| 624 | ER ret, ret2;
|
---|
| 625 | struct httpd_state *s = &httpd_state[exinf];
|
---|
| 626 |
|
---|
| 627 | if (exinf == 0) {
|
---|
| 628 | gpio_t led_blue, led_green, led_red, sw;
|
---|
| 629 | gpio_init_out(&led_blue, LED_BLUE);
|
---|
| 630 | gpio_init_out(&led_green, LED_GREEN);
|
---|
| 631 | gpio_init_out(&led_red, LED_RED);
|
---|
| 632 | gpio_init_in(&sw, USER_BUTTON0);
|
---|
| 633 |
|
---|
| 634 | bool_t exec = gpio_read(&sw) == 1;
|
---|
| 635 |
|
---|
| 636 | gpio_write(&led_blue, 1);
|
---|
| 637 | gpio_write(&led_green, exec ? 1 : 0);
|
---|
| 638 | gpio_write(&led_red, 0);
|
---|
| 639 |
|
---|
| 640 | /* åæå */
|
---|
| 641 | if (mruby_arduino_init() == 0) {
|
---|
| 642 | gpio_write(&led_blue, 0);
|
---|
| 643 | }
|
---|
| 644 | else {
|
---|
| 645 | gpio_write(&led_blue, 0);
|
---|
| 646 | gpio_write(&led_red, 1);
|
---|
| 647 | }
|
---|
| 648 |
|
---|
| 649 | gpio_write(&led_green, 0);
|
---|
| 650 |
|
---|
| 651 | /* TINETãèµ·åããã¾ã§å¾
|
---|
| 652 | 㤠*/
|
---|
| 653 | ether_set_link_callback(netif_link_callback);
|
---|
| 654 |
|
---|
| 655 | act_tsk(MAIN2_TASK);
|
---|
| 656 |
|
---|
| 657 | if (exec) {
|
---|
| 658 | strcpy_s(RubyFilename, sizeof(RubyFilename), "1:/upload/main.mrb");
|
---|
| 659 |
|
---|
| 660 | execute_ruby();
|
---|
| 661 | }
|
---|
| 662 | }
|
---|
| 663 |
|
---|
| 664 | for (;;) {
|
---|
| 665 | ret2 = get_tim(&main_time);
|
---|
| 666 | if (ret2 != E_OK) {
|
---|
| 667 | syslog(LOG_ERROR, "get_tim");
|
---|
| 668 | return;
|
---|
| 669 | }
|
---|
| 670 |
|
---|
| 671 | switch (s->state) {
|
---|
| 672 | case STATE_DISCONNECTED:
|
---|
| 673 | memset(&s->dst, 0, sizeof(s->dst));
|
---|
| 674 | if ((ret = TCP_ACP_CEP(s->cepid, TCP_REPID, (T_IPV4EP *)s->dst, TMO_FEVR)) != E_OK) {
|
---|
| 675 | syslog(LOG_ERROR, "tcp_acp_cep(%d) => %d", s->cepid, ret);
|
---|
| 676 | tslp_tsk(100000); // TODO
|
---|
| 677 | s->state = STATE_CLOSING;
|
---|
| 678 | break;
|
---|
| 679 | }
|
---|
| 680 | IP2STR(s->addr, &((T_IPV4EP *)s->dst)->ipaddr);
|
---|
| 681 | syslog(LOG_NOTICE, "connected: %s.%d", s->addr, ((T_IPV4EP *)s->dst)->portno);
|
---|
| 682 | memset(&s->in, 0, sizeof(s->in));
|
---|
| 683 | memset(&s->out, 0, sizeof(s->out));
|
---|
| 684 | s->in.timer = main_time;
|
---|
| 685 | s->state = STATE_CONNECTED;
|
---|
| 686 | break;
|
---|
| 687 | case STATE_CONNECTED:
|
---|
| 688 | handle_input(s);
|
---|
| 689 | handle_output(s);
|
---|
| 690 | break;
|
---|
| 691 | case STATE_WEBSOCKET:
|
---|
| 692 | handle_input(s);
|
---|
| 693 | handle_ws_output(s);
|
---|
| 694 | break;
|
---|
| 695 | case STATE_CLOSING:
|
---|
| 696 | syslog(LOG_NOTICE, "close: %s.%d", s->addr, ((T_IPV4EP *)s->dst)->portno);
|
---|
| 697 | tcp_sht_cep(s->cepid);
|
---|
| 698 | tcp_cls_cep(s->cepid, TMO_FEVR);
|
---|
| 699 |
|
---|
| 700 | if (s->reset) {
|
---|
| 701 | s->reset = 0;
|
---|
| 702 | s->state = STATE_RESET;
|
---|
| 703 | }
|
---|
| 704 | else{
|
---|
| 705 | s->state = STATE_DISCONNECTED;
|
---|
| 706 | }
|
---|
| 707 | break;
|
---|
| 708 | case STATE_RESET:
|
---|
| 709 | execute_ruby();
|
---|
| 710 | s->state = STATE_DISCONNECTED;
|
---|
| 711 | break;
|
---|
| 712 | }
|
---|
| 713 |
|
---|
| 714 | if (s->in.wait && s->out.wait) {
|
---|
| 715 | tslp_tsk(100000);
|
---|
| 716 | }
|
---|
| 717 | }
|
---|
| 718 | }
|
---|
| 719 |
|
---|
| 720 | struct udp_msg {
|
---|
| 721 | T_IPV4EP dst;
|
---|
| 722 | int len;
|
---|
| 723 | uint8_t buffer[ETHER_MAX_LEN];
|
---|
| 724 | };
|
---|
| 725 |
|
---|
| 726 | SYSTIM mruby_time;
|
---|
| 727 | struct RClass *_module_target_board;
|
---|
| 728 |
|
---|
| 729 | extern const uint8_t main_rb_code[];
|
---|
| 730 | uint8_t RubyCode[16 * 1024];
|
---|
| 731 |
|
---|
| 732 | /* MACã¢ãã¬ã¹ã®è¨å®æã«å¼ã°ãã */
|
---|
| 733 | void mbed_mac_address(char *mac)
|
---|
| 734 | {
|
---|
| 735 | memcpy(mac, mac_addr, 6);
|
---|
| 736 | }
|
---|
| 737 |
|
---|
| 738 | /*
|
---|
| 739 | * mrubyå®è¡ã¿ã¹ã¯
|
---|
| 740 | */
|
---|
| 741 | void mruby_task(intptr_t exinf)
|
---|
| 742 | {
|
---|
| 743 | ER ret;
|
---|
| 744 | struct RProc* n;
|
---|
| 745 | struct mrb_irep *irep;
|
---|
| 746 | mrb_state *mrb;
|
---|
| 747 |
|
---|
| 748 | syslog(LOG_NOTICE, "mruby_task");
|
---|
| 749 |
|
---|
| 750 | /* mrubyã®åæå */
|
---|
| 751 | mrb = mrb_open();
|
---|
| 752 | if (mrb == NULL)
|
---|
| 753 | abort();
|
---|
| 754 |
|
---|
| 755 | ret = get_tim(&mruby_time);
|
---|
| 756 | if (ret != E_OK) {
|
---|
| 757 | syslog(LOG_ERROR, "get_tim => %d", ret);
|
---|
| 758 | return;
|
---|
| 759 | }
|
---|
| 760 |
|
---|
| 761 | irep = mrb_read_irep(mrb, RubyCode);
|
---|
| 762 | n = mrb_proc_new(mrb, irep);
|
---|
| 763 | mrb_run(mrb, n, mrb_nil_value());
|
---|
| 764 |
|
---|
| 765 | mrb_close(mrb);
|
---|
| 766 | }
|
---|
| 767 |
|
---|
| 768 | static void execute_ruby()
|
---|
| 769 | {
|
---|
| 770 | FIL fd;
|
---|
| 771 | FRESULT res;
|
---|
| 772 | ER ret;
|
---|
| 773 |
|
---|
| 774 | syslog(LOG_NOTICE, "execute_ruby");
|
---|
| 775 |
|
---|
| 776 | ret = ter_tsk(MRUBY_TASK);
|
---|
| 777 | if ((ret != E_OK) && (ret != E_OBJ)) {
|
---|
| 778 | syslog(LOG_ERROR, "ter_tsk => %d", ret);
|
---|
| 779 | }
|
---|
| 780 |
|
---|
| 781 | tslp_tsk(100000);
|
---|
| 782 |
|
---|
| 783 | reset_heap();
|
---|
| 784 |
|
---|
| 785 | strcpy_s(ExeFilename, sizeof(ExeFilename), RubyFilename);
|
---|
| 786 | RubyFilename[0] = '\0';
|
---|
| 787 | ExeFilename[sizeof(ExeFilename) - 1] = '\0';
|
---|
| 788 |
|
---|
| 789 | if (ExeFilename[0] == '\0') {
|
---|
| 790 | return;
|
---|
| 791 | }
|
---|
| 792 |
|
---|
| 793 | syslog(LOG_NOTICE, "%s", ExeFilename);
|
---|
| 794 |
|
---|
| 795 | wai_sem(SEM_FILESYSTEM);
|
---|
| 796 |
|
---|
| 797 | if ((res = f_open(&fd, ExeFilename, FA_OPEN_EXISTING | FA_READ)) == FR_OK) {
|
---|
| 798 | if (fd.fsize < sizeof(RubyCode)) {
|
---|
| 799 | int len = fd.fsize;
|
---|
| 800 | for (int pos = 0; pos < fd.fsize; pos += len) {
|
---|
| 801 | if (len > 1024)
|
---|
| 802 | len = 1024;
|
---|
| 803 |
|
---|
| 804 | UINT rlen;
|
---|
| 805 | if ((res = f_read(&fd, &RubyCode[pos], len, &rlen)) != FR_OK)
|
---|
| 806 | break;
|
---|
| 807 |
|
---|
| 808 | // ä»ã«ä½¿ã人ã®ããã«è§£æ¾
|
---|
| 809 | sig_sem(SEM_FILESYSTEM);
|
---|
| 810 | wai_sem(SEM_FILESYSTEM);
|
---|
| 811 | }
|
---|
| 812 | }
|
---|
| 813 | f_close(&fd);
|
---|
| 814 | }
|
---|
| 815 |
|
---|
| 816 | sig_sem(SEM_FILESYSTEM);
|
---|
| 817 |
|
---|
| 818 | if (res == FR_OK) {
|
---|
| 819 | ret = act_tsk(MRUBY_TASK);
|
---|
| 820 | if (ret != E_OK) {
|
---|
| 821 | syslog(LOG_ERROR, "act_tsk => %d", ret);
|
---|
| 822 | }
|
---|
| 823 | }
|
---|
| 824 | }
|
---|
| 825 |
|
---|
| 826 | ER callback_nblk_udp(ID cepid, FN fncd, void *p_parblk)
|
---|
| 827 | {
|
---|
| 828 | static struct udp_msg msg_inst[2];
|
---|
| 829 | static int msg_no = 0;
|
---|
| 830 | struct udp_msg *msg = &msg_inst[msg_no];
|
---|
| 831 | ER error = E_OK;
|
---|
| 832 |
|
---|
| 833 | switch (fncd) {
|
---|
| 834 | case TFN_UDP_CRE_CEP:
|
---|
| 835 | case TFN_UDP_RCV_DAT:
|
---|
| 836 | /* ECN_CAP_PUT("[UDP ECHO SRV] callback_nblk_udp() recv: %u", *(int *)p_parblk); */
|
---|
| 837 | memset(msg, 0, sizeof(struct udp_msg));
|
---|
| 838 | if ((msg->len = udp_rcv_dat(cepid, &msg->dst, msg->buffer, sizeof(msg->buffer), 0)) < 0) {
|
---|
| 839 | syslog(LOG_WARNING, "[UDP ECHO SRV] recv, error: %s", itron_strerror(msg->len));
|
---|
| 840 | return msg->len;
|
---|
| 841 | }
|
---|
| 842 | msg_no = (msg_no + 1) % 2;
|
---|
| 843 | return snd_dtq(MRUBY_DATAQUEUE, (intptr_t)msg);
|
---|
| 844 |
|
---|
| 845 | case TFN_UDP_SND_DAT:
|
---|
| 846 | break;
|
---|
| 847 | default:
|
---|
| 848 | syslog(LOG_WARNING, "[UDP ECHO SRV] fncd:0x%04X(%s)", -fncd,
|
---|
| 849 | (fncd == TFN_UDP_CRE_CEP ? "TFN_UDP_CRE_CEP" :
|
---|
| 850 | (fncd == TFN_UDP_RCV_DAT ? "TFN_UDP_RCV_DAT" :
|
---|
| 851 | (fncd == TFN_UDP_SND_DAT ? "TFN_UDP_SND_DAT" : "undef"))));
|
---|
| 852 |
|
---|
| 853 | error = E_PAR;
|
---|
| 854 | break;
|
---|
| 855 | }
|
---|
| 856 | return error;
|
---|
| 857 | }
|
---|
| 858 |
|
---|
| 859 | static void netif_link_callback(T_IFNET *ether)
|
---|
| 860 | {
|
---|
| 861 | static struct udp_msg msg_inst[2];
|
---|
| 862 | static int msg_no = 0;
|
---|
| 863 | struct udp_msg *msg = &msg_inst[msg_no];
|
---|
| 864 | T_RTSK rtsk;
|
---|
| 865 | ER ret;
|
---|
| 866 |
|
---|
| 867 | ret = ref_tsk(MRUBY_TASK, &rtsk);
|
---|
| 868 | if ((ret != E_OK) || (rtsk.tskstat == TTS_DMT))
|
---|
| 869 | return;
|
---|
| 870 |
|
---|
| 871 | memset(msg, 0, sizeof(struct udp_msg));
|
---|
| 872 |
|
---|
| 873 | msg->len = 1;
|
---|
| 874 | msg->buffer[0] = ether->flags;
|
---|
| 875 |
|
---|
| 876 | msg_no = (msg_no + 1) % 2;
|
---|
| 877 | snd_dtq(MRUBY_DATAQUEUE, (intptr_t)msg);
|
---|
| 878 | }
|
---|
| 879 |
|
---|
| 880 | /*
|
---|
| 881 | * ã¢ããªã±ã¼ã·ã§ã³ã¿ã¹ã¯ã®ç»é²
|
---|
| 882 | */
|
---|
| 883 | static mrb_value mrb_target_board_wait_msg(mrb_state *mrb, mrb_value self)
|
---|
| 884 | {
|
---|
| 885 | TMO timer;
|
---|
| 886 | SYSTIM now;
|
---|
| 887 | ER ret, ret2;
|
---|
| 888 | struct udp_msg *msg;
|
---|
| 889 | mrb_value arv[3];
|
---|
| 890 | static int first = 1;
|
---|
| 891 |
|
---|
| 892 | mrb_get_args(mrb, "i", &timer);
|
---|
| 893 | if (timer != TMO_FEVR)
|
---|
| 894 | timer *= 1000;
|
---|
| 895 |
|
---|
| 896 | if (first) {
|
---|
| 897 | first = 0;
|
---|
| 898 | syslog(LOG_NOTICE, "wait_msg");
|
---|
| 899 | }
|
---|
| 900 |
|
---|
| 901 | /* ã¡ãã»ã¼ã¸å¾
|
---|
| 902 | ã¡ */
|
---|
| 903 | ret = trcv_dtq(MRUBY_DATAQUEUE, (intptr_t *)&msg, timer);
|
---|
| 904 | if ((ret != E_OK) && (ret != E_TMOUT)) {
|
---|
| 905 | syslog(LOG_ERROR, "trcv_dtq => %d", ret);
|
---|
| 906 | return mrb_nil_value();
|
---|
| 907 | }
|
---|
| 908 |
|
---|
| 909 | ret2 = get_tim(&now);
|
---|
| 910 | if (ret2 != E_OK) {
|
---|
| 911 | syslog(LOG_ERROR, "get_tim => %d", ret);
|
---|
| 912 | return mrb_nil_value();
|
---|
| 913 | }
|
---|
| 914 |
|
---|
| 915 | arv[0] = mrb_fixnum_value((now - mruby_time) / 1000);
|
---|
| 916 | mruby_time = now;
|
---|
| 917 |
|
---|
| 918 | /* ã¿ã¤ã ã¢ã¦ãã®å ´å */
|
---|
| 919 | if (ret == E_TMOUT) {
|
---|
| 920 | return mrb_ary_new_from_values(mrb, 1, arv);
|
---|
| 921 | }
|
---|
| 922 |
|
---|
| 923 | /* å
|
---|
| 924 | é¨ã¤ãã³ãã®å ´å */
|
---|
| 925 | if (msg->dst.ipaddr == 0) {
|
---|
| 926 | /* Ethernet Link up */
|
---|
| 927 | if (msg->buffer[0] & IF_FLAG_LINK_UP) {
|
---|
| 928 | arv[1] = mrb_fixnum_value(1);
|
---|
| 929 | }
|
---|
| 930 | /* EP Link up */
|
---|
| 931 | else if (msg->buffer[0] & IF_FLAG_UP) {
|
---|
| 932 | arv[1] = mrb_fixnum_value(2);
|
---|
| 933 | }
|
---|
| 934 | else {
|
---|
| 935 | arv[1] = mrb_fixnum_value(0);
|
---|
| 936 | }
|
---|
| 937 |
|
---|
| 938 | return mrb_ary_new_from_values(mrb, 2, arv);
|
---|
| 939 | }
|
---|
| 940 | /* Echoneté»æåä¿¡ã®å ´å */
|
---|
| 941 | else {
|
---|
| 942 | /* éä¿¡ç«¯ç¹ */
|
---|
| 943 | arv[1] = mrb_str_new(mrb, (char *)&msg->dst, sizeof(msg->dst));
|
---|
| 944 |
|
---|
| 945 | /* åä¿¡ãã¼ã¿ */
|
---|
| 946 | arv[2] = mrb_str_new(mrb, (char *)msg->buffer, msg->len);
|
---|
| 947 |
|
---|
| 948 | return mrb_ary_new_from_values(mrb, 3, arv);
|
---|
| 949 | }
|
---|
| 950 | }
|
---|
| 951 |
|
---|
| 952 | /*
|
---|
| 953 | * ã¢ããªã±ã¼ã·ã§ã³ã¿ã¹ã¯ã®ç»é²
|
---|
| 954 | */
|
---|
| 955 | static mrb_value mrb_target_board_restart(mrb_state *mrb, mrb_value self)
|
---|
| 956 | {
|
---|
| 957 | /* DHCPéå§ */
|
---|
| 958 |
|
---|
| 959 | return self;
|
---|
| 960 | }
|
---|
| 961 |
|
---|
| 962 | /*
|
---|
| 963 | * éä¿¡ã¬ã¤ã¤ã¼ã¸ã®éä¿¡
|
---|
| 964 | */
|
---|
| 965 | static mrb_value mrb_target_board_snd_msg(mrb_state *mrb, mrb_value self)
|
---|
| 966 | {
|
---|
| 967 | mrb_value rep;
|
---|
| 968 | mrb_value rdat;
|
---|
| 969 | T_IPV4EP *ep;
|
---|
| 970 | ER_UINT ret;
|
---|
| 971 |
|
---|
| 972 | mrb_get_args(mrb, "SS", &rep, &rdat);
|
---|
| 973 |
|
---|
| 974 | if (RSTRING_LEN(rep) != sizeof(T_IPV4EP)) {
|
---|
| 975 | mrb_raise(mrb, E_RUNTIME_ERROR, "snd_msg");
|
---|
| 976 | return mrb_nil_value();
|
---|
| 977 | }
|
---|
| 978 |
|
---|
| 979 | ep = (T_IPV4EP *)RSTRING_PTR(rep);
|
---|
| 980 |
|
---|
| 981 | ret = udp_snd_dat(MRUBY_ECNL_UDP_CEPID, ep, RSTRING_PTR(rdat), RSTRING_LEN(rdat), TMO_FEVR);
|
---|
| 982 | if (ret < 0) {
|
---|
| 983 | mrb_raise(mrb, E_RUNTIME_ERROR, "snd_msg");
|
---|
| 984 | return mrb_nil_value();
|
---|
| 985 | }
|
---|
| 986 |
|
---|
| 987 | return mrb_nil_value();
|
---|
| 988 | }
|
---|
| 989 |
|
---|
| 990 | /*
|
---|
| 991 | * ãã¼ã«ã«ã¢ãã¬ã¹ã確èª
|
---|
| 992 | */
|
---|
| 993 | static mrb_value mrb_target_board_is_local_addr(mrb_state *mrb, mrb_value self)
|
---|
| 994 | {
|
---|
| 995 | mrb_value rep;
|
---|
| 996 | T_IPV4EP *ep;
|
---|
| 997 |
|
---|
| 998 | mrb_get_args(mrb, "S", &rep);
|
---|
| 999 |
|
---|
| 1000 | if (RSTRING_LEN(rep) < sizeof(T_IPV4EP)) {
|
---|
| 1001 | mrb_raise(mrb, E_RUNTIME_ERROR, "is_local_addr");
|
---|
| 1002 | return mrb_nil_value();
|
---|
| 1003 | }
|
---|
| 1004 |
|
---|
| 1005 | ep = (T_IPV4EP *)RSTRING_PTR(rep);
|
---|
| 1006 |
|
---|
| 1007 | return (ep->ipaddr == MAKE_IPV4_ADDR(127, 0, 0, 1)) ? mrb_true_value() : mrb_false_value();
|
---|
| 1008 | }
|
---|
| 1009 |
|
---|
| 1010 | /*
|
---|
| 1011 | * ãã«ããã£ã¹ãã¢ãã¬ã¹ã確èª
|
---|
| 1012 | */
|
---|
| 1013 | static mrb_value mrb_target_board_is_multicast_addr(mrb_state *mrb, mrb_value self)
|
---|
| 1014 | {
|
---|
| 1015 | mrb_value rep;
|
---|
| 1016 | T_IPV4EP *ep;
|
---|
| 1017 |
|
---|
| 1018 | mrb_get_args(mrb, "S", &rep);
|
---|
| 1019 |
|
---|
| 1020 | if (RSTRING_LEN(rep) < sizeof(T_IPV4EP)) {
|
---|
| 1021 | mrb_raise(mrb, E_RUNTIME_ERROR, "is_multicast_addr");
|
---|
| 1022 | return mrb_nil_value();
|
---|
| 1023 | }
|
---|
| 1024 |
|
---|
| 1025 | ep = (T_IPV4EP *)RSTRING_PTR(rep);
|
---|
| 1026 |
|
---|
| 1027 | return (ep->ipaddr == MAKE_IPV4_ADDR(224, 0, 23, 0)) ? mrb_true_value() : mrb_false_value();
|
---|
| 1028 | }
|
---|
| 1029 |
|
---|
| 1030 | /*
|
---|
| 1031 | * åä¸ã¢ãã¬ã¹ã確èª
|
---|
| 1032 | */
|
---|
| 1033 | static mrb_value mrb_target_board_equals_addr(mrb_state *mrb, mrb_value self)
|
---|
| 1034 | {
|
---|
| 1035 | mrb_value rep1, rep2;
|
---|
| 1036 | T_IPV4EP *ep1, *ep2;
|
---|
| 1037 |
|
---|
| 1038 | mrb_get_args(mrb, "SS", &rep1, &rep2);
|
---|
| 1039 |
|
---|
| 1040 | if ((RSTRING_LEN(rep1) != sizeof(T_IPV4EP)) || (RSTRING_LEN(rep2) != sizeof(T_IPV4EP))) {
|
---|
| 1041 | mrb_raise(mrb, E_RUNTIME_ERROR, "equals_addr");
|
---|
| 1042 | return mrb_nil_value();
|
---|
| 1043 | }
|
---|
| 1044 |
|
---|
| 1045 | ep1 = (T_IPV4EP *)RSTRING_PTR(rep1);
|
---|
| 1046 | ep2 = (T_IPV4EP *)RSTRING_PTR(rep2);
|
---|
| 1047 |
|
---|
| 1048 | return (ep1->ipaddr == ep2->ipaddr) ? mrb_true_value() : mrb_false_value();
|
---|
| 1049 | }
|
---|
| 1050 |
|
---|
| 1051 | /*
|
---|
| 1052 | * ãã¼ã«ã«ã¢ãã¬ã¹ã®åå¾
|
---|
| 1053 | */
|
---|
| 1054 | static mrb_value mrb_target_board_get_local_addr(mrb_state *mrb, mrb_value self)
|
---|
| 1055 | {
|
---|
| 1056 | T_IPV4EP ep;
|
---|
| 1057 | mrb_value rep;
|
---|
| 1058 |
|
---|
| 1059 | ep.ipaddr = MAKE_IPV4_ADDR(127, 0, 0, 1);
|
---|
| 1060 | ep.portno = 3610;
|
---|
| 1061 |
|
---|
| 1062 | rep = mrb_str_new(mrb, (char *)&ep, sizeof(ep));
|
---|
| 1063 |
|
---|
| 1064 | return rep;
|
---|
| 1065 | }
|
---|
| 1066 |
|
---|
| 1067 | /*
|
---|
| 1068 | * ãã«ããã£ã¹ãã¢ãã¬ã¹ã®åå¾
|
---|
| 1069 | */
|
---|
| 1070 | static mrb_value mrb_target_board_get_multicast_addr(mrb_state *mrb, mrb_value self)
|
---|
| 1071 | {
|
---|
| 1072 | T_IPV4EP ep;
|
---|
| 1073 | mrb_value rep;
|
---|
| 1074 |
|
---|
| 1075 | ep.ipaddr = MAKE_IPV4_ADDR(224, 0, 23, 0);
|
---|
| 1076 | ep.portno = 3610;
|
---|
| 1077 |
|
---|
| 1078 | rep = mrb_str_new(mrb, (char *)&ep, sizeof(ep));
|
---|
| 1079 |
|
---|
| 1080 | return rep;
|
---|
| 1081 | }
|
---|
| 1082 |
|
---|
| 1083 | void mrb_mruby_others_gem_init(mrb_state* mrb)
|
---|
| 1084 | {
|
---|
| 1085 | _module_target_board = mrb_define_module(mrb, "TargetBoard");
|
---|
| 1086 |
|
---|
| 1087 | // mbed Pin Names
|
---|
| 1088 | mrb_define_const(mrb, _module_target_board, "LED1", mrb_fixnum_value(LED1));
|
---|
| 1089 | mrb_define_const(mrb, _module_target_board, "LED2", mrb_fixnum_value(LED2));
|
---|
| 1090 | mrb_define_const(mrb, _module_target_board, "LED3", mrb_fixnum_value(LED3));
|
---|
| 1091 | mrb_define_const(mrb, _module_target_board, "LED4", mrb_fixnum_value(LED4));
|
---|
| 1092 |
|
---|
| 1093 | mrb_define_const(mrb, _module_target_board, "LED_RED", mrb_fixnum_value(LED_RED));
|
---|
| 1094 | mrb_define_const(mrb, _module_target_board, "LED_GREEN", mrb_fixnum_value(LED_GREEN));
|
---|
| 1095 | mrb_define_const(mrb, _module_target_board, "LED_BLUE", mrb_fixnum_value(LED_BLUE));
|
---|
| 1096 | mrb_define_const(mrb, _module_target_board, "LED_USER", mrb_fixnum_value(LED_USER));
|
---|
| 1097 |
|
---|
| 1098 | mrb_define_const(mrb, _module_target_board, "USBTX", mrb_fixnum_value(USBTX));
|
---|
| 1099 | mrb_define_const(mrb, _module_target_board, "USBRX", mrb_fixnum_value(USBRX));
|
---|
| 1100 |
|
---|
| 1101 | // Arduiono Pin Names
|
---|
| 1102 | mrb_define_const(mrb, _module_target_board, "D0", mrb_fixnum_value(D0));
|
---|
| 1103 | mrb_define_const(mrb, _module_target_board, "D1", mrb_fixnum_value(D1));
|
---|
| 1104 | mrb_define_const(mrb, _module_target_board, "D2", mrb_fixnum_value(D2));
|
---|
| 1105 | mrb_define_const(mrb, _module_target_board, "D3", mrb_fixnum_value(D3));
|
---|
| 1106 | mrb_define_const(mrb, _module_target_board, "D4", mrb_fixnum_value(D4));
|
---|
| 1107 | mrb_define_const(mrb, _module_target_board, "D5", mrb_fixnum_value(D5));
|
---|
| 1108 | mrb_define_const(mrb, _module_target_board, "D6", mrb_fixnum_value(D6));
|
---|
| 1109 | mrb_define_const(mrb, _module_target_board, "D7", mrb_fixnum_value(D7));
|
---|
| 1110 | mrb_define_const(mrb, _module_target_board, "D8", mrb_fixnum_value(D8));
|
---|
| 1111 | mrb_define_const(mrb, _module_target_board, "D9", mrb_fixnum_value(D9));
|
---|
| 1112 | mrb_define_const(mrb, _module_target_board, "D10", mrb_fixnum_value(D10));
|
---|
| 1113 | mrb_define_const(mrb, _module_target_board, "D11", mrb_fixnum_value(D11));
|
---|
| 1114 | mrb_define_const(mrb, _module_target_board, "D12", mrb_fixnum_value(D12));
|
---|
| 1115 | mrb_define_const(mrb, _module_target_board, "D13", mrb_fixnum_value(D13));
|
---|
| 1116 | mrb_define_const(mrb, _module_target_board, "D14", mrb_fixnum_value(D14));
|
---|
| 1117 | mrb_define_const(mrb, _module_target_board, "D15", mrb_fixnum_value(D15));
|
---|
| 1118 |
|
---|
| 1119 | mrb_define_const(mrb, _module_target_board, "A0", mrb_fixnum_value(A0));
|
---|
| 1120 | mrb_define_const(mrb, _module_target_board, "A1", mrb_fixnum_value(A1));
|
---|
| 1121 | mrb_define_const(mrb, _module_target_board, "A2", mrb_fixnum_value(A2));
|
---|
| 1122 | mrb_define_const(mrb, _module_target_board, "A3", mrb_fixnum_value(A3));
|
---|
| 1123 | mrb_define_const(mrb, _module_target_board, "A4", mrb_fixnum_value(A4));
|
---|
| 1124 | mrb_define_const(mrb, _module_target_board, "A5", mrb_fixnum_value(A5));
|
---|
| 1125 |
|
---|
| 1126 | mrb_define_const(mrb, _module_target_board, "I2C_SCL", mrb_fixnum_value(I2C_SCL));
|
---|
| 1127 | mrb_define_const(mrb, _module_target_board, "I2C_SDA", mrb_fixnum_value(I2C_SDA));
|
---|
| 1128 |
|
---|
| 1129 | mrb_define_const(mrb, _module_target_board, "USER_BUTTON0", mrb_fixnum_value(USER_BUTTON0));
|
---|
| 1130 |
|
---|
| 1131 | // Not connected
|
---|
| 1132 | mrb_define_const(mrb, _module_target_board, "NC", mrb_fixnum_value(NC));
|
---|
| 1133 |
|
---|
| 1134 | mrb_define_class_method(mrb, _module_target_board, "wait_msg", mrb_target_board_wait_msg, MRB_ARGS_REQ(1));
|
---|
| 1135 | mrb_define_class_method(mrb, _module_target_board, "restart", mrb_target_board_restart, MRB_ARGS_NONE());
|
---|
| 1136 | mrb_define_class_method(mrb, _module_target_board, "snd_msg", mrb_target_board_snd_msg, MRB_ARGS_REQ(2));
|
---|
| 1137 | mrb_define_class_method(mrb, _module_target_board, "is_local_addr", mrb_target_board_is_local_addr, MRB_ARGS_REQ(1));
|
---|
| 1138 | mrb_define_class_method(mrb, _module_target_board, "is_multicast_addr", mrb_target_board_is_multicast_addr, MRB_ARGS_REQ(1));
|
---|
| 1139 | mrb_define_class_method(mrb, _module_target_board, "equals_addr", mrb_target_board_equals_addr, MRB_ARGS_REQ(2));
|
---|
| 1140 | mrb_define_class_method(mrb, _module_target_board, "get_local_addr", mrb_target_board_get_local_addr, MRB_ARGS_NONE());
|
---|
| 1141 | mrb_define_class_method(mrb, _module_target_board, "get_multicast_addr", mrb_target_board_get_multicast_addr, MRB_ARGS_NONE());
|
---|
| 1142 | }
|
---|
| 1143 |
|
---|
| 1144 | void mrb_mruby_others_gem_final(mrb_state* mrb)
|
---|
| 1145 | {
|
---|
| 1146 | }
|
---|