[457] | 1 | /*
|
---|
| 2 | * TOPPERS/ASP Kernel
|
---|
| 3 | * Toyohashi Open Platform for Embedded Real-Time Systems/
|
---|
| 4 | * Advanced Standard Profile Kernel
|
---|
| 5 | *
|
---|
| 6 | * Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
|
---|
| 7 | * Toyohashi Univ. of Technology, JAPAN
|
---|
| 8 | * Copyright (C) 2004-2012 by Embedded and Real-Time Systems Laboratory
|
---|
| 9 | * Graduate School of Information Science, Nagoya Univ., JAPAN
|
---|
| 10 | * Copyright (C) 2015-2020 by TOPPERS PROJECT Educational Working Group.
|
---|
| 11 | *
|
---|
| 12 | * 上記著作権者は,以下の(1)~(4)の条件を満たす場合に限り,本ソフトウェ
|
---|
| 13 | * ア(本ソフトウェアを改変したものを含む.以下同じ)を使用・複製・改
|
---|
| 14 | * 変・再配布(以下,利用と呼ぶ)することを無償で許諾する.
|
---|
| 15 | * (1) 本ソフトウェアをソースコードの形で利用する場合には,上記の著作
|
---|
| 16 | * 権表示,この利用条件および下記の無保証規定が,そのままの形でソー
|
---|
| 17 | * スコード中に含まれていること.
|
---|
| 18 | * (2) 本ソフトウェアを,ライブラリ形式など,他のソフトウェア開発に使
|
---|
| 19 | * 用できる形で再配布する場合には,再配布に伴うドキュメント(利用
|
---|
| 20 | * 者マニュアルなど)に,上記の著作権表示,この利用条件および下記
|
---|
| 21 | * の無保証規定を掲載すること.
|
---|
| 22 | * (3) 本ソフトウェアを,機器に組み込むなど,他のソフトウェア開発に使
|
---|
| 23 | * 用できない形で再配布する場合には,次のいずれかの条件を満たすこ
|
---|
| 24 | * と.
|
---|
| 25 | * (a) 再配布に伴うドキュメント(利用者マニュアルなど)に,上記の著
|
---|
| 26 | * 作権表示,この利用条件および下記の無保証規定を掲載すること.
|
---|
| 27 | * (b) 再配布の形態を,別に定める方法によって,TOPPERSプロジェクトに
|
---|
| 28 | * 報告すること.
|
---|
| 29 | * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
|
---|
| 30 | * 害からも,上記著作権者およびTOPPERSプロジェクトを免責すること.
|
---|
| 31 | * また,本ソフトウェアのユーザまたはエンドユーザからのいかなる理
|
---|
| 32 | * 由に基づく請求からも,上記著作権者およびTOPPERSプロジェクトを
|
---|
| 33 | * 免責すること.
|
---|
| 34 | *
|
---|
| 35 | * 本ソフトウェアは,無保証で提供されているものである.上記著作権者お
|
---|
| 36 | * よびTOPPERSプロジェクトは,本ソフトウェアに関して,特定の使用目的
|
---|
| 37 | * に対する適合性も含めて,いかなる保証も行わない.また,本ソフトウェ
|
---|
| 38 | * アの利用により直接的または間接的に生じたいかなる損害に関しても,そ
|
---|
| 39 | * の責任を負わない.
|
---|
| 40 | *
|
---|
| 41 | * $Id$
|
---|
| 42 | */
|
---|
| 43 |
|
---|
| 44 | /*
|
---|
| 45 | * Copyright (c) 2001-2003 Swedish Institute of Computer Science.
|
---|
| 46 | * All rights reserved.
|
---|
| 47 | *
|
---|
| 48 | * Redistribution and use in source and binary forms, with or without modification,
|
---|
| 49 | * are permitted provided that the following conditions are met:
|
---|
| 50 | *
|
---|
| 51 | * 1. Redistributions of source code must retain the above copyright notice,
|
---|
| 52 | * this list of conditions and the following disclaimer.
|
---|
| 53 | * 2. Redistributions in binary form must reproduce the above copyright notice,
|
---|
| 54 | * this list of conditions and the following disclaimer in the documentation
|
---|
| 55 | * and/or other materials provided with the distribution.
|
---|
| 56 | * 3. The name of the author may not be used to endorse or promote products
|
---|
| 57 | * derived from this software without specific prior written permission.
|
---|
| 58 | *
|
---|
| 59 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
|
---|
| 60 | * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
---|
| 61 | * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
|
---|
| 62 | * SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
|
---|
| 63 | * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
|
---|
| 64 | * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
---|
| 65 | * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
---|
| 66 | * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
|
---|
| 67 | * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
|
---|
| 68 | * OF SUCH DAMAGE.
|
---|
| 69 | *
|
---|
| 70 | * This file is part of the lwIP TCP/IP stack.
|
---|
| 71 | *
|
---|
| 72 | * Author: Adam Dunkels <adam@sics.se>
|
---|
| 73 | *
|
---|
| 74 | */
|
---|
| 75 |
|
---|
| 76 | /*
|
---|
| 77 | * LWIPテストプログラムの本体
|
---|
| 78 | */
|
---|
| 79 |
|
---|
| 80 | #include <kernel.h>
|
---|
| 81 | #include <t_syslog.h>
|
---|
| 82 | #include <t_stdlib.h>
|
---|
| 83 | #include <sil.h>
|
---|
| 84 | #include "syssvc/serial.h"
|
---|
| 85 | #include "syssvc/syslog.h"
|
---|
| 86 | #ifdef USE_STORAGEDEVICE
|
---|
| 87 | #include "storagedevice.h"
|
---|
| 88 | #endif /* USE_STORAGEDEVICE */
|
---|
| 89 | #include "device.h"
|
---|
| 90 | #include "sdmmc.h"
|
---|
| 91 | #include "kernel_cfg.h"
|
---|
| 92 | #include "lwip_test.h"
|
---|
| 93 |
|
---|
| 94 | #include "lwip/opt.h"
|
---|
| 95 |
|
---|
| 96 | #include "lwip/init.h"
|
---|
| 97 |
|
---|
| 98 | #include "lwip/mem.h"
|
---|
| 99 | #include "lwip/memp.h"
|
---|
| 100 | #include "lwip/sys.h"
|
---|
| 101 | #include "lwip/timeouts.h"
|
---|
| 102 |
|
---|
| 103 | #include "lwip/ip_addr.h"
|
---|
| 104 |
|
---|
| 105 | #include "lwip/dns.h"
|
---|
| 106 | #include "lwip/dhcp.h"
|
---|
| 107 |
|
---|
| 108 | #include "lwip/stats.h"
|
---|
| 109 |
|
---|
| 110 | #include "lwip/tcp.h"
|
---|
| 111 | #include "lwip/inet_chksum.h"
|
---|
| 112 |
|
---|
| 113 | #include "lwip/tcpip.h"
|
---|
| 114 | #include "lwip/sockets.h"
|
---|
| 115 |
|
---|
| 116 |
|
---|
| 117 | #if 0
|
---|
| 118 | #include "netif/pcapif.h"
|
---|
| 119 | #endif
|
---|
| 120 |
|
---|
| 121 | #ifndef LWIP_HAVE_SLIPIF
|
---|
| 122 | #define LWIP_HAVE_SLIPIF 0
|
---|
| 123 | #endif
|
---|
| 124 | #if LWIP_HAVE_SLIPIF
|
---|
| 125 | #include "netif/slipif.h"
|
---|
| 126 | #define SLIP_PTY_TEST 1
|
---|
| 127 | #endif
|
---|
| 128 |
|
---|
| 129 | #if PPP_SUPPORT
|
---|
| 130 | #include "netif/ppp/pppos.h"
|
---|
| 131 | #include "lwip/sio.h"
|
---|
| 132 | #define PPP_PTY_TEST 1
|
---|
| 133 | #include <termios.h>
|
---|
| 134 | #endif
|
---|
| 135 |
|
---|
| 136 | #include "lwip/ip_addr.h"
|
---|
| 137 |
|
---|
| 138 | #include "lwip/apps/httpd.h"
|
---|
| 139 | #include "apps/udpecho/udpecho.h"
|
---|
| 140 | #include "apps/tcpecho/tcpecho.h"
|
---|
| 141 | #include "apps/shell/shell.h"
|
---|
| 142 | #include "apps/chargen/chargen.h"
|
---|
| 143 | #include "apps/netio/netio.h"
|
---|
| 144 | #include "apps/ping/ping.h"
|
---|
| 145 | #include "lwip/apps/netbiosns.h"
|
---|
| 146 | #include "lwip/apps/mdns.h"
|
---|
| 147 | #include "lwip/apps/sntp.h"
|
---|
| 148 | #include "lwip/apps/snmp.h"
|
---|
| 149 | #include "lwip/apps/snmp_mib2.h"
|
---|
| 150 | #include "examples/snmp/snmp_private_mib/private_mib.h"
|
---|
| 151 | #include "lwip/apps/tftp_server.h"
|
---|
| 152 |
|
---|
| 153 | #if LWIP_RAW
|
---|
| 154 | #include "lwip/icmp.h"
|
---|
| 155 | #include "lwip/raw.h"
|
---|
| 156 | #endif
|
---|
| 157 |
|
---|
| 158 | err_t ethernetif_init(struct netif *netif);
|
---|
| 159 |
|
---|
| 160 | /*
|
---|
| 161 | * サービスコールのエラーのログ出力
|
---|
| 162 | */
|
---|
| 163 | Inline void
|
---|
| 164 | svc_perror(const char *file, int_t line, const char *expr, ER ercd)
|
---|
| 165 | {
|
---|
| 166 | if (ercd < 0) {
|
---|
| 167 | t_perror(LOG_ERROR, file, line, expr, ercd);
|
---|
| 168 | }
|
---|
| 169 | }
|
---|
| 170 |
|
---|
| 171 | #define SVC_PERROR(expr) svc_perror(__FILE__, __LINE__, #expr, (expr))
|
---|
| 172 |
|
---|
| 173 | static uint32_t heap_area[HEAP_SIZE/sizeof(uint32_t)];
|
---|
| 174 |
|
---|
| 175 | uint32_t heap_param[2] = {
|
---|
| 176 | (uint32_t)heap_area,
|
---|
| 177 | HEAP_SIZE
|
---|
| 178 | };
|
---|
| 179 |
|
---|
| 180 |
|
---|
| 181 | #ifdef _STORAGEDEVICE_H_
|
---|
| 182 | static void storagedev_notice(void *psdev, bool_t sw)
|
---|
| 183 | {
|
---|
| 184 | syslog_2(LOG_NOTICE, "SD-CARD[%08x] on/off(%d) !", psdev, sw);
|
---|
| 185 | }
|
---|
| 186 |
|
---|
| 187 | static uint32_t get_fat_time(void)
|
---|
| 188 | {
|
---|
| 189 | int reqtime = 0;
|
---|
| 190 |
|
---|
| 191 | reqtime = 0x00210000;
|
---|
| 192 | return reqtime;
|
---|
| 193 | }
|
---|
| 194 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 195 |
|
---|
| 196 | #if 1 /* ROI DEBUG */
|
---|
| 197 | void sw_int(void)
|
---|
| 198 | {
|
---|
| 199 | syslog_0(LOG_NOTICE, "## sw_int() ##");
|
---|
| 200 | }
|
---|
| 201 | #endif /* ROI DEBUG */
|
---|
| 202 |
|
---|
| 203 | uint32_t LWIP_RAND(void)
|
---|
| 204 | {
|
---|
| 205 | return rand();
|
---|
| 206 | }
|
---|
| 207 |
|
---|
| 208 | #if LWIP_SNMP
|
---|
| 209 | static const struct snmp_mib *mibs[] = {
|
---|
| 210 | &mib2,
|
---|
| 211 | &mib_private
|
---|
| 212 | };
|
---|
| 213 | #endif /* LWIP_SNMP */
|
---|
| 214 |
|
---|
| 215 | #if LWIP_IPV4
|
---|
| 216 | /* (manual) host IP configuration */
|
---|
| 217 | static ip_addr_t ipaddr, netmask, gw;
|
---|
| 218 | #endif /* LWIP_IPV4 */
|
---|
| 219 |
|
---|
| 220 | struct netif netif;
|
---|
| 221 |
|
---|
| 222 | /* ping out destination cmd option */
|
---|
| 223 | static ip_addr_t ping_addr;
|
---|
| 224 |
|
---|
| 225 | static bool_t tcpip_init_flag = false;
|
---|
| 226 |
|
---|
| 227 | /* nonstatic debug cmd option, exported in lwipopts.h */
|
---|
| 228 | unsigned char debug_flags;
|
---|
| 229 |
|
---|
| 230 | static void init_netifs(void);
|
---|
| 231 |
|
---|
| 232 | #if 0
|
---|
| 233 | static void
|
---|
| 234 | tcp_debug_timeout(void *data)
|
---|
| 235 | {
|
---|
| 236 | LWIP_UNUSED_ARG(data);
|
---|
| 237 | #if TCP_DEBUG
|
---|
| 238 | tcp_debug_print_pcbs();
|
---|
| 239 | #endif /* TCP_DEBUG */
|
---|
| 240 | sys_timeout(5000, tcp_debug_timeout, NULL);
|
---|
| 241 | }
|
---|
| 242 | #endif
|
---|
| 243 |
|
---|
| 244 | /*
|
---|
| 245 | * gmtime_r関数
|
---|
| 246 | */
|
---|
| 247 | struct tm *gmtime_r(const time_t *pt, struct tm *ptm);
|
---|
| 248 |
|
---|
| 249 | void
|
---|
| 250 | sntp_set_system_time(u32_t sec)
|
---|
| 251 | {
|
---|
| 252 | struct tm current_time_val;
|
---|
| 253 | time_t current_time = (time_t)sec;
|
---|
| 254 |
|
---|
| 255 | gmtime_r(¤t_time, ¤t_time_val);
|
---|
| 256 | printf("%04d/%02d/%02d %02d:%02d:%02d\n",
|
---|
| 257 | current_time_val.tm_year+1900, current_time_val.tm_mon, current_time_val.tm_mday,
|
---|
| 258 | current_time_val.tm_hour, current_time_val.tm_min, current_time_val.tm_sec);
|
---|
| 259 | }
|
---|
| 260 |
|
---|
| 261 | #if LWIP_MDNS_RESPONDER
|
---|
| 262 | static void
|
---|
| 263 | srv_txt(struct mdns_service *service, void *txt_userdata)
|
---|
| 264 | {
|
---|
| 265 | err_t res;
|
---|
| 266 | LWIP_UNUSED_ARG(txt_userdata);
|
---|
| 267 |
|
---|
| 268 | res = mdns_resp_add_service_txtitem(service, "path=/", 6);
|
---|
| 269 | LWIP_ERROR("mdns add service txt failed\n", (res == ERR_OK), return);
|
---|
| 270 | }
|
---|
| 271 | #endif
|
---|
| 272 |
|
---|
| 273 | #if LWIP_UDP
|
---|
| 274 |
|
---|
| 275 | static void*
|
---|
| 276 | tftp_open(const char* fname, const char* mode, u8_t is_write)
|
---|
| 277 | {
|
---|
| 278 | #ifdef _STORAGEDEVICE_H_
|
---|
| 279 | LWIP_UNUSED_ARG(mode);
|
---|
| 280 |
|
---|
| 281 | if(is_write)
|
---|
| 282 | return (void*)fopen(fname, "wb");
|
---|
| 283 | else
|
---|
| 284 | return (void*)fopen(fname, "rb");
|
---|
| 285 | #else /* _STORAGEDEVICE_H_ */
|
---|
| 286 | return NULL;
|
---|
| 287 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 288 | }
|
---|
| 289 |
|
---|
| 290 | static void
|
---|
| 291 | tftp_close(void* handle)
|
---|
| 292 | {
|
---|
| 293 | #ifdef _STORAGEDEVICE_H_
|
---|
| 294 | fclose((FILE*)handle);
|
---|
| 295 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 296 | }
|
---|
| 297 |
|
---|
| 298 | static int
|
---|
| 299 | tftp_read(void* handle, void* buf, int bytes)
|
---|
| 300 | {
|
---|
| 301 | #ifdef _STORAGEDEVICE_H_
|
---|
| 302 | int rlen = fread(buf, 1, bytes, (FILE*)handle);
|
---|
| 303 | if(rlen <= 0)
|
---|
| 304 | return -1;
|
---|
| 305 | else
|
---|
| 306 | return rlen;
|
---|
| 307 | #else /* _STORAGEDEVICE_H_ */
|
---|
| 308 | return -1;
|
---|
| 309 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 310 | }
|
---|
| 311 |
|
---|
| 312 | static int
|
---|
| 313 | tftp_write(void* handle, struct pbuf* p)
|
---|
| 314 | {
|
---|
| 315 | #ifdef _STORAGEDEVICE_H_
|
---|
| 316 | while(p != NULL){
|
---|
| 317 | if(fwrite(p->payload, 1, p->len, (FILE*)handle) != (size_t)p->len)
|
---|
| 318 | return -1;
|
---|
| 319 | p = p->next;
|
---|
| 320 | }
|
---|
| 321 | return 0;
|
---|
| 322 | #else /* _STORAGEDEVICE_H_ */
|
---|
| 323 | return -1;
|
---|
| 324 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 325 | }
|
---|
| 326 |
|
---|
| 327 | static const struct tftp_context tftp = {
|
---|
| 328 | tftp_open,
|
---|
| 329 | tftp_close,
|
---|
| 330 | tftp_read,
|
---|
| 331 | tftp_write
|
---|
| 332 | };
|
---|
| 333 |
|
---|
| 334 | #endif /* LWIP_UDP */
|
---|
| 335 |
|
---|
| 336 | static void
|
---|
| 337 | tcpip_init_done(void *arg)
|
---|
| 338 | {
|
---|
| 339 | sys_sem_t *sem;
|
---|
| 340 | sem = (sys_sem_t *)arg;
|
---|
| 341 |
|
---|
| 342 | init_netifs();
|
---|
| 343 |
|
---|
| 344 | #if LWIP_IPV4
|
---|
| 345 | netbiosns_set_name("toppershost");
|
---|
| 346 | netbiosns_init();
|
---|
| 347 | #endif /* LWIP_IPV4 */
|
---|
| 348 |
|
---|
| 349 | sntp_setoperatingmode(SNTP_OPMODE_POLL);
|
---|
| 350 | #if LWIP_DHCP
|
---|
| 351 | sntp_servermode_dhcp(1); /* get SNTP server via DHCP */
|
---|
| 352 | #else /* LWIP_DHCP */
|
---|
| 353 | #if LWIP_IPV4
|
---|
| 354 | sntp_setserver(0, netif_ip_gw4(&netif));
|
---|
| 355 | #endif /* LWIP_IPV4 */
|
---|
| 356 | #endif /* LWIP_DHCP */
|
---|
| 357 | sntp_init();
|
---|
| 358 |
|
---|
| 359 | #if LWIP_SNMP
|
---|
| 360 | lwip_privmib_init();
|
---|
| 361 | #if SNMP_LWIP_MIB2
|
---|
| 362 | #if SNMP_USE_NETCONN
|
---|
| 363 | snmp_threadsync_init(&snmp_mib2_lwip_locks, snmp_mib2_lwip_synchronizer);
|
---|
| 364 | #endif /* SNMP_USE_NETCONN */
|
---|
| 365 | snmp_mib2_set_syscontact_readonly((const u8_t*)"root", NULL);
|
---|
| 366 | snmp_mib2_set_syslocation_readonly((const u8_t*)"lwIP development PC", NULL);
|
---|
| 367 | snmp_mib2_set_sysdescr((const u8_t*)"toppershost", NULL);
|
---|
| 368 | #endif /* SNMP_LWIP_MIB2 */
|
---|
| 369 |
|
---|
| 370 | snmp_set_mibs(mibs, LWIP_ARRAYSIZE(mibs));
|
---|
| 371 | snmp_init();
|
---|
| 372 | #endif /* LWIP_SNMP */
|
---|
| 373 |
|
---|
| 374 | #if LWIP_MDNS_RESPONDER
|
---|
| 375 | mdns_resp_init();
|
---|
| 376 | mdns_resp_add_netif(&netif, "toppershost", 3600);
|
---|
| 377 | mdns_resp_add_service(&netif, "myweb", "_http", DNSSD_PROTO_TCP, 80, 3600, srv_txt, NULL);
|
---|
| 378 | #endif
|
---|
| 379 |
|
---|
| 380 | #if LWIP_UDP
|
---|
| 381 | tftp_init(&tftp);
|
---|
| 382 | #endif /* LWIP_UDP */
|
---|
| 383 |
|
---|
| 384 | sys_sem_signal(sem);
|
---|
| 385 | }
|
---|
| 386 |
|
---|
| 387 | /*-----------------------------------------------------------------------------------*/
|
---|
| 388 |
|
---|
| 389 | #if LWIP_HAVE_SLIPIF
|
---|
| 390 | /* (manual) host IP configuration */
|
---|
| 391 | #if LWIP_IPV4
|
---|
| 392 | static ip_addr_t ipaddr_slip, netmask_slip, gw_slip;
|
---|
| 393 | #endif /* LWIP_IPV4 */
|
---|
| 394 | struct netif slipif;
|
---|
| 395 | #endif /* LWIP_HAVE_SLIPIF */
|
---|
| 396 |
|
---|
| 397 | #if PPP_SUPPORT
|
---|
| 398 | sio_fd_t ppp_sio;
|
---|
| 399 | ppp_pcb *ppp;
|
---|
| 400 | struct netif pppos_netif;
|
---|
| 401 |
|
---|
| 402 | static void
|
---|
| 403 | pppos_rx_thread(void *arg)
|
---|
| 404 | {
|
---|
| 405 | u32_t len;
|
---|
| 406 | u8_t buffer[128];
|
---|
| 407 | LWIP_UNUSED_ARG(arg);
|
---|
| 408 |
|
---|
| 409 | /* Please read the "PPPoS input path" chapter in the PPP documentation. */
|
---|
| 410 | while(1){
|
---|
| 411 | len = sio_read(ppp_sio, buffer, sizeof(buffer));
|
---|
| 412 | if (len > 0) {
|
---|
| 413 | /* Pass received raw characters from PPPoS to be decoded through lwIP
|
---|
| 414 | * TCPIP thread using the TCPIP API. This is thread safe in all cases
|
---|
| 415 | * but you should avoid passing data byte after byte. */
|
---|
| 416 | pppos_input_tcpip(ppp, buffer, len);
|
---|
| 417 | }
|
---|
| 418 | }
|
---|
| 419 | }
|
---|
| 420 |
|
---|
| 421 | static void
|
---|
| 422 | ppp_link_status_cb(ppp_pcb *pcb, int err_code, void *ctx)
|
---|
| 423 | {
|
---|
| 424 | struct netif *pppif = ppp_netif(pcb);
|
---|
| 425 | LWIP_UNUSED_ARG(ctx);
|
---|
| 426 |
|
---|
| 427 | switch(err_code) {
|
---|
| 428 | case PPPERR_NONE: /* No error. */
|
---|
| 429 | {
|
---|
| 430 | #if LWIP_DNS
|
---|
| 431 | const ip_addr_t *ns;
|
---|
| 432 | #endif /* LWIP_DNS */
|
---|
| 433 | fprintf(stderr, "ppp_link_status_cb: PPPERR_NONE\n\r");
|
---|
| 434 | #if LWIP_IPV4
|
---|
| 435 | fprintf(stderr, " our_ip4addr = %s\n\r", ip4addr_ntoa(netif_ip4_addr(pppif)));
|
---|
| 436 | fprintf(stderr, " his_ipaddr = %s\n\r", ip4addr_ntoa(netif_ip4_gw(pppif)));
|
---|
| 437 | fprintf(stderr, " netmask = %s\n\r", ip4addr_ntoa(netif_ip4_netmask(pppif)));
|
---|
| 438 | #endif /* LWIP_IPV4 */
|
---|
| 439 | #if LWIP_IPV6
|
---|
| 440 | fprintf(stderr, " our_ip6addr = %s\n\r", ip6addr_ntoa(netif_ip6_addr(pppif, 0)));
|
---|
| 441 | #endif /* LWIP_IPV6 */
|
---|
| 442 |
|
---|
| 443 | #if LWIP_DNS
|
---|
| 444 | ns = dns_getserver(0);
|
---|
| 445 | fprintf(stderr, " dns1 = %s\n\r", ipaddr_ntoa(ns));
|
---|
| 446 | ns = dns_getserver(1);
|
---|
| 447 | fprintf(stderr, " dns2 = %s\n\r", ipaddr_ntoa(ns));
|
---|
| 448 | #endif /* LWIP_DNS */
|
---|
| 449 | #if PPP_IPV6_SUPPORT
|
---|
| 450 | fprintf(stderr, " our6_ipaddr = %s\n\r", ip6addr_ntoa(netif_ip6_addr(pppif, 0)));
|
---|
| 451 | #endif /* PPP_IPV6_SUPPORT */
|
---|
| 452 | }
|
---|
| 453 | break;
|
---|
| 454 |
|
---|
| 455 | case PPPERR_PARAM: /* Invalid parameter. */
|
---|
| 456 | printf("ppp_link_status_cb: PPPERR_PARAM\n");
|
---|
| 457 | break;
|
---|
| 458 |
|
---|
| 459 | case PPPERR_OPEN: /* Unable to open PPP session. */
|
---|
| 460 | printf("ppp_link_status_cb: PPPERR_OPEN\n");
|
---|
| 461 | break;
|
---|
| 462 |
|
---|
| 463 | case PPPERR_DEVICE: /* Invalid I/O device for PPP. */
|
---|
| 464 | printf("ppp_link_status_cb: PPPERR_DEVICE\n");
|
---|
| 465 | break;
|
---|
| 466 |
|
---|
| 467 | case PPPERR_ALLOC: /* Unable to allocate resources. */
|
---|
| 468 | printf("ppp_link_status_cb: PPPERR_ALLOC\n");
|
---|
| 469 | break;
|
---|
| 470 |
|
---|
| 471 | case PPPERR_USER: /* User interrupt. */
|
---|
| 472 | printf("ppp_link_status_cb: PPPERR_USER\n");
|
---|
| 473 | break;
|
---|
| 474 |
|
---|
| 475 | case PPPERR_CONNECT: /* Connection lost. */
|
---|
| 476 | printf("ppp_link_status_cb: PPPERR_CONNECT\n");
|
---|
| 477 | break;
|
---|
| 478 |
|
---|
| 479 | case PPPERR_AUTHFAIL: /* Failed authentication challenge. */
|
---|
| 480 | printf("ppp_link_status_cb: PPPERR_AUTHFAIL\n");
|
---|
| 481 | break;
|
---|
| 482 |
|
---|
| 483 | case PPPERR_PROTOCOL: /* Failed to meet protocol. */
|
---|
| 484 | printf("ppp_link_status_cb: PPPERR_PROTOCOL\n");
|
---|
| 485 | break;
|
---|
| 486 |
|
---|
| 487 | case PPPERR_PEERDEAD: /* Connection timeout. */
|
---|
| 488 | printf("ppp_link_status_cb: PPPERR_PEERDEAD\n");
|
---|
| 489 | break;
|
---|
| 490 |
|
---|
| 491 | case PPPERR_IDLETIMEOUT: /* Idle Timeout. */
|
---|
| 492 | printf("ppp_link_status_cb: PPPERR_IDLETIMEOUT\n");
|
---|
| 493 | break;
|
---|
| 494 |
|
---|
| 495 | case PPPERR_CONNECTTIME: /* PPPERR_CONNECTTIME. */
|
---|
| 496 | printf("ppp_link_status_cb: PPPERR_CONNECTTIME\n");
|
---|
| 497 | break;
|
---|
| 498 |
|
---|
| 499 | case PPPERR_LOOPBACK: /* Connection timeout. */
|
---|
| 500 | printf("ppp_link_status_cb: PPPERR_LOOPBACK\n");
|
---|
| 501 | break;
|
---|
| 502 |
|
---|
| 503 | default:
|
---|
| 504 | printf("ppp_link_status_cb: unknown errCode %d\n", err_code);
|
---|
| 505 | break;
|
---|
| 506 | }
|
---|
| 507 | }
|
---|
| 508 |
|
---|
| 509 | static u32_t
|
---|
| 510 | ppp_output_cb(ppp_pcb *pcb, u8_t *data, u32_t len, void *ctx)
|
---|
| 511 | {
|
---|
| 512 | LWIP_UNUSED_ARG(pcb);
|
---|
| 513 | LWIP_UNUSED_ARG(ctx);
|
---|
| 514 | return sio_write(ppp_sio, data, len);
|
---|
| 515 | }
|
---|
| 516 | #endif
|
---|
| 517 |
|
---|
| 518 | #if LWIP_NETIF_STATUS_CALLBACK
|
---|
| 519 | static void
|
---|
| 520 | netif_status_callback(struct netif *nif)
|
---|
| 521 | {
|
---|
| 522 | printf("NETIF: %c%c%d is %s\n", nif->name[0], nif->name[1], nif->num,
|
---|
| 523 | netif_is_up(nif) ? "UP" : "DOWN");
|
---|
| 524 | #if LWIP_IPV4
|
---|
| 525 | printf("IPV4: Host at %s ", ip4addr_ntoa(netif_ip4_addr(nif)));
|
---|
| 526 | printf("mask %s ", ip4addr_ntoa(netif_ip4_netmask(nif)));
|
---|
| 527 | printf("gateway %s\n", ip4addr_ntoa(netif_ip4_gw(nif)));
|
---|
| 528 | #endif /* LWIP_IPV4 */
|
---|
| 529 | #if LWIP_IPV6
|
---|
| 530 | printf("IPV6: Host at %s\n", ip6addr_ntoa(netif_ip6_addr(nif, 0)));
|
---|
| 531 | #endif /* LWIP_IPV6 */
|
---|
| 532 | #if LWIP_NETIF_HOSTNAME
|
---|
| 533 | printf("FQDN: %s\n", netif_get_hostname(nif));
|
---|
| 534 | #endif /* LWIP_NETIF_HOSTNAME */
|
---|
| 535 |
|
---|
| 536 | #if LWIP_MDNS_RESPONDER
|
---|
| 537 | if(tcpip_init_flag)
|
---|
| 538 | mdns_resp_netif_settings_changed(nif);
|
---|
| 539 | #endif
|
---|
| 540 | }
|
---|
| 541 | #endif /* LWIP_NETIF_STATUS_CALLBACK */
|
---|
| 542 |
|
---|
| 543 | static void
|
---|
| 544 | init_netifs(void)
|
---|
| 545 | {
|
---|
| 546 | #if LWIP_HAVE_SLIPIF
|
---|
| 547 | #if SLIP_PTY_TEST
|
---|
| 548 | u8_t siodev_slip = 3;
|
---|
| 549 | #else
|
---|
| 550 | u8_t siodev_slip = 0;
|
---|
| 551 | #endif
|
---|
| 552 |
|
---|
| 553 | #if LWIP_IPV4
|
---|
| 554 | netif_add(&slipif, ip_2_ip4(&ipaddr_slip), ip_2_ip4(&netmask_slip), ip_2_ip4(&gw_slip),
|
---|
| 555 | (void*)&siodev_slip, slipif_init, tcpip_input);
|
---|
| 556 | #else /* LWIP_IPV4 */
|
---|
| 557 | netif_add(&slipif, (void*)&siodev_slip, slipif_init, tcpip_input);
|
---|
| 558 | #endif /* LWIP_IPV4 */
|
---|
| 559 | #if LWIP_IPV6
|
---|
| 560 | netif_create_ip6_linklocal_address(&slipif, 1);
|
---|
| 561 | #endif
|
---|
| 562 | #if LWIP_NETIF_STATUS_CALLBACK
|
---|
| 563 | netif_set_status_callback(&slipif, netif_status_callback);
|
---|
| 564 | #endif /* LWIP_NETIF_STATUS_CALLBACK */
|
---|
| 565 | netif_set_link_up(&slipif);
|
---|
| 566 | netif_set_up(&slipif);
|
---|
| 567 | #endif /* LWIP_HAVE_SLIPIF */
|
---|
| 568 |
|
---|
| 569 | #if PPP_SUPPORT
|
---|
| 570 | #if PPP_PTY_TEST
|
---|
| 571 | ppp_sio = sio_open(2);
|
---|
| 572 | #else
|
---|
| 573 | ppp_sio = sio_open(0);
|
---|
| 574 | #endif
|
---|
| 575 | if(!ppp_sio){
|
---|
| 576 | syslog_0(LOG_ERROR, "Error opening device: ");
|
---|
| 577 | slp_tsk();
|
---|
| 578 | }
|
---|
| 579 |
|
---|
| 580 | ppp = pppos_create(&pppos_netif, ppp_output_cb, ppp_link_status_cb, NULL);
|
---|
| 581 | if(!ppp){
|
---|
| 582 | syslog_0(LOG_ERROR, "Could not create PPP control interface");
|
---|
| 583 | slp_tsk();
|
---|
| 584 | }
|
---|
| 585 |
|
---|
| 586 | #ifdef LWIP_PPP_CHAP_TEST
|
---|
| 587 | ppp_set_auth(ppp, PPPAUTHTYPE_CHAP, "lwip", "mysecret");
|
---|
| 588 | #endif
|
---|
| 589 |
|
---|
| 590 | ppp_connect(ppp, 0);
|
---|
| 591 |
|
---|
| 592 | #if LWIP_NETIF_STATUS_CALLBACK
|
---|
| 593 | netif_set_status_callback(&pppos_netif, netif_status_callback);
|
---|
| 594 | #endif /* LWIP_NETIF_STATUS_CALLBACK */
|
---|
| 595 | #endif /* PPP_SUPPORT */
|
---|
| 596 |
|
---|
| 597 | #if LWIP_IPV4
|
---|
| 598 | #if LWIP_DHCP
|
---|
| 599 | IP_ADDR4(&gw, 0,0,0,0);
|
---|
| 600 | IP_ADDR4(&ipaddr, 0,0,0,0);
|
---|
| 601 | IP_ADDR4(&netmask, 0,0,0,0);
|
---|
| 602 | #endif /* LWIP_DHCP */
|
---|
| 603 | netif_add(&netif, ip_2_ip4(&ipaddr), ip_2_ip4(&netmask), ip_2_ip4(&gw), NULL, ethernetif_init, tcpip_input);
|
---|
| 604 | #else /* LWIP_IPV4 */
|
---|
| 605 | netif_add(&netif, NULL, ethernetif_init, tcpip_input);
|
---|
| 606 | #endif /* LWIP_IPV4 */
|
---|
| 607 | #if LWIP_IPV6
|
---|
| 608 | netif_create_ip6_linklocal_address(&netif, 1);
|
---|
| 609 | netif.ip6_autoconfig_enabled = 1;
|
---|
| 610 | #endif
|
---|
| 611 | #if LWIP_NETIF_STATUS_CALLBACK
|
---|
| 612 | netif_set_status_callback(&netif, netif_status_callback);
|
---|
| 613 | #endif /* LWIP_NETIF_STATUS_CALLBACK */
|
---|
| 614 | netif_set_default(&netif);
|
---|
| 615 | netif_set_up(&netif);
|
---|
| 616 |
|
---|
| 617 | #if LWIP_DHCP
|
---|
| 618 | dhcp_start(&netif);
|
---|
| 619 | #endif /* LWIP_DHCP */
|
---|
| 620 |
|
---|
| 621 | #if 0
|
---|
| 622 | /* Only used for testing purposes: */
|
---|
| 623 | netif_add(&ipaddr, &netmask, &gw, NULL, pcapif_init, tcpip_input);
|
---|
| 624 | #endif
|
---|
| 625 |
|
---|
| 626 | #if LWIP_TCP
|
---|
| 627 | netio_init();
|
---|
| 628 | #endif
|
---|
| 629 | #if LWIP_TCP && LWIP_NETCONN
|
---|
| 630 | tcpecho_init();
|
---|
| 631 | shell_init();
|
---|
| 632 | httpd_init();
|
---|
| 633 | #endif
|
---|
| 634 | #if LWIP_UDP && LWIP_NETCONN
|
---|
| 635 | udpecho_init();
|
---|
| 636 | #endif
|
---|
| 637 | #if LWIP_SOCKET
|
---|
| 638 | chargen_init();
|
---|
| 639 | #endif
|
---|
| 640 | /* sys_timeout(5000, tcp_debug_timeout, NULL);*/
|
---|
| 641 | }
|
---|
| 642 |
|
---|
| 643 | /*-----------------------------------------------------------------------------------*/
|
---|
| 644 | static void
|
---|
| 645 | main_thread(void *arg)
|
---|
| 646 | {
|
---|
| 647 | sys_sem_t sem;
|
---|
| 648 | LWIP_UNUSED_ARG(arg);
|
---|
| 649 |
|
---|
| 650 | if(sys_sem_new(&sem, 0) != ERR_OK) {
|
---|
| 651 | LWIP_ASSERT("Failed to create semaphore", 0);
|
---|
| 652 | }
|
---|
| 653 | tcpip_init(tcpip_init_done, &sem);
|
---|
| 654 | sys_sem_wait(&sem);
|
---|
| 655 | syslog_0(LOG_NOTICE, "TCP/IP initialized.");
|
---|
| 656 |
|
---|
| 657 | #if LWIP_SOCKET && defined(USE_PINGSEND)
|
---|
| 658 | ping_init(&ping_addr);
|
---|
| 659 | #endif
|
---|
| 660 |
|
---|
| 661 | syslog_0(LOG_NOTICE, "Applications started.");
|
---|
| 662 |
|
---|
| 663 | #ifdef MEM_PERF
|
---|
| 664 | mem_perf_init("/tmp/memstats.client");
|
---|
| 665 | #endif /* MEM_PERF */
|
---|
| 666 | #if 0
|
---|
| 667 | stats_display();
|
---|
| 668 | #endif
|
---|
| 669 | #if PPP_SUPPORT
|
---|
| 670 | /* Block forever. */
|
---|
| 671 | sys_thread_new("pppos_rx_thread", pppos_rx_thread, NULL, DEFAULT_THREAD_STACKSIZE, DEFAULT_THREAD_PRIO);
|
---|
| 672 | sys_sem_wait(&sem);
|
---|
| 673 | #endif
|
---|
| 674 | tcpip_init_flag = true;
|
---|
| 675 | }
|
---|
| 676 |
|
---|
| 677 | /*
|
---|
| 678 | * メインタスク
|
---|
| 679 | */
|
---|
| 680 | void
|
---|
| 681 | main_task(intptr_t exinf)
|
---|
| 682 | {
|
---|
| 683 | #ifdef _STORAGEDEVICE_H_
|
---|
| 684 | StorageDevice_t *psdev;
|
---|
| 685 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 686 | ER_UINT ercd;
|
---|
| 687 |
|
---|
| 688 | SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_NOTICE), LOG_UPTO(LOG_EMERG)));
|
---|
| 689 | syslog(LOG_NOTICE, "Sample program starts (exinf = %d).", (int_t) exinf);
|
---|
| 690 |
|
---|
| 691 | /*
|
---|
| 692 | * シリアルポートの初期化
|
---|
| 693 | *
|
---|
| 694 | * システムログタスクと同じシリアルポートを使う場合など,シリアル
|
---|
| 695 | * ポートがオープン済みの場合にはここでE_OBJエラーになるが,支障は
|
---|
| 696 | * ない.
|
---|
| 697 | */
|
---|
| 698 | ercd = serial_opn_por(TASK_PORTID);
|
---|
| 699 | if (ercd < 0 && MERCD(ercd) != E_OBJ) {
|
---|
| 700 | syslog(LOG_ERROR, "%s (%d) reported by `serial_opn_por'.",
|
---|
| 701 | itron_strerror(ercd), SERCD(ercd));
|
---|
| 702 | }
|
---|
| 703 | SVC_PERROR(serial_ctl_por(TASK_PORTID,
|
---|
| 704 | (IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV)));
|
---|
| 705 |
|
---|
| 706 | #ifdef _STORAGEDEVICE_H_
|
---|
| 707 | /*
|
---|
| 708 | * SD-CARDの設定
|
---|
| 709 | */
|
---|
| 710 | psdev = SDMGetStorageDevice(0);
|
---|
| 711 | psdev->_sdev_notice = storagedev_notice;
|
---|
| 712 | SDeviceHead._get_datetime = get_fat_time;
|
---|
| 713 | #endif /* _STORAGEDEVICE_H_ */
|
---|
| 714 |
|
---|
| 715 | /* startup defaults (may be overridden by one or more opts) */
|
---|
| 716 | #if LWIP_IPV4
|
---|
| 717 | IP_ADDR4(&gw, 192,168, 0,1);
|
---|
| 718 | IP_ADDR4(&netmask, 255,255,255,0);
|
---|
| 719 | IP_ADDR4(&ipaddr, 192,168, 0,2);
|
---|
| 720 | #if LWIP_HAVE_SLIPIF
|
---|
| 721 | IP_ADDR4(&gw_slip, 192,168, 2, 1);
|
---|
| 722 | IP_ADDR4(&netmask_slip, 255,255,255,255);
|
---|
| 723 | IP_ADDR4(&ipaddr_slip, 192,168, 2, 2);
|
---|
| 724 | #endif
|
---|
| 725 | #endif /* LWIP_IPV4 */
|
---|
| 726 |
|
---|
| 727 | IP_SET_TYPE_VAL(ping_addr, IPADDR_TYPE_V4);
|
---|
| 728 | /* use debug flags defined by debug.h */
|
---|
| 729 | debug_flags = LWIP_DBG_OFF;
|
---|
| 730 |
|
---|
| 731 | sys_init();
|
---|
| 732 | sys_thread_new("main_thread", main_thread, NULL, DEFAULT_THREAD_STACKSIZE, DEFAULT_THREAD_PRIO);
|
---|
| 733 |
|
---|
| 734 | syslog(LOG_NOTICE, "Sample program ends.");
|
---|
| 735 | slp_tsk();
|
---|
| 736 | SVC_PERROR(ext_ker());
|
---|
| 737 | assert(0);
|
---|
| 738 | }
|
---|