Changeset 374 for asp3_tinet_ecnl_rx/trunk

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/Debug/Makefile

r373	r374
158	158
159	159	#
	160	# mbedサービスの定義
	161	#
	162
	163	include $(SRCDIR)/mbed/Makefile.mbed
	164
	165	#
160	166	# 共通コンパイルオプションの定義
161	167	#
…	…
193	199	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
194	200	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
195		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	201	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
196	202
197	203	#

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/DebugCitrus/Makefile

r373	r374
158	158
159	159	#
	160	# mbedサービスの定義
	161	#
	162
	163	include $(SRCDIR)/mbed/Makefile.mbed
	164
	165	#
160	166	# 共通コンパイルオプションの定義
161	167	#
…	…
193	199	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
194	200	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
195		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	201	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
196	202
197	203	#

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/DebugEther/Makefile

r373	r374
158	158
159	159	#
	160	# mbedサービスの定義
	161	#
	162
	163	include $(SRCDIR)/mbed/Makefile.mbed
	164
	165	#
160	166	# 共通コンパイルオプションの定義
161	167	#
…	…
193	199	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
194	200	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
195		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	201	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
196	202
197	203	#

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/src/client.c

-              r371
+              r374
  *  の責任を負わない．
+ *
  *  @(#) $Id: client.c 1729 2019-01-09 14:44:36Z coas-nagasima $
+ *  @(#) $Id$
  */
 #include <lib/curl_config.h>
 …
 #include "kernel_cfg.h"
 #include "ff.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "client.h"
 #include "jsonsl.h"

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/src/client.h

r371	r374
33	33	* の責任を負わない．
34	34	*
35		* @(#) $Id~~: client.h 1784 2019-02-06 01:11:25Z coas-nagasima~~ $
	35	* @(#) $Id$
36	36	*/
37	37

asp3_tinet_ecnl_rx/trunk/app1_usb_watt_meter/src/main.c

-              r371
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
-#ifdef TOPPERS_OMIT_TECS
-        serial_opn_por(SIO_PORTID);
-#endif
-        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
         //wolfSSL_Debugging_ON();
         ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app2_light/Debug/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app2_light/DebugCitrus/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app2_light/DebugEther/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#
…	…
182	188	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
183	189	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
184		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	190	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
185	191
186	192	#

asp3_tinet_ecnl_rx/trunk/app2_light/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app3_human_detec/Debug/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app3_human_detec/DebugCitrus/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app3_human_detec/DebugEther/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#
…	…
182	188	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
183	189	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
184		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	190	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
185	191
186	192	#

asp3_tinet_ecnl_rx/trunk/app3_human_detec/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app4_aircon/Debug/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app4_aircon/DebugCitrus/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app4_aircon/DebugEther/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app4_aircon/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app5_temp_sensor/Debug/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app5_temp_sensor/DebugCitrus/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app5_temp_sensor/DebugEther/Makefile

-              r364
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  gdicサービスの定義
+#
 …
 APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) mbed_api.o netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
 APPLDIRS := $(APPLDIRS) ../../ntshell/lcd
 APPL_COBJS := $(APPL_COBJS) draw_font.o shnm12_font.o

asp3_tinet_ecnl_rx/trunk/app5_temp_sensor/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app6_hot_water_pot/Debug/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app6_hot_water_pot/DebugCitrus/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app6_hot_water_pot/DebugEther/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#
…	…
182	188	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
183	189	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
184		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	190	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
185	191
186	192	#

asp3_tinet_ecnl_rx/trunk/app6_hot_water_pot/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/app7_buzzer/Debug/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app7_buzzer/DebugCitrus/Makefile

r364	r374
155	155
156	156	#
	157	# mbedサービスの定義
	158	#
	159
	160	include $(SRCDIR)/mbed/Makefile.mbed
	161
	162	#
157	163	# 共通コンパイルオプションの定義
158	164	#
…	…
184	190	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
185	191	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
186		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	192	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
187	193
188	194	#

asp3_tinet_ecnl_rx/trunk/app7_buzzer/DebugEther/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#
…	…
182	188	APPL_COBJS := $(APPL_COBJS) ping.o ping6.o resolver.o dhcp4_cli.o netapp_subr.o ntp_cli.o net_misc.o
183	189	APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
184		APPL_COBJS := $(APPL_COBJS) ~~mbed_api.o~~ netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
	190	APPL_COBJS := $(APPL_COBJS) netcmd.o fdtable.o io_stub.o socket_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
185	191
186	192	#

asp3_tinet_ecnl_rx/trunk/app7_buzzer/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "socket_stub.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/asp3_dcre/Debug/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#

asp3_tinet_ecnl_rx/trunk/asp3_dcre/DebugCitrus/Makefile

r364	r374
153	153
154	154	#
	155	# mbedサービスの定義
	156	#
	157
	158	include $(SRCDIR)/mbed/Makefile.mbed
	159
	160	#
155	161	# 共通コンパイルオプションの定義
156	162	#

asp3_tinet_ecnl_rx/trunk/asp3_dcre/arch/rx630_gcc/tSCIF.c

r337	r374
47	47	#include "tSCIF_tecsgen.h"
48	48	#include "scif.h"
	49	#include "target_kernel_impl.h"
49	50
50	51	/*

asp3_tinet_ecnl_rx/trunk/asp3_dcre/cfg/pass1.rb

-              r337
+              r374
+  #
   def self.OutLineNumber(cfgInfo)
     @cfg1Out.add("#line #{cfgInfo[:_LINE_]} \"#{cfgInfo[:_FILE_]}\"")
+    @cfg1Out.add("#line #{cfgInfo[:_LINE_]} \"#{cfgInfo[:_FILE_].gsub('\\', '/')}\"")
   end
 …
+  #
   def self.OutClassLineNumber(cfgInfo)
     @cfg1Out.add("#line #{cfgInfo[:CLASS_LINE_]} \"#{cfgInfo[:CLASS_FILE_]}\"")
+    @cfg1Out.add("#line #{cfgInfo[:CLASS_LINE_]} \"#{cfgInfo[:CLASS_FILE_].gsub('\\', '/')}\"")
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/gdic/adafruit_ssd1306/adafruit_ssd1306.h

-              r364
+              r374
 #include <stdbool.h>
 #include <time.h>
+#include "mbed_api.h"
+#include "gpio_api.h"
+#include "spi_api.h"
+#include "i2c_api.h"
 #include "gfxfont.h"

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/Makefile.target

r337	r374
13	13	# コンパイルオプション
14	14	#
15		INCLUDES := $(INCLUDES) -I$(TARGETDIR) -I$(SRCDIR)/~~pdic~~
	15	INCLUDES := $(INCLUDES) -I$(TARGETDIR) -I$(SRCDIR)/mbed
16	16
17	17	#
…	…
25	25	# システムサービスに関する定義
26	26	#
27		SYSSVC_DIRS := $(SYSSVC_DIRS)
	27	SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/mbed
28	28	SYSSVC_COBJS := $(SYSSVC_COBJS)
29	29

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/gr_citrus.h

-              r337
+              r374
  *  ボーレート設定
  */
+#define BAUD_19200BPS           UINT_C( 78 )
+#define BAUD_38400BPS           UINT_C( 39 )
+#define BAUD_57600BPS           UINT_C( 25 )
+#define BAUD_115200BPS          UINT_C( 12 )
+#define UART_BAUDRATE           BAUD_115200BPS
+#define UART_BAUDRATE           115200
 /*

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/tSIOPortGRCitrus.cdl

-              r337
+              r374
  */
 import_C("gr_citrus.h");
 import_C("rx630.h");
+import_C("device.h");
 /*
  *  FIFO内蔵シリアルコミュニケーションインタフェース用 簡易SIOドライバ
  */
 import("tSCIF.cdl");
+import("tMbedSerial.cdl");
 /*
 …
         call                    sSIOPort        cSIOPort;
         [inline] entry  siSIOCBR        eiSIOCBR;
-        /*
-         *  割込み要求ライン操作のための結合
-         */
-        call    sInterruptRequest       cRxInterruptRequest;
-        call    sInterruptRequest       cTxInterruptRequest;
 };
 …
  *  ト）のセルタイプ
  */
-[active]
 composite tSIOPortGRCitrus {
         /*
 …
          */
         attr {
+                uintptr_t       baseAddress;                            /* ベースアドレス */
+                INTNO           rxInterruptNumber;                      /* 受信割込み番号 */
+                INTNO           txInterruptNumber;                      /* 送信割込み番号 */
+                PRI                     isrPriority = 1;                        /* ISR優先度 */
+                PRI                     interruptPriority = -4;         /* 割込み優先度 */
+                int32_t tx;                                                             /* 送信Pin */
+                int32_t rx;                                                             /* 受信Pin */
                 uint32_t        baudRate = 115200;                      /* ボーレートの設定値 */
         };
 …
          *  SIOドライバ
          */
+        cell tSCIF SCIF {
+                baseAddress = composite.baseAddress;
+        cell tMbedSerial MbedSerial {
+                tx          = composite.tx;
+                rx          = composite.rx;
                 baudRate    = composite.baudRate;
                 ciSIOCBR    = SIOPortMain.eiSIOCBR;
 …
         cell tSIOPortGRCitrusMain SIOPortMain {
                 ciSIOCBR            => composite.ciSIOCBR;
+                cSIOPort            = SCIF.eSIOPort;
+                cRxInterruptRequest = RxInterruptRequest.eInterruptRequest;
+                cTxInterruptRequest = TxInterruptRequest.eInterruptRequest;
+                cSIOPort            = MbedSerial.eSIOPort;
         };
         composite.eSIOPort => SIOPortMain.eSIOPort;
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR RxISRInstance {
-                interruptNumber = composite.rxInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiRxISR;
-        };
-        cell tInterruptRequest RxInterruptRequest {
-                interruptNumber   = composite.rxInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR TxISRInstance {
-                interruptNumber = composite.txInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiTxISR;
-        };
-        cell tInterruptRequest TxInterruptRequest {
-                interruptNumber   = composite.txInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
 };
 …
  *  サンプルプログラムが使うポートが，SIOPortTarget1に固定されているた
  *  め，ポート1とポート3を入れ換えている．具体的には，SIOPortTarget1は
  *  SCIFのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
  *  SIOPortTarget3はSCIFのチャネル0につながっている．
+ *  MbedSerialのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
+ *  SIOPortTarget3はMbedSerialのチャネル0につながっている．
  */
 [prototype]
 cell tSIOPortGRCitrus SIOPortTarget1 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI0_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI0_RXI");
+        txInterruptNumber = C_EXP("INT_SCI0_TEI");
+        tx = C_EXP("P20");              /* PIN_IO0 */
+        rx = C_EXP("P21");              /* PIN_IO1 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget2 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI1_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI1_RXI");
+        txInterruptNumber = C_EXP("INT_SCI1_TEI");
+        tx = C_EXP("P50");              /* PIN_IO5 */
+        rx = C_EXP("P52");              /* PIN_IO6 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget3 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI2_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI2_RXI");
+        txInterruptNumber = C_EXP("INT_SCI2_TEI");
+        tx = C_EXP("P32");              /* PIN_IO7 */
+        rx = C_EXP("P33");              /* PIN_IO8 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget4 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI3_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI3_RXI");
+        txInterruptNumber = C_EXP("INT_SCI3_TEI");
+        tx = C_EXP("PC7");              /* PIN_IO12 */
+        rx = C_EXP("PC6");              /* PIN_IO11 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget5 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI4_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI4_RXI");
+        txInterruptNumber = C_EXP("INT_SCI4_TEI");
+        tx = C_EXP("P26");              /* PIN_IO26 */
+        rx = C_EXP("P30");              /* PIN_IO22 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget6 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI5_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI5_RXI");
+        txInterruptNumber = C_EXP("INT_SCI5_TEI");
+        tx = C_EXP("PB5");              /* PIN_IO29 */
+        rx = C_EXP("P25");              /* PIN_IO23 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget7 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI6_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI6_RXI");
+        txInterruptNumber = C_EXP("INT_SCI6_TEI");
+        tx = C_EXP("PA0");              /* PIN_IO33 */
+        rx = C_EXP("PC2");              /* PIN_IO4 */
 };
 …
 cell tSIOPortGRCitrus SIOPortTarget8 {
         /* 属性の設定 */
+        baseAddress       = NULL;
+        rxInterruptNumber = NULL;
+        txInterruptNumber = NULL;
+        rx = NULL;
+        tx = NULL;
 };

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/tSIOPortGRCitrusMain_inline.h

-              r337
+              r374
          */
         cSIOPort_open();
-        /*
-         *  SIOの割込みマスクを解除する．
-         */
-        cRxInterruptRequest_enable();
-        cTxInterruptRequest_enable();
+}
 …
          */
         cSIOPort_close();
-        /*
-         *  SIOの割込みをマスクする．
-         */
-        cRxInterruptRequest_disable();
-        cTxInterruptRequest_disable();
+}

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/target_kernel_impl.c

-              r364
+              r374
 #include "syssvc/serial.h"
 #ifdef TOPPERS_OMIT_TECS
+#include "rx630_uart.h"
+#include "serial_api.h"
+#endif
+#ifdef TOPPERS_OMIT_TECS
+serial_t log_serial;
 #endif
 …
                 sil_reb_mem(PORTA_PDR_ADDR) & ~PORT_PDR_B7_BIT);
+#ifdef TOPPERS_OMIT_TECS
         /*
          *  シリアルポートの設定
          */
+        /* ポートP20をTxD0, ポートP21をRxD0に */
+        sil_wrb_mem(PORT2_PMR_ADDR, 0x03);
+        /* データディレクションレジスタ(PDR)の設定 P21(RxD0)を入力ポートにする */
+        sil_wrb_mem(PORT2_PDR_ADDR,
+                sil_reb_mem(PORT2_PDR_ADDR) & ~PORT_PDR_B1_BIT);
+        /* データディレクションレジスタ(PDR)の設定 P20(TxD0)を出力ポートにする */
+        sil_wrb_mem(PORT2_PDR_ADDR,
+                sil_reb_mem(PORT2_PDR_ADDR) | PORT_PDR_B0_BIT);
+        serial_init(&log_serial, P20, P21);
+        serial_baud(&log_serial, UART_BAUDRATE);
+        serial_format(&log_serial, 8, ParityNone, 1);
+#endif
         /* ポートP40～P47を周辺機器に */
 …
+{
         if (c == '\n') {
                 rx630_uart_pol_putc('\r', TARGET_PUTC_PORTID);
+                serial_putc(&log_serial, '\r');
+        }
         rx630_uart_pol_putc(c, TARGET_PUTC_PORTID);
+        serial_putc(&log_serial, c);
+}
 #endif

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/target_serial.c

-              r337
+              r374
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
 …
  *  Copyright (C) 2008-2010 by Witz Corporation, JAPAN
  *  Copyright (C) 2013      by Mitsuhiro Matsuura
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  @(#) $Id$
  */
 …
 #include <sil.h>
 #include "target_serial.h"
+#include "hal/serial_api.h"
+#include "target_syssvc.h"
+#include "syssvc/serial.h"
+/*
+ *  シリアルI/Oポート初期化ブロックの定義
+ */
+typedef struct sio_port_initialization_block {
+        PinName tx;
+        PinName rx;
+} SIOPINIB;
+/*
+ *  シリアルI/Oポート管理ブロックの定義
+ */
+struct sio_port_control_block {
+        const SIOPINIB *p_siopinib;
+        intptr_t exinf;
+        bool_t openflag;
+        serial_t serial;
+};
+/*
+ *  シリアルI/Oポート管理ブロックのエリア
+ */
+SIOPCB siopcb_table[TNUM_PORT];
+static const SIOPINIB siopinib_table[TNUM_SIOP] =
+{
+        { P20, P21 },
+#if TNUM_SIOP > 1
+        { P50, P52 },
+#endif
+#if TNUM_SIOP > 2
+        { P32, P33 },
+#endif
+#if TNUM_SIOP > 3
+        { PC7, PC6 },
+#endif
+#if TNUM_SIOP > 4
+        { P26, P30 },
+#endif
+#if TNUM_SIOP > 5
+        { PB5, P25 },
+#endif
+#if TNUM_SIOP > 6
+        { PA0, PC2 },
+#endif
+};
+/*
+ *  シリアルI/OポートIDから管理ブロックを取り出すためのマクロ
+ */
+#define INDEX_SIOP(siopid)       ((uint_t)((siopid) - 1))
+#define get_siopcb(siopid)       (&(siopcb_table[INDEX_SIOP(siopid)]))
+#define get_siopinib(siopid) (&(siopinib_table[INDEX_SIOP(siopid)]))
+static void mbed_serial_irq_handler(uint32_t id, SerialIrq event);
 /*
 …
 sio_initialize(intptr_t exinf)
+{
+        rx630_uart_initialize();
+        SIOPCB  *p_siopcb;
+        uint_t  i;
+        /*
+         *  シリアルI/Oポート管理ブロックの初期化
+         */
+        for (p_siopcb = siopcb_table, i = 0; i < TNUM_SIOP; p_siopcb++, i++) {
+                p_siopcb->p_siopinib = &(siopinib_table[i]);
+                p_siopcb->openflag = false;
+        }
+}
 …
         SIOPCB  *p_siopcb = NULL;
         ER      ercd;
+        INTNO   intno_sio_tx, intno_sio_rx;
+        /*
+         *  シリアルI/O割込みをマスクする．
+         *  (dis_int関数は、"\kernel\interrupt.c"に記述)
+         */
+        p_siopcb = rx630_uart_get_siopcb(siopid);
+        intno_sio_tx = rx630_uart_intno_tx(p_siopcb);
+        intno_sio_rx = rx630_uart_intno_rx(p_siopcb);
+        ercd = dis_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = dis_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        p_siopcb =
+                rx630_uart_opn_por(siopid , exinf , UART_BAUDRATE , UART_CLKSRC);
+        /*
+         *  シリアルI/O割込みをマスク解除する．
+         *  (ena_int関数は、"\kernel\interrupt.c"に記述)
+         */
+        ercd = ena_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = ena_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        return(p_siopcb);
+        serial_t *serial;
+        if ((siopid <= 0) || (siopid > (sizeof(siopcb_table) / sizeof(siopcb_table[0]))))
+                return NULL;
+        p_siopcb = get_siopcb(siopid);
+        if (p_siopcb->openflag)
+                return NULL;
+        p_siopcb->openflag = true;
+        p_siopcb->exinf = exinf;
+        serial = &p_siopcb->serial;
+        serial_init(serial, p_siopcb->p_siopinib->tx, p_siopcb->p_siopinib->rx);
+        serial_baud(serial, UART_BAUDRATE);
+        serial_format(serial, 8, ParityNone, 1);
+        serial_irq_handler(serial, mbed_serial_irq_handler, siopid);
+        return p_siopcb;
+}
 …
+{
         ER        ercd;
         INTNO   intno_sio_tx, intno_sio_rx;
+        serial_t *serial = &p_siopcb->serial;
         /*
          *  デバイス依存のクローズ処理．
          */
+        rx630_uart_cls_por(p_siopcb);
+        /*
+         *  シリアルI/O割込みをマスクする．
+         */
+        intno_sio_tx = rx630_uart_intno_tx(p_siopcb);
+        intno_sio_rx = rx630_uart_intno_rx(p_siopcb);
+        ercd = dis_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = dis_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        serial_free(serial);
+        p_siopcb->openflag = false;
+}
+/*
+ *  シリアルI/Oポートへの文字送信
+ */
+bool_t
+sio_snd_chr(SIOPCB *p_siopcb, char c)
+{
+        serial_t *serial = &p_siopcb->serial;
+        if (!serial_writable(serial))
+                return false;
+        serial_putc(serial, c);
+        return true;
+}
+/*
+ *  シリアルI/Oポートからの文字受信
+ */
+int_t
+sio_rcv_chr(SIOPCB *p_siopcb)
+{
+        serial_t *serial = &p_siopcb->serial;
+        if (!serial_readable(serial))
+                return -1;
+        return serial_getc(serial);
+}
+/*
+ *  シリアルI/Oポートからのコールバックの許可
+ */
+void
+sio_ena_cbr(SIOPCB *p_siopcb, uint_t cbrtn)
+{
+        serial_t *serial = &p_siopcb->serial;
+        switch (cbrtn) {
+        case SIO_RDY_SND:
+                serial_irq_set(serial, TxIrq, true);
+                break;
+        case SIO_RDY_RCV:
+                serial_irq_set(serial, RxIrq, true);
+                break;
+        }
+}
+/*
+ *  シリアルI/Oポートからのコールバックの禁止
+ */
+void
+sio_dis_cbr(SIOPCB *p_siopcb, uint_t cbrtn)
+{
+        serial_t *serial = &p_siopcb->serial;
+        switch (cbrtn) {
+        case SIO_RDY_SND:
+                serial_irq_set(serial, TxIrq, false);
+                break;
+        case SIO_RDY_RCV:
+                serial_irq_set(serial, RxIrq, false);
+                break;
+        }
+}
+/*
+ *  シリアルI/Oポートからの送信可能コールバック
+ */
+void
+serial_irdy_snd(SIOPCB  *p_siopcb)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_snd関数を呼び出し*/
+        sio_irdy_snd(p_siopcb->exinf);
+}
+/*
+ *  シリアルI/Oポートからの受信通知コールバック
+ */
+void
+serial_irdy_rcv(SIOPCB  *p_siopcb)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_rcv関数を呼び出し*/
+        sio_irdy_rcv(p_siopcb->exinf);
+}
 …
  *  SIOの割込みハンドラ
  */
+void sio_tx_isr(intptr_t exinf)
+{
+        rx630_uart_tx_isr(exinf);
+}
+/*
+ *  SIOの割込みハンドラ
+ */
+void sio_rx_isr(intptr_t exinf)
+{
+        rx630_uart_rx_isr(exinf);
+}
+/*
+ *  シリアルI/Oポートへの文字送信
+ */
+bool_t
+sio_snd_chr(SIOPCB *siopcb, char c)
+{
+        return(rx630_uart_snd_chr(siopcb, c));
+}
+/*
+ *  シリアルI/Oポートからの文字受信
+ */
+int_t
+sio_rcv_chr(SIOPCB *siopcb)
+{
+        return(rx630_uart_rcv_chr(siopcb));
+}
+/*
+ *  シリアルI/Oポートからのコールバックの許可
+ */
+void
+sio_ena_cbr(SIOPCB *siopcb, uint_t cbrtn)
+{
+        rx630_uart_ena_cbr(siopcb, cbrtn);
+}
+/*
+ *  シリアルI/Oポートからのコールバックの禁止
+ */
+void
+sio_dis_cbr(SIOPCB *siopcb, uint_t cbrtn)
+{
+        rx630_uart_dis_cbr(siopcb, cbrtn);
+}
+/*
+ *  シリアルI/Oポートからの送信可能コールバック
+ */
+void
+rx630_uart_irdy_snd(intptr_t exinf)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_snd関数を呼び出し*/
+        sio_irdy_snd(exinf);
+}
+/*
+ *  シリアルI/Oポートからの受信通知コールバック
+ */
+void
+rx630_uart_irdy_rcv(intptr_t exinf)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_rcv関数を呼び出し*/
+        sio_irdy_rcv(exinf);
+}
+void
+mbed_serial_irq_handler(uint32_t siopid, SerialIrq event)
+{
+        SIOPCB  *p_siopcb;
+        if ((siopid <= 0) || (siopid > (sizeof(siopcb_table) / sizeof(siopcb_table[0]))))
+                return;
+        p_siopcb = get_siopcb(siopid);
+        if (!p_siopcb->openflag)
+                return;
+        switch (event) {
+        case TxIrq:
+                serial_irdy_snd(p_siopcb);
+                break;
+        case RxIrq:
+                serial_irdy_rcv(p_siopcb);
+                break;
+        }
+}

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/target_serial.cfg

-              r337
+              r374
 #include <target_serial.h>
 ATT_INI({ TA_NULL, 0, sio_initialize });
-CFG_INT(INTNO_SIO_TX, { INTATR_SIO, INTPRI_SIO });
-CFG_INT(INTNO_SIO_RX, { INTATR_SIO, INTPRI_SIO });
-CRE_ISR(INTNO_SIO_TX_ISR, {TA_NULL, SIO_PORTID, INTNO_SIO_TX, sio_tx_isr, 1});
-CRE_ISR(INTNO_SIO_RX_ISR, {TA_NULL, SIO_PORTID, INTNO_SIO_RX, sio_rx_isr, 1});

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/target_serial.h

-              r337
+              r374
 #include "gr_citrus.h"
 #include "rx630_uart.h"
+#include "serial_api.h"
+/*
+ *  SIOの割込みハンドラのベクタ番号
+ */
+#define INHNO_SIO_TX    INT_SCI1_TEI                    /* 割込みハンドラ番号 */
+#define INTNO_SIO_TX    INT_SCI1_TEI                    /* 割込み番号 */
+#define INHNO_SIO_RX    INT_SCI1_RXI                    /* 割込みハンドラ番号 */
+#define INTNO_SIO_RX    INT_SCI1_RXI                    /* 割込み番号 */
+#define INTPRI_SIO              -4                                              /* 割込み優先度 */
+#define INTATR_SIO              (TA_NULL)                               /* 割込み属性 */
+#define SIO_RDY_SND 1
+#define SIO_RDY_RCV 2
 #ifndef TOPPERS_MACRO_ONLY
+typedef struct sio_port_control_block SIOPCB;
 /*
 …
  */
 extern void             sio_cls_por(SIOPCB *p_siopcb);
-/*
- *  SIOの割込みハンドラ
- */
-extern void     sio_tx_isr(intptr_t exinf);
-extern void     sio_rx_isr(intptr_t exinf);
 /*

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_citrus_gcc/target_syssvc.h

-              r337
+              r374
 /*
+ *  使用するシリアルポートのPinName
+ */
+#define STDIO_UART_TX P20
+#define STDIO_UART_RX P21
+/*
  *  システムログタスク関連の定数の定義
+ *

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/Makefile.target

r337	r374
13	13	# コンパイルオプション
14	14	#
15		INCLUDES := $(INCLUDES) -I$(TARGETDIR) -I$(SRCDIR)/~~pdic~~
	15	INCLUDES := $(INCLUDES) -I$(TARGETDIR) -I$(SRCDIR)/mbed
16	16
17	17	#
…	…
25	25	# システムサービスに関する定義
26	26	#
27		SYSSVC_DIRS := $(SYSSVC_DIRS)
	27	SYSSVC_DIRS := $(SYSSVC_DIRS) $(SRCDIR)/mbed
28	28	SYSSVC_COBJS := $(SYSSVC_COBJS)
29	29

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/gr_sakura.h

-              r337
+              r374
  *  ボーレート設定
  */
+#define BAUD_19200BPS           UINT_C( 78 )
+#define BAUD_38400BPS           UINT_C( 39 )
+#define BAUD_57600BPS           UINT_C( 25 )
+#define BAUD_115200BPS          UINT_C( 12 )
+#define UART_BAUDRATE           BAUD_115200BPS
+#define UART_BAUDRATE           115200
 /*

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/tSIOPortGRSakura.cdl

-              r337
+              r374
  */
 import_C("gr_sakura.h");
 import_C("rx630.h");
+import_C("device.h");
 /*
  *  FIFO内蔵シリアルコミュニケーションインタフェース用 簡易SIOドライバ
  */
 import("tSCIF.cdl");
+import("tMbedSerial.cdl");
 /*
 …
         call                    sSIOPort        cSIOPort;
         [inline] entry  siSIOCBR        eiSIOCBR;
-        /*
-         *  割込み要求ライン操作のための結合
-         */
-        call    sInterruptRequest       cRxInterruptRequest;
-        call    sInterruptRequest       cTxInterruptRequest;
 };
 …
  *  ト）のセルタイプ
  */
-[active]
 composite tSIOPortGRSakura {
         /*
 …
          */
         attr {
+                uintptr_t       baseAddress;                            /* ベースアドレス */
+                INTNO           rxInterruptNumber;                      /* 受信割込み番号 */
+                INTNO           txInterruptNumber;                      /* 送信割込み番号 */
+                PRI                     isrPriority = 1;                        /* ISR優先度 */
+                PRI                     interruptPriority = -4;         /* 割込み優先度 */
+                int32_t tx;                                                             /* 送信Pin */
+                int32_t rx;                                                             /* 受信Pin */
                 uint32_t        baudRate = 115200;                      /* ボーレートの設定値 */
         };
 …
          *  SIOドライバ
          */
+        cell tSCIF SCIF {
+                baseAddress = composite.baseAddress;
+        cell tMbedSerial MbedSerial {
+                tx          = composite.tx;
+                rx          = composite.rx;
                 baudRate    = composite.baudRate;
                 ciSIOCBR    = SIOPortMain.eiSIOCBR;
 …
         cell tSIOPortGRSakuraMain SIOPortMain {
                 ciSIOCBR            => composite.ciSIOCBR;
+                cSIOPort            = SCIF.eSIOPort;
+                cRxInterruptRequest = RxInterruptRequest.eInterruptRequest;
+                cTxInterruptRequest = TxInterruptRequest.eInterruptRequest;
+                cSIOPort            = MbedSerial.eSIOPort;
         };
         composite.eSIOPort => SIOPortMain.eSIOPort;
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR RxISRInstance {
-                interruptNumber = composite.rxInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiRxISR;
-        };
-        cell tInterruptRequest RxInterruptRequest {
-                interruptNumber   = composite.rxInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
-        /*
-         *  SIOの受信割込みサービスルーチンと割込み要求ライン
-         */
-        cell tISR TxISRInstance {
-                interruptNumber = composite.txInterruptNumber;
-                isrPriority     = composite.isrPriority;
-                ciISRBody       = SCIF.eiTxISR;
-        };
-        cell tInterruptRequest TxInterruptRequest {
-                interruptNumber   = composite.txInterruptNumber;
-                interruptPriority = composite.interruptPriority;
-        };
 };
 …
  *  サンプルプログラムが使うポートが，SIOPortTarget1に固定されているた
  *  め，ポート1とポート3を入れ換えている．具体的には，SIOPortTarget1は
  *  SCIFのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
  *  SIOPortTarget3はSCIFのチャネル0につながっている．
+ *  MbedSerialのチャネル2（チャネル番号は0から始まるので，ポート3のこと）に，
+ *  SIOPortTarget3はMbedSerialのチャネル0につながっている．
  */
 [prototype]
 cell tSIOPortGRSakura SIOPortTarget1 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI0_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI0_RXI");
+        txInterruptNumber = C_EXP("INT_SCI0_TEI");
+        tx = C_EXP("P20");              /* PIN_IO1 */
+        rx = C_EXP("P21");              /* PIN_IO0 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget2 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI1_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI1_RXI");
+        txInterruptNumber = C_EXP("INT_SCI1_TEI");
+        tx = C_EXP("P32");              /* PIN_IO6 */
+        rx = C_EXP("P33");              /* PIN_IO7 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget3 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI2_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI2_RXI");
+        txInterruptNumber = C_EXP("INT_SCI2_TEI");
+        tx = C_EXP("P50");              /* PIN_IO24 */
+        rx = C_EXP("P52");              /* PIN_IO26 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget4 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI3_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI3_RXI");
+        txInterruptNumber = C_EXP("INT_SCI3_TEI");
+        tx = C_EXP("P23");              /* PIN_IO3 */
+        rx = C_EXP("P25");              /* PIN_IO5 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget5 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI4_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI4_RXI");
+        txInterruptNumber = C_EXP("INT_SCI4_TEI");
+        tx = C_EXP("PC3");              /* PIN_IO9 */
+        rx = C_EXP("PC2");              /* PIN_IO8 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget6 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI5_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI5_RXI");
+        txInterruptNumber = C_EXP("INT_SCI5_TEI");
+        tx = C_EXP("PC7");              /* PIN_IO12 */
+        rx = C_EXP("PC6");              /* PIN_IO11 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget7 {
         /* 属性の設定 */
+        baseAddress       = C_EXP("SCI6_BASE");
+        rxInterruptNumber = C_EXP("INT_SCI6_RXI");
+        txInterruptNumber = C_EXP("INT_SCI6_TEI");
+        tx = C_EXP("P26");              /* PIN_IO58 */
+        rx = C_EXP("P30");              /* PIN_IO60 */
 };
 …
 cell tSIOPortGRSakura SIOPortTarget8 {
         /* 属性の設定 */
+        baseAddress       = NULL;
+        rxInterruptNumber = NULL;
+        txInterruptNumber = NULL;
+        tx = NULL;
+        rx = NULL;
 };

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/tSIOPortGRSakuraMain_inline.h

-              r337
+              r374
          */
         cSIOPort_open();
-        /*
-         *  SIOの割込みマスクを解除する．
-         */
-        cRxInterruptRequest_enable();
-        cTxInterruptRequest_enable();
+}
 …
          */
         cSIOPort_close();
-        /*
-         *  SIOの割込みをマスクする．
-         */
-        cRxInterruptRequest_disable();
-        cTxInterruptRequest_disable();
+}

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/target_kernel_impl.c

-              r364
+              r374
 #include "syssvc/serial.h"
 #ifdef TOPPERS_OMIT_TECS
+#include "rx630_uart.h"
+#include "serial_api.h"
+#endif
+#ifdef TOPPERS_OMIT_TECS
+serial_t log_serial;
 #endif
 …
                 sil_reb_mem(PORTA_PDR_ADDR) & ~PORT_PDR_B7_BIT);
+#ifdef TOPPERS_OMIT_TECS
         /*
          *  シリアルポートの設定
          */
+        /* ポートP20をTxD0, ポートP21をRxD0に */
+        sil_wrb_mem(PORT2_PMR_ADDR, 0x03);
+        /* データディレクションレジスタ(PDR)の設定 P21(RxD0)を入力ポートにする */
+        sil_wrb_mem(PORT2_PDR_ADDR,
+                sil_reb_mem(PORT2_PDR_ADDR) & ~PORT_PDR_B1_BIT);
+        /* データディレクションレジスタ(PDR)の設定 P20(TxD0)を出力ポートにする */
+        sil_wrb_mem(PORT2_PDR_ADDR,
+                sil_reb_mem(PORT2_PDR_ADDR) | PORT_PDR_B0_BIT);
+        serial_init(&log_serial, P20, P21);
+        serial_baud(&log_serial, UART_BAUDRATE);
+        serial_format(&log_serial, 8, ParityNone, 1);
+#endif
         /* ポートP40～P47を周辺機器に */
 …
+{
         if (c == '\n') {
                 rx630_uart_pol_putc('\r', TARGET_PUTC_PORTID);
+                serial_putc(&log_serial, '\r');
+        }
         rx630_uart_pol_putc(c, TARGET_PUTC_PORTID);
+        serial_putc(&log_serial, c);
+}
 #endif

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/target_serial.c

-              r337
+              r374
  *      Toyohashi Open Platform for Embedded Real-Time Systems/
  *      Advanced Standard Profile Kernel
+ *
+ *
  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
  *                              Toyohashi Univ. of Technology, JAPAN
 …
  *  Copyright (C) 2008-2010 by Witz Corporation, JAPAN
  *  Copyright (C) 2013      by Mitsuhiro Matsuura
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  @(#) $Id$
  */
 …
 #include <sil.h>
 #include "target_serial.h"
+#include "hal/serial_api.h"
+#include "target_syssvc.h"
+#include "syssvc/serial.h"
+/*
+ *  シリアルI/Oポート初期化ブロックの定義
+ */
+typedef struct sio_port_initialization_block {
+        PinName tx;
+        PinName rx;
+} SIOPINIB;
+/*
+ *  シリアルI/Oポート管理ブロックの定義
+ */
+struct sio_port_control_block {
+        const SIOPINIB *p_siopinib;
+        intptr_t exinf;
+        bool_t openflag;
+        serial_t serial;
+};
+/*
+ *  シリアルI/Oポート管理ブロックのエリア
+ */
+SIOPCB siopcb_table[TNUM_PORT];
+static const SIOPINIB siopinib_table[TNUM_SIOP] =
+{
+        { P20, P21 },
+#if TNUM_SIOP > 1
+        { P32, P33 },
+#endif
+#if TNUM_SIOP > 2
+        { P50, P52 },
+#endif
+#if TNUM_SIOP > 3
+        { P23, P25 },
+#endif
+#if TNUM_SIOP > 4
+        { PC3, PC2 },
+#endif
+#if TNUM_SIOP > 5
+        { PC7, PC6 },
+#endif
+#if TNUM_SIOP > 6
+        { P26, P30 },
+#endif
+};
+/*
+ *  シリアルI/OポートIDから管理ブロックを取り出すためのマクロ
+ */
+#define INDEX_SIOP(siopid)       ((uint_t)((siopid) - 1))
+#define get_siopcb(siopid)       (&(siopcb_table[INDEX_SIOP(siopid)]))
+#define get_siopinib(siopid) (&(siopinib_table[INDEX_SIOP(siopid)]))
+static void mbed_serial_irq_handler(uint32_t id, SerialIrq event);
 /*
 …
 sio_initialize(intptr_t exinf)
+{
+        rx630_uart_initialize();
+        SIOPCB  *p_siopcb;
+        uint_t  i;
+        /*
+         *  シリアルI/Oポート管理ブロックの初期化
+         */
+        for (p_siopcb = siopcb_table, i = 0; i < TNUM_SIOP; p_siopcb++, i++) {
+                p_siopcb->p_siopinib = &(siopinib_table[i]);
+                p_siopcb->openflag = false;
+        }
+}
 …
         SIOPCB  *p_siopcb = NULL;
         ER      ercd;
+        INTNO   intno_sio_tx, intno_sio_rx;
+        /*
+         *  シリアルI/O割込みをマスクする．
+         *  (dis_int関数は、"\kernel\interrupt.c"に記述)
+         */
+        p_siopcb = rx630_uart_get_siopcb(siopid);
+        intno_sio_tx = rx630_uart_intno_tx(p_siopcb);
+        intno_sio_rx = rx630_uart_intno_rx(p_siopcb);
+        ercd = dis_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = dis_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        p_siopcb =
+                rx630_uart_opn_por(siopid , exinf , UART_BAUDRATE , UART_CLKSRC);
+        /*
+         *  シリアルI/O割込みをマスク解除する．
+         *  (ena_int関数は、"\kernel\interrupt.c"に記述)
+         */
+        ercd = ena_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = ena_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        return(p_siopcb);
+        serial_t *serial;
+        if ((siopid <= 0) || (siopid > (sizeof(siopcb_table) / sizeof(siopcb_table[0]))))
+                return NULL;
+        p_siopcb = get_siopcb(siopid);
+        if (p_siopcb->openflag)
+                return NULL;
+        p_siopcb->openflag = true;
+        p_siopcb->exinf = exinf;
+        serial = &p_siopcb->serial;
+        serial_init(serial, p_siopcb->p_siopinib->tx, p_siopcb->p_siopinib->rx);
+        serial_baud(serial, UART_BAUDRATE);
+        serial_format(serial, 8, ParityNone, 1);
+        serial_irq_handler(serial, mbed_serial_irq_handler, siopid);
+        return p_siopcb;
+}
 …
+{
         ER        ercd;
         INTNO   intno_sio_tx, intno_sio_rx;
+        serial_t *serial = &p_siopcb->serial;
         /*
          *  デバイス依存のクローズ処理．
          */
+        rx630_uart_cls_por(p_siopcb);
+        /*
+         *  シリアルI/O割込みをマスクする．
+         */
+        intno_sio_tx = rx630_uart_intno_tx(p_siopcb);
+        intno_sio_rx = rx630_uart_intno_rx(p_siopcb);
+        ercd = dis_int(intno_sio_tx);
+        assert(ercd == E_OK);
+        ercd = dis_int(intno_sio_rx);
+        assert(ercd == E_OK);
+        serial_free(serial);
+        p_siopcb->openflag = false;
+}
+/*
+ *  シリアルI/Oポートへの文字送信
+ */
+bool_t
+sio_snd_chr(SIOPCB *p_siopcb, char c)
+{
+        serial_t *serial = &p_siopcb->serial;
+        if (!serial_writable(serial))
+                return false;
+        serial_putc(serial, c);
+        return true;
+}
+/*
+ *  シリアルI/Oポートからの文字受信
+ */
+int_t
+sio_rcv_chr(SIOPCB *p_siopcb)
+{
+        serial_t *serial = &p_siopcb->serial;
+        if (!serial_readable(serial))
+                return -1;
+        return serial_getc(serial);
+}
+/*
+ *  シリアルI/Oポートからのコールバックの許可
+ */
+void
+sio_ena_cbr(SIOPCB *p_siopcb, uint_t cbrtn)
+{
+        serial_t *serial = &p_siopcb->serial;
+        switch (cbrtn) {
+        case SIO_RDY_SND:
+                serial_irq_set(serial, TxIrq, true);
+                break;
+        case SIO_RDY_RCV:
+                serial_irq_set(serial, RxIrq, true);
+                break;
+        }
+}
+/*
+ *  シリアルI/Oポートからのコールバックの禁止
+ */
+void
+sio_dis_cbr(SIOPCB *p_siopcb, uint_t cbrtn)
+{
+        serial_t *serial = &p_siopcb->serial;
+        switch (cbrtn) {
+        case SIO_RDY_SND:
+                serial_irq_set(serial, TxIrq, false);
+                break;
+        case SIO_RDY_RCV:
+                serial_irq_set(serial, RxIrq, false);
+                break;
+        }
+}
+/*
+ *  シリアルI/Oポートからの送信可能コールバック
+ */
+void
+serial_irdy_snd(SIOPCB  *p_siopcb)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_snd関数を呼び出し*/
+        sio_irdy_snd(p_siopcb->exinf);
+}
+/*
+ *  シリアルI/Oポートからの受信通知コールバック
+ */
+void
+serial_irdy_rcv(SIOPCB  *p_siopcb)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_rcv関数を呼び出し*/
+        sio_irdy_rcv(p_siopcb->exinf);
+}
 …
  *  SIOの割込みハンドラ
  */
+void sio_tx_isr(intptr_t exinf)
+{
+        rx630_uart_tx_isr(exinf);
+}
+/*
+ *  SIOの割込みハンドラ
+ */
+void sio_rx_isr(intptr_t exinf)
+{
+        rx630_uart_rx_isr(exinf);
+}
+/*
+ *  シリアルI/Oポートへの文字送信
+ */
+bool_t
+sio_snd_chr(SIOPCB *siopcb, char c)
+{
+        return(rx630_uart_snd_chr(siopcb, c));
+}
+/*
+ *  シリアルI/Oポートからの文字受信
+ */
+int_t
+sio_rcv_chr(SIOPCB *siopcb)
+{
+        return(rx630_uart_rcv_chr(siopcb));
+}
+/*
+ *  シリアルI/Oポートからのコールバックの許可
+ */
+void
+sio_ena_cbr(SIOPCB *siopcb, uint_t cbrtn)
+{
+        rx630_uart_ena_cbr(siopcb, cbrtn);
+}
+/*
+ *  シリアルI/Oポートからのコールバックの禁止
+ */
+void
+sio_dis_cbr(SIOPCB *siopcb, uint_t cbrtn)
+{
+        rx630_uart_dis_cbr(siopcb, cbrtn);
+}
+/*
+ *  シリアルI/Oポートからの送信可能コールバック
+ */
+void
+rx630_uart_irdy_snd(intptr_t exinf)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_snd関数を呼び出し*/
+        sio_irdy_snd(exinf);
+}
+/*
+ *  シリアルI/Oポートからの受信通知コールバック
+ */
+void
+rx630_uart_irdy_rcv(intptr_t exinf)
+{
+        /* 共通部（syssvc\serial.c）にあるsio_irdy_rcv関数を呼び出し*/
+        sio_irdy_rcv(exinf);
+}
+void
+mbed_serial_irq_handler(uint32_t siopid, SerialIrq event)
+{
+        SIOPCB  *p_siopcb;
+        if ((siopid <= 0) || (siopid > (sizeof(siopcb_table) / sizeof(siopcb_table[0]))))
+                return;
+        p_siopcb = get_siopcb(siopid);
+        if (!p_siopcb->openflag)
+                return;
+        switch (event) {
+        case TxIrq:
+                serial_irdy_snd(p_siopcb);
+                break;
+        case RxIrq:
+                serial_irdy_rcv(p_siopcb);
+                break;
+        }
+}

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/target_serial.cfg

-              r337
+              r374
 #include <target_serial.h>
 ATT_INI({ TA_NULL, 0, sio_initialize });
-CFG_INT(INTNO_SIO_TX, { INTATR_SIO, INTPRI_SIO });
-CFG_INT(INTNO_SIO_RX, { INTATR_SIO, INTPRI_SIO });
-CRE_ISR(INTNO_SIO_TX_ISR, {TA_NULL, SIO_PORTID, INTNO_SIO_TX, sio_tx_isr, 1});
-CRE_ISR(INTNO_SIO_RX_ISR, {TA_NULL, SIO_PORTID, INTNO_SIO_RX, sio_rx_isr, 1});

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/target_serial.h

-              r337
+              r374
 #include "gr_sakura.h"
 #include "rx630_uart.h"
+#include "serial_api.h"
+/*
+ *  SIOの割込みハンドラのベクタ番号
+ */
+#define INHNO_SIO_TX    INT_SCI0_TEI                    /* 割込みハンドラ番号 */
+#define INTNO_SIO_TX    INT_SCI0_TEI                    /* 割込み番号 */
+#define INHNO_SIO_RX    INT_SCI0_RXI                    /* 割込みハンドラ番号 */
+#define INTNO_SIO_RX    INT_SCI0_RXI                    /* 割込み番号 */
+#define INTPRI_SIO              -4                                              /* 割込み優先度 */
+#define INTATR_SIO              (TA_NULL)                               /* 割込み属性 */
+#define SIO_RDY_SND 1
+#define SIO_RDY_RCV 2
 #ifndef TOPPERS_MACRO_ONLY
+typedef struct sio_port_control_block SIOPCB;
 /*
 …
  */
 extern void             sio_cls_por(SIOPCB *p_siopcb);
-/*
- *  SIOの割込みハンドラ
- */
-extern void     sio_tx_isr(intptr_t exinf);
-extern void     sio_rx_isr(intptr_t exinf);
 /*

asp3_tinet_ecnl_rx/trunk/asp3_dcre/target/gr_sakura_gcc/target_syssvc.h

-              r337
+              r374
 /*
+ *  使用するシリアルポートのPinName
+ */
+#define STDIO_UART_TX P20
+#define STDIO_UART_RX P21
+/*
  *  システムログタスク関連の定数の定義
+ *

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/MANIFEST_tecsgen_body

-              r337
+              r374
 MANIFEST_tecsgen_body
 Makefile
+tecscde
+tecscde.rb
+tecsgen
+tecsgen.rb
+tecsgen_rcov.rb
+tecsmerge
+tecsmerge.rb
 cdelib/Makefile
 cdelib/cell_plugin_dialog.rb
 …
 cdelib/tview.rb
 cdelib/version.rb
 tecs/TECSInfo/TECSInfo.cdl
+tecs/TECSInfo/TECSInfoAccessor.cdl
 tecs/TECSInfo/nTECSInfo_tArrayTypeInfo.c
-tecs/TECSInfo/nTECSInfo_tAttrVarInfo.c
 tecs/TECSInfo/nTECSInfo_tBoolTypeInfo.c
 tecs/TECSInfo/nTECSInfo_tCallInfo.c
 …
 tecs/TECSInfo/nTECSInfo_tParamInfo.c
 tecs/TECSInfo/nTECSInfo_tPtrTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tRawEntryDescriptorInfo.c
 tecs/TECSInfo/nTECSInfo_tRegionInfo.c
 tecs/TECSInfo/nTECSInfo_tSignatureInfo.c
 tecs/TECSInfo/nTECSInfo_tStructTypeInfo.c
+tecs/TECSInfo/nTECSInfo_tTECSInfoAccessor.c
 tecs/TECSInfo/nTECSInfo_tTECSInfoSub.c
 tecs/TECSInfo/nTECSInfo_tTECSInfo_inline.h
 …
 tecs/TECSInfo/nTECSInfo_tVarDeclInfo.c
 tecs/TECSInfo/nTECSInfo_tVoidTypeInfo.c
+tecs/TECSInfo/tTECSInfoAccessor.c
 tecs/TLSFMalloc/README-TLSF.txt
 tecs/TLSFMalloc/tTLSFMalloc.cdl
 …
 tecs/mruby/nMruby_tMruby.c
 tecs/mruby/nMruby_tMrubyCyclicTaskBody.c
+tecs/mruby/nMruby_tMrubyProc.c
 tecs/mruby/nMruby_tMrubyTaskBody.c
 tecs/mruby/nMruby_tMrubyVM.c
 …
 tecs/rpc/tDataqueueAdaptor_inline.h
 tecs/rpc/tDataqueueOWChannel.cdl
+tecs/rpc/tMessageBufferCEP.cdl
+tecs/rpc/tMessageBufferCEP_inline.h
+tecs/rpc/tMessageBufferChannel.cdl
 tecs/rpc/tNBOTDR_inline.h
 tecs/rpc/tPPAllocator.c
 …
 tecs/tecs.h
 tecs/tecs.xsd
-tecscde
-tecscde.rb
-tecsgen
-tecsgen.rb
-tecsgen_rcov
-tecsgen_rcov.rb
 tecslib/core/C_parser.tab.rb
 tecslib/core/C_parser.y.rb
 …
 tecslib/core/tool_info.rb
 tecslib/core/types.rb
+tecslib/core/unjoin_plugin.rb
 tecslib/core/value.rb
 tecslib/messages/messages_console_en_US.rb
 …
 tecslib/plugin/HRP2SemaphorePlugin.rb
 tecslib/plugin/HRP2TaskPlugin.rb
+tecslib/plugin/HRPHandlerPlugin.rb
+tecslib/plugin/HRPKernelObjectManager.rb
+tecslib/plugin/HRPKernelObjectPlugin.rb
+tecslib/plugin/HRPObjectPlugin.rb
+tecslib/plugin/HRPPlugin.rb
+tecslib/plugin/HRPRPCPlugin.rb
+tecslib/plugin/HRPSVCPlugin.rb
+tecslib/plugin/HRPTaskPlugin.rb
 tecslib/plugin/Mruby2CBridgePlugin.rb
 tecslib/plugin/MrubyBridgeCellPlugin.rb
 tecslib/plugin/MrubyBridgeCelltypePlugin.rb
+tecslib/plugin/MrubyBridgeCompositePlugin.rb
 tecslib/plugin/MrubyBridgePlugin.rb
 tecslib/plugin/MrubyBridgeSignaturePlugin.rb
 …
 tecslib/plugin/OpaqueRPCPlugin.rb
 tecslib/plugin/RPCPlugin.rb
+tecslib/plugin/RepeatCellPlugin.rb
+tecslib/plugin/RepeatJoinPlugin.rb
 tecslib/plugin/SharedOpaqueRPCPlugin.rb
 tecslib/plugin/SharedRPCPlugin.rb
 …
 tecslib/plugin/lib/GenParamCopy.rb
 tecslib/plugin/lib/GenTransparentMarshaler.rb
+tecslib/plugin/lib/MrubyBridgeCelltypePluginModule.rb
 tecslib/version.rb
-tecsmerge
-tecsmerge.rb

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/mruby/TECSPointer.h

-              r359
+              r374
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8-1))                         \
                                 || val < -(((type)1) << (sizeof(mrb_int)*8-1)) )                \
+                        if( val > TYPE ## _MAX                          \
+                                || val < TYPE ## _MIN )         \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \
 …
         {                                                                                                                                       \
                 if( sizeof( type ) > sizeof( mrb_int ) ){                                               \
                         if( val >= (((type)1) << (sizeof(mrb_int)*8)))                          \
+      if( val > TYPE ## _MAX )                        \
                                 /* '=' unecessary for negative value    */                              \
                                 /* ignore warning on int32_t */                                                 \

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/mruby/mrubyVMs.cdl

-              r359
+              r374
 /*
+ * tools/mruby/mruby.c から cInit_initializeBridge( mrb ) を呼び出すように変更したもの
+ * POSIX 環境用の VM
+ * mrbgems の mrbgems/mruby-bin-mruby/tools/mruby/mruby.c を参考に作成したもの
  */
 namespace nMruby{

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/mruby/tecs_mruby.h

-              r359
+              r374
 /*
  *  Copyright (C) 2008-2017 by TOPPERS Project
+ *  Copyright (C) 2008-2019 by TOPPERS Project
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #include "mruby/irep.h"
 #include "mruby/dump.h"
+#include "mruby/proc.h"
 #include "TECSPointer.h"
 #include "TECSStruct.h"
-#if  ! defined( MRUBY_RELEASE_MAJOR ) || MRUBY_RELEASE_MAJOR == 1 && MRUBY_RELEASE_MINOR < 2
-#ifndef MRB_ARGS_REQ
-#define MRB_ARGS_REQ(n)     ARGS_REQ(n)
-#define MRB_ARGS_OPT(n)     ARGS_OPT(n)
-#define MRB_ARGS_ARG(n1,n2) ARGS_ARG(n1,n2)
-#define MRB_ARGS_REST()     ARGS_REST()
-#define MRB_ARGS_POST(n)    ARGS_POST(n)
-#define MRB_ARGS_KEY(n1,n2) ARGS_KEY(n1,n2)
-#define MRB_ARGS_BLOCK()    ARGS_BLOCK()
-#define MRB_ARGS_ANY()      ARGS_ANY()
-#define MRB_ARGS_NONE()     ARGS_NONE()
-#endif /* MRB_ARGS_REQ */
-#endif
+#if  ! defined( MRUBY_RELEASE_MAJOR )
+#define mrb_float_value( mrb, val )  mrb_float_value( val )
+#endif
+#else
+#else /* TECSGEN */
 /*
  * fake tecsgen because tecsgen cannot accept actual mruby.h in case of below.
+ * fake definition because tecsgen cannot accept actual mruby.h in case of below.
  *   types:   long long, long long int
  *   special keyword __attribute__(x), __extension__
 …
 typedef int mrb_irep;
 typedef int mrb_context;
 struct  RClass {int dummy;};
 struct  RProc  {int dummy;};
+struct  RClass {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
+struct  RProc  {uint32_t gcnext;};  // actual definition: struct RBasic *gcnext
 typedef int CELLCB;
+#define GET_SET_BOOL( Type, type )
+#define GET_SET_CHAR( Type, type )
+#define GET_SET_INT( Type, type )
+#define GET_SET_FLOAT( Type, type )
+#define POINTER_CLASS( Type, type )
+#define CHECK_AND_GET_POINTER( Type, type )
 #endif /* TECSGEN */

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/rpc/TDR.cdl

-              r337
+              r374
         ER      sendSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
         ER      receiveSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
-                                                 /* b_client: クライアント側なら true, サーバー側なら false */
-        /* マジックコードの送受信 */
-        //      ER      sendSHSOP( [in]bool_t b_client );     /* StartOfPacket magic を送信 */
-        //      ER      receiveSHSOP( [in]bool_t b_client );  /* StartOfPacket magic を受信 */
                                                  /* b_client: クライアント側なら true, サーバー側なら false */
 …
 };
 // Straight Order TECS Data Representation (Straight means no endian-conversion is done)
+// Straight Byte Order TECS Data Representation (Data are always sent in native endian)
 celltype tTDR {
         call    sChannel        cChannel;

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/rpc/sChannel.cdl

-              r337
+              r374
 };
+/*
+ * size に uint16_t ではなく int16_t を用いるのは、下位層が ER_INT を返す場合を想定したもの．
+ *
+ * sChannel は TECS RPC の TDR の下位層である通信チャンネルとのインタフェースである．
+ * 通信チャンネルは、高水準 I/O のように、バッファリングされることを想定する．
+ * TDR からは、int8_t, int16_t, int32_t, int64_t, (int128_t), float32_t, double64_t bool_t, char_t のような基本型(無符号を含む)が渡される。
+ * 配列や構造体の場合であっても要素ごとに渡される。
+ */

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecs/rpc/tTDR_inline.h

-              r337
+              r374
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         syslog( LOG_INFO, "TDR: resetting channel" );
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
 #endif
     if( b_client )
+  if( b_client )
                 p_sopMagic = &SOP_MAGIC2;
         else
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
         ER              ercd = E_OK;
         CELLCB  *p_cellcb;
+        uint8_t val;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+        uint8_t val = 0;
+        if (VALID_IDX(idx)) {
+                p_cellcb = GET_CELLCB(idx);
+        }
+        else {
+                return(E_ID);
+        } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
         } /* end if VALID_IDX(idx) */
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */
 …
                 return(E_ID);
+        }
+  (void)p_cellcb;   // to avoid unused warning
         /* ここに処理本体を記述します #_TEFB_# */

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecsgen.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2017 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  Authors list is in i-ro-ha order.
 #Version::   see version.rb
 $Copyright = "Copyright(c) 2008-2017, TOPPERS project. All rights reserved."
+$Copyright = "Copyright(c) 2008-2019, TOPPERS project. All rights reserved."
 $License   = "TOPPERS License"
 …
     analyze_option addtional_option_parser
     load_modules
+    setup
+    if ! $TECSFLOW then
+      setup
+    end
     dbgPrint  "tecspath: #{$tecsgen_base_path}, __FILE__=#{__FILE__}\n"
 …
     ARGV.each { |a| $arguments += " " + a }
+    $unopt     = false     # bool:   disable optimizing
+    $unopt     = false     # bool:   disable optimizing both call and entry port
+    $unopt_entry= false    # bool:   disable optimizing entry port
     $gen_base  = "gen"     # string: folder path to place generated files
     $gen       = $gen_base # string: folder path to place generated files
 …
         $unopt = true
+      }
+      parser.on('--unoptimize-entry', 'unoptimize entry port') {
+        $unopt_entry = true
+      }
       parser.on('-c', '--cpp=cpp_cmd', 'C pre-processor command used import_C (default: gcc -E -DTECSGEN), you can also specify by environment variable TECS_CPP' ){
         |arg|
 …
+    }
     if ARGV.empty? && ! $print_version && ! $unit_test
+    if ARGV.empty? && ! $print_version && ! $unit_test && ! $TECSFLOW
       ARGV.options{|parser|
         puts parser.help
 …
     # このファイルを誤って読み込むと、異なるバージョン名を表示してしまう
     require_tecsgen_lib 'tecslib/version.rb'
     if $tecscde_version then
       STDERR << "tecscde version #{$tecscde_version} (tecsgen version #{$version})  #{$Copyright}\n"
+    if $title then
+      STDERR << "#{$title} version #{$tool_version} (tecsgen version #{$version})  #{$Copyright}\n"
     elsif ! $no_banner || $print_version
       STDERR << "tecsgen  version #{$version}  #{$Copyright}\n"
 …
       STDERR << "ruby #{RUBY_VERSION} (#{RUBY_RELEASE_DATE} patchlevel #{RUBY_PATCHLEVEL}) [#{RUBY_PLATFORM}]\n"
     end
     if $print_version && ARGV.empty?
+    if $print_version && ARGV.empty? && ! $TECSFLOW
       exit
     end
 …
     require_tecsgen_lib 'tecslib/core/tool_info.rb'
     require_tecsgen_lib 'tecslib/core/tecsinfo.rb'
+    require_tecsgen_lib 'tecslib/core/unjoin_plugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CelltypePlugin.rb'
     require_tecsgen_lib 'tecslib/plugin/CompositePlugin.rb'
 …
 #  クラス変数のリセットを確実に行う必要がある
 if $TECSCDE != true then
+if $TECSCDE != true && $TECSFLOW != true then
   begin
     TECSGEN.init
 …
     tecsgen.run1
     tecsgen.run2
+    tecsgen.dump_tecsgen_rbdmp
   rescue => evar
     print_exception( evar )

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecsgen_rcov.rb

-              r337
+              r374
 # Usage: tecsgen_rcov.rb [options] CDL-file.cdl
+#
+$:.unshift(File.dirname(__FILE__))
 require 'simplecov'
 SimpleCov.command_name "tecsgen#{$$}"
+SimpleCov.command_name "tecsgen#{Time.now.to_f}"
 SimpleCov.root File.dirname( File.expand_path __FILE__ )
 SimpleCov.at_exit do

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.tab.rb

-              r337
+              r374
+#
 # DO NOT MODIFY!!!!
 # This file is automatically generated by Racc 1.4.14
+# This file is automatically generated by Racc 1.4.9
 # from Racc grammer file "".
+#
 …
 class C_parser < Racc::Parser
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 727)
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+          locale = @@current_locale[@@generator_nest]
+module_eval(<<'...end C_parser.y.rb/module_eval...', 'C_parser.y.rb', 784)
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+                ensure
+                        @@generator_nest -= 1
+                        TECS_LANG::reset_kcode
+                end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
 #print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
         end
       end
       if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
         locale = @@current_locale[@@generator_nest]
         if token then
           print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
         else
           print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
         end
       end
     end
     token
   end
   def on_error(t, v, vstack)
     if v == "$" then
      Generator.error( "B1003 Unexpected EOF"  )
     else
      Generator.error( "B1004 syntax error near \'$1\'" , v.val )
     end
   end
   def self.current_locale
     @@current_locale[ @@generator_nest ]
   end
   @@n_error = 0
   @@n_warning = 0
   @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
   def self.error( msg )
     @@n_error += 1
     locale = @@current_locale[ @@generator_nest ]
     if locale then
       Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
     else
       Console.puts "error: #{msg}"
     end
   end
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
   def self.warning( msg )
     @@n_warning += 1
     locale = @@current_locale[ @@generator_nest ]
     Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
   end
   # このメソッドは構文解析、意味解析からのみ呼出し可
   def self.info( msg )
     @@n_info += 1
     locale = @@current_locale[ @@generator_nest ]
     Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
   end
   def self.get_n_error
     @@n_error
   end
   def self.get_n_warning
     @@n_warning
   end
   def self.get_nest
     @@generator_nest
   end
   def set_no_type_name b_no_type_name
     locale = @@current_locale[ @@generator_nest ]
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "#{locale[0]}:#{locale[1]}: error: #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
 #print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
     @b_no_type_name = b_no_type_name
   end
+                @b_no_type_name = b_no_type_name
+        end
 ...end C_parser.y.rb/module_eval...
 …
 clist = [
+'106,107,108,109,110,112,70,113,68,181,302,143,55,118,119,208,117,120',
+'121,122,123,124,125,106,107,108,109,110,112,337,113,209,336,210,143',
+'76,118,119,170,117,120,121,122,123,124,125,305,69,301,67,350,28,29,106',
+'107,108,109,110,112,75,113,28,29,162,143,77,118,119,170,117,120,121',
+'122,123,124,125,169,79,205,206,353,306,307,308,309,310,311,312,313,314',
+'315,264,55,144,8,9,10,11,15,16,17,18,19,20,21,174,267,23,25,27,28,29',
+'197,198,375,263,144,106,107,108,109,110,112,346,113,342,197,198,143',
+'173,118,119,153,117,120,121,122,123,124,125,106,107,108,109,110,112',
+'144,113,357,341,3,143,274,118,119,253,117,120,121,122,123,124,125,106',
+'107,108,109,110,112,54,113,199,200,361,143,53,118,119,98,117,120,121',
+'122,123,124,125,106,107,108,109,110,112,345,113,363,83,364,143,82,118',
+'119,346,117,120,121,122,123,124,125,81,144,249,83,274,253,82,253,53',
+'106,107,108,109,110,112,337,113,55,336,365,236,366,118,119,144,117,120',
+'121,122,123,124,125,54,249,367,194,253,97,53,53,195,196,81,199,200,55',
+'55,144,230,89,8,9,10,11,15,16,17,18,19,20,21,79,372,23,25,27,28,29,199',
+'200,144,231,88,232,233,234,235,87,237,238,240,241,242,243,194,377,194',
+'199,200,195,196,195,196,378,39,40,41,42,43,44,45,46,144,106,107,108',
+'109,110,112,379,113,205,206,380,143,381,118,119,382,117,120,121,122',
+'123,124,125,106,107,108,109,110,112,384,113,197,198,385,143,386,118',
+'119,65,117,120,121,122,123,124,125,106,107,108,109,110,112,62,113,391',
+'37,392,143,393,118,119,394,117,120,121,122,123,124,125,106,107,108,109',
+'110,112,61,113,211,212,396,143,398,118,119,280,117,120,121,122,123,124',
+'125,47,144,279,36,277,8,9,10,11,15,16,17,18,19,20,21,271,37,23,25,27',
+'28,29,270,144,38,8,9,10,11,15,16,17,18,19,20,21,199,200,23,25,27,28',
+'29,269,97,256,144,255,39,40,41,42,43,44,45,46,36,247,8,9,10,11,15,16',
+'17,18,19,20,21,144,246,23,25,27,28,29,245,32,38,106,107,108,109,110',
+'112,216,113,215,210,209,143,208,118,119,207,117,120,121,122,123,124',
+'125,39,40,41,42,43,44,45,46,303,106,107,108,109,110,112,316,113,317',
+'319,320,236,321,118,119,323,117,120,121,122,123,124,125,54,54,54,324',
+'54,325,53,53,53,326,53,329,176,55,55,55,230,55,8,9,10,11,15,16,17,18',
+'19,20,21,79,175,23,25,27,28,29,77,97,144,231,171,232,233,234,235,163',
+'237,238,240,241,242,243,183,348,184,349,185,186,187,207,,,39,40,41,42',
+'43,44,45,46,144,106,107,108,109,110,112,,113,,,,143,,118,119,,117,120',
+'121,122,123,124,125,,,106,107,108,109,110,112,,113,,,,236,,118,119,',
+'117,120,121,122,123,124,125,54,54,54,,54,,53,53,53,,53,,,55,55,55,230',
+'55,8,9,10,11,15,16,17,18,19,20,21,79,,23,25,27,28,29,,,,231,,232,233',
+'234,235,144,237,238,240,241,242,243,201,202,203,204,201,202,203,204',
+',,39,40,41,42,43,44,45,46,144,106,107,108,109,110,112,,113,,,,236,,118',
+'119,,117,120,121,122,123,124,125,54,201,202,203,204,,53,,,,,,,55,,,230',
+',8,9,10,11,15,16,17,18,19,20,21,79,,23,25,27,28,29,,,,231,,232,233,234',
+'235,,237,238,240,241,242,243,,,,,,,,,,,39,40,41,42,43,44,45,46,144,106',
+'107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124,125',
+'106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124',
+'125,106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123',
+'124,125,106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122',
+'123,124,125,,144,,,,,,,,106,107,108,109,110,112,,113,,,,143,,118,119',
+'144,117,120,121,122,123,124,125,106,107,108,109,110,112,,113,,368,,143',
+',118,119,144,117,120,121,122,123,124,125,,,,,,,,106,107,108,109,110',
+'112,,113,144,,,236,,118,119,,117,120,121,122,123,124,125,,,,,,,,,,,',
+',,,,,230,144,8,9,10,11,15,16,17,18,19,20,21,79,,23,25,27,28,29,,,,231',
+'144,232,233,234,235,,237,238,240,241,242,243,,,,,,,,,,,39,40,41,42,43',
+'44,45,46,144,106,107,108,109,110,112,,113,,,,236,,118,119,,117,120,121',
+'122,123,124,125,,,,,,,,,,,,,,,,,230,,8,9,10,11,15,16,17,18,19,20,21',
+'79,,23,25,27,28,29,,,,231,,232,233,234,235,,237,238,240,241,242,243',
+',,,,,,,,,,39,40,41,42,43,44,45,46,144,106,107,108,109,110,112,,113,',
+',,236,,118,119,,117,120,121,122,123,124,125,,,,,,,,,,,,,,,,,230,,8,9',
+'10,11,15,16,17,18,19,20,21,79,,23,25,27,28,29,,,,231,,232,233,234,235',
+',237,238,240,241,242,243,,,,,,,,,,,39,40,41,42,43,44,45,46,144,106,107',
+'108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124,125,106',
+'107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124,125',
+'106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124',
+'125,106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123',
+'124,125,,144,,,,,141,,,,,,,142,106,107,108,109,110,112,,113,,147,144',
+'143,,118,119,,117,120,121,122,123,124,125,106,107,108,109,110,112,,113',
+',,144,143,,118,119,,117,120,121,122,123,124,125,106,107,108,109,110',
+'112,,113,,,144,143,,118,119,,117,120,121,122,123,124,125,106,107,108',
+'109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124,125,,144,',
+',,,,,,106,107,108,109,110,112,,113,,,,143,,118,119,144,117,120,121,122',
+'123,124,125,106,107,108,109,110,112,,113,,,,143,,118,119,144,117,120',
+'121,122,123,124,125,106,107,108,109,110,112,,113,,,,143,,118,119,144',
+'117,120,121,122,123,124,125,106,107,108,109,110,112,,113,,,,143,,118',
+'119,,117,120,121,122,123,124,125,,144,,,,,141,351,,,,,,142,106,107,108',
+'109,110,112,,113,,,144,143,,118,119,,117,120,121,122,123,124,125,106',
+'107,108,109,110,112,,113,,,144,143,,118,119,,117,120,121,122,123,124',
+'125,106,107,108,109,110,112,,113,,,144,143,,118,119,,117,120,121,122',
+'123,124,125,106,107,108,109,110,112,,113,,,,143,,118,119,,117,120,121',
+'122,123,124,125,,144,,,,,,,,106,107,108,109,110,112,,113,,,,143,,118',
+'119,144,117,120,121,122,123,124,125,106,107,108,109,110,112,,113,,,',
+'143,,118,119,144,117,120,121,122,123,124,125,106,107,108,109,110,112',
+',113,,,,143,,118,119,144,117,120,121,122,123,124,125,,,,,,,,,,106,107',
+'108,109,110,112,,113,,,,236,,118,119,144,117,120,121,122,123,124,125',
+',,,,,,,,,,,,,,,144,230,,8,9,10,11,15,16,17,18,19,20,21,79,239,23,25',
+'27,28,29,,,144,231,,232,233,234,235,,237,238,240,241,242,243,,,,,,,',
+',,,39,40,41,42,43,44,45,46,144,106,107,108,109,110,112,,113,,338,,143',
+',118,119,,117,120,121,122,123,124,125,106,107,108,109,110,112,,113,',
+',,143,,118,119,,117,120,121,122,123,124,125,8,9,10,11,15,16,17,18,19',
+'20,21,,,23,25,27,28,29,8,9,10,11,15,16,17,18,19,20,21,,,23,25,27,28',
+'29,,106,107,108,109,110,112,,113,,,144,143,,118,119,,117,120,121,122',
+'123,124,125,106,107,108,109,110,112,,113,,,144,143,,118,119,,117,120',
+'121,122,123,124,125,106,107,108,109,110,112,,113,,,,143,,118,119,,117',
+'120,121,122,123,124,125,106,107,108,109,110,189,,113,,,,143,,118,119',
+',117,120,121,122,123,124,125,,144,,,,,,,,106,107,108,109,110,191,,113',
+',,,143,,118,119,144,117,120,121,122,123,124,125,106,107,108,109,110',
+'191,,113,,,,143,,118,119,144,117,120,121,122,123,124,125,106,107,108',
+'109,110,112,,113,,,,143,,118,119,144,117,120,121,122,123,124,125,106',
+'107,108,109,110,112,,113,,,,143,,118,119,,117,120,121,122,123,124,125',
+',144,,,,,141,,,,,,,142,,,328,,106,107,108,109,110,112,144,113,,,,143',
+',118,119,,117,120,121,122,123,124,125,,,,,,,144,,,,,,,,,,,106,107,108',
+'109,110,112,,113,,,,236,144,118,119,,117,120,121,122,123,124,125,,,',
+',,,,,,,,,,,,,230,,8,9,10,11,15,16,17,18,19,20,21,79,144,23,25,27,28',
+'29,,,,231,,232,233,234,235,,237,238,240,241,242,243,,,,,,,274,334,,253',
+'39,40,41,42,43,44,45,46,144,55,,,,,249,334,,253,,,53,,,,,,,55,,,,,8',
+'9,10,11,15,16,17,18,19,20,21,,,23,25,27,28,29,8,9,10,11,15,16,17,18',
+'19,20,21,,,23,25,27,28,29,370,,,,,,,,39,40,41,42,43,44,45,46,,,149,',
+',,,,,,39,40,41,42,43,44,45,46,,8,9,10,11,15,16,17,18,19,20,21,,,23,25',
+'27,28,29,8,9,10,11,15,16,17,18,19,20,21,,,23,25,27,28,29,,,,330,,,,',
+'39,40,41,42,43,44,45,46,,,,,,,,,,,39,40,41,42,43,44,45,46,8,9,10,11',
+'15,16,17,18,19,20,21,,,23,25,27,28,29,8,9,10,11,15,16,17,18,19,20,21',
+',,23,25,27,28,29,,,,,,,,,39,40,41,42,43,44,45,46,,,,,,,,,,,39,40,41',
+'42,43,44,45,46,8,9,10,11,15,16,17,18,19,20,21,,340,23,25,27,28,29,8',
+'9,10,11,15,16,17,18,19,20,21,,164,23,25,27,28,29,,,,,,,,,39,40,41,42',
+'43,44,45,46,,,,,,,,,,,39,40,41,42,43,44,45,46,8,9,10,11,15,16,17,18',
+'19,20,21,,,23,25,27,28,29,8,9,10,11,15,16,17,18,19,20,21,,,23,25,27',
+'28,29,,,,,,,,,39,40,41,42,43,44,45,46,,,,,,,,,,,39,40,41,42,43,44,45',
+'46,8,9,10,11,15,16,17,18,19,20,21,,,23,25,27,28,29,8,9,10,11,15,16,17',
+'18,19,20,21,,257,23,25,27,28,29,,,,,,,,,39,40,41,42,43,44,45,46,,,,',
+',,,,,,39,40,41,42,43,44,45,46,8,9,10,11,15,16,17,18,19,20,21,,,23,25',
+'27,28,29,8,9,10,11,15,16,17,18,19,20,21,,262,23,25,27,28,29,,,,,,,,',
+'39,40,41,42,43,44,45,46,,,,,,,,,,,39,40,41,42,43,44,45,46,8,9,10,11',
+'15,16,17,18,19,20,21,,,23,25,27,28,29,8,9,10,11,15,16,17,18,19,20,21',
+',,23,25,27,28,29,,,,,,,,,39,40,41,42,43,44,45,46,,,,,,,,,,,39,40,41',
+'42,43,44,45,46,8,9,10,11,15,16,17,18,19,20,21,,,23,25,27,28,29' ]
+        racc_action_table = arr = ::Array.new(2875, nil)
+'111,112,113,114,115,117,294,118,56,298,55,163,54,123,124,82,54,262,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,217,118,271,391,101',
+'163,91,123,124,82,271,271,122,125,126,127,128,129,130,56,70,171,72,82',
+'69,397,71,80,32,33,34,224,309,271,223,216,226,84,227,228,229,84,392',
+'101,325,272,171,298,312,80,164,165,172,393,173,174,175,176,177,178,179',
+'180,149,181,101,218,79,308,369,388,32,33,34,265,266,164,165,172,73,173',
+'174,175,176,177,178,179,180,149,181,111,112,113,114,115,117,384,118',
+'32,33,34,163,78,123,124,82,440,402,122,125,126,127,128,129,130,55,219',
+'271,271,383,101,54,332,248,325,387,55,298,249,250,56,382,54,111,112',
+'113,114,115,117,56,118,56,171,331,163,395,123,124,82,276,210,122,125',
+'126,127,128,129,130,420,55,378,210,248,377,396,54,330,249,250,393,92',
+'164,165,172,56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,355,356',
+'213,164,165,172,204,173,174,175,176,177,178,179,180,149,181,111,112',
+'113,114,115,117,404,118,93,378,203,163,377,123,124,82,193,271,122,125',
+'126,127,128,129,130,111,112,113,114,115,117,290,118,101,86,55,163,85',
+'123,124,82,54,291,122,125,126,127,128,129,130,56,357,171,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,248,86,322,438,85,249,250,171',
+'434,435,370,164,165,172,271,173,174,175,176,177,178,179,180,149,181',
+'259,260,261,321,255,256,257,258,315,316,262,164,165,172,271,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,403,118,317',
+'318,263,163,264,123,124,82,320,271,122,125,126,127,128,129,130,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,437,111,112,113,114,115',
+'117,360,118,400,171,271,163,368,123,124,82,166,103,122,125,126,127,128',
+'129,130,102,55,255,256,257,258,310,54,255,256,257,258,405,164,165,172',
+'56,173,174,175,176,177,178,179,180,149,181,171,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,259,260,301,164,165',
+'172,300,173,174,175,176,177,178,179,180,149,181,111,112,113,114,115',
+'117,408,118,253,254,292,163,409,123,124,82,253,254,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,410,118,253,254,55,163,289,123,124,82',
+'54,288,122,125,126,127,128,129,130,56,415,171,13,14,15,16,17,18,19,20',
+'21,22,26,28,30,31,32,33,34,253,254,253,254,251,252,261,171,211,212,285',
+'164,165,172,284,173,174,175,176,177,178,179,180,149,181,237,238,239',
+'240,241,242,243,244,245,246,247,164,165,172,283,173,174,175,176,177',
+'178,179,180,149,181,111,112,113,114,115,117,282,118,251,252,389,163',
+'389,123,124,82,251,252,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,101,118,67,82,55,163,64,123,124,82,54,63,122,125,126,127,128,129',
+'130,56,55,171,55,55,294,280,54,298,54,54,54,279,430,431,432,56,433,56',
+'56,56,365,436,278,263,275,264,171,273,270,48,164,165,172,444,173,174',
+'175,176,177,178,179,180,149,181,269,3,,,,,,,,,,164,165,172,,173,174',
+'175,176,177,178,179,180,149,181,111,112,113,114,115,117,,118,,,,163',
+',123,124,82,,,122,125,126,127,128,129,130,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,171,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,,122,125,126,127,128,129,130,,,,164,165',
+'172,,173,174,175,176,177,178,179,180,149,181,,,,,,,111,112,113,114,115',
+'117,,118,,411,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,,171,,,,,,,,,,,,,149,,111,112,113,114,115,117,,118,,,171',
+'148,,123,124,,,,122,125,126,127,128,129,130,,149,,,,,,,,111,112,113',
+'114,115,117,,118,,,,148,,123,124,146,398,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,111,112,113,114,115,117,,118,,149,,148,,123,124,389,,,122',
+'125,126,127,128,129,130,,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,379,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,,,,,',
+',149,,,,,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126',
+'127,128,129,130,,149,,,,,,,,,,,,,,,,,,,,,,,,,149,171,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,111,112,113',
+'114,115,117,,118,,,,148,,123,124,149,,,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,146,,,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127',
+'128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,,,148',
+'149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114',
+'115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129',
+'130,111,112,113,114,115,117,427,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,,,147,,,111,112,113,114,115,117,,118,,185',
+',148,149,123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112',
+'113,114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128',
+'129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149',
+'122,125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123',
+'124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,,118,',
+',,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113',
+'114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124,,,149,122',
+'125,126,127,128,129,130,111,112,113,114,115,117,,118,,,,148,,123,124',
+',,149,122,125,126,127,128,129,130,,111,112,113,114,115,117,,118,,,,148',
+',123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115,117,',
+'118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114',
+'115,117,,118,,,,148,,123,124,146,,149,122,125,126,127,128,129,130,,111',
+'112,113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129',
+'130,,,,,,,,,,,,,,,,,,149,,,,,,,,,,147,,,111,112,113,114,115,117,,118',
+',,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113,114,115',
+'117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,,,,,,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115',
+'117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,111,112',
+'113,114,115,231,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,233,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,111,112,113,114,115,233,,118,,,,148,,123,124,,,149,122,125,126',
+'127,128,129,130,,,,,,,,,,,,,111,112,113,114,115,117,149,118,,,,148,',
+'123,124,,,,122,125,126,127,128,129,130,111,112,113,114,115,117,149,118',
+',,,148,,123,124,,,,122,125,126,127,128,129,130,,,,,,,149,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114,115,117,,118',
+',,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112,113,114,115',
+'117,327,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,,,,,,',
+',13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,,,111,112,113,114',
+'115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130,111,112',
+'113,114,115,117,,118,,,,148,,123,124,,,149,122,125,126,127,128,129,130',
+'111,112,113,114,115,117,,118,,,,148,,123,124,,,,122,125,126,127,128',
+'129,130,,111,112,113,114,115,117,429,118,,,,148,,123,124,,,149,122,125',
+'126,127,128,129,130,,287,,,,111,112,113,114,115,117,,118,,,,148,149',
+'123,124,146,442,,122,125,126,127,128,129,130,111,112,113,114,115,117',
+',118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,,111,112,113',
+'114,115,117,,118,,,,148,149,123,124,,,,122,125,126,127,128,129,130,',
+',147,,,,,,,,,,,,,,46,149,,,,,,,,,,,,,,,,,,,,,,,,,149,,,46,,,,,,,,,,',
+',,,,,,,,,,,,149,45,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30',
+'31,32,33,34,35,36,37,38,,,47,45,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,,41,47,294,375,,298,,,54,,,,,,,',
+',56,,,,,,,,,,325,375,,298,,,,,,,,,,,,56,,,,,,,,9,10,11,12,13,14,15,16',
+'17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14',
+'15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,188,,,,,192',
+',,,,,,,,,,,,,,,,,,,413,,,,,,,,,,,,,,,,,,,,,,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,371,9,10,11,12',
+'13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,,,,,',
+'205,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28',
+'30,31,32,33,34,35,36,37,38,307,,,,,,,,,,,,,,,,,,,,,,,,,381,,,,,,,,,',
+',,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36',
+'37,38,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34',
+'35,36,37,38,302,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31',
+'32,33,34,35,36,37,38,,,,,,,,,,,,9,10,11,12,13,14,15,16,17,18,19,20,21',
+'22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17,18,19',
+'20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15,16,17',
+'18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13,14,15',
+'16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11,12,13',
+'14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9,10,11',
+'12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37,38,9',
+'10,11,12,13,14,15,16,17,18,19,20,21,22,26,28,30,31,32,33,34,35,36,37',
+'38' ]
+        racc_action_table = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'210,210,210,210,210,210,26,210,24,114,213,210,55,210,210,297,210,210',
+'210,210,210,210,210,211,211,211,211,211,211,332,211,298,332,299,211',
+'48,211,211,95,211,211,211,211,211,211,211,217,26,213,24,300,55,55,189',
+'189,189,189,189,189,48,189,114,114,90,189,50,189,189,172,189,189,189',
+'189,189,189,189,95,50,132,132,303,217,217,217,217,217,217,217,217,217',
+'217,166,85,210,189,189,189,189,189,189,189,189,189,189,189,101,172,189',
+'189,189,189,189,287,287,347,166,211,394,394,394,394,394,394,347,394',
+'259,288,288,394,101,394,394,84,394,394,394,394,394,394,394,181,181,181',
+'181,181,181,189,181,318,259,1,181,273,181,181,273,181,181,181,181,181',
+'181,181,194,194,194,194,194,194,51,194,289,289,322,194,51,194,194,70',
+'194,194,194,194,194,194,194,195,195,195,195,195,195,275,195,324,52,327',
+'195,52,195,195,275,195,195,195,195,195,195,195,51,394,248,80,180,248',
+'80,180,248,392,392,392,392,392,392,252,392,180,252,330,392,333,392,392',
+'181,392,392,392,392,392,392,392,342,152,335,286,152,69,342,152,286,286',
+'248,290,290,342,152,194,392,66,392,392,392,392,392,392,392,392,392,392',
+'392,392,339,392,392,392,392,392,291,291,195,392,64,392,392,392,392,63',
+'392,392,392,392,392,392,285,354,128,292,292,285,285,128,128,355,392',
+'392,392,392,392,392,392,392,392,381,381,381,381,381,381,356,381,295',
+'295,357,381,358,381,381,359,381,381,381,381,381,381,381,380,380,380',
+'380,380,380,365,380,129,129,369,380,371,380,380,22,380,380,380,380,380',
+'380,380,196,196,196,196,196,196,14,196,382,32,387,196,389,196,196,390',
+'196,196,196,196,196,196,196,197,197,197,197,197,197,12,197,137,137,393',
+'197,397,197,197,185,197,197,197,197,197,197,197,3,381,184,32,182,32',
+'32,32,32,32,32,32,32,32,32,32,178,2,32,32,32,32,32,177,380,32,72,72',
+'72,72,72,72,72,72,72,72,72,130,130,72,72,72,72,72,175,170,157,196,156',
+'32,32,32,32,32,32,32,32,2,150,2,2,2,2,2,2,2,2,2,2,2,197,148,2,2,2,2',
+'2,146,2,2,198,198,198,198,198,198,144,198,142,136,135,198,134,198,198',
+'133,198,198,198,198,198,198,198,2,2,2,2,2,2,2,2,215,379,379,379,379',
+'379,379,231,379,232,234,235,379,236,379,379,238,379,379,379,379,379',
+'379,379,160,94,54,240,264,241,160,94,54,242,264,244,111,160,94,54,379',
+'264,379,379,379,379,379,379,379,379,379,379,379,379,105,379,379,379',
+'379,379,104,98,198,379,97,379,379,379,379,91,379,379,379,379,379,379',
+'115,278,115,281,115,115,115,296,,,379,379,379,379,379,379,379,379,379',
+'171,171,171,171,171,171,,171,,,,171,,171,171,,171,171,171,171,171,171',
+'171,,,378,378,378,378,378,378,,378,,,,378,,378,378,,378,378,378,378',
+'378,378,378,76,4,74,,174,,76,4,74,,174,,,76,4,74,378,174,378,378,378',
+'378,378,378,378,378,378,378,378,378,,378,378,378,378,378,,,,378,,378',
+'378,378,378,171,378,378,378,378,378,378,294,294,294,294,131,131,131',
+'131,,,378,378,378,378,378,378,378,378,378,361,361,361,361,361,361,,361',
+',,,361,,361,361,,361,361,361,361,361,361,361,218,293,293,293,293,,218',
+',,,,,,218,,,361,,361,361,361,361,361,361,361,361,361,361,361,361,,361',
+'361,361,361,361,,,,361,,361,361,361,361,,361,361,361,361,361,361,,,',
+',,,,,,,361,361,361,361,361,361,361,361,361,199,199,199,199,199,199,',
+'199,,,,199,,199,199,,199,199,199,199,199,199,199,350,350,350,350,350',
+'350,,350,,,,350,,350,350,,350,350,350,350,350,350,350,346,346,346,346',
+'346,346,,346,,,,346,,346,346,,346,346,346,346,346,346,346,191,191,191',
+'191,191,191,,191,,,,191,,191,191,,191,191,191,191,191,191,191,,199,',
+',,,,,,200,200,200,200,200,200,,200,,,,200,,200,200,350,200,200,200,200',
+'200,200,200,336,336,336,336,336,336,,336,,336,,336,,336,336,346,336',
+'336,336,336,336,336,336,,,,,,,,323,323,323,323,323,323,,323,191,,,323',
+',323,323,,323,323,323,323,323,323,323,,,,,,,,,,,,,,,,,323,200,323,323',
+'323,323,323,323,323,323,323,323,323,323,,323,323,323,323,323,,,,323',
+'336,323,323,323,323,,323,323,323,323,323,323,,,,,,,,,,,323,323,323,323',
+'323,323,323,323,323,321,321,321,321,321,321,,321,,,,321,,321,321,,321',
+'321,321,321,321,321,321,,,,,,,,,,,,,,,,,321,,321,321,321,321,321,321',
+'321,321,321,321,321,321,,321,321,321,321,321,,,,321,,321,321,321,321',
+',321,321,321,321,321,321,,,,,,,,,,,321,321,321,321,321,321,321,321,321',
+'398,398,398,398,398,398,,398,,,,398,,398,398,,398,398,398,398,398,398',
+'398,,,,,,,,,,,,,,,,,398,,398,398,398,398,398,398,398,398,398,398,398',
+'398,,398,398,398,398,398,,,,398,,398,398,398,398,,398,398,398,398,398',
+'398,,,,,,,,,,,398,398,398,398,398,398,398,398,398,320,320,320,320,320',
+'320,,320,,,,320,,320,320,,320,320,320,320,320,320,320,319,319,319,319',
+'319,319,,319,,,,319,,319,319,,319,319,319,319,319,319,319,77,77,77,77',
+'77,77,,77,,,,77,,77,77,,77,77,77,77,77,77,77,317,317,317,317,317,317',
+',317,,,,317,,317,317,,317,317,317,317,317,317,317,,320,,,,,77,,,,,,',
+'77,82,82,82,82,82,82,,82,,82,319,82,,82,82,,82,82,82,82,82,82,82,183',
+'183,183,183,183,183,,183,,,77,183,,183,183,,183,183,183,183,183,183',
+'183,316,316,316,316,316,316,,316,,,317,316,,316,316,,316,316,316,316',
+'316,316,316,304,304,304,304,304,304,,304,,,,304,,304,304,,304,304,304',
+'304,304,304,304,,82,,,,,,,,201,201,201,201,201,201,,201,,,,201,,201',
+'201,183,201,201,201,201,201,201,201,202,202,202,202,202,202,,202,,,',
+'202,,202,202,316,202,202,202,202,202,202,202,302,302,302,302,302,302',
+',302,,,,302,,302,302,304,302,302,302,302,302,302,302,277,277,277,277',
+'277,277,,277,,,,277,,277,277,,277,277,277,277,277,277,277,,201,,,,,302',
+'302,,,,,,302,203,203,203,203,203,203,,203,,,202,203,,203,203,,203,203',
+'203,203,203,203,203,209,209,209,209,209,209,,209,,,302,209,,209,209',
+',209,209,209,209,209,209,209,212,212,212,212,212,212,,212,,,277,212',
+',212,212,,212,212,212,212,212,212,212,204,204,204,204,204,204,,204,',
+',,204,,204,204,,204,204,204,204,204,204,204,,203,,,,,,,,271,271,271',
+'271,271,271,,271,,,,271,,271,271,209,271,271,271,271,271,271,271,205',
+'205,205,205,205,205,,205,,,,205,,205,205,212,205,205,205,205,205,205',
+'205,206,206,206,206,206,206,,206,,,,206,,206,206,204,206,206,206,206',
+'206,206,206,,,,,,,,,,145,145,145,145,145,145,,145,,,,145,,145,145,271',
+'145,145,145,145,145,145,145,,,,,,,,,,,,,,,,205,145,,145,145,145,145',
+'145,145,145,145,145,145,145,145,145,145,145,145,145,145,,,206,145,,145',
+'145,145,145,,145,145,145,145,145,145,,,,,,,,,,,145,145,145,145,145,145',
+'145,145,145,253,253,253,253,253,253,,253,,253,,253,,253,253,,253,253',
+'253,253,253,253,253,112,112,112,112,112,112,,112,,,,112,,112,112,,112',
+'112,112,112,112,112,112,38,38,38,38,38,38,38,38,38,38,38,,,38,38,38',
+'38,38,112,112,112,112,112,112,112,112,112,112,112,,,112,112,112,112',
+'112,,207,207,207,207,207,207,,207,,,253,207,,207,207,,207,207,207,207',
+'207,207,207,208,208,208,208,208,208,,208,,,112,208,,208,208,,208,208',
+'208,208,208,208,208,116,116,116,116,116,116,,116,,,,116,,116,116,,116',
+'116,116,116,116,116,116,117,117,117,117,117,117,,117,,,,117,,117,117',
+',117,117,117,117,117,117,117,,207,,,,,,,,118,118,118,118,118,118,,118',
+',,,118,,118,118,208,118,118,118,118,118,118,118,119,119,119,119,119',
+'119,,119,,,,119,,119,119,116,119,119,119,119,119,119,119,141,141,141',
+'141,141,141,,141,,,,141,,141,141,117,141,141,141,141,141,141,141,243',
+'243,243,243,243,243,,243,,,,243,,243,243,,243,243,243,243,243,243,243',
+',118,,,,,141,,,,,,,141,,,243,,237,237,237,237,237,237,119,237,,,,237',
+',237,237,,237,237,237,237,237,237,237,,,,,,,141,,,,,,,,,,,233,233,233',
+'233,233,233,,233,,,,233,243,233,233,,233,233,233,233,233,233,233,,,',
+',,,,,,,,,,,,,233,,233,233,233,233,233,233,233,233,233,233,233,233,237',
+'233,233,233,233,233,,,,233,,233,233,233,233,,233,233,233,233,233,233',
+',,,,,,274,274,,274,233,233,233,233,233,233,233,233,233,274,,,,,249,249',
+',249,,,249,,,,,,,249,,,,,274,274,274,274,274,274,274,274,274,274,274',
+',,274,274,274,274,274,249,249,249,249,249,249,249,249,249,249,249,,',
+'249,249,249,249,249,337,,,,,,,,274,274,274,274,274,274,274,274,,,83',
+',,,,,,,249,249,249,249,249,249,249,249,,337,337,337,337,337,337,337',
+'337,337,337,337,,,337,337,337,337,337,83,83,83,83,83,83,83,83,83,83',
+'83,,,83,83,83,83,83,,,,247,,,,,337,337,337,337,337,337,337,337,,,,,',
+',,,,,83,83,83,83,83,83,83,83,247,247,247,247,247,247,247,247,247,247',
+'247,,,247,247,247,247,247,5,5,5,5,5,5,5,5,5,5,5,,,5,5,5,5,5,,,,,,,,',
+'247,247,247,247,247,247,247,247,,,,,,,,,,,5,5,5,5,5,5,5,5,254,254,254',
+'254,254,254,254,254,254,254,254,,254,254,254,254,254,254,92,92,92,92',
+'92,92,92,92,92,92,92,,92,92,92,92,92,92,,,,,,,,,254,254,254,254,254',
+'254,254,254,,,,,,,,,,,92,92,92,92,92,92,92,92,155,155,155,155,155,155',
+'155,155,155,155,155,,,155,155,155,155,155,89,89,89,89,89,89,89,89,89',
+'89,89,,,89,89,89,89,89,,,,,,,,,155,155,155,155,155,155,155,155,,,,,',
+',,,,,89,89,89,89,89,89,89,89,88,88,88,88,88,88,88,88,88,88,88,,,88,88',
+'88,88,88,158,158,158,158,158,158,158,158,158,158,158,,158,158,158,158',
+'158,158,,,,,,,,,88,88,88,88,88,88,88,88,,,,,,,,,,,158,158,158,158,158',
+'158,158,158,67,67,67,67,67,67,67,67,67,67,67,,,67,67,67,67,67,161,161',
+'161,161,161,161,161,161,161,161,161,,161,161,161,161,161,161,,,,,,,',
+',67,67,67,67,67,67,67,67,,,,,,,,,,,161,161,161,161,161,161,161,161,7',
+'7,7,7,7,7,7,7,7,7,7,,,7,7,7,7,7,6,6,6,6,6,6,6,6,6,6,6,,,6,6,6,6,6,,',
+',,,,,,7,7,7,7,7,7,7,7,,,,,,,,,,,6,6,6,6,6,6,6,6,73,73,73,73,73,73,73',
+'73,73,73,73,,,73,73,73,73,73' ]
+        racc_action_check = arr = ::Array.new(2875, nil)
+'440,440,440,440,440,440,293,440,56,293,52,440,293,440,440,440,52,139',
+'440,440,440,440,440,440,440,438,438,438,438,438,438,106,438,354,326',
+'103,438,65,438,438,438,151,326,438,438,438,438,438,438,438,88,29,440',
+'31,51,29,354,31,109,56,56,56,120,207,286,120,106,120,293,120,120,120',
+'52,328,212,324,151,438,324,212,51,440,440,440,328,440,440,440,440,440',
+'440,440,440,440,440,318,110,49,207,286,318,88,88,88,142,142,438,438',
+'438,31,438,438,438,438,438,438,438,438,438,438,436,436,436,436,436,436',
+'304,436,120,120,120,436,49,436,436,436,428,362,436,436,436,436,436,436',
+'436,98,116,428,362,304,316,98,227,340,222,316,309,222,340,340,98,304',
+'309,167,167,167,167,167,167,222,167,309,436,226,167,333,167,167,167',
+'167,98,167,167,167,167,167,167,167,394,4,297,309,339,297,334,4,225,339',
+'339,394,66,436,436,436,4,436,436,436,436,436,436,436,436,436,436,167',
+'167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167,167',
+'167,167,167,167,167,167,167,167,267,267,101,167,167,167,95,167,167,167',
+'167,167,167,167,167,167,167,429,429,429,429,429,429,364,429,68,373,94',
+'429,373,429,429,429,87,364,429,429,429,429,429,429,429,427,427,427,427',
+'427,427,187,427,71,83,217,427,83,427,427,427,217,187,427,427,427,427',
+'427,427,427,217,269,429,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75',
+'75,75,133,53,221,426,53,133,133,427,418,418,291,429,429,429,426,429',
+'429,429,429,429,429,429,429,429,429,137,137,350,220,136,136,136,136',
+'214,214,351,427,427,427,220,427,427,427,427,427,427,427,427,427,427',
+'175,175,175,175,175,175,363,175,215,215,352,175,353,175,175,175,218',
+'363,175,175,175,175,175,175,175,76,76,76,76,76,76,76,76,76,76,76,76',
+'76,76,76,76,76,425,82,82,82,82,82,82,274,82,357,175,425,82,283,82,82',
+'82,82,73,82,82,82,82,82,82,82,72,201,347,347,347,347,209,201,348,348',
+'348,348,365,175,175,175,201,175,175,175,175,175,175,175,175,175,175',
+'82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82,82',
+'82,82,82,349,349,198,82,82,82,197,82,82,82,82,82,82,82,82,82,82,273',
+'273,273,273,273,273,371,273,135,135,189,273,374,273,273,273,346,346',
+'273,273,273,273,273,273,273,404,404,404,404,404,404,376,404,345,345',
+'79,404,186,404,404,404,79,184,404,404,404,404,404,404,404,79,380,273',
+'47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,47,344,344,343,343,342',
+'342,138,404,99,99,179,273,273,273,178,273,273,273,273,273,273,273,273',
+'273,273,131,131,131,131,131,131,131,131,131,131,131,404,404,404,177',
+'404,404,404,404,404,404,404,404,404,404,402,402,402,402,402,402,176',
+'402,341,341,395,402,396,402,402,402,134,134,402,402,402,402,402,402',
+'402,275,275,275,275,275,275,102,275,27,403,77,275,25,275,275,275,77',
+'23,275,275,275,275,275,275,275,77,55,402,152,384,191,174,55,191,152',
+'384,191,173,408,412,414,55,416,152,384,191,281,422,172,140,165,141,275',
+'163,149,3,402,402,402,437,402,402,402,402,402,402,402,402,402,402,147',
+'1,,,,,,,,,,275,275,275,,275,275,275,275,275,275,275,275,275,275,360',
+'360,360,360,360,360,,360,,,,360,,360,360,360,,,360,360,360,360,360,360',
+'360,249,249,249,249,249,249,,249,,,,249,,249,249,,,,249,249,249,249',
+'249,249,249,,,360,383,383,383,383,383,383,,383,,,,383,,383,383,,,,383',
+'383,383,383,383,383,383,,,,360,360,360,,360,360,360,360,360,360,360',
+'360,360,360,,,,,,,377,377,377,377,377,377,,377,,377,,377,,377,377,,',
+'249,377,377,377,377,377,377,377,,,,367,367,367,367,367,367,,367,,,,367',
+',367,367,,,383,367,367,367,367,367,367,367,366,366,366,366,366,366,',
+'366,,,,366,,366,366,,,,366,366,366,366,366,366,366,,,367,,,,,,,,,,,',
+',377,,393,393,393,393,393,393,,393,,,366,393,,393,393,,,,393,393,393',
+'393,393,393,393,,367,,,,,,,,356,356,356,356,356,356,,356,,,,356,,356',
+'356,356,356,366,356,356,356,356,356,356,356,330,330,330,330,330,330',
+',330,,,,330,,330,330,,,,330,330,330,330,330,330,330,322,322,322,322',
+'322,322,,322,,393,,322,,322,322,322,,,322,322,322,322,322,322,322,,',
+',356,,,310,310,310,310,310,310,,310,,,,310,356,310,310,,,,310,310,310',
+'310,310,310,310,298,298,298,298,298,298,,298,,298,,298,330,298,298,',
+',,298,298,298,298,298,298,298,,,,,,,,,,,,,322,,,,,282,282,282,282,282',
+'282,,282,,,,282,,282,282,,,,282,282,282,282,282,282,282,,310,,,,,,,',
+',,,,,,,,,,,,,,,,,298,282,282,282,282,282,282,282,282,282,282,282,282',
+'282,282,282,282,282,282,282,282,282,282,282,282,282,282,280,280,280',
+'280,280,280,,280,,,,280,,280,280,282,,,280,280,280,280,280,280,280,146',
+'146,146,146,146,146,,146,,,,146,,146,146,146,,,146,146,146,146,146,146',
+'146,278,278,278,278,278,278,,278,,,,278,,278,278,,,,278,278,278,278',
+'278,278,278,,397,397,397,397,397,397,,397,,,,397,,397,397,,,280,397',
+'397,397,397,397,397,397,,,146,,,405,405,405,405,405,405,,405,,,,405',
+'146,405,405,,,,405,405,405,405,405,405,405,271,271,271,271,271,271,',
+'271,,,,271,278,271,271,,,,271,271,271,271,271,271,271,,266,266,266,266',
+'266,266,,266,,,,266,397,266,266,,,,266,266,266,266,266,266,266,80,80',
+'80,80,80,80,,80,,,,80,,80,80,80,,405,80,80,80,80,80,80,80,406,406,406',
+'406,406,406,406,406,,,,406,,406,406,,,271,406,406,406,406,406,406,406',
+',265,265,265,265,265,265,,265,,,,265,,265,265,,,266,265,265,265,265',
+'265,265,265,,,80,,,85,85,85,85,85,85,,85,,85,,85,80,85,85,,,,85,85,85',
+'85,85,85,85,264,264,264,264,264,264,,264,,,,264,406,264,264,,,,264,264',
+'264,264,264,264,264,,263,263,263,263,263,263,,263,,,,263,265,263,263',
+',,,263,263,263,263,263,263,263,262,262,262,262,262,262,,262,,,,262,',
+'262,262,,,85,262,262,262,262,262,262,262,261,261,261,261,261,261,,261',
+',,,261,,261,261,,,264,261,261,261,261,261,261,261,,260,260,260,260,260',
+'260,,260,,,,260,,260,260,,,263,260,260,260,260,260,260,260,259,259,259',
+'259,259,259,,259,,,,259,,259,259,,,262,259,259,259,259,259,259,259,258',
+'258,258,258,258,258,,258,,,,258,,258,258,,,261,258,258,258,258,258,258',
+'258,,257,257,257,257,257,257,,257,,,,257,,257,257,,,260,257,257,257',
+'257,257,257,257,256,256,256,256,256,256,,256,,,,256,,256,256,,,259,256',
+'256,256,256,256,256,256,255,255,255,255,255,255,,255,,,,255,,255,255',
+',,258,255,255,255,255,255,255,255,,254,254,254,254,254,254,,254,,,,254',
+',254,254,,,257,254,254,254,254,254,254,254,253,253,253,253,253,253,',
+'253,,,,253,,253,253,,,256,253,253,253,253,253,253,253,252,252,252,252',
+'252,252,,252,,,,252,,252,252,,,255,252,252,252,252,252,252,252,,251',
+'251,251,251,251,251,,251,,,,251,,251,251,,,254,251,251,251,251,251,251',
+'251,250,250,250,250,250,250,,250,,,,250,,250,250,,,253,250,250,250,250',
+'250,250,250,389,389,389,389,389,389,,389,,,,389,,389,389,389,,252,389',
+'389,389,389,389,389,389,,248,248,248,248,248,248,,248,,,,248,,248,248',
+',,251,248,248,248,248,248,248,248,,,,,,,,,,,,,,,,,,250,,,,,,,,,,389',
+',,117,117,117,117,117,117,,117,,,,117,389,117,117,,,,117,117,117,117',
+'117,117,117,,236,236,236,236,236,236,,236,,,,236,248,236,236,,,,236',
+'236,236,236,236,236,236,,,,,,,117,117,117,117,117,117,117,117,117,117',
+'117,117,117,117,117,117,117,,,121,121,121,121,121,121,,121,,,,121,,121',
+'121,,,117,121,121,121,121,121,121,121,,122,122,122,122,122,122,,122',
+',,,122,,122,122,,,236,122,122,122,122,122,122,122,123,123,123,123,123',
+'123,,123,,,,123,,123,123,,,,123,123,123,123,123,123,123,124,124,124',
+'124,124,124,,124,,,,124,,124,124,,,121,124,124,124,124,124,124,124,',
+',,,,,,,,,,,233,233,233,233,233,233,122,233,,,,233,,233,233,,,,233,233',
+'233,233,233,233,233,223,223,223,223,223,223,123,223,,,,223,,223,223',
+',,,223,223,223,223,223,223,223,,,,,,,124,233,233,233,233,233,233,233',
+'233,233,233,233,233,233,233,233,233,233,,,231,231,231,231,231,231,,231',
+',,,231,,231,231,,,233,231,231,231,231,231,231,231,224,224,224,224,224',
+'224,224,224,,,,224,,224,224,,,223,224,224,224,224,224,224,224,,,,,,',
+',231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231,231',
+',,213,213,213,213,213,213,,213,,,,213,,213,213,,,231,213,213,213,213',
+'213,213,213,210,210,210,210,210,210,,210,,,,210,,210,210,,,224,210,210',
+'210,210,210,210,210,180,180,180,180,180,180,,180,,,,180,,180,180,,,',
+'180,180,180,180,180,180,180,,407,407,407,407,407,407,407,407,,,,407',
+',407,407,,,213,407,407,407,407,407,407,407,,180,,,,435,435,435,435,435',
+'435,,435,,,,435,210,435,435,435,435,,435,435,435,435,435,435,435,164',
+'164,164,164,164,164,,164,,,,164,180,164,164,,,,164,164,164,164,164,164',
+'164,,279,279,279,279,279,279,,279,,,,279,407,279,279,,,,279,279,279',
+'279,279,279,279,,,435,,,,,,,,,,,,,,41,435,,,,,,,,,,,,,,,,,,,,,,,,,164',
+',,2,,,,,,,,,,,,,,,,,,,,,,,279,41,41,41,41,41,41,41,41,41,41,41,41,41',
+'41,41,41,41,41,41,41,41,41,41,41,41,41,,,41,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,2,2,2,2,2,2,,2,2,294,294,,294,,,294,,,,,,,,,294,,,,',
+',,,,,325,325,,325,,,,,,,,,,,,325,,,,,,,,294,294,294,294,294,294,294',
+'294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294,294',
+'294,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325,325',
+'325,325,325,325,325,325,325,325,325,86,,,,,86,,,,,,,,,,,,,,,,,,,,378',
+',,,,,,,,,,,,,,,,,,,,,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86,86',
+'86,86,86,86,86,86,86,86,86,378,378,378,378,378,378,378,378,378,378,378',
+'378,378,378,378,378,378,378,378,378,378,378,378,378,378,292,7,7,7,7',
+'7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,,,,,,96,,,,,,,,,,,,292,292',
+'292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292,292',
+'292,292,292,292,292,292,96,96,96,96,96,96,96,96,96,96,96,96,96,96,96',
+'96,96,96,96,96,96,96,96,96,96,202,,,,,,,,,,,,,,,,,,,,,,,,,299,,,,,,',
+',,,,,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202',
+'202,202,202,202,202,202,202,202,202,299,299,299,299,299,299,299,299',
+'299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299,299',
+'199,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92,92',
+'92,92,92,,,,,,,,,,,,199,199,199,199,199,199,199,199,199,199,199,199',
+'199,199,199,199,199,199,199,199,199,199,199,199,199,8,8,8,8,8,8,8,8',
+'8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,196,196,196,196,196,196,196,196,196',
+'196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,6,6',
+'6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,5,5,5,5,5,5,5,5,5,5,5',
+'5,5,5,5,5,5,5,5,5,5,5,5,5,5,93,93,93,93,93,93,93,93,93,93,93,93,93,93',
+'93,93,93,93,93,93,93,93,93,93,93,69,69,69,69,69,69,69,69,69,69,69,69',
+'69,69,69,69,69,69,69,69,69,69,69,69,69' ]
+        racc_action_check = arr = ::Array.new(3198, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
+   nil,   150,   420,   404,   652,  2412,  2762,  2744,   nil,   nil,
+   nil,   nil,   346,   nil,   323,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   337,   nil,    -5,   nil,    -7,   nil,   nil,   nil,
+   nil,   nil,   366,   nil,   nil,   nil,   nil,   nil,  1848,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    18,   nil,
+,   162,   188,   nil,   534,    -8,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   232,   227,   nil,   204,  2674,   nil,   233,
+,   nil,   387,  2814,   653,   nil,   651,  1303,   nil,   nil,
+,   nil,  1363,  2342,   124,    72,   nil,   nil,  2604,  2552,
+,   543,  2482,   nil,   533,    21,   nil,   537,   563,   nil,
+   nil,    88,   nil,   nil,   533,   474,   nil,   nil,   nil,   nil,
+   nil,   542,  1866,   nil,     2,   581,  1972,  1995,  2027,  2050,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   275,   322,
+,   685,    45,   480,   461,   458,   456,   351,   nil,   nil,
+   nil,  2073,   485,   nil,   477,  1749,   470,   nil,   467,   nil,
+,   nil,   235,   nil,   nil,  2534,   411,   409,  2622,   nil,
+,  2692,   nil,   nil,   nil,   nil,    74,   nil,   nil,   nil,
+,   608,    51,   nil,   655,   435,   nil,   419,   412,   nil,
+,   138,   401,  1386,   393,   383,   nil,   nil,   nil,    51,
+   nil,   890,   nil,   nil,   161,   184,   356,   379,   482,   821,
+,  1464,  1487,  1570,  1639,  1694,  1717,  1926,  1949,  1593,
+    -2,    21,  1616,    -7,   nil,   506,   nil,     4,   745,   nil,
+   nil,   732,  2528,   716,   182,  3068,  3043,  2752,  2993,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   515,   517,  2177,   518,   519,   488,  2137,   491,   nil,
+,   503,   507,  2096,   509,   nil,   nil,  2394,   204,  2271,
+   nil,   nil,   217,  1843,  2464,   nil,   nil,   nil,   nil,   108,
+   nil,   nil,   nil,   nil,   536,   nil,   nil,   nil,   nil,   nil,
+   nil,  1671,   nil,   145,  2253,   184,   nil,  1533,   581,   nil,
+   nil,   586,   nil,   nil,   nil,   273,   224,    91,   105,   144,
+,   250,   269,   724,   681,   287,   579,   -20,    -5,    -4,
+,   nil,  1510,    72,  1432,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,  1409,  1326,    82,  1280,
+,  1069,   133,   975,   153,   nil,   nil,   155,   nil,   nil,
+,   nil,    22,   222,   nil,   235,   945,  2324,   nil,   260,
+   nil,   nil,   234,   nil,   nil,   nil,   867,   106,   nil,   nil,
+,   nil,   nil,   nil,   253,   294,   310,   315,   283,   319,
+   nil,   727,   nil,   nil,   nil,   329,   nil,   nil,   nil,   334,
+   nil,   339,   nil,   nil,   nil,   nil,   nil,   nil,   633,   514,
+,   310,   296,   nil,   nil,   nil,   nil,   303,   nil,   362,
+,   nil,   216,   350,   115,   nil,   nil,   385,  1163,   nil ]
+   nil,   nil,   nil,   624,   nil,   619,   nil,   656,   nil,    38,
+   nil,    40,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,  2499,   nil,   nil,   nil,   nil,   nil,   510,   nil,    78,
+   nil,    37,     3,   322,   nil,   680,   -14,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    20,   183,   nil,   249,  3118,
+   nil,   278,   429,   421,   nil,   252,   344,   664,   nil,   544,
+,   nil,   419,   285,   nil,  1473,  2701,   266,    28,   nil,
+   nil,   nil,  2932,  3093,   214,   193,  2819,   nil,   138,   576,
+   nil,   200,   654,    22,   nil,   nil,    12,   nil,   nil,    15,
+,   nil,   nil,   nil,   nil,   nil,   137,  1959,   nil,   nil,
+,  2035,  2061,  2086,  2111,   nil,   nil,   nil,   nil,   nil,
+   nil,   568,   nil,   306,   629,   495,   326,   318,   571,   -20,
+,   673,    64,   nil,   nil,   nil,  1235,   724,   nil,   702,
+   nil,    22,   682,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   672,  2431,   669,   nil,   161,   nil,   nil,
+   nil,   nil,   702,   691,   685,   376,   635,   612,   546,   542,
+,   nil,   nil,   nil,   547,   nil,   545,   281,   nil,   507,
+   nil,   684,   nil,   nil,   nil,   nil,  3018,   451,   447,  2968,
+   nil,   440,  2881,   nil,   nil,   nil,   nil,    44,   nil,   410,
+,   nil,    61,  2300,   343,   368,   nil,   286,   381,   nil,
+,   322,   147,  2173,  2249,   189,   160,   139,   nil,   nil,
+   nil,  2224,   nil,  2148,   nil,   nil,  1985,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1904,   779,
+,  1828,  1802,  1777,  1752,  1726,  1701,  1676,  1650,  1625,
+,  1574,  1549,  1524,  1498,  1443,  1367,   223,   nil,   300,
+   nil,  1341,   nil,   514,   385,   659,   nil,   nil,  1260,  2457,
+,   619,  1132,   379,   nil,   nil,    45,   nil,   nil,   nil,
+   nil,   325,  2794,    -1,  2604,   nil,   nil,   183,  1090,  2906,
+   nil,   nil,   nil,   nil,   107,   nil,   nil,   nil,   nil,   149,
+,   nil,   nil,   nil,   nil,   nil,   137,   nil,    82,   nil,
+   nil,   nil,  1034,   nil,    68,  2629,    23,   nil,    65,   nil,
+,   nil,   nil,   167,   186,   nil,   nil,   nil,   nil,   170,
+,   621,   567,   559,   557,   520,   503,   417,   423,   464,
+,   326,   350,   351,    14,   nil,   984,   421,   nil,   nil,
+,   nil,   129,   376,   256,   451,   908,   883,   nil,   nil,
+   nil,   510,   nil,   260,   520,   nil,   539,   855,  2726,   nil,
+,   nil,   nil,   807,   683,   nil,   nil,   nil,   nil,  1878,
+   nil,   nil,   nil,   950,   180,   629,   631,  1286,   nil,   nil,
+   nil,   nil,   634,   653,   539,  1316,  1417,  2376,   687,   nil,
+   nil,   nil,   689,   nil,   693,   nil,   649,   nil,   318,   nil,
+   nil,   nil,   622,   nil,   nil,   412,   323,   281,   128,   256,
+   nil,   nil,   nil,   nil,   nil,  2406,   118,   666,    23,   nil,
+    -2,   nil,   nil,   nil,   nil,   nil,   nil ]
 racc_action_default = [
+  -176,  -243,    -1,  -243,  -243,   -70,   -71,   -72,   -80,   -81,
+   -82,   -83,   -84,   -85,   -86,   -87,   -88,   -89,   -90,   -91,
+   -92,   -93,   -96,   -99,  -243,  -116,  -243,  -129,  -134,  -135,
+  -177,  -178,  -243,  -180,  -181,  -184,  -185,  -186,  -243,  -232,
+  -233,  -234,  -235,  -236,  -237,  -238,  -239,   400,  -243,   -76,
+   -78,  -243,  -137,  -139,  -243,  -145,   -73,   -84,   -86,   -74,
+   -75,  -183,  -182,   -98,  -243,  -102,  -115,  -243,  -119,  -243,
+  -128,  -179,  -106,  -108,  -243,   -69,  -243,  -243,  -190,  -191,
+  -136,  -138,  -243,  -243,  -243,  -146,  -147,   -94,  -243,  -243,
+   -84,   -85,  -243,  -117,  -243,  -243,  -130,  -132,  -243,  -107,
+  -109,  -243,  -188,   -77,   -78,    -2,    -3,    -4,    -5,    -6,
+    -7,    -8,  -243,   -10,   -12,   -23,  -243,  -243,  -243,  -243,
+   -29,   -30,   -31,   -32,   -33,   -34,   -35,   -37,   -41,   -44,
+   -47,   -52,   -55,   -57,   -59,   -61,   -63,   -65,   -68,   -79,
+  -170,  -243,  -243,  -240,  -243,  -243,  -243,  -142,  -243,  -144,
+  -149,  -151,  -155,  -140,  -148,  -243,   -84,   -85,  -243,  -100,
+  -243,  -243,  -122,  -121,  -114,  -118,  -243,  -123,  -125,  -126,
+  -243,  -243,  -243,  -187,  -243,  -243,   -11,  -243,  -243,   -67,
+  -156,   -20,  -243,  -243,  -243,  -243,   -18,   -19,   -24,  -243,
+   -25,  -243,   -27,   -28,  -243,  -243,  -243,  -243,  -243,  -243,
+  -243,  -243,  -243,  -243,  -243,  -243,  -243,  -243,  -243,  -243,
+  -243,  -243,  -243,  -243,  -174,  -243,  -241,   -35,  -243,  -192,
+  -193,  -194,  -195,  -196,  -197,  -198,  -199,  -200,  -201,  -202,
+  -203,  -243,  -243,  -243,  -243,  -243,  -240,  -243,  -243,  -213,
+  -243,  -243,  -243,  -243,  -243,  -141,  -143,  -243,  -158,  -243,
+  -153,  -154,  -159,  -243,  -243,  -105,  -104,   -97,  -101,  -243,
+  -110,  -112,  -113,  -120,  -243,  -131,  -133,  -127,  -189,  -242,
+    -9,  -243,  -157,  -158,  -243,  -243,   -21,   -20,  -243,   -16,
+   -17,  -243,   -38,   -39,   -40,   -42,   -43,   -45,   -46,   -48,
+   -49,   -50,   -51,   -53,   -54,   -56,   -58,   -60,   -62,   -64,
+  -243,  -171,  -243,  -243,  -243,  -221,  -222,  -223,  -224,  -225,
+  -226,  -227,  -228,  -229,  -230,  -231,  -243,  -243,  -243,  -243,
+  -243,  -243,  -243,  -243,  -243,  -215,  -216,  -243,  -218,  -219,
+  -243,  -152,  -160,  -243,  -166,  -243,  -243,  -243,  -162,  -243,
+   -95,  -103,  -243,  -124,   -36,   -13,  -243,  -243,   -15,   -26,
+  -243,  -172,  -175,  -173,  -243,  -243,  -243,  -243,  -243,  -243,
+  -210,  -243,  -212,  -214,  -217,  -243,  -161,  -167,  -164,  -243,
+  -168,  -243,  -163,  -111,   -22,   -14,   -66,  -220,  -243,  -243,
+  -243,  -243,  -243,  -211,  -150,  -165,  -169,  -204,  -206,  -243,
+  -243,  -209,  -243,  -243,  -243,  -205,  -207,  -243,  -243,  -208 ]
+  -215,  -269,    -1,  -269,  -269,   -86,   -88,   -90,   -92,   -98,
+   -99,  -100,  -101,  -102,  -103,  -104,  -105,  -106,  -107,  -108,
+  -109,  -110,  -111,  -112,  -113,  -114,  -115,  -118,  -121,  -269,
+  -139,  -269,  -163,  -164,  -165,  -166,  -167,  -168,  -169,  -216,
+  -217,  -269,  -219,  -220,  -223,  -224,  -225,  -269,   447,  -269,
+   -94,   -96,  -269,  -171,  -173,  -269,  -180,   -87,  -112,  -114,
+   -89,   -91,   -93,  -222,  -221,  -120,  -269,  -124,  -138,  -269,
+  -142,  -269,  -155,  -158,  -218,  -130,  -132,  -269,   -85,  -269,
+  -269,  -229,  -269,  -170,  -172,  -269,  -269,  -269,  -181,  -182,
+  -184,  -116,  -269,  -269,  -112,  -113,  -269,  -140,  -269,  -269,
+  -159,  -161,  -269,  -269,  -129,  -131,  -269,  -227,   -95,   -96,
+    -2,    -3,    -4,    -5,    -6,    -7,    -8,  -269,   -10,   -12,
+   -25,  -269,  -269,  -269,  -269,   -31,   -32,   -33,   -34,   -35,
+   -36,   -37,   -39,   -43,   -46,   -49,   -54,   -57,   -59,   -61,
+   -63,   -65,   -67,   -69,   -97,  -209,  -269,  -269,  -265,  -269,
+   -82,  -269,  -269,  -230,  -231,  -232,  -233,  -234,  -235,  -236,
+  -237,  -238,  -239,  -265,  -269,  -269,  -243,  -269,  -245,  -247,
+  -248,  -249,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -268,   -37,   -84,  -269,  -176,  -269,  -269,  -179,  -186,
+  -188,  -192,  -193,  -174,  -183,  -185,  -269,  -112,  -113,  -269,
+  -122,  -269,  -269,  -145,  -144,  -137,  -141,  -269,  -146,  -148,
+  -269,  -151,  -269,  -269,  -269,  -269,  -226,  -269,  -269,   -11,
+  -269,  -269,  -195,  -269,  -269,  -269,  -269,  -269,   -19,   -20,
+   -26,  -269,   -27,  -269,   -29,   -30,  -269,   -71,   -72,   -73,
+   -74,   -75,   -76,   -77,   -78,   -79,   -80,   -81,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,
+  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -213,  -269,
+  -266,  -269,  -250,  -269,  -269,  -269,  -244,  -246,  -269,  -269,
+  -269,  -269,  -269,  -269,  -261,  -262,  -269,  -263,  -175,  -177,
+  -178,  -269,  -269,  -197,  -269,  -190,  -191,  -198,  -269,  -269,
+  -128,  -127,  -119,  -123,  -269,  -133,  -135,  -136,  -143,  -269,
+  -269,  -149,  -153,  -160,  -162,  -152,  -269,  -156,  -269,  -228,
+  -267,    -9,  -269,  -196,  -197,  -269,  -269,   -14,  -269,   -23,
+  -269,   -17,   -18,  -269,  -269,   -70,   -40,   -41,   -42,   -44,
+   -45,   -47,   -48,   -50,   -51,   -52,   -53,   -55,   -56,   -58,
+   -60,   -62,   -64,   -66,  -269,  -210,  -269,  -269,   -83,  -240,
+  -269,  -242,  -269,  -269,  -269,  -269,  -269,  -269,  -260,  -264,
+  -194,  -269,  -189,  -199,  -269,  -205,  -269,  -269,  -269,  -201,
+  -269,  -117,  -125,  -269,  -269,  -147,  -150,  -154,  -157,  -269,
+   -38,   -13,   -15,  -269,  -269,   -28,  -269,  -269,  -211,  -214,
+  -212,  -241,  -269,  -269,  -269,  -269,  -269,  -269,  -269,  -200,
+  -206,  -203,  -269,  -207,  -269,  -202,  -269,  -134,  -269,   -24,
+   -16,   -68,  -251,  -253,  -254,  -269,  -269,  -269,  -269,  -269,
+  -187,  -204,  -208,  -126,   -21,  -269,  -269,  -269,  -269,  -256,
+  -269,  -258,   -22,  -252,  -255,  -257,  -259 ]
 racc_goto_table = [
+,     4,   177,   146,    56,    59,    60,   190,   192,   193,
+,    86,   139,   138,   260,    80,   167,   188,   138,   158,
+,   258,   178,    35,    31,   165,   332,    73,    12,    74,
+,     4,   287,   288,    91,   217,    95,   293,   294,   251,
+,   154,   219,     2,    85,   295,    92,   285,   286,   296,
+,   332,   297,    35,    71,   157,    91,   298,    12,    91,
+,    73,    73,    99,   100,   172,    94,   272,   161,   299,
+,   276,   104,   278,   103,    63,   214,   138,   155,   177,
+,   177,   152,   259,    72,    72,   254,   160,    94,    66,
+,    94,   266,    90,   165,   282,   283,   284,   166,   281,
+,    73,   300,   182,   331,   213,    30,   138,   248,   289,
+,   291,   292,   101,   156,    90,   347,   258,    90,    78,
+,     1,   157,   217,    72,   157,   nil,   nil,    91,   nil,
+,   nil,   nil,   327,   nil,   nil,   273,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   250,   nil,
+   nil,   nil,   nil,   nil,   160,   nil,   261,   160,   322,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,   276,   nil,   nil,
+,   nil,   344,   138,   339,   nil,   nil,   nil,    73,   nil,
+   nil,   156,   nil,   nil,   156,   nil,   343,    90,   nil,   138,
+   nil,   nil,   nil,   nil,   354,   nil,   373,   nil,   nil,   nil,
+   nil,    72,   nil,   nil,   nil,   248,   355,   356,   nil,   358,
+,   217,    80,   217,   104,   nil,   nil,   nil,   360,   nil,
+,   157,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,   374,   352,   138,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   152,   nil,   152,   nil,
+   nil,   217,   nil,   160,   nil,   nil,   nil,   369,   383,   nil,
+,   nil,   nil,   nil,   371,   nil,   nil,   nil,   217,   217,
+,   390,   138,   152,   nil,   387,   388,   nil,   nil,   nil,
+,   nil,   217,   nil,   397,   nil,   376,   nil,   217,   395,
+   nil,   nil,   nil,   nil,   nil,   399,   nil,   nil,   nil,   nil,
+,   144,   145,    81,   183,   182,   184,   281,   186,    23,
+,    95,   208,    83,   206,   305,   303,   313,   328,   169,
+,     4,   199,   230,    57,    60,    61,    62,    75,    89,
+,    99,   168,   221,   198,    95,   296,    77,    95,   220,
+,   182,   232,   234,   235,    65,    96,   207,    23,    76,
+,   366,   343,   344,   345,   346,    75,    75,    90,    25,
+,   194,   214,   215,    66,   104,   105,   323,   145,    74,
+,   373,   196,   107,    68,   109,    94,    76,    76,   347,
+,   339,   340,   183,   182,   274,   341,   342,    98,   108,
+,   236,   187,    88,   209,   372,   353,   352,    75,   197,
+,   152,   286,    94,   169,   359,    39,   361,   351,   106,
+,   201,    98,   349,     2,    98,   303,   277,   167,    76,
+,   313,   225,   313,   394,     1,   299,   nil,   nil,   183,
+,   311,   183,   182,   314,   406,   407,   nil,   198,   nil,
+   nil,   198,   nil,   nil,    95,   326,   329,   333,   109,   334,
+,   337,   338,   220,   nil,   220,   nil,   nil,   335,   nil,
+   nil,   nil,   nil,   nil,   293,   nil,   nil,   nil,   182,   182,
+,   182,   182,   182,   182,   182,   182,   182,   182,   182,
+,   182,   182,   182,   182,   182,   152,   295,   354,   nil,
+   nil,   nil,   401,   358,   nil,   324,   nil,   306,   417,   nil,
+,   363,   364,   197,   nil,   nil,   197,   nil,   nil,    94,
+   nil,   nil,    75,   319,    75,   201,   nil,   nil,   201,   367,
+,    98,   nil,   385,   390,   nil,   nil,   nil,   nil,   183,
+,   386,   nil,    76,   422,    76,   424,   nil,   nil,   nil,
+   nil,   198,   182,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   329,   418,    83,   nil,   nil,   nil,   nil,   439,
+   nil,   441,   nil,   nil,   nil,   nil,   nil,   293,   443,   nil,
+,   nil,   446,   nil,   nil,   nil,   nil,   399,   145,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   324,   412,
+,   152,   183,   182,   416,   209,   197,   nil,   nil,   nil,
+   nil,   145,   nil,   nil,   nil,   419,   421,   182,   201,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   425,   426,   428,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   152,   nil,   261 ]
+racc_goto_check = [
+,    27,     6,    25,    27,    27,    27,    10,    10,    10,
+,    55,    33,    24,    45,    56,    51,    12,    24,    39,
+,    42,    13,    26,    64,    49,    61,     9,    34,    44,
+,    27,    15,    15,    35,    10,    53,    17,    17,    60,
+,    55,    70,     2,     9,    18,    48,    14,    14,    19,
+,    61,    20,    26,    64,    35,    35,    21,    34,    35,
+,     9,     9,    44,    44,    53,    27,    60,    48,    22,
+,     6,    32,     6,    31,    38,    33,    24,    40,     6,
+,     6,    27,    43,    30,    30,    39,    27,    27,    47,
+,    27,    25,    34,    49,    12,    12,    12,    50,    13,
+,     9,     6,     9,    59,    62,    63,    24,    55,    16,
+,    16,    16,    67,    34,    34,     8,    42,    34,    68,
+,     1,    35,    10,    30,    35,   nil,   nil,    35,   nil,
+,   nil,   nil,     6,   nil,   nil,    55,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    32,   nil,
+   nil,   nil,   nil,   nil,    27,   nil,    32,    27,    25,   nil,
+,   nil,   nil,   nil,   nil,   nil,   nil,     6,   nil,   nil,
+,   nil,    12,    24,    25,   nil,   nil,   nil,     9,   nil,
+   nil,    34,   nil,   nil,    34,   nil,    51,    34,   nil,    24,
+   nil,   nil,   nil,   nil,     6,   nil,    45,   nil,   nil,   nil,
+   nil,    30,   nil,   nil,   nil,    55,     6,     6,   nil,     6,
+,    10,    56,    10,    32,   nil,   nil,   nil,    70,   nil,
+,    35,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+,   nil,   nil,   nil,   nil,   nil,     6,    33,    24,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    27,   nil,    27,   nil,
+   nil,    10,   nil,    27,   nil,   nil,   nil,    25,    70,   nil,
+,   nil,   nil,   nil,    57,   nil,   nil,   nil,    10,    10,
+,     6,    24,    27,   nil,    70,    70,   nil,   nil,   nil,
+,   nil,    10,   nil,     6,   nil,    24,   nil,    10,    70,
+   nil,   nil,   nil,   nil,   nil,    70,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   423,   399,   145,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
+racc_goto_check = [
+,    37,    12,    72,    26,    13,    28,    73,    60,    38,
+,    39,    55,    59,    53,    49,    46,    57,     8,    29,
+,    30,    43,    15,    30,    30,    30,    30,    33,    58,
+,    56,    84,    10,    39,    39,    65,    48,    39,     6,
+,    13,    13,    13,    13,    42,    52,    54,    38,     9,
+,    75,    18,    18,    18,    18,    33,    33,     9,    40,
+,    58,    56,    56,    45,    48,    48,    65,    12,    68,
+,    66,    44,    36,    51,    36,    38,     9,     9,    19,
+,    16,    16,    26,    13,    28,    17,    17,    30,    35,
+,    27,    61,    62,    36,    64,    24,    23,    33,    38,
+,    30,     6,    38,    29,    73,    67,    73,    22,    71,
+,    30,    30,    20,     2,    30,    46,    84,    83,     9,
+,    57,     9,    57,     8,     1,    43,   nil,   nil,    26,
+,    28,    26,    13,    28,    75,    75,   nil,    39,   nil,
+   nil,    39,   nil,   nil,    39,     6,    12,    10,    36,    10,
+,    15,    15,     6,   nil,     6,   nil,   nil,    12,   nil,
+   nil,   nil,   nil,   nil,    58,   nil,   nil,   nil,    13,    13,
+,    13,    13,    13,    13,    13,    13,    13,    13,    13,
+,    13,    13,    13,    13,    13,    30,    36,     6,   nil,
+   nil,   nil,    73,    12,   nil,    58,   nil,    36,    49,   nil,
+,     6,     6,    38,   nil,   nil,    38,   nil,   nil,    38,
+   nil,   nil,    33,    36,    33,    30,   nil,   nil,    30,    29,
+,    30,   nil,    55,    15,   nil,   nil,   nil,   nil,    26,
+,    28,   nil,     9,    73,     9,    73,   nil,   nil,   nil,
+   nil,    39,    13,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,    12,    11,    59,   nil,   nil,   nil,   nil,    73,
+   nil,    73,   nil,   nil,   nil,   nil,   nil,    58,    73,   nil,
+,   nil,    73,   nil,   nil,   nil,   nil,    37,    12,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,    27,   nil,    32 ]
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    58,    12,
+,    30,    26,    13,    28,    36,    38,   nil,   nil,   nil,
+   nil,    12,   nil,   nil,   nil,    12,    26,    13,    30,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,     6,     6,     6,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    72,    37,    12,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+]
 racc_goto_pointer = [
+   nil,   121,    43,   nil,   nil,   nil,  -110,   nil,  -161,   -11,
+  -110,   nil,   -99,   -90,  -150,  -167,   -92,  -168,  -162,  -159,
+  -157,  -153,  -142,   nil,   -64,   -79,    21,    -1,   nil,   nil,
+,    -2,    -4,   -65,    26,   -33,    28,   nil,    53,   -69,
+    -9,    58,  -137,   -77,    -9,  -146,   nil,    65,   -21,   -67,
+,   -78,   nil,   -33,   -70,   -44,   -36,   -73,   nil,  -143,
+  -113,  -222,   -36,   104,    22,   nil,   nil,    39,    69,    41,
+  -103,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  -177 ]
+   nil,   125,   114,   nil,   nil,   nil,   -78,   nil,  -206,     2,
+   -84,  -136,   -78,   -80,   nil,   -98,  -170,  -167,  -203,  -180,
+  -148,  -152,  -155,  -167,  -169,   nil,   -81,   -40,   -79,   -63,
+,   nil,   nil,   -19,   nil,    10,    -4,   -79,     7,   -58,
+,   nil,    18,   -70,   -19,    37,  -183,  -151,   -10,  -186,
+   nil,    45,   -23,   -82,   -51,   -86,   -40,  -195,   -27,   -39,
+   -78,     6,    37,   nil,  -197,  -155,  -253,   104,    28,   nil,
+   nil,    32,   -48,  -168,   nil,  -231,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,    36,   -50 ]
 racc_goto_default = [
+   nil,   nil,   nil,   114,   105,   111,   244,   115,   nil,     7,
+,   116,   127,   nil,   128,   129,   130,   131,   132,   133,
+,   135,   136,   137,   179,   140,   220,   218,    48,     5,
+,    49,    84,   nil,    57,    13,    58,    22,   nil,   nil,
+   nil,   nil,   159,   nil,   180,   nil,    24,   nil,   nil,    93,
+   nil,   nil,    26,   nil,    96,    51,    52,   335,   150,   151,
+,   252,   nil,   nil,   nil,    33,    34,   nil,   227,   nil,
+   nil,   221,   222,   223,   224,   225,   226,   228,   229,   nil ]
+   nil,   nil,   nil,   119,   110,   116,   151,   120,   nil,     7,
+   nil,   nil,   150,   131,   121,   132,   133,   134,   135,   136,
+,   138,   139,   140,   141,   142,   143,   nil,   nil,    44,
+,    49,     5,     6,     8,    50,    87,   268,    58,    24,
+,    27,   nil,   nil,   nil,   nil,   200,   nil,   222,   nil,
+,   nil,   nil,    97,   nil,   nil,   nil,   100,    52,    53,
+,   nil,   nil,   189,   190,   374,   297,   nil,   nil,    42,
+,   nil,   154,   170,   153,   155,   156,   157,   158,   159,
+,   161,   162,   nil,   nil ]
 racc_reduce_table = [
 , 0, :racc_error,
+, 97, :_reduce_none,
+, 99, :_reduce_2,
+, 99, :_reduce_3,
+, 99, :_reduce_4,
+, 99, :_reduce_5,
+, 99, :_reduce_6,
+, 99, :_reduce_7,
+, 99, :_reduce_8,
+, 99, :_reduce_9,
+, 101, :_reduce_10,
+, 101, :_reduce_11,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_none,
+, 103, :_reduce_15,
+, 103, :_reduce_16,
+, 103, :_reduce_17,
+, 103, :_reduce_18,
+, 103, :_reduce_19,
+, 104, :_reduce_none,
+, 98, :_reduce_none,
+, 100, :_reduce_2,
+, 100, :_reduce_3,
+, 100, :_reduce_4,
+, 100, :_reduce_5,
+, 100, :_reduce_6,
+, 100, :_reduce_7,
+, 100, :_reduce_8,
+, 100, :_reduce_9,
+, 102, :_reduce_10,
+, 102, :_reduce_11,
 , 104, :_reduce_none,
+, 104, :_reduce_13,
 , 104, :_reduce_none,
+, 106, :_reduce_none,
+, 106, :_reduce_24,
+, 106, :_reduce_25,
+, 106, :_reduce_26,
+, 106, :_reduce_27,
+, 106, :_reduce_28,
+, 107, :_reduce_29,
+, 107, :_reduce_30,
+, 107, :_reduce_31,
+, 107, :_reduce_32,
+, 107, :_reduce_33,
+, 107, :_reduce_34,
+, 108, :_reduce_none,
+, 108, :_reduce_36,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 104, :_reduce_17,
+, 104, :_reduce_18,
+, 104, :_reduce_19,
+, 104, :_reduce_20,
+, 104, :_reduce_none,
+, 104, :_reduce_none,
+, 105, :_reduce_none,
+, 105, :_reduce_none,
 , 110, :_reduce_none,
+, 110, :_reduce_38,
+, 110, :_reduce_39,
+, 110, :_reduce_40,
+, 111, :_reduce_none,
+, 111, :_reduce_42,
+, 111, :_reduce_43,
+, 110, :_reduce_26,
+, 110, :_reduce_27,
+, 110, :_reduce_28,
+, 110, :_reduce_29,
+, 110, :_reduce_30,
+, 111, :_reduce_31,
+, 111, :_reduce_32,
+, 111, :_reduce_33,
+, 111, :_reduce_34,
+, 111, :_reduce_35,
+, 111, :_reduce_36,
 , 112, :_reduce_none,
+, 112, :_reduce_45,
+, 112, :_reduce_46,
+, 112, :_reduce_38,
 , 113, :_reduce_none,
+, 113, :_reduce_48,
+, 113, :_reduce_49,
+, 113, :_reduce_50,
+, 113, :_reduce_51,
+, 113, :_reduce_40,
+, 113, :_reduce_41,
+, 113, :_reduce_42,
 , 114, :_reduce_none,
 , 114, :_reduce_53,
 , 114, :_reduce_54,
+, 114, :_reduce_44,
+, 114, :_reduce_45,
 , 115, :_reduce_none,
+, 115, :_reduce_56,
+, 115, :_reduce_47,
+, 115, :_reduce_48,
 , 116, :_reduce_none,
+, 116, :_reduce_58,
+, 116, :_reduce_50,
+, 116, :_reduce_51,
+, 116, :_reduce_52,
+, 116, :_reduce_53,
 , 117, :_reduce_none,
+, 117, :_reduce_60,
+, 117, :_reduce_55,
+, 117, :_reduce_56,
 , 118, :_reduce_none,
 , 118, :_reduce_62,
+, 118, :_reduce_58,
 , 119, :_reduce_none,
 , 119, :_reduce_64,
+, 119, :_reduce_60,
 , 120, :_reduce_none,
 , 120, :_reduce_66,
 , 102, :_reduce_67,
 , 121, :_reduce_68,
 , 122, :_reduce_none,
 , 123, :_reduce_70,
+, 120, :_reduce_62,
+, 121, :_reduce_none,
+, 121, :_reduce_64,
+, 122, :_reduce_none,
+, 122, :_reduce_66,
 , 123, :_reduce_none,
+, 123, :_reduce_72,
+, 123, :_reduce_73,
+, 123, :_reduce_74,
+, 123, :_reduce_75,
+, 124, :_reduce_76,
+, 124, :_reduce_77,
+, 123, :_reduce_68,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 124, :_reduce_none,
+, 103, :_reduce_82,
+, 103, :_reduce_83,
+, 125, :_reduce_84,
+, 126, :_reduce_none,
+, 127, :_reduce_86,
+, 127, :_reduce_87,
 , 127, :_reduce_none,
+, 127, :_reduce_79,
+, 126, :_reduce_80,
+, 126, :_reduce_81,
+, 126, :_reduce_82,
+, 126, :_reduce_83,
+, 126, :_reduce_84,
+, 126, :_reduce_85,
+, 126, :_reduce_86,
+, 126, :_reduce_87,
+, 126, :_reduce_88,
+, 126, :_reduce_89,
+, 126, :_reduce_90,
+, 126, :_reduce_91,
+, 126, :_reduce_92,
+, 126, :_reduce_93,
+, 136, :_reduce_94,
+, 130, :_reduce_95,
+, 137, :_reduce_96,
+, 130, :_reduce_97,
+, 130, :_reduce_98,
+, 133, :_reduce_99,
+, 135, :_reduce_none,
+, 135, :_reduce_none,
+, 134, :_reduce_102,
+, 138, :_reduce_103,
+, 138, :_reduce_none,
+, 138, :_reduce_none,
+, 127, :_reduce_89,
+, 127, :_reduce_90,
+, 127, :_reduce_91,
+, 127, :_reduce_none,
+, 127, :_reduce_none,
+, 128, :_reduce_94,
+, 128, :_reduce_95,
+, 132, :_reduce_none,
+, 132, :_reduce_97,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 129, :_reduce_none,
+, 130, :_reduce_102,
+, 130, :_reduce_103,
+, 130, :_reduce_104,
+, 130, :_reduce_105,
+, 130, :_reduce_106,
+, 130, :_reduce_107,
+, 130, :_reduce_108,
+, 130, :_reduce_109,
+, 130, :_reduce_110,
+, 130, :_reduce_111,
+, 130, :_reduce_112,
+, 130, :_reduce_113,
+, 130, :_reduce_114,
+, 130, :_reduce_115,
+, 141, :_reduce_116,
+, 135, :_reduce_117,
+, 142, :_reduce_118,
+, 135, :_reduce_119,
+, 135, :_reduce_120,
+, 138, :_reduce_121,
 , 140, :_reduce_none,
+, 140, :_reduce_107,
+, 140, :_reduce_108,
+, 140, :_reduce_109,
+, 139, :_reduce_110,
+, 139, :_reduce_111,
+, 141, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 142, :_reduce_116,
+, 144, :_reduce_none,
+, 144, :_reduce_none,
+, 143, :_reduce_none,
+, 145, :_reduce_none,
+, 145, :_reduce_none,
+, 145, :_reduce_none,
+, 140, :_reduce_none,
+, 139, :_reduce_124,
+, 143, :_reduce_125,
+, 143, :_reduce_126,
+, 143, :_reduce_none,
+, 143, :_reduce_none,
+, 145, :_reduce_129,
+, 145, :_reduce_none,
+, 145, :_reduce_131,
+, 145, :_reduce_132,
+, 144, :_reduce_133,
+, 144, :_reduce_134,
 , 146, :_reduce_none,
+, 146, :_reduce_none,
+, 147, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 132, :_reduce_none,
+, 148, :_reduce_129,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 136, :_reduce_none,
+, 147, :_reduce_139,
 , 149, :_reduce_none,
 , 149, :_reduce_none,
 , 150, :_reduce_none,
+, 149, :_reduce_none,
+, 148, :_reduce_none,
 , 150, :_reduce_none,
 , 105, :_reduce_134,
 , 105, :_reduce_135,
 , 128, :_reduce_136,
 , 128, :_reduce_none,
 , 128, :_reduce_138,
 , 152, :_reduce_139,
 , 152, :_reduce_140,
 , 152, :_reduce_141,
 , 152, :_reduce_142,
 , 152, :_reduce_143,
 , 152, :_reduce_144,
 , 151, :_reduce_145,
 , 151, :_reduce_146,
 , 151, :_reduce_147,
 , 151, :_reduce_148,
+, 150, :_reduce_none,
+, 150, :_reduce_none,
+, 151, :_reduce_none,
+, 151, :_reduce_none,
+, 152, :_reduce_none,
+, 152, :_reduce_none,
+, 152, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
+, 137, :_reduce_none,
 , 153, :_reduce_none,
 , 153, :_reduce_none,
+, 153, :_reduce_none,
 , 154, :_reduce_none,
 , 154, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 155, :_reduce_none,
+, 109, :_reduce_none,
+, 109, :_reduce_none,
+, 156, :_reduce_none,
+, 156, :_reduce_none,
+, 156, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_166,
+, 157, :_reduce_none,
+, 157, :_reduce_168,
+, 157, :_reduce_none,
+, 129, :_reduce_170,
+, 129, :_reduce_171,
+, 129, :_reduce_172,
+, 129, :_reduce_173,
+, 158, :_reduce_174,
+, 158, :_reduce_175,
+, 98, :_reduce_none,
+, 98, :_reduce_none,
+, 106, :_reduce_163,
+, 106, :_reduce_none,
+, 106, :_reduce_165,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 131, :_reduce_none,
+, 133, :_reduce_170,
+, 133, :_reduce_none,
+, 133, :_reduce_172,
+, 156, :_reduce_173,
+, 156, :_reduce_174,
+, 156, :_reduce_175,
+, 156, :_reduce_176,
+, 156, :_reduce_177,
+, 156, :_reduce_none,
+, 156, :_reduce_179,
+, 155, :_reduce_180,
+, 155, :_reduce_181,
+, 155, :_reduce_182,
+, 155, :_reduce_183,
 , 159, :_reduce_none,
 , 159, :_reduce_none,
+, 157, :_reduce_none,
+, 157, :_reduce_none,
 , 160, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 160, :_reduce_none,
+, 161, :_reduce_187,
+, 163, :_reduce_188,
+, 163, :_reduce_189,
+, 162, :_reduce_none,
+, 165, :_reduce_none,
+, 160, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
+, 161, :_reduce_none,
+, 158, :_reduce_none,
+, 158, :_reduce_none,
+, 107, :_reduce_none,
+, 107, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 162, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_none,
+, 163, :_reduce_205,
+, 163, :_reduce_none,
+, 163, :_reduce_207,
+, 163, :_reduce_none,
+, 134, :_reduce_209,
+, 134, :_reduce_210,
+, 134, :_reduce_211,
+, 134, :_reduce_212,
+, 108, :_reduce_213,
+, 108, :_reduce_214,
+, 99, :_reduce_none,
+, 99, :_reduce_none,
+, 164, :_reduce_none,
+, 164, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
 , 165, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 166, :_reduce_none,
+, 167, :_reduce_none,
+, 167, :_reduce_none,
+, 168, :_reduce_none,
+, 169, :_reduce_none,
+, 170, :_reduce_none,
+, 171, :_reduce_none,
+, 172, :_reduce_none,
+, 172, :_reduce_none,
+, 172, :_reduce_none,
+, 164, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 174, :_reduce_none,
+, 174, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 175, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 125, :_reduce_none,
+, 100, :_reduce_240,
+, 100, :_reduce_241,
+, 100, :_reduce_242 ]
+racc_reduce_n = 243
+racc_shift_n = 400
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 165, :_reduce_none,
+, 166, :_reduce_226,
+, 168, :_reduce_227,
+, 168, :_reduce_228,
+, 167, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 170, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
+, 171, :_reduce_none,
+, 169, :_reduce_none,
+, 169, :_reduce_none,
+, 180, :_reduce_none,
+, 180, :_reduce_none,
+, 181, :_reduce_none,
+, 181, :_reduce_none,
+, 172, :_reduce_none,
+, 172, :_reduce_none,
+, 173, :_reduce_none,
+, 173, :_reduce_none,
+, 177, :_reduce_none,
+, 174, :_reduce_none,
+, 175, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 176, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 178, :_reduce_none,
+, 101, :_reduce_265,
+, 101, :_reduce_266,
+, 101, :_reduce_267,
+, 179, :_reduce_268 ]
+racc_reduce_n = 269
+racc_shift_n = 447
 racc_token_table = {
 …
   "++" => 15,
   "--" => 16,
+  "," => 17,
+  :SIZEOF => 18,
+  "&" => 19,
+  "*" => 20,
+  "+" => 21,
+  "-" => 22,
+  "~" => 23,
+  "!" => 24,
+  "/" => 25,
+  "%" => 26,
+  "<<" => 27,
+  ">>" => 28,
+  "<" => 29,
+  ">" => 30,
+  "<=" => 31,
+  ">=" => 32,
+  "==" => 33,
+  "!=" => 34,
+  "^" => 35,
+  "|" => 36,
+  "&&" => 37,
+  "||" => 38,
+  "?" => 39,
+  ":" => 40,
+  ";" => 41,
+  "=" => 42,
+  :VOID => 43,
+  :FLOAT => 44,
+  :DOUBLE => 45,
+  :BOOL => 46,
+  :TYPE_NAME => 47,
+  :CHAR => 48,
+  :SHORT => 49,
+  :INT => 50,
+  :LONG => 51,
+  :SIGNED => 52,
+  :UNSIGNED => 53,
+  "{" => 54,
+  "}" => 55,
+  :STRUCT => 56,
+  :UNION => 57,
+  :ENUM => 58,
+  :CONST => 59,
+  :VOLATILE => 60,
+  :C_EXP => 61,
+  :EXTENSION => 62,
+  :TYPEDEF => 63,
+  :IF => 64,
+  :ELSE => 65,
+  :WHILE => 66,
+  :DO => 67,
+  :FOR => 68,
+  :SWITCH => 69,
+  :infunc_statment => 70,
+  :CASE => 71,
+  :DEFAULT => 72,
+  :GOTO => 73,
+  :CONTINUE => 74,
+  :BREAK => 75,
+  :RETURN => 76,
+  "+=" => 77,
+  "-=" => 78,
+  "*=" => 79,
+  "/=" => 80,
+  "%=" => 81,
+  "<<=" => 82,
+  ">>=" => 83,
+  "&=" => 84,
+  "|=" => 85,
+  "^=" => 86,
+  :__INLINE__ => 87,
+  :INLINE => 88,
+  :__INLINE => 89,
+  :CINLINE => 90,
+  :EXTERN => 91,
+  :STATIC => 92,
+  :AUTO => 93,
+  :REGISTER => 94,
+  "::" => 95 }
+racc_nt_base = 96
+  "{" => 17,
+  "}" => 18,
+  "," => 19,
+  :SIZEOF => 20,
+  "&" => 21,
+  "*" => 22,
+  "+" => 23,
+  "-" => 24,
+  "~" => 25,
+  "!" => 26,
+  "/" => 27,
+  "%" => 28,
+  "<<" => 29,
+  ">>" => 30,
+  "<" => 31,
+  ">" => 32,
+  "<=" => 33,
+  ">=" => 34,
+  "==" => 35,
+  "!=" => 36,
+  "^" => 37,
+  "|" => 38,
+  "&&" => 39,
+  "||" => 40,
+  "?" => 41,
+  ":" => 42,
+  "=" => 43,
+  "+=" => 44,
+  "-=" => 45,
+  "*=" => 46,
+  "/=" => 47,
+  "%=" => 48,
+  "<<=" => 49,
+  ">>=" => 50,
+  "&=" => 51,
+  "|=" => 52,
+  "^=" => 53,
+  ";" => 54,
+  :EXTERN => 55,
+  :STATIC => 56,
+  :AUTO => 57,
+  :REGISTER => 58,
+  :VOID => 59,
+  :CHAR => 60,
+  :SHORT => 61,
+  :INT => 62,
+  :LONG => 63,
+  :FLOAT => 64,
+  :DOUBLE => 65,
+  :SIGNED => 66,
+  :UNSIGNED => 67,
+  :BOOL => 68,
+  :TYPE_NAME => 69,
+  :STRUCT => 70,
+  :UNION => 71,
+  :ENUM => 72,
+  :CONST => 73,
+  :RESTRICT => 74,
+  :VOLATILE => 75,
+  :__INLINE__ => 76,
+  :INLINE => 77,
+  :__INLINE => 78,
+  :CINLINE => 79,
+  :C_EXP => 80,
+  :EXTENSION => 81,
+  :TYPEDEF => 82,
+  :CASE => 83,
+  :DEFAULT => 84,
+  :IF => 85,
+  :ELSE => 86,
+  :SWITCH => 87,
+  :WHILE => 88,
+  :DO => 89,
+  :FOR => 90,
+  :GOTO => 91,
+  :CONTINUE => 92,
+  :BREAK => 93,
+  :RETURN => 94,
+  "::" => 95,
+  :_ASM => 96 }
+racc_nt_base = 97
 racc_use_result_var = true
 …
   "\"++\"",
   "\"--\"",
+  "\"{\"",
+  "\"}\"",
   "\",\"",
   "SIZEOF",
 …
   "\"?\"",
   "\":\"",
-  "\";\"",
   "\"=\"",
-  "VOID",
-  "FLOAT",
-  "DOUBLE",
-  "BOOL",
-  "TYPE_NAME",
-  "CHAR",
-  "SHORT",
-  "INT",
-  "LONG",
-  "SIGNED",
-  "UNSIGNED",
-  "\"{\"",
-  "\"}\"",
-  "STRUCT",
-  "UNION",
-  "ENUM",
-  "CONST",
-  "VOLATILE",
-  "C_EXP",
-  "EXTENSION",
-  "TYPEDEF",
-  "IF",
-  "ELSE",
-  "WHILE",
-  "DO",
-  "FOR",
-  "SWITCH",
-  "infunc_statment",
-  "CASE",
-  "DEFAULT",
-  "GOTO",
-  "CONTINUE",
-  "BREAK",
-  "RETURN",
   "\"+=\"",
   "\"-=\"",
 …
   "\"|=\"",
   "\"^=\"",
+  "\";\"",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "VOID",
+  "CHAR",
+  "SHORT",
+  "INT",
+  "LONG",
+  "FLOAT",
+  "DOUBLE",
+  "SIGNED",
+  "UNSIGNED",
+  "BOOL",
+  "TYPE_NAME",
+  "STRUCT",
+  "UNION",
+  "ENUM",
+  "CONST",
+  "RESTRICT",
+  "VOLATILE",
   "__INLINE__",
   "INLINE",
   "__INLINE",
   "CINLINE",
+  "EXTERN",
+  "STATIC",
+  "AUTO",
+  "REGISTER",
+  "C_EXP",
+  "EXTENSION",
+  "TYPEDEF",
+  "CASE",
+  "DEFAULT",
+  "IF",
+  "ELSE",
+  "SWITCH",
+  "WHILE",
+  "DO",
+  "FOR",
+  "GOTO",
+  "CONTINUE",
+  "BREAK",
+  "RETURN",
   "\"::\"",
+  "_ASM",
   "$start",
   "all",
 …
   "expression",
   "postfix_expression",
   "argument_list",
+  "argument_expression_list",
   "type_qualifier",
+  "type_name",
+  "initializer_list",
+  "assignment_expression",
   "unary_expression",
   "unary_operator",
   "cast_expression",
-  "type_name",
   "multiplicative_expression",
   "additive_expression",
 …
   "logical_or_expression",
   "conditional_expression",
+  "assignment_operator",
   "constant_expression",
   "declaration",
   "declaration_specifiers",
   "init_declarator_list",
   "storage_class",
+  "storage_class_specifier",
   "type_specifier",
+  "function_specifier",
   "init_declarator",
   "declarator",
 …
   "struct_declaration",
   "struct_declarator_list",
   "type_specifier_qualifier_list",
+  "specifier_qualifier_list",
   "struct_declarator",
   "union_term",
 …
   "union_declarator_list",
   "union_declarator",
-  "enum_type",
   "enumerator_list",
   "enumerator",
 …
   "direct_declarator",
   "parameter_type_list",
+  "identifier_list",
+  "type_qualifier_list",
   "parameter_list",
   "parameter_declaration",
   "abstract_declarator",
   "direct_abstract_declarator",
-  "initializer_list",
   "extension_statement",
   "statement",
+  "cdl_statement",
   "typedef",
   "func_def",
   "declarator_list",
+  "compoundstatement",
+  "infunc_statement_list",
+  "infunc_statement",
+  "compound_statement",
+  "statement",
+  "labeled_statement",
+  "expression_statement",
   "ifstatement",
   "whilestatement",
 …
   "forstatement",
   "switchstatement",
   "labelstatement",
   "gotostatement",
   "expressionstatement",
   "assignment_operator" ]
+  "jump_statement",
+  "asm_statement",
+  "block_item_list",
+  "block_item" ]
 Racc_debug_parser = false
 …
 # reduce 1 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 52)
+module_eval(<<'.,.,', 'C_parser.y.rb', 57)
   def _reduce_2(val, _values, result)
      result = [ :IDENTIFIER, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 60)
+module_eval(<<'.,.,', 'C_parser.y.rb', 65)
   def _reduce_3(val, _values, result)
      result = [ :INTEGER_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 62)
+module_eval(<<'.,.,', 'C_parser.y.rb', 67)
   def _reduce_4(val, _values, result)
      result = [ :FLOATING_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 64)
+module_eval(<<'.,.,', 'C_parser.y.rb', 69)
   def _reduce_5(val, _values, result)
      result = [ :OCTAL_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 66)
+module_eval(<<'.,.,', 'C_parser.y.rb', 71)
   def _reduce_6(val, _values, result)
      result = [ :HEX_CONSTANT, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 68)
+module_eval(<<'.,.,', 'C_parser.y.rb', 73)
   def _reduce_7(val, _values, result)
      result = [ :CHARACTER_LITERAL, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 70)
+module_eval(<<'.,.,', 'C_parser.y.rb', 75)
   def _reduce_8(val, _values, result)
      result = [ :STRING_LITERAL_LIST, val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 72)
+module_eval(<<'.,.,', 'C_parser.y.rb', 77)
   def _reduce_9(val, _values, result)
      result = [ :PARENTHESES, val[1].get_elements ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 76)
+module_eval(<<'.,.,', 'C_parser.y.rb', 81)
   def _reduce_10(val, _values, result)
      result = [val[0]]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 78)
+module_eval(<<'.,.,', 'C_parser.y.rb', 83)
   def _reduce_11(val, _values, result)
      result << val[1]
 …
 # reduce 12 omitted
+# reduce 13 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 89)
+  def _reduce_13(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
 # reduce 14 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 86)
+  def _reduce_15(val, _values, result)
+     result = [ :OP_SUBSC, val[0], val[2] ]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 88)
+  def _reduce_16(val, _values, result)
+# reduce 15 omitted
+# reduce 16 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 94)
+  def _reduce_17(val, _values, result)
      result = [ :OP_DOT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 90)
   def _reduce_17(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 96)
+  def _reduce_18(val, _values, result)
      result = [ :OP_REF, val[0], val[2] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 91)
+  def _reduce_18(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 92)
+module_eval(<<'.,.,', 'C_parser.y.rb', 97)
   def _reduce_19(val, _values, result)
      result = val[0]
 …
 .,.,
+# reduce 20 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 98)
+  def _reduce_20(val, _values, result)
+     result = val[0]
+    result
+  end
+.,.,
 # reduce 21 omitted
 …
 # reduce 23 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 104)
+  def _reduce_24(val, _values, result)
+# reduce 24 omitted
+# reduce 25 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 111)
+  def _reduce_26(val, _values, result)
      result = [ val[0], val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 106)
   def _reduce_25(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 113)
+  def _reduce_27(val, _values, result)
      result = [ :OP_SIZEOF_EXPR, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 108)
   def _reduce_26(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 115)
+  def _reduce_28(val, _values, result)
      result = [ :OP_SIZEOF_TYPE, val[1] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 109)
   def _reduce_27(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 116)
+  def _reduce_29(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 110)
   def _reduce_28(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 117)
+  def _reduce_30(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 113)
   def _reduce_29(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 120)
+  def _reduce_31(val, _values, result)
      result = :OP_U_AMP
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 114)
   def _reduce_30(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 121)
+  def _reduce_32(val, _values, result)
      result = :OP_U_ASTER
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 115)
   def _reduce_31(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 122)
+  def _reduce_33(val, _values, result)
      result = :OP_U_PLUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 116)
   def _reduce_32(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 123)
+  def _reduce_34(val, _values, result)
      result = :OP_U_MINUS
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 117)
   def _reduce_33(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 124)
+  def _reduce_35(val, _values, result)
      result = :OP_U_TILDE
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 118)
   def _reduce_34(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 125)
+  def _reduce_36(val, _values, result)
      result = :OP_U_EXCLAM
     result
 …
 .,.,
 # reduce 35 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 123)
   def _reduce_36(val, _values, result)
+# reduce 37 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 130)
+  def _reduce_38(val, _values, result)
       result = [ :CAST, val[1], val[3] ]
     result
 …
 .,.,
 # reduce 37 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 128)
   def _reduce_38(val, _values, result)
+# reduce 39 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 135)
+  def _reduce_40(val, _values, result)
      result = [ :OP_MULT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 130)
   def _reduce_39(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 137)
+  def _reduce_41(val, _values, result)
      result = [ :OP_DIV, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 132)
   def _reduce_40(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 139)
+  def _reduce_42(val, _values, result)
      result = [ :OP_REMAIN, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 41 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 137)
   def _reduce_42(val, _values, result)
+# reduce 43 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 144)
+  def _reduce_44(val, _values, result)
      result = [ :OP_ADD, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 139)
   def _reduce_43(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 146)
+  def _reduce_45(val, _values, result)
      result = [ :OP_SUB, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 44 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 144)
   def _reduce_45(val, _values, result)
+# reduce 46 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 151)
+  def _reduce_47(val, _values, result)
      result = [ :OP_LSFT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 146)
   def _reduce_46(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 153)
+  def _reduce_48(val, _values, result)
      result = [ :OP_RSFT, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 47 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 151)
   def _reduce_48(val, _values, result)
+# reduce 49 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 158)
+  def _reduce_50(val, _values, result)
      result = [ :OP_LT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 153)
   def _reduce_49(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 160)
+  def _reduce_51(val, _values, result)
      result = [ :OP_GT, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 155)
   def _reduce_50(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 162)
+  def _reduce_52(val, _values, result)
      result = [ :OP_LE, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 157)
   def _reduce_51(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 164)
+  def _reduce_53(val, _values, result)
      result = [ :OP_GE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 52 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 162)
   def _reduce_53(val, _values, result)
+# reduce 54 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 169)
+  def _reduce_55(val, _values, result)
      result = [ :OP_EQ, val[0], val[2] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 164)
   def _reduce_54(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 171)
+  def _reduce_56(val, _values, result)
      result = [ :OP_NE, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 55 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 169)
   def _reduce_56(val, _values, result)
+# reduce 57 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 176)
+  def _reduce_58(val, _values, result)
      result = [ :OP_AND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 57 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 174)
   def _reduce_58(val, _values, result)
+# reduce 59 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 181)
+  def _reduce_60(val, _values, result)
      result = [ :OP_EOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 59 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 179)
   def _reduce_60(val, _values, result)
+# reduce 61 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 186)
+  def _reduce_62(val, _values, result)
      result = [ :OP_OR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 61 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 184)
   def _reduce_62(val, _values, result)
+# reduce 63 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 191)
+  def _reduce_64(val, _values, result)
      result = [ :OP_LAND, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 63 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 189)
   def _reduce_64(val, _values, result)
+# reduce 65 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 196)
+  def _reduce_66(val, _values, result)
      result = [ :OP_LOR, val[0], val[2] ]
     result
 …
 .,.,
 # reduce 65 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 194)
   def _reduce_66(val, _values, result)
+# reduce 67 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_68(val, _values, result)
      result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 201)
+  def _reduce_67(val, _values, result)
+# reduce 69 omitted
+# reduce 70 omitted
+# reduce 71 omitted
+# reduce 72 omitted
+# reduce 73 omitted
+# reduce 74 omitted
+# reduce 75 omitted
+# reduce 76 omitted
+# reduce 77 omitted
+# reduce 78 omitted
+# reduce 79 omitted
+# reduce 80 omitted
+# reduce 81 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 223)
+  def _reduce_82(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 208)
+  def _reduce_68(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 228)
+  def _reduce_83(val, _values, result)
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 234)
+  def _reduce_84(val, _values, result)
                         result = Expression.new( val[0] )
                         # result.print
 …
 .,.,
 # reduce 69 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 237)
   def _reduce_70(val, _values, result)
+# reduce 85 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 261)
+  def _reduce_86(val, _values, result)
                         result = CIntType.new( -3 )    # storage class は無視
 …
 .,.,
+# reduce 71 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 242)
+  def _reduce_72(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 265)
+  def _reduce_87(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+# reduce 88 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 270)
+  def _reduce_89(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 274)
+  def _reduce_90(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 247)
+  def _reduce_73(val, _values, result)
+                        result = val[1]                # storage class は無視
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 251)
+  def _reduce_74(val, _values, result)
+                        result = val[1].merge val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 255)
+  def _reduce_75(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_91(val, _values, result)
                         val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 262)
+  def _reduce_76(val, _values, result)
+                                                result = val[1]
+    result
+  end
+.,.,
+# reduce 92 omitted
+# reduce 93 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_94(val, _values, result)
      result = [val[0]]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 264)
   def _reduce_77(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 289)
+  def _reduce_95(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 # reduce 78 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 269)
   def _reduce_79(val, _values, result)
+# reduce 96 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 294)
+  def _reduce_97(val, _values, result)
      val[0].set_initializer( val[2] )
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 272)
+  def _reduce_80(val, _values, result)
+# reduce 98 omitted
+# reduce 99 omitted
+# reduce 100 omitted
+# reduce 101 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 304)
+  def _reduce_102(val, _values, result)
      set_no_type_name true; result = CVoidType.new
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 273)
+  def _reduce_81(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 306)
+  def _reduce_103(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 308)
+  def _reduce_104(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 310)
+  def _reduce_105(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 312)
+  def _reduce_106(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 314)
+  def _reduce_107(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-32)
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 274)
   def _reduce_82(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 316)
+  def _reduce_108(val, _values, result)
      set_no_type_name true; result = CFloatType.new(-64)
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 275)
+  def _reduce_83(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 276)
+  def _reduce_84(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 277)
+  def _reduce_85(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 278)
+  def _reduce_86(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 279)
+  def _reduce_87(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 281)
+  def _reduce_88(val, _values, result)
+     set_no_type_name true; result = CIntType.new(-11 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 282)
+  def _reduce_89(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -2 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 283)
+  def _reduce_90(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -3 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 284)
+  def _reduce_91(val, _values, result)
+     set_no_type_name true; result = CIntType.new( -4 )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 287)
+  def _reduce_92(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 319)
+  def _reduce_109(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 293)
   def _reduce_93(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 325)
+  def _reduce_110(val, _values, result)
                         set_no_type_name true
                         result = CIntType.new( -3 )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 302)
+  def _reduce_94(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 330)
+  def _reduce_111(val, _values, result)
+     set_no_type_name true; result = CBoolType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 332)
+  def _reduce_112(val, _values, result)
+     set_no_type_name true; result = val[0]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 334)
+  def _reduce_113(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 336)
+  def _reduce_114(val, _values, result)
+     set_no_type_name true; result = CVoidType.new
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 338)
+  def _reduce_115(val, _values, result)
+     set_no_type_name true; result = CDefinedType.new( val[0].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 344)
+  def _reduce_116(val, _values, result)
      StructType.set_define( true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 305)
   def _reduce_95(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 347)
+  def _reduce_117(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 311)
   def _reduce_96(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 353)
+  def _reduce_118(val, _values, result)
                         result = CStructType.new()
                         StructType.set_define( true )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 316)
   def _reduce_97(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 358)
+  def _reduce_119(val, _values, result)
                         StructType.end_of_parse
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 322)
   def _reduce_98(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 364)
+  def _reduce_120(val, _values, result)
                         StructType.set_define( false )
                         StructType.end_of_parse
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 328)
   def _reduce_99(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 370)
+  def _reduce_121(val, _values, result)
      set_no_type_name true
     result
 …
 .,.,
 # reduce 100 omitted
 # reduce 101 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 337)
   def _reduce_102(val, _values, result)
+# reduce 122 omitted
+# reduce 123 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 379)
+  def _reduce_124(val, _values, result)
                         result = CStructType.new( val[0].val )
                         set_no_type_name true
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 346)
   def _reduce_103(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 388)
+  def _reduce_125(val, _values, result)
                         val[1].each { |i|       # i: Decl
                                 i.set_type( val[0] )
 …
 .,.,
+# reduce 104 omitted
+# reduce 105 omitted
+# reduce 106 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 365)
+  def _reduce_107(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 399)
+  def _reduce_126(val, _values, result)
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+    result
+  end
+.,.,
+# reduce 127 omitted
+# reduce 128 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 417)
+  def _reduce_129(val, _values, result)
                         result = val[1].merge val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 369)
+  def _reduce_108(val, _values, result)
+# reduce 130 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 422)
+  def _reduce_131(val, _values, result)
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 427)
+  def _reduce_132(val, _values, result)
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 374)
+  def _reduce_109(val, _values, result)
+                        val[1].set_qualifier val[0]
+                        result = val[1]
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 380)
+  def _reduce_110(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 433)
+  def _reduce_133(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 382)
   def _reduce_111(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 435)
+  def _reduce_134(val, _values, result)
      result << val[2]
     result
 …
 .,.,
 # reduce 112 omitted
 # reduce 113 omitted
 # reduce 114 omitted
 # reduce 115 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 399)
   def _reduce_116(val, _values, result)
+# reduce 135 omitted
+# reduce 136 omitted
+# reduce 137 omitted
+# reduce 138 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 452)
+  def _reduce_139(val, _values, result)
      set_no_type_name true
     result
 …
 .,.,
+# reduce 117 omitted
+# reduce 118 omitted
+# reduce 119 omitted
+# reduce 120 omitted
+# reduce 121 omitted
+# reduce 122 omitted
+# reduce 123 omitted
+# reduce 124 omitted
+# reduce 125 omitted
+# reduce 126 omitted
+# reduce 127 omitted
+# reduce 128 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 430)
+  def _reduce_129(val, _values, result)
+     result = CEnumType.new( -1 )
+    result
+  end
+.,.,
+# reduce 130 omitted
+# reduce 131 omitted
+# reduce 132 omitted
+# reduce 133 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 446)
+  def _reduce_134(val, _values, result)
+# reduce 140 omitted
+# reduce 141 omitted
+# reduce 142 omitted
+# reduce 143 omitted
+# reduce 144 omitted
+# reduce 145 omitted
+# reduce 146 omitted
+# reduce 147 omitted
+# reduce 148 omitted
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 495)
+  def _reduce_163(val, _values, result)
      result = :CONST
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 447)
+  def _reduce_135(val, _values, result)
+# reduce 164 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 498)
+  def _reduce_165(val, _values, result)
      result = :VOLATILE
     result
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 452)
+  def _reduce_136(val, _values, result)
+# reduce 166 omitted
+# reduce 167 omitted
+# reduce 168 omitted
+# reduce 169 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 509)
+  def _reduce_170(val, _values, result)
                         val[1].set_type( val[0] )
                         result = val[1]
 …
 .,.,
 # reduce 137 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 458)
   def _reduce_138(val, _values, result)
+# reduce 171 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 515)
+  def _reduce_172(val, _values, result)
                         result = Decl.new( val[1].val )
                         result.set_type( val[0] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 464)
   def _reduce_139(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 521)
+  def _reduce_173(val, _values, result)
      result = Decl.new( val[0].val )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 466)
   def _reduce_140(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 523)
+  def _reduce_174(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 469)
   def _reduce_141(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 526)
+  def _reduce_175(val, _values, result)
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 474)
   def _reduce_142(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 531)
+  def _reduce_176(val, _values, result)
                         val[0].set_type( CArrayType.new )
                         result = val[0]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 479)
   def _reduce_143(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 536)
+  def _reduce_177(val, _values, result)
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 487)
+  def _reduce_144(val, _values, result)
+# reduce 178 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 543)
+  def _reduce_179(val, _values, result)
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
                         val[0].set_type( CFuncType.new )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 494)
   def _reduce_145(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 550)
+  def _reduce_180(val, _values, result)
      result = CPtrType.new
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 497)
   def _reduce_146(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 553)
+  def _reduce_181(val, _values, result)
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 502)
   def _reduce_147(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 558)
+  def _reduce_182(val, _values, result)
                         val[1].set_type(CPtrType.new)
                         result = val[1]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 507)
   def _reduce_148(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 563)
+  def _reduce_183(val, _values, result)
                         ptrtype = CPtrType.new
                         ptrtype.set_qualifier( val[1] )
 …
 .,.,
+# reduce 149 omitted
+# reduce 150 omitted
+# reduce 151 omitted
+# reduce 152 omitted
+# reduce 153 omitted
+# reduce 154 omitted
+# reduce 155 omitted
+# reduce 156 omitted
+# reduce 157 omitted
+# reduce 158 omitted
+# reduce 159 omitted
+# reduce 160 omitted
+# reduce 161 omitted
+# reduce 162 omitted
+# reduce 163 omitted
+# reduce 164 omitted
+# reduce 165 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 571)
+  def _reduce_166(val, _values, result)
+# reduce 184 omitted
+# reduce 185 omitted
+# reduce 186 omitted
+# reduce 187 omitted
+# reduce 188 omitted
+# reduce 189 omitted
+# reduce 190 omitted
+# reduce 191 omitted
+# reduce 192 omitted
+# reduce 193 omitted
+# reduce 194 omitted
+# reduce 195 omitted
+# reduce 196 omitted
+# reduce 197 omitted
+# reduce 198 omitted
+# reduce 199 omitted
+# reduce 200 omitted
+# reduce 201 omitted
+# reduce 202 omitted
+# reduce 203 omitted
+# reduce 204 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 630)
+  def _reduce_205(val, _values, result)
                         Generator.warning( "W6003 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 167 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 576)
   def _reduce_168(val, _values, result)
+# reduce 206 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 635)
+  def _reduce_207(val, _values, result)
                         Generator.warning( "W6004 need 'void' for no parameter"  )
 …
 .,.,
 # reduce 169 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 583)
   def _reduce_170(val, _values, result)
+# reduce 208 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 642)
+  def _reduce_209(val, _values, result)
      result = val[0]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 585)
   def _reduce_171(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 644)
+  def _reduce_210(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 587)
   def _reduce_172(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 646)
+  def _reduce_211(val, _values, result)
      result = val[1]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 589)
   def _reduce_173(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 648)
+  def _reduce_212(val, _values, result)
      result = C_EXP.new( val[2] )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 594)
   def _reduce_174(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 653)
+  def _reduce_213(val, _values, result)
                         result = [ val[0] ]
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 598)
   def _reduce_175(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 657)
+  def _reduce_214(val, _values, result)
                         val[0] << val[2]
                         result = val[0]
 …
 .,.,
 # reduce 176 omitted
 # reduce 177 omitted
 # reduce 178 omitted
 # reduce 179 omitted
 # reduce 180 omitted
 # reduce 181 omitted
 # reduce 182 omitted
 # reduce 183 omitted
 # reduce 184 omitted
 # reduce 185 omitted
 # reduce 186 omitted
 module_eval(<<'.,.,', 'C_parser.y.rb', 626)
   def _reduce_187(val, _values, result)
+# reduce 215 omitted
+# reduce 216 omitted
+# reduce 217 omitted
+# reduce 218 omitted
+# reduce 219 omitted
+# reduce 220 omitted
+# reduce 221 omitted
+# reduce 222 omitted
+# reduce 223 omitted
+# reduce 224 omitted
+# reduce 225 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 685)
+  def _reduce_226(val, _values, result)
                         val[2].each{ |i|
                            i.set_kind( :TYPEDEF )
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 635)
   def _reduce_188(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 694)
+  def _reduce_227(val, _values, result)
      result = [ val[0] ]
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 637)
   def _reduce_189(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 696)
+  def _reduce_228(val, _values, result)
      result << val[2]
     result
 …
 .,.,
-# reduce 190 omitted
-# reduce 191 omitted
-# reduce 192 omitted
-# reduce 193 omitted
-# reduce 194 omitted
-# reduce 195 omitted
-# reduce 196 omitted
-# reduce 197 omitted
-# reduce 198 omitted
-# reduce 199 omitted
-# reduce 200 omitted
-# reduce 201 omitted
-# reduce 202 omitted
-# reduce 203 omitted
-# reduce 204 omitted
-# reduce 205 omitted
-# reduce 206 omitted
-# reduce 207 omitted
-# reduce 208 omitted
-# reduce 209 omitted
-# reduce 210 omitted
-# reduce 211 omitted
-# reduce 212 omitted
-# reduce 213 omitted
-# reduce 214 omitted
-# reduce 215 omitted
-# reduce 216 omitted
-# reduce 217 omitted
-# reduce 218 omitted
-# reduce 219 omitted
-# reduce 220 omitted
-# reduce 221 omitted
-# reduce 222 omitted
-# reduce 223 omitted
-# reduce 224 omitted
-# reduce 225 omitted
-# reduce 226 omitted
-# reduce 227 omitted
-# reduce 228 omitted
 # reduce 229 omitted
 …
 # reduce 239 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 718)
+  def _reduce_240(val, _values, result)
+# reduce 240 omitted
+# reduce 241 omitted
+# reduce 242 omitted
+# reduce 243 omitted
+# reduce 244 omitted
+# reduce 245 omitted
+# reduce 246 omitted
+# reduce 247 omitted
+# reduce 248 omitted
+# reduce 249 omitted
+# reduce 250 omitted
+# reduce 251 omitted
+# reduce 252 omitted
+# reduce 253 omitted
+# reduce 254 omitted
+# reduce 255 omitted
+# reduce 256 omitted
+# reduce 257 omitted
+# reduce 258 omitted
+# reduce 259 omitted
+# reduce 260 omitted
+# reduce 261 omitted
+# reduce 262 omitted
+# reduce 263 omitted
+# reduce 264 omitted
+module_eval(<<'.,.,', 'C_parser.y.rb', 761)
+  def _reduce_265(val, _values, result)
      result = NamespacePath.new( val[0].val, false )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 719)
   def _reduce_241(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 762)
+  def _reduce_266(val, _values, result)
      result = NamespacePath.new( val[1].val, true )
     result
 …
 .,.,
 module_eval(<<'.,.,', 'C_parser.y.rb', 721)
   def _reduce_242(val, _values, result)
+module_eval(<<'.,.,', 'C_parser.y.rb', 764)
+  def _reduce_267(val, _values, result)
      result = val[0].append!( val[2].val )
+    result
+  end
+.,.,
+module_eval(<<'.,.,', 'C_parser.y.rb', 768)
+  def _reduce_268(val, _values, result)
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
     result
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/C_parser.y.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
 #   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 #   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
 …
 # argument_expression_list(関数引数), assignment_expression(代入)がない
 # 式の result は、すべて配列で第一要素が識別シンボル、第二要素以下が引数
+#
+# 2019/3/28 長島 下記のC99の構文に近づくよう変更
+#（読めないヘッダーファイルがあったため）
+# http://www.quut.com/c/ANSI-C-grammar-y-1999.html
+# 元々のコメントと合わなくなっています
 primary_expression
         : namespace_identifier
+                : namespace_identifier
                 { result = [ :IDENTIFIER, val[0] ] }     #1ok
 #        : IDENTIFIER   # mikan namespace への対応
 …
 #        | FALSE
 #               { result = [ :BOOL_CONSTANT, false ] }
         | INTEGER_CONSTANT
+                | INTEGER_CONSTANT
                 { result = [ :INTEGER_CONSTANT, val[0] ] }
         | FLOATING_CONSTANT
+                | FLOATING_CONSTANT
                 { result = [ :FLOATING_CONSTANT, val[0] ] }
         | OCTAL_CONSTANT
+                | OCTAL_CONSTANT
                 { result = [ :OCTAL_CONSTANT, val[0] ] }
         | HEX_CONSTANT
+                | HEX_CONSTANT
                 { result = [ :HEX_CONSTANT, val[0] ] }
         | CHARACTER_LITERAL
+                | CHARACTER_LITERAL
                 { result = [ :CHARACTER_LITERAL, val[0] ] }
         | string_literal_list
+                | string_literal_list
                 { result = [ :STRING_LITERAL_LIST, val[0] ] }
         | '(' expression ')'
+                | '(' expression ')'
                 { result = [ :PARENTHESES, val[1].get_elements ] }
 string_literal_list
         : STRING_LITERAL
+                : STRING_LITERAL
                 { result = [val[0]] }
         | string_literal_list STRING_LITERAL
+                | string_literal_list STRING_LITERAL
                 { result << val[1] }
 # 関数呼び出しと後置インクリメント、デクリメント演算子がない
 postfix_expression
+        : primary_expression
+        | primary_expression '(' argument_list ')'
+        | primary_expression type_qualifier '(' argument_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+        | postfix_expression '[' expression ']'
+                : primary_expression
+                | postfix_expression '[' expression ']'
                 { result = [ :OP_SUBSC, val[0], val[2] ] }
+        | postfix_expression '.' IDENTIFIER
+                | postfix_expression '(' ')'
+                | postfix_expression '(' argument_expression_list ')'
+                | postfix_expression type_qualifier '(' argument_expression_list ')'    # intended __asm volatile ( "   MNEMONIC  OPERAND" );
+                | postfix_expression '.' IDENTIFIER
                 { result = [ :OP_DOT, val[0], val[2] ] }
         | postfix_expression '->' IDENTIFIER
+                | postfix_expression '->' IDENTIFIER
                 { result = [ :OP_REF, val[0], val[2] ] }
+        | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+        | postfix_expression '--'       { result = val[0] }
+argument_list
+        :
+        | expression
+        | argument_list ',' expression
+                | postfix_expression '++'       { result = val[0] }   # ++, -- は無視する
+                | postfix_expression '--'       { result = val[0] }
+                | '(' type_name ')' '{' initializer_list '}'
+                | '(' type_name ')' '{' initializer_list ',' '}'
+argument_expression_list
+                : assignment_expression
+                | argument_expression_list ',' assignment_expression
 # 前置インクリメント、デクリメント演算子がない
 unary_expression
         : postfix_expression
         | unary_operator cast_expression
+                : postfix_expression
+                | unary_operator cast_expression
                 { result = [ val[0], val[1] ] }
         | SIZEOF unary_expression
+                | SIZEOF unary_expression
                 { result = [ :OP_SIZEOF_EXPR, val[1] ] }
         | SIZEOF '(' type_name ')'
+                | SIZEOF '(' type_name ')'
                 { result = [ :OP_SIZEOF_TYPE, val[1] ] }
                 | '++' unary_expression                 { result = val[1] }   # ++, -- は無視する
 …
 unary_operator
         : '&'   { result = :OP_U_AMP }
         | '*'   { result = :OP_U_ASTER }
         | '+'   { result = :OP_U_PLUS }
         | '-'   { result = :OP_U_MINUS }
         | '~'   { result = :OP_U_TILDE }
         | '!'   { result = :OP_U_EXCLAM }
+                : '&'   { result = :OP_U_AMP }
+                | '*'   { result = :OP_U_ASTER }
+                | '+'   { result = :OP_U_PLUS }
+                | '-'   { result = :OP_U_MINUS }
+                | '~'   { result = :OP_U_TILDE }
+                | '!'   { result = :OP_U_EXCLAM }
 cast_expression
         : unary_expression
         | '(' type_name ')' cast_expression
+                : unary_expression
+                | '(' type_name ')' cast_expression
                 {  result = [ :CAST, val[1], val[3] ] }
 multiplicative_expression
         : cast_expression
         | multiplicative_expression '*' cast_expression
+                : cast_expression
+                | multiplicative_expression '*' cast_expression
                 { result = [ :OP_MULT, val[0], val[2] ]  }
         | multiplicative_expression '/' cast_expression
+                | multiplicative_expression '/' cast_expression
                 { result = [ :OP_DIV, val[0], val[2] ]  }
         | multiplicative_expression '%' cast_expression
+                | multiplicative_expression '%' cast_expression
                 { result = [ :OP_REMAIN, val[0], val[2] ]  }
 additive_expression
         : multiplicative_expression
         | additive_expression '+' multiplicative_expression
+                : multiplicative_expression
+                | additive_expression '+' multiplicative_expression
                 { result = [ :OP_ADD, val[0], val[2] ]  }
         | additive_expression '-' multiplicative_expression
+                | additive_expression '-' multiplicative_expression
                 { result = [ :OP_SUB, val[0], val[2] ]  }
 shift_expression
         : additive_expression
         | shift_expression '<<' additive_expression
+                : additive_expression
+                | shift_expression '<<' additive_expression
                 { result = [ :OP_LSFT, val[0], val[2] ]  }
         | shift_expression '>>' additive_expression
+                | shift_expression '>>' additive_expression
                 { result = [ :OP_RSFT, val[0], val[2] ]  }
 relational_expression
         : shift_expression
         | relational_expression '<' shift_expression
+                : shift_expression
+                | relational_expression '<' shift_expression
                 { result = [ :OP_LT, val[0], val[2] ]  }
         | relational_expression '>' shift_expression
+                | relational_expression '>' shift_expression
                 { result = [ :OP_GT, val[0], val[2] ]  }
         | relational_expression '<=' shift_expression
+                | relational_expression '<=' shift_expression
                 { result = [ :OP_LE, val[0], val[2] ]  }
         | relational_expression '>=' shift_expression
+                | relational_expression '>=' shift_expression
                 { result = [ :OP_GE, val[0], val[2] ]  }
 equality_expression
         : relational_expression
         | equality_expression '==' relational_expression
+                : relational_expression
+                | equality_expression '==' relational_expression
                 { result = [ :OP_EQ, val[0], val[2] ]  }
         | equality_expression '!=' relational_expression
+                | equality_expression '!=' relational_expression
                 { result = [ :OP_NE, val[0], val[2] ]  }
 and_expression
         : equality_expression
         | and_expression '&' equality_expression
+                : equality_expression
+                | and_expression '&' equality_expression
                 { result = [ :OP_AND, val[0], val[2] ]  }
 exclusive_or_expression
         : and_expression
         | exclusive_or_expression '^' and_expression
+                : and_expression
+                | exclusive_or_expression '^' and_expression
                 { result = [ :OP_EOR, val[0], val[2] ]  }
 inclusive_or_expression
         : exclusive_or_expression
         | inclusive_or_expression '|' exclusive_or_expression
+                : exclusive_or_expression
+                | inclusive_or_expression '|' exclusive_or_expression
                 { result = [ :OP_OR, val[0], val[2] ]  }
 logical_and_expression
         : inclusive_or_expression
         | logical_and_expression '&&' inclusive_or_expression
+                : inclusive_or_expression
+                | logical_and_expression '&&' inclusive_or_expression
                 { result = [ :OP_LAND, val[0], val[2] ]  }
 logical_or_expression
         : logical_and_expression
         | logical_or_expression '||' logical_and_expression
+                : logical_and_expression
+                | logical_or_expression '||' logical_and_expression
                 { result = [ :OP_LOR, val[0], val[2] ]  }
 conditional_expression
         : logical_or_expression
         | logical_or_expression '?' expression ':' conditional_expression
+                : logical_or_expression
+                | logical_or_expression '?' expression ':' conditional_expression
                 { result = [ :OP_CEX, val[0], val[2].get_elements, val[4] ]  }
+# コンマ演算子が使えない
+assignment_expression
+                : conditional_expression
+                | unary_expression assignment_operator assignment_expression
+assignment_operator
+                : '='
+                | '+='
+                | '-='
+                | '*='
+                | '/='
+                | '%='
+                | '<<='
+                | '>>='
+                | '&='
+                | '|='
+                | '^='
 expression
         : conditional_expression
+                : assignment_expression
+                {
                         result = Expression.new( val[0] )
                         # result.print
+                }
+                | expression ',' assignment_expression
+                {
+                        result = Expression.new( val[2] )    # ',' の後ろを採用
+                }
 constant_expression
         : conditional_expression
+                : conditional_expression
+                {
                         result = Expression.new( val[0] )
 …
+                }
 # Types
 ##########################  宣言  ##########################
 …
 # K&Rとの違い: storage classが指定できない、型が省略できない
 declaration
         : declaration_specifiers init_declarator_list ';'
 #        : type_specifier_qualifier_list init_declarator_list ';'
+                : declaration_specifiers init_declarator_list ';'
+#        : specifier_qualifier_list init_declarator_list ';'
 # declaration_specifiersは関数のパラメータで使われるが、
 # type_specifier_qualifier_listで十分かもしれない
+# specifier_qualifier_listで十分かもしれない
 declaration_specifiers
+        : storage_class
+                : storage_class_specifier
+                {
                         result = CIntType.new( -3 )    # storage class は無視
+                }
+        | type_specifier
+        | type_qualifier
+                | storage_class_specifier declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+                | type_specifier
+                | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
+        | storage_class declaration_specifiers
+                {
+                        result = val[1]                # storage class は無視
+                }
+        | type_specifier declaration_specifiers
+                {
+                        result = val[1].merge val[0]
+                }
+        | type_qualifier declaration_specifiers
+                | type_qualifier declaration_specifiers
+                {
                         val[1].set_qualifier val[0]
+                        result = val[1]
+                }
+                                                result = val[1]
+                }
+                | function_specifier
+                | function_specifier declaration_specifiers
 init_declarator_list
         : init_declarator
+                : init_declarator
                 { result = [val[0]] }
         | init_declarator_list ',' init_declarator
+                | init_declarator_list ',' init_declarator
                 { result << val[2] }
 init_declarator
         : declarator
         | declarator '=' initializer
+                : declarator
+                | declarator '=' initializer
                 { val[0].set_initializer( val[2] ) }
+storage_class_specifier
+                : EXTERN
+                | STATIC
+                | AUTO
+                | REGISTER
 type_specifier
+        : VOID  { set_no_type_name true; result = CVoidType.new }
+        | FLOAT { set_no_type_name true; result = CFloatType.new(-32) }
+        | DOUBLE        { set_no_type_name true; result = CFloatType.new(-64) }
+        | BOOL  { set_no_type_name true; result = CBoolType.new }
+        | struct_specifier      { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+        | union_specifier       { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | enum_specifier        { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+        | TYPE_NAME     { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
+        | CHAR  { set_no_type_name true; result = CIntType.new(-11 ) }
+        | SHORT { set_no_type_name true; result = CIntType.new( -2 ) }
+        | INT           { set_no_type_name true; result = CIntType.new( -3 ) }
+        | LONG  { set_no_type_name true; result = CIntType.new( -4 ) }
+        | SIGNED
+                : VOID
+                { set_no_type_name true; result = CVoidType.new }
+                | CHAR
+                { set_no_type_name true; result = CIntType.new(-11 ) }
+                | SHORT
+                { set_no_type_name true; result = CIntType.new( -2 ) }
+                | INT
+                { set_no_type_name true; result = CIntType.new( -3 ) }
+                | LONG
+                { set_no_type_name true; result = CIntType.new( -4 ) }
+                | FLOAT
+                { set_no_type_name true; result = CFloatType.new(-32) }
+                | DOUBLE
+                { set_no_type_name true; result = CFloatType.new(-64) }
+                | SIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :SIGNED
+                }
         | UNSIGNED
+                | UNSIGNED
+                {
                         set_no_type_name true
 …
                         result.set_sign :UNSIGNED
+                }
+                | BOOL
+                { set_no_type_name true; result = CBoolType.new }
+                | struct_specifier
+                { set_no_type_name true; result = val[0] } # set_no_type_name true は struct_tag でも呼ばれる
+                | union_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | enum_specifier
+                { set_no_type_name true; result = CVoidType.new }  # void が宣言されたとする
+                | TYPE_NAME
+                { set_no_type_name true; result = CDefinedType.new( val[0].val ) }
 # mikan K&Rのstruct_or_union_specifierに相当するが、unionは使えない, bit field にも対応しない
 struct_specifier                # mikan
 #        : STRUCT struct_tag '{'
         : struct_term struct_tag '{'
+                : struct_term struct_tag '{'
                 { StructType.set_define( true )  }
            struct_declaration_list '}'
+                struct_declaration_list '}'
+                {
                         StructType.end_of_parse
 …
+                }
 #        | STRUCT
         | struct_term
+                | struct_term
+                {
                         result = CStructType.new()
                         StructType.set_define( true )
+                }
            '{' struct_declaration_list '}'
+                '{' struct_declaration_list '}'
+                {
                         StructType.end_of_parse
 …
+                }
 #        | STRUCT struct_tag   # mikan struct_tag は namespace 対応が必要
         | struct_term struct_tag   # mikan struct_tag は namespace 対応が必要
+                | struct_term struct_tag   # mikan struct_tag は namespace 対応が必要
+                {
                         StructType.set_define( false )
 …
 struct_term
         : STRUCT { set_no_type_name true }
+                : STRUCT { set_no_type_name true }
 struct_declaration_list
         : struct_declaration
         | struct_declaration_list struct_declaration
+                : struct_declaration
+                | struct_declaration_list struct_declaration
 struct_tag:
         IDENTIFIER
+                IDENTIFIER
+                {
                         result = CStructType.new( val[0].val )
 …
 # ポインタ修飾子を追加
 struct_declaration
         : declaration_specifiers struct_declarator_list ';'
 #        :                                type_specifier_qualifier_list struct_declarator_list ';'
+                : declaration_specifiers struct_declarator_list ';'
+#        :                                specifier_qualifier_list struct_declarator_list ';'
+                {
                         val[1].each { |i|       # i: Decl
 …
                         result = val[1]
+                }
+        | union_specifier ';'                       # 無名
+        | struct_specifier ';'                       # 無名
+                # ビットフィールドを読み飛ばし
+                | declaration_specifiers struct_declarator_list ':' constant_expression ';'
+                {
+                        val[1].each { |i|       # i: Decl
+                                i.set_type( val[0] )
+                                i.set_kind( :MEMBER )
+                                i.check
+                                CStructType.new_member( i )
+                        }
+                        result = val[1]
+                }
+                | union_specifier ';'                       # 無名
+                | struct_specifier ';'                       # 無名
 …
 # K&Rのspecifier_qualifier_listと同じ
 # 名前がまぎらわしかったのでtype_を付けた
+type_specifier_qualifier_list
+        : type_specifier
+        | type_specifier type_specifier_qualifier_list
+specifier_qualifier_list
+                : type_specifier specifier_qualifier_list
+                {
                         result = val[1].merge val[0]
+                }
+        | type_qualifier
+                | type_specifier
+                | type_qualifier specifier_qualifier_list
+                {
+                        val[1].set_qualifier val[0]
+                                                result = val[1]
+                }
+                | type_qualifier
+                {
                         result = CIntType.new( -3 )
                         result.set_qualifier val[0]
+                }
-        | type_qualifier type_specifier_qualifier_list
+                {
-                        val[1].set_qualifier val[0]
-                        result = val[1]
+                }
 struct_declarator_list
         : struct_declarator
+                : struct_declarator
                 { result = [ val[0] ] }
         | struct_declarator_list ',' struct_declarator
+                | struct_declarator_list ',' struct_declarator
                 { result << val[2] }
 # ビットフィールドは使えない
 struct_declarator
         : declarator
+                : declarator
+#               | ':' constant_expression
+#               | declarator ':' constant_expression
 union_specifier
 …
 #        | UNION '{' union_declaration_list '}'
 #        | UNION union_tag   # mikan struct_tag は namespace 対応が必要
         : union_term union_tag '{' union_declaration_list '}'
         | union_term '{' union_declaration_list '}'
         | union_term union_tag   # mikan struct_tag は namespace 対応が必要
+                : union_term union_tag '{' union_declaration_list '}'
+                | union_term '{' union_declaration_list '}'
+                | union_term union_tag   # mikan struct_tag は namespace 対応が必要
 union_term
         : UNION { set_no_type_name true }
+                : UNION { set_no_type_name true }
 union_declaration_list
         : union_declaration
         | union_declaration_list union_declaration
+                : union_declaration
+                | union_declaration_list union_declaration
 union_tag:
 …
 union_declaration
         : declaration_specifiers union_declarator_list ';'
+                : declaration_specifiers union_declarator_list ';'
                 | union_specifier ';'                       # 無名
                 | struct_specifier ';'                      # 無名
 union_declarator_list
+        : union_declarator
+        | union_declarator_list ',' union_declarator
+# ビットフィールドは使えない
+                : union_declarator
+                | union_declarator_list ',' union_declarator
 union_declarator
+        : declarator
+# enumの種類を追加
+enum_specifier          # mikan
+        : enum_type            '{' enumerator_list '}'
+        | enum_type IDENTIFIER '{' enumerator_list '}'
+        | enum_type IDENTIFIER
+enum_type
+        : ENUM  { result = CEnumType.new( -1 ) }
+#        | ENUM8        { result = CEnumType.new( 8 ) }
+#        | ENUM16       { result = CEnumType.new( 16 ) }
+#        | ENUM32       { result = CEnumType.new( 32 ) }
+#        | ENUM64       { result = CEnumType.new( 64 ) }
+#        | ENUM128      { result = CEnumType.new( 128 ) }
+                : declarator
+                | ':' constant_expression
+                | declarator ':' constant_expression
+enum_specifier
+                : ENUM '{' enumerator_list '}'
+                | ENUM IDENTIFIER '{' enumerator_list '}'
+                | ENUM '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER '{' enumerator_list ',' '}'
+                | ENUM IDENTIFIER
+                | ENUM TYPE_NAME '{' enumerator_list '}'
+                | ENUM TYPE_NAME '{' enumerator_list ',' '}'
+                | ENUM TYPE_NAME
 enumerator_list
         : enumerator
         | enumerator_list ',' enumerator
+                : enumerator
+                | enumerator_list ',' enumerator
 enumerator
         : IDENTIFIER
         | IDENTIFIER '=' constant_expression
+                : IDENTIFIER
+                | IDENTIFIER '=' constant_expression
 type_qualifier
+        : CONST { result = :CONST }
+        | VOLATILE      { result = :VOLATILE }
+                : CONST
+                { result = :CONST }
+                | RESTRICT
+                | VOLATILE
+                { result = :VOLATILE }
+function_specifier
+                : __INLINE__
+                | INLINE
+                | __INLINE
+                | CINLINE
 declarator
         : pointer direct_declarator
+                : pointer direct_declarator
+                {
                         val[1].set_type( val[0] )
                         result = val[1]
+                }
         | direct_declarator
         | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                | direct_declarator
+                | pointer TYPE_NAME     # 関数ポインタの typedef が二重定義の場合
+                {
                         result = Decl.new( val[1].val )
 …
 direct_declarator               # mikan
         : IDENTIFIER
+                : IDENTIFIER
                 { result = Decl.new( val[0].val ) }
         | '(' declarator ')'
+                | '(' declarator ')'
                 { result = val[1] }
         | direct_declarator '[' constant_expression ']'
+                | direct_declarator '[' constant_expression ']'
+                {
                         val[0].set_type( CArrayType.new( val[2] ) )
                         result = val[0]
+                }
         | direct_declarator '[' ']'
+                | direct_declarator '[' ']'
+                {
                         val[0].set_type( CArrayType.new )
                         result = val[0]
+                }
         | direct_declarator '(' parameter_type_list ')'
+                | direct_declarator '(' parameter_type_list ')'
+                {
                 #       Generator.warning( "W6001 need 'void' for no parameter"  )
 …
                         result = val[0]
+                }
+#        | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+        | direct_declarator '(' ')'
+                | direct_declarator '(' identifier_list ')'  # これは何のために必要？ 060211
+                | direct_declarator '(' ')'
+                {
                 #       Generator.warning( "W6002 need 'void' for no parameter"  )
 …
 pointer
         : '*'
+                : '*'
                 { result = CPtrType.new }
+        | '*' type_qualifier
+                | '*' type_qualifier_list
+                {
                         result = CPtrType.new
                         result.set_qualifier( val[1] )
+                }
         | '*' pointer
+                | '*' pointer
+                {
                         val[1].set_type(CPtrType.new)
                         result = val[1]
+                }
         | '*' type_qualifier pointer
+                | '*' type_qualifier_list pointer
+                {
                         ptrtype = CPtrType.new
 …
+                }
+type_qualifier_list
+                : type_qualifier
+                | type_qualifier_list type_qualifier
 parameter_type_list
         : parameter_list
         | parameter_list ',' '.' '.' '.'
+                : parameter_list
+                | parameter_list ',' '.' '.' '.'
                 # mikan 可変長パラメータ,  ... の間のスペースが許される（手抜き）
 parameter_list
         : parameter_declaration
+                : parameter_declaration
 #               { result = ParamList.new( val[0] ) }
         | parameter_list ',' parameter_declaration
+                | parameter_list ',' parameter_declaration
 #               {
 #                       val[0].add_param( val[2] )
 …
 # パラメータ修飾子を追加
 parameter_declaration
         : declaration_specifiers declarator
+                : declaration_specifiers declarator
 #               {
 #                       decl = ParamDecl.new( val[1], val[0], [] )
 …
 #                       result = nil
 #               }
         | declaration_specifiers abstract_declarator    # 仮引数なし
         | declaration_specifiers                                                # 仮引数なし
 #identifier_list       # 060211  不用になった
 #        : IDENTIFIER
 #        | identifier_list ',' IDENTIFIER
+                | declaration_specifiers abstract_declarator    # 仮引数なし
+                | declaration_specifiers                                                # 仮引数なし
+identifier_list       # 060211  不用になった
+        : IDENTIFIER
+        | identifier_list ',' IDENTIFIER
 type_name
         : type_specifier_qualifier_list
         | type_specifier_qualifier_list abstract_declarator
+                : specifier_qualifier_list
+                | specifier_qualifier_list abstract_declarator
 abstract_declarator             # mikan
         : pointer
         | direct_abstract_declarator
         | pointer direct_abstract_declarator
+                : pointer
+                | direct_abstract_declarator
+                | pointer direct_abstract_declarator
 direct_abstract_declarator
         : '(' abstract_declarator ')'
         | '[' ']'
         | '[' constant_expression ']'
         | direct_abstract_declarator '[' ']'
         | direct_abstract_declarator '[' constant_expression ']'
         | '(' ')'
+                : '(' abstract_declarator ')'
+                | '[' ']'
+                | '[' assignment_expression ']'
+                | direct_abstract_declarator '[' ']'
+                | direct_abstract_declarator '[' assignment_expression ']'
+                | '(' ')'
+                {
                         Generator.warning( "W6003 need 'void' for no parameter"  )
+                }
         | '(' parameter_type_list ')'
         | direct_abstract_declarator '(' ')'
+                | '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' ')'
+                {
                         Generator.warning( "W6004 need 'void' for no parameter"  )
+                }
         | direct_abstract_declarator '(' parameter_type_list ')'
+                | direct_abstract_declarator '(' parameter_type_list ')'
 # assignment_expressionをconstant_expressionに変更
 initializer                     # mikan
         : constant_expression
+                : assignment_expression
                 { result = val[0] }
         | '{' initializer_list '}'
+                | '{' initializer_list '}'
                 { result = val[1] }
         | '{' initializer_list ',' '}'
+                | '{' initializer_list ',' '}'
                 { result = val[1] }
         | C_EXP '(' STRING_LITERAL ')'
+                | C_EXP '(' STRING_LITERAL ')'
                 { result = C_EXP.new( val[2] ) }
 initializer_list
         : initializer
+                : initializer
+                {
                         result = [ val[0] ]
+                }
         | initializer_list ',' initializer
+                | initializer_list ',' initializer
+                {
                         val[0] << val[2]
 …
 #トップレベルの構文規則
 C_parser
+        :
         | C_parser extension_statement
+                :
+                | C_parser extension_statement
 extension_statement
         : statement
         | EXTENSION statement
 statement
         : typedef
         | func_def
         | enum_specifier ';'
         | struct_specifier ';'
         | declaration
         | ';'
         | error   # エラー回復ポイント
+                : cdl_statement
+                | EXTENSION cdl_statement
+cdl_statement
+                : typedef
+                | func_def
+                | enum_specifier ';'
+                | struct_specifier ';'
+                | declaration
+                | ';'
+                | error   # エラー回復ポイント
 typedef
         : TYPEDEF type_specifier_qualifier_list declarator_list ';'
+        : TYPEDEF specifier_qualifier_list declarator_list ';'
+                {
                         val[2].each{ |i|
 …
 declarator_list
         : declarator
+                : declarator
                 { result = [ val[0] ] }
         | declarator_list ',' declarator
+                | declarator_list ',' declarator
                 { result << val[2] }
 func_def
+        : declaration_specifiers declarator compoundstatement
+infunc_statement_list
+        :
+        | infunc_statement_list infunc_statement
+infunc_statement
+        : declaration
+        | ifstatement
+        | whilestatement
+        | dowhilestatement
+        | forstatement
+        | switchstatement
+        | labelstatement
+        | compoundstatement
+        | gotostatement
+        | expressionstatement
+        | ';'
+                : declaration_specifiers declarator compound_statement
+statement
+                : labeled_statement
+                | compound_statement
+                | expression_statement
+                | ifstatement
+                | whilestatement
+                | dowhilestatement
+                | forstatement
+                | switchstatement
+                | jump_statement
+                | asm_statement
+labeled_statement
+                : IDENTIFIER ':' statement
+                | CASE constant_expression ':' statement
+                | DEFAULT ':' statement
+compound_statement
+                : '{' '}'
+                | '{' block_item_list '}'
+block_item_list
+                : block_item
+                | block_item_list block_item
+block_item
+                : declaration
+                | statement
+expression_statement
+                : ';'
+                | expression ';'
 ifstatement
+        : IF '(' expression ')' infunc_statement
+        | IF '(' expression ')' infunc_statement ELSE infunc_statement
+                : IF '(' expression ')' statement
+                | IF '(' expression ')' statement ELSE statement
+switchstatement
+                : SWITCH '(' expression ')' compound_statement
 whilestatement
         : WHILE '(' expression ')' infunc_statement
+                : WHILE '(' expression ')' statement
 dowhilestatement
         : DO infunc_statement WHILE '(' expression ')' ';'
+                : DO statement WHILE '(' expression ')' ';'
 forstatement
+        : FOR '(' expression ';' expression ';' expression ')' infunc_statement
+switchstatement
+        : SWITCH '(' expression ')'  infunc_statment
+labelstatement
+        : IDENTIFIER ':' infunc_statement
+        | CASE constant_expression ':' infunc_statement
+        | DEFAULT ':' infunc_statement
+compoundstatement
+        : '{' infunc_statement_list '}'
+gotostatement
+        : GOTO IDENTIFIER ';'
+        | CONTINUE ';'
+        | BREAK ';'
+        | RETURN expression ';'
+        | RETURN ';'
+expressionstatement
+        : expression ';'
+        | unary_expression assignment_operator expression ';'
+assignment_operator
+        : '='
+        | '+='
+        | '-='
+        | '*='
+        | '/='
+        | '%='
+        | '<<='
+        | '>>='
+        | '&='
+        | '|='
+        | '^='
+storage_class
+        : __INLINE__
+        | INLINE
+        | __INLINE
+        | CINLINE
+        | EXTERN
+        | STATIC
+        | AUTO
+        | REGISTER
+                : FOR '(' expression_statement expression_statement ')' statement
+                | FOR '(' expression_statement expression_statement expression ')' statement
+                | FOR '(' declaration expression_statement ')' statement
+                | FOR '(' declaration expression_statement expression ')' statement
+jump_statement
+                : GOTO IDENTIFIER ';'
+                | CONTINUE ';'
+                | BREAK ';'
+                | RETURN ';'
+                | RETURN expression ';'
 namespace_identifier
         : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
         | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
         | namespace_identifier '::' IDENTIFIER
+                : IDENTIFIER            { result = NamespacePath.new( val[0].val, false ) }
+                | '::' IDENTIFIER       { result = NamespacePath.new( val[1].val, true ) }
+                | namespace_identifier '::' IDENTIFIER
                 { result = val[0].append!( val[2].val ) }
+asm_statement
+                : _ASM {
+                while true
+                        # ';' が表れるまで、トークンを読み飛ばす。
+                        # gcc の構文拡張に対応すべきだが、単純な実装として、';' まで読み飛ばす。
+                        # トークン単位で読み飛ばしているので、文字列やコメント内の ';' は対象にならない。
+                        token = next_token
+                        if token[1].val == ";"
+                                break
+                        end
+                        # p "skip: #{token[1].val}"
+                end
+                }
 end
 ---- inner
+  RESERVED = {
+    # keyword
+    'typedef' => :TYPEDEF,
+    'struct' => :STRUCT,
+    'union' => :UNION,
+    'sizeof' => :SIZEOF,
+    'throw' => :THROW,
+    # specifier
+    # types
+    'void'    => :VOID,
+    'char'    => :CHAR,
+    'short'   => :SHORT,
+    'volatile'=> :VOLATILE,
+    'const'   => :CONST,
+    'extern'   => :EXTERN,
+    'long'    => :LONG,
+    'float'   => :FLOAT,
+    'double'  => :DOUBLE,
+    'signed'  => :SIGNED,
+    'unsigned'=> :UNSIGNED,
+    'int'     => :INT,
+    'enum'    => :ENUM,
+    'if'      => :IF,
+    'else'    => :ELSE,
+    'while'   => :WHILE,
+    'do'      => :DO,
+    'for'     => :FOR,
+    'case'    => :CASE,
+    'default' => :DEFAULT,
+    'goto'    => :GOTO,
+    'continue' => :CONTINUE,
+    'break'   => :BREAK,
+    'return'  => :RETURN,
+    '__inline__'  => :__INLINE__,
+    'inline'  => :INLINE,
+    '__inline'  => :__INLINE,
+    'Inline'  => :CINLINE,        # inline starting with Capital letter
+    'static'  => :STATIC,
+    'register' => :REGISTER,
+    'auto'    => :AUTO,
+    '__extension__'    => :EXTENSION,
+  }
+  @@generator_nest = -1
+  @@generator_stack = []
+  @@current_locale = []
+  def finalize
+    # mikan Namespace.pop
+    Celltype.pop
+    Cell.pop
+    CompositeCelltype.pop
+    Region.pop
+  end
+  def set_plugin( plugin )
+    @plugin = plugin
+  end
+  def self.get_plugin
+    @@generator_stack[@@generator_nest].get_plugin
+  end
+  def get_plugin
+    @plugin
+  end
+  def parse(files)
+    # mikan Namespace.push
+    Celltype.push
+    Cell.push
+    CompositeCelltype.push
+    Region.push
+    @@generator_nest += 1
+    @@generator_stack[@@generator_nest] = self
+    @b_no_type_name = false
+   begin
+    @q = []
+    comment = false
+    # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+    TECS_LANG::set_kcode_binary
+    # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+    integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+    files.each {|file|
+      lineno = 1
+     begin
+#2.0       IO.foreach(file) {|line|
+       TECSIO.foreach(file) {|line|
+        col = 1
+        line.rstrip!
+        until line.empty?
+          if comment
+            case line
+            # コメント終了
+            when /\A\*\//
+              comment = false
+            when /\A./
+              ;
+            end
+          else
+            case line
+            # 空白、プリプロセスディレクティブ
+            when /\A\s+/
+              ;
+            # 識別子
+            when /\A[a-zA-Z_]\w*/
+              word = $&
+              @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+            # 16 進数定数
+            when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+              @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+            # 8 進数定数
+            when /\A0[0-7]+#{integer_qualifier}/
+              @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+            # 浮動小数定数
+            when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+              @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+            # 整数定数
+            when /\A\d+#{integer_qualifier}/
+            # when /\A\d+/
+              @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+            # 文字
+            when /\A'(?:[^'\\]|\\.)'/
+              @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+            # 文字列
+#              "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#            when /\A"(?:[^"\\]+|\\.)*"/
+            when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+              @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+            # 行コメント
+            when /\A\/\/.*$/
+              # 読み飛ばすだけ
+            # コメント開始
+            when /\A\/\*/
+              comment = true
+            when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+              @q << [$&, Token.new($&, file, lineno, col)]
+            when /\A./
+              @q << [$&, Token.new($&, file, lineno, col)]
+            else
+              raise
+            end
+          end
+          line = $'
+          col += $&.length
+        end
+        lineno += 1
+      }
+     rescue => evar
+       Generator.error( "B1002 while open or reading \'$1\'" , file )
+       print_exception( evar )
+     end
+    }
+    # 終了の印
+    @q << nil
+    @yydebug = true
+    do_parse
+   ensure
+    @@generator_nest -= 1
+    TECS_LANG::reset_kcode
+   end
+  end
+  def next_token
+    token = @q.shift
+    if token then
+      @@current_locale[@@generator_nest] = token[1].locale
+      case token[1].val
+      when ";", ":", ",", "(", ")", "{", "}"
+        set_no_type_name false
+      when ".", "->"
+        set_no_type_name true
+      end
+      # TYPE_NAME トークンへ置き換え
+      if @b_no_type_name == false
+        if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+          token[0] = :TYPE_NAME
+          locale = @@current_locale[@@generator_nest]
+        RESERVED = {
+                # keyword
+                'typedef' => :TYPEDEF,
+                'struct' => :STRUCT,
+                'union' => :UNION,
+                'sizeof' => :SIZEOF,
+                'throw' => :THROW,
+                # specifier
+                # types
+                'void'    => :VOID,
+                'char'    => :CHAR,
+                'short'   => :SHORT,
+                'volatile'=> :VOLATILE,
+                'restrict'=> :RESTRICT,
+                'const'   => :CONST,
+                'extern'   => :EXTERN,
+                'long'    => :LONG,
+                'float'   => :FLOAT,
+                'double'  => :DOUBLE,
+                'signed'  => :SIGNED,
+                'unsigned'=> :UNSIGNED,
+                'int'     => :INT,
+                'enum'    => :ENUM,
+                'if'      => :IF,
+                'else'    => :ELSE,
+                'while'   => :WHILE,
+                'do'      => :DO,
+                'for'     => :FOR,
+                'switch'  => :SWITCH,
+                'case'    => :CASE,
+                'default' => :DEFAULT,
+                'goto'    => :GOTO,
+                'continue' => :CONTINUE,
+                'break'   => :BREAK,
+                'return'  => :RETURN,
+                '__inline__'  => :__INLINE__,
+                'inline'  => :INLINE,
+                '__inline'  => :__INLINE,
+                'Inline'  => :CINLINE,        # inline starting with Capital letter
+                'static'  => :STATIC,
+                'register' => :REGISTER,
+                'auto'    => :AUTO,
+                '__extension__'    => :EXTENSION,
+                '__asm__' => :_ASM,
+                'asm' =>     :_ASM
+        }
+        @@generator_nest = -1
+        @@generator_stack = []
+        @@current_locale = []
+        def finalize
+                # mikan Namespace.pop
+                Celltype.pop
+                Cell.pop
+                CompositeCelltype.pop
+                Region.pop
+        end
+        def set_plugin( plugin )
+                @plugin = plugin
+        end
+        def self.get_plugin
+                @@generator_stack[@@generator_nest].get_plugin
+        end
+        def get_plugin
+                @plugin
+        end
+        def parse(files)
+                # mikan Namespace.push
+                Celltype.push
+                Cell.push
+                CompositeCelltype.push
+                Region.push
+                @@generator_nest += 1
+                @@generator_stack[@@generator_nest] = self
+                @b_no_type_name = false
+        begin
+                @q = []
+                comment = false
+#               b_asm   = false
+                # euc のコメントを utf8 として扱うと、コメントの終わりを誤る問題の対策
+                TECS_LANG::set_kcode_binary
+                # 800U, 0xffLL など (整数リテラルに共通の修飾子)
+                integer_qualifier = "([Uu][Ll][Ll]|[Uu][Ll]|[Uu]|[Ll][Ll]|[Ll])?"
+                files.each {|file|
+                        lineno = 1
+                begin
+#2.0            IO.foreach(file) {|line|
+                        TECSIO.foreach(file) {|line|
+                        col = 1
+                        line.rstrip!
+                        until line.empty?
+                                if comment
+                                        case line
+                                        # コメント終了
+                                        when /\A\*\//
+                                                comment = false
+                                        when /\A./
+                                                ;
+                                        end
+                                else
+                                        case line
+                                        # 空白、プリプロセスディレクティブ
+                                        when /\A\s+/
+                                                ;
+                                        # 識別子
+                                        when /\A[a-zA-Z_]\w*/
+                                                word = $&
+                                                @q << [RESERVED[word] || :IDENTIFIER, Token.new(word.intern, file, lineno, col)]
+                                        # 16 進数定数
+                                        when /\A0x[0-9A-Fa-f]+#{integer_qualifier}/
+                                                @q << [:HEX_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 8 進数定数
+                                        when /\A0[0-7]+#{integer_qualifier}/
+                                                @q << [:OCTAL_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 浮動小数定数
+                                        when /\A[0-9]+\.([0-9]*)?([Ee][+-]?[0-9]+)?/
+                                                @q << [:FLOATING_CONSTANT, Token.new($&, file, lineno, col)]
+                                        # 整数定数
+                                        when /\A\d+#{integer_qualifier}/
+                                        # when /\A\d+/
+                                                @q << [:INTEGER_CONSTANT, Token.new($&.to_i, file, lineno, col)]
+                                        # 文字
+                                        when /\A'(?:[^'\\]|\\.)'/
+                                                @q << [:CHARACTER_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 文字列
+#                                       "#include  #include #include \"../systask/logtask.cfg\"       最後の " 忘れ)で無限ループ
+#                                       when /\A"(?:[^"\\]+|\\.)*"/
+                                        when /\A"(?:[^"\\]|\\.)*"/   # これはうまく行くようだ
+                                                @q << [:STRING_LITERAL, Token.new($&, file, lineno, col)]
+                                        # 行コメント
+                                        when /\A\/\/.*$/
+                                                # 読み飛ばすだけ
+                                        # コメント開始
+                                        when /\A\/\*/
+                                                comment = true
+                                        when /\A>>=/, /\A<<=/, /\A>>/,  /\A<</
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\+=/, /\A\-=/, /\A\*=/, /\A\/=/, /\A%=/, /\A&=/, /\A\|=/, /\A\^=/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A::/, /\A==/, /\A!=/, /\A>=/, /\A<=/, /\A\->/, /\A\+\+/, /\A\-\-/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A\|\|/, /\A\&\&/
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        when /\A./
+                                                @q << [$&, Token.new($&, file, lineno, col)]
+                                        else
+                                                raise
+                                        end
+                                end
+                                line = $'
+                                col += $&.length
+                        end
+                        lineno += 1
+                }
+                rescue => evar
+                        Generator.error( "B1002 while open or reading \'$1\'" , file )
+                        print_exception( evar )
+                end
+        }
+        # 終了の印
+        @q << nil
+        @yydebug = true
+        do_parse
+        ensure
+                @@generator_nest -= 1
+                TECS_LANG::reset_kcode
+        end
+        end
+        def next_token
+                token = @q.shift
+                if token then
+                        @@current_locale[@@generator_nest] = token[1].locale
+                        case token[1].val
+                        when ";", ":", ",", "(", ")", "{", "}"
+                        set_no_type_name false
+                        when ".", "->"
+                        set_no_type_name true
+                        end
+                        # TYPE_NAME トークンへ置き換え
+                        if @b_no_type_name == false
+                                if token[0] == :IDENTIFIER && Namespace.is_typename?( token[1].val ) then
+                                        token[0] = :TYPE_NAME
+                                        locale = @@current_locale[@@generator_nest]
 #print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}: type_name'\n" )
         end
       end
       if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
         locale = @@current_locale[@@generator_nest]
         if token then
           print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
         else
           print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
         end
       end
     end
     token
   end
   def on_error(t, v, vstack)
     if v == "$" then
      Generator.error( "B1003 Unexpected EOF"  )
     else
      Generator.error( "B1004 syntax error near \'$1\'" , v.val )
     end
   end
   def self.current_locale
     @@current_locale[ @@generator_nest ]
   end
   @@n_error = 0
   @@n_warning = 0
   @@n_info = 0
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
   def self.error( msg )
     @@n_error += 1
     locale = @@current_locale[ @@generator_nest ]
     if locale then
       Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
     else
       Console.puts "error: #{msg}"
     end
   end
   # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
   def self.warning( msg )
     @@n_warning += 1
     locale = @@current_locale[ @@generator_nest ]
     Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
   end
   # このメソッドは構文解析、意味解析からのみ呼出し可
   def self.info( msg )
     @@n_info += 1
     locale = @@current_locale[ @@generator_nest ]
     Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
   end
   def self.get_n_error
     @@n_error
   end
   def self.get_n_warning
     @@n_warning
   end
   def self.get_nest
     @@generator_nest
   end
   def set_no_type_name b_no_type_name
     locale = @@current_locale[ @@generator_nest ]
+                                end
+                        end
+                        if $debug then     # 070107 token 無効時ここを通さないようした (through 対応 -d の時に例外発生)
+                                locale = @@current_locale[@@generator_nest]
+                                if token then
+                                        print( "#{locale[0]}: line #{locale[1]} : #{token[0]} '#{token[1].val}'\n" )
+                                else
+                                        print( "#{locale[0]}: line #{locale[1]} : EOF\n" )
+                                end
+                        end
+                end
+                token
+        end
+        def on_error(t, v, vstack)
+                if v == "$" then
+                        Generator.error( "B1003 Unexpected EOF"  )
+                else
+                        Generator.error( "B1004 syntax error near \'$1\'" , v.val )
+                end
+        end
+        def self.current_locale
+                @@current_locale[ @@generator_nest ]
+        end
+        @@n_error = 0
+        @@n_warning = 0
+        @@n_info = 0
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でエラー発生は不適切）
+        def self.error( msg )
+                @@n_error += 1
+                locale = @@current_locale[ @@generator_nest ]
+                if locale then
+                        Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+                else
+                        Console.puts "error: #{msg}"
+                end
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可（コード生成でウォーニング発生は不適切）
+        def self.warning( msg )
+                @@n_warning += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        end
+        # このメソッドは構文解析、意味解析からのみ呼出し可
+        def self.info( msg )
+                @@n_info += 1
+                locale = @@current_locale[ @@generator_nest ]
+                Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
+        end
+        def self.get_n_error
+                @@n_error
+        end
+        def self.get_n_warning
+                @@n_warning
+        end
+        def self.get_nest
+                @@generator_nest
+        end
+        def set_no_type_name b_no_type_name
+                locale = @@current_locale[ @@generator_nest ]
 #print "b_no_type_name=#{b_no_type_name} #{locale[0]}: line #{locale[1]}\n"
     @b_no_type_name = b_no_type_name
   end
+                @b_no_type_name = b_no_type_name
+        end
 ---- footer

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.tab.rb

-              r337
+              r374
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
       end
       if locale then
         Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
       else
         Console.puts "info: #{msg}"
 …
 clist = [
 '66,575,328,666,538,872,78,330,562,328,78,78,78,163,199,200,201,202,203',
 '204,205,207,846,208,678,700,897,135,647,212,213,214,215,216,217,218',
 '679,249,761,711,565,547,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'66,575,328,559,538,815,78,330,869,328,78,78,78,409,199,200,201,202,203',
+'204,205,207,846,208,678,135,897,135,647,212,213,214,215,216,217,218',
+'249,679,177,872,870,408,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
 '25,26,27,28,29,30,31,32,33,34,35,38,465,189,693,333,334,42,43,44,45',
+'46,47,48,49,896,180,644,256,559,177,815,163,135,189,135,135,135,135',
+'189,66,189,189,70,68,69,135,71,72,328,73,78,74,304,305,324,860,901,189',
+'255,162,325,136,327,189,75,75,75,76,77,77,77,135,88,189,189,189,189',
+'79,87,101,80,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,426,569,668,899,42,43,44,45,46,47,48,49,189',
+'178,189,136,66,136,136,136,136,256,135,446,89,100,78,78,136,328,70,68',
+'69,667,71,72,135,73,571,74,304,305,324,135,135,135,478,868,325,479,327',
+'867,399,75,136,76,89,77,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,450,48,49,400,839,42,43,44,45,46',
+'47,48,49,135,135,328,838,66,304,305,306,607,307,308,310,311,406,208',
+'78,136,136,70,68,69,401,71,72,797,73,150,74,78,149,136,654,304,305,324',
+'78,796,136,136,136,325,75,327,76,407,77,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,835,163,403,661,402',
+'42,43,44,45,46,47,48,49,163,648,826,403,88,697,136,136,432,78,87,681',
+'816,574,89,208,520,720,70,68,69,660,71,72,532,73,196,74,510,636,827',
+'199,200,201,202,203,204,205,207,208,208,75,682,76,135,77,212,213,214',
+'215,216,217,218,304,305,306,889,307,308,310,311,199,200,201,202,203',
+'204,205,207,817,208,635,747,518,135,637,212,213,214,215,216,217,218',
+'529,888,415,199,200,201,202,203,204,205,207,341,208,342,528,343,135',
+'234,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,414',
+'208,270,878,235,135,719,212,213,214,215,216,217,218,525,277,589,504',
+'691,314,180,136,582,590,721,581,199,200,201,202,203,204,205,207,879',
+'208,720,587,163,135,776,212,213,214,215,216,217,218,503,690,313,136',
+'199,200,201,202,203,204,205,207,264,208,523,698,282,135,770,212,213',
+'214,215,216,217,218,347,582,136,275,581,348,349,898,180,850,199,200',
+'201,202,203,204,205,207,163,208,699,283,91,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,851,208,722,833,691,135,162',
+'212,213,214,215,216,217,218,630,163,88,887,136,902,478,886,87,479,347',
+'859,89,163,409,348,349,88,631,699,832,794,903,87,904,234,592,89,629',
+'170,136,199,200,201,202,203,204,205,207,858,208,564,408,90,135,235,212',
+'213,214,215,216,217,218,522,199,200,201,202,203,204,205,207,136,208',
+'521,150,906,135,149,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,136,208,394,395,396,135,360,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,361,208,394,395,396,135,362,212,213',
+'214,215,216,217,218,145,146,363,199,200,201,202,203,204,205,207,437',
+'208,287,288,454,135,136,212,213,214,215,216,217,218,234,354,355,356',
+'357,591,436,438,439,440,441,456,457,458,455,136,347,350,351,515,235',
+'348,349,199,200,201,202,203,204,205,207,907,208,352,353,514,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,513,208',
+'358,359,512,135,136,212,213,214,215,216,217,218,364,365,511,199,200',
+'201,202,203,204,205,207,208,208,404,336,482,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,481,208,517,518,474,135',
+'473,212,213,214,215,216,217,218,472,199,200,201,202,203,204,205,207',
+'470,208,350,351,463,135,136,212,213,214,215,216,217,218,350,351,234',
+'354,355,356,357,607,454,737,738,740,741,437,136,88,352,353,196,739,785',
+'87,235,608,234,89,610,743,742,456,457,458,455,436,438,439,440,441,611',
+'136,354,355,356,357,235,352,353,199,200,201,202,203,204,205,207,336',
+'208,352,353,612,135,136,212,213,214,215,216,217,218,614,199,200,201',
+'202,203,204,205,207,472,208,352,353,615,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,616,208,358,359,617,135,618',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,208,208',
+'594,336,908,135,621,212,213,214,215,216,217,218,620,288,163,199,200',
+'201,202,203,204,205,207,462,208,787,788,459,135,136,212,213,214,215',
+'216,217,218,625,199,200,201,202,203,204,205,207,448,208,789,790,445',
+'46,47,48,49,896,88,644,406,666,761,711,87,135,871,135,135,135,135,189',
+'66,189,189,70,68,69,135,71,72,328,73,78,74,304,305,324,860,901,189,407',
+'136,325,136,327,189,75,75,75,76,77,77,77,135,874,178,189,189,189,79',
+'875,101,80,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+'29,30,31,32,33,34,35,38,78,364,365,256,899,42,43,44,45,46,47,48,49,189',
+'189,189,136,66,136,136,136,136,878,135,135,89,100,78,78,136,328,70,68',
+'69,399,71,72,135,73,877,74,304,305,324,135,446,135,478,868,325,479,327',
+'867,879,75,136,76,89,77,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,450,48,49,314,838,42,43,44,45,46',
+'47,48,49,135,135,839,135,66,304,305,306,135,307,308,310,311,691,838',
+'78,136,136,70,68,69,313,71,72,275,73,880,74,78,180,136,816,304,305,324',
+'78,881,136,136,136,325,75,327,76,690,77,5,6,7,10,13,14,15,16,17,18,19',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,835,426,403,282,697',
+'42,43,44,45,46,47,48,49,163,817,163,620,288,277,136,136,432,136,180',
+'504,78,150,136,654,149,720,70,68,69,283,71,72,403,73,402,74,520,636',
+'162,199,200,201,202,203,204,205,207,328,208,75,503,76,135,77,212,213',
+'214,215,216,217,218,304,305,306,859,307,308,310,311,199,200,201,202',
+'203,204,205,207,889,208,635,648,883,135,637,212,213,214,215,216,217',
+'218,884,858,681,199,200,201,202,203,204,205,207,341,208,342,888,343',
+'135,234,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'682,208,885,668,235,135,661,212,213,214,215,216,217,218,88,789,790,691',
+'256,400,87,136,150,890,89,149,199,200,201,202,203,204,205,207,667,208',
+'891,660,163,135,776,212,213,214,215,216,217,218,794,255,401,136,199',
+'200,201,202,203,204,205,207,892,208,719,415,850,135,162,212,213,214',
+'215,216,217,218,887,898,136,902,886,582,721,903,581,833,199,200,201',
+'202,203,204,205,207,720,208,414,851,904,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,832,208,722,698,826,135,906',
+'212,213,214,215,216,217,218,163,163,88,478,136,907,479,582,87,908,581',
+'607,89,163,3,163,88,910,827,699,699,81,87,352,353,234,89,797,170,770',
+'136,199,200,201,202,203,204,205,207,796,208,547,587,564,135,235,212',
+'213,214,215,216,217,218,90,199,200,201,202,203,204,205,207,136,208,394',
+'395,396,135,91,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,136,208,394,395,396,135,92,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,207,163,208,350,351,96,135,124,212,213,214,215,216,217',
+'218,594,336,125,199,200,201,202,203,204,205,207,126,208,130,510,132',
+'135,136,212,213,214,215,216,217,218,134,199,200,201,202,203,204,205',
+'207,140,208,352,353,142,135,136,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,143,208,404,336,144,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,147,208,358,359,155,135',
+'136,212,213,214,215,216,217,218,350,351,156,199,200,201,202,203,204',
+'205,207,159,208,350,351,160,135,136,212,213,214,215,216,217,218,164',
+'199,200,201,202,203,204,205,207,165,208,358,359,166,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,167,208,630,437',
+'168,135,136,212,213,214,215,216,217,218,352,353,234,747,518,171,631',
+'287,288,436,438,439,440,441,136,347,629,172,347,173,348,349,235,348',
+'349,199,200,201,202,203,204,205,207,174,208,352,353,175,135,136,212',
+'213,214,215,216,217,218,176,199,200,201,202,203,204,205,207,180,208',
+'184,772,185,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,454,208,145,146,186,135,136,212,213,214,215,216,217,218',
+'347,187,234,517,518,348,349,456,457,458,455,199,200,201,202,203,204',
+'205,207,454,208,188,235,189,135,191,212,213,214,215,216,217,218,354',
+'355,356,357,787,788,136,456,457,458,455,354,355,356,357,199,200,201',
+'202,203,204,205,207,437,208,382,383,384,135,136,212,213,214,215,216',
+'217,218,377,378,379,380,381,385,436,438,439,440,441,304,305,306,136',
+'307,308,310,311,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,136,354,355,356,357,42,43,44,45,46,47,48',
+'49,199,200,201,202,203,204,205,207,192,208,352,353,193,135,196,212,213',
+'214,215,216,217,218,247,89,136,199,200,201,202,203,204,205,207,257,208',
+'159,264,208,135,270,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,180,208,272,279,280,135,281,212,213,214,215,216,217,218',
+'234,284,285,286,289,290,199,200,201,202,203,204,205,207,312,208,335',
+'189,336,135,235,212,213,214,215,216,217,218,360,199,200,201,202,203',
+'204,205,207,136,208,361,670,362,135,363,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,368,208,369,136,371,135,372,212,213',
+'214,215,216,217,218,159,199,200,201,202,203,204,205,207,405,208,136',
+'587,410,135,142,212,213,214,215,216,217,218,412,413,199,200,201,202',
+'203,204,205,207,416,208,417,418,419,135,136,212,213,214,215,216,217',
+'218,420,199,200,201,202,203,204,205,207,421,208,444,445,448,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,459,208',
+'462,772,463,135,136,212,213,214,215,216,217,218,470,88,234,88,382,383',
+'384,87,472,87,473,89,474,89,481,136,377,378,379,380,381,385,235,482',
+'208,199,200,201,202,203,204,205,207,511,208,512,513,514,135,136,212',
+'213,214,215,216,217,218,515,199,200,201,202,203,204,205,207,521,208',
+'522,523,264,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,525,208,270,528,529,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,208,208,532,208,208,135,180,212,213',
+'214,215,216,217,218,536,537,540,199,200,201,202,203,204,205,207,541',
+'208,542,544,545,135,136,212,213,214,215,216,217,218,737,738,740,741',
+'548,189,270,558,562,196,739,737,738,740,741,136,565,189,743,742,196',
+'739,234,592,569,88,88,571,88,743,742,87,87,88,87,89,89,136,89,87,328',
+'574,235,89,196,199,200,201,202,203,204,205,207,589,208,590,700,360,135',
+'136,212,213,214,215,216,217,218,361,362,472,199,200,201,202,203,204',
+'205,207,363,208,472,591,607,135,136,212,213,214,215,216,217,218,199',
+'200,201,202,203,204,205,207,608,208,611,336,612,135,614,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,615,208,616,617,618',
+'135,208,212,213,214,215,216,217,218,621,737,738,740,741,163,625,88,88',
+'641,196,739,785,87,87,136,643,89,89,743,742,625,662,663,669,674,199',
+'200,201,202,203,204,205,207,675,208,676,680,683,135,136,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,685,208,686,687,688',
+'135,136,212,213,214,215,216,217,218,472,104,105,106,107,108,109,110',
+'111,112,113,114,689,189,136,692,208,695,704,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,163,706,707',
+'708,163,42,43,44,45,46,47,48,49,710,712,136,117,118,119,120,121,122',
+'123,199,200,201,202,203,204,205,207,713,208,714,715,718,135,136,212',
+'213,214,215,216,217,218,199,200,201,202,203,204,205,207,723,208,726',
+'571,75,135,729,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,730,208,196,744,745,135,748,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,749,208,752,753,754,135,756,212,213,214,215',
+'216,217,218,625,759,760,764,199,200,201,202,203,204,205,207,767,208',
+'771,779,780,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,782,208,783,791,793,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,189,208,795,798,799,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,800,208,803,804',
+'805,135,136,212,213,214,215,216,217,218,806,654,718,180,199,200,201',
+'202,203,204,205,207,811,208,812,813,814,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,726,208,823,828,831,135,136',
+'212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,836,208',
+'840,841,-386,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,842,208,843,237,844,135,136,212,213,214,215,216,217,218',
+'848,803,208,854,199,200,201,202,203,204,205,207,857,208,862,863,865',
 '135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'444,208,421,772,641,135,136,212,213,214,215,216,217,218,88,88,234,382',
+'383,384,87,87,420,643,89,89,419,418,136,377,378,379,380,381,385,417',
+'235,416,625,199,200,201,202,203,204,205,207,413,208,412,662,663,135',
+'136,212,213,214,215,216,217,218,142,199,200,201,202,203,204,205,207',
+'410,208,405,159,669,135,136,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,207,372,208,371,369,674,135,136,212,213,214,215,216',
+'217,218,199,200,201,202,203,204,205,207,368,208,675,237,676,135,363',
+'212,213,214,215,216,217,218,304,305,306,234,307,308,310,311,362,199',
+'200,201,202,203,204,205,207,136,208,361,680,360,135,235,212,213,214',
+'215,216,217,218,683,199,200,201,202,203,204,205,207,136,208,336,685',
+'686,135,687,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,136,208,688,689,189,135,692,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,136,208,335,208,695,135,312,212,213,214,215',
+'216,217,218,290,289,286,199,200,201,202,203,204,205,207,285,208,704',
+'163,706,135,136,212,213,214,215,216,217,218,737,738,740,741,707,708',
+'88,88,163,196,739,710,87,87,284,136,89,89,743,742,712,713,714,199,200',
+'201,202,203,204,205,207,715,208,718,281,280,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,723,208,726,571,75,135,136',
+'212,213,214,215,216,217,218,729,730,472,20,21,22,23,24,25,26,27,28,29',
+'30,31,32,33,136,196,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25',
+'26,27,28,29,30,31,32,33,34,35,38,279,744,745,272,3,42,43,44,45,46,47',
+'48,49,748,749,136,117,118,119,120,121,122,123,199,200,201,202,203,204',
+'205,207,750,208,610,752,753,135,136,212,213,214,215,216,217,218,199',
+'200,201,202,203,204,205,207,754,208,180,756,625,135,759,212,213,214',
+'215,216,217,218,199,200,201,202,203,204,205,207,760,208,270,208,264',
+'135,764,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'159,208,257,767,89,135,247,212,213,214,215,216,217,218,771,196,193,192',
+'199,200,201,202,203,204,205,207,779,208,780,191,782,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,783,208,189,81,910',
+'135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+'791,208,188,793,187,135,136,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,207,795,208,186,670,798,135,136,212,213,214,215,216',
+'217,218,799,800,803,804,199,200,201,202,203,204,205,207,805,208,806',
+'654,718,135,136,212,213,214,215,216,217,218,737,738,740,741,180,88,88',
+'88,811,196,739,87,87,87,136,89,89,89,743,742,812,813,199,200,201,202',
+'203,204,205,207,814,208,185,184,726,135,136,212,213,214,215,216,217',
+'218,199,200,201,202,203,204,205,207,823,208,180,176,175,135,136,212',
+'213,214,215,216,217,218,382,383,384,472,117,118,119,120,121,122,123',
+'828,377,378,379,380,381,385,136,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,174,173,831,172,171,42',
+'43,44,45,46,47,48,49,168,836,136,167,166,840,841,-386,842,843,199,200',
+'201,202,203,204,205,207,844,208,165,164,160,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,345,848,208,803,159,156,135',
+'208,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,854',
+'208,155,147,857,135,144,212,213,214,215,216,217,218,199,200,201,202',
+'203,204,205,207,143,208,862,863,142,135,865,212,213,214,215,216,217',
+'218,140,869,870,871,199,200,201,202,203,204,205,207,134,208,132,874',
+'875,135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205',
+'207,130,208,877,126,838,135,136,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,880,208,881,587,328,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,883,208,884,885,125,135',
+'136,212,213,214,215,216,217,218,124,890,891,234,104,105,106,107,108',
+'109,110,111,112,113,114,88,892,96,136,92,544,87,545,235,542,89,199,200',
+'201,202,203,204,205,207,548,208,189,270,541,135,136,212,213,214,215',
+'216,217,218,199,200,201,202,203,204,205,207,540,208,558,537,536,135',
+'136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207,,208',
+',,,135,136,212,213,214,215,216,217,218,199,200,201,202,203,204,205,207',
+',208,,,,135,,212,213,214,215,216,217,218,,,,,199,200,201,202,203,204',
+'205,207,,208,,772,,135,136,212,213,214,215,216,217,218,199,200,201,202',
+'203,204,205,207,,208,,,,135,136,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,,208,,,,135,136,212,213,214,215,216,217,218',
+'199,200,201,202,203,204,205,207,,208,,,,135,136,212,213,214,215,216',
+'217,218,,,,,199,200,201,202,203,204,205,207,,208,,,,135,136,212,213',
+'214,215,216,217,218,199,200,201,202,203,204,205,207,,208,,,,135,136',
+'212,213,214,215,216,217,218,737,738,740,741,,88,,,,196,739,87,,,136',
+'89,,,743,742,,,,,,,,,,,,,,,,,136,104,105,106,107,108,109,110,111,112',
+'113,114,,,,478,585,,584,,,,,,,89,136,,,,,,,472,,,,,,117,118,119,120',
+'121,122,123,,,136,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,241,,78,,,42,43,44,45,46,47,48,49,,,,',
+',,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,672,,78,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
+',208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203,204',
+'205,207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202',
+'203,204,205,207,,208,,,,135,136,212,213,214,215,216,217,218,88,,,,,',
+'87,,,88,89,737,738,740,741,87,,,136,89,196,739,,,,234,,,,743,742,117',
+'118,119,120,121,122,123,,,136,,,,,235,,,199,200,201,202,203,204,205',
+'207,,208,,,,135,136,212,213,214,215,216,217,218,199,200,201,202,203',
+'204,205,207,,208,472,,,135,136,212,213,214,215,216,217,218,199,200,201',
+'202,203,204,205,345,,208,,,,135,,212,213,214,215,216,217,218,199,200',
+'201,202,203,204,205,207,,208,,,,135,,212,213,214,215,216,217,218,,,',
+'104,105,106,107,108,109,110,111,112,113,114,,,,,136,,,,,,,104,105,106',
+'107,108,109,110,111,112,113,114,,,,,136,117,118,119,120,121,122,123',
+',,,478,585,,584,,,,,,,89,136,117,118,119,120,121,122,123,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,136,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,672,,78,,,42,43,44,45,46',
+'47,48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
+'23,24,25,26,27,28,29,30,31,32,33,34,35,38,241,,78,,,42,43,44,45,46,47',
+'48,49,,,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49',
+',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
+'27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,506,,,',
+',,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,78,428,,,,42,43,44,45,46,47,48,49,,,,,,,',
+',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
 '29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
 ',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
+'31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,506,,,,,,,,,,,,,,,',
+',,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6',
+'7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
+'34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13',
+'14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38',
+'78,428,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15',
+'16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,',
+',,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17',
+'18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,387,,,,42',
+'31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5',
+'6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
+'34,35,38,78,632,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10',
+'13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35',
+'38,78,638,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14',
+'15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,128',
+'658,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16',
+'17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42',
 '43,44,45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19',
 '20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45',
 '46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
 '23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48',
 '49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25',
 '26,27,28,29,30,31,32,33,34,35,38,128,516,,,,42,43,44,45,46,47,48,49',
+'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,516,,,,42,43,44',
+'45,46,47,48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21',
+'22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47',
+'48,49,,,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
+'25,26,27,28,29,30,31,32,33,34,35,38,78,387,,,,42,43,44,45,46,47,48,49',
 ',,,,,,,,,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26',
 '27,28,29,30,31,32,33,34,35,38,78,,,,,42,43,44,45,46,47,48,49,,,,,,,',
 ',,,,,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
-'29,30,31,32,33,34,35,38,78,632,,,,42,43,44,45,46,47,48,49,,,,,,,,,,',
-',,,,,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29',
-'30,31,32,33,34,35,38,78,638,,,,42,43,44,45,46,47,48,49,,,,,,,,,,,,,',
-',,,,,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30',
-'31,32,33,34,35,38,,658,,,,42,43,44,45,46,47,48,49,104,105,106,107,108',
-'109,110,111,112,113,114,,,,,,,,,,,,,,,,,,,,,,,,,,,,117,118,119,120,121',
-'122,123,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29',
-'30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15',
-'16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,',
-'42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24',
-'25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6',
-'7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33',
-'34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19',
-'20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45',
-'46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28',
 '29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14',
 '15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,',
 ',,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23',
+'24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3623, nil)
+'24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49',
+'5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32',
+'33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18',
+'19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44',
+'45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27',
+'28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48,49,5,6,7,10,13',
+'14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,38',
+',,,,,42,43,44,45,46,47,48,49,5,6,7,10,13,14,15,16,17,18,19,20,21,22',
+'23,24,25,26,27,28,29,30,31,32,33,34,35,38,,,,,,42,43,44,45,46,47,48',
+'49,5,6,7,10,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31',
+'32,33,34,35,38,,,,,,42,43,44,45,46,47' ]
+        racc_action_table = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 clist = [
+'2,469,843,576,422,856,192,194,450,192,329,2,613,434,630,630,630,630',
+'630,630,630,630,824,630,596,630,893,630,560,630,630,630,630,630,630',
+'630,597,154,703,642,454,434,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,329,422,613,194,194,2,2,2,2,2,2,2,2,893,414,560,157',
+'447,125,777,573,721,460,558,631,303,470,576,291,856,469,2,2,2,839,2',
+'2,563,2,291,2,192,192,192,843,895,824,157,573,192,630,192,596,329,2',
+'613,2,329,2,613,782,85,703,642,597,154,2,85,41,2,291,291,291,291,291',
+'2,469,843,447,422,777,192,194,852,192,329,2,613,269,515,515,515,515',
+'515,515,515,515,824,515,596,325,893,515,560,515,515,515,515,515,515',
+'515,154,597,125,856,853,269,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2',
+'2,2,2,2,2,2,2,2,329,422,613,194,194,2,2,2,2,2,2,2,2,893,85,560,267,576',
+'703,642,85,721,855,631,558,528,511,447,161,777,469,2,2,2,92,2,2,563',
+'2,161,2,192,192,192,843,895,824,267,325,192,515,192,596,329,2,613,2',
+'329,2,613,75,860,125,856,154,597,2,861,41,2,161,161,161,161,161,161',
+'161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161',
+'161,161,161,161,161,187,230,230,258,895,161,161,161,161,161,161,161',
+'161,576,703,642,721,185,631,558,528,511,866,691,303,89,41,315,185,92',
+'315,161,161,161,258,161,161,333,161,863,161,563,563,563,286,308,782',
+'340,851,563,340,563,851,866,161,75,161,340,161,185,185,185,185,185,185',
+'185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185',
+'185,185,185,185,185,315,89,89,190,869,185,185,185,185,185,185,185,185',
+'839,470,812,692,291,187,187,187,512,187,187,187,187,609,812,291,691',
+'303,185,185,185,190,185,185,171,185,872,185,778,171,333,778,315,315',
+'315,294,873,286,308,782,315,185,315,185,609,185,291,291,291,291,291',
 '291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291,291',
+'291,291,291,291,291,291,187,291,461,577,895,291,291,291,291,291,291',
+'291,291,447,125,777,721,185,558,631,303,470,258,286,308,89,41,315,185',
+'839,315,291,291,291,577,291,291,92,291,462,291,563,563,563,512,75,325',
+'340,851,563,340,563,851,258,291,782,291,340,291,185,185,185,185,185',
+'185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185,185',
+'185,185,185,185,185,185,315,89,89,262,812,185,185,185,185,185,185,185',
+'185,511,333,463,812,161,187,187,187,756,187,187,187,187,267,413,161',
+'286,308,185,185,185,262,185,185,756,185,148,185,561,148,92,561,315,315',
+'315,294,756,512,75,325,315,185,315,185,267,185,161,161,161,161,161,161',
+'161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161,161',
+'161,161,161,161,161,808,392,264,568,264,161,161,161,161,161,161,161',
+'161,375,561,784,625,127,625,511,333,294,778,127,599,778,465,127,412',
+'392,808,161,161,161,568,161,161,411,161,472,161,375,553,784,720,720',
+'720,720,720,720,720,720,410,720,161,599,161,720,161,720,720,720,720',
+'720,720,720,294,294,294,880,294,294,294,294,257,257,257,257,257,257',
+'257,257,778,257,553,684,684,257,553,257,257,257,257,257,257,257,409',
+'880,278,474,474,474,474,474,474,474,474,210,474,210,408,210,474,720',
+'474,474,474,474,474,474,474,403,403,403,403,403,403,403,403,278,403',
+'407,866,720,403,653,403,403,403,403,403,403,403,402,172,480,366,609',
+'190,172,720,580,483,653,580,479,479,479,479,479,479,479,479,866,479',
+'653,479,716,479,720,479,479,479,479,479,479,479,366,609,190,257,889',
+'889,889,889,889,889,889,889,401,889,396,626,176,889,716,889,889,889',
+'889,889,889,889,488,477,474,171,477,488,488,894,171,834,504,504,504',
+'504,504,504,504,504,102,504,626,176,9,504,403,504,504,504,504,504,504',
+'504,862,862,862,862,862,862,862,862,834,862,657,801,751,862,102,862',
+'862,862,862,862,862,862,549,115,253,879,479,897,476,879,253,476,221',
+'841,253,452,269,221,221,88,549,657,801,751,898,88,901,504,504,88,549',
+'115,889,859,859,859,859,859,859,859,859,841,859,452,269,8,859,504,859',
+'859,859,859,859,859,859,395,513,513,513,513,513,513,513,513,504,513',
+'394,86,904,513,86,513,513,513,513,513,513,513,848,848,848,848,848,848',
+'848,848,862,848,254,254,254,848,498,848,848,848,848,848,848,848,359',
+'359,359,359,359,359,359,359,499,359,520,520,520,359,500,359,359,359',
+'359,359,359,359,82,82,501,358,358,358,358,358,358,358,358,547,358,181',
+'181,564,358,859,358,358,358,358,358,358,358,848,496,496,496,496,502',
+'547,547,547,547,547,564,564,564,564,513,487,222,222,384,848,487,487',
+'806,806,806,806,806,806,806,806,905,806,223,223,383,806,848,806,806',
+'806,806,806,806,806,357,357,357,357,357,357,357,357,382,357,225,225',
+'381,357,359,357,357,357,357,357,357,357,230,230,380,797,797,797,797',
+'797,797,797,797,368,797,265,265,343,797,358,797,797,797,797,797,797',
+'797,796,796,796,796,796,796,796,796,342,796,389,389,338,796,337,796',
+'796,796,796,796,796,796,335,356,356,356,356,356,356,356,356,334,356',
+'489,489,327,356,806,356,356,356,356,356,356,356,490,490,797,495,495',
+'495,495,525,318,739,739,739,739,297,357,696,491,491,739,739,739,696',
+'797,526,796,696,528,739,739,318,318,318,318,297,297,297,297,297,529',
+'797,224,224,224,224,796,492,492,355,355,355,355,355,355,355,355,530',
+'355,493,493,531,355,796,355,355,355,355,355,355,355,533,354,354,354',
+'354,354,354,354,354,739,354,494,494,534,354,356,354,354,354,354,354',
+'354,354,353,353,353,353,353,353,353,353,535,353,497,497,536,353,537',
+'353,353,353,353,353,353,353,352,352,352,352,352,352,352,352,538,352',
+'505,505,906,352,543,352,352,352,352,352,352,352,539,539,544,748,748',
+'748,748,748,748,748,748,326,748,742,742,324,748,355,748,748,748,748',
+'748,748,748,548,729,729,729,729,729,729,729,729,309,729,743,743,307',
+'729,354,729,729,729,729,729,729,729,719,719,719,719,719,719,719,719',
+'306,719,285,719,557,719,353,719,719,719,719,719,719,719,430,602,748',
+'246,246,246,430,602,284,559,430,602,283,282,352,246,246,246,246,246',
+'246,281,748,280,565,351,351,351,351,351,351,351,351,276,351,274,570',
+'572,351,748,351,351,351,351,351,351,351,272,147,147,147,147,147,147',
+'147,147,271,147,266,256,578,147,729,147,147,147,147,147,147,147,350',
+'350,350,350,350,350,350,350,242,350,240,236,583,350,719,350,350,350',
+'350,350,350,350,149,149,149,149,149,149,149,149,235,149,586,149,588',
+'149,229,149,149,149,149,149,149,149,546,546,546,147,546,546,546,546',
+'228,349,349,349,349,349,349,349,349,351,349,227,598,226,349,147,349',
+'349,349,349,349,349,349,600,714,714,714,714,714,714,714,714,147,714',
+'206,604,605,714,606,714,714,714,714,714,714,714,348,348,348,348,348',
+'348,348,348,350,348,607,608,198,348,611,348,348,348,348,348,348,348',
+'710,710,710,710,710,710,710,710,149,710,195,616,619,710,189,710,710',
+'710,710,710,710,710,184,183,179,347,347,347,347,347,347,347,347,178',
+'347,632,634,636,347,349,347,347,347,347,347,347,347,827,827,827,827',
+'637,638,373,288,640,827,827,641,373,288,177,714,373,288,827,827,643',
+'644,646,706,706,706,706,706,706,706,706,648,706,651,175,174,706,348',
+'706,706,706,706,706,706,706,345,345,345,345,345,345,345,345,658,345',
+'662,663,664,345,710,345,345,345,345,345,345,345,665,666,827,36,36,36',
+'36,36,36,36,36,36,36,36,36,36,36,347,668,345,345,345,345,345,345,345',
+'345,345,345,345,345,345,345,345,345,345,345,345,345,345,345,345,345',
+'345,345,345,345,173,671,673,169,1,345,345,345,345,345,345,345,345,688',
+'689,706,260,260,260,260,260,260,260,515,515,515,515,515,515,515,515',
+'691,515,692,693,694,515,345,515,515,515,515,515,515,515,166,166,166',
+'166,166,166,166,166,695,166,168,697,699,166,700,166,166,166,166,166',
+'166,166,341,341,341,341,341,341,341,341,701,341,167,165,164,341,707',
+'341,341,341,341,341,341,341,682,682,682,682,682,682,682,682,160,682',
+'159,711,152,682,151,682,682,682,682,682,682,682,718,144,141,139,521',
+'521,521,521,521,521,521,521,725,521,727,138,730,521,515,521,521,521',
+'521,521,521,521,522,522,522,522,522,522,522,522,731,522,137,3,909,522',
+'166,522,522,522,522,522,522,522,523,523,523,523,523,523,523,523,746',
+'523,136,749,133,523,341,523,523,523,523,523,523,523,581,581,581,581',
+'581,581,581,581,755,581,131,581,760,581,682,581,581,581,581,581,581',
+'581,761,763,764,766,908,908,908,908,908,908,908,908,767,908,768,769',
+'770,908,521,908,908,908,908,908,908,908,783,783,783,783,771,146,518',
+'245,772,783,783,146,518,245,522,146,518,245,783,783,773,775,290,290',
+'290,290,290,290,290,290,776,290,129,128,780,290,523,290,290,290,290',
+'290,290,290,207,207,207,207,207,207,207,207,781,207,126,124,123,207',
+'581,207,207,207,207,207,207,207,510,510,510,783,170,170,170,170,170',
+'170,170,793,510,510,510,510,510,510,908,207,207,207,207,207,207,207',
+'291,291,291,291,291,291,808,291,625,176,625,291,291,291,291,291,291',
+'291,291,392,778,573,539,539,172,839,470,294,692,172,366,561,86,512,561',
+'86,808,291,291,291,176,291,291,264,291,264,291,392,553,573,720,720,720',
+'720,720,720,720,720,874,720,291,366,291,720,291,720,720,720,720,720',
+'720,720,294,294,294,841,294,294,294,294,902,902,902,902,902,902,902',
+'902,880,902,553,561,876,902,553,902,902,902,902,902,902,902,877,841',
+'599,889,889,889,889,889,889,889,889,210,889,210,880,210,889,720,889',
+'889,889,889,889,889,889,521,521,521,521,521,521,521,521,599,521,878',
+'577,720,521,568,521,521,521,521,521,521,521,430,743,743,751,157,262',
+'430,720,148,881,430,148,522,522,522,522,522,522,522,522,577,522,882',
+'568,102,522,720,522,522,522,522,522,522,522,751,157,262,902,523,523',
+'523,523,523,523,523,523,883,523,653,278,834,523,102,523,523,523,523',
+'523,523,523,879,894,889,897,879,580,653,898,580,801,234,234,234,234',
+'234,234,234,234,653,234,278,834,901,234,521,234,234,234,234,234,234',
+'234,166,166,166,166,166,166,166,166,801,166,657,626,784,166,904,166',
+'166,166,166,166,166,166,115,716,518,476,522,905,476,477,518,906,477',
+'756,518,434,1,452,127,909,784,657,626,3,127,494,494,234,127,756,115',
+'716,523,479,479,479,479,479,479,479,479,756,479,434,479,452,479,234',
+'479,479,479,479,479,479,479,8,358,358,358,358,358,358,358,358,234,358',
+'520,520,520,358,9,358,358,358,358,358,358,358,363,363,363,363,363,363',
+'363,363,166,363,254,254,254,363,16,363,363,363,363,363,363,363,360,360',
+'360,360,360,360,360,360,375,360,222,222,38,360,68,360,360,360,360,360',
+'360,360,505,505,69,361,361,361,361,361,361,361,361,70,361,72,375,73',
+'361,479,361,361,361,361,361,361,361,74,682,682,682,682,682,682,682,682',
+'76,682,223,223,77,682,358,682,682,682,682,682,682,682,862,862,862,862',
+'862,862,862,862,79,862,265,265,80,862,363,862,862,862,862,862,862,862',
+'362,362,362,362,362,362,362,362,84,362,225,225,94,362,360,362,362,362',
+'362,362,362,362,489,489,95,797,797,797,797,797,797,797,797,100,797,490',
+'490,101,797,361,797,797,797,797,797,797,797,104,811,811,811,811,811',
+'811,811,811,106,811,497,497,108,811,682,811,811,811,811,811,811,811',
+'838,838,838,838,838,838,838,838,110,838,549,297,114,838,862,838,838',
+'838,838,838,838,838,491,491,797,684,684,117,549,181,181,297,297,297',
+'297,297,362,487,549,118,221,119,487,487,797,221,221,796,796,796,796',
+'796,796,796,796,122,796,492,492,123,796,797,796,796,796,796,796,796',
+'796,124,835,835,835,835,835,835,835,835,126,835,128,835,129,835,811',
+'835,835,835,835,835,835,835,514,514,514,514,514,514,514,514,318,514',
+'82,82,131,514,838,514,514,514,514,514,514,514,488,133,796,389,389,488',
+'488,318,318,318,318,823,823,823,823,823,823,823,823,564,823,136,796',
+'137,823,138,823,823,823,823,823,823,823,495,495,495,495,742,742,796',
+'564,564,564,564,224,224,224,224,207,207,207,207,207,207,207,207,547',
+'207,510,510,510,207,835,207,207,207,207,207,207,207,510,510,510,510',
+'510,510,547,547,547,547,547,546,546,546,514,546,546,546,546,207,207',
 '207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207',
+'207,207,207,207,122,119,799,118,117,207,207,207,207,207,207,207,207',
+'114,810,290,110,108,814,815,816,817,821,211,211,211,211,211,211,211',
+'211,822,211,106,104,101,211,207,211,211,211,211,211,211,211,212,212',
+'212,212,212,212,212,212,828,212,833,100,95,212,836,212,212,212,212,212',
+'212,212,902,902,902,902,902,902,902,902,837,902,94,84,840,902,80,902',
+'902,902,902,902,902,902,591,591,591,591,591,591,591,591,79,591,845,846',
+'77,591,850,591,591,591,591,591,591,591,76,852,853,855,575,575,575,575',
+'575,575,575,575,74,575,73,860,861,575,211,575,575,575,575,575,575,575',
+'234,234,234,234,234,234,234,234,72,234,863,70,869,234,212,234,234,234',
+'234,234,234,234,584,584,584,584,584,584,584,584,872,584,873,584,874',
+'584,902,584,584,584,584,584,584,584,514,514,514,514,514,514,514,514',
+'876,514,877,878,69,514,591,514,514,514,514,514,514,514,68,881,882,234',
+'162,162,162,162,162,162,162,162,162,162,162,4,883,38,575,16,431,4,432',
+'234,428,4,365,365,365,365,365,365,365,365,437,365,442,443,426,365,234',
+'365,365,365,365,365,365,365,364,364,364,364,364,364,364,364,425,364',
+'446,419,416,364,584,364,364,364,364,364,364,364,363,363,363,363,363',
+'363,363,363,,363,,,,363,514,363,363,363,363,363,363,363,838,838,838',
+'838,838,838,838,838,,838,,,,838,,838,838,838,838,838,838,838,,,,,835',
+'835,835,835,835,835,835,835,,835,,835,,835,365,835,835,835,835,835,835',
+'835,362,362,362,362,362,362,362,362,,362,,,,362,364,362,362,362,362',
+'362,362,362,361,361,361,361,361,361,361,361,,361,,,,361,363,361,361',
+'361,361,361,361,361,823,823,823,823,823,823,823,823,,823,,,,823,838',
+'823,823,823,823,823,823,823,,,,,360,360,360,360,360,360,360,360,,360',
+',,,360,835,360,360,360,360,360,360,360,811,811,811,811,811,811,811,811',
+',811,,,,811,362,811,811,811,811,811,811,811,669,669,669,669,,424,,,',
+'669,669,424,,,361,424,,,669,669,,,,,,,,,,,,,,,,,823,54,54,54,54,54,54',
+'54,54,54,54,54,,,,478,478,,478,,,,,,,478,360,,,,,,,669,,,,,,54,54,54',
+'54,54,54,54,,,811,478,478,478,478,478,478,478,478,478,478,478,478,478',
+'478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,150,,150',
+',,478,478,478,478,478,478,478,478,,,,,,,,,,,,,,,,,,,,,150,150,150,150',
+'207,207,207,207,207,207,207,207,207,823,496,496,496,496,207,207,207',
+'207,207,207,207,207,748,748,748,748,748,748,748,748,139,748,493,493',
+'141,748,144,748,748,748,748,748,748,748,151,152,207,859,859,859,859',
+'859,859,859,859,159,859,160,164,165,859,167,859,859,859,859,859,859',
+'859,575,575,575,575,575,575,575,575,168,575,169,173,174,575,175,575',
+'575,575,575,575,575,575,748,177,178,179,183,184,257,257,257,257,257',
+'257,257,257,189,257,195,198,206,257,748,257,257,257,257,257,257,257',
+'226,581,581,581,581,581,581,581,581,748,581,227,581,228,581,229,581',
+'581,581,581,581,581,581,729,729,729,729,729,729,729,729,235,729,236',
+'859,240,729,242,729,729,729,729,729,729,729,256,584,584,584,584,584',
+'584,584,584,266,584,575,584,271,584,272,584,584,584,584,584,584,584',
+'274,276,147,147,147,147,147,147,147,147,280,147,281,282,283,147,257',
+'147,147,147,147,147,147,147,284,591,591,591,591,591,591,591,591,285',
+'591,306,307,309,591,581,591,591,591,591,591,591,591,719,719,719,719',
+'719,719,719,719,324,719,326,719,327,719,729,719,719,719,719,719,719',
+'719,334,288,147,602,246,246,246,288,335,602,337,288,338,602,342,584',
+'246,246,246,246,246,246,147,343,368,714,714,714,714,714,714,714,714',
+'380,714,381,382,383,714,147,714,714,714,714,714,714,714,384,710,710',
+'710,710,710,710,710,710,394,710,395,396,401,710,591,710,710,710,710',
+'710,710,710,706,706,706,706,706,706,706,706,402,706,407,408,409,706',
+'719,706,706,706,706,706,706,706,504,504,504,504,504,504,504,504,410',
+'504,411,412,413,504,414,504,504,504,504,504,504,504,416,419,425,365',
+'365,365,365,365,365,365,365,426,365,428,431,432,365,714,365,365,365',
+'365,365,365,365,827,827,827,827,437,442,443,446,450,827,827,783,783',
+'783,783,710,454,460,827,827,783,783,504,504,461,4,696,462,373,783,783',
+'4,696,146,373,4,696,706,373,146,463,465,504,146,472,630,630,630,630',
+'630,630,630,630,480,630,483,630,498,630,504,630,630,630,630,630,630',
+'630,499,500,827,364,364,364,364,364,364,364,364,501,364,783,502,525',
+'364,365,364,364,364,364,364,364,364,908,908,908,908,908,908,908,908',
+'526,908,529,530,531,908,533,908,908,908,908,908,908,908,341,341,341',
+'341,341,341,341,341,534,341,535,536,537,341,538,341,341,341,341,341',
+'341,341,543,739,739,739,739,544,548,88,424,557,739,739,739,88,424,630',
+'559,88,424,739,739,565,570,572,578,583,347,347,347,347,347,347,347,347',
+'586,347,588,598,600,347,364,347,347,347,347,347,347,347,345,345,345',
+'345,345,345,345,345,604,345,605,606,607,345,908,345,345,345,345,345',
+'345,345,739,162,162,162,162,162,162,162,162,162,162,162,608,610,341',
+'611,616,619,632,345,345,345,345,345,345,345,345,345,345,345,345,345',
+'345,345,345,345,345,345,345,345,345,345,345,345,345,345,345,634,636',
+'637,638,640,345,345,345,345,345,345,345,345,641,643,347,260,260,260',
+'260,260,260,260,348,348,348,348,348,348,348,348,644,348,646,648,651',
+'348,345,348,348,348,348,348,348,348,349,349,349,349,349,349,349,349',
+'658,349,662,663,664,349,665,349,349,349,349,349,349,349,350,350,350',
+'350,350,350,350,350,666,350,668,671,673,350,688,350,350,350,350,350',
+'350,350,351,351,351,351,351,351,351,351,689,351,693,694,695,351,697',
+'351,351,351,351,351,351,351,699,700,701,707,352,352,352,352,352,352',
+'352,352,711,352,718,725,727,352,348,352,352,352,352,352,352,352,353',
+'353,353,353,353,353,353,353,730,353,731,746,749,353,349,353,353,353',
+'353,353,353,353,354,354,354,354,354,354,354,354,750,354,755,760,761',
+'354,350,354,354,354,354,354,354,354,355,355,355,355,355,355,355,355',
+'763,355,764,766,767,355,351,355,355,355,355,355,355,355,768,769,770',
+'771,356,356,356,356,356,356,356,356,772,356,773,775,776,356,352,356',
+'356,356,356,356,356,356,357,357,357,357,357,357,357,357,780,357,781',
+'793,799,357,353,357,357,357,357,357,357,357,359,359,359,359,359,359',
+'359,359,810,359,814,815,816,359,354,359,359,359,359,359,359,359,149',
+'149,149,149,149,149,149,149,817,149,821,149,822,149,355,149,149,149',
+'149,149,149,149,828,833,836,837,474,474,474,474,474,474,474,474,840',
+'474,845,846,850,474,356,474,474,474,474,474,474,474,290,290,290,290',
+'290,290,290,290,,290,,,,290,357,290,290,290,290,290,290,290,848,848',
+'848,848,848,848,848,848,,848,,,,848,359,848,848,848,848,848,848,848',
+'806,806,806,806,806,806,806,806,,806,,,,806,149,806,806,806,806,806',
+'806,806,245,,,,,,245,,,253,245,669,669,669,669,253,,,474,253,669,669',
+',,,848,,,,669,669,170,170,170,170,170,170,170,,,290,,,,,848,,,403,403',
+'403,403,403,403,403,403,,403,,,,403,848,403,403,403,403,403,403,403',
+'513,513,513,513,513,513,513,513,,513,669,,,513,806,513,513,513,513,513',
+'513,513,212,212,212,212,212,212,212,212,,212,,,,212,,212,212,212,212',
+'212,212,212,211,211,211,211,211,211,211,211,,211,,,,211,,211,211,211',
+'211,211,211,211,,,,464,464,464,464,464,464,464,464,464,464,464,,,,,403',
+',,,,,,54,54,54,54,54,54,54,54,54,54,54,,,,,513,464,464,464,464,464,464',
+'464,,,,478,478,,478,,,,,,,478,212,54,54,54,54,54,54,54,36,36,36,36,36',
+'36,36,36,36,36,36,36,36,36,211,478,478,478,478,478,478,478,478,478,478',
+'478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478,478',
+'478,582,,582,,,478,478,478,478,478,478,478,478,,,,,,,,,,,,,,,,,,,,,582',
+'582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582',
+'582,582,582,582,582,582,582,582,582,582,150,,150,,,582,582,582,582,582',
+'582,582,582,,,,,,,,,,,,,,,,,,,,,150,150,150,150,150,150,150,150,150',
 '150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150,150',
+'150,150,150,150,150,150,150,582,,582,,,150,150,150,150,150,150,150,150',
+',,,,,,,,,,,,,,,,,,,,582,582,582,582,582,582,582,582,582,582,582,582',
+'582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,582,372',
+',,,,582,582,582,582,582,582,582,582,,,,,,,,,,,,,,,,,,,372,372,372,372',
+'150,150,372,,,,,150,150,150,150,150,150,150,150,,,,,,,,,,,,,,,,,,,372',
 '372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372,372',
+'372,372,372,372,372,372,372,459,,,,,372,372,372,372,372,372,372,372',
+'372,,,,,,,,,,,,,,,,,,459,459,459,459,459,459,459,459,459,459,459,459',
+'459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,250',
+',,,,459,459,459,459,459,459,459,459,,,,,,,,,,,,,,,,,,,250,250,250,250',
+'372,372,372,372,372,372,372,372,372,372,293,,,,,372,372,372,372,372',
+'372,372,372,372,,,,,,,,,,,,,,,,,,293,293,293,293,293,293,293,293,293',
+'293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,293',
+'293,293,444,293,,,,293,293,293,293,293,293,293,293,,,,,,,,,,,,,,,,,',
+',444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444',
+'444,444,444,444,444,444,444,444,444,444,444,445,,,,,444,444,444,444',
+'444,444,444,444,,,,,,,,,,,,,,,,,,,445,445,445,445,445,445,445,445,445',
+'445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445',
+'445,445,550,,,,,445,445,445,445,445,445,445,445,,,,,,,,,,,,,,,,,,,550',
+'550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550,550',
+'550,550,550,550,550,550,550,550,550,550,554,550,,,,550,550,550,550,550',
+'550,550,550,,,,,,,,,,,,,,,,,,,554,554,554,554,554,554,554,554,554,554',
+'554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554',
+'554,566,554,,,,554,554,554,554,554,554,554,554,,,,,,,,,,,,,,,,,,,566',
+'566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566,566',
+'566,566,566,566,566,566,566,566,566,566,71,566,,,,566,566,566,566,566',
+'566,566,566,,,,,,,,,,,,,,,,,,,71,71,71,71,71,71,71,71,71,71,71,71,71',
+'71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,386,,,,,71,71,71,71,71',
+'71,71,71,,,,,,,,,,,,,,,,,,,386,386,386,386,386,386,386,386,386,386,386',
+'386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386',
+'459,386,,,,386,386,386,386,386,386,386,386,,,,,,,,,,,,,,,,,,,459,459',
+'459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459,459',
+'459,459,459,459,459,459,459,459,459,251,,,,,459,459,459,459,459,459',
+'459,459,,,,,,,,,,,,,,,,,,,251,251,251,251,251,251,251,251,251,251,251',
+'251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,251',
+'250,251,,,,251,251,251,251,251,251,251,251,,,,,,,,,,,,,,,,,,,250,250',
 '250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250',
+'250,250,250,250,250,250,250,293,,,,,250,250,250,250,250,250,250,250',
+',,,,,,,,,,,,,,,,,,293,293,293,293,293,293,293,293,293,293,293,293,293',
+'293,293,293,293,293,293,293,293,293,293,293,293,293,293,293,445,293',
+',,,293,293,293,293,293,293,293,293,,,,,,,,,,,,,,,,,,,445,445,445,445',
+'445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445,445',
+'445,445,445,445,445,445,445,251,,,,,445,445,445,445,445,445,445,445',
+',,,,,,,,,,,,,,,,,,251,251,251,251,251,251,251,251,251,251,251,251,251',
+'251,251,251,251,251,251,251,251,251,251,251,251,251,251,251,444,251',
+',,,251,251,251,251,251,251,251,251,,,,,,,,,,,,,,,,,,,444,444,444,444',
+'444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444,444',
+'444,444,444,444,444,444,444,156,,,,,444,444,444,444,444,444,444,444',
+',,,,,,,,,,,,,,,,,,156,156,156,156,156,156,156,156,156,156,156,156,156',
+'156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,386,,,,',
+'156,156,156,156,156,156,156,156,,,,,,,,,,,,,,,,,,,386,386,386,386,386',
+'386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386,386',
+'386,386,386,386,386,386,71,386,,,,386,386,386,386,386,386,386,386,,',
+',,,,,,,,,,,,,,,,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71',
+'71,71,71,71,71,71,71,71,71,71,550,,,,,71,71,71,71,71,71,71,71,,,,,,',
+',,,,,,,,,,,,550,550,550,550,550,550,550,550,550,550,550,550,550,550',
+'550,550,550,550,550,550,550,550,550,550,550,550,550,550,554,550,,,,550',
+'550,550,550,550,550,550,550,,,,,,,,,,,,,,,,,,,554,554,554,554,554,554',
+'554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554,554',
+'554,554,554,554,554,566,554,,,,554,554,554,554,554,554,554,554,,,,,',
+',,,,,,,,,,,,,566,566,566,566,566,566,566,566,566,566,566,566,566,566',
+'566,566,566,566,566,566,566,566,566,566,566,566,566,566,,566,,,,566',
+'566,566,566,566,566,566,566,464,464,464,464,464,464,464,464,464,464',
+'464,,,,,,,,,,,,,,,,,,,,,,,,,,,,464,464,464,464,464,464,464,244,244,244',
+'250,250,250,250,250,250,250,250,250,156,,,,,250,250,250,250,250,250',
+'250,250,,,,,,,,,,,,,,,,,,,156,156,156,156,156,156,156,156,156,156,156',
+'156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156,156',
+',,,,,156,156,156,156,156,156,156,156,622,622,622,622,622,622,622,622',
+'622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622,622',
+'622,622,622,,,,,,622,622,622,622,622,622,622,622,40,40,40,40,40,40,40',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,,,,,',
+'40,40,40,40,40,40,40,40,705,705,705,705,705,705,705,705,705,705,705',
+'705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705',
+',,,,,705,705,705,705,705,705,705,705,244,244,244,244,244,244,244,244',
 '244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244,244',
+'244,244,244,244,244,244,244,244,,,,,,244,244,244,244,244,244,244,244',
+'40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40',
+'40,40,40,40,40,,,,,,40,40,40,40,40,40,40,40,289,289,289,289,289,289',
+'289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289',
+'289,289,289,289,289,,,,,,289,289,289,289,289,289,289,289,709,709,709',
+'244,244,244,,,,,,244,244,244,244,244,244,244,244,519,519,519,519,519',
+'519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519',
+'519,519,519,519,519,519,,,,,,519,519,519,519,519,519,519,519,709,709',
 '709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709,709',
+'709,709,709,709,709,709,709,709,,,,,,709,709,709,709,709,709,709,709',
+'519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519,519',
+'519,519,519,519,519,519,519,519,519,519,519,,,,,,519,519,519,519,519',
+'519,519,519,622,622,622,622,622,622,622,622,622,622,622,622,622,622',
+'622,622,622,622,622,622,622,622,622,622,622,622,622,622,,,,,,622,622',
+'622,622,622,622,622,622,705,705,705,705,705,705,705,705,705,705,705',
+'705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705,705',
+',,,,,705,705,705,705,705,705,705,705,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,,,,,,239,239,239,239,239,239' ]
+        racc_action_check = arr = ::Array.new(3623, nil)
+'709,709,709,709,709,709,709,709,709,,,,,,709,709,709,709,709,709,709',
+'709,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289,289',
+'289,289,289,289,289,289,289,289,289,289,289,289,,,,,,289,289,289,289',
+'289,289,289,289,239,239,239,239,239,239,239,239,239,239,239,239,239',
+'239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,,,,,,239',
+'239,239,239,239,239' ]
+        racc_action_check = arr = ::Array.new(3593, nil)
         idx = 0
         clist.each do |str|
 …
 racc_action_pointer = [
    nil,  1442,    -1,  1586,  1989,   nil,   nil,   nil,   602,   527,
    nil,   nil,   nil,   nil,   nil,   nil,  1993,   nil,   nil,   nil,
+   nil,   613,    -1,   620,  1492,   nil,   nil,   nil,   612,   627,
+   nil,   nil,   nil,   nil,   nil,   nil,   680,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,  1340,   nil,  1985,   nil,
 ,   123,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,  2182,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1974,  1964,
 ,  2991,  1910,  1890,  1888,   198,  1876,  1866,   nil,  1806,
 ,   nil,   679,   nil,  1816,   122,   655,   nil,   607,   174,
    nil,   nil,   190,   nil,  1786,  1766,   nil,   nil,   nil,   nil,
 ,  1744,   550,   nil,  1805,   nil,  1804,   nil,  1788,   nil,
 ,   nil,   nil,   nil,  1784,   587,   nil,  1775,  1774,  1772,
    nil,   nil,  1771,  1714,  1711,    77,  1706,   350,  1627,  1628,
    nil,  1558,   nil,  1538,   nil,   nil,  1592,  1477,  1549,  1481,
    nil,  1480,   nil,   nil,  1539,   nil,  1663,  1133,   285,  1177,
 ,  1531,  1520,   nil,    27,   nil,  2873,    45,   nil,  1495,
 ,   271,  1895,   nil,  1502,  1505,  1481,  1500,  1478,  1312,
 ,   538,   476,  1423,  1344,  1343,   525,  1328,  1300,  1260,
    nil,   692,   nil,  1287,  1290,   184,   nil,   156,   nil,  1276,
 ,   nil,    -6,   nil,   -65,  1277,   nil,   nil,  1159,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,  1232,  1709,   nil,   nil,
 ,  1801,  1823,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   590,   741,   751,   893,   767,  1204,  1186,  1174,  1157,
 ,   nil,   nil,   nil,  1915,  1178,  1155,   nil,   nil,  3541,
 ,   nil,  1124,   nil,  3254,  1665,  1017,   nil,   nil,   nil,
 ,  2755,   nil,   592,   612,   nil,  1131,   414,   149,   nil,
 ,   nil,   248,   nil,   332,   814,  1135,   271,   nil,   599,
    nil,  1102,  1119,   nil,  1081,   nil,  1079,   nil,   430,   nil,
 ,  1098,  1060,  1088,  1055,  1035,   176,   nil,  1322,  3336,
 ,    97,   nil,  2637,   291,   nil,   nil,   802,   nil,   nil,
    nil,   nil,   nil,    80,   nil,   nil,  1002,   984,   177,   980,
    nil,   nil,   nil,   nil,   nil,   183,   nil,   nil,   797,   nil,
    nil,   nil,   nil,   nil,   961,   199,   900,   857,   nil,    -2,
    nil,   nil,   nil,   254,   858,   787,   nil,   840,   838,   nil,
 ,  1503,   829,   811,   nil,  1367,   nil,  1300,  1253,  1208,
 ,  1110,   993,   971,   949,   926,   857,   787,   720,   695,
 ,  2143,  2121,  2051,  2029,  2007,   447,   nil,   811,   nil,
    nil,   nil,  2460,  1321,   nil,   342,   nil,   nil,   nil,   nil,
 ,   792,   788,   770,   754,   nil,  2932,   nil,   nil,   806,
    nil,   nil,   330,   nil,   654,   643,   524,   nil,   nil,   nil,
    nil,   516,   470,   461,   nil,   nil,   nil,   458,   381,   423,
 ,   308,   359,   271,    69,   nil,  2032,   nil,   nil,  2032,
    nil,   nil,   -37,   nil,  2233,  2029,  1981,   nil,  1967,   nil,
 ,  1893,  1965,   nil,     0,   nil,   nil,  2008,   nil,   nil,
    nil,   nil,  1911,  2005,  2814,  2696,  1999,    73,   nil,   nil,
    -32,   nil,   599,   nil,    31,   nil,   nil,   nil,   nil,  2519,
    -16,   155,   192,   255,  3160,   328,   nil,   nil,   nil,    -8,
 ,   nil,   370,   nil,   439,   nil,   596,   537,  2279,   495,
 ,   nil,   nil,   484,   nil,   nil,   nil,   741,   526,   849,
 ,   871,   900,   912,   935,   856,   717,   951,   671,   671,
 ,   685,   710,   nil,   553,   995,   nil,   nil,   nil,   nil,
 ,   253,   197,   651,  1959,  1459,   nil,   nil,  1664,  3418,
 ,  1551,  1573,  1595,   nil,   874,   891,   nil,   892,   877,
 ,   930,   nil,   940,   953,   940,   975,   947,   992,   977,
    nil,   nil,   nil,   969,  1006,   nil,  1084,   638,  1027,   587,
 ,   nil,   nil,   310,  3109,   nil,   nil,  1003,    78,  1081,
 ,   284,   nil,    92,   642,  1096,  3168,   nil,   305,   nil,
 ,   nil,   996,    77,   nil,  1893,   -11,   130,  1108,   nil,
 ,  1617,  2401,  1159,  1937,   nil,  1179,   nil,  1178,   nil,
    nil,  1867,   nil,   nil,   nil,   nil,    14,    26,  1211,   356,
 ,   nil,  1079,   nil,  1234,  1235,  1237,  1250,  1252,   448,
    nil,  1198,   nil,     0,   nil,   nil,  1277,   nil,   nil,  1279,
    nil,   nil,  3459,   nil,   nil,   346,   524,   nil,   nil,   nil,
 ,    79,  1272,   nil,  1300,   nil,  1305,  1286,  1289,   nil,
 ,  1326,    25,  1304,  1305,   nil,  1337,   nil,  1315,   nil,
    nil,  1231,   nil,   465,   nil,   nil,   nil,   577,  1337,   nil,
    nil,   nil,  1364,  1365,  1256,  1350,  1377,   nil,  1398,  2235,
    nil,  1426,   nil,  1430,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,  1525,   nil,   387,   nil,   nil,   nil,  1409,  1437,
    nil,  1454,  1456,  1432,  1463,  1451,   887,  1479,   nil,  1480,
 ,  1500,   nil,    24,   nil,  3500,  1345,  1448,   nil,  3377,
 ,  1523,   nil,   nil,  1231,   nil,   496,   nil,  1540,  1063,
 ,    76,   nil,   nil,   nil,  1521,   nil,  1549,   nil,  1041,
 ,  1544,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   888,
    nil,   nil,  1026,  1049,   nil,   nil,  1595,   nil,  1018,  1594,
    nil,   548,   nil,   nil,   nil,  1587,   262,   nil,   nil,   nil,
 ,  1626,   nil,  1632,  1632,   nil,  1634,  1613,  1614,  1641,
 ,  1656,  1633,  1674,   nil,  1648,  1683,    75,   352,   nil,
 ,  1678,   115,  1665,   344,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,  1729,   nil,   nil,   834,   812,   nil,  1742,
    nil,   547,   nil,   nil,   nil,   nil,   765,   nil,   330,   nil,
 ,  2213,   229,   nil,  1783,  1784,  1672,  1761,   nil,   nil,
    nil,  1674,  1771,  2165,     8,   nil,   nil,  1322,  1791,   nil,
    nil,   nil,   nil,  1824,   544,  2099,  1828,  1815,  2073,    89,
 ,   598,   nil,   -13,   nil,  1838,  1865,   nil,   673,   nil,
 ,   205,  1879,  1883,   nil,  1854,    -9,   nil,   nil,   628,
 ,  1867,   575,  1917,   nil,   nil,   464,   nil,   nil,  1887,
    nil,   nil,  1932,  1936,  1936,   nil,  1959,  1900,  1932,   591,
 ,  1944,  1945,  1928,   nil,   nil,   nil,   nil,   nil,   521,
    nil,   nil,   nil,    11,   539,   100,   nil,   595,   581,   nil,
    nil,   614,  1845,   nil,   650,   765,   966,   nil,  1643,  1577,
+   nil,   nil,   nil,   nil,   nil,   nil,  2268,   nil,   694,   nil,
+,   123,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,  2185,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   702,   712,
+,  2888,   717,   719,   729,   115,   738,   742,   nil,   704,
+,   nil,   921,   nil,   755,    75,   359,   nil,  1610,   174,
+   nil,   nil,    89,   nil,   730,   742,   nil,   nil,   nil,   nil,
+,   755,   496,   nil,   827,   nil,   836,   nil,   840,   nil,
+,   nil,   nil,   nil,   862,   586,   nil,   877,   889,   891,
+   nil,   nil,   905,   909,   917,    27,   922,   606,   866,   870,
+   nil,   892,   nil,   903,   nil,   nil,   979,   888,   983,  1040,
+   nil,  1044,   nil,   nil,  1106,   nil,  1500,  1268,   484,  2000,
+,  1115,  1107,   nil,    26,   nil,  3183,   448,   nil,  1094,
+,    97,  1591,   nil,  1124,  1129,   575,  1127,  1143,  1031,
+,   282,   350,  1146,  1147,  1149,   335,  1163,  1164,  1134,
+   nil,   848,   nil,  1163,  1168,   184,   nil,   156,   nil,  1171,
+,   nil,    -6,   nil,   -65,  1178,   nil,   nil,  1081,   nil,
+   nil,   nil,   nil,   nil,   nil,   nil,  1179,  1019,   nil,   nil,
+,  2228,  2206,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   880,   687,   729,   989,   767,  1182,  1177,  1178,  1179,
+,   nil,   nil,   nil,   553,  1222,  1220,   nil,   nil,  3511,
+,   nil,  1196,   nil,  3347,  2107,  1268,   nil,   nil,   nil,
+,  3065,   nil,  2116,   612,   nil,  1230,  1176,   130,   nil,
+,   nil,   480,   nil,   367,   767,  1244,    76,   nil,    -1,
+   nil,  1217,  1245,   nil,  1227,   nil,  1228,   nil,   524,   nil,
+,  1270,  1241,  1271,  1252,  1261,   197,   nil,  1329,  3470,
+,   271,   nil,  2534,   291,   nil,   nil,   778,   nil,   nil,
+   nil,   nil,   nil,   177,   nil,   nil,  1232,  1233,   198,  1234,
+   nil,   nil,   nil,   nil,   nil,   183,   nil,   nil,   867,   nil,
+   nil,   nil,   nil,   nil,  1252,    10,  1197,  1313,   nil,    -2,
+   nil,   nil,   nil,   190,  1328,  1274,   nil,  1337,  1339,   nil,
+,  1588,  1336,  1345,   nil,  1658,   nil,  1636,  1750,  1772,
+,  1816,  1842,  1864,  1886,  1908,  1934,  1956,   651,  1978,
+,   720,   787,   673,  1544,  1452,   325,   nil,  1350,   nil,
+   nil,   nil,  2475,  1495,   nil,   692,   nil,   nil,   nil,   nil,
+,  1363,  1364,  1365,  1375,   nil,  2947,   nil,   nil,   936,
+   nil,   nil,   342,   nil,  1384,  1386,  1387,   nil,   nil,   nil,
+   nil,  1382,  1400,  2162,   nil,   nil,   nil,  1402,  1347,  1404,
+,  1368,  1429,  1430,  1428,   nil,  1440,   nil,   nil,  1442,
+   nil,   nil,   -37,   nil,  1611,  1443,  1422,   nil,  1424,   nil,
+,  1355,  1426,   nil,   599,   nil,   nil,  1471,   nil,   nil,
+   nil,   nil,  1373,  1467,  2593,  2652,  1441,   -11,   nil,   nil,
+,   nil,   601,   nil,  1483,   nil,   nil,   nil,   nil,  3006,
+,  1485,  1488,  1501,  2163,  1477,   nil,   nil,   nil,    -8,
+,   nil,  1509,   nil,  2026,   nil,   593,   597,  2294,   628,
+,   nil,   nil,  1521,   nil,   nil,   nil,   877,   954,   791,
+,   855,   890,  1087,   596,   978,  1063,   815,  1515,  1509,
+,  1518,  1518,   nil,  1427,   709,   nil,   nil,   nil,   nil,
+,    81,   261,  2184,   949,    12,   nil,   nil,   592,  3388,
+,   461,   495,   521,   nil,  1544,  1563,   nil,    80,  1536,
+,  1570,   nil,  1572,  1588,  1559,  1591,  1562,  1593,   318,
+   nil,   nil,   nil,  1572,  1604,   nil,   937,   937,  1603,   857,
+,   nil,   nil,   310,  2770,   nil,   nil,  1547,    79,  1613,
+,   355,   nil,    92,   900,  1618,  2829,   nil,   437,   nil,
+,   nil,  1507,   344,   nil,  1148,    73,   433,  1597,   nil,
+,  1199,  2355,  1627,  1244,   nil,  1636,   nil,  1635,   nil,
+   nil,  1291,   nil,   nil,   nil,   nil,    14,    27,  1639,   430,
+,   nil,  1331,   nil,  1658,  1660,  1661,  1657,  1680,   240,
+,  1626,   nil,     0,   nil,   nil,  1687,   nil,   nil,  1689,
+   nil,   nil,  3224,   nil,   nil,   332,   578,   nil,   nil,   nil,
+,    78,  1660,   nil,  1716,   nil,  1721,  1689,  1692,   nil,
+,  1733,    75,  1703,  1720,   nil,  1753,   nil,  1723,   nil,
+   nil,  1638,   nil,   521,   nil,   nil,   nil,   577,  1742,   nil,
+   nil,   nil,  1769,  1770,  1661,  1747,  1789,   nil,  1795,  2125,
+   nil,  1794,   nil,  1798,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   743,   nil,   844,   nil,   nil,   nil,  1768,  1811,
+   nil,   176,   256,  1788,  1819,  1790,  1493,  1817,   nil,  1825,
+,  1829,   nil,    74,   nil,  3306,  1405,  1772,   nil,  3429,
+,  1837,   nil,   nil,  1360,   nil,   587,   nil,  1845,  1313,
+,    76,   nil,   nil,   nil,  1815,   nil,  1842,   nil,  1221,
+,  1837,   nil,   nil,   nil,   nil,   nil,   nil,   nil,  1611,
+   nil,   nil,  1006,   482,   nil,   nil,  1867,   nil,  1101,  1864,
+,   447,   nil,   nil,   nil,  1858,   596,   nil,   nil,   nil,
+,  1885,   nil,  1908,  1909,   nil,  1911,  1882,  1891,  1918,
+,  1920,  1902,  1933,   nil,  1907,  1934,    -9,   284,   nil,
+,  1927,   199,  1485,   576,   nil,   nil,   nil,   nil,   nil,
+   nil,   nil,   nil,  1954,   nil,   nil,   904,   812,   nil,  1930,
+   nil,   513,   nil,   nil,   nil,   nil,  2092,   nil,   330,   nil,
+,   835,   240,   nil,  1975,  1976,  1864,  1970,   nil,   nil,
+   nil,  1884,  1974,   982,     8,   nil,   nil,  1474,  1982,   nil,
+   nil,   nil,   nil,  2014,   525,   927,  2015,  1987,   857,   253,
+,   399,   nil,   -13,   nil,  1997,  2024,   nil,  2070,   nil,
+,   205,    -5,    30,   nil,    52,    25,   nil,   nil,  1126,
+,    97,   765,   197,   nil,   nil,   180,   nil,   nil,   217,
+   nil,   nil,   279,   291,   379,   nil,   418,   367,   433,   534,
+,   454,   467,   460,   nil,   nil,   nil,   nil,   nil,   439,
+   nil,   nil,   nil,    11,   533,   100,   nil,   539,   512,   nil,
+   nil,   558,   414,   nil,   576,   594,   567,   nil,  1566,   606,
    nil ]
 …
 ,   nil,   nil,   nil,   nil,   nil,   671,   596,   597,   588,
    nil,   nil,   553,   557,   673,   nil,   238,   nil,   763,   622,
 ,   nil,   766,   nil,   nil,   nil,   530,   553,   nil,   nil,
+,   nil,   766,   nil,   610,   nil,   530,   553,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   664,   nil,
 …
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   696,
    nil,   873,   nil,   792,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   464,   nil,   nil,   339,   nil,   nil,   nil,   nil,   nil,
+   nil,   464,   nil,   nil,   339,   nil,   nil,   750,   610,   nil,
    nil,   769,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   894,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
 …
 ,   nil,   nil,   nil,   nil,   nil,    23,     4,     4,    23,
    nil,   nil,    45,    45,    55,   nil,    28,   nil,     6,    47,
 ,   nil,     6,   nil,   nil,   nil,     5,    45,   nil,   nil,
+,   nil,     6,   nil,     4,   nil,     5,    45,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    47,   nil,
 …
    nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,    25,
    nil,     6,   nil,    32,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,    45,   nil,   nil,    22,   nil,   nil,   nil,   nil,   nil,
+   nil,    45,   nil,   nil,    22,   nil,   nil,     4,     4,   nil,
    nil,    47,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
    nil,     6,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
 …
   def _reduce_104(val, _values, result)
                         # tag が無い場合、内部名を与える
                         result = StructType.new( :"$TAG_#{@@no_struct_tag_num}" )
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
                         @@no_struct_tag_num += 1
                         StructType.set_define( true )
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 802)
   def _reduce_233(val, _values, result)
         result = [val[0].val]
+        result = [val[0]]
     result
   end
 …
 module_eval(<<'.,.,', 'bnf.y.rb', 804)
   def _reduce_234(val, _values, result)
         result << val[2].val
+        result << val[2]
     result
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/bnf.y.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
+                {
                         # tag が無い場合、内部名を与える
                         result = StructType.new( :"$TAG_#{@@no_struct_tag_num}" )
+                        result = StructType.new( :"TAG__#{@@no_struct_tag_num}__" )
                         @@no_struct_tag_num += 1
                         StructType.set_define( true )
 …
 region_name_list
         : IDENTIFIER
                 {       result = [val[0].val]           }
         | region_name_list ',' IDENTIFIER
                 {       result << val[2].val            }
+        : namespace_identifier
+                {       result = [val[0]]               }
+        | region_name_list ',' namespace_identifier
+                {       result << val[2]                }
 const_statement
 …
                   string += line
                   # この位置では error メソッドは使えない (token 読出し前)
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 end
 …
                   b_in_string = true
                   # この位置では error メソッドは使えない (token 読出し前) # mikan cdl_error ではない
                   puts "error: #{file} line #{lineno}: string literal has newline without escape"
+                  puts "#{file}:#{lineno}:#{col}: error: string literal has newline without escape"
                   @@n_error += 1
                 # 山括弧で囲まれた文字列
+                when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                # when /\A<[0-9A-Za-z_\. \/]+>/   # AB: angle bracke
+                when /\A<(?:[^>\\]|\\.)*>/   # これはうまく行くようだ
                   @q << [:AB_STRING_LITERAL, Token.new($&, file, lineno, col)]
                 # 行コメント
 …
       end
       if locale then
         Console.puts "error: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: error: #{msg}"
       else
         Console.puts "error: #{msg}"
 …
       end
       if locale then
         Console.puts "warning: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: warning: #{msg}"
       else
         Console.puts "warning: #{msg}"
 …
       end
       if locale then
         Console.puts "info: #{locale[0]}: line #{locale[1]} #{msg}"
+        Console.puts "#{locale[0]}:#{locale[1]}:#{locale[2]}: info: #{msg}"
       else
         Console.puts "info: #{msg}"

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/componentobj.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2017 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
     end
     set_descriptor_list
+    # set_descriptor_list ##
     if @generate then
 …
   end
+  @@set_descriptor_list = {}
+  def self.set_descriptor_list
+    Namespace.get_root.travers_all_signature{ |sig|
+      if @@set_descriptor_list[ sig ] == nil then
+        @@set_descriptor_list[ sig ] = true
+        sig.set_descriptor_list
+      end
+    }
+  end
   #== Signature# 引数で参照されている Descriptor 型のリストを作成する
   def set_descriptor_list
 …
 # @ct_factory_list::    Factory[] :    celltype factory
 # @cell_list:: Cell[] : 定義のみ (V1.0.0.2 以降)
+# @ordered_cell_list:: Cell[] : ID 順に順序付けされたセルリスト、最適化以降有効 (リンク単位ごとに生成されなおす)
 # @singleton:: bool
 # @idx_is_id:: bool
 # @idx_is_id_act:: bool: actual value
+# @b_need_ptab:: bool: true if having cells in multi-domain
 # @active:: bool
 # @b_reuse:: bool :  reuse 指定されて import された(template 不要)
 …
     if $idx_is_id then
       @idx_is_id = true
+      @idx_is_id_act = true
+      @b_need_ptab = true
     else
       @idx_is_id = false
+    end
+    @idx_is_id_act = @idx_is_id
+      @idx_is_id_act = false
+      @b_need_ptab = false
+    end
     Namespace.new_celltype( self )
 …
     end
     check_dynamic_join
+    # check_dynamic_join ##
     @@current_object = nil
 …
         @idx_is_id = true
         @idx_is_id_act = true
+        @b_need_ptab = true
       when :ACTIVE
         @active = true
 …
     if @singleton then
       @idx_is_id_act = false
+      @b_need_ptab = false
     end
   end
 …
   end
+  @@dynamic_join_checked_list = {}
+  def self.check_dynamic_join
+    Namespace.get_root.travers_all_celltype{ |ct|
+      if @@dynamic_join_checked_list[ ct ] == nil then
+        @@dynamic_join_checked_list[ ct ] = true
+        ct.check_dynamic_join
+      end
+    }
+  end
   #=== Celltype#dynamic の適合性チェック
   def check_dynamic_join
+    return if ! $verbose
     @port.each{ |port|
       signature = port.get_signature
 …
               end
             end
             cdl_warning( 'W9999 "$1" cannot handle Descriptor "$2" infromation for port "$3"', @name, param.get_name, port.get_name )
+            cdl_warning( 'W9999 "$1" cannot handle Descriptor "$2" information for port "$3"', @name, param.get_name, port.get_name )
+          }
         end
 …
   #     呼び口（ただし、最適化で不要となるものは除く）
   def has_INIB?
+#    print "name=#{@name} @n_attribute_ro=#{@n_attribute_ro}  @n_var_size_is=#{@n_var_size_is} @n_call_port=#{@n_call_port} @n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} @n_entry_port_array_ns=#{@n_entry_port_array_ns}\n"
+    return $rom &&
+      (@n_attribute_ro > 0 ||
+       @n_var_size_is > 0 ||
+       ( @n_call_port - @n_call_port_omitted_in_CB - (@n_call_port_dynamic-@n_call_port_array_dynamic) ) > 0 ||
+       $ram_initializer && @n_call_port_dynamic ||
+       @n_entry_port_array_ns > 0)
+#    return $rom && (@n_attribute_ro > 0 || ( @n_call_port - @n_call_port_omitted_in_CB ) > 0)
+    result = $rom &&
+             (@n_attribute_ro > 0 ||
+              @n_var_size_is > 0 ||
+              ( @n_call_port - @n_call_port_omitted_in_CB - (@n_call_port_dynamic-@n_call_port_array_dynamic) ) > 0 ||
+              $ram_initializer && @n_call_port_dynamic > 0 ||
+              @n_entry_port_array_ns > 0)
+    # print "name=#{@name} n_attribute_ro=#{@n_attribute_ro}  n_var_size_is=#{@n_var_size_is} n_call_port=#{@n_call_port} n_call_port_omitted_in_CB=#{@n_call_port_omitted_in_CB} n_call_port_dynamic=#{@n_call_port_dynamic} n_call_port_array_dynamic=#{@n_call_port_array_dynamic} n_entry_port_array_ns=#{@n_entry_port_array_ns} has_INIB?=#{result}\n"
+    return result
   end
 …
   def idx_is_id_act?
     @idx_is_id_act
+  end
+  def multi_domain?
+    @b_need_ptab
   end
 …
 #                                               逆require ポートに対して複数の結合がないかチェックする
 # @generate:: [ Symbol, String, Plugin ]  = [ PluginName, option, Plugin ] Plugin は生成後に追加される
+# @b_post_code_generated:: Bool: true if generated in tmp_plugin_post_code.cdl
+#
 # composite のためインスタンス変数
 …
 # @id:: Integer : コード生成直前に設定  (プロトタイプ宣言の場合は -1 のまま放置)
 # @id_specified::Integer : 指定された id
+# @restrict_list::{ entry_name => { func_name, [ region_name, ... ] } }
+# @restrict_list::{ entry_name => { func_name, [ region_path_str, ... ] } }
+# @restrict_list2::{ entry_name => { func_name, [ domain_root_region, ... ] } }
+# @b_restrict_referenced::Bool: restrict_list が参照れた
 =begin
 …
     @referenced_port_list = {}
     @restrict_list = {}
+    @restrict_list2 = {}
+    @b_restrict_referenced = false
+    @b_post_code_generated = false
     @cell_list = {}
 …
       set_specifier_list( Generator.get_statement_specifier )
     end
+    if TECSGEN.post_coded?
+      @b_post_code_generated = true
+    end
     set_f_def f_def
 …
     if ! @in_composite then
       # if @celltype.instance_of? Celltype then
+      if @celltype then  # composite でも呼びだす, エラー時 nil
         @celltype.new_cell self
       # end
+      end
       @@cell_list << self
     end
 …
   end
+  #=== Cell# composite のセルか？
+  def is_of_composite?
+    if @celltype.kind_of? CompositeCelltype
+      return true
+    else
+      return false
+    end
+  end
+  #=== Cell# tmp_plugin_post_code.cdl で生成されたセルか？
+  def post_code_generated?
+    @b_post_code_generated
+  end
   # composite cell の port に対応する内部の cell の port の名前（リンク時に必要な名前）
   def get_real_global_name port_name
 …
       # セルタイプ内で port_name の CompositeCelltypeJoin を探す（コード生成段階では必ず見つかる）
+      # print "get_real_cell: cell=#{@name} port=#{port_name}\n"
+      # pp @cell_list
       cj = @celltype.find_export( port_name )
 …
   end
+  #=== Cell#get_real_celltype
+  #
+  def get_real_celltype( port_name )
+    if @celltype.instance_of?( CompositeCelltype ) then
+      return @celltype.get_real_celltype port_name
+    else
+      return @celltype
+    end
+  end
   #=== Cell# 受け口のport の参照カウントをアップする
 …
       return "#{@global_name}_#{port_name}"
     end
+  end
+  #Cell#属性の初期値を得る
+  #attr_name::Symbol  必ず初期化されていないと Ruby 例外となる
+  def get_attr_initializer attr_name
+    val = @join_list.get_item( attr_name )
+    if val == nil then
+      val = (@celltype.find  attr_name).get_initializer
+    else
+      val = val.get_rhs
+    end
+    return val
   end
 …
         else
           cell = j.get_rhs_cell2
           next if cell == nil     # 右辺が見つからなかった．既にエラー
+          next if cell == nil || cell.get_celltype == nil     # 右辺が見つからなかった．既にエラー
           port = cell.get_celltype.find( j.get_rhs_port2 )
+          if port == nil then
+            dbgPrint "set_port_ref: #{@name}.#{j.get_name} = #{cell.get_name}.#{j.get_rhs_port2}\n"
+            # through プラグインで生成されたセルの受け口が見つからないケース (のハズ)
+            cdl_error( "entry '$1' not found in '$2' refered from $3.$4", j.get_rhs_port2, cell.get_name, @name, j.get_name )
+            next
+          end
           dbgPrint( "set_port_reference_count: #{@name}.#{j.get_name} => #{cell.get_name}.#{port.get_name}\n")
           cell.port_referenced port
 …
   #=== Cell#restrict を追加
   def add_restrict( entry_name, func_name, region_name_list )
+    if @restrict_list[ entry_name ] then
+      if @restrict_list[ entry_name ][ func_name ] then
+        @restrict_list[ entry_name ][ func_name ].each{ |rn|
+          if region_name_list.include? rn then
+            # p func_name
+            name = func_name ? entry_name : entry_name+"."+func_name
+            cdl_warning( "W9999 $1 restrict region duplicate $2", name, rn )
+    if @restrict_list[ entry_name ] == nil then
+      @restrict_list[ entry_name ] = {}
+      @restrict_list2[ entry_name ] = {}
+    end
+    if @restrict_list[ entry_name ][ func_name ] == nil then
+      @restrict_list[ entry_name ][ func_name ] = []
+      @restrict_list2[ entry_name ][ func_name ] = []
+    end
+    region_name_list.each { |rp|
+      @restrict_list[ entry_name ][ func_name ] << rp
+      # p "Class: " + rp.to_s
+      obj = Namespace.find rp
+      if ( obj.kind_of? Region ) then
+        @restrict_list2[ entry_name ][ func_name ] << obj.get_domain_root
+      else
+        cdl_error( "S9999 $1 not found or not region", rp.to_s )
+      end
+    }
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    # p "check_restrict_list"
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rp|
+          obj = Namespace.find rp
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_info( "I9999 $1: restrict calling domain to $2, which is same domain as the cell locates", @name, rp.to_s )
+              # restrict を同じドメインを指定してもよいこととする (HRP3)
+              # KernelDoamin 内のセルに対し、KernelDomain に restrict している場合、
+              # 無所属経由で結合されているが、KernelDomain から呼出すことを想定した許可
+            end
+          else
+            cdl_error( "S9999 $1 not region", rp.to_s )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    # p "callable? #{@name}"
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    @b_restrict_referenced = true
+    if @restrict_list.length == 0 then
+      return true
+    end
+    dr = caller_cell.get_region.get_domain_root
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        @restrict_list2[entry_name][func_name].each{ |region|
+          if dr == region then
+            return true
+          end
+        }
+      elsif @restrict_list[entry_name][nil] then
+        @restrict_list2[entry_name][nil].each{ |region|
+          if dr == region then
+            return true
           end
+        }
       else
+        @restrict_list[ entry_name ][ func_name ] = region_name_list
+      end
+    else
+      func_list = { }
+      func_list[ func_name ] = region_name_list
+      @restrict_list[ entry_name ] = func_list
+    end
+    # pp @restrict_list
+  end
+  #=== Cell#check_restrict_list
+  def check_restrict_list
+    @restrict_list.each{ |entry_name, func_hash|
+      func_hash.each{ |func_name, region_list|
+        region_list.each{ |rn|
+          obj = Namespace.find [ rn ]
+          if ( obj.kind_of? Region ) then
+            if obj.get_domain_root != @region.get_domain_root then
+            else
+              cdl_warning( "W9999 $1 in same domain", rn )
+            end
+          else
+            cdl_error( "S9999 $1 not region", region )
+          end
+        }
+      }
+    }
+  end
+  #=== Cell#callable?
+  def callable?( callee_cell, entry_name, func_name )
+    res = callee_cell.callable_from?( entry_name, func_name, self )
+    dbgPrint "callable? #{callee_cell.get_namespace_path}.#{entry_name}.#{func_name} from #{@NamespacePath} is #{res}\n"
+    return res
+  end
+  #=== Cell#callable_from? (private)
+  def callable_from?( entry_name, func_name, caller_cell )
+    if @restrict_list.length == 0 then
+        return false
+      end
+    else
+      return false
+    end
+  end
+  #=== Cell#get_callable_regions( entry_name, func_name )
+  # func_name=nil の場合、entry_name の可否をチェック数る
+  # nil が返る場合、制限されていないことを意味する
+  def get_restricted_regions( entry_name, func_name )
+    # p "get_restricted_regions #{@name}"
+    @b_restrict_referenced = true
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][func_name] then
+        return @restrict_list2[entry_name][func_name]
+      else
+        return @restrict_list2[entry_name][nil]
+      end
+    end
+    return nil
+  end
+  #=== Cell#has_ineffective_restrict_specifier
+  # restrict 指定子が指定されていて、参照されていない場合 true
+  # 参照は、HRPSVCPlugin のみ
+  def has_ineffective_restrict_specifier
+    if @restrict_list.length != 0 && @b_restrict_referenced == false then
       return true
+    end
+    if @restrict_list[entry_name] then
+      if @restrict_list[entry_name][nil] &&
+         @restrict_list[entry_name][nil].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      end
+      if @restrict_list[entry_name][func_name] &&
+         @restrict_list[entry_name][func_name].include?( caller_cell.get_region.get_domain_root.get_name )then
+        return true
+      else
+        return false
+      end
+    else
+      return true
+    end
+  end
+    else
+      return false
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
   end
+  def get_global_name
+    @global_name
+  end
   def get_port_list
     @port_list
 …
   def get_internal_allocator_list
     @internal_allocator_list
+  end
+  #== CompositeCelltype#get_real_celltype
+  # port_name に接続されている内部のセルタイプを得る
+  def get_real_celltype( port_name )
+    cj = find_export port_name
+    inner_celltype = cj.get_cell.get_celltype
+    if inner_celltype.instance_of? CompositeCelltype then
+      return inner_celltype.get_real_celltype
+    else
+      return inner_celltype
+    end
   end
 …
     else
       # entry port optimize
       if $unopt then
+      if $unopt || $unopt_entry then
         # 最適化なし
         @b_VMT_useless = false                     # VMT 不要 (true の時 VMT を介することなく呼出す)
 …
   def is_VMT_useless?                     # VMT 関数テーブルを使用しない
+   @b_VMT_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_VMT_useless
+    end
   end
   def is_skelton_useless?                 # スケルトン関数不要   (true の時、受け口関数を呼出す)
+    @b_skelton_useless
+    if @port_type == :ENTRY && $unopt_entry == true then
+      # プラグインから $unopt_entry を設定するケースのため
+      # ここで読み出すときに、false を返す (reset_optimize での設定変更は速すぎる)
+      return false
+    else
+      return @b_skelton_useless
+    end
   end
 …
       if ! c.get_f_def then   # Namespace の @cell_list にはプロトタイプが含まれるケースあり
         if c.get_f_ref then
           cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_error( "S1093 $1 : undefined cell" , c.get_namespace_path.get_path_str )
         elsif $verbose then
           cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1006 $1 : only prototype, unused and undefined cell" , c.get_namespace_path.get_path_str )
         end
       else
 …
         # if c.get_f_ref == false && c.is_generate? && ct && ct.is_inactive? then
         if c.get_f_ref == false && ct && ct.is_inactive? then
+          cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+          c.cdl_warning( "W1007 $1 : non-active cell has no entry join and no factory" , c.get_namespace_path.get_path_str )
+        end
+        if c.has_ineffective_restrict_specifier then
+          c.cdl_warning( "W9999: $1 has ineffective restrict specifier", c.get_namespace_path.get_path_str )
         end
       end
 …
   end
+  #== Namespace (Region) に属するセルのリスト
+  def get_cell_list
+    @cell_list
+  end
+  #== Namespace (Region)# 子リージョンのリスト
+  #
+  # リージョンは Namespace クラスで namespace として記憶されている
+  def get_region_list
+    @namespace_list
+  end
   def show_tree( indent )
     indent.times { print "  " }
 …
           next_cell_nsp       = @through_generated_list[ i + 1 ].get_cell_namespace_path
           next_port_name      = @through_generated_list[ i + 1 ].get_through_entry_port_name
+          next_port_subscript = @through_generated_list[ i + 1 ].get_through_entry_port_subscript
         rescue Exception => evar
           cdl_error( "S1124 $1: plugin function failed: \'get_through_entry_port_name\'" , plugin_name )
 …
         next_cell      = @cell
         next_port_name = @port_name
+        next_port_subscript = @rhs_subscript
         if next_cell == nil then
 …
         # region から @cell_name.@port_name への through がないか探す
         # rp = @through_list[i][3].find_cell_port_through_plugin( @cell_name, @port_name ) #762
         rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name )
+        rp = @through_list[i][3].find_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript )
            # @through_list[i] と @region_through_list[i-cp_len] は同じ
         # 共用しないようにするには、見つからなかったことにすればよい
 …
         plClass = load_plugin( plugin_name, ThroughPlugin )
         if( plClass ) then
           gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, plClass )
+          gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
         end
       else
 …
           # 生成したものを region(@through_list[i][3]) のリストに追加
           # @through_list[i][3].add_cell_port_through_plugin( @cell_name, @port_name, @through_generated_list[i] ) #762
           @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @through_generated_list[i] )
+          @through_list[i][3].add_cell_port_through_plugin( @cell.get_global_name, @port_name, @rhs_subscript, @through_generated_list[i] )
         end
       end
 …
   #=== Join# through プラグインを呼び出して CDL 生成させるとともに、import する
   def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, plClass )
+  def gen_through_cell_code_and_parse( plugin_name, i, next_cell, next_port_name, next_port_subscript, plClass )
     through = @through_list[ i ]
 …
     begin
+      plugin_object = plClass.new( "#{generating_cell_name}".to_sym, plugin_arg.to_s, next_cell, "#{next_port_name}".to_sym, @definition.get_signature, @celltype, caller_cell )
+      plugin_object = plClass.new( generating_cell_name.to_sym, plugin_arg.to_s,
+                                   next_cell, next_port_name.to_sym, next_port_subscript,
+                                   @definition.get_signature, @celltype, caller_cell )
       plugin_object.set_locale @locale
     rescue Exception => evar
 …
   end
+  def get_rhs_subscript
+  # 末尾数字1 : CDL で指定された、右辺のセルを返す
+  def get_rhs_cell1   # get_cell と同じ
+    @cell
+  end
+  def get_rhs_port1   # get_port_name 同じ
+    @port_name
+  end
+  def get_rhs_subscript1
     @rhs_subscript
   end
 …
     # through 指定あり？
     if @through_list[0] then
-      # mikan through で生成したものが root namespace 限定
       # through で生成されたセルを探す
-#      cell = Namespace.find( [ "::", @through_generated_list[0].get_cell_name.to_sym ] )    #1
       cell = Namespace.find( @through_generated_list[0].get_cell_namespace_path )    #1
       # cell のプラグインで生成されたポート名のポートを探す (composite なら内部の繋がるポート)
 …
       # ポートを返す(composite なら内部の繋がるポートを返す)
       return @cell.get_real_port( @port_name )
+    end
+  end
+  #=== Join# 右辺の配列添数を得る
+  #    右辺が through の場合は挿入されたセルの添数
+  #    右辺が composite の場合は、内部の繋がるセルのポートの添数 (composite では変わらない)
+  #    このメソッドは get_rhs_cell,  と対になっている
+  def get_rhs_subscript
+    if @through_list[0] then
+      return @through_generated_list[0].get_through_entry_port_subscript
+    else
+      return @rhs_subscript
     end
   end
 …
 end
 #== Domain
+#== DomainType
+#
 # region の domain を記憶するクラス
 …
       return if pluginClass == nil
       @plugin = pluginClass.new( @region, @name, @option )
+      @plugin.set_locale @locale
     end
   end
 …
   end
   #== Domain リージョンの Hash を得る
+  #== DomainType リージョンの Hash を得る
   # @@domain_regions の説明参照
   def self.get_domain_regions
 …
   def get_option
     @option
+  end
+  #== DomainType#ドメイン種別を得る
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    @plugin.get_kind
   end
 …
     if @@domain_name then
+      dbgPrint "Region=#{name} domain_type=#{@@domain_name} option=#{@@domain_option}\n"
       domain_option = CDLString.remove_dquote @@domain_option.to_s
       @domain_type = DomainType.new( self, @@domain_name, domain_option )
 …
   end
+  #== Region# ルートリージョン
+  # ルートリージョンは、namespace のルートと同じインスタンス
+  def selfget_root
+    Namespace.get_root
+  end
   def next_in_through_count
     @in_through_count += 1
 …
   #=== Region# through プラグインで、この region から cell_name.port_name へのプラグインオブジェクトを登録
   # mikan namesppace 対応 (cell_name)
+  def add_cell_port_through_plugin( cell_name, port_name, through_plugin_object )
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name )
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}" ]
+  def add_cell_port_through_plugin( cell_name, port_name, subscript, through_plugin_object )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ] = through_plugin_object
+  end
+  def find_cell_port_through_plugin( cell_name, port_name, subscript )
+    if subscript then
+      subscript = '[' + subscript.to_s + ']'
+    end
+    return @cell_port_throug_plugin_list[ "#{cell_name}.#{port_name}#{subscript}" ]
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/ctypes.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
       #   TECS には long double を表現する手段がない (double80_t を定義すればよいか?)
 #      cdl_warning( "C1003 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.class, another.class, self.class )
+      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+#      cdl_warning( "W9999 $1 & $2 incompatible (\'long double\' is not supported.). Treated as $3." , self.get_type_str, another.get_type_str, self.get_type_str )
+      self.to_long
       return self
     else
 …
   end
+  def to_long
+    if @bit_size != -64 then
+      cdl_warning( "W9999 long specified for $1" , get_type_str )
+    else
+      @bit_size = -128  # @bit_size = -128 : long double
+    end
+  end
 end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/expression.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/generate.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2017 by TOPPERS Project
+#   Copyright (C) 2008-2019 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class Namespace
+  @@domain_gen_factory_list = nil
   def generate
 …
           return
         end
+        if instance_of? Region then
+          @@domain_gen_factory_list = {}   # create hash
+        end
       end
 …
       gen_global_header
+      if ( instance_of? Region ) && get_domain_type != nil then
+        # p "*******************  domain_type: #{get_domain_type.get_name}  ****************"
+        domain_type = get_domain_type
+        if @@domain_gen_factory_list[ domain_type ] == nil then
+          @@domain_gen_factory_list[ domain_type ] = self
+          domain_type.gen_factory
+        end
+      end
       # signature のコードを生成
       @signature_list.each { |s|
 …
+      }
     end
         f.print "       rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
+          f.print "     rm -f $(CELLTYPE_COBJS) $(TECSGEN_COBJS) $(PLUGIN_COBJS) $(OTHER_OBJS) $(TARGET) #{timestamp}\n"
     if $generating_region == @@root_namespace then
       f.print " rm -rf $(GEN_DIR)\n"
 …
       f.print "tecs : $(PRE_TECSGEN_TARGET) $(TIMESTAMP) $(POST_TECSGEN_TARGET)\n\n"
       f.print "$(TIMESTAMP) : $(TECS_IMPORTS)\n"
       f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n"
+      f.print " $(TECSGEN) #{TECSGEN.subst_tecspath( $arguments, true )}\n\n"
       # f.print "       touch $(TIMESTAMP)\n\n"
     else
       f.print "tecs:\n"
 …
     end
+    # tecsflow:, tcflow ターゲット
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  TECSFlow targets  #####\n"
+    end
+    if Region.get_link_roots.length > 1 && $generating_region == @@root_namespace then
+      tecsflow_target = "tecsflow_sub"
+      if $generating_region.get_n_cells > 0 then
+        f.print "tecsflow: tecs tecsflow_sub\n"
+      else
+        f.print "tecsflow:\n"
+      end
+      Region.get_link_roots.each {|region|
+        if region.get_n_cells > 0 then
+          f.print "\tcd #{region.get_global_name}; make tecsflow\n"
+        end
+      }
+      f.print "\n"
+    else
+      tecsflow_target = "tecsflow"
+    end
+    if $generating_region.get_n_cells != 0 then
+      f.print "#{tecsflow_target} : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR)\n\n"
+      f.print "tecsflow_u : $(GEN_DIR)/tecsgen.rbdmp tcflow\n"
+      f.print "\ttecsflow -g $(GEN_DIR) -U\n\n"
+      f.print "$(GEN_DIR)/tecsgen.rbdmp : tecs\n\n"
+      f.print "tcflow : tecs\n"
+      f.print "\tmake tcflow_exec\n\n"
+      f.print "tcflow_exec : $(GEN_DIR)/tcflow.rbdmp\n"
+      f.print "$(GEN_DIR)/tcflow.rbdmp : $(CELLTYPE_SRCS) $(PLUGIN_CELLTYPE_SRCS)\n"
+      f.print "\ttcflow -g $(GEN_DIR) -c '$(CC) -E -DTECSFLOW -DTECSGEN $(CFLAGS) -I ./' $^\n"
+    end
+    if $generating_region.get_n_cells != 0 || $generating_region == @@root_namespace then
+      f.print "#####  end TECSFlow targets  #####\n\n"
+    end
+    # generic %.o : %.c
     f.print "# generic target for objs\n"
     f.print "$(_TECS_OBJ_DIR)%.o : %.#{$c_suffix}\n"
 …
     ### Makefile.tecsgen の生成
     f = AppFile.open( "#{$gen}/Makefile.tecsgen" )
+    f.print <<EOT
+# generated automatically by tecsgen.
+# This file is not intended to modify.
+#
+# Makefile variables below are defined.
+#  TECS_IMPORT_CDLS          .cdl files improted by import statement
+#  SIGNATURE_HEADERS         .h files of signature
+#  CELLTYPE_TECSGEN_HEADERS  .h files of celltype
+#  CELLTYPE_FACTORY_HEADERS  .h files of celltype's factory
+#  TECS_HEADERS              summary of .h files above
+#  TECS_INLINE_HEADERS       .h files of celltype inline header
+#  PLUGIN_INLINE_HEADERS     .h files of plugin generated inline header
+#
+#  TECS_COBJS                .o files of TECS
+#                            = $(TECSGEN_COBJS)+$(PLUGIN_COBJS)+$(CELLTYPE_COBJS)
+#                            = $(TECS_KERNEL_COBJS)+$(TECS_KERNEL_COBJS)+$(TECS_OUTOFDOMAIN_COBJS)
+#                            = $(TECSGEN_domain_COBJS)+$(PLUGIN_domain_COBJS)+$(CELLTYPE_domain_COBJS) for each domain
+#
+#  TECSGEN_COBJS             .o files of celltype_tecsgen.c
+#  CELLTYPE_COBJS            .o files of celltype.c (celltype code)
+#  PLUGIN_COBJS              .o files of plugin generated .c files
+#
+#  TECSGEN_SRCS              .c files of celltype_tecsgen.c
+#  CELLTYPE_SRCS             .c files of celltype.c (celltype code)
+#  PLUGIN_SRCS               .c files of plugin generated
+#  PLUGIN_CELLTYPE_SRCS      .c files of plugin generated celltype.c (celltype code)
+#  PLUGIN_TECSGEN_SRCS       .c files of plugin generated celltype_tecsgen.c
+#
+# Variables for domain
+#  TECS_DOMAINS             domain names
+#  TECS_KERNEL_COBJS        .o files of kernel domain (tecsgen, celltype, plugin)
+#  TECS_USER_COBJS          .o files of user domain (tecsgen, celltype, plugin)
+#  TECS_OUTOFDOMAIN_COBJS   .o files of OutOfDomain (tecsgen, celltype, plugin)
+#  TECSGEN_domain_COBJS     .o files of celltype_tecsgen.c files for each domain
+#  PLUGIN_domain_COBJS      .o files of plugin generated .c files for each domain
+#  CELLTYPE_domain_COBJS    .o files of celltype.c files for each domain
+#  TECSGEN_domain_SRCS      .c files of celltype_domain_tecsgen.c
+#  PLUGIN_domain_SRCS       .c files of plugin generated .c files for each domain
+#  CELLTYPE_domain_SRCS     .c files of celltype.c files for each domain
+EOT
     f.print( "TECS_IMPORT_CDLS =" )
 …
     DomainType.get_domain_regions.each{ |dt, regions|
       # domain_type は一つのノードには、一つしかないので、このループは、必ず一回しか回らない
+        ###   mikan 複数のノードがあり、異なる domain_type が指定される可能性はある
       domain_regions = regions
       domain_type = dt
 …
       f.print( "\n\n" )
+      f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+      f.print( "# TECS_KERNEL_COBJS: objects belong to kernel domain\n" )
+      f.print( "TECS_KERNEL_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :kernel then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_KERNEL_COBJS terminator\n\n" )
+      f.print( "# TECS_USER_COBJS: objects belong to user domain\n" )
+      f.print( "TECS_USER_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :user then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_USER_COBJS terminator\n\n" )
+      f.print( "# TECS_OUTOFDOMAIN_COBJS: objects belong to OutOfDomain\n" )
+      f.print( "TECS_OUTOFDOMAIN_COBJS = \\\n" )
+      domain_regions.each{ |r|
+        if r.get_domain_type.get_kind == :OutOfDomain then
+          f.print( "    $(TECSGEN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(PLUGIN#{decideDomainNameProc.call r}_COBJS) \\\n" )
+          f.print( "    $(CELLTYPE#{decideDomainNameProc.call r}_COBJS) \\\n" )
+        end
+      }
+      f.print( "# TECS_OUTOFDOMAIN_COBJS terminator\n\n" )
+      f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
       f.print( "TECSGEN_COBJS = \\\n" )
       domain_regions.each{ |r|
 …
     ###
     f.print( "# TECS_COBJS: objects from sources which are automatically generated by tecsgen\n" )
+    f.print( "# TECSGEN_COBJS: objects from sources which are automatically generated by tecsgen\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
 …
     f.print( "# PLUGIN_SRCS: sources automatically generated by plugin\n" )
+    f.print( "PLUGIN_CELLTYPE_SRCS = \\\n" )
     domain_regions.each{ |r|
       nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "   $(GEN_DIR)/", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      gen_celltype_names_domain2( f, "  $(GEN_DIR)/", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_SRCS terminator\n\n" )
+    }
+      f.print( "  $(PLUGIN#{nsp}_CELLTYPE_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_CELLTYPE_SRCS terminator\n\n" )
+    f.print( "PLUGIN_TECSGEN_SRCS = \\\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "  $(PLUGIN#{nsp}_TECSGEN_SRCS)\\\n" )
+    }
+    f.print( "# PLUGIN_TECSGEN_SRCS terminator\n\n" )
+    domain_regions.each{ |r|
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_SRCS = $(PLUGIN#{nsp}_CELLTYPE_SRCS) $(PLUGIN#{nsp}_TECSGEN_SRCS)\n\n" )
+      f.print( "PLUGIN#{nsp}_CELLTYPE_SRCS = \\\n" )
+      gen_celltype_names_domain2( f, "", ".#{$c_suffix} \\\n", domain_type, r, true, false )
+      f.print( "# PLUGIN#{nsp}_CELLTYPE_SRCS terminator\n\n" )
+      nsp = decideDomainNameProc.call( r )
+      f.print( "PLUGIN#{nsp}_TECSGEN_SRCS = \\\n" )
+      gen_celltype_names_domain( f, "", "_tecsgen.#{$c_suffix} \\\n", domain_type, r, true )
+      f.print( "# PLUGIN#{nsp}_TECSGEN_SRCS terminator\n\n" )
+    }
+    f.print( "# CELLTYPE_SRCS: sources of celltype code written by user\n" )
+     f.print( "CELLTYPE_SRCS = \\\n" )
+     gen_celltype_names( f, "   ", ".#{$c_suffix} \\\n", false, false )
+      f.print( "# CELLTYPE_SRCS terminator\n\n" )
     f.close
 …
     @namespace_list.each{ |ns|
       ns.travers_all_signature_proc proc
+    }
+  end
+  #=== Namespace#すべてのセルタイプをたどる
+  def travers_all_celltype # ブロック引数 { |celltype|  }
+    proc = Proc.new    # このメソッドのブロック引数
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
+  end
+  def travers_all_celltype_proc proc
+    @celltype_list.each{ |ct|
+      proc.call ct
+    }
+    @namespace_list.each{ |ns|
+      ns.travers_all_celltype_proc proc
+    }
   end
 …
     gen_ph_get_cellcb f
     gen_ph_attr_access f          if @n_attribute_rw > 0 || @n_attribute_ro > 0 || @n_var > 0
+    gen_ph_cp_fun_macro f         if @n_call_port > 0
+    f.print "#ifndef TECSFLOW\n"
+    gen_ph_cp_fun_macro f, false  if @n_call_port > 0
+    f.print "#else  /* TECSFLOW */\n"
+    gen_ph_cp_fun_macro f, true   if @n_call_port > 0
+    f.print "#endif /* TECSFLOW */\n"
 #    gen_ph_abstract_ep_des_type f
 …
   def gen_ph_info f
+    yn_multi_domain = "no"
+    yn_multi_domain = "yes" if multi_domain?
     yn_idx_is_id = "no"
     yn_idx_is_id = "yes"  if @idx_is_id
 …
     yn_rom       = "no"
     yn_rom       = "yes"  if $rom
+    yn_has_CB    = "no"
+    yn_has_CB    = "yes"  if has_CB?
+    yn_has_INIB  = "no"
+    yn_has_INIB  = "yes"  if has_INIB?
     yn_cb_init   = "no"
     yn_cb_init   = "yes"  if need_CB_initializer?
 …
  * celltype          :  #{@name}
  * global name       :  #{@global_name}
+ * multi-domain      :  #{yn_multi_domain}
  * idx_is_id(actual) :  #{yn_idx_is_id}(#{yn_idx_is_id_act})
  * singleton         :  #{yn_singleton}
  * has_CB            :  #{has_CB?}
  * has_INIB          :  #{has_INIB?}
+ * has_CB            :  #{yn_has_CB}
+ * has_INIB          :  #{yn_has_INIB}
  * rom               :  #{yn_rom}
  * CB initializer    :  #{yn_cb_init}
 …
       f.print( "#define #{@global_name}_GET_CELLCB(idx) ((void *)0)\n" )
     elsif @idx_is_id_act then   # mikan 単一のセルの場合の最適化, idx_is_id でない場合
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_tab[(idx) - #{@global_name}_ID_BASE])\n" )
+      f.print( "#define #{@global_name}_GET_CELLCB(idx) (#{@global_name}_CB_ptab[(idx) - #{@global_name}_ID_BASE])\n" )
     else
       f.print( "#define #{@global_name}_GET_CELLCB(idx) (idx)\n" )
 …
   end
   def gen_ph_cp_fun_macro f
     if @n_call_port >0 then
+  def gen_ph_cp_fun_macro f, b_flow
+    if @n_call_port >0 && b_flow == false then
       f.printf( TECSMsg.get( :CPM_comment ) , "#_CPM_#" )
     end
 …
         # 関数名の出力(標準：受け口ディスクリプタから VMT の関数名、最適化：受け口関数 or 受け口ディスクリプタ)
+        if ! p.is_VMT_useless? then
+        if b_flow then
+          f.print( "\t  (p_that)->#{p.get_name}#{subsc}.#{fun.get_name}__T( \\\n" )
+        elsif ! p.is_VMT_useless? then
           # 標準コード
           if @singleton then
 …
         # 受け口情報の出力(標準：受け口ディスクリプタ、最適化：IDX など)
+        if ! p.is_skelton_useless? && ! p.is_cell_unique? then
+        if b_flow then
+        elsif ! p.is_skelton_useless? && ! p.is_cell_unique? then
           # 標準コード
           if @singleton then
 …
         p_cellcb = "    #{@global_name}_CB *p_cellcb = p_that;\n"
         delim = ", "
         cb = "p_that#{inib}->"
+        cb = "p_cellcb#{inib}->"
       end
 …
         f.print "extern  #{@global_name}_INIB  #{@global_name}_SINGLE_CELL_INIB;\n"
       end
-#     @ordered_cell_list.each{ |c|
-#        f.print "extern  #{@global_name}_CB  #{@global_name}_#{c.get_name}_CB;\n"
-#      }
       f.print "\n"
+    elsif @idx_is_id_act then
+      f.print "extern #{@global_name}_CB  *#{@global_name}_CB_tab[];\n"
+    elsif @b_need_ptab then
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPP_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  *const #{@global_name}_CB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_CB  #{name_array[4]};\n"
+          end
+        }
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  *const #{@global_name}_INIB_ptab[];\n"
+        @ordered_cell_list.each{ |c|
+          if c.is_generate? then                           # 生成対象か？
+            name_array = get_name_array c
+            f.print "extern #{@global_name}_INIB  #{name_array[11]};\n"
+          end
+        }
+      end
     else
+      f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      f.printf( TECSMsg.get( :SCP_comment ),  "#_MCPB_#" )
+      if has_CB? then
+        f.print "extern #{@global_name}_CB  #{@global_name}_CB_tab[];\n"
+      elsif has_INIB?
+        f.print "extern #{@global_name}_INIB  #{@global_name}_INIB_tab[];\n"
+      end
     end
   end
   def gen_ph_INIB_as_CB f
+    # ここは、手抜きである。本来なら INIB を出力すべき
     if ! has_CB? && has_INIB? then
       f.printf( TECSMsg.get( :DCI_comment ),  "#_DCI_#" )
+      f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      if @singleton then
+        f.print "#define #{@global_name}_SINGLE_CELL_CB   #{@global_name}_SINGLE_CELL_INIB\n"
+      elsif @b_need_ptab then
+        f.print "#define #{@global_name}_CB_ptab           #{@global_name}_INIB_ptab\n"
+      else
+        f.print "#define #{@global_name}_CB_tab           #{@global_name}_INIB_tab\n"
+      end
       f.print "#define #{@global_name}_CB               #{@global_name}_INIB\n"
       f.print "#define tag_#{@global_name}_CB           tag_#{@global_name}_INIB\n"
 …
       f.printf( TECSMsg.get( :FEC_comment ), "#_FEC_#" )
       if @idx_is_id_act then
+      if @b_need_ptab then
         amp = ''
+        tab = 'ptab'
       else
         amp = '&'
+        tab = 'tab'
       end
       f.print <<EOT
 #define FOREACH_CELL(i,p_cb)   \\
     for( (i) = 0; (i) < #{@global_name}_N_CELL; (i)++ ){ \\
        #{necessity}(p_cb) = #{amp}#{@global_name}_CB_tab[i];
+       #{necessity}(p_cb) = #{amp}#{@global_name}_CB_#{tab}[i];
 #define END_FOREACH_CELL   }
 …
         if @singleton then
           f.print "\t#{that}_inib = &#{@global_name}_SINGLE_CELL_INIB;\n\n"
         elsif @idx_is_id_act
           f.print "\t#{that}_inib = #{@global_name}_INIB_tab[(i)];\n\n"
+        elsif @b_need_ptab then
+          f.print "\t#{that}_inib = #{@global_name}_INIB_ptab[(i)];\n\n"
         else
           f.print "\t#{that}_inib = &#{@global_name}_INIB_tab[(i)];\n\n"
 …
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_SINGLE_CELL_INIB = \n" }
         indent = 0
       elsif ! @idx_is_id_act then
+      elsif ! @b_need_ptab then
         fs.each{ |r, f| f.print "#{@global_name}_INIB #{@global_name}_INIB_tab[] = {\n" }
         indent = 1
 …
         print_indent( f, indent )
         if @idx_is_id_act then
+        if @b_need_ptab then
           f.print "const #{@global_name}_INIB #{name_array[5]} = "
         end
 …
         unless @singleton then
           # 1 つの cell INIB の終わり
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print( "};\n\n" )
           else
 …
         end
+      }
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         fs.each{ |r, f| f.print( "};\n\n" ) }
       end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB = \n" }
           indent = 0
         elsif ! @idx_is_id_act then
+        elsif ! @b_need_ptab then
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_CB_tab[] = {\n" }
           indent = 1
 …
           print_indent( f, indent )
           if @idx_is_id_act then
+          if @b_need_ptab then
             f.print "#{@global_name}_CB #{name_array[2]} = "
           end
 …
           unless @singleton then
             # 1 つの cell CB の終わり
             if @idx_is_id_act then
+            if @b_need_ptab then
               f.print( "};\n\n" )
             else
 …
           end
+        }
         if ! @idx_is_id_act then
+        if ! @b_need_ptab then
           fs.each{ |r, f| f.print( "};\n\n" ) }
         end
 …
           fs.each{ |r, f| f.print "struct tag_#{@global_name}_CB #{@global_name}_SINGLE_CELL_CB;\n" }
           indent = 0
         elsif @idx_is_id_act then
+        elsif @b_need_ptab then
           @ordered_cell_list.each{ |c|
             next if ! c.is_generate?
 …
   def gen_cell_cb_tab f
     indent = 0
     if @idx_is_id_act then
+    if @b_need_ptab then
       if has_INIB? && ( $ram_initializer || ! has_CB? ) then
         f.print "/* ID to INIB table #_INTAB_# */\n"
 …
+        }
         f.print "#{@global_name}_INIB *#{@global_name}_INIB_tab[] ={\n"
+        f.print "#{@global_name}_INIB *const #{@global_name}_INIB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
+        }
         f.print "#{@global_name}_CB *#{@global_name}_CB_tab[] ={\n"
+        f.print "#{@global_name}_CB *const #{@global_name}_CB_ptab[] ={\n"
         @ordered_cell_list.each{ |c|
           if c.is_generate? then                           # 生成対象か？
 …
   #   name_array[9] = @global_name    # celltype global name
   #   name_array[10] = cell.get_global_name # cell global name
+  #   name_array[11] = cell_INIB_proto #INIB name for proto type
   def get_name_array( cell )
 …
       cell_CB_proto = "#{@global_name}_SINGLE_CELL_CB"
       cell_INIB_name = "#{@global_name}_SINGLE_CELL_INIB"
+      cell_INIB_proto = cell_INIB_name
       cell_ID = 0
     else
       if ! @idx_is_id_act then
+      if ! @b_need_ptab then
         index = cell.get_id - cell.get_celltype.get_id_base
         cell_CB_name = "#{@global_name}_CB_tab[#{index}]"
 …
         cell_CB_proto = "#{@global_name}_CB_tab[]"
         cell_INIB_name = "#{@global_name}_INIB_tab[#{index}]"
+        cell_INIB_proto = "#{@global_name}_INIB_tab[]"
       else
         cell_CB_name = "#{cell.get_global_name}_CB"
 …
         cell_CB_proto = cell_CB_name
         cell_INIB_name = "#{cell.get_global_name}_INIB"
+        cell_INIB_proto = cell_INIB_name
       end
       cell_ID = cell.get_id
-    end
-    if @idx_is_id_act then
-      cell_IDX = cell_ID
-    else
-      cell_IDX = "&#{cell_CB_name}"
     end
 …
     else
       cell_CBP = "NULL"    # CB も INIB もなければ NULL に置換
+    end
+    if @idx_is_id_act then
+      cell_IDX = cell_ID
+    else
+      cell_IDX = cell_CBP
     end
 …
     name_array[9] = @global_name    # celltype global name
     name_array[10] = cell.get_global_name # cell global name
+    name_array[11] = cell_INIB_proto # INIB name for prototype
     return name_array
 …
               c = j.get_rhs_cell                    # 呼び先セル
               ct = c.get_celltype                   # 呼び先セルタイプ
+              name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
               if ct.has_INIB? || ct.has_CB? then
-                name_array = ct.get_name_array( c )   # 呼び先セルタイプで name_array を得る
                 f.printf( "%-40s /* %s #_CCP2_# */\n", "#{name_array[7]},", p.get_name )
               else
 …
       f = fs[ c.get_region.get_domain_root ]
       ct = c.get_celltype
+      ct = c.get_celltype     # ct = self でも同じ
       jl = c.get_join_list
+      name_array = get_name_array( c )
       port = ct.get_port_list
 …
               else
                 if has_CB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB */\n"
+                  else
+                    # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                    f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_CB,        /* CB 1 */\n"
+                  # else
+                  #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                  #   f.print "    &#{@global_name}_CB_tab[#{index}],      /* CB 2 */\n"
+                  # end
+                  f.print "    #{name_array[8]},      /* CB 1 */\n"
                 elsif has_INIB? then
+                  if @singleton then
+                    f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB */\n"
+                  else
+                    f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB */\n"
+                  end
+                  # if @singleton then
+                  #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,      /* INIB 1 */\n"
+                  # else
+                  #   f.print "    &#{@global_name}_INIB_tab[#{index}],    /* INIB 2 */\n"
+                  # end
+                  f.print "    &#{name_array[5]},      /* INIB 1 */\n"
                 else
                   f.print "    0,\n"
 …
             else
               if has_CB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB */\n"
+                else
+                  f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB */\n"
+                  # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_CB,       /* CB 3 */\n"
+                # else
+                #   f.print "    &#{@global_name}_CB_tab[#{index}],     /* CB 4 */\n"
+                #   # f.print "    &#{@global_name}_#{c.get_name}_CB,\n"
+                # end
+                f.print "    #{name_array[8]},      /* CB 3 */\n"
               elsif has_INIB? then
+                if @singleton then
+                  f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB */\n"
+                else
+                  f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB */\n"
+                end
+                # if @singleton then
+                #   f.print "    &#{@global_name}_SINGLE_CELL_INIB,     /* INIB 3 */\n"
+                # else
+                #   # f.print "    &#{@global_name}_INIB_tab[#{index}],   /* INIB 4 */\n"
+                # end
+                f.print "    &#{name_array[5]},      /* INIB 3 */\n"
               else
                 f.print "    0,\n"
 …
   def generate_inline_template_code
     return if @n_entry_port_inline == 0
+    return if @b_reuse && ! $generate_all_template
     if ! ( @plugin && @plugin.gen_ep_func? ) then
       return if @b_reuse && ! $generate_all_template
 …
   #  str に以下の置換を行う
   #-   $ct$ ⇒ セルタイプ名(ct)
   #-   $cell$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell$ ⇒ セル名(cell)   cell が nil ならば以下の置換は行われない
   #-   $cb$ ⇒ CB の C 言語名(cb)
   #-   $cbp$ ⇒ CB へのポインタ(cbp)
   #-   $cb_proto$ ⇒ CB の C 言語名プロトタイプ宣言用(cb_proto)
   #-   $id$ ⇒ ct_cell
+  #-   $id$ ⇒ $ct$_$cell_global$    # ct_cell  before or same V1.5.2
   #-   $idx$ ⇒ idx
   #-   $ID$ ⇒ id (整数の番号)
   #-   $ct_global$ ⇒ セルタイプ名(ct)
   #-   $cell_global$ ⇒ セル名(cell)   cell が nil ならば3つの置換は行われない
+  #-   $cell_global$ ⇒ セル名(cell)
   #-   $$   ⇒ $
   def subst_name( str, name_array )
 …
     str = str.gsub( /(^|[^\$])\$ct\$/, "\\1#{ct}" )
+    str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
     if cell then
       str = str.gsub( /(^|[^\$])\$cell\$/, "\\1#{cell}" )
       str = str.gsub( /(^|[^\$])\$cb\$/, "\\1#{cb}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      # str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell}" )
+      str = str.gsub( /(^|[^\$])\$id\$/, "\\1#{ct}_#{cell_global}" )
       str = str.gsub( /(^|[^\$])\$cb_proto\$/, "\\1#{cb_proto}" )
       str = str.gsub( /(^|[^\$])\$ID\$/, "\\1#{id}" )
       str = str.gsub( /(^|[^\$])\$idx\$/, "\\1#{idx}" )
       str = str.gsub( /(^|[^\$])\$cbp\$/, "\\1#{cbp}" )
-      str = str.gsub( /(^|[^\$])\$ct_global\$/, "\\1#{ct_global}" )
       str = str.gsub( /(^|[^\$])\$cell_global\$/, "\\1#{cell_global}" )
     end
 …
   end
 end
+class DomainType < Node
+  def gen_factory
+    # p "DomainType: gen_factory"
+    @plugin.gen_factory
+  end
+end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/location.rb

r337	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/messages.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/optimize.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   def set_domain
+    domain_cells = {}
     @cell_list.each{ |c|
       if c.is_generate? then
 …
           @domain_roots[ dn ] = [ dr ]
         end
+        if domain_cells[ dr ]  then
+          domain_cells[ dr ] << c
+        else
+          domain_cells[ dr ] = [ c ]
+        end
       end
+    }
 …
     @domain_roots.each{ |dn, drs|
       drs.uniq!
+      if ! $debug then
+        dbgPrint "domains celltype:#{@name} domain=#{dn} "
+      if $verbose && dn then
+        print "[domain] celltype=#{@name} domainType=#{dn} domainRootRegions={"
+        delim = ""
         drs.each{ |r|
+          dbgPrint " region=#{r.get_name}"
+          print delim, r.get_name
+          delim = ", "
+        }
+        dbgPrint "\n"
+        print "}\n"
+        drs.each{ |r|
+          print "[domain] celltype=#{@name} domainRootRegion=#{r.get_name} domainType=#{dn} domainKind=#{r.get_domain_root.get_domain_type.get_kind} domainCells={"
+          delim = ""
+          domain_cells[r].each{ |c|
+            print delim, c.get_name
+            delim = ", "
+          }
+          print "}\n"
+        }
       end
+    }
 …
       # domain_type は一つのノードに一つしかないので、一つの要素を無条件で取り出す
       if regions.length > 1 then
+        cdl_info( "I9999 celltype:#{@name} has cells in multi domain.\n" )
+        if @idx_is_id == false then
+          cdl_info( "I9999 celltype:#{@name} forcely set idx_is_id\n" )
+        end
+        @idx_is_id_act = true
+        if $verbose then
+          cdl_info( "I9999 celltype '$1' has cells in multi-domain.\n", @name )
+        end
+        # if @idx_is_id == false then
+        #   cdl_info( "I9999 celltype '$1' forcely set idx_is_id\n", @name )
+        # end
+        @b_need_ptab = true
+        # @idx_is_id_act = true
       end
+    }
 …
     end
+    optimize_call
+    if $unopt_entry == false then
+      optimize_entry
+    end
+  end
+  #=== Celltype#呼び口最適化
+  def optimize_call
     @port.each{ |port|
       next if port.get_port_type != :CALL
 …
       dbgPrint "#{port.get_name} : # of cells : #{port_cells.length}  # of ports : #{port_ports.length}\n"
+    }
+  end
+  #=== Celltype#受け口最適化
+  # optimize_entry は、呼び口最適化の結果を使用している
+  def optimize_entry
     # 受け口最適化の設定
     @port.each{ |port|

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/plugin.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
       #  識別子取得
       if arg =~ /\A[a-zA-Z_]\w*/ then
         ident = $~
+        ident = $~.to_s    #
         arg = $'
       else

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/pluginModule.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/syntaxobj.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2016 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   end
+  #=== Decl# print_flowinfo
+  def print_flowinfo file
+    if @kind == :VAR then
+      file.write "#{@identifier} "
+    end
+  end
   def show_tree( indent )
     indent.times { print "  " }

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/tecsgen.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
     Cell.create_reverse_join
+    DescriptorType.check_signature
+    Signature.set_descriptor_list
+    Celltype.check_dynamic_join
     #0 set_definition_join は2回呼び出される（1回目）
     dbgPrint( "## Checking all join\n")
 …
   end # finalize
+  def dump_tecsgen_rbdmp
+    dbgPrint "dump_tecsgen_rbdmp 0:\n"
+    #### unjoin_plugin 後に行う必要があるため、コード生成後にダンプを行う
+    #### Region link root ごとにオプティマイズしてダンプ ####
+    Namespace.get_root.unjoin_plugin
+    Namespace.get_root.find_plugin 0, []
+    Region.get_link_roots.each { |region|
+      dbgPrint "dump_tecsgen_rbdmp 1: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      n_cells = region.get_n_cells
+      if $region_list.length > 0 then
+        if $region_list[ region.get_namespace_path.get_path_str ] == false then
+          $region_list[ region.get_namespace_path.get_path_str ] = true
+        else
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 2: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      # セルが一つもなければ生成しない
+      # セルの生成がない場合
+      if region.get_n_cells == 0 then
+        # if $region_list.length > 0 then
+        #   Generator.warning( "W9999 $1: specified to generate but has no cell", region.get_name )
+        # end
+        if region != @root_namespace then
+          next
+        end
+      end
+      dbgPrint "dump_tecsgen_rbdmp 3: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      $generating_region = region
+      if Region.get_link_roots.length > 1 then
+        if region.get_name == "::" then
+          $gen = $gen_base
+        else
+          $gen = $gen_base + "/" + region.get_global_name.to_s
+        end
+      else
+        $gen = $gen_base
+      end
+      dbgPrint "dump_tecsgen_rbdmp 4: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      dbgPrint( "## Unset optimize variables\n")
+      @root_namespace.reset_optimize   # 最適化をリセットする
+      #  if Generator.get_n_error == 0 then
+      #   # エラーが発生していたら、ここへは来ない
+         dbgPrint( "## Set cell id\n")
+        @root_namespace.set_cell_id_and_domain      # セルの ID とドメイン情報を設定（linkunit 毎に0からつける）
+        # エラーが発生していたら、最適化は実施しない
+        if ! $unopt then
+          dbgPrint( "## Optimizing: Link Region=#{@root_namespace.get_name}\n")
+          @root_namespace.optimize
+        end
+      # end
+      dbgPrint "dump_tecsgen_rbdmp final: Region.path_str: #{region.get_namespace_path.get_path_str}\n"
+      File.write( "#{$gen}/tecsgen.rbdmp", Marshal.dump(Namespace.get_root) )
+    }
+  end
   def self.post_coded?
     @@b_post_coded

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/tecsinfo.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2017 by TOPPERS Project
+#   Copyright (C) 2017-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #{indent0}region rTECSInfo {
 EOT
+    # mikan 全部生成するのではなく、region 下のセルのセルタイプと、そこから参照されるシグニチャ、セルタイプに限定して出力する．
+    Type.reset_print_info
+    # mikan 全部生成するのではなく、region 下のセルのセルタイプと、そこから参照されるシグニチャ、セルタイプに限定して出力すべき
     # しかし、意味解析後に出力するため、これは容易ではない．最適化とコード生成は、リンクルートごとに行われる．
     Namespace.print_info f, indent
 …
                  "#{tag.get_ID_str}_#{decl.get_name}",
                  "(uint32_t)(intptr_t)&(((#{tag.get_type_str}#{tag.get_type_str_post}*)0)->#{decl.get_name})"
+        f.printf "#define PLACE_OF_%-30s  (%s)\n",
+                 "#{tag.get_ID_str}_#{decl.get_name}",
+                 "VARDECL_PLACE_STRUCT"
+      }
+    }
 …
+    }
   end
+  def print_entry_define f
+    @celltype_list.each { |ct|
+      if ct.get_cell_list.length > 0 then
+        ct.print_entry_define f
+      end
+    }
+    @namespace_list.each { |ns|
+      if ns.instance_of? Namespace then   # region を含めない
+        ns.print_entry_define f
+      end
+    }
+  end
 end
 …
       name = @global_name
     end
+    # p "region:#{get_name}"
     f.print "\n#{indent}/*** #{get_namespace_path} region information cell ***/\n"
     f.print <<EOT
 #{indent}cell nTECSInfo::tRegionInfo #{name}RegionInfo{
 #{indent}    name = "#{@name}";
+#{indent}};
+EOT
+EOT
+    @cell_list.each{ |cell|
+        # print "cell class="+cell.get_celltype.class.name+", " + cell.get_celltype.get_name.to_s + " 1\n"
+      if ! cell.exclude_info? then
+        # print "cell class="+cell.get_celltype.class.name+", " + cell.get_celltype.get_name.to_s + " 2\n"
+        f.print "#{indent}    cCellInfo[] = #{cell.get_global_name}CellInfo.eCellInfo;\n"
+      end
+    }
+    @namespace_list.each { |region|
+      if region.instance_of? Region then
+        f.print "#{indent}    cRegionInfo[] = #{region.get_global_name}RegionInfo.eRegionInfo;\n"
+       end
+    }
+    f.print "#{indent}};\n"
+    @cell_list.each{ |cell|
+      if ! cell.exclude_info? then
+        cell.print_info f, indent
+      end
+    }
   end
 …
     self.print_info_region f, indent
   end
+  def self.print_cell_define f
+    region.get_link_root.print_cell_define f
+    region.get_link_root.get_region{ |region|
+      if region.instance_of? Region then
+        region.print_cell_define_offset f
+      end
+    }
+  end
+  def print_cell_define f
+    ct_list = {}
+    @cell_list.each{ |cell|
+      next if cell.exclude_info_factory?
+      ct_list[ cell.get_celltype ] = true
+    }
+    f.print "#define TOPPERS_CB_TYPE_ONLY\n"
+    ct_list.each{ |ct, val|
+      f.print "#include \"#{ct.get_global_name}_tecsgen.h\"\n"
+    }
+    f.print "\n"
+    @cell_list.each{ |cell|
+      next if cell.exclude_info_factory?
+      name_array = cell.get_celltype.get_name_array cell
+      if cell.get_celltype.has_CB?
+        cb = "(void*)#{name_array[8]}"
+        cb_proto = "extern #{cell.get_celltype.get_global_name}_CB #{name_array[4]};\n"
+      else
+        cb = "0"
+        cb_proto = ""
+      end
+      if cell.get_celltype.has_INIB?
+        inib = "(void*)&#{name_array[5]}"
+        inib_proto = "extern #{cell.get_celltype.get_global_name}_INIB #{name_array[11]};\n"
+      else
+        inib = "0"
+        inib_proto = ""
+      end
+      if ! cell.exclude_info_factory? then
+        f.print <<EOT
+#{cb_proto}#define  #{cell.get_global_name}__CBP   #{cb}
+#{inib_proto}#define  #{cell.get_global_name}__INIBP #{inib}
+EOT
+      end
+    }
+    @namespace_list.each { |region|
+      if region.instance_of? Region then
+        region.print_cell_define f
+      end
+    }
+  end
+  def print_entry_descriptor_define f
+    @cell_list.each{ |cell|
+      next if cell.exclude_info_factory?
+      signatures = {}
+      cell.get_celltype.get_port_list.each{ |port|
+        next if port.get_port_type != :ENTRY
+        if signatures[ port.get_signature ] == nil then
+          f.print "#include \"#{port.get_signature.get_global_name}_tecsgen.h\"\n"
+        end
+        if cell.get_celltype.get_global_name == :nTECSInfo_tRawEntryDescriptorInfo then
+          f.print "const struct tag_#{cell.get_celltype.get_global_name}_#{port.get_name}_DES "
+          f.print "#{cell.get_global_name}_#{port.get_name}_des;\n"
+        else
+          f.print "extern struct tag_#{port.get_signature.get_global_name}_VDES "
+          f.print "#{cell.get_global_name}_#{port.get_name}_des;\n"
+        end
+      }
+    }
+    @namespace_list.each { |region|
+      if region.instance_of? Region then
+        region.print_entry_descriptor_define f
+      end
+    }
+  end
 end
 …
     f.print <<EOT
 #{indent}cell nTECSInfo::tCelltypeInfo #{@global_name}CelltypeInfo {
 #{indent}    name            = "#{@name}";
 #{indent}    b_singleton     = #{@singleton};
 #{indent}    b_IDX_is_ID_act = C_EXP( "#{@global_name}__IDX_is_ID_act" );
 #{indent}    b_hasCB         = C_EXP( "#{@global_name}__hasCB" );
 #{indent}    b_hasINIB       = C_EXP( "#{@global_name}__hasINIB" );
 #{indent}    n_cellInLinUnit = C_EXP( "#{@global_name}__NCELLINLINKUNIT" );
 #{indent}    n_cellInSystem  = #{@cell_list.length};
+#{indent}    name             = "#{@name}";
+#{indent}    b_singleton      = #{@singleton};
+#{indent}    b_IDX_is_ID_act  = C_EXP( "#{@global_name}__IDX_is_ID_act" );
+#{indent}    sizeOfCB         = C_EXP( "#{@global_name}__sizeOfCB" );
+#{indent}    sizeOfINIB       = C_EXP( "#{@global_name}__sizeOfINIB" );
+#{indent}    n_cellInLinkUnit = C_EXP( "#{@global_name}__NCELLINLINKUNIT" );
+#{indent}    n_cellInSystem   = #{@cell_list.length};
 EOT
     @port.each{ |port|
 …
+    }
     @attribute.each{ |decl|
       decl.print_info f, @global_name, indent
+      decl.print_info f, @global_name, indent, :DECLTYPE_ATTR
+    }
     @var.each{ |decl|
       decl.print_info f, @global_name, indent
+      decl.print_info f, @global_name, indent, :DECLTYPE_VAR
+    }
   end
 …
         if ! decl.is_omit? then
           offset = "(uint32_t)(intptr_t)&(((#{@global_name}_#{inib_cb}*)0)->#{decl.get_name})"
+          place = inib_cb
         else
           offset = "0xffffffff"
+          place = "NON"
         end
         f.printf "#define OFFSET_OF_%-30s  (%s)\n", "#{@global_name}_#{decl.get_name}", offset
+        f.printf "#define PLACE_OF_%-30s  VARDECL_PLACE_%s\n", "#{@global_name}_#{decl.get_name}", place
+      }
       @var.each{ |decl|
         if decl.get_size_is then
+        if decl.get_size_is && has_INIB? then
           inib_cb = "INIB"
         else
           inib_cb = "CB"
         end
+          f.printf "#define OFFSET_OF_%-30s  (%s)\n", "#{@global_name}_#{decl.get_name}", "(uint32_t)(intptr_t)&(((#{@global_name}_#{inib_cb}*)0)->#{decl.get_name})"
+        place = inib_cb
+        f.printf "#define OFFSET_OF_%-30s  (%s)\n", "#{@global_name}_#{decl.get_name}", "(uint32_t)(intptr_t)&(((#{@global_name}_#{inib_cb}*)0)->#{decl.get_name})"
+        f.printf "#define PLACE_OF_%-30s  VARDECL_PLACE_%s\n", "#{@global_name}_#{decl.get_name}", place
+      }
     else
 …
       @attribute.each{ |decl|
         f.printf "#define OFFSET_OF_%-30s  (%s)\n", "#{@global_name}_#{decl.get_name}", "0xffffffff"
+        f.printf "#define PLACE_OF_%-30s   VARDECL_PLACE_NON\n", "#{@global_name}_#{decl.get_name}"
+      }
       @var.each{ |decl|
         f.printf "#define OFFSET_OF_%-30s  (%s)\n", "#{@global_name}_#{decl.get_name}", "0xffffffff"
+        f.printf "#define PLACE_OF_%-30s   VARDECL_PLACE_NON\n", "#{@global_name}_#{decl.get_name}"
+      }
     end
 …
   def print_celltype_define f
+    f.printf "#define %-50s (#{@idx_is_id_act})\n",     "#{@global_name}__IDX_is_ID_act"
+    f.printf "#define %-50s (#{has_CB?})\n",            "#{@global_name}__hasCB"
+    f.printf "#define %-50s (#{has_INIB?})\n",          "#{@global_name}__hasINIB"
+    f.printf "#define %-30s (%d)\n", "#{@global_name}__NCELLINLINKUNIT", @n_cell_gen
+    if has_INIB? then
+      size_INIB = "(sizeof(#{@global_name}_INIB))"
+    else
+      size_INIB = "(0)"
+    end
+    if has_CB? then
+      size_CB = "(sizeof(#{@global_name}_CB))"
+    else
+      size_CB   = "(0)"
+    end
+    if @n_cell_gen > 0 then
+      f.printf "\n#include \"#{@global_name}_tecsgen.h\"\n"
+      f.printf "#define %-50s (#{@idx_is_id_act})\n",     "#{@global_name}__IDX_is_ID_act"
+      f.printf "#define %-50s (#{size_CB})\n",            "#{@global_name}__sizeOfCB"
+      f.printf "#define %-50s (#{size_INIB})\n",          "#{@global_name}__sizeOfINIB"
+      f.printf "#define %-30s (%d)\n", "#{@global_name}__NCELLINLINKUNIT", @n_cell_gen
+    else
+      f.printf "#define %-50s (false)\n",                 "#{@global_name}__IDX_is_ID_act"
+      f.printf "#define %-50s (0)\n",                     "#{@global_name}__sizeOfCB"
+      f.printf "#define %-50s (0)\n",                     "#{@global_name}__sizeOfINIB"
+      f.printf "#define %-30s (%d)\n", "#{@global_name}__NCELLINLINKUNIT", @n_cell_gen
+    end
   end
 …
         end
       end
       if ( port.is_VMT_useless? && port.is_cell_unique? ) || @n_cell_gen == 0 then
+      if ( port.is_VMT_useless? && port.is_cell_unique? ) || port.is_omit? || @n_cell_gen == 0 then
         offset = "0xffffffff"
       else
 …
         offset = "(uint32_t)(intptr_t)&((#{@global_name}_#{cb_inib}*)0)->#{port.get_name}"
       end
+      array_size = port.get_array_size
+      if array_size == "[]" then
+        array_size = "0xffffffff"
+      elsif array_size == nil then
+        array_size = "0"
+      end
       f.printf "#define %-50s (#{offset})\n",                   "#{@global_name}_#{port.get_name}__offset"
+      f.printf "#define %-50s (#{array_size})\n",               "#{@global_name}_#{port.get_name}__array_size"
       f.printf "#define %-50s (#{place})\n",                    "#{@global_name}_#{port.get_name}__place"
       f.printf "#define %-50s (#{port.is_VMT_useless?})\n",     "#{@global_name}_#{port.get_name}__b_VMT_useless"
 …
+    }
   end
+  def print_entry_define f
+    @port.each{ |port|
+      next if port.get_port_type == :CALL
+      array_size = port.get_array_size
+      if array_size == "[]" then
+        array_size = "0xffffffff"
+      elsif array_size == nil then
+        array_size = "0"
+      end
+      f.printf "#define %-50s (#{array_size})\n",               "#{@global_name}_#{port.get_name}__array_size"
+    }
+  end
 end
 …
 #{indent}    cSignatureInfo  = #{@signature.get_global_name}SignatureInfo.eSignatureInfo;
 #{indent}    b_inline        = #{@b_inline};
+#{indent}    array_size      = C_EXP( "#{ct_global}_#{@name}__array_size" );
 #{indent}};
 EOT
 …
 #{indent}    cSignatureInfo  = #{@signature.get_global_name}SignatureInfo.eSignatureInfo;
 #{indent}    offset            = C_EXP( "#{ct_global}_#{@name}__offset" );
+#{indent}    array_size        = C_EXP( "#{ct_global}_#{@name}__array_size" );
 #{indent}    b_optional        = #{@b_optional};
 #{indent}    b_omit            = #{@b_omit};
 …
 end
+class Cell
+  def print_info f, indent
+    if exclude_info? then
+      return
+    end
+    f.print <<EOT
+#{indent}/*** #{@global_name} cell information ****/
+#{indent}cell nTECSInfo::tCellInfo #{@global_name}CellInfo {
+#{indent}    name            = "#{@name}";
+#{indent}    cbp             = C_EXP( \"#{@global_name}__CBP\" );
+#{indent}    inibp           = C_EXP( \"#{@global_name}__INIBP\" );
+#{indent}    cCelltypeInfo   = #{@celltype.get_global_name}CelltypeInfo.eCelltypeInfo;
+EOT
+    @celltype.get_port_list.each{ |port|
+      next if port.get_port_type != :ENTRY
+      f.print <<EOT
+#{indent}    cRawEntryDescriptor[] = #{@global_name}_#{port.get_name}RawEntryDescriptorInfo.eRawEntryDescriptor;
+EOT
+    }
+    f.print "#{indent}};\n"
+    # RawEntryDescriptorInfo cells
+    @celltype.get_port_list.each{ |port|
+      next if port.get_port_type != :ENTRY
+      size = port.get_array_size
+      if size == nil then
+        size = 1
+      elsif size == "[]" then
+        size = @entry_array_max_subscript[ port ]
+      end
+      if ! port.is_omit? then
+        red = "C_EXP( \"&#{@global_name}_#{port.get_name}_des\" )"
+      else
+        red = "(void *)0"
+      end
+      # mikan 受け口配列
+      f.print <<EOT
+#{indent}cell nTECSInfo::tRawEntryDescriptorInfo #{@global_name}_#{port.get_name}RawEntryDescriptorInfo {
+#{indent}   size = #{size};
+#{indent}   rawEntryDescriptor = { #{red} };
+EOT
+#  #{indent}   cEntryInfo = #{@celltype.get_global_name}_#{port.get_name}EntryInfo.eEntryInfo;
+      f.print "#{indent}};\n"
+    }
+  end
+  def exclude_info?
+    # print "exclude_info?: name=" + get_name.to_s
+    if @celltype == nil ||
+       is_of_composite? ||
+       @celltype.get_global_name == :nTECSInfo_tTECSInfoSub ||
+       post_code_generated? ||
+       @b_defined == false then
+      # print ": true celltype_is_of_composite=#{is_of_composite?} celltype_name=#{@celltype.get_global_name} celltype.need_generate=#{@celltype.need_generate?}\n"
+      return true
+    else
+      # print ": false\n"
+      return false
+    end
+  end
+  def exclude_info_factory?
+    # print "exclude_info_factory?: name=" + get_name.to_s
+    if @celltype == nil ||
+       is_of_composite? ||
+       @celltype.get_global_name == :nTECSInfo_tTECSInfoSub ||
+       ! @celltype.need_generate? then
+      # print ": true celltype_is_of_composite=#{is_of_composite?} celltype_name=#{@celltype.get_global_name} celltype.need_generate=#{@celltype.need_generate?}\n"
+      return true
+    else
+      # print ": false\n"
+      return false
+    end
+  end
+end
 class Signature
   def print_info f, indent
 …
     f.print <<EOT
 #{indent}cell nTECSInfo::tFunctionInfo #{sig_name}_#{func_name}FunctionInfo {
 #{indent}    name            = "#{@owner.get_global_name}_#{@name}";
+#{indent}    name            = "#{get_name}";
 #{indent}    bOneway         = #{is_oneway?};
 EOT
 …
 class Decl
   def print_info f, parent_ID_str, indent
+  def print_info f, parent_ID_str, indent, decl_type
     if @size_is then
       size = "\"mikan\"";
 …
 #{indent}    name            = "#{get_name}";
 #{indent}    sizeIsExpr      = #{size};
 #{indent}    declType        = DECLTYPE_STMEMBER;
+#{indent}    declType        = #{decl_type};
 #{indent}    offset          = C_EXP( "OFFSET_OF_#{parent_ID_str}_#{get_name}" );
+#{indent}    place           = C_EXP( "PLACE_OF_#{parent_ID_str}_#{get_name}" );
 #{indent}    cTypeInfo       = #{get_type.get_ID_str}TypeInfo.eTypeInfo;
 #{indent}};
 …
 class Type
   @@typeinfo_printed = {}
+  def self.reset_print_info
+    @@typeinfo_printed = {}
+  end
   def print_info f, indent
     # Type の info は、最後にまとめて出力するので、ここでは記録するだけ
 …
     elsif self.kind_of? StructType then
       get_members_decl.get_items.each{ |decl|
         decl.get_type.print_info f, indent
+        decl.print_info f, get_ID_str, indent, :DECLTYPE_STMEMBER
+      }
     end
 …
   def print_info_post f, indent
-    bit_size = get_bit_size
-    if bit_size == 0 then
-      bit_size = "C_EXP( \"sizeof(#{get_type_str}#{get_type_str_post})\" )"
-    end
     if self.class.superclass == Type then     # 親クラスが Type の場合 types.rb のクラス
       type_name = self.class.name
 …
 #{indent}    name           = "#{get_type_str}#{get_type_str_post}";
 #{indent}    typeKind       = TECSTypeKind_#{type_name};
 #{indent}    bitSize        = #{bit_size};
+#{indent}    size           = C_EXP( "sizeof(#{get_type_str}#{get_type_str_post})" );
 #{indent}    b_const        = #{is_const?};
 #{indent}    b_volatile     = #{is_volatile?};
 EOT
     if self.kind_of? PtrType then
       f.print "#{indent}    cTypeInfo      = #{get_referto.get_ID_str}TypeInfo.eTypeInfo;\n"
+      f.print "#{indent}    cTypeInfo        = #{get_referto.get_ID_str}TypeInfo.eTypeInfo;\n"
     elsif self.kind_of? ArrayType then
       f.print "#{indent}    cTypeInfo      = #{get_type.get_ID_str}TypeInfo.eTypeInfo;\n"
+      f.print "#{indent}    cTypeInfo        = #{get_type.get_ID_str}TypeInfo.eTypeInfo;\n"
     elsif self.kind_of? DefinedType then
       f.print "#{indent}    cTypeInfo      = #{get_type.get_ID_str}TypeInfo.eTypeInfo;\n"
+      f.print "#{indent}    cTypeInfo        = #{get_type.get_ID_str}TypeInfo.eTypeInfo;\n"
     elsif self.kind_of? StructType then
       get_members_decl.get_items.each{ |decl|
         f.print "#{indent}    cTypeInfo[]    = #{decl.get_type.get_ID_str}TypeInfo.eTypeInfo;\n"
+        f.print "#{indent}    cVarDeclInfo[] = #{get_ID_str}_#{decl.get_name}VarDeclInfo.eVarDeclInfo;\n"
+      }
     elsif self.kind_of? DescriptorType then

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/tool_info.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/core/types.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2015 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 class FloatType < Type
 #  @bit_size::         32, 64, (80), -32, -64
+#  @bit_size::         32, 64, (80), -32, -64, -128
   def initialize( bit_size )
 …
     when -64
       str = "#{str}double"
+    when -128
+      str = "#{str}long double"
     end
     return str
 …
 # 動的結合で渡すデスクリプタ型
 class DescriptorType < Type
+# @sinagure_nsp::NamespacePath
+  # @sinagure_nsp::NamespacePath
+  @@descriptors = {}
   def initialize( signature_nsp )
+    # p "Desc #{signature_nsp.to_s}"
+    obj = Namespace.find signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", signature_nsp.to_s )
+      @signature_nsp = signature_nsp
+    else
+      if obj.has_descriptor? then
+       # cdl_error( "T9999 '$1': has Descriptor in function parameter", signature_nsp.to_s )
+      end
+      @signature_nsp = obj.get_namespace_path
+    end
+    @signature_nsp = signature_nsp
+    # check_signature ##
+    @@descriptors[ self ] = false
   end
 …
     else
       cdl_error2( locale, "T9999 Descriptor cannot be used for $1", kind)
+    end
+  end
+  def self.check_signature
+    @@descriptors.each{ |desc, val|
+      if val != true then
+        desc.check_signature
+        @@descriptors[ desc ] = true
+      end
+    }
+  end
+  def check_signature
+    # p "Desc #{@signature_nsp.to_s}"
+    obj = Namespace.find @signature_nsp
+    if ! obj.kind_of? Signature then
+      cdl_error( "T9999 '$1': not signature or not found", @signature_nsp.to_s )
+    else
+      if obj.has_descriptor? then
+       # cdl_error( "T9999 '$1': has Descriptor in function parameter", @signature_nsp.to_s )
+      end
+      # @signature_nsp = obj.get_namespace_path
     end
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_en_US.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_console_ja_JP.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_en_US.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #  * このファイルを編集して使用することが意図されていますが
 #  * tecsgen の再実行により上書きされてしまうため、通常
 #  *   gen/%s_template.c => src/%s.c
+#  *   gen/%s_templ.c => src/%s.c
 #  * のように名前, フォルダを変更してから修正します
 #  */
 …
  * This file was automatically generated by tecsgen.
  * Move and rename like below before editing,
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * to avoid to be overwritten by tecsgen.
  */
 …
 @@comment[ :TEFB_comment ] = "\t/* Put statements here %s */\n"
+# @@comment[ :MCPP_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPP_comment ] = "/* cell CB prototype declaration %s */\n"
+# @@comment[ :MCPB_comment ] = "/* セル CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* cell CB prototype declaration %s */\n"
 end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/messages/messages_file_ja_JP.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
  * このファイルを編集して使用することが意図されていますが
  * tecsgen の再実行により上書きされてしまうため、通常
  *   gen/%s_template.c => src/%s.c
+ *   gen/%s_templ.c => src/%s.c
  * のように名前, フォルダを変更してから修正します
  */
 …
 @@comment[ :TEPF_comment ] = "/* 受け口関数 %s */\n"
 @@comment[ :TEFB_comment ] = "\t/* ここに処理本体を記述します %s */\n"
+@@comment[ :MCPP_comment ] = "/* CB プロトタイプ宣言 %s */\n"
+@@comment[ :MCPB_comment ] = "/* CB プロトタイプ宣言 %s */\n"
 end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1AlarmPlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1DelayTaskPlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1ISRPlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1KernelPlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1ResourcePlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ATK1TaskPlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
37		# $Id
	37	# $Id$
38	38	#++
39	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/DomainPlugin.rb

-              r337
+              r374
   #option::String : domain 指定子の第二引数
   def initialize( region, domain_type_name, option )
+    super()
   end
 …
     return false
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    :kernel
+  end
+  #== factory 生成
+  # DomainPlugin の factory は特定のファイルへの出力が想定されていない
+  def gen_factory
+  end
 end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2Cache.rb

r337	r374
1	1	# -- coding: utf-8 --
2	2
	3	# $Id$
3	4

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2CyclicHandlerPlugin.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2012 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2DataqueuePlugin.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2EventflagPlugin.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2FixedSizeMemoryPoolPlugin.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2HandlerPlugin.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         elsif @plugin_arg_str == "ISR"
             file.print <<EOT
 #{tab}ATT_ISR({ #{val[:attribute]}, &#{cell_CB_name}, #{val[:interruptNumber]}, tISR_start, #{val[:priority]} });
+#{tab}ATT_ISR({ #{val[:attribute]}, #{cell_CBP}, #{val[:interruptNumber]}, tISR_start, #{val[:priority]} });
 EOT
         elsif @plugin_arg_str == "INIT_ROUTINE"
             file.print <<EOT
 #{tab}ATT_INI({ #{val[:attribute]}, &#{cell_CB_name}, tInitializeRoutine_start });
+#{tab}ATT_INI({ #{val[:attribute]}, #{cell_CBP}, tInitializeRoutine_start });
 EOT
         elsif @plugin_arg_str == "TERM_ROUTINE"
             file.print <<EOT
 #{tab}ATT_TER({ #{val[:attribute]}, &#{cell_CB_name}, tTerminateRoutine_start });
+#{tab}ATT_TER({ #{val[:attribute]}, #{cell_CBP}, tTerminateRoutine_start });
 EOT
         else

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2KernelObjectPlugin.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2012 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
                 val = {}
                 @celltype.get_attribute_list.each{ |a|
                     p a.get_name
+                    # p a.get_name
                     if a.get_type.kind_of?( ArrayType )
                         val[a.get_name] = []
 …
                 if val[:id].nil? != true
                     puts val[:id]
+                    val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+                    val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
                 end
                 # $cbp$の代わり
 …
                         file2.puts "}\n"
                     else
                         print "~~~~~ #{cell.get_region.get_name.to_s} is included in"
                         p @@region_list
+                        dbgPrint "~~~~~ #{cell.get_region.get_name.to_s} is included in"
+                        # p @@region_list
                     end
                     file3 = AppFile.open( "#{$gen}/tecsgen_#{cell_domain_root.get_name.to_s}.cfg" )
 …
                 if !val[:accessPattern].nil?
                     puts "===== begin check regions #{cell.get_name} ====="
                     p val[:accessPattern]
                     p val[:accessPattern].class
+                    # p val[:accessPattern]
+                    # p val[:accessPattern].class
                     #ep = [ :eTaskActivate, :eTaskControl, :eTaskManage, :eTaskRefer ]
 …
                         if acptnx != "OMIT"
                             acv << acptnx
                             p acv[i]
+                            # p acv[i]
                         elsif cell_domain_type.get_option.to_s == "trusted"
                             acv << "TACP_KERNEL"
                             p acv[i]
+                            # p acv[i]
                         elsif cell_domain_type.get_option.to_s != "OutOfDomain"
                             acv << "TACP(#{cell_domain_root.get_name.to_s})"
 …
+                    }
                     print "acv = "
+                    dbgPrint "acv = "
                     p acv
 …
     def self.check_referenced_cells()
         puts "===== begin check registered celltype ====="
+        dbgPrint "===== begin check registered celltype =====\n"
         self.get_celltype_list.each { |ct|
             p ct.get_name.to_s
+            dbgPrint( ct.get_name.to_s + "\n" )
+        }
         puts "===== end check registered celltype ====="
+        dbgPrint "===== end check registered celltype =====\n"
 =begin
 …
                 j = cell.get_join_list.get_item(p.get_name)
                 printf "===== check call port : "
                 p p.get_name.to_s
+                # p p.get_name.to_s
                 next if j.nil? # 未結合の場合
                 if @@celltype_list.include?(j.get_celltype)
 …
                     j.get_cell.set_referenced_cell(cell, j.get_port_name)
                     printf "===== check joined rhs cell : "
                     p j.get_cell.get_name.to_s
+                    # p j.get_cell.get_name.to_s
                     printf "===== check joined rhs port_name : "
                     p j.get_port_name
+                    # p j.get_port_name
                 end
+            }

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2ObjectPlugin.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2Plugin.rb

-              r359
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2014 by TOPPERS Project
+#   Copyright (C) 2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
   def initialize( region, name, option )
+    super
     print "HRP2Plugin: initialize: region=#{region.get_name}, domainName=#{name}, option=#{option}\n"
+    @region = region
+    @name   = name
+    case option
+    when "trusted", "nontrusted", "OutOfDomain"
+      # OK
+      @option = option
+    else
+      cdl_error( "HRPPlugin: '$1' is unacceptable domain kind, specify 'trusted' or 'nontrusted'", option )
+      @option = "trusted"   # とりあえず trusted を設定しておく
+    end
   end
 …
   end
+  #== ドメイン種別を返す
+  #return::Symbol :kernel, :user, :OutOfDomain
+  def get_kind
+    case @option
+    when "trusted"
+      return :kernel
+    when "nontrusted"
+      return :user
+    when "OutOfDomain"
+      return :OutOfDomain
+    end
+  end
   def joinable?(current_region, next_region, through_type )
     print "HRP2Plugin: joinable? from #{current_region.get_name} to #{next_region.get_name} (#{through_type})\n"

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2PostHook.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2012 by TOPPERS Project
+#   Copyright (C) 2017 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
 #   の責任を負わない．
+#
+#   $Id$
 #++

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2PriorityDataqueuePlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
	37	# $Id$
37	38	#++
38	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2RPCPlugin.rb

-              r337
+              r374
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     if cell.get_allocator_list.length > 0 then
       dbgPrint "make allocator"
+      dbgPrint "make allocator\n"
       file.print "#{indent_str}[allocator("
 …
     nest = @end_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name}Server #{@cell_name}Body {
 #{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 //#{indent_str}    #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
 #{indent_str}  //cTDR         = #{@channelCellName}.eTDR;

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2SVCPlugin.rb

-              r337
+              r374
 #   の責任を負わない．
+#
+#   $Id$
 #++
 …
   @@generated_celltype_header = {}
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @ct_name_body = "#{@ct_name}SVCBody_#{@next_cell.get_name}_#{@next_cell_port_name}".to_sym
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # サーバー側チャンネルの生成
 …
 #{nest_str}  //  Server Side Channel
 #{nest_str}  cell #{@ct_name_body} #{@cell_name_body}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };
 EOT
 …
     nest = @start_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # クライアント側チャンネルの生成
 …
 #{nest_str}  //  Client Side Channel
 #{nest_str}  cell #{@ct_name} #{@cell_name}{
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{nest_str}  };

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2SemaphorePlugin.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
	37	# $Id$
37	38	#++
38	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2TaskPlugin.rb

-              r359
+              r374
     # tab  :
     def print_cfg_cre(file, cell, val, tab)
+        val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_name.to_s}" )
+        #val[:id] = val[:id].gsub( /(^|[^\$])\$id\$/, "\\1#{@celltype.get_name.to_s}_#{cell.get_global_name.to_s}" )
+        #val[:id] = @celltype.subst_name( val[:id], @celltype.get_name_array( cell ) )
         # $cbp$の代わり
         index = cell.get_id - @celltype.get_id_base
 …
         cell_CB_name = "#{index}"
         # CRE_XXX/DEF_XXXの生成
         print "assign task plugin\n"
+        dbgPrint "assign task plugin\n"
         domainOption = cell.get_region.get_domain_root.get_domain_type.get_option
         # if cell.get_region.get_region_type == :DOMAIN
+# cell.show_tree 1
         if domainOption != "OutOfDomain"
             # 保護ドメインに属する場合
 …
                     raise "system task cannot have user stack."
                 end
+p "CRE_TSK 0 user=#{val[:userStackSize]} system=#{val[:systemStackSize]}"
                 file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:systemStackSize]}, NULL });
 …
                     raise "user task must have user stack."
                 end
+p "CRE_TSK 1"
                 if val[:systemStackSize] == "OMIT"
                     file.print <<EOT
 …
 EOT
                 else
+p "CRE_TSK 2"
                     file.print <<EOT
 #{tab}CRE_TSK(#{val[:id]}, { #{val[:taskAttribute]}, #{cell_CB_name}, tTask_start_task, #{val[:priority]}, #{val[:userStackSize]}, NULL, #{val[:systemStackSize]}, NULL });
 …
                     regions = ct.get_domain_roots
                     regions_hrp2 = regions[ :HRP2 ]
                     print "HRP2 domain in #{ct.get_name}: "
+                    dbgPrint "HRP2 domain in #{ct.get_name}: "
                     regions_hrp2.each { |reg|
                         print reg.get_name
+                        dbgPrint reg.get_name
+                    }
                     puts ""

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb

r359	r374
3	3	# mruby => TECS bridge
4	4	#
5		# Copyright (C) 2008-2015 by TOPPERS Project
	5	# Copyright (C) 2008-2017 by TOPPERS Project
6	6	#
7	7	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/MultiPlugin.rb

r359	r374
4	4	# Generator for TOPPERS Embedded Component System
5	5	#
6		# Copyright (C) 2008-2014 by TOPPERS Project
	6	# Copyright (C) 2008-2017 by TOPPERS Project
7	7	#--
8	8	# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/NotifierPlugin.rb

-              r359
+              r374
 # -*- coding: utf-8 -*-
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
 #  Copyright (C) 2015 by Ushio Laboratory
 …
 #  Copyright (C) 2015-2016 by Embedded and Real-Time Systems Laboratory
 #              Graduate School of Information Science, Nagoya Univ., JAPAN
+#  Copyright (C) 2015-2018 by TOPPERS Project
+#
+#--
+#   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#  $Id$
+#++
 NotifierPluginArgProc = {
 …
                         # @param [Cell, Symbol] cell セル．セルについて一般化する場合は `:generic`
                         # @param [Integer, Symbol, nil] subscript 添字．添字について一般化する場合は `:generic`
+                        # @param [Celltype] 呼び先のセルタイプ、cell==:generic の場合のみ有効
                         # @private
                         def generate_inner(context, fn_name, cell, subscript)
+                        def generate_inner(context, fn_name, cell, subscript, callee_ct=nil)
                                 source_file = context.source_file
                                 header_file = context.header_file
 …
                                 unless ct.is_singleton?
                                         if cell == :generic
+                                                params << "(CELLIDX)extinf"
+                                                params << "(#{callee_ct.get_global_name}_IDX)extinf"
+                                                # params << "(CELLIDX)extinf"
                                         else
                                                 # セルのCELLIDXを得る
 …
                                                 generate_inner context, fn_name,
                                                         :generic, subscript
+                                                        :generic, subscript, ct
                                                 props.each { |prop|
 …
             # join:: Join : 結合 (declarationがPortであるもの)
                 def validate_join(handler, cell, join)
                 return !generate_attr_map(handler, cell).nil?
+        return !generate_attr_map(handler, cell).nil?
                 end
 …
         parse_plugin_arg
         unless @factory
                 cdl_error("ASP1003 celltype $1: option factory is not specified",
+                cdl_error("NTF1003 celltype $1: option factory is not specified",
                         celltype.get_name)
         end
         unless @output_file
                 cdl_error("ASP1003 celltype $1: option output_file is not specified",
+                cdl_error("NTF1003 celltype $1: option output_file is not specified",
                         celltype.get_name)
         end
 …
     def set_factory(template_string)
         unless @factory.nil?
                 cdl_error("ASP1003 celltype $1: option factory was specified more than once",
+                cdl_error("NTF1003 celltype $1: option factory was specified more than once",
                         celltype.get_name)
         end
 …
     def set_factory_output_file(output_file)
         unless @output_file.nil?
                 cdl_error("ASP1003 celltype $1: option output_file was specified more than once",
+                cdl_error("NTF1003 celltype $1: option output_file was specified more than once",
                         celltype.get_name)
         end
 …
     def gen_factory file
         puts "===== begin #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== begin #{@celltype.get_name.to_s} plugin ====="
         kernelCfg = AppFile.open( "#{$gen}/#{@output_file}" )
 …
                         subst_attr = @celltype.find(name)
                         unless subst_attr
                         cdl_error( "ASP1007 celltype $1: additional_param: attribute $2 does not exist.",
+                        cdl_error( "NTF1007 celltype $1: additional_param: attribute $2 does not exist.",
                                 @celltype.get_name, name)
                         end
 …
         kernelCfg.close
         puts "===== end #{@celltype.get_name.to_s} plugin ====="
+        # puts "===== end #{@celltype.get_name.to_s} plugin ====="
     end
     def gen_factory_for_cell(kernelCfg, cell)
+      # print "########## gen_factory_for_cell cell=#{cell.get_name}\n"
         handler_flags = []
         handler_args = []
 …
                         when 'false' then ignoreErrors = false
                         else
                                 cdl_warning( "ASP1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
+                                cdl_warning2( cell.get_locale, "NTF1005 cell $1: unrecognized value '$2' specified for ignoreErrors",
                                         cell.get_name, ignoreErrors )
                                 ignoreErrors = false
                 end
+    # ドメイン指定用文字列
+    pre_text  = ""
+    post_text = "\n"
+    indent    = ""
         [EVENT_HANDLER, ERROR_HANDLER].each { |handler|
                 # 呼び口の結合を取得
                 call_join = cell.get_join_list.get_item(handler.call_port_name.to_sym)
+        domain_root = cell.get_region.get_domain_root
+        if cell.get_region.get_domain_root.get_domain_type then
+          # print "cell=#{cell.get_name} domain_root=#{domain_root.get_name} domain_type=#{domain_root.get_domain_type.get_name} domain_option=#{domain_root.get_domain_type.get_option}\n"
+        else
+          # print "cell=#{cell.get_name} domain_root=#{cell.get_region.get_domain_root.get_name}\n"
+        end
+        if call_join
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name} join=#{call_join.get_name} rhs_cell=#{call_join.get_cell}\n"
+        else
+          # print "validate_join: hanlder=#{handler.class.name} cell=#{cell.get_name}\n"
+        end
                 # ハンドラタイプを判別する
 …
                 if matches.length == 0
                         cdl_error( "ASP1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
+                        cdl_error2( cell.get_locale, "NTF1001 cell $1: no matching handler type found for $2", cell.get_name, handler.call_port_name )
                         next
                 end
+        end
                         # 最初に見つかった有効なハンドラタイプを使用
                 ht = matches[0]
+      # ドメインプラグインが指定されている場合、所属ドメインのチェック
+      domain_root = cell.get_region.get_domain_root
+      if domain_root.get_domain_type then
+        if domain_root.get_domain_type.get_name == :HRP then
+          option = domain_root.get_domain_type.get_option
+          matches.each{ |match|
+            # p "match:#{match}"
+            case match
+            when ActivateTaskHandlerType,       WakeUpTaskHandlerType,
+                 SetVariableHandlerType,        SetVariableToErrorCodeHandlerType,
+                             IncrementVariableHandlerType,  SignalSemaphoreHandlerType,
+                             SetEventflagHandlerType,       SendToDataqueueHandlerType,
+                             SendErrorCodeToDataqueueHandlerType
+              if option == "OutOfDomain" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 cannot be placed out of domain", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 1.\n"
+            when UserHandlerType
+              if option != "kernel" then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 can be placed in kernel domain only, because notify target is handler", cell.get_name )
+              elsif call_join.get_cell.get_region.get_domain_root == nil ||
+                    call_join.get_cell.get_region.get_domain_root != domain_root then
+                cdl_error2( cell.get_locale, "NTF9999: NotifierPlugin: $1 and $2 must be placed in same domain", cell.get_name, call_join.get_cell.get_name )
+              end
+              dbgPrint "#{self.class.name}: match pattern 2.\n"
+                        when NullHandlerType.new  # エラー通知を指定していない
+              dbgPrint "#{self.class.name}: match pattern 3.\n"
+            end
+          }
+          # if cell.get_region.get_param == :KERNEL_DOMAIN
+          if option == "kernel"
+            pre_text  = "KERNEL_DOMAIN{\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          elsif option != "OutOfDomain" then
+            pre_text  = "DOMAIN(#{domain_root.get_name.to_s}){\n"
+            post_text = "}\n"
+            indent    =  "\t"
+          end
+        else
+          cdl_error( "NTF9999: NotifierPlugin: unknown domain type $1", domain_root.get_domain_type.get_name )
+        end
+      end
                         # 通知ハンドラで「エラーが発生するはずがない」のに「エラーハンドラが指定されている」
 …
                         #  なため、検出は行わない。)
                 if handler == ERROR_HANDLER && !ht.is_a?(NullHandlerType) && !event_handler_might_fail
                         cdl_error( "ASP1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
+                        cdl_error2( cell.get_locale, "NTF1004 cell $1: handler type $2 which never raises an error was inferred for the normal notification handler, but an error notification handler was specified.",
                                 cell.get_name, handler_flag)
                 end
                 if handler == ERROR_HANDLER && ht.is_a?(NullHandlerType) && event_handler_might_fail && !ignoreErrors
                         cdl_warning( "ASP1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
+                        cdl_warning2( cell.get_locale, "NTF1006 cell $1: handler type $2 which might raise an error was inferred for the normal notificaton handler, but an error notification handler was not specified.",
                                 cell.get_name, handler_flag)
                 end
 …
                         # $id$等の置換
                         cell.get_celltype.subst_name(subst, name_array)
+        }
+        # 出力
+        kernelCfg.puts text
+    end
+    private :gen_factory_for_cell
+      }
+     # 出力 (CRE_xxx)
+     kernelCfg.print pre_text
+     kernelCfg.print indent, text, "\n"
+     gen_sac kernelCfg, cell, indent
+     kernelCfg.print post_text
+   end
+   def gen_sac file, cell, indent
+     domain_root = cell.get_region.get_domain_root
+     if domain_root.get_domain_type then
+       id = (cell.get_attr_initializer :id).to_s
+                 name_array = cell.get_celltype.get_name_array(cell)
+       case cell.get_celltype.get_name
+       when :tCyclicNotifier
+         obj_type = "CYC"
+       when :tAlarmNotifier
+         obj_type = "ALM"
+       else
+         raise "NotifierPlugin: unknown celltype #{cell.get_celltype.get_name}"
+       end
+       id = cell.get_celltype.subst_name(id, name_array)
+       # p obj_type
+       # p HRPPlugin.get_sac_str cell
+       file.print indent, "SAC_#{obj_type}( #{id}, #{HRPPlugin.get_sac_str cell} );\n"
+     end
+   end
+   private :gen_factory_for_cell
 end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/OpaqueRPCPlugin.rb

-              r337
+              r374
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @end_region.gen_region_str_pre file
     nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     if @serverErrorHandler then
 …
 #{nest_str}  cell #{@rpc_server_channel_celltype_name} #{@serverChannelCell}_Unmarshaler {
 #{nest_str}    cChannel = #{@serverChannelCell}.eC1;
 #{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{nest_str}    #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{serverErrorHandler_str}#{nest_str}  };
 EOT

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/RPCPlugin.rb

-              r337
+              r374
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     @b_noClientSemaphore = false
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@channelCellName}.eTDR;
 #{indent_str}  cEventflag   = #{@channelCellName}.eEventflag;

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedOpaqueRPCPlugin.rb

-              r337
+              r374
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super
     initialize_opaque_marshaler
 …
     nest = @start_region.gen_region_str_pre file
     indent_str = "  " * nest
+    nest_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
 #{indent_str}cell #{@unmarshaler_celltype_name} #{@cell_name}_Server {
 #{indent_str}  cTDR         = #{@shared_channel_cell}_Server.eTDR;
 #{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  cServerCall  = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{ppallocator_join}#{indent_str}};
 EOT

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/SharedRPCPlugin.rb

-              r337
+              r374
   #=== RPCPlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     # mikan プラグインオプション指定の不一致のチェック task_priority,
 …
     nest = @region.gen_region_str_pre file
     indent_str = "  " * nest
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     # セルを探す
 …
     file.print <<EOT
 #{indent_str}cell #{@rpc_channel_celltype_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript};
 #{indent_str}  cTDR         = #{@shared_channel_cell}.eTDR;
 #{indent_str}  cEventflag   = #{@shared_channel_cell}.eEventflag;

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/ThroughPlugin.rb

-              r337
+              r374
 #@next_cell:: Cell                    呼び口を結合するセル
 #@next_cell_port_name:: Symbol       呼び口を結合する受口の名前
+#@next_cell_port_subscript::Nil|Integer   呼び口を結合する受口の配列添数．受け口配列でない場合 nil
 #@signature::      Signature          シグニチャ
 #@celltype::       Celltype           呼び先のセルのセルタイプ. through が連接する場合、最終的な呼び先のセルのセルタイプ
 …
   #next_cell::      Cell               呼び口を接続するセル
   #next_cell_port_name:: Symbol        呼び口を接続する受口の名前
+  #next_cell_port_subscript:: Nil|Integer  呼び口を接続する受口配列添数
   #signature::      Signature          シグニチャ
   #celltype::       Celltype           セルタイプ (呼び先のセルのセルタイプ)
   #caller_cell::    Cell               呼び元のセル．@caller_cell の項を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     super()
     @cell_name = cell_name                      # 生成すべきセル名（受け口側のセル名）
 …
     @next_cell = next_cell                      # 呼び先のセル
     @next_cell_port_name = next_cell_port_name
+    @next_cell_port_subscript = next_cell_port_subscript
     @signature = signature
     @entry_port_name = :"eThroughEntry"
 …
   def get_through_entry_port_name
     @entry_port_name
+  end
+  #===  生成されたセルの受け口配列添数を得る
+  def get_through_entry_port_subscript
+    @entry_port_subscript
   end

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/TracePlugin.rb

-              r337
+              r374
   #=== TracePlugin の initialize
   #  説明は ThroughPlugin (plugin.rb) を参照
   def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, signature, celltype, caller_cell )
+  def initialize( cell_name, plugin_arg, next_cell, next_cell_port_name, next_cell_port_subscript, signature, celltype, caller_cell )
     @maxArrayDisplay = 16
 …
       nest = @region.gen_region_str_pre file
       indent_str =  "  " * nest
+      if @next_cell_port_subscript then
+        subscript = '[' + @next_cell_port_subscript.to_s + ']'
+      else
+        subscript = ""
+      end
       if @probeName then
 …
       file.print <<EOT
 #{indent_str}cell #{@ct_name} #{@cell_name} {
 #{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name};
+#{indent_str}  #{@call_port_name} = #{@next_cell.get_namespace_path.get_path_str}.#{@next_cell_port_name}#{subscript};
 #{probeName_str}#{caller_cell_str}#{indent_str}};
 EOT
 …
+    }
     file.print( " );\n" )
+    if @next_cell_port_subscript then
+      subscript = '[' + @next_cell_port_subscript.to_s + ']'
+    else
+      subscript = ""
+    end
     file.print <<EOT
 \tgetMicroTime( &utime );
 \tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}.#{func_name}\", ATTR_probeName_str, utime );
+\tsyslog( LOG_INFO, \"Leave: %sTime=%d: #{@next_cell.get_name}.#{@next_cell_port_name}#{subscript}.#{func_name}\", ATTR_probeName_str, utime );
 EOT

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenHRP2Marshaler.rb

r337	r374
35	35	# の責任を負わない．
36	36	#
	37	# $Id$
37	38	#++
38	39

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenOpaqueMarshaler.rb

-              r337
+              r374
 #      Generator for TOPPERS Embedded Component System
+#
 #   Copyright (C) 2008-2014 by TOPPERS Project
+#   Copyright (C) 2008-2018 by TOPPERS Project
 #--
 #   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
 …
         /* Channel Lock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_GET_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_wait();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_wait()) != E_OK )
+                        goto error_reset;
+        }
 EOT
 …
         /* Channel Unlock */
         SET_RPC_STATE( state_, RPCSTATE_CLIENT_RELEASE_SEM );
+        if( is_cLockChannel_joined() )
+                cLockChannel_signal();
+        if( is_cLockChannel_joined() ){
+                if( (ercd_=cLockChannel_signal()) != E_OK )
+                        goto error_reset;
+        }
+EOT
+    file.print <<EOT
+        /* state_ is not used in normal case */
+  /* below is to avoid 'set but not used' warnning */
+        (void)state_;
 EOT
 …
         file.print <<EOT
         }else{
                 return;
+                return E_ID;
+        }
 EOT

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/plugin/lib/GenTransparentMarshaler.rb

-              r337
+              r374
     };
 #{ppallocator_dealloc_str}
     return;
+    return E_OK;
 error_reset:
 …
         (void)cTDR_reset();
 #{ppallocator_dealloc_str}
+    return E_OK;
 EOT

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tecsgen/tecslib/version.rb

r337	r374
1	1	$package = "tecsgen"
2		$version = "1.~~5.0~~"
	2	$version = "1.6.4"

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tinet/netdev/if_btusb/Makefile.tinet

r337	r374
42	42	INCLUDES := $(INCLUDES) -I$(TINET_ROOT)/netdev/$(NET_DEV)
43	43	TINET_DIRS := $(TINET_DIRS):$(TINET_ROOT)/netdev/$(NET_DEV)
44		TINET_COBJS := $(TINET_COBJS) ~~nap_main.o panu~~_main.o if_btusb.o
	44	TINET_COBJS := $(TINET_COBJS) bt_main.o if_btusb.o
45	45	TINET_KERNEL_CFG := $(TINET_KERNEL_CFG) $(TINET_ROOT)/netdev/$(NET_DEV)/if_btusb.cfg

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tinet/netdev/if_btusb/bt_main.c

-              r373
+              r374
 #include "sdp.h"
 #include "pan.h"
+#include "panu_main.h"
+#include "bt_main.h"
+#include "usb_hbth.h"
 //#define PACKET_DUMP
 …
 #define RFCOMM_SERVER_CHANNEL 1
 /*static*/ uint16_t  rfcomm_channel_id = FAILED_RFCOMM_ID_NOT_SET;
+static uint16_t  rfcomm_channel_id = FAILED_RFCOMM_ID_NOT_SET;
 static int record_id = -1;
 …
 volatile int bt_bnep_mode = 0;
+bool_t bt_enabled = false;
+enum bt_state_t {
+        BT_STATE_DORMANT,
+        BT_STATE_POWER_ON,
+        BT_STATE_BNEP_QUERY,
+        BT_STATE_BNEP_WAIT,
+        BT_STATE_BNEP_QUERY_WAIT,
+        BT_STATE_CONNECTING,
+        BT_STATE_CONNECTED,
+};
+enum bt_state_t bt_state = BT_STATE_DORMANT;
+int bt_timer;
 // outgoing network packet
 …
                 break;
         case DE_SIZE_VAR_16:
                 len = READ_NET_16(element, 1);
+                len = big_endian_read_16(element, 1);
                 break;
         default:
 …
         // accept first entry or if we foudn a NAP and only have a PANU yet
         if ((bnep_remote_uuid == 0) || (sdp_bnep_remote_uuid == BNEP_UUID_NAP && bnep_remote_uuid == BNEP_UUID_PANU)) {
+        if ((bnep_remote_uuid == 0) || (sdp_bnep_remote_uuid == BLUETOOTH_SERVICE_CLASS_NAP && bnep_remote_uuid == BLUETOOTH_SERVICE_CLASS_PANU)) {
                 bnep_l2cap_psm = sdp_bnep_l2cap_psm;
                 bnep_remote_uuid = sdp_bnep_remote_uuid;
 …
         switch (event->type) {
         case SDP_QUERY_ATTRIBUTE_VALUE:
+        case SDP_EVENT_QUERY_ATTRIBUTE_VALUE:
                 value_event = (sdp_query_attribute_value_event_t*)event;
 …
                                 switch (value_event->attribute_id) {
                                 case SDP_ServiceClassIDList:
+                                case BLUETOOTH_ATTRIBUTE_SERVICE_CLASS_ID_LIST:
                                         if (de_get_element_type(attribute_value) != DE_DES) break;
                                         for (des_iterator_init(&des_list_it, attribute_value); des_iterator_has_more(&des_list_it); des_iterator_next(&des_list_it)) {
 …
                                                 uint32_t uuid = de_get_uuid32(element);
                                                 switch (uuid) {
                                                 case BNEP_UUID_PANU:
                                                 case BNEP_UUID_NAP:
                                                 case BNEP_UUID_GN:
+                                                case BLUETOOTH_SERVICE_CLASS_PANU:
+                                                case BLUETOOTH_SERVICE_CLASS_NAP:
+                                                case BLUETOOTH_SERVICE_CLASS_GN:
                                                         log_info("SDP Attribute 0x%04x: BNEP PAN protocol UUID: %04x", value_event->attribute_id, uuid);
                                                         sdp_bnep_remote_uuid = uuid;
 …
                                         free(str);
                                         break;
                                 case SDP_ProtocolDescriptorList: {
+                                case BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST: {
                                         log_info("SDP Attribute: 0x%04x", value_event->attribute_id);
 …
                                                 uuid = de_get_uuid32(element);
                                                 switch (uuid) {
                                                 case SDP_L2CAPProtocol:
+                                                case BLUETOOTH_PROTOCOL_L2CAP:
                                                         if (!des_iterator_has_more(&prot_it)) continue;
                                                         des_iterator_next(&prot_it);
                                                         de_element_get_uint16(des_iterator_get_element(&prot_it), &sdp_bnep_l2cap_psm);
                                                         break;
                                                 case SDP_BNEPProtocol:
+                                                case BLUETOOTH_PROTOCOL_BNEP:
                                                         if (!des_iterator_has_more(&prot_it)) continue;
                                                         des_iterator_next(&prot_it);
 …
                 break;
         case SDP_QUERY_COMPLETE:
+        case SDP_EVENT_QUERY_COMPLETE:
                 handle_sdp_client_record_complete();
                 complete_event = (sdp_query_complete_event_t*)event;
 …
+                }
                 else {
+                        bnep_do_connect = false;
                         log_error("No BNEP service found");
+                }
+                if (!bnep_do_connect) {
+                        // 20秒後 BNEP Query 開始
+                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                        bt_timer = 20 * 1000;
+                }
                 break;
 …
                         if (packet[2] == HCI_STATE_WORKING) {
                                 hci_send_cmd(&hci_write_local_name, bt_localname);
+                                /* Send a general query for BNEP Protocol ID */
+                                log_info("Start SDP BNEP query.");
+                                sdp_general_query_for_uuid(remote_addr, SDP_BNEPProtocol);
+                                if (bt_bnep_mode == 0) {
+                                        // 即時 BNEP Query 開始
+                                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                                        bt_timer = 0;
+                                }
+                                else {
+                                        bt_state = BT_STATE_BNEP_WAIT;
+                                        bt_timer = -1;
+                                }
+                        }
                         break;
 …
                 case HCI_EVENT_COMMAND_COMPLETE:
                         if (COMMAND_COMPLETE_EVENT(packet, hci_read_bd_addr)) {
                                 bt_flip_addr(event_addr, &packet[6]);
+                        if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_read_bd_addr)) {
+                                reverse_bd_addr(&packet[6], event_addr);
                                 log_info("BD-ADDR: %s", bd_addr_to_str(event_addr));
 …
                                 break;
+                        }
                         if (COMMAND_COMPLETE_EVENT(packet, hci_write_local_name)) {
                                 hci_discoverable_control(1);
+                        if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_write_local_name)) {
+                                gap_discoverable_control(1);
                                 break;
+                        }
 …
                         // deny link key request
                         log_info("Link key request");
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         hci_send_cmd(&hci_link_key_request_negative_reply, &event_addr);
                         break;
 …
                         // inform about pin code request
                         log_info("Pin code request - using '0000'");
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         hci_send_cmd(&hci_pin_code_request_reply, &event_addr, 4, "0000");
                         break;
 …
                 case HCI_EVENT_USER_CONFIRMATION_REQUEST:
                         // inform about user confirmation request
                         log_info("HCI User Confirmation Request with numeric value '%06u'", READ_BT_32(packet, 8));
+                        log_info("HCI User Confirmation Request with numeric value '%06u'", little_endian_read_32(packet, 8));
                         log_info("HCI User Confirmation Auto accept");
                         break;
 …
                 case RFCOMM_EVENT_INCOMING_CONNECTION:
                         // data: event (8), len(8), address(48), channel (8), rfcomm_cid (16)
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         rfcomm_channel_nr = packet[8];
                         rfcomm_channel_id = READ_BT_16(packet, 9);
+                        rfcomm_channel_id = little_endian_read_16(packet, 9);
                         log_info("RFCOMM channel %u requested for %s", rfcomm_channel_nr, bd_addr_to_str(event_addr));
                         rfcomm_accept_connection_internal(rfcomm_channel_id);
 …
+                        }
                         else {
                                 rfcomm_channel_id = READ_BT_16(packet, 12);
                                 mtu = READ_BT_16(packet, 14);
+                                rfcomm_channel_id = little_endian_read_16(packet, 12);
+                                mtu = little_endian_read_16(packet, 14);
                                 log_info("RFCOMM channel open succeeded. New RFCOMM Channel ID %u, max frame size %u", rfcomm_channel_id, mtu);
+                        }
 …
                         if (packet[2]) {
                                 log_info("BNEP channel open failed, status %02x", packet[2]);
+                                // 30秒後 BNEP Query 開始
+                                bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                                bt_timer = 30 * 1000;
+                        }
                         else {
                                 // data: event(8), len(8), status (8), bnep source uuid (16), bnep destination uuid (16), remote_address (48)
                                 bnep_cid = READ_BT_16(packet, 3);
                                 uuid_source = READ_BT_16(packet, 5);
                                 uuid_dest = READ_BT_16(packet, 7);
                                 mtu = READ_BT_16(packet, 9);
                                 //bt_flip_addr(remote_addr, &packet[11]);
+                                bnep_cid = little_endian_read_16(packet, 3);
+                                uuid_source = little_endian_read_16(packet, 5);
+                                uuid_dest = little_endian_read_16(packet, 7);
+                                mtu = little_endian_read_16(packet, 9);
+                                //reverse_bd_addr(&packet[11], remote_addr);
                                 memcpy(&remote_addr, &packet[11], sizeof(bd_addr_t));
                                 log_info("BNEP connection open succeeded to %s source UUID 0x%04x dest UUID: 0x%04x, max frame size %u", bd_addr_to_str(event_addr), uuid_source, uuid_dest, mtu);
 …
                                 btstack_network_up(bnep_cid, (uint8_t *)hci_local_bd_addr(), (uint8_t *)remote_addr);
                                 log_info("Network Interface %s activated", btstack_network_get_name(bnep_cid));
+                                bt_state = BT_STATE_CONNECTED;
+                                bt_timer = -1;
+                        }
                         break;
 …
                 case BNEP_EVENT_CHANNEL_CLOSED:
                         bnep_cid = READ_BT_16(packet, 2);
+                        bnep_cid = little_endian_read_16(packet, 2);
                         bt_channel_closed(bnep_cid);
+                        // 30秒後 BNEP Query 開始
+                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                        bt_timer = 30 * 1000;
                         break;
                 case BNEP_EVENT_READY_TO_SEND:
                         bnep_cid = READ_BT_16(packet, 2);
+                        bnep_cid = little_endian_read_16(packet, 2);
                         bt_send_packet(bnep_cid);
                         break;
 …
+}
 void panu_init(void)
+void bt_init(void)
+{
         const hci_transport_t *transport;
 …
         service_record_item_t *bnep_service_record_item;
+        btstack_network_init(&network_send_packet_callback);
         //hci_dump_open("", HCI_DUMP_PACKETLOGGER);
-        log_info("bt初期化...");
         // start with BTstack init - especially configure HCI Transport
 …
         /* Initialize HCI */
-        log_info("HCI初期化...");
         transport = hci_transport_usb_instance();
         control = NULL;
 …
         /* Initialize L2CAP */
-        log_info("L2CAP初期化...");
         l2cap_init();
         l2cap_register_packet_handler(packet_handler);
         /* Initialise SDP, create record for SPP and register with SDP */
-        log_info("SDP初期化...");
         sdp_init();
         /* Initialize RFCOMM */
-        log_info("RFCOMM初期化...");
         rfcomm_init();
         rfcomm_register_packet_handler(packet_handler);
 …
         /* Initialise BNEP */
-        log_info("BNEP初期化...");
         bnep_init();
         bnep_register_packet_handler(packet_handler);
+        bnep_register_service(NULL, BNEP_UUID_PANU, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        if (bt_bnep_mode == 0) {
+                bnep_register_service(NULL, BLUETOOTH_SERVICE_CLASS_PANU, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        }
+        else {
+                bnep_register_service(NULL, BLUETOOTH_SERVICE_CLASS_NAP, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        }
         memset(spp_service_buffer, 0, sizeof(spp_service_buffer));
 …
         bnep_service_record_item = (service_record_item_t *)bnep_service_buffer;
-        log_info("SPPサービス登録...");
         sdp_create_spp_service((uint8_t*)&spp_service_record_item->service_record, 1, "RX SPP");
         de_dump_data_element((uint8_t*)spp_service_record_item->service_record);
 …
         sdp_register_service_internal(NULL, spp_service_record_item);
+        log_info("BNEPサービス登録...");
+        pan_create_panu_service((uint8_t*)&bnep_service_record_item->service_record, "RX PANU", "RX PANU", BNEP_SECURITY_NONE);
+        de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+        log_info("PANU SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        if (bt_bnep_mode == 0) {
+                pan_create_panu_service((uint8_t*)&bnep_service_record_item->service_record, "RX PANU", "RX PANU", BNEP_SECURITY_NONE);
+                de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+                log_info("PANU SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        }
+        else {
+                pan_create_nap_service((uint8_t*)&bnep_service_record_item->service_record, "RX NAP", "RX NAP", BNEP_SECURITY_NONE,
+                        PAN_NET_ACCESS_TYPE_100MB_ETHERNET, 0x0001312D0/*10Mb/sec*/, NULL, NULL);
+                de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+                log_info("NAP SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        }
         sdp_register_service_internal(NULL, bnep_service_record_item);
 …
         /* Turn on the device */
-        log_info("HCI電源ON...");
         hci_power_control(HCI_POWER_ON);
 …
         sdp_parser_init();
         sdp_parser_register_callback(handle_sdp_client_query_result);
+}
+void nap_init(void);
+void bt_init(void)
+{
+        btstack_network_init(&network_send_packet_callback);
+        if (bt_bnep_mode == 0) {
+                panu_init();
+        }
+        else {
+                nap_init();
+        }
+        bt_enabled = true;
+}
+void bt_task(void)
+{
+        extern void hal_tick_handler();
+        if (bt_enabled) {
+                hal_tick_handler();
+        bt_state = BT_STATE_POWER_ON;
+        bt_timer = -1;
+}
+void bt_process(void)
+{
+        if (bt_state != BT_STATE_DORMANT) {
                 run_loop_execute();
                 bt_send_packet(0xffff);
+        }
+        if (bt_timer != 0)
+                return;
+        switch (bt_state) {
+        case BT_STATE_BNEP_QUERY_WAIT:
+                /* Send a general query for BNEP Protocol ID */
+                log_info("Start SDP BNEP query.");
+                sdp_general_query_for_uuid(remote_addr, BLUETOOTH_PROTOCOL_BNEP);
+                bt_state = BT_STATE_BNEP_QUERY;
+                bt_timer = -1;
+                break;
+        default:
+                bt_timer = -1;
+                break;
+        }
+}
 …
         hci_close();
+        bt_enabled = false;
+}
+        bt_state = BT_STATE_DORMANT;
+        bt_timer = -1;
+}
+void bt_task_on_start(struct task_if_t *task, ID tskid)
+{
+}
+void bt_task_on_end(struct task_if_t *task)
+{
+}
+int bt_task_get_timer(struct task_if_t *task)
+{
+        return bt_timer;
+}
+void bt_task_progress(struct task_if_t *task, int elapse)
+{
+        if (bt_timer == -1)
+                return;
+        bt_timer -= elapse;
+        if (bt_timer < 0)
+                bt_timer = 0;
+}
+void bt_task_process(struct task_if_t *task, enum task_event_t event)
+{
+        extern void hal_tick_handler();
+        switch (event & ~TASK_EVENT_TICK) {
+        case TASK_EVENT_START:
+                bt_init();
+                break;
+        case TASK_EVENT_TERMINATE:
+                bt_terminate();
+                break;
+        case TASK_EVENT_WAKEUP:
+        case TASK_EVENT_TIMEOUT:
+                if (event & TASK_EVENT_TICK)
+                        hal_tick_handler();
+                bt_process();
+                break;
+        }
+}
+struct task_if_t bt_task = {
+        bt_task_on_start,
+        bt_task_on_end,
+        bt_task_get_timer,
+        bt_task_progress,
+        bt_task_process,
+};

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tinet/netdev/if_btusb/bt_main.h

-              r373
+              r374
 /*
  * panu_main.h
+ * bt_main.h
+ *
  */
 …
 void bt_init(void);
-void bt_task(void);
 int bt_can_send_packet(void);
 void bt_send_packet(uint16_t bnep_cid);

asp3_tinet_ecnl_rx/trunk/asp3_dcre/tinet/netdev/if_btusb/if_btusb.c

r364	r374
79	79	#include "kernel/kernel_impl.h"
80	80	#include "btstack/utils.h"
81		#include "~~panu~~_main.h"
	81	#include "bt_main.h"
82	82	#include "usb_hbth.h"
83	83	//#include "hal_cpu.h"

asp3_tinet_ecnl_rx/trunk/bnep_bridge/Debug/Makefile

-              r365
+              r374
+#
+#  mbedサービスの定義
+#
+include $(SRCDIR)/mbed/Makefile.mbed
+#
 #  共通コンパイルオプションの定義
+#
 …
 APPLDIRS := $(APPLDIRS) ../../ntshell/tlsf ../../ntshell/fatfs ../../ntshell/ntshell ../../ntshell/ntshell/core ../../ntshell/ntshell/util ../../ntshell/src
 APPL_COBJS := $(APPL_COBJS) ntshell_main.o mbed_api.o fdtable.o io_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+APPL_COBJS := $(APPL_COBJS) ntshell_main.o fdtable.o io_stub.o ffarch.o diskio.o ff.o mmc_rspi.o ccsbcs.o ntshell.o text_editor.o text_history.o usrcmd.o vtrecv.o vtsend.o ntlibc.o ntstdio.o ntopt.o syscall.o tlsf.o
+#
 …
 ifdef USE_CXX
         APPL_CXXOBJS := main.o
         APPL_COBJS := $(APPL_COBJS) ether_phy.o if_btusb.o if_rx62n.o nap_main.o panu_main.o
 else
         APPL_COBJS := $(APPL_COBJS) main.o ether_phy.o if_btusb.o if_rx62n.o nap_main.o panu_main.o
+        APPL_COBJS := $(APPL_COBJS) ether_phy.o if_btusb.o if_rx62n.o bt_main.o
+else
+        APPL_COBJS := $(APPL_COBJS) main.o ether_phy.o if_btusb.o if_rx62n.o bt_main.o
 endif
 APPL_COBJS := $(APPL_COBJS) log_output.o vasyslog.o t_perror.o strerror.o

asp3_tinet_ecnl_rx/trunk/bnep_bridge/src/bt_main.c

-              r373
+              r374
 #include "sdp.h"
 #include "pan.h"
+#include "panu_main.h"
+#include "bt_main.h"
+#include "usb_hbth.h"
 //#define PACKET_DUMP
 …
 #define RFCOMM_SERVER_CHANNEL 1
 /*static*/ uint16_t  rfcomm_channel_id = FAILED_RFCOMM_ID_NOT_SET;
+static uint16_t  rfcomm_channel_id = FAILED_RFCOMM_ID_NOT_SET;
 static int record_id = -1;
 …
 volatile int bt_bnep_mode = 0;
+bool_t bt_enabled = false;
+enum bt_state_t {
+        BT_STATE_DORMANT,
+        BT_STATE_POWER_ON,
+        BT_STATE_BNEP_QUERY,
+        BT_STATE_BNEP_WAIT,
+        BT_STATE_BNEP_QUERY_WAIT,
+        BT_STATE_CONNECTING,
+        BT_STATE_CONNECTED,
+};
+enum bt_state_t bt_state = BT_STATE_DORMANT;
+int bt_timer;
 // outgoing network packet
 …
                 break;
         case DE_SIZE_VAR_16:
                 len = READ_NET_16(element, 1);
+                len = big_endian_read_16(element, 1);
                 break;
         default:
 …
         // accept first entry or if we foudn a NAP and only have a PANU yet
         if ((bnep_remote_uuid == 0) || (sdp_bnep_remote_uuid == BNEP_UUID_NAP && bnep_remote_uuid == BNEP_UUID_PANU)) {
+        if ((bnep_remote_uuid == 0) || (sdp_bnep_remote_uuid == BLUETOOTH_SERVICE_CLASS_NAP && bnep_remote_uuid == BLUETOOTH_SERVICE_CLASS_PANU)) {
                 bnep_l2cap_psm = sdp_bnep_l2cap_psm;
                 bnep_remote_uuid = sdp_bnep_remote_uuid;
 …
         switch (event->type) {
         case SDP_QUERY_ATTRIBUTE_VALUE:
+        case SDP_EVENT_QUERY_ATTRIBUTE_VALUE:
                 value_event = (sdp_query_attribute_value_event_t*)event;
 …
                                 switch (value_event->attribute_id) {
                                 case SDP_ServiceClassIDList:
+                                case BLUETOOTH_ATTRIBUTE_SERVICE_CLASS_ID_LIST:
                                         if (de_get_element_type(attribute_value) != DE_DES) break;
                                         for (des_iterator_init(&des_list_it, attribute_value); des_iterator_has_more(&des_list_it); des_iterator_next(&des_list_it)) {
 …
                                                 uint32_t uuid = de_get_uuid32(element);
                                                 switch (uuid) {
                                                 case BNEP_UUID_PANU:
                                                 case BNEP_UUID_NAP:
                                                 case BNEP_UUID_GN:
+                                                case BLUETOOTH_SERVICE_CLASS_PANU:
+                                                case BLUETOOTH_SERVICE_CLASS_NAP:
+                                                case BLUETOOTH_SERVICE_CLASS_GN:
                                                         log_info("SDP Attribute 0x%04x: BNEP PAN protocol UUID: %04x", value_event->attribute_id, uuid);
                                                         sdp_bnep_remote_uuid = uuid;
 …
                                         free(str);
                                         break;
                                 case SDP_ProtocolDescriptorList: {
+                                case BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST: {
                                         log_info("SDP Attribute: 0x%04x", value_event->attribute_id);
 …
                                                 uuid = de_get_uuid32(element);
                                                 switch (uuid) {
                                                 case SDP_L2CAPProtocol:
+                                                case BLUETOOTH_PROTOCOL_L2CAP:
                                                         if (!des_iterator_has_more(&prot_it)) continue;
                                                         des_iterator_next(&prot_it);
                                                         de_element_get_uint16(des_iterator_get_element(&prot_it), &sdp_bnep_l2cap_psm);
                                                         break;
                                                 case SDP_BNEPProtocol:
+                                                case BLUETOOTH_PROTOCOL_BNEP:
                                                         if (!des_iterator_has_more(&prot_it)) continue;
                                                         des_iterator_next(&prot_it);
 …
                 break;
         case SDP_QUERY_COMPLETE:
+        case SDP_EVENT_QUERY_COMPLETE:
                 handle_sdp_client_record_complete();
                 complete_event = (sdp_query_complete_event_t*)event;
 …
+                }
                 else {
+                        bnep_do_connect = false;
                         log_error("No BNEP service found");
+                }
+                if (!bnep_do_connect) {
+                        // 20秒後 BNEP Query 開始
+                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                        bt_timer = 20 * 1000;
+                }
                 break;
 …
                         if (packet[2] == HCI_STATE_WORKING) {
                                 hci_send_cmd(&hci_write_local_name, bt_localname);
+                                /* Send a general query for BNEP Protocol ID */
+                                log_info("Start SDP BNEP query.");
+                                sdp_general_query_for_uuid(remote_addr, SDP_BNEPProtocol);
+                                if (bt_bnep_mode == 0) {
+                                        // 即時 BNEP Query 開始
+                                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                                        bt_timer = 0;
+                                }
+                                else {
+                                        bt_state = BT_STATE_BNEP_WAIT;
+                                        bt_timer = -1;
+                                }
+                        }
                         break;
 …
                 case HCI_EVENT_COMMAND_COMPLETE:
                         if (COMMAND_COMPLETE_EVENT(packet, hci_read_bd_addr)) {
                                 bt_flip_addr(event_addr, &packet[6]);
+                        if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_read_bd_addr)) {
+                                reverse_bd_addr(&packet[6], event_addr);
                                 log_info("BD-ADDR: %s", bd_addr_to_str(event_addr));
 …
                                 break;
+                        }
                         if (COMMAND_COMPLETE_EVENT(packet, hci_write_local_name)) {
                                 hci_discoverable_control(1);
+                        if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_write_local_name)) {
+                                gap_discoverable_control(1);
                                 break;
+                        }
 …
                         // deny link key request
                         log_info("Link key request");
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         hci_send_cmd(&hci_link_key_request_negative_reply, &event_addr);
                         break;
 …
                         // inform about pin code request
                         log_info("Pin code request - using '0000'");
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         hci_send_cmd(&hci_pin_code_request_reply, &event_addr, 4, "0000");
                         break;
 …
                 case HCI_EVENT_USER_CONFIRMATION_REQUEST:
                         // inform about user confirmation request
                         log_info("HCI User Confirmation Request with numeric value '%06u'", READ_BT_32(packet, 8));
+                        log_info("HCI User Confirmation Request with numeric value '%06u'", little_endian_read_32(packet, 8));
                         log_info("HCI User Confirmation Auto accept");
                         break;
 …
                 case RFCOMM_EVENT_INCOMING_CONNECTION:
                         // data: event (8), len(8), address(48), channel (8), rfcomm_cid (16)
                         bt_flip_addr(event_addr, &packet[2]);
+                        reverse_bd_addr(&packet[2], event_addr);
                         rfcomm_channel_nr = packet[8];
                         rfcomm_channel_id = READ_BT_16(packet, 9);
+                        rfcomm_channel_id = little_endian_read_16(packet, 9);
                         log_info("RFCOMM channel %u requested for %s", rfcomm_channel_nr, bd_addr_to_str(event_addr));
                         rfcomm_accept_connection_internal(rfcomm_channel_id);
 …
+                        }
                         else {
                                 rfcomm_channel_id = READ_BT_16(packet, 12);
                                 mtu = READ_BT_16(packet, 14);
+                                rfcomm_channel_id = little_endian_read_16(packet, 12);
+                                mtu = little_endian_read_16(packet, 14);
                                 log_info("RFCOMM channel open succeeded. New RFCOMM Channel ID %u, max frame size %u", rfcomm_channel_id, mtu);
+                        }
 …
                         if (packet[2]) {
                                 log_info("BNEP channel open failed, status %02x", packet[2]);
+                                // 30秒後 BNEP Query 開始
+                                bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                                bt_timer = 30 * 1000;
+                        }
                         else {
                                 // data: event(8), len(8), status (8), bnep source uuid (16), bnep destination uuid (16), remote_address (48)
                                 bnep_cid = READ_BT_16(packet, 3);
                                 uuid_source = READ_BT_16(packet, 5);
                                 uuid_dest = READ_BT_16(packet, 7);
                                 mtu = READ_BT_16(packet, 9);
                                 //bt_flip_addr(remote_addr, &packet[11]);
+                                bnep_cid = little_endian_read_16(packet, 3);
+                                uuid_source = little_endian_read_16(packet, 5);
+                                uuid_dest = little_endian_read_16(packet, 7);
+                                mtu = little_endian_read_16(packet, 9);
+                                //reverse_bd_addr(&packet[11], remote_addr);
                                 memcpy(&remote_addr, &packet[11], sizeof(bd_addr_t));
                                 log_info("BNEP connection open succeeded to %s source UUID 0x%04x dest UUID: 0x%04x, max frame size %u", bd_addr_to_str(event_addr), uuid_source, uuid_dest, mtu);
 …
                                 btstack_network_up(bnep_cid, (uint8_t *)hci_local_bd_addr(), (uint8_t *)remote_addr);
                                 log_info("Network Interface %s activated", btstack_network_get_name(bnep_cid));
+                                bt_state = BT_STATE_CONNECTED;
+                                bt_timer = -1;
+                        }
                         break;
 …
                 case BNEP_EVENT_CHANNEL_CLOSED:
                         bnep_cid = READ_BT_16(packet, 2);
+                        bnep_cid = little_endian_read_16(packet, 2);
                         bt_channel_closed(bnep_cid);
+                        // 30秒後 BNEP Query 開始
+                        bt_state = BT_STATE_BNEP_QUERY_WAIT;
+                        bt_timer = 30 * 1000;
                         break;
                 case BNEP_EVENT_READY_TO_SEND:
                         bnep_cid = READ_BT_16(packet, 2);
+                        bnep_cid = little_endian_read_16(packet, 2);
                         bt_send_packet(bnep_cid);
                         break;
 …
+}
 void panu_init(void)
+void bt_init(void)
+{
         const hci_transport_t *transport;
 …
         service_record_item_t *bnep_service_record_item;
+        btstack_network_init(&network_send_packet_callback);
         //hci_dump_open("", HCI_DUMP_PACKETLOGGER);
-        log_info("bt初期化...");
         // start with BTstack init - especially configure HCI Transport
 …
         /* Initialize HCI */
-        log_info("HCI初期化...");
         transport = hci_transport_usb_instance();
         control = NULL;
 …
         /* Initialize L2CAP */
-        log_info("L2CAP初期化...");
         l2cap_init();
         l2cap_register_packet_handler(packet_handler);
         /* Initialise SDP, create record for SPP and register with SDP */
-        log_info("SDP初期化...");
         sdp_init();
         /* Initialize RFCOMM */
-        log_info("RFCOMM初期化...");
         rfcomm_init();
         rfcomm_register_packet_handler(packet_handler);
 …
         /* Initialise BNEP */
-        log_info("BNEP初期化...");
         bnep_init();
         bnep_register_packet_handler(packet_handler);
+        bnep_register_service(NULL, BNEP_UUID_PANU, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        if (bt_bnep_mode == 0) {
+                bnep_register_service(NULL, BLUETOOTH_SERVICE_CLASS_PANU, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        }
+        else {
+                bnep_register_service(NULL, BLUETOOTH_SERVICE_CLASS_NAP, BNEP_MTU_MIN);  /* Minimum L2CAP MTU for bnep is 1691 bytes */
+        }
         memset(spp_service_buffer, 0, sizeof(spp_service_buffer));
 …
         bnep_service_record_item = (service_record_item_t *)bnep_service_buffer;
-        log_info("SPPサービス登録...");
         sdp_create_spp_service((uint8_t*)&spp_service_record_item->service_record, 1, "RX SPP");
         de_dump_data_element((uint8_t*)spp_service_record_item->service_record);
 …
         sdp_register_service_internal(NULL, spp_service_record_item);
+        log_info("BNEPサービス登録...");
+        pan_create_panu_service((uint8_t*)&bnep_service_record_item->service_record, "RX PANU", "RX PANU", BNEP_SECURITY_NONE);
+        de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+        log_info("PANU SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        if (bt_bnep_mode == 0) {
+                pan_create_panu_service((uint8_t*)&bnep_service_record_item->service_record, "RX PANU", "RX PANU", BNEP_SECURITY_NONE);
+                de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+                log_info("PANU SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        }
+        else {
+                pan_create_nap_service((uint8_t*)&bnep_service_record_item->service_record, "RX NAP", "RX NAP", BNEP_SECURITY_NONE,
+                        PAN_NET_ACCESS_TYPE_100MB_ETHERNET, 0x0001312D0/*10Mb/sec*/, NULL, NULL);
+                de_dump_data_element((uint8_t*)bnep_service_record_item->service_record);
+                log_info("NAP SDP service buffer size: %u", (uint16_t)(sizeof(service_record_item_t) + de_get_len((uint8_t*)bnep_service_record_item->service_record)));
+        }
         sdp_register_service_internal(NULL, bnep_service_record_item);
 …
         /* Turn on the device */
-        log_info("HCI電源ON...");
         hci_power_control(HCI_POWER_ON);
 …
         sdp_parser_init();
         sdp_parser_register_callback(handle_sdp_client_query_result);
+}
+void nap_init(void);
+void bt_init(void)
+{
+        btstack_network_init(&network_send_packet_callback);
+        if (bt_bnep_mode == 0) {
+                panu_init();
+        }
+        else {
+                nap_init();
+        }
+        bt_enabled = true;
+}
+void bt_task(void)
+{
+        extern void hal_tick_handler();
+        if (bt_enabled) {
+                hal_tick_handler();
+        bt_state = BT_STATE_POWER_ON;
+        bt_timer = -1;
+}
+void bt_process(void)
+{
+        if (bt_state != BT_STATE_DORMANT) {
                 run_loop_execute();
                 bt_send_packet(0xffff);
+        }
+        if (bt_timer != 0)
+                return;
+        switch (bt_state) {
+        case BT_STATE_BNEP_QUERY_WAIT:
+                /* Send a general query for BNEP Protocol ID */
+                log_info("Start SDP BNEP query.");
+                sdp_general_query_for_uuid(remote_addr, BLUETOOTH_PROTOCOL_BNEP);
+                bt_state = BT_STATE_BNEP_QUERY;
+                bt_timer = -1;
+                break;
+        default:
+                bt_timer = -1;
+                break;
+        }
+}
 …
         hci_close();
+        bt_enabled = false;
+}
+        bt_state = BT_STATE_DORMANT;
+        bt_timer = -1;
+}
+void bt_task_on_start(struct task_if_t *task, ID tskid)
+{
+}
+void bt_task_on_end(struct task_if_t *task)
+{
+}
+int bt_task_get_timer(struct task_if_t *task)
+{
+        return bt_timer;
+}
+void bt_task_progress(struct task_if_t *task, int elapse)
+{
+        if (bt_timer == -1)
+                return;
+        bt_timer -= elapse;
+        if (bt_timer < 0)
+                bt_timer = 0;
+}
+void bt_task_process(struct task_if_t *task, enum task_event_t event)
+{
+        extern void hal_tick_handler();
+        switch (event & ~TASK_EVENT_TICK) {
+        case TASK_EVENT_START:
+                bt_init();
+                break;
+        case TASK_EVENT_TERMINATE:
+                bt_terminate();
+                break;
+        case TASK_EVENT_WAKEUP:
+        case TASK_EVENT_TIMEOUT:
+                if (event & TASK_EVENT_TICK)
+                        hal_tick_handler();
+                bt_process();
+                break;
+        }
+}
+struct task_if_t bt_task = {
+        bt_task_on_start,
+        bt_task_on_end,
+        bt_task_get_timer,
+        bt_task_progress,
+        bt_task_process,
+};

asp3_tinet_ecnl_rx/trunk/bnep_bridge/src/bt_main.h

-              r373
+              r374
 /*
  * panu_main.h
+ * bt_main.h
+ *
  */
 …
 void bt_init(void);
-void bt_task(void);
 int bt_can_send_packet(void);
 void bt_send_packet(uint16_t bnep_cid);

asp3_tinet_ecnl_rx/trunk/bnep_bridge/src/if_btusb.c

r337	r374
77	77	#include "kernel/kernel_impl.h"
78	78	#include "btstack/utils.h"
79		#include "~~panu~~_main.h"
	79	#include "bt_main.h"
80	80	#include "usb_hbth.h"
81	81	//#include "hal_cpu.h"

asp3_tinet_ecnl_rx/trunk/bnep_bridge/src/main.c

-              r364
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "usrcmd.h"
 #include "util/ntopt.h"
 #include "mbed_api.h"
+#include "gpio_api.h"
 #include "usb_hbth.h"
 #include "ntshell_main.h"
 …
 extern int bt_bnep_mode;
 /* PANU向けリモートアドレス */
-// BUFFALLO
-//bd_addr_t remote_addr = { 0x00,0x1B,0xDC,0x04,0x5C,0x2D };
-// Raspberry Pi 3
-//bd_addr_t remote_addr = {0xB8,0x27,0xEB,0x10,0x6D,0x60};
-// PRINCETON
-//bd_addr_t remote_addr = {0x00,0x1B,0xDC,0x06,0x6E,0x98};
-// ELECOM
 bd_addr_t remote_addr = {0x00,0x1B,0xDC,0x09,0x27,0x26};
 …
+{
         FILINFO fno;
 #if _USE_LFN
         char lfn[_MAX_LFN + 1];
+#if FF_USE_LFN
+        char lfn[FF_MAX_LFN + 1];
         fno.lfname = lfn;
         fno.lfsize = _MAX_LFN + 1;
+        fno.lfsize = FF_MAX_LFN + 1;
 #endif
         ER ret;
+#ifdef TOPPERS_OMIT_TECS
+        serial_opn_por(SIO_PORTID);
+#endif
+        serial_ctl_por(SIO_PORTID, IOCTL_FCSND | IOCTL_FCRCV);
+        ntshell_task_init(uart_read, uart_write, &main_obj);
+        ntshell_task_init(SIO_PORTID);
         main_obj.timer = TMO_FEVR;

asp3_tinet_ecnl_rx/trunk/btstack/include/btstack/hci_cmds.h

-              r337
+              r374
  * @param status
  */
 #define SDP_QUERY_COMPLETE                                 0x91
+#define SDP_EVENT_QUERY_COMPLETE                           0x91
 // data: event(8), len(8), rfcomm channel(8), name(var)
 …
  * @param attribute_value
  */
 #define SDP_QUERY_ATTRIBUTE_VALUE                          0x93
+#define SDP_EVENT_QUERY_ATTRIBUTE_VALUE                    0x93
 // not provided by daemon, only used for internal testing

asp3_tinet_ecnl_rx/trunk/btstack/include/btstack/sdp_util.h

-              r337
+              r374
 // UNIVERSAL ATTRIBUTE DEFINITIONS
 #define SDP_ServiceRecordHandle     0x0000
 #define SDP_ServiceClassIDList      0x0001
+#define BLUETOOTH_ATTRIBUTE_SERVICE_CLASS_ID_LIST      0x0001
 #define SDP_ServiceRecordState      0x0002
 #define SDP_ServiceID               0x0003
 #define SDP_ProtocolDescriptorList  0x0004
+#define BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST  0x0004
 #define SDP_BrowseGroupList                 0x0005
 #define SDP_LanguageBaseAttributeIDList 0x0006
 …
 #define SDP_RFCOMMProtocol    0x0003
 #define SDP_OBEXProtocol      0x0008
 #define SDP_L2CAPProtocol     0x0100
 #define SDP_BNEPProtocol      0x000f
+#define BLUETOOTH_PROTOCOL_L2CAP     0x0100
+#define BLUETOOTH_PROTOCOL_BNEP      0x000f
 // OFFSETS FOR LOCALIZED ATTRIBUTES - SDP_LanguageBaseAttributeIDList

asp3_tinet_ecnl_rx/trunk/btstack/include/btstack/utils.h

-              r337
+              r374
 // helper for BT little endian format
 #define READ_BT_16( buffer, pos) ( ((uint16_t) buffer[pos]) | (((uint16_t)buffer[pos+1]) << 8))
 #define READ_BT_24( buffer, pos) ( ((uint32_t) buffer[pos]) | (((uint32_t)buffer[pos+1]) << 8) | (((uint32_t)buffer[pos+2]) << 16))
 #define READ_BT_32( buffer, pos) ( ((uint32_t) buffer[pos]) | (((uint32_t)buffer[pos+1]) << 8) | (((uint32_t)buffer[pos+2]) << 16) | (((uint32_t) buffer[pos+3])) << 24)
+#define little_endian_read_16( buffer, pos) ( ((uint16_t) buffer[pos]) | (((uint16_t)buffer[pos+1]) << 8))
+#define little_endian_read_24( buffer, pos) ( ((uint32_t) buffer[pos]) | (((uint32_t)buffer[pos+1]) << 8) | (((uint32_t)buffer[pos+2]) << 16))
+#define little_endian_read_32( buffer, pos) ( ((uint32_t) buffer[pos]) | (((uint32_t)buffer[pos+1]) << 8) | (((uint32_t)buffer[pos+2]) << 16) | (((uint32_t) buffer[pos+3])) << 24)
 // helper for SDP big endian format
 #define READ_NET_16( buffer, pos) ( ((uint16_t) buffer[pos+1]) | (((uint16_t)buffer[pos  ]) << 8))
 #define READ_NET_32( buffer, pos) ( ((uint32_t) buffer[pos+3]) | (((uint32_t)buffer[pos+2]) << 8) | (((uint32_t)buffer[pos+1]) << 16) | (((uint32_t) buffer[pos])) << 24)
+#define big_endian_read_16( buffer, pos) ( ((uint16_t) buffer[pos+1]) | (((uint16_t)buffer[pos  ]) << 8))
+#define big_endian_read_32( buffer, pos) ( ((uint32_t) buffer[pos+3]) | (((uint32_t)buffer[pos+2]) << 8) | (((uint32_t)buffer[pos+1]) << 16) | (((uint32_t) buffer[pos])) << 24)
 // HCI CMD OGF/OCF
 …
 // check if command complete event for given command
 #define COMMAND_COMPLETE_EVENT(event,cmd) ( event[0] == HCI_EVENT_COMMAND_COMPLETE && READ_BT_16(event,3) == cmd.opcode)
 #define COMMAND_STATUS_EVENT(event,cmd) ( event[0] == HCI_EVENT_COMMAND_STATUS && READ_BT_16(event,4) == cmd.opcode)
+#define HCI_EVENT_IS_COMMAND_COMPLETE(event,cmd) ( event[0] == HCI_EVENT_COMMAND_COMPLETE && little_endian_read_16(event,3) == cmd.opcode)
+#define COMMAND_STATUS_EVENT(event,cmd) ( event[0] == HCI_EVENT_COMMAND_STATUS && little_endian_read_16(event,4) == cmd.opcode)
 // Code+Len=2, Pkts+Opcode=3; total=5
 …
 // ACL Packet
 #define READ_ACL_CONNECTION_HANDLE( buffer ) ( READ_BT_16(buffer,0) & 0x0fff)
+#define READ_ACL_CONNECTION_HANDLE( buffer ) ( little_endian_read_16(buffer,0) & 0x0fff)
 #define READ_ACL_FLAGS( buffer )      ( buffer[1] >> 4 )
 #define READ_ACL_LENGTH( buffer )     (READ_BT_16(buffer, 2))
+#define READ_ACL_LENGTH( buffer )     (little_endian_read_16(buffer, 2))
 // L2CAP Packet
 #define READ_L2CAP_LENGTH(buffer)     ( READ_BT_16(buffer, 4))
 #define READ_L2CAP_CHANNEL_ID(buffer) ( READ_BT_16(buffer, 6))
+#define READ_L2CAP_LENGTH(buffer)     ( little_endian_read_16(buffer, 4))
+#define READ_L2CAP_CHANNEL_ID(buffer) ( little_endian_read_16(buffer, 6))
 void bt_store_16(uint8_t *buffer, uint16_t pos, uint16_t value);
 void bt_store_32(uint8_t *buffer, uint16_t pos, uint32_t value);
 void bt_flip_addr(bd_addr_t dest, bd_addr_t src);
+void little_endian_store_16(uint8_t *buffer, uint16_t pos, uint16_t value);
+void little_endian_store_32(uint8_t *buffer, uint16_t pos, uint32_t value);
+void reverse_bd_addr(bd_addr_t src, bd_addr_t dest);
 void net_store_16(uint8_t *buffer, uint16_t pos, uint16_t value);

asp3_tinet_ecnl_rx/trunk/btstack/src/bnep.c

-              r337
+              r374
     event[1] = sizeof(event) - 2;
     event[2] = status;
     bt_store_16(event, 3, channel->l2cap_cid);
     bt_store_16(event, 5, channel->uuid_source);
     bt_store_16(event, 7, channel->uuid_dest);
     bt_store_16(event, 9, channel->max_frame_size);
+    little_endian_store_16(event, 3, channel->l2cap_cid);
+    little_endian_store_16(event, 5, channel->uuid_source);
+    little_endian_store_16(event, 7, channel->uuid_dest);
+    little_endian_store_16(event, 9, channel->max_frame_size);
     BD_ADDR_COPY(&event[11], channel->remote_addr);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[0] = BNEP_EVENT_CHANNEL_TIMEOUT;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->l2cap_cid);
     bt_store_16(event, 4, channel->uuid_source);
     bt_store_16(event, 6, channel->uuid_dest);
+    little_endian_store_16(event, 2, channel->l2cap_cid);
+    little_endian_store_16(event, 4, channel->uuid_source);
+    little_endian_store_16(event, 6, channel->uuid_dest);
     BD_ADDR_COPY(&event[8], channel->remote_addr);
     event[14] = channel->state;
 …
     event[0] = BNEP_EVENT_CHANNEL_CLOSED;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->l2cap_cid);
     bt_store_16(event, 4, channel->uuid_source);
     bt_store_16(event, 6, channel->uuid_dest);
+    little_endian_store_16(event, 2, channel->l2cap_cid);
+    little_endian_store_16(event, 4, channel->uuid_source);
+    little_endian_store_16(event, 6, channel->uuid_dest);
     BD_ADDR_COPY(&event[8], channel->remote_addr);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[0] = BNEP_EVENT_READY_TO_SEND;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->l2cap_cid);
+    little_endian_store_16(event, 2, channel->l2cap_cid);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
         (*app_packet_handler)(channel->connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, sizeof(event));
 …
     BD_ADDR_COPY(addr_source, &packet[pos]);
     pos += sizeof(bd_addr_t);
     network_protocol_type = READ_NET_16(packet, pos);
+    network_protocol_type = big_endian_read_16(packet, pos);
     pos += sizeof(uint16_t);
 …
+        }
         /* The "real" network protocol type is 4 bytes ahead in a VLAN packet */
                 network_protocol_type = READ_NET_16(packet, pos + 2);
+                network_protocol_type = big_endian_read_16(packet, pos + 2);
+        }
 …
     /* Check source and destination UUIDs for valid combinations */
     if (response_code == BNEP_RESP_SETUP_SUCCESS) {
         channel->uuid_dest = READ_NET_16(packet, 2 + uuid_offset);
         channel->uuid_source = READ_NET_16(packet, 2 + uuid_offset + uuid_size);
         if ((channel->uuid_dest != BNEP_UUID_PANU) &&
             (channel->uuid_dest != BNEP_UUID_NAP) &&
             (channel->uuid_dest != BNEP_UUID_GN)) {
+        channel->uuid_dest = big_endian_read_16(packet, 2 + uuid_offset);
+        channel->uuid_source = big_endian_read_16(packet, 2 + uuid_offset + uuid_size);
+        if ((channel->uuid_dest != BLUETOOTH_SERVICE_CLASS_PANU) &&
+            (channel->uuid_dest != BLUETOOTH_SERVICE_CLASS_NAP) &&
+            (channel->uuid_dest != BLUETOOTH_SERVICE_CLASS_GN)) {
             log_error("BNEP_CONNECTION_REQUEST: Invalid destination service UUID: %04x", channel->uuid_dest);
             channel->uuid_dest = 0;
+        }
         if ((channel->uuid_source != BNEP_UUID_PANU) &&
             (channel->uuid_source != BNEP_UUID_NAP) &&
             (channel->uuid_source != BNEP_UUID_GN)) {
+        if ((channel->uuid_source != BLUETOOTH_SERVICE_CLASS_PANU) &&
+            (channel->uuid_source != BLUETOOTH_SERVICE_CLASS_NAP) &&
+            (channel->uuid_source != BLUETOOTH_SERVICE_CLASS_GN)) {
             log_error("BNEP_CONNECTION_REQUEST: Invalid source service UUID: %04x", channel->uuid_source);
             channel->uuid_source = 0;
 …
             response_code = BNEP_RESP_SETUP_INVALID_DEST_UUID;
         } else
         if ((channel->uuid_source != BNEP_UUID_PANU) && (channel->uuid_dest != BNEP_UUID_PANU)) {
+        if ((channel->uuid_source != BLUETOOTH_SERVICE_CLASS_PANU) && (channel->uuid_dest != BLUETOOTH_SERVICE_CLASS_PANU)) {
             response_code = BNEP_RESP_SETUP_INVALID_SOURCE_UUID;
+        }
 …
+    }
     response_code = READ_NET_16(packet, 1);
+    response_code = big_endian_read_16(packet, 1);
     if (response_code == BNEP_RESP_SETUP_SUCCESS) {
 …
+    }
     list_length = READ_NET_16(packet, 1);
+    list_length = big_endian_read_16(packet, 1);
     /* Sanity check packet size again with known package size */
     if (size < 3 + list_length) {
 …
         /* There is still enough space, copy the filters to our filter list */
         for (i = 0; i < list_length / (2 * 2); i ++) {
             channel->net_filter[channel->net_filter_count].range_start = READ_NET_16(packet, 1 + 2 + i * 4);
             channel->net_filter[channel->net_filter_count].range_end = READ_NET_16(packet, 1 + 2 + i * 4 + 2);
+            channel->net_filter[channel->net_filter_count].range_start = big_endian_read_16(packet, 1 + 2 + i * 4);
+            channel->net_filter[channel->net_filter_count].range_end = big_endian_read_16(packet, 1 + 2 + i * 4 + 2);
             if (channel->net_filter[channel->net_filter_count].range_start > channel->net_filter[channel->net_filter_count].range_end) {
                 /* Invalid filter range, ignore this filter rule */
 …
+    }
     response_code = READ_NET_16(packet, 1);
+    response_code = big_endian_read_16(packet, 1);
     if (response_code == BNEP_RESP_FILTER_SUCCESS) {
 …
+    }
     list_length = READ_NET_16(packet, 1);
+    list_length = big_endian_read_16(packet, 1);
     /* Sanity check packet size again with known package size */
     if (size < 3 + list_length) {
 …
+    }
     response_code = READ_NET_16(packet, 1);
+    response_code = big_endian_read_16(packet, 1);
     if (response_code == BNEP_RESP_FILTER_SUCCESS) {
 …
         case L2CAP_EVENT_INCOMING_CONNECTION:
             /* L2CAP event data: event(8), len(8), address(48), handle (16),  psm (16), source cid(16) dest cid(16) */
             bt_flip_addr(event_addr, &packet[2]);
             con_handle = READ_BT_16(packet,  8);
             psm        = READ_BT_16(packet, 10);
             l2cap_cid  = READ_BT_16(packet, 12);
+            reverse_bd_addr(&packet[2], event_addr);
+            con_handle = little_endian_read_16(packet,  8);
+            psm        = little_endian_read_16(packet, 10);
+            l2cap_cid  = little_endian_read_16(packet, 12);
             if (psm != PSM_BNEP) break;
 …
         case L2CAP_EVENT_CHANNEL_OPENED:
             /* Check if the l2cap channel has been opened for PSM_BNEP */
             if (READ_BT_16(packet, 11) != PSM_BNEP) {
+            if (little_endian_read_16(packet, 11) != PSM_BNEP) {
                 break;
+            }
 …
             /* Get the bnep channel fpr remote address */
             con_handle = READ_BT_16(packet, 9);
             l2cap_cid  = READ_BT_16(packet, 13);
             bt_flip_addr(event_addr, &packet[3]);
+            con_handle = little_endian_read_16(packet, 9);
+            l2cap_cid  = little_endian_read_16(packet, 13);
+            reverse_bd_addr(&packet[3], event_addr);
             channel = bnep_channel_for_addr(&event_addr);
             if (!channel) {
 …
                     channel->state = BNEP_CHANNEL_STATE_WAIT_FOR_CONNECTION_RESPONSE;
                     bnep_channel_state_add(channel, BNEP_CHANNEL_STATE_VAR_SND_CONNECTION_REQUEST);
                     channel->max_frame_size = bnep_max_frame_size_for_l2cap_mtu(READ_BT_16(packet, 17));
+                    channel->max_frame_size = bnep_max_frame_size_for_l2cap_mtu(little_endian_read_16(packet, 17));
                     bnep_run();
                     break;
                 case BNEP_CHANNEL_STATE_WAIT_FOR_CONNECTION_REQUEST:
                     /* New information: channel mtu */
                     channel->max_frame_size = bnep_max_frame_size_for_l2cap_mtu(READ_BT_16(packet, 17));
+                    channel->max_frame_size = bnep_max_frame_size_for_l2cap_mtu(little_endian_read_16(packet, 17));
                     break;
                 default:
 …
         case L2CAP_EVENT_CHANNEL_CLOSED:
             // data: event (8), len(8), channel (16)
             l2cap_cid   = READ_BT_16(packet, 2);
+            l2cap_cid   = little_endian_read_16(packet, 2);
             channel = bnep_channel_for_l2cap_cid(l2cap_cid);
             log_info("L2CAP_EVENT_CHANNEL_CLOSED cid 0x%0x, channel %p", l2cap_cid, channel);
 …
             BD_ADDR_COPY(addr_source, &packet[pos]);
             pos += sizeof(bd_addr_t);
             network_protocol_type = READ_NET_16(packet, pos);
+            network_protocol_type = big_endian_read_16(packet, pos);
             pos += 2;
             break;
 …
             BD_ADDR_COPY(addr_dest, channel->local_addr);
             BD_ADDR_COPY(addr_source, channel->remote_addr);
             network_protocol_type = READ_NET_16(packet, pos);
+            network_protocol_type = big_endian_read_16(packet, pos);
             pos += 2;
             break;
 …
             BD_ADDR_COPY(addr_source, &packet[pos]);
             pos += sizeof(bd_addr_t);
             network_protocol_type = READ_NET_16(packet, pos);
+            network_protocol_type = big_endian_read_16(packet, pos);
             pos += 2;
             break;
 …
             pos += sizeof(bd_addr_t);
             BD_ADDR_COPY(addr_source, channel->remote_addr);
             network_protocol_type = READ_NET_16(packet, pos);
+            network_protocol_type = big_endian_read_16(packet, pos);
             pos += 2;
             break;
 …
+    }
     channel->uuid_source = BNEP_UUID_PANU;
+    channel->uuid_source = BLUETOOTH_SERVICE_CLASS_PANU;
     channel->uuid_dest   = uuid_dest;
 …
     /* Only alow one the three service types: PANU, NAP, GN */
     if ((service_uuid != BNEP_UUID_PANU) &&
         (service_uuid != BNEP_UUID_NAP) &&
         (service_uuid != BNEP_UUID_GN)) {
+    if ((service_uuid != BLUETOOTH_SERVICE_CLASS_PANU) &&
+        (service_uuid != BLUETOOTH_SERVICE_CLASS_NAP) &&
+        (service_uuid != BLUETOOTH_SERVICE_CLASS_GN)) {
         log_info("BNEP_REGISTER_SERVICE: Invalid service UUID: %04x", service_uuid);
         return BNEP_CHANNEL_NOT_CONNECTED;

asp3_tinet_ecnl_rx/trunk/btstack/src/bnep.h

-              r337
+              r374
 /* BNEP UUIDs */
 #define BNEP_UUID_PANU                                  0x1115
 #define BNEP_UUID_NAP                                   0x1116
 #define BNEP_UUID_GN                                    0x1117
+#define BLUETOOTH_SERVICE_CLASS_PANU                    0x1115
+#define BLUETOOTH_SERVICE_CLASS_NAP                     0x1116
+#define BLUETOOTH_SERVICE_CLASS_GN                      0x1117
 /* BNEP packet types */

asp3_tinet_ecnl_rx/trunk/btstack/src/hci.c

-              r337
+              r374
     bd_addr_t addr;
     hci_connection_t * conn;
     bt_flip_addr(addr, *(bd_addr_t *) bd_addr);
+    reverse_bd_addr(*(bd_addr_t *) bd_addr, addr);
     conn = hci_connection_for_bd_addr_and_type(&addr, BD_ADDR_TYPE_CLASSIC);
     if (conn) {
 …
         // copy handle_and_flags if not first fragment and update packet boundary flags to be 01 (continuing fragmnent)
         if (acl_header_pos > 0){
             uint16_t handle_and_flags = READ_BT_16(hci_stack->hci_packet_buffer, 0);
+            uint16_t handle_and_flags = little_endian_read_16(hci_stack->hci_packet_buffer, 0);
             handle_and_flags = (handle_and_flags & 0xcfff) | (1 << 12);
             bt_store_16(hci_stack->hci_packet_buffer, acl_header_pos, handle_and_flags);
+            little_endian_store_16(hci_stack->hci_packet_buffer, acl_header_pos, handle_and_flags);
+        }
         // update header len
         bt_store_16(hci_stack->hci_packet_buffer, acl_header_pos + 2, current_acl_data_packet_length);
+        little_endian_store_16(hci_stack->hci_packet_buffer, acl_header_pos + 2, current_acl_data_packet_length);
         // count packet
 …
                 conn->acl_recombination_pos    = acl_length + 4;
                 conn->acl_recombination_length = l2cap_length;
                 bt_store_16(conn->acl_recombination_buffer, HCI_INCOMING_PRE_BUFFER_SIZE + 2, l2cap_length +4);
+                little_endian_store_16(conn->acl_recombination_buffer, HCI_INCOMING_PRE_BUFFER_SIZE + 2, l2cap_length +4);
+            }
             break;
 …
     // odd: waiting for event
     if (packet[0] == HCI_EVENT_COMMAND_COMPLETE){
         uint16_t opcode = READ_BT_16(packet,3);
+        uint16_t opcode = little_endian_read_16(packet,3);
         if (opcode == hci_stack->last_cmd_opcode){
             command_completed = 1;
 …
     if (packet[0] == HCI_EVENT_COMMAND_STATUS){
         uint8_t  status = packet[2];
         uint16_t opcode = READ_BT_16(packet,4);
+        uint16_t opcode = little_endian_read_16(packet,4);
         if (opcode == hci_stack->last_cmd_opcode){
             if (status){
 …
         case 1: // SEND BAUD CHANGE
             hci_stack->control->baudrate_cmd(hci_stack->config, ((hci_uart_config_t *)hci_stack->config)->baudrate_main, hci_stack->hci_packet_buffer);
             hci_stack->last_cmd_opcode = READ_BT_16(hci_stack->hci_packet_buffer, 0);
+            hci_stack->last_cmd_opcode = little_endian_read_16(hci_stack->hci_packet_buffer, 0);
             hci_dump_packet(HCI_COMMAND_DATA_PACKET, 0, hci_stack->hci_packet_buffer, 3 + hci_stack->hci_packet_buffer[2]);
             hci_send_cmd_packet(hci_stack->hci_packet_buffer, 3 + hci_stack->hci_packet_buffer[2]);
 …
                 if (valid_cmd){
                     int size = 3 + hci_stack->hci_packet_buffer[2];
                     hci_stack->last_cmd_opcode = READ_BT_16(hci_stack->hci_packet_buffer, 0);
+                    hci_stack->last_cmd_opcode = little_endian_read_16(hci_stack->hci_packet_buffer, 0);
                     hci_dump_packet(HCI_COMMAND_DATA_PACKET, 0, hci_stack->hci_packet_buffer, size);
                     hci_stack->hci_transport->send_packet(HCI_COMMAND_DATA_PACKET, hci_stack->hci_packet_buffer, size);
 …
             hci_stack->num_cmd_packets = packet[2];
             if (COMMAND_COMPLETE_EVENT(packet, hci_read_buffer_size)){
+            if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_read_buffer_size)){
                 // from offset 5
                 // status
                 // "The HC_ACL_Data_Packet_Length return parameter will be used to determine the size of the L2CAP segments contained in ACL Data Packets"
                 hci_stack->acl_data_packet_length = READ_BT_16(packet, 6);
+                hci_stack->acl_data_packet_length = little_endian_read_16(packet, 6);
                 // ignore: SCO data packet len (8)
                 hci_stack->acl_packets_total_num  = packet[9];
 …
+            }
 #ifdef HAVE_BLE
             if (COMMAND_COMPLETE_EVENT(packet, hci_le_read_buffer_size)){
                 hci_stack->le_data_packets_length = READ_BT_16(packet, 6);
+            if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_le_read_buffer_size)){
+                hci_stack->le_data_packets_length = little_endian_read_16(packet, 6);
                 hci_stack->le_acl_packets_total_num  = packet[8];
                     // determine usable ACL payload size
 …
 #endif
             // Dump local address
             if (COMMAND_COMPLETE_EVENT(packet, hci_read_bd_addr)) {
                 bt_flip_addr(hci_stack->local_bd_addr, &packet[OFFSET_OF_DATA_IN_COMMAND_COMPLETE + 1]);
+            if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_read_bd_addr)) {
+                reverse_bd_addr(&packet[OFFSET_OF_DATA_IN_COMMAND_COMPLETE + 1], hci_stack->local_bd_addr);
                 log_info("Local Address, Status: 0x%02x: Addr: %s",
                     packet[OFFSET_OF_DATA_IN_COMMAND_COMPLETE], bd_addr_to_str(hci_stack->local_bd_addr));
+            }
             if (COMMAND_COMPLETE_EVENT(packet, hci_write_scan_enable)){
+            if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_write_scan_enable)){
                 hci_emit_discoverable_enabled(hci_stack->discoverable);
+            }
             // Note: HCI init checks
             if (COMMAND_COMPLETE_EVENT(packet, hci_read_local_supported_features)){
+            if (HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_read_local_supported_features)){
                 memcpy(hci_stack->local_supported_features, &packet[OFFSET_OF_DATA_IN_COMMAND_COMPLETE+1], 8);
                 log_info("Local Supported Features: 0x%02x%02x%02x%02x%02x%02x%02x%02x",
 …
             for (i=0; i<packet[2];i++){
                 uint16_t num_packets;
                 handle = READ_BT_16(packet, offset);
+                handle = little_endian_read_16(packet, offset);
                 offset += 2;
                 num_packets = READ_BT_16(packet, offset);
+                num_packets = little_endian_read_16(packet, offset);
                 offset += 2;
 …
+        }
         case HCI_EVENT_CONNECTION_REQUEST:
             bt_flip_addr(addr, &packet[2]);
+            reverse_bd_addr(&packet[2], addr);
             // TODO: eval COD 8-10
             link_type = packet[11];
 …
         case HCI_EVENT_CONNECTION_COMPLETE:
             // Connection management
             bt_flip_addr(addr, &packet[5]);
+            reverse_bd_addr(&packet[5], addr);
             log_info("Connection_complete (status=%u) %s", packet[2], bd_addr_to_str(addr));
             addr_type = BD_ADDR_TYPE_CLASSIC;
 …
                 if (!packet[2]){
                     conn->state = OPEN;
                     conn->con_handle = READ_BT_16(packet, 3);
+                    conn->con_handle = little_endian_read_16(packet, 3);
                     conn->bonding_flags |= BONDING_REQUEST_REMOTE_FEATURES;
 …
         case HCI_EVENT_READ_REMOTE_SUPPORTED_FEATURES_COMPLETE:
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             conn = hci_connection_for_handle(handle);
             if (!conn) break;
 …
         case HCI_EVENT_LINK_KEY_NOTIFICATION: {
             link_key_type_t link_key_type;
             bt_flip_addr(addr, &packet[2]);
+            reverse_bd_addr(&packet[2], addr);
             conn = hci_connection_for_bd_addr_and_type(&addr, BD_ADDR_TYPE_CLASSIC);
             if (!conn) break;
 …
             // PIN CODE REQUEST means the link key request didn't succee -> delete stored link key
             if (!hci_stack->remote_device_db) break;
             bt_flip_addr(addr, &packet[2]);
+            reverse_bd_addr(&packet[2], addr);
             hci_stack->remote_device_db->delete_link_key(&addr);
             break;
 …
         case HCI_EVENT_ENCRYPTION_CHANGE:
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             conn = hci_connection_for_handle(handle);
             if (!conn) break;
 …
         case HCI_EVENT_AUTHENTICATION_COMPLETE_EVENT:
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             conn = hci_connection_for_handle(handle);
             if (!conn) break;
 …
             if (!hci_stack->remote_device_db) break;
             if (packet[2]) break; // status not ok
             bt_flip_addr(addr, &packet[3]);
+            reverse_bd_addr(&packet[3], addr);
             // fix for invalid remote names - terminate on 0xff
             for (i=0; i<248;i++){
 …
             int offset = 3;
             for (i=0; i<packet[2];i++){
                 bt_flip_addr(addr, &packet[offset]);
+                reverse_bd_addr(&packet[offset], addr);
                 offset += 14; // 6 + 1 + 1 + 1 + 3 + 2;
                 if (hci_stack->remote_device_db->get_name(&addr, &device_name)){
 …
         case HCI_EVENT_ROLE_CHANGE:
             if (packet[2]) break;   // status != 0
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             conn = hci_connection_for_handle(handle);
             if (!conn) break;       // no conn
 …
                 case HCI_SUBEVENT_LE_CONNECTION_COMPLETE:
                     // Connection management
                     bt_flip_addr(addr, &packet[8]);
+                    reverse_bd_addr(&packet[8], addr);
                     addr_type = (bd_addr_type_t)packet[7];
                     log_info("LE Connection_complete (status=%u) type %u, %s", packet[3], addr_type, bd_addr_to_str(addr));
 …
                     conn->state = OPEN;
                     conn->con_handle = READ_BT_16(packet, 4);
+                    conn->con_handle = little_endian_read_16(packet, 4);
                     // TODO: store - role, peer address type, conn_interval, conn_latency, supervision timeout, master clock
 …
                     break;
             // log_info("LE buffer size: %u, count %u", READ_BT_16(packet,6), packet[8]);
+            // log_info("LE buffer size: %u, count %u", little_endian_read_16(packet,6), packet[8]);
                 default:
 …
     if (hci_stack->state == HCI_STATE_FALLING_ASLEEP
         && hci_stack->substate == 1
         && COMMAND_COMPLETE_EVENT(packet, hci_write_scan_enable)){
+        && HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_write_scan_enable)){
         hci_stack->substate++;
+    }
 …
         if (!packet[2]){
             hci_connection_t * conn;
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             conn = hci_connection_for_handle(handle);
             if (conn) {
 …
+}
 void hci_discoverable_control(uint8_t enable){
+void gap_discoverable_control(uint8_t enable){
     if (enable) enable = 1; // normalize argument
 …
     // create_connection?
     if (IS_COMMAND(packet, hci_create_connection)){
         bt_flip_addr(addr, &packet[3]);
+        reverse_bd_addr(&packet[3], addr);
         log_info("Create_connection to %s", bd_addr_to_str(addr));
 …
     if (IS_COMMAND(packet, hci_delete_stored_link_key)){
         if (hci_stack->remote_device_db){
             bt_flip_addr(addr, &packet[3]);
+            reverse_bd_addr(&packet[3], addr);
             hci_stack->remote_device_db->delete_link_key(&addr);
+        }
 …
     if (IS_COMMAND(packet, hci_pin_code_request_negative_reply)
     ||  IS_COMMAND(packet, hci_pin_code_request_reply)){
         bt_flip_addr(addr, &packet[3]);
+        reverse_bd_addr(&packet[3], addr);
         conn = hci_connection_for_bd_addr_and_type(&addr, BD_ADDR_TYPE_CLASSIC);
         if (conn){
 …
     ||  IS_COMMAND(packet, hci_user_passkey_request_negative_reply)
     ||  IS_COMMAND(packet, hci_user_passkey_request_reply)) {
         bt_flip_addr(addr, &packet[3]);
+        reverse_bd_addr(&packet[3], addr);
         conn = hci_connection_for_bd_addr_and_type(&addr, BD_ADDR_TYPE_CLASSIC);
         if (conn){
 …
+    }
     if (IS_COMMAND(packet, hci_le_set_random_address)){
         bt_flip_addr(hci_stack->adv_address, &packet[3]);
+        reverse_bd_addr(&packet[3], hci_stack->adv_address);
+    }
 #endif
 …
     event[1] = sizeof(event) - 2;
     event[2] = status;
     bt_store_16(event, 3, conn->con_handle);
     bt_flip_addr(&event[5], conn->address);
+    little_endian_store_16(event, 3, conn->con_handle);
+    reverse_bd_addr(conn->address, &event[5]);
     event[11] = 1; // ACL connection
     event[12] = 0; // encryption disabled
 …
     event[2] = HCI_SUBEVENT_LE_CONNECTION_COMPLETE;
     event[3] = status;
     bt_store_16(event, 4, conn_handle);
+    little_endian_store_16(event, 4, conn_handle);
     event[6] = 0; // TODO: role
     event[7] = address_type;
     bt_flip_addr(&event[8], *address);
     bt_store_16(event, 14, 0); // interval
     bt_store_16(event, 16, 0); // latency
     bt_store_16(event, 18, 0); // supervision timeout
+    reverse_bd_addr(*address, &event[8]);
+    little_endian_store_16(event, 14, 0); // interval
+    little_endian_store_16(event, 16, 0); // latency
+    little_endian_store_16(event, 18, 0); // supervision timeout
     event[20] = 0; // master clock accuracy
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[1] = sizeof(event) - 2;
     event[2] = 0; // status = OK
     bt_store_16(event, 3, handle);
+    little_endian_store_16(event, 3, handle);
     event[5] = reason;
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[0] = L2CAP_EVENT_TIMEOUT_CHECK;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, conn->con_handle);
+    little_endian_store_16(event, 2, conn->con_handle);
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
     hci_stack->packet_handler(HCI_EVENT_PACKET, event, sizeof(event));
 …
     event[2] = BTSTACK_MAJOR;
     event[3] = BTSTACK_MINOR;
     bt_store_16(event, 4, BTSTACK_REVISION);
+    little_endian_store_16(event, 4, BTSTACK_REVISION);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     hci_stack->packet_handler(HCI_EVENT_PACKET, event, sizeof(event));
 …
     event[1] = sizeof(event) - 2 - 1;
     event[2] = 0;   // just to be compatible with HCI_EVENT_REMOTE_NAME_REQUEST_COMPLETE
     bt_flip_addr(&event[3], *addr);
+    reverse_bd_addr(*addr, &event[3]);
     memcpy(&event[9], name, 248);
 …
     event[pos++] = GAP_SECURITY_LEVEL;
     event[pos++] = sizeof(event) - 2;
     bt_store_16(event, 2, con_handle);
+    little_endian_store_16(event, 2, con_handle);
     pos += 2;
     event[pos++] = level;
 …
     event[pos++] = sizeof(event) - 2;
     event[pos++] = status;
     bt_flip_addr( * (bd_addr_t *) &event[pos], address);
+    reverse_bd_addr(address,  * (bd_addr_t *) &event[pos]);
     pos += 6;
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));

asp3_tinet_ecnl_rx/trunk/btstack/src/hci.h

-              r337
+              r374
 //
 #define IS_COMMAND(packet, command) (READ_BT_16(packet,0) == command.opcode)
+#define IS_COMMAND(packet, command) (little_endian_read_16(packet,0) == command.opcode)
 // data: event(8)
 …
 // Allows to control if device is discoverable. OFF by default.
 void hci_discoverable_control(uint8_t enable);
+void gap_discoverable_control(uint8_t enable);
 // Creates and sends HCI command packets based on a template and

asp3_tinet_ecnl_rx/trunk/btstack/src/hci_dump.c

-              r337
+              r374
         case HCI_DUMP_BLUEZ:
             bt_store_16( (uint8_t *) &header_bluez.len, 0, 1 + len);
+            little_endian_store_16( (uint8_t *) &header_bluez.len, 0, 1 + len);
             header_bluez.in  = in;
             header_bluez.pad = 0;
             bt_store_32( (uint8_t *) &header_bluez.ts_sec,  0, curr_time.tv_sec);
             bt_store_32( (uint8_t *) &header_bluez.ts_usec, 0, curr_time.tv_usec);
+            little_endian_store_32( (uint8_t *) &header_bluez.ts_sec,  0, curr_time.tv_sec);
+            little_endian_store_32( (uint8_t *) &header_bluez.ts_usec, 0, curr_time.tv_usec);
             header_bluez.packet_type = packet_type;
             write (dump_file, &header_bluez, sizeof(hcidump_hdr) );

asp3_tinet_ecnl_rx/trunk/btstack/src/l2cap.c

-              r337
+              r374
     event[1] = sizeof(event) - 2;
     event[2] = status;
     bt_flip_addr(&event[3], channel->address);
     bt_store_16(event,  9, channel->handle);
     bt_store_16(event, 11, channel->psm);
     bt_store_16(event, 13, channel->local_cid);
     bt_store_16(event, 15, channel->remote_cid);
     bt_store_16(event, 17, channel->local_mtu);
     bt_store_16(event, 19, channel->remote_mtu);
     bt_store_16(event, 21, channel->flush_timeout);
+    reverse_bd_addr(channel->address, &event[3]);
+    little_endian_store_16(event,  9, channel->handle);
+    little_endian_store_16(event, 11, channel->psm);
+    little_endian_store_16(event, 13, channel->local_cid);
+    little_endian_store_16(event, 15, channel->remote_cid);
+    little_endian_store_16(event, 17, channel->local_mtu);
+    little_endian_store_16(event, 19, channel->remote_mtu);
+    little_endian_store_16(event, 21, channel->flush_timeout);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     l2cap_dispatch(channel, HCI_EVENT_PACKET, event, sizeof(event));
 …
     event[0] = L2CAP_EVENT_CHANNEL_CLOSED;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->local_cid);
+    little_endian_store_16(event, 2, channel->local_cid);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     l2cap_dispatch(channel, HCI_EVENT_PACKET, event, sizeof(event));
 …
     event[0] = L2CAP_EVENT_INCOMING_CONNECTION;
     event[1] = sizeof(event) - 2;
     bt_flip_addr(&event[2], channel->address);
     bt_store_16(event,  8, channel->handle);
     bt_store_16(event, 10, channel->psm);
     bt_store_16(event, 12, channel->local_cid);
     bt_store_16(event, 14, channel->remote_cid);
+    reverse_bd_addr(channel->address, &event[2]);
+    little_endian_store_16(event,  8, channel->handle);
+    little_endian_store_16(event, 10, channel->psm);
+    little_endian_store_16(event, 12, channel->local_cid);
+    little_endian_store_16(event, 14, channel->remote_cid);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     l2cap_dispatch(channel, HCI_EVENT_PACKET, event, sizeof(event));
 …
     event[0] = L2CAP_EVENT_CONNECTION_PARAMETER_UPDATE_RESPONSE;
     event[1] = 4;
     bt_store_16(event, 2, handle);
     bt_store_16(event, 4, result);
+    little_endian_store_16(event, 2, handle);
+    little_endian_store_16(event, 4, result);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     (*packet_handler)(NULL, HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[1] = sizeof(event) - 2;
     event[2] = status;
     bt_store_16(event, 3, psm);
+    little_endian_store_16(event, 3, psm);
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
     (*packet_handler)(connection, HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[0] = L2CAP_EVENT_CREDITS;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->local_cid);
+    little_endian_store_16(event, 2, channel->local_cid);
     event[4] = credits;
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     // 0 - Connection handle : PB=pb : BC=00
     bt_store_16(acl_buffer, 0, channel->handle | (pb << 12) | (0 << 14));
+    little_endian_store_16(acl_buffer, 0, channel->handle | (pb << 12) | (0 << 14));
     // 2 - ACL length
     bt_store_16(acl_buffer, 2,  len + 4);
+    little_endian_store_16(acl_buffer, 2,  len + 4);
     // 4 - L2CAP packet length
     bt_store_16(acl_buffer, 4,  len + 0);
+    little_endian_store_16(acl_buffer, 4,  len + 0);
     // 6 - L2CAP channel DEST
     bt_store_16(acl_buffer, 6, channel->remote_cid);
+    little_endian_store_16(acl_buffer, 6, channel->remote_cid);
     // send
     err = hci_send_acl_packet_buffer(len+8);
 …
     // 0 - Connection handle : PB=pb : BC=00
     bt_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
+    little_endian_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
     // 2 - ACL length
     bt_store_16(acl_buffer, 2,  len + 4);
+    little_endian_store_16(acl_buffer, 2,  len + 4);
     // 4 - L2CAP packet length
     bt_store_16(acl_buffer, 4,  len + 0);
+    little_endian_store_16(acl_buffer, 4,  len + 0);
     // 6 - L2CAP channel DEST
     bt_store_16(acl_buffer, 6, cid);
+    little_endian_store_16(acl_buffer, 6, cid);
     // send
     err = hci_send_acl_packet_buffer(len+8);
 …
                         config_options[0] = 1; // MTU
                         config_options[1] = 2; // len param
                         bt_store_16( (uint8_t*)&config_options, 2, channel->remote_mtu);
+                        little_endian_store_16( (uint8_t*)&config_options, 2, channel->remote_mtu);
                         l2cap_send_signaling_packet(channel->handle, CONFIGURE_RESPONSE, channel->remote_sig_id, channel->remote_cid, flags, 0, 4, &config_options);
                         channelStateVarClearFlag(channel,L2CAP_CHANNEL_STATE_VAR_SEND_CONF_RSP_MTU);
 …
                     config_options[0] = 1; // MTU
                     config_options[1] = 2; // len param
                     bt_store_16( (uint8_t*)&config_options, 2, channel->local_mtu);
+                    little_endian_store_16( (uint8_t*)&config_options, 2, channel->local_mtu);
                     l2cap_send_signaling_packet(channel->handle, CONFIGURE_REQUEST, channel->local_sig_id, channel->remote_cid, 0, 4, &config_options);
                     l2cap_start_rtx(channel);
 …
         // handle connection complete events
         case HCI_EVENT_CONNECTION_COMPLETE:
             bt_flip_addr(address, &packet[5]);
+            reverse_bd_addr(&packet[5], address);
             if (packet[2] == 0){
                 handle = READ_BT_16(packet, 3);
+                handle = little_endian_read_16(packet, 3);
                 l2cap_handle_connection_success_for_addr(address, handle);
             } else {
 …
         // handle successful create connection cancel command
         case HCI_EVENT_COMMAND_COMPLETE:
             if ( COMMAND_COMPLETE_EVENT(packet, hci_create_connection_cancel) ) {
+            if ( HCI_EVENT_IS_COMMAND_COMPLETE(packet, hci_create_connection_cancel) ) {
                 if (packet[5] == 0){
                     bt_flip_addr(address, &packet[6]);
+                    reverse_bd_addr(&packet[6], address);
                     // CONNECTION TERMINATED BY LOCAL HOST (0X16)
                     l2cap_handle_connection_failed_for_addr(address, 0x16);
 …
         case HCI_EVENT_DISCONNECTION_COMPLETE:
             // send l2cap disconnect events for all channels on this handle and free them
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             linked_list_iterator_init(&it, &l2cap_channels);
             while (linked_list_iterator_has_next(&it)){
 …
         // HCI Connection Timeouts
         case L2CAP_EVENT_TIMEOUT_CHECK:
             handle = READ_BT_16(packet, 2);
+            handle = little_endian_read_16(packet, 2);
             if (hci_authentication_active_for_handle(handle)) break;
             hci_con_used = 0;
 …
         case HCI_EVENT_READ_REMOTE_SUPPORTED_FEATURES_COMPLETE:
             handle = READ_BT_16(packet, 3);
+            handle = little_endian_read_16(packet, 3);
             linked_list_iterator_init(&it, &l2cap_channels);
             while (linked_list_iterator_has_next(&it)){
 …
         case GAP_SECURITY_LEVEL:
             handle = READ_BT_16(packet, 2);
+            handle = little_endian_read_16(packet, 2);
             log_info("l2cap - security level update");
             linked_list_iterator_init(&it, &l2cap_channels);
 …
     channel->remote_sig_id = command[L2CAP_SIGNALING_COMMAND_SIGID_OFFSET];
     flags = READ_BT_16(command, 6);
+    flags = little_endian_read_16(command, 6);
     if (flags & 1) {
         channelStateVarSetFlag(channel, L2CAP_CHANNEL_STATE_VAR_SEND_CONF_RSP_CONT);
 …
     // accept the other's configuration options
     end_pos = 4 + READ_BT_16(command, L2CAP_SIGNALING_COMMAND_LENGTH_OFFSET);
+    end_pos = 4 + little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_LENGTH_OFFSET);
     pos     = 8;
     while (pos < end_pos){
 …
         // MTU { type(8): 1, len(8):2, MTU(16) }
         if (option_type == 1 && length == 2){
             channel->remote_mtu = READ_BT_16(command, pos);
+            channel->remote_mtu = little_endian_read_16(command, pos);
             // log_info("l2cap cid 0x%02x, remote mtu %u", channel->local_cid, channel->remote_mtu);
             channelStateVarSetFlag(channel, L2CAP_CHANNEL_STATE_VAR_SEND_CONF_RSP_MTU);
 …
         // Flush timeout { type(8):2, len(8): 2, Flush Timeout(16)}
         if (option_type == 2 && length == 2){
             channel->flush_timeout = READ_BT_16(command, pos);
+            channel->flush_timeout = little_endian_read_16(command, pos);
+        }
         // check for unknown options
 …
                 case CONNECTION_RESPONSE:
                     l2cap_stop_rtx(channel);
                     result = READ_BT_16 (command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+4);
+                    result = little_endian_read_16 (command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+4);
                     switch (result) {
                         case 0:
                             // successful connection
                             channel->remote_cid = READ_BT_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
+                            channel->remote_cid = little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
                             channel->state = L2CAP_STATE_CONFIG;
                             channelStateVarSetFlag(channel, L2CAP_CHANNEL_STATE_VAR_SEND_CONF_REQ);
 …
         case L2CAP_STATE_CONFIG:
             result = READ_BT_16 (command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+4);
+            result = little_endian_read_16 (command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+4);
             switch (code) {
                 case CONFIGURE_REQUEST:
 …
         case CONNECTION_REQUEST: {
             uint16_t psm =        READ_BT_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
             uint16_t source_cid = READ_BT_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+2);
+            uint16_t psm =        little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
+            uint16_t source_cid = little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET+2);
             l2cap_handle_connection_request(handle, sig_id, psm, source_cid);
             return;
 …
         case INFORMATION_REQUEST: {
             uint16_t infoType = READ_BT_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
+            uint16_t infoType = little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
             l2cap_register_signaling_response(handle, code, sig_id, infoType);
             return;
 …
     // Get potential destination CID
     dest_cid = READ_BT_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
+    dest_cid = little_endian_read_16(command, L2CAP_SIGNALING_COMMAND_DATA_OFFSET);
     // Find channel for this sig_id and connection handle
 …
                 // increment command_offset
                 command_offset += L2CAP_SIGNALING_COMMAND_DATA_OFFSET + READ_BT_16(packet, command_offset + L2CAP_SIGNALING_COMMAND_LENGTH_OFFSET);
+                command_offset += L2CAP_SIGNALING_COMMAND_DATA_OFFSET + little_endian_read_16(packet, command_offset + L2CAP_SIGNALING_COMMAND_LENGTH_OFFSET);
+            }
             break;
 …
             switch (packet[8]){
                 case CONNECTION_PARAMETER_UPDATE_RESPONSE: {
                     uint16_t result = READ_BT_16(packet, 12);
+                    uint16_t result = little_endian_read_16(packet, 12);
                     l2cap_emit_connection_parameter_update_response(handle, result);
                     break;
 …
                         int update_parameter = 1;
                         le_connection_parameter_range_t existing_range = gap_le_get_connection_parameter_range();
                         uint16_t le_conn_interval_min = READ_BT_16(packet,12);
                         uint16_t le_conn_interval_max = READ_BT_16(packet,14);
                         uint16_t le_conn_latency = READ_BT_16(packet,16);
                         uint16_t le_supervision_timeout = READ_BT_16(packet,18);
+                        uint16_t le_conn_interval_min = little_endian_read_16(packet,12);
+                        uint16_t le_conn_interval_max = little_endian_read_16(packet,14);
+                        uint16_t le_conn_latency = little_endian_read_16(packet,16);
+                        uint16_t le_supervision_timeout = little_endian_read_16(packet,18);
                         if (le_conn_interval_min < existing_range.le_conn_interval_min) update_parameter = 0;

asp3_tinet_ecnl_rx/trunk/btstack/src/l2cap_signaling.c

-              r337
+              r374
     // 0 - Connection handle : PB=pb : BC=00
     bt_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
+    little_endian_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
     // 6 - L2CAP channel = 1
     bt_store_16(acl_buffer, 6, cid);
+    little_endian_store_16(acl_buffer, 6, cid);
     // 8 - Code
     acl_buffer[8] = cmd;
 …
     // 2 - ACL length
     bt_store_16(acl_buffer, 2,  pos - 4);
+    little_endian_store_16(acl_buffer, 2,  pos - 4);
     // 4 - L2CAP packet length
     bt_store_16(acl_buffer, 4,  pos - 6 - 2);
+    little_endian_store_16(acl_buffer, 4,  pos - 6 - 2);
     // 10 - L2CAP signaling parameter length
     bt_store_16(acl_buffer, 10, pos - 12);
+    little_endian_store_16(acl_buffer, 10, pos - 12);
     return pos;
 …
     // 0 - Connection handle : PB=pb : BC=00
     bt_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
+    little_endian_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
     // 6 - L2CAP LE Signaling channel = 5
     bt_store_16(acl_buffer, 6, 5);
+    little_endian_store_16(acl_buffer, 6, 5);
     // 8 - Code
     acl_buffer[8] = CONNECTION_PARAMETER_UPDATE_REQUEST;
 …
     acl_buffer[9] = 1;
     uint16_t pos = 12;
     bt_store_16(acl_buffer, pos, interval_min);
     pos += 2;
     bt_store_16(acl_buffer, pos, interval_max);
     pos += 2;
     bt_store_16(acl_buffer, pos, slave_latency);
     pos += 2;
     bt_store_16(acl_buffer, pos, timeout_multiplier);
+    little_endian_store_16(acl_buffer, pos, interval_min);
+    pos += 2;
+    little_endian_store_16(acl_buffer, pos, interval_max);
+    pos += 2;
+    little_endian_store_16(acl_buffer, pos, slave_latency);
+    pos += 2;
+    little_endian_store_16(acl_buffer, pos, timeout_multiplier);
     pos += 2;
     // 2 - ACL length
     bt_store_16(acl_buffer, 2,  pos - 4);
+    little_endian_store_16(acl_buffer, 2,  pos - 4);
     // 4 - L2CAP packet length
     bt_store_16(acl_buffer, 4,  pos - 6 - 2);
+    little_endian_store_16(acl_buffer, 4,  pos - 6 - 2);
     // 10 - L2CAP signaling parameter length
     bt_store_16(acl_buffer, 10, pos - 12);
+    little_endian_store_16(acl_buffer, 10, pos - 12);
     return pos;
+}
 …
     // 0 - Connection handle : PB=pb : BC=00
     bt_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
+    little_endian_store_16(acl_buffer, 0, handle | (pb << 12) | (0 << 14));
     // 6 - L2CAP LE Signaling channel = 5
     bt_store_16(acl_buffer, 6, 5);
+    little_endian_store_16(acl_buffer, 6, 5);
     // 8 - Code
     acl_buffer[8] = CONNECTION_PARAMETER_UPDATE_REQUEST;
 …
     acl_buffer[9] = 1;
     uint16_t pos = 12;
     bt_store_16(acl_buffer, pos, response);
+    little_endian_store_16(acl_buffer, pos, response);
     pos += 2;
     // 2 - ACL length
     bt_store_16(acl_buffer, 2,  pos - 4);
+    little_endian_store_16(acl_buffer, 2,  pos - 4);
     // 4 - L2CAP packet length
     bt_store_16(acl_buffer, 4,  pos - 6 - 2);
+    little_endian_store_16(acl_buffer, 4,  pos - 6 - 2);
     // 10 - L2CAP signaling parameter length
     bt_store_16(acl_buffer, 10, pos - 12);
+    little_endian_store_16(acl_buffer, 10, pos - 12);
     return pos;
+}

asp3_tinet_ecnl_rx/trunk/btstack/src/pan.c

r337	r374
80	80
81	81	// 0x0001 "Service Class ID List"
82		de_add_number(service, DE_UINT, DE_SIZE_16, ~~SDP_ServiceClassIDList~~);
	82	de_add_number(service, DE_UINT, DE_SIZE_16, BLUETOOTH_ATTRIBUTE_SERVICE_CLASS_ID_LIST);
83	83	attribute = de_push_sequence(service);
84	84	{
…	…
89	89
90	90	// 0x0004 "Protocol Descriptor List"
91		de_add_number(service, DE_UINT, DE_SIZE_16, ~~SDP_ProtocolDescriptorList~~);
	91	de_add_number(service, DE_UINT, DE_SIZE_16, BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST);
92	92	attribute = de_push_sequence(service);
93	93	{
…	…
95	95	{
96	96	de_add_number(l2cpProtocol, DE_UUID, DE_SIZE_16, 0x0100);
97		de_add_number(l2cpProtocol, DE_UINT, DE_SIZE_16, ~~SDP_BNEPProtocol~~); // l2cap psm
	97	de_add_number(l2cpProtocol, DE_UINT, DE_SIZE_16, BLUETOOTH_PROTOCOL_BNEP); // l2cap psm
98	98	}
99	99	de_pop_sequence(attribute, l2cpProtocol);

asp3_tinet_ecnl_rx/trunk/btstack/src/rfcomm.c

-              r337
+              r374
     event[0] = RFCOMM_EVENT_INCOMING_CONNECTION;
     event[1] = sizeof(event) - 2;
     bt_flip_addr(&event[2], channel->multiplexer->remote_addr);
+    reverse_bd_addr(channel->multiplexer->remote_addr, &event[2]);
     event[8] = channel->dlci >> 1;
     bt_store_16(event, 9, channel->rfcomm_cid);
+    little_endian_store_16(event, 9, channel->rfcomm_cid);
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
         (*app_packet_handler)(channel->connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, sizeof(event));
 …
     event[pos++] = sizeof(event) - 2;
     event[pos++] = status;
     bt_flip_addr(&event[pos], channel->multiplexer->remote_addr); pos += 6;
     bt_store_16(event,  pos, channel->multiplexer->con_handle);   pos += 2;
+    reverse_bd_addr(channel->multiplexer->remote_addr, &event[pos]); pos += 6;
+    little_endian_store_16(event,  pos, channel->multiplexer->con_handle);   pos += 2;
         event[pos++] = channel->dlci >> 1;
         bt_store_16(event, pos, channel->rfcomm_cid); pos += 2;       // channel ID
         bt_store_16(event, pos, channel->max_frame_size); pos += 2;   // max frame size
+        little_endian_store_16(event, pos, channel->rfcomm_cid); pos += 2;       // channel ID
+        little_endian_store_16(event, pos, channel->max_frame_size); pos += 2;   // max frame size
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
         (*app_packet_handler)(channel->connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, pos);
 …
     event[pos++] = sizeof(event) - 2;
     event[pos++] = BTSTACK_MEMORY_ALLOC_FAILED;
     bt_flip_addr(&event[pos], *addr); pos += 6;
     bt_store_16(event,  pos, 0);   pos += 2;
+    reverse_bd_addr(*addr, &event[pos]); pos += 6;
+    little_endian_store_16(event,  pos, 0);   pos += 2;
         event[pos++] = server_channel;
         bt_store_16(event, pos, 0); pos += 2;   // channel ID
         bt_store_16(event, pos, 0); pos += 2;   // max frame size
+        little_endian_store_16(event, pos, 0); pos += 2;   // channel ID
+        little_endian_store_16(event, pos, 0); pos += 2;   // max frame size
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
         (*app_packet_handler)(connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, pos);
 …
     event[0] = RFCOMM_EVENT_CHANNEL_CLOSED;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->rfcomm_cid);
+    little_endian_store_16(event, 2, channel->rfcomm_cid);
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
         (*app_packet_handler)(channel->connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, sizeof(event));
 …
     event[0] = RFCOMM_EVENT_CREDITS;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->rfcomm_cid);
+    little_endian_store_16(event, 2, channel->rfcomm_cid);
     event[4] = credits;
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
     event[0] = RFCOMM_EVENT_REMOTE_LINE_STATUS;
     event[1] = sizeof(event) - 2;
     bt_store_16(event, 2, channel->rfcomm_cid);
+    little_endian_store_16(event, 2, channel->rfcomm_cid);
     event[4] = line_status;
     hci_dump_packet( HCI_EVENT_PACKET, 0, event, sizeof(event));
 …
         case L2CAP_EVENT_INCOMING_CONNECTION:
             // data: event(8), len(8), address(48), handle (16),  psm (16), source cid(16) dest cid(16)
             bt_flip_addr(event_addr, &packet[2]);
             con_handle = READ_BT_16(packet,  8);
             psm        = READ_BT_16(packet, 10);
             l2cap_cid  = READ_BT_16(packet, 12);
+            reverse_bd_addr(&packet[2], event_addr);
+            con_handle = little_endian_read_16(packet,  8);
+            psm        = little_endian_read_16(packet, 10);
+            l2cap_cid  = little_endian_read_16(packet, 12);
             if (psm != PSM_RFCOMM) break;
 …
         case L2CAP_EVENT_CHANNEL_OPENED:
             if (READ_BT_16(packet, 11) != PSM_RFCOMM) break;
+            if (little_endian_read_16(packet, 11) != PSM_RFCOMM) break;
             status = packet[2];
 …
             // get multiplexer for remote addr
             con_handle = READ_BT_16(packet, 9);
             l2cap_cid = READ_BT_16(packet, 13);
             bt_flip_addr(event_addr, &packet[3]);
+            con_handle = little_endian_read_16(packet, 9);
+            l2cap_cid = little_endian_read_16(packet, 13);
+            reverse_bd_addr(&packet[3], event_addr);
             multiplexer = rfcomm_multiplexer_for_addr(&event_addr);
             if (!multiplexer) {
 …
                 // set max frame size based on l2cap MTU
                 multiplexer->max_frame_size = rfcomm_max_frame_size_for_l2cap_mtu(READ_BT_16(packet, 17));
+                multiplexer->max_frame_size = rfcomm_max_frame_size_for_l2cap_mtu(little_endian_read_16(packet, 17));
+            }
             return 1;
 …
         case L2CAP_EVENT_CREDITS:
             // data: event(8), len(8), local_cid(16), credits(8)
             l2cap_cid = READ_BT_16(packet, 2);
+            l2cap_cid = little_endian_read_16(packet, 2);
             multiplexer = rfcomm_multiplexer_for_l2cap_cid(l2cap_cid);
             if (!multiplexer) break;
 …
         case L2CAP_EVENT_CHANNEL_CLOSED:
             // data: event (8), len(8), channel (16)
             l2cap_cid = READ_BT_16(packet, 2);
+            l2cap_cid = little_endian_read_16(packet, 2);
             multiplexer = rfcomm_multiplexer_for_l2cap_cid(l2cap_cid);
             log_info("L2CAP_EVENT_CHANNEL_CLOSED cid 0x%0x, mult %p", l2cap_cid, multiplexer);
 …
                     event_pn.super.type = CH_EVT_RCVD_PN;
                     event_pn.priority = packet[payload_offset+4];
                     event_pn.max_frame_size = READ_BT_16(packet, payload_offset+6);
+                    event_pn.max_frame_size = little_endian_read_16(packet, payload_offset+6);
                     event_pn.credits_outgoing = packet[payload_offset+9];
                     log_info("Received UIH Parameter Negotiation Command for #%u, credits %u",
 …
                     event_pn.super.type = CH_EVT_RCVD_PN_RSP;
                     event_pn.priority = packet[payload_offset+4];
                     event_pn.max_frame_size = READ_BT_16(packet, payload_offset+6);
+                    event_pn.max_frame_size = little_endian_read_16(packet, payload_offset+6);
                     event_pn.credits_outgoing = packet[payload_offset+9];
                     log_info("Received UIH Parameter Negotiation Response max frame %u, credits %u",

asp3_tinet_ecnl_rx/trunk/btstack/src/sdp.c

-              r337
+              r374
     if (de_get_element_type(serviceRecordHandleAttribute) != DE_UINT) return 0;
     if (de_get_size_type(serviceRecordHandleAttribute) != DE_SIZE_32) return 0;
     return READ_NET_32(serviceRecordHandleAttribute, 1);
+    return big_endian_read_32(serviceRecordHandleAttribute, 1);
+}
 …
     event[1] = sizeof(event) - 2;
     event[2] = status;
     bt_store_32(event, 3, handle);
+    little_endian_store_32(event, 3, handle);
     hci_dump_packet(HCI_EVENT_PACKET, 0, event, sizeof(event));
     (*app_packet_handler)(connection, HCI_EVENT_PACKET, 0, (uint8_t *) event, sizeof(event));
 …
     // get request details
     uint16_t  transaction_id = READ_NET_16(packet, 1);
     // not used yet - uint16_t  param_len = READ_NET_16(packet, 3);
+    uint16_t  transaction_id = big_endian_read_16(packet, 1);
+    // not used yet - uint16_t  param_len = big_endian_read_16(packet, 3);
     uint8_t * serviceSearchPattern = &packet[5];
     uint16_t  serviceSearchPatternLen = de_get_len(serviceSearchPattern);
     uint16_t  maximumServiceRecordCount = READ_NET_16(packet, 5 + serviceSearchPatternLen);
+    uint16_t  maximumServiceRecordCount = big_endian_read_16(packet, 5 + serviceSearchPatternLen);
     uint8_t * continuationState = &packet[5+serviceSearchPatternLen+2];
 …
     continuation_index = 0;
     if (continuationState[0] == 2){
         continuation_index = READ_NET_16(continuationState, 1);
+        continuation_index = big_endian_read_16(continuationState, 1);
+    }
 …
     // get request details
     uint16_t  transaction_id = READ_NET_16(packet, 1);
     // not used yet - uint16_t  param_len = READ_NET_16(packet, 3);
     uint32_t  serviceRecordHandle = READ_NET_32(packet, 5);
     uint16_t  maximumAttributeByteCount = READ_NET_16(packet, 9);
+    uint16_t  transaction_id = big_endian_read_16(packet, 1);
+    // not used yet - uint16_t  param_len = big_endian_read_16(packet, 3);
+    uint32_t  serviceRecordHandle = big_endian_read_32(packet, 5);
+    uint16_t  maximumAttributeByteCount = big_endian_read_16(packet, 9);
     uint8_t * attributeIDList = &packet[11];
     uint16_t  attributeIDListLen = de_get_len(attributeIDList);
 …
     continuation_offset = 0;
     if (continuationState[0] == 2){
         continuation_offset = READ_NET_16(continuationState, 1);
+        continuation_offset = big_endian_read_16(continuationState, 1);
+    }
 …
     // get request details
     uint16_t  transaction_id = READ_NET_16(packet, 1);
     // not used yet - uint16_t  param_len = READ_NET_16(packet, 3);
+    uint16_t  transaction_id = big_endian_read_16(packet, 1);
+    // not used yet - uint16_t  param_len = big_endian_read_16(packet, 3);
     uint8_t * serviceSearchPattern = &packet[5];
     uint16_t  serviceSearchPatternLen = de_get_len(serviceSearchPattern);
     uint16_t  maximumAttributeByteCount = READ_NET_16(packet, 5 + serviceSearchPatternLen);
+    uint16_t  maximumAttributeByteCount = big_endian_read_16(packet, 5 + serviceSearchPatternLen);
     uint8_t * attributeIDList = &packet[5+serviceSearchPatternLen+2];
     uint16_t  attributeIDListLen = de_get_len(attributeIDList);
 …
     continuation_offset = 0;
     if (continuationState[0] == 4){
         continuation_service_index = READ_NET_16(continuationState, 1);
         continuation_offset = READ_NET_16(continuationState, 3);
+        continuation_service_index = big_endian_read_16(continuationState, 1);
+        continuation_offset = big_endian_read_16(continuationState, 3);
+    }
 …
         case L2CAP_DATA_PACKET:
             pdu_id = (SDP_PDU_ID_t) packet[0];
             transaction_id = READ_NET_16(packet, 1);
             // param_len = READ_NET_16(packet, 3);
+            transaction_id = big_endian_read_16(packet, 1);
+            // param_len = big_endian_read_16(packet, 3);
             remote_mtu = l2cap_get_remote_mtu_for_local_cid(channel);
             // account for our buffer

asp3_tinet_ecnl_rx/trunk/btstack/src/sdp_client.c

-              r337
+              r374
 static void parse_service_search_attribute_response(uint8_t* packet){
     uint16_t offset = 3;
     uint16_t parameterLength = READ_NET_16(packet,offset);
+    uint16_t parameterLength = big_endian_read_16(packet,offset);
     uint16_t attributeListByteCount;
     offset+=2;
     // AttributeListByteCount <= mtu
     attributeListByteCount = READ_NET_16(packet,offset);
+    attributeListByteCount = big_endian_read_16(packet,offset);
     offset+=2;
 …
     // uint16_t handle;
     if (packet_type == L2CAP_DATA_PACKET){
         uint16_t responseTransactionID = READ_NET_16(packet,1);
+        uint16_t responseTransactionID = big_endian_read_16(packet,1);
         if ( responseTransactionID != transactionID){
             log_error("Missmatching transaction ID, expected %u, found %u.", transactionID, responseTransactionID);
 …
+            }
             sdp_cid = channel;
             mtu = READ_BT_16(packet, 17);
             // handle = READ_BT_16(packet, 9);
+            mtu = little_endian_read_16(packet, 17);
+            // handle = little_endian_read_16(packet, 9);
             log_info("SDP Client Connected, cid %x, mtu %u.", sdp_cid, mtu);
 …
         case L2CAP_EVENT_CHANNEL_CLOSED: {
             uint8_t status;
             if (sdp_cid != READ_BT_16(packet, 2)) {
                 // log_info("Received L2CAP_EVENT_CHANNEL_CLOSED for cid %x, current cid %x\n",  READ_BT_16(packet, 2),sdp_cid);
+            if (sdp_cid != little_endian_read_16(packet, 2)) {
+                // log_info("Received L2CAP_EVENT_CHANNEL_CLOSED for cid %x, current cid %x\n",  little_endian_read_16(packet, 2),sdp_cid);
                 break;
+            }
 …
 static void parse_service_search_response(uint8_t* packet){
     uint16_t offset = 3;
     uint16_t parameterLength = READ_NET_16(packet,offset);
+    uint16_t parameterLength = big_endian_read_16(packet,offset);
     uint16_t totalServiceRecordCount;
     uint16_t currentServiceRecordCount;
     offset+=2;
     totalServiceRecordCount = READ_NET_16(packet,offset);
     offset+=2;
     currentServiceRecordCount = READ_NET_16(packet,offset);
+    totalServiceRecordCount = big_endian_read_16(packet,offset);
+    offset+=2;
+    currentServiceRecordCount = big_endian_read_16(packet,offset);
     offset+=2;
     if (currentServiceRecordCount > totalServiceRecordCount){
 …
 static void parse_service_attribute_response(uint8_t* packet){
     uint16_t offset = 3;
     uint16_t parameterLength = READ_NET_16(packet,offset);
+    uint16_t parameterLength = big_endian_read_16(packet,offset);
         uint16_t attributeListByteCount;
     offset+=2;
     // AttributeListByteCount <= mtu
     attributeListByteCount = READ_NET_16(packet,offset);
+    attributeListByteCount = big_endian_read_16(packet,offset);
     offset+=2;

asp3_tinet_ecnl_rx/trunk/btstack/src/sdp_parser.c

-              r337
+              r374
+            {
             sdp_query_attribute_value_event_t attribute_value_event = {
                 SDP_QUERY_ATTRIBUTE_VALUE,
+                SDP_EVENT_QUERY_ATTRIBUTE_VALUE,
                 record_counter,
                 attribute_id,
 …
+            {
             sdp_query_attribute_value_event_t attribute_value_event = {
                 SDP_QUERY_ATTRIBUTE_VALUE,
+                SDP_EVENT_QUERY_ATTRIBUTE_VALUE,
                 record_counter,
                 attribute_id,
 …
     int i;
     for (i=0;i<record_handle_count;i++){
         record_handle = READ_NET_32(data, i*4);
+        record_handle = big_endian_read_32(data, i*4);
         record_counter++;
+                {
 …
 void sdp_parser_handle_done(uint8_t status){
     sdp_query_complete_event_t complete_event = {
         SDP_QUERY_COMPLETE,
+        SDP_EVENT_QUERY_COMPLETE,
         status
     };

asp3_tinet_ecnl_rx/trunk/btstack/src/sdp_query_rfcomm.c

-              r337
+              r374
     sdp_query_attribute_value_event_t * ve;
     switch (event->type){
         case SDP_QUERY_ATTRIBUTE_VALUE:
+        case SDP_EVENT_QUERY_ATTRIBUTE_VALUE:
             ve = (sdp_query_attribute_value_event_t*) event;
            // log_info("handle_sdp_parser_event [ AID, ALen, DOff, Data] : [%x, %u, %u] BYTE %02x",
 …
             switch (ve->attribute_id){
                 case SDP_ProtocolDescriptorList:
+                case BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST:
                     // find rfcomm channel
                     handleProtocolDescriptorListData(ve->attribute_length, ve->data_offset, ve->data);
 …
+            }
             break;
         case SDP_QUERY_COMPLETE:
+        case SDP_EVENT_QUERY_COMPLETE:
             (*sdp_app_callback)(event, sdp_app_context);
             break;

asp3_tinet_ecnl_rx/trunk/btstack/src/sdp_util.c

-              r337
+              r374
             break;
         case DE_SIZE_VAR_16:
             result = READ_NET_16(header,1);
+            result = big_endian_read_16(header,1);
             break;
         case DE_SIZE_VAR_32:
             result = READ_NET_32(header,1);
+            result = big_endian_read_32(header,1);
             break;
         default:
 …
 int de_element_get_uint16(uint8_t * element, uint16_t * value){
     if (de_get_size_type(element) != DE_SIZE_16) return 0;
     *value = READ_NET_16(element, de_get_header_size(element));
+    *value = big_endian_read_16(element, de_get_header_size(element));
     return 1;
+}
 …
     switch (uuidSize){
         case DE_SIZE_16:
             shortUUID = READ_NET_16(element, 1);
+            shortUUID = big_endian_read_16(element, 1);
             break;
         case DE_SIZE_32:
             shortUUID = READ_NET_32(element, 1);
+            shortUUID = big_endian_read_32(element, 1);
             break;
         case DE_SIZE_128:
 …
     hasBlueoothBaseUuid = sdp_has_blueooth_base_uuid(uuid128);
     if (!hasBlueoothBaseUuid) return 0;
     return READ_NET_32(uuid128, 0);
+    return big_endian_read_32(uuid128, 0);
+}
 …
 void de_pop_sequence(uint8_t * parent, uint8_t * child){
     int child_len = de_get_len(child);
     int data_size_parent = READ_NET_16(parent,1);
+    int data_size_parent = big_endian_read_16(parent,1);
     net_store_16(parent, 1, data_size_parent + child_len);
+}
 …
 /* adds a single number value and 16+32 bit UUID to the sequence */
 void de_add_number(uint8_t *seq, de_type_t type, de_size_t size, uint32_t value){
     int data_size   = READ_NET_16(seq,1);
+    int data_size   = big_endian_read_16(seq,1);
     int element_size = 1;   // e.g. for DE_TYPE_NIL
     de_store_descriptor(seq+3+data_size, type, size);
 …
 /* add a single block of data, e.g. as DE_STRING, DE_URL */
 void de_add_data( uint8_t *seq, de_type_t type, uint16_t size, uint8_t *data){
     int data_size   = READ_NET_16(seq,1);
+    int data_size   = big_endian_read_16(seq,1);
     if (size > 0xff) {
         // use 16-bit lengh information (3 byte header)
 …
 void de_add_uuid128(uint8_t * seq, uint8_t * uuid){
     int data_size   = READ_NET_16(seq,1);
+    int data_size   = big_endian_read_16(seq,1);
     de_store_descriptor(seq+3+data_size, DE_UUID, DE_SIZE_128);
     memcpy( seq + 4 + data_size, uuid, 16);
 …
         uint8_t done;
         if (idType != DE_UINT || idSize != DE_SIZE_16) break; // wrong type
         attribute_id = READ_NET_16(element, pos + 1);
+        attribute_id = big_endian_read_16(element, pos + 1);
         pos += 3;
         if (pos >= end_pos) break; // array out of bounds
 …
     switch (size) {
         case DE_SIZE_16:
             if (READ_NET_16(element, 1) == context->attributeID) {
+            if (big_endian_read_16(element, 1) == context->attributeID) {
                 context->result = 1;
                 return 1;
 …
             break;
         case DE_SIZE_32:
             if (READ_NET_16(element, 1) <= context->attributeID
             &&  context->attributeID <= READ_NET_16(element, 3)) {
+            if (big_endian_read_16(element, 1) <= context->attributeID
+            &&  context->attributeID <= big_endian_read_16(element, 3)) {
                 context->result = 1;
                 return 1;
 …
     if (sdp_attribute_list_constains_id(context->attributeIDList, attributeID)) {
         // DES_HEADER(3) + DES_DATA + (UINT16(3) + attribute)
         uint16_t data_size = READ_NET_16(context->buffer, 1);
+        uint16_t data_size = big_endian_read_16(context->buffer, 1);
         int attribute_len = de_get_len(attributeValue);
         if (3 + data_size + (3 + attribute_len) <= context->maxBytes) {
 …
                 break;
             case DE_SIZE_VAR_16:
                 len = READ_NET_16(element, 1);
+                len = big_endian_read_16(element, 1);
                 break;
             default:
 …
                 break;
             case DE_SIZE_16:
                                 value = READ_NET_16(element,pos);
+                                value = big_endian_read_16(element,pos);
                 break;
             case DE_SIZE_32:
                                 value = READ_NET_32(element,pos);
+                                value = big_endian_read_32(element,pos);
                 break;
             default:
 …
         // 0x0001 "Service Class ID List"
         de_add_number(service,  DE_UINT, DE_SIZE_16, SDP_ServiceClassIDList);
+        de_add_number(service,  DE_UINT, DE_SIZE_16, BLUETOOTH_ATTRIBUTE_SERVICE_CLASS_ID_LIST);
         attribute = de_push_sequence(service);
+        {
 …
         // 0x0004 "Protocol Descriptor List"
         de_add_number(service,  DE_UINT, DE_SIZE_16, SDP_ProtocolDescriptorList);
+        de_add_number(service,  DE_UINT, DE_SIZE_16, BLUETOOTH_ATTRIBUTE_PROTOCOL_DESCRIPTOR_LIST);
         attribute = de_push_sequence(service);
+        {

asp3_tinet_ecnl_rx/trunk/btstack/src/utils.c

-              r337
+              r374
 #include "debug.h"
 void bt_store_16(uint8_t *buffer, uint16_t pos, uint16_t value){
+void little_endian_store_16(uint8_t *buffer, uint16_t pos, uint16_t value){
     buffer[pos++] = value;
     buffer[pos++] = value >> 8;
+}
 void bt_store_32(uint8_t *buffer, uint16_t pos, uint32_t value){
+void little_endian_store_32(uint8_t *buffer, uint16_t pos, uint32_t value){
     buffer[pos++] = value;
     buffer[pos++] = value >> 8;
 …
+}
 void bt_flip_addr(bd_addr_t dest, bd_addr_t src){
+void reverse_bd_addr(bd_addr_t src, bd_addr_t dest){
     dest[0] = src[5];
     dest[1] = src[4];

asp3_tinet_ecnl_rx/trunk/curl-7.57.0/lib/security.c

r337	r374
8	8	* below.
9	9	*
10		* Copyright (c) 1998, 1999, 2017 Kungliga Tekniska H旦gskolan
	10	* Copyright (c) 1998, 1999, 2017 Kungliga Tekniska Hogskolan
11	11	* (Royal Institute of Technology, Stockholm, Sweden).
12	12	*

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/include/bits/alltypes.h

-              r364
+              r374
 #define open musl_open
 #define perror musl_perror
+#define printf musl_printf
 #define read musl_read
 #define realloc musl_realloc
 …
 #define tzset musl_tzset
 #define unlink musl_unlink
+#define strncmp musl_strncmp
+#define strtol musl_strtol
+#define strchr musl_strchr
 #endif
 #ifdef _MSC_VER

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/process/vfork.c

-              r337
+              r374
+}
+#ifndef __c2__
 weak_alias(__vfork, vfork);
+#else
+pid_t vfork(void)
+{
+        return __vfork();
+}
+#endif

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/signal/sigaction.c

-              r337
+              r374
+}
+#ifndef __c2__
 weak_alias(__sigaction, sigaction);
+#else
+int sigaction(int sig, const struct sigaction *restrict sa, struct sigaction *restrict old)
+{
+        return __sigaction(sig, sa, old);
+}
+#endif

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/stdlib/strtol.c

-              r364
+              r374
+}
-weak_alias(strtol, __strtol_internal);
 #if defined(_MSC_VER) || defined(__c2__)
+weak_alias(musl_strtol, __strtol_internal);
 weak_alias(musl_strtoul, __strtoul_internal);
 #else
+weak_alias(strtol, __strtol_internal);
 weak_alias(strtoul, __strtoul_internal);
 #endif

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/string/memrchr.c

-              r337
+              r374
+}
+#ifndef __c2__
 weak_alias(__memrchr, memrchr);
+#else
+void *memrchr(const void *m, int c, size_t n)
+{
+        return __memrchr(m, c, n);
+}
+#endif

asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/string/strchrnul.c

-              r337
+              r374
+}
+#ifndef __c2__
 weak_alias(__strchrnul, strchrnul);
+#else
+char *strchrnul(const char *s, int c)
+{
+        return __strchrnul(s, c);
+}
+#endif

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/ccsbcs.c

-              r337
+              r374
 #if _CODE_PAGE == 437
+#if FF_CODE_PAGE == 437
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 720
+#elif FF_CODE_PAGE == 720
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 737
+#elif FF_CODE_PAGE == 737
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 771
+#elif FF_CODE_PAGE == 771
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 775
+#elif FF_CODE_PAGE == 775
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 850
+#elif FF_CODE_PAGE == 850
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 852
+#elif FF_CODE_PAGE == 852
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 855
+#elif FF_CODE_PAGE == 855
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 857
+#elif FF_CODE_PAGE == 857
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 860
+#elif FF_CODE_PAGE == 860
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 861
+#elif FF_CODE_PAGE == 861
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 862
+#elif FF_CODE_PAGE == 862
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 863
+#elif FF_CODE_PAGE == 863
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 864
+#elif FF_CODE_PAGE == 864
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 865
+#elif FF_CODE_PAGE == 865
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 866
+#elif FF_CODE_PAGE == 866
 #define _TBLDEF 1
 static
 …
 };
 #elif _CODE_PAGE == 869
+#elif FF_CODE_PAGE == 869
 #define _TBLDEF 1
 static
 …
 #if _CODE_PAGE != 65001 && (!_TBLDEF || !_USE_LFN)
+#if FF_CODE_PAGE != 65001 && (!_TBLDEF || !FF_USE_LFN)
 #error This file is not needed at current configuration. Remove from the project.
 #endif
 …
 #if _CODE_PAGE != 65001
+#if FF_CODE_PAGE != 65001
 WCHAR ff_convert (      /* Converted character, Returns zero on error */
         WCHAR   chr,    /* Character code to be converted */

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/diskio.c

r337	r374
34	34	int get_status(volatile RD_STAT *stat) {
35	35	stat->sz_sector = SS_RAMDISK;
36		if(stat->sz_sector < ~~_MIN_SS \|\| stat->sz_sector >~~ _MAX_SS) return 0;
	36	if(stat->sz_sector < FF_MIN_SS \|\| stat->sz_sector > FF_MAX_SS) return 0;
37	37	stat->n_sectors = SZ_RAMDISK * 1024 / SS_RAMDISK;
38	38	stat->status = 0;

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/diskio.h

-              r337
+              r374
 /* Generic command (Used by FatFs) */
 #define CTRL_SYNC                       0       /* Complete pending write process (needed at _FS_READONLY == 0) */
 #define GET_SECTOR_COUNT        1       /* Get media size (needed at _USE_MKFS == 1) */
 #define GET_SECTOR_SIZE         2       /* Get sector size (needed at _MAX_SS != _MIN_SS) */
 #define GET_BLOCK_SIZE          3       /* Get erase block size (needed at _USE_MKFS == 1) */
 #define CTRL_TRIM                       4       /* Inform device that the data on the block of sectors is no longer used (needed at _USE_TRIM == 1) */
+#define CTRL_SYNC                       0       /* Complete pending write process (needed at FF_FS_READONLY == 0) */
+#define GET_SECTOR_COUNT        1       /* Get media size (needed at FF_USE_MKFS == 1) */
+#define GET_SECTOR_SIZE         2       /* Get sector size (needed at FF_MAX_SS != FF_MIN_SS) */
+#define GET_BLOCK_SIZE          3       /* Get erase block size (needed at FF_USE_MKFS == 1) */
+#define CTRL_TRIM                       4       /* Inform device that the data on the block of sectors is no longer used (needed at FF_USE_TRIM == 1) */
 /* Generic command (Not used by FatFs) */

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/ff.c

-              r369
+              r374
 #include "ff.h"                 /* Declarations of FatFs API */
 #include "diskio.h"             /* Declarations of disk I/O functions */
 #include "util/ntstdio.h"
+#include <stdio.h>
 /*--------------------------------------------------------------------------
 …
 /* Reentrancy related */
 #if _FS_REENTRANT
 #if _USE_LFN == 1
+#if FF_FS_REENTRANT
+#if FF_USE_LFN == 1
 #error Static LFN work area cannot be used at thread-safe configuration
 #endif
 …
 /* Definitions of sector size */
 #if (_MAX_SS < _MIN_SS) || (_MAX_SS != 512 && _MAX_SS != 1024 && _MAX_SS != 2048 && _MAX_SS != 4096) || (_MIN_SS != 512 && _MIN_SS != 1024 && _MIN_SS != 2048 && _MIN_SS != 4096)
+#if (FF_MAX_SS < FF_MIN_SS) || (FF_MAX_SS != 512 && FF_MAX_SS != 1024 && FF_MAX_SS != 2048 && FF_MAX_SS != 4096) || (FF_MIN_SS != 512 && FF_MIN_SS != 1024 && FF_MIN_SS != 2048 && FF_MIN_SS != 4096)
 #error Wrong sector size configuration
 #endif
 #if _MAX_SS == _MIN_SS
 #define SS(fs)  ((UINT)_MAX_SS) /* Fixed sector size */
+#if FF_MAX_SS == FF_MIN_SS
+#define SS(fs)  ((UINT)FF_MAX_SS)       /* Fixed sector size */
 #else
 #define SS(fs)  ((fs)->ssize)   /* Variable sector size */
 …
 /* Timestamp feature */
 #if _FS_NORTC == 1
 #if _NORTC_YEAR < 1980 || _NORTC_YEAR > 2107 || _NORTC_MON < 1 || _NORTC_MON > 12 || _NORTC_MDAY < 1 || _NORTC_MDAY > 31
 #error Invalid _FS_NORTC settings
 #endif
 #define GET_FATTIME()   ((DWORD)(_NORTC_YEAR - 1980) << 25 | (DWORD)_NORTC_MON << 21 | (DWORD)_NORTC_MDAY << 16)
+#if FF_FS_NORTC == 1
+#if FF_NORTC_YEAR < 1980 || FF_NORTC_YEAR > 2107 || FF_NORTC_MON < 1 || FF_NORTC_MON > 12 || FF_NORTC_MDAY < 1 || FF_NORTC_MDAY > 31
+#error Invalid FF_FS_NORTC settings
+#endif
+#define GET_FATTIME()   ((DWORD)(FF_NORTC_YEAR - 1980) << 25 | (DWORD)FF_NORTC_MON << 21 | (DWORD)FF_NORTC_MDAY << 16)
 #else
 #define GET_FATTIME()   get_fattime()
 …
 /* File access control feature */
 #if _FS_LOCK
 #if _FS_READONLY
 #error _FS_LOCK must be 0 at read-only configuration
+#if FF_FS_LOCK != 0
+#if FF_FS_READONLY
+#error FF_FS_LOCK must be 0 at read-only configuration
 #endif
 typedef struct {
 …
 /* DBCS code ranges and SBCS upper conversion tables */
 #if _CODE_PAGE == 932   /* Japanese Shift-JIS */
+#if FF_CODE_PAGE == 932 /* Japanese Shift-JIS */
 #define _DF1S   0x81    /* DBC 1st byte range 1 start */
 #define _DF1E   0x9F    /* DBC 1st byte range 1 end */
 …
 #define _DS2E   0xFC    /* DBC 2nd byte range 2 end */
 #elif _CODE_PAGE == 936 /* Simplified Chinese GBK */
+#elif FF_CODE_PAGE == 936       /* Simplified Chinese GBK */
 #define _DF1S   0x81
 #define _DF1E   0xFE
 …
 #define _DS2E   0xFE
 #elif _CODE_PAGE == 949 /* Korean */
+#elif FF_CODE_PAGE == 949       /* Korean */
 #define _DF1S   0x81
 #define _DF1E   0xFE
 …
 #define _DS3E   0xFE
 #elif _CODE_PAGE == 950 /* Traditional Chinese Big5 */
+#elif FF_CODE_PAGE == 950       /* Traditional Chinese Big5 */
 #define _DF1S   0x81
 #define _DF1E   0xFE
 …
 #define _DS2E   0xFE
 #elif _CODE_PAGE == 437 /* U.S. */
+#elif FF_CODE_PAGE == 437       /* U.S. */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x45,0x41,0x8E,0x41,0x8F,0x80,0x45,0x45,0x45,0x49,0x49,0x49,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 720 /* Arabic */
+#elif FF_CODE_PAGE == 720       /* Arabic */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 737 /* Greek */
+#elif FF_CODE_PAGE == 737       /* Greek */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 771 /* KBL */
+#elif FF_CODE_PAGE == 771       /* KBL */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF0,0xF2,0xF2,0xF4,0xF4,0xF6,0xF6,0xF8,0xF8,0xFA,0xFA,0xFC,0xFC,0xFE,0xFF}
 #elif _CODE_PAGE == 775 /* Baltic */
+#elif FF_CODE_PAGE == 775       /* Baltic */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x91,0xA0,0x8E,0x95,0x8F,0x80,0xAD,0xED,0x8A,0x8A,0xA1,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 850 /* Latin 1 */
+#elif FF_CODE_PAGE == 850       /* Latin 1 */
 #define _DF1S   0
 #define _EXCVT {0x43,0x55,0x45,0x41,0x41,0x41,0x41,0x43,0x45,0x45,0x45,0x49,0x49,0x49,0x41,0x41, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 852 /* Latin 2 */
+#elif FF_CODE_PAGE == 852       /* Latin 2 */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xDE,0x8F,0x80,0x9D,0xD3,0x8A,0x8A,0xD7,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xEB,0xFC,0xFC,0xFE,0xFF}
 #elif _CODE_PAGE == 855 /* Cyrillic */
+#elif FF_CODE_PAGE == 855       /* Cyrillic */
 #define _DF1S   0
 #define _EXCVT {0x81,0x81,0x83,0x83,0x85,0x85,0x87,0x87,0x89,0x89,0x8B,0x8B,0x8D,0x8D,0x8F,0x8F, \
 …
 xF0,0xF2,0xF2,0xF4,0xF4,0xF6,0xF6,0xF8,0xF8,0xFA,0xFA,0xFC,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 857 /* Turkish */
+#elif FF_CODE_PAGE == 857       /* Turkish */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xB7,0x8F,0x80,0xD2,0xD3,0xD4,0xD8,0xD7,0x49,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 860 /* Portuguese */
+#elif FF_CODE_PAGE == 860       /* Portuguese */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x90,0x8F,0x8E,0x91,0x86,0x80,0x89,0x89,0x92,0x8B,0x8C,0x98,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 861 /* Icelandic */
+#elif FF_CODE_PAGE == 861       /* Icelandic */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x90,0x41,0x8E,0x41,0x8F,0x80,0x45,0x45,0x45,0x8B,0x8B,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 862 /* Hebrew */
+#elif FF_CODE_PAGE == 862       /* Hebrew */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 863 /* Canadian-French */
+#elif FF_CODE_PAGE == 863       /* Canadian-French */
 #define _DF1S   0
 #define _EXCVT {0x43,0x55,0x45,0x41,0x41,0x41,0x86,0x43,0x45,0x45,0x45,0x49,0x49,0x8D,0x41,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 864 /* Arabic */
+#elif FF_CODE_PAGE == 864       /* Arabic */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x45,0x41,0x8E,0x41,0x8F,0x80,0x45,0x45,0x45,0x49,0x49,0x49,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 865 /* Nordic */
+#elif FF_CODE_PAGE == 865       /* Nordic */
 #define _DF1S   0
 #define _EXCVT {0x80,0x9A,0x90,0x41,0x8E,0x41,0x8F,0x80,0x45,0x45,0x45,0x49,0x49,0x49,0x8E,0x8F, \
 …
 xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 866 /* Russian */
+#elif FF_CODE_PAGE == 866       /* Russian */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF0,0xF2,0xF2,0xF4,0xF4,0xF6,0xF6,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
 #elif _CODE_PAGE == 869 /* Greek 2 */
+#elif FF_CODE_PAGE == 869       /* Greek 2 */
 #define _DF1S   0
 #define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F, \
 …
 xF0,0xF1,0xD1,0xD2,0xD3,0xF5,0xD4,0xF7,0xF8,0xF9,0xD5,0x96,0x95,0x98,0xFE,0xFF}
 #elif _CODE_PAGE == 1   /* ASCII (for only non-LFN cfg) */
 #if _USE_LFN
+#elif FF_CODE_PAGE == 1 /* ASCII (for only non-LFN cfg) */
+#if FF_USE_LFN
 #error Cannot use LFN feature without valid code page.
 #endif
 #define _DF1S   0
 #elif _CODE_PAGE == 65001 /* UTF-8 */
 #if _LFN_UNICODE
+#elif FF_CODE_PAGE == 65001 /* UTF-8 */
+#if FF_LFN_UNICODE
 #error Cannot use LFN_UNICODE feature without valid code page.
 #endif
 …
 */
 #if _VOLUMES < 1 || _VOLUMES > 9
 #error Wrong _VOLUMES setting
 #endif
 static FATFS *FatFs[_VOLUMES];  /* Pointer to the file system objects (logical drives) */
+#if FF_VOLUMES < 1 || FF_VOLUMES > 9
+#error Wrong FF_VOLUMES setting
+#endif
+static FATFS *FatFs[FF_VOLUMES];        /* Pointer to the file system objects (logical drives) */
 static WORD Fsid;                               /* File system mount ID */
 #if _FS_RPATH && _VOLUMES >= 2
+#if FF_FS_RPATH && FF_VOLUMES >= 2
 static BYTE CurrVol;                    /* Current drive */
 #endif
 #if _FS_LOCK
 static FILESEM Files[_FS_LOCK]; /* Open object lock semaphores */
 #endif
 #if _USE_LFN == 0                       /* Non LFN feature */
+#if FF_FS_LOCK != 0
+static FILESEM Files[FF_FS_LOCK];       /* Open object lock semaphores */
+#endif
+#if FF_USE_LFN == 0                     /* Non LFN feature */
 #define DEFINE_NAMEBUF          BYTE sfn[12]
 #define INIT_BUF(dobj)          (dobj).fn = sfn
 #define FREE_BUF()
 #else
 #if _MAX_LFN < 12 || _MAX_LFN > 255
 #error Wrong _MAX_LFN setting
 #endif
 #if _USE_LFN == 1                       /* LFN feature with static working buffer */
 static WCHAR LfnBuf[_MAX_LFN + 1];
+#if FF_MAX_LFN < 12 || FF_MAX_LFN > 255
+#error Wrong FF_MAX_LFN setting
+#endif
+#if FF_USE_LFN == 1                     /* LFN feature with static working buffer */
+static WCHAR LfnBuf[FF_MAX_LFN + 1];
 #define DEFINE_NAMEBUF          BYTE sfn[12]
 #define INIT_BUF(dobj)          { (dobj).fn = sfn; (dobj).lfn = LfnBuf; }
 #define FREE_BUF()
 #elif _USE_LFN == 2             /* LFN feature with dynamic working buffer on the stack */
 #define DEFINE_NAMEBUF          BYTE sfn[12]; WCHAR lbuf[_MAX_LFN + 1]
+#elif FF_USE_LFN == 2           /* LFN feature with dynamic working buffer on the stack */
+#define DEFINE_NAMEBUF          BYTE sfn[12]; WCHAR lbuf[FF_MAX_LFN + 1]
 #define INIT_BUF(dobj)          { (dobj).fn = sfn; (dobj).lfn = lbuf; }
 #define FREE_BUF()
 #elif _USE_LFN == 3             /* LFN feature with dynamic working buffer on the heap */
+#elif FF_USE_LFN == 3           /* LFN feature with dynamic working buffer on the heap */
 #define DEFINE_NAMEBUF          BYTE sfn[12]; WCHAR *lfn
 #define INIT_BUF(dobj)          { lfn = ff_memalloc((_MAX_LFN + 1) * 2); if (!lfn) LEAVE_FF((dobj).fs, FR_NOT_ENOUGH_CORE); (dobj).lfn = lfn; (dobj).fn = sfn; }
+#define INIT_BUF(dobj)          { lfn = ff_memalloc((FF_MAX_LFN + 1) * 2); if (!lfn) LEAVE_FF((dobj).fs, FR_NOT_ENOUGH_CORE); (dobj).lfn = lfn; (dobj).fn = sfn; }
 #define FREE_BUF()                      ff_memfree(lfn)
 #else
 #error Wrong _USE_LFN setting
+#error Wrong FF_USE_LFN setting
 #endif
 #endif
 …
         const BYTE *s = (const BYTE*)src;
 #if _WORD_ACCESS == 1
+#if FF_WORD_ACCESS == 1
         while (cnt >= sizeof (int)) {
                 *(int*)d = *(int*)s;
 …
 /* Request/Release grant to access the volume                            */
 /*-----------------------------------------------------------------------*/
 #if _FS_REENTRANT
+#if FF_FS_REENTRANT
 static
 int lock_fs (
 …
 /* File lock control functions                                           */
 /*-----------------------------------------------------------------------*/
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
 static
 FRESULT chk_lock (      /* Check if the file can be accessed */
         DIR* dp,                /* Directory object pointing the file to be checked */
+        FATFS_DIR* dp,          /* Directory object pointing the file to be checked */
         int acc                 /* Desired access type (0:Read, 1:Write, 2:Delete/Rename) */
+)
 …
         /* Search file semaphore table */
         for (i = be = 0; i < _FS_LOCK; i++) {
+        for (i = be = 0; i < FF_FS_LOCK; i++) {
                 if (Files[i].fs) {      /* Existing entry */
                         if (Files[i].fs == dp->fs &&            /* Check if the object matched with an open object */
 …
+                }
+        }
         if (i == _FS_LOCK)      /* The object is not opened */
+        if (i == FF_FS_LOCK)    /* The object is not opened */
                 return (be || acc == 2) ? FR_OK : FR_TOO_MANY_OPEN_FILES;       /* Is there a blank entry for new object? */
 …
         UINT i;
         for (i = 0; i < _FS_LOCK && Files[i].fs; i++) ;
         return (i == _FS_LOCK) ? 0 : 1;
+        for (i = 0; i < FF_FS_LOCK && Files[i].fs; i++) ;
+        return (i == FF_FS_LOCK) ? 0 : 1;
+}
 …
 static
 UINT inc_lock ( /* Increment object open counter and returns its index (0:Internal error) */
         DIR* dp,        /* Directory object pointing the file to register or increment */
+        FATFS_DIR* dp,  /* Directory object pointing the file to register or increment */
         int acc         /* Desired access (0:Read, 1:Write, 2:Delete/Rename) */
+)
 …
         for (i = 0; i < _FS_LOCK; i++) {        /* Find the object */
+        for (i = 0; i < FF_FS_LOCK; i++) {      /* Find the object */
                 if (Files[i].fs == dp->fs &&
                         Files[i].clu == dp->sclust &&
 …
+        }
         if (i == _FS_LOCK) {                            /* Not opened. Register it as new. */
                 for (i = 0; i < _FS_LOCK && Files[i].fs; i++) ;
                 if (i == _FS_LOCK) return 0;    /* No free entry to register (int err) */
+        if (i == FF_FS_LOCK) {                          /* Not opened. Register it as new. */
+                for (i = 0; i < FF_FS_LOCK && Files[i].fs; i++) ;
+                if (i == FF_FS_LOCK) return 0;  /* No free entry to register (int err) */
                 Files[i].fs = dp->fs;
                 Files[i].clu = dp->sclust;
 …
         if (--i < _FS_LOCK) {   /* Shift index number origin from 0 */
+        if (--i < FF_FS_LOCK) { /* Shift index number origin from 0 */
                 n = Files[i].ctr;
                 if (n == 0x100) n = 0;          /* If write mode open, delete the entry */
 …
         UINT i;
         for (i = 0; i < _FS_LOCK; i++) {
+        for (i = 0; i < FF_FS_LOCK; i++) {
                 if (Files[i].fs == fs) Files[i].fs = 0;
+        }
 …
 /* Move/Flush disk access window in the file system object               */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 FRESULT sync_window (   /* FR_OK:succeeded, !=0:error */
 …
         if (sector != fs->winsect) {    /* Window offset changed? */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                 res = sync_window(fs);          /* Write-back changes */
 #endif
 …
 /* Synchronize file system and strage device                             */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 FRESULT sync_fs (       /* FR_OK:succeeded, !=0:error */
 …
 /* Hidden API for hacks and disk tools */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 FRESULT put_fat (       /* FR_OK(0):succeeded, !=0:error */
         FATFS* fs,              /* File system object */
 …
         return res;
+}
 #endif /* !_FS_READONLY */
+#endif /* !FF_FS_READONLY */
 …
 /* FAT handling - Remove a cluster chain                                 */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 FRESULT remove_chain (  /* FR_OK(0):succeeded, !=0:error */
 …
         FRESULT res;
         DWORD nxt;
 #if _USE_TRIM
+#if FF_USE_TRIM
         DWORD scl = clst, ecl = clst, rt[2];
 #endif
 …
                                 fs->fsi_flag |= 1;
+                        }
 #if _USE_TRIM
+#if FF_USE_TRIM
                         if (ecl + 1 == nxt) {   /* Is next cluster contiguous? */
                                 ecl = nxt;
 …
 /* FAT handling - Stretch or Create a cluster chain                      */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 DWORD create_chain (    /* 0:No free cluster, 1:Internal error, 0xFFFFFFFF:Disk error, >=2:New cluster# */
 …
         return ncl;             /* Return new cluster number or error code */
+}
 #endif /* !_FS_READONLY */
+#endif /* !FF_FS_READONLY */
 …
 /*-----------------------------------------------------------------------*/
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
 static
 DWORD clmt_clust (      /* <2:Error, >=2:Cluster number */
 …
         return cl + *tbl;       /* Return the cluster number */
+}
 #endif  /* _USE_FASTSEEK */
+#endif  /* FF_USE_FASTSEEK */
 …
 static
 FRESULT dir_sdi (       /* FR_OK(0):succeeded, !=0:error */
         DIR* dp,                /* Pointer to directory object */
+        FATFS_DIR* dp,          /* Pointer to directory object */
         UINT idx                /* Index of directory table */
+)
 …
 static
 FRESULT dir_next (      /* FR_OK(0):succeeded, FR_NO_FILE:End of table, FR_DENIED:Could not stretch */
         DIR* dp,                /* Pointer to the directory object */
+        FATFS_DIR* dp,          /* Pointer to the directory object */
         int stretch             /* 0: Do not stretch table, 1: Stretch table if needed */
+)
 …
         DWORD clst;
         UINT i;
 #if !_FS_READONLY
+#if !FF_FS_READONLY
         UINT c;
 #endif
 …
                                 if (clst == 0xFFFFFFFF) return FR_DISK_ERR;
                                 if (clst >= dp->fs->n_fatent) {                                 /* If it reached end of dynamic table, */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                                         if (!stretch) return FR_NO_FILE;                        /* If do not stretch, report EOT */
                                         clst = create_chain(dp->fs, dp->clust);         /* Stretch cluster chain */
 …
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 FRESULT dir_alloc (     /* FR_OK(0):succeeded, !=0:error */
         DIR* dp,                /* Pointer to the directory object */
+        FATFS_DIR* dp,          /* Pointer to the directory object */
         UINT nent               /* Number of contiguous entries to allocate (1-21) */
+)
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 void st_clust (
 …
 /* LFN handling - Test/Pick/Fit an LFN segment from/to directory entry   */
 /*-----------------------------------------------------------------------*/
 #if _USE_LFN
+#if FF_USE_LFN
 static
 const BYTE LfnOfs[] = {1,3,5,7,9,14,16,18,20,22,24,28,30};      /* Offset of LFN characters in the directory entry */
 …
                 uc = LD_WORD(dir + LfnOfs[s]);          /* Pick an LFN character */
                 if (wc) {
                         if (i >= _MAX_LFN || ff_wtoupper(uc) != ff_wtoupper(lfnbuf[i++]))       /* Compare it */
+                        if (i >= FF_MAX_LFN || ff_wtoupper(uc) != ff_wtoupper(lfnbuf[i++]))     /* Compare it */
                                 return 0;                                       /* Not matched */
                         wc = uc;
 …
                 uc = LD_WORD(dir + LfnOfs[s]);          /* Pick an LFN character */
                 if (wc) {
                         if (i >= _MAX_LFN) return 0;    /* Buffer overflow? */
+                        if (i >= FF_MAX_LFN) return 0;  /* Buffer overflow? */
                         lfnbuf[i++] = wc = uc;                  /* Store it */
                 } else {
 …
         if (dir[LDIR_Ord] & LLEF) {                             /* Put terminator if it is the last LFN part */
                 if (i >= _MAX_LFN) return 0;            /* Buffer overflow? */
+                if (i >= FF_MAX_LFN) return 0;          /* Buffer overflow? */
                 lfnbuf[i] = 0;
+        }
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 void fit_lfn (
 …
 /* Create numbered name                                                  */
 /*-----------------------------------------------------------------------*/
 #if _USE_LFN
+#if FF_USE_LFN
 static
 void gen_numname (
 …
 /* Calculate checksum of an SFN entry                                    */
 /*-----------------------------------------------------------------------*/
 #if _USE_LFN
+#if FF_USE_LFN
 static
 BYTE sum_sfn (
 …
 static
 FRESULT dir_find (      /* FR_OK(0):succeeded, !=0:error */
         DIR* dp                 /* Pointer to the directory object linked to the file name */
+        FATFS_DIR* dp                   /* Pointer to the directory object linked to the file name */
+)
+{
         FRESULT res;
         BYTE c, *dir;
 #if _USE_LFN
+#if FF_USE_LFN
         BYTE a, ord, sum;
 #endif
 …
         if (res != FR_OK) return res;
 #if _USE_LFN
+#if FF_USE_LFN
         ord = sum = 0xFF; dp->lfn_idx = 0xFFFF; /* Reset LFN sequence */
 #endif
 …
                 c = dir[DIR_Name];
                 if (c == 0) { res = FR_NO_FILE; break; }        /* Reached to end of table */
 #if _USE_LFN    /* LFN configuration */
+#if FF_USE_LFN  /* LFN configuration */
                 a = dir[DIR_Attr] & AM_MASK;
                 if (c == DDEM || ((a & AM_VOL) && a != AM_LFN)) {       /* An entry without valid data */
 …
 /* Read an object from the directory                                     */
 /*-----------------------------------------------------------------------*/
 #if _FS_MINIMIZE <= 1 || _USE_LABEL || _FS_RPATH >= 2
+#if FF_FS_MINIMIZE <= 1 || FF_USE_LABEL || FF_FS_RPATH >= 2
 static
 FRESULT dir_read (
         DIR* dp,                /* Pointer to the directory object */
+        FATFS_DIR* dp,          /* Pointer to the directory object */
         int vol                 /* Filtered by 0:file/directory or 1:volume label */
+)
 …
         FRESULT res;
         BYTE a, c, *dir;
 #if _USE_LFN
+#if FF_USE_LFN
         BYTE ord = 0xFF, sum = 0xFF;
 #endif
 …
                 if (c == 0) { res = FR_NO_FILE; break; }        /* Reached to end of table */
                 a = dir[DIR_Attr] & AM_MASK;
 #if _USE_LFN    /* LFN configuration */
                 if (c == DDEM || (!_FS_RPATH && c == '.') || (int)((a & ~AM_ARC) == AM_VOL) != vol) {   /* An entry without valid data */
+#if FF_USE_LFN  /* LFN configuration */
+                if (c == DDEM || (!FF_FS_RPATH && c == '.') || (int)((a & ~AM_ARC) == AM_VOL) != vol) { /* An entry without valid data */
                         ord = 0xFF;
                 } else {
 …
+                }
 #else           /* Non LFN configuration */
                 if (c != DDEM && (_FS_RPATH || c != '.') && a != AM_LFN && (int)((a & ~AM_ARC) == AM_VOL) == vol)       /* Is it a valid entry? */
+                if (c != DDEM && (FF_FS_RPATH || c != '.') && a != AM_LFN && (int)((a & ~AM_ARC) == AM_VOL) == vol)     /* Is it a valid entry? */
                         break;
 #endif
 …
         return res;
+}
 #endif  /* _FS_MINIMIZE <= 1 || _USE_LABEL || _FS_RPATH >= 2 */
+#endif  /* FF_FS_MINIMIZE <= 1 || FF_USE_LABEL || FF_FS_RPATH >= 2 */
 …
 /* Register an object to the directory                                   */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 static
 FRESULT dir_register (  /* FR_OK:succeeded, FR_DENIED:no free entry or too many SFN collision, FR_DISK_ERR:disk error */
         DIR* dp                         /* Target directory with object name to be created */
+        FATFS_DIR* dp                           /* Target directory with object name to be created */
+)
+{
         FRESULT res;
 #if _USE_LFN    /* LFN configuration */
+#if FF_USE_LFN  /* LFN configuration */
         UINT n, nent;
         BYTE sn[12], *fn, sum;
 …
         mem_cpy(sn, fn, 12);
         if (_FS_RPATH && (sn[NSFLAG] & NS_DOT))         /* Cannot create dot entry */
+        if (FF_FS_RPATH && (sn[NSFLAG] & NS_DOT))               /* Cannot create dot entry */
                 return FR_INVALID_NAME;
 …
                         mem_set(dp->dir, 0, SZ_DIRE);   /* Clean the entry */
                         mem_cpy(dp->dir, dp->fn, 11);   /* Put SFN */
 #if _USE_LFN
+#if FF_USE_LFN
                         dp->dir[DIR_NTres] = dp->fn[NSFLAG] & (NS_BODY | NS_EXT);       /* Put NT flag */
 #endif
 …
         return res;
+}
 #endif /* !_FS_READONLY */
+#endif /* !FF_FS_READONLY */
 …
 /* Remove an object from the directory                                   */
 /*-----------------------------------------------------------------------*/
 #if !_FS_READONLY && !_FS_MINIMIZE
+#if !FF_FS_READONLY && !FF_FS_MINIMIZE
 static
 FRESULT dir_remove (    /* FR_OK:Succeeded, FR_DISK_ERR:A disk error */
         DIR* dp                         /* Directory object pointing the entry to be removed */
+        FATFS_DIR* dp                           /* Directory object pointing the entry to be removed */
+)
+{
         FRESULT res;
 #if _USE_LFN    /* LFN configuration */
+#if FF_USE_LFN  /* LFN configuration */
         UINT i;
 …
         return res;
+}
 #endif /* !_FS_READONLY */
+#endif /* !FF_FS_READONLY */
 …
 /* Get file information from directory entry                             */
 /*-----------------------------------------------------------------------*/
 #if _FS_MINIMIZE <= 1 || _FS_RPATH >= 2
+#if FF_FS_MINIMIZE <= 1 || FF_FS_RPATH >= 2
 static
 void get_fileinfo (             /* No return code */
         DIR* dp,                        /* Pointer to the directory object */
+        FATFS_DIR* dp,                  /* Pointer to the directory object */
         FILINFO* fno            /* Pointer to the file information to be filled */
+)
 …
         TCHAR *p, c;
         BYTE *dir;
 #if _USE_LFN
+#if FF_USE_LFN
         WCHAR w, *lfn;
 #endif
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
         unsigned char utf8_code[6];
         int code_size;
 …
                         if (c == RDDEM) c = (TCHAR)DDEM;        /* Restore replaced DDEM character */
                         if (i == 9) *p++ = '.';                         /* Insert a . if extension is exist */
 #if _USE_LFN
+#if FF_USE_LFN
                         if (IsUpper(c) && (dir[DIR_NTres] & (i >= 9 ? NS_EXT : NS_BODY)))
                                 c += 0x20;                      /* To lower */
 #if _LFN_UNICODE
+#if FF_LFN_UNICODE
                         if (IsDBCS1(c) && i != 8 && i != 11 && IsDBCS2(dir[i]))
                                 c = c << 8 | dir[i++];
 …
         *p = 0;         /* Terminate SFN string by a \0 */
 #if _USE_LFN
+#if FF_USE_LFN
         if (fno->lfname) {
                 i = 0; p = fno->lfname;
 …
                         lfn = dp->lfn;
                         while ((w = *lfn++) != 0) {             /* Get an LFN character */
 #if !_LFN_UNICODE
 #if _CODE_PAGE == 65001
+#if !FF_LFN_UNICODE
+#if FF_CODE_PAGE == 65001
                                 Utf16_to_Utf8(utf8_code, &code_size, w);
                                 for (int j = 0; j < code_size - 1; j++) {
 …
 #endif
+}
 #endif /* _FS_MINIMIZE <= 1 || _FS_RPATH >= 2 */
+#endif /* FF_FS_MINIMIZE <= 1 || FF_FS_RPATH >= 2 */
 …
 /* Pattern matching                                                      */
 /*-----------------------------------------------------------------------*/
 #if _USE_FIND && _FS_MINIMIZE <= 1
+#if FF_USE_FIND && FF_FS_MINIMIZE <= 1
 static
 WCHAR get_achar (               /* Get a character and advances ptr 1 or 2 */
 …
         WCHAR chr;
 #if !_LFN_UNICODE
 #if _CODE_PAGE == 65001
+#if !FF_LFN_UNICODE
+#if FF_CODE_PAGE == 65001
         int code_size;
         chr = Utf8_to_Utf16(*ptr, &code_size);
 …
         return 0;
+}
 #endif /* _USE_FIND && _FS_MINIMIZE <= 1 */
+#endif /* FF_USE_FIND && FF_FS_MINIMIZE <= 1 */
 …
 static
 FRESULT create_name (   /* FR_OK: successful, FR_INVALID_NAME: could not create */
         DIR* dp,                        /* Pointer to the directory object */
+        FATFS_DIR* dp,                  /* Pointer to the directory object */
         const TCHAR** path      /* Pointer to pointer to the segment in the path string */
+)
+{
 #if _USE_LFN    /* LFN configuration */
+#if FF_USE_LFN  /* LFN configuration */
         BYTE b, cf;
         WCHAR w, *lfn;
         UINT i, ni, si, di;
         const TCHAR *p;
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
         unsigned char utf8_code[6];
         int code_size;
 …
                 w = p[si++];                                    /* Get a character */
                 if (w < ' ' || w == '/' || w == '\\') break;    /* Break on end of segment */
                 if (di >= _MAX_LFN)                             /* Reject too long name */
+                if (di >= FF_MAX_LFN)                           /* Reject too long name */
                         return FR_INVALID_NAME;
 #if !_LFN_UNICODE
 #if _CODE_PAGE == 65001
+#if !FF_LFN_UNICODE
+#if FF_CODE_PAGE == 65001
                 w = Utf8_to_Utf16(&p[si - 1], &code_size);
                 si += code_size - 1;
 …
         *path = &p[si];                                         /* Return pointer to the next segment */
         cf = (w < ' ') ? NS_LAST : 0;           /* Set last segment flag if end of path */
 #if _FS_RPATH
+#if FF_FS_RPATH
         if ((di == 1 && lfn[di - 1] == '.') ||
                 (di == 2 && lfn[di - 1] == '.' && lfn[di - 2] == '.')) {        /* Is this segment a dot entry? */
 …
                         if (w) w = ExCvt[w - 0x80];     /* Convert extended character to upper (SBCS) */
 #else
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
                         Utf16_to_Utf8(utf8_code, &code_size, ff_wtoupper(w));
 #else
 …
                         cf |= NS_LFN;                           /* Force create LFN entry */
+                }
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
                 else
                         code_size = 1;
 #endif
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
                 if (code_size > 1) {            /* Is this DBC? (always false at SBCS cfg) */
                         if (i >= ni - 1) {
 …
         mem_set(sfn, ' ', 11);
         si = i = b = 0; ni = 8;
 #if _FS_RPATH
+#if FF_FS_RPATH
         if (p[si] == '.') { /* Is this a dot entry? */
                 for (;;) {
 …
 static
 FRESULT follow_path (   /* FR_OK(0): successful, !=0: error code */
         DIR* dp,                        /* Directory object to return last directory and found object */
+        FATFS_DIR* dp,                  /* Directory object to return last directory and found object */
         const TCHAR* path       /* Full-path string to find a file or directory */
+)
 …
 #if _FS_RPATH
+#if FF_FS_RPATH
         if (*path == '/' || *path == '\\') {    /* There is a heading separator */
                 path++; dp->sclust = 0;                         /* Strip it and start from the root directory */
 …
                         if (res != FR_OK) {                             /* Failed to find the object */
                                 if (res == FR_NO_FILE) {        /* Object is not found */
                                         if (_FS_RPATH && (ns & NS_DOT)) {       /* If dot entry is not exist, */
+                                        if (FF_FS_RPATH && (ns & NS_DOT)) {     /* If dot entry is not exist, */
                                                 dp->sclust = 0; dp->dir = 0;    /* it is the root directory and stay there */
                                                 if (!(ns & NS_LAST)) continue;  /* Continue to follow if not last segment */
 …
         UINT i;
         int vol = -1;
 #if _STR_VOLUME_ID              /* Find string drive id */
         static const char* const str[] = {_VOLUME_STRS};
+#if FF_STR_VOLUME_ID            /* Find string drive id */
+        static const char* const str[] = {FF_VOLUME_STRS};
         const char *sp;
         char c;
 …
         if (*path) {    /* If the pointer is not a null */
                 for (tt = *path; (UINT)*tt >= (_USE_LFN ? ' ' : '!') && *tt != ':'; tt++) ;     /* Find ':' in the path */
+                for (tt = *path; (UINT)*tt >= (FF_USE_LFN ? ' ' : '!') && *tt != ':'; tt++) ;   /* Find ':' in the path */
                 if (*tt == ':') {       /* If a ':' is exist in the path name */
                         tp = *path;
                         i = *tp++ - '0';
                         if (i < 10 && tp == tt) {       /* Is there a numeric drive id? */
                                 if (i < _VOLUMES) {     /* If a drive id is found, get the value and strip it */
+                                if (i < FF_VOLUMES) {   /* If a drive id is found, get the value and strip it */
                                         vol = (int)i;
                                         *path = ++tt;
+                                }
+                        }
 #if _STR_VOLUME_ID
+#if FF_STR_VOLUME_ID
                          else { /* No numeric drive number, find string drive id */
                                 i = 0; tt++;
 …
                                                 if (IsLower(tc)) tc -= 0x20;
                                         } while (c && (TCHAR)c == tc);
                                 } while ((c || tp != tt) && ++i < _VOLUMES);    /* Repeat for each id until pattern match */
                                 if (i < _VOLUMES) {     /* If a drive id is found, get the value and strip it */
+                                } while ((c || tp != tt) && ++i < FF_VOLUMES);  /* Repeat for each id until pattern match */
+                                if (i < FF_VOLUMES) {   /* If a drive id is found, get the value and strip it */
                                         vol = (int)i;
                                         *path = tt;
 …
                         return vol;
+                }
 #if _FS_RPATH && _VOLUMES >= 2
+#if FF_FS_RPATH && FF_VOLUMES >= 2
                 vol = CurrVol;  /* Current drive */
 #else
 …
                 stat = disk_status(fs->drv);
                 if (!(stat & STA_NOINIT)) {             /* and the physical drive is kept initialized */
                         if (!_FS_READONLY && wmode && (stat & STA_PROTECT))     /* Check write protection if needed */
+                        if (!FF_FS_READONLY && wmode && (stat & STA_PROTECT))   /* Check write protection if needed */
                                 return FR_WRITE_PROTECTED;
                         return FR_OK;                           /* The file system object is valid */
 …
         if (stat & STA_NOINIT)                          /* Check if the initialization succeeded */
                 return FR_NOT_READY;                    /* Failed to initialize due to no medium or hard error */
         if (!_FS_READONLY && wmode && (stat & STA_PROTECT))     /* Check disk write protection if needed */
+        if (!FF_FS_READONLY && wmode && (stat & STA_PROTECT))   /* Check disk write protection if needed */
                 return FR_WRITE_PROTECTED;
 #if _MAX_SS != _MIN_SS                                          /* Get sector size (multiple sector size cfg only) */
+#if FF_MAX_SS != FF_MIN_SS                                              /* Get sector size (multiple sector size cfg only) */
         if (disk_ioctl(fs->drv, GET_SECTOR_SIZE, &SS(fs)) != RES_OK
                 || SS(fs) < _MIN_SS || SS(fs) > _MAX_SS) return FR_DISK_ERR;
+                || SS(fs) < FF_MIN_SS || SS(fs) > FF_MAX_SS) return FR_DISK_ERR;
 #endif
         /* Find an FAT partition on the drive. Supports only generic partitioning, FDISK and SFD. */
 …
         /* Determine the FAT sub type */
         sysect = nrsv + fasize + fs->n_rootdir / (SS(fs) / SZ_DIRE);    /* RSV + FAT + DIR */
+        sysect = nrsv + fasize + fs->n_rootdir / (SS(fs) / SZ_DIRE);    /* RSV + FAT + FATFS_DIR */
         if (tsect < sysect) return FR_NO_FILESYSTEM;            /* (Invalid volume size) */
         nclst = (tsect - sysect) / fs->csize;                           /* Number of clusters */
 …
                 return FR_NO_FILESYSTEM;
 #if !_FS_READONLY
+#if !FF_FS_READONLY
         /* Initialize cluster allocation information */
         fs->last_clust = fs->free_clust = 0xFFFFFFFF;
 …
         /* Get fsinfo if available */
         fs->fsi_flag = 0x80;
 #if (_FS_NOFSINFO & 3) != 3
+#if (FF_FS_NOFSINFO & 3) != 3
         if (fmt == FS_FAT32                             /* Enable FSINFO only if FAT32 and BPB_FSInfo == 1 */
                 && LD_WORD(fs->win + BPB_FSInfo) == 1
 …
                         && LD_DWORD(fs->win + FSI_StrucSig) == 0x61417272)
+                {
 #if (_FS_NOFSINFO & 1) == 0
+#if (FF_FS_NOFSINFO & 1) == 0
                         fs->free_clust = LD_DWORD(fs->win + FSI_Free_Count);
 #endif
 #if (_FS_NOFSINFO & 2) == 0
+#if (FF_FS_NOFSINFO & 2) == 0
                         fs->last_clust = LD_DWORD(fs->win + FSI_Nxt_Free);
 #endif
 …
         fs->fs_type = fmt;      /* FAT sub-type */
         fs->id = ++Fsid;        /* File system mount ID */
 #if _FS_RPATH
+#if FF_FS_RPATH
         fs->cdir = 0;           /* Set current directory to root */
 #endif
 #if _FS_LOCK                    /* Clear file lock semaphores */
+#if FF_FS_LOCK != 0                     /* Clear file lock semaphores */
         clear_lock(fs);
 #endif
 …
 static
 FRESULT validate (      /* FR_OK(0): The object is valid, !=0: Invalid */
         void* obj               /* Pointer to the object FIL/DIR to check validity */
+)
+{
         FIL *fil = (FIL*)obj;   /* Assuming offset of .fs and .id in the FIL/DIR structure is identical */
+        void* obj               /* Pointer to the object FIL/FATFS_DIR to check validity */
+)
+{
+        FIL *fil = (FIL*)obj;   /* Assuming offset of .fs and .id in the FIL/FATFS_DIR structure is identical */
 …
         if (cfs) {
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                 clear_lock(cfs);
 #endif
 #if _FS_REENTRANT                                               /* Discard sync object of the current volume */
+#if FF_FS_REENTRANT                                             /* Discard sync object of the current volume */
                 if (!ff_del_syncobj(cfs->sobj)) return FR_INT_ERR;
 #endif
 …
         if (fs) {
                 fs->fs_type = 0;                                /* Clear new fs object */
 #if _FS_REENTRANT                                               /* Create sync object for the new volume */
+#if FF_FS_REENTRANT                                             /* Create sync object for the new volume */
                 if (!ff_cre_syncobj((BYTE)vol, &fs->sobj)) return FR_INT_ERR;
 #endif
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         BYTE *dir;
         DEFINE_NAMEBUF;
 #if !_FS_READONLY
+#if !FF_FS_READONLY
         DWORD dw, cl;
 #endif
 …
         /* Get logical drive number */
 #if !_FS_READONLY
         mode &= FA_READ | FA_WRITE | FA_CREATE_ALWAYS | FA_OPEN_ALWAYS | FA_CREATE_NEW;
+#if !FF_FS_READONLY
+        mode &= FA_READ | FA_WRITE | FA_CREATE_ALWAYS | FA_OPEN_ALWAYS | FA_CREATE_NEW | FA_OPEN_APPEND;
         res = find_volume(&dj.fs, &path, (BYTE)(mode & ~FA_READ));
 #else
 …
                 res = follow_path(&dj, path);   /* Follow the file path */
                 dir = dj.dir;
 #if !_FS_READONLY       /* R/W configuration */
+#if !FF_FS_READONLY     /* R/W configuration */
                 if (res == FR_OK) {
                         if (!dir)       /* Default directory itself */
                                 res = FR_INVALID_NAME;
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                         else
                                 res = chk_lock(&dj, (mode & ~FA_READ) ? 1 : 0);
 …
                         if (res != FR_OK) {                                     /* No file, create new */
                                 if (res == FR_NO_FILE)                  /* There is no file to open, create a new entry */
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                                         res = enq_lock() ? dir_register(&dj) : FR_TOO_MANY_OPEN_FILES;
 #else
 …
+                        }
                         else {                                                          /* Any object is already existing */
                                 if (dir[DIR_Attr] & (AM_RDO | AM_DIR)) {        /* Cannot overwrite it (R/O or DIR) */
+                                if (dir[DIR_Attr] & (AM_RDO | AM_DIR)) {        /* Cannot overwrite it (R/O or FATFS_DIR) */
                                         res = FR_DENIED;
                                 } else {
 …
                 if (res == FR_OK) {
                         if (mode & FA_CREATE_ALWAYS)            /* Set file change flag if created or overwritten */
                                 mode |= FA__WRITTEN;
+                                mode |= FA_MODIFIED;
                         fp->dir_sect = dj.fs->winsect;          /* Pointer to the directory entry */
                         fp->dir_ptr = dir;
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                         fp->lockid = inc_lock(&dj, (mode & ~FA_READ) ? 1 : 0);
                         if (!fp->lockid) res = FR_INT_ERR;
 …
                         fp->fptr = 0;                                           /* File pointer */
                         fp->dsect = 0;
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
                         fp->cltbl = 0;                                          /* Normal seek mode */
 #endif
 …
                                         clst = fp->sclust;                      /* Follow from the origin */
                                 } else {                                                /* Middle or end of the file */
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
                                         if (fp->cltbl)
                                                 clst = clmt_clust(fp, fp->fptr);        /* Get cluster# from the CLMT */
 …
                                 if (disk_read(fp->fs->drv, rbuff, sect, cc) != RES_OK)
                                         ABORT(fp->fs, FR_DISK_ERR);
 #if !_FS_READONLY && _FS_MINIMIZE <= 2                  /* Replace one of the read sectors with cached data if it contains a dirty sector */
 #if _FS_TINY
+#if !FF_FS_READONLY && FF_FS_MINIMIZE <= 2                      /* Replace one of the read sectors with cached data if it contains a dirty sector */
+#if FF_FS_TINY
                                 if (fp->fs->wflag && fp->fs->winsect - sect < cc)
                                         mem_cpy(rbuff + ((fp->fs->winsect - sect) * SS(fp->fs)), fp->fs->win, SS(fp->fs));
 #else
                                 if ((fp->flag & FA__DIRTY) && fp->dsect - sect < cc)
+                                if ((fp->flag & FA_DIRTY) && fp->dsect - sect < cc)
                                         mem_cpy(rbuff + ((fp->dsect - sect) * SS(fp->fs)), fp->buf, SS(fp->fs));
 #endif
 …
                                 continue;
+                        }
 #if !_FS_TINY
+#if !FF_FS_TINY
                         if (fp->dsect != sect) {                        /* Load data sector if not in cache */
 #if !_FS_READONLY
                                 if (fp->flag & FA__DIRTY) {             /* Write-back dirty sector cache */
+#if !FF_FS_READONLY
+                                if (fp->flag & FA_DIRTY) {              /* Write-back dirty sector cache */
                                         if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                                 ABORT(fp->fs, FR_DISK_ERR);
                                         fp->flag &= ~FA__DIRTY;
+                                        fp->flag &= ~FA_DIRTY;
+                                }
 #endif
 …
                 rcnt = SS(fp->fs) - ((UINT)fp->fptr % SS(fp->fs));      /* Get partial sector data from sector buffer */
                 if (rcnt > btr) rcnt = btr;
 #if _FS_TINY
+#if FF_FS_TINY
                 if (move_window(fp->fs, fp->dsect) != FR_OK)            /* Move sector window */
                         ABORT(fp->fs, FR_DISK_ERR);
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 /*-----------------------------------------------------------------------*/
 /* Write File                                                            */
 …
                                                 clst = create_chain(fp->fs, 0); /* Create a new cluster chain */
                                 } else {                                        /* Middle or end of the file */
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
                                         if (fp->cltbl)
                                                 clst = clmt_clust(fp, fp->fptr);        /* Get cluster# from the CLMT */
 …
                                 if (fp->sclust == 0) fp->sclust = clst; /* Set start cluster if the first write */
+                        }
 #if _FS_TINY
+#if FF_FS_TINY
                         if (fp->fs->winsect == fp->dsect && sync_window(fp->fs))        /* Write-back sector cache */
                                 ABORT(fp->fs, FR_DISK_ERR);
 #else
                         if (fp->flag & FA__DIRTY) {             /* Write-back sector cache */
+                        if (fp->flag & FA_DIRTY) {              /* Write-back sector cache */
                                 if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                         ABORT(fp->fs, FR_DISK_ERR);
                                 fp->flag &= ~FA__DIRTY;
+                                fp->flag &= ~FA_DIRTY;
+                        }
 #endif
 …
                                 if (disk_write(fp->fs->drv, wbuff, sect, cc) != RES_OK)
                                         ABORT(fp->fs, FR_DISK_ERR);
 #if _FS_MINIMIZE <= 2
 #if _FS_TINY
+#if FF_FS_MINIMIZE <= 2
+#if FF_FS_TINY
                                 if (fp->fs->winsect - sect < cc) {      /* Refill sector cache if it gets invalidated by the direct write */
                                         mem_cpy(fp->fs->win, wbuff + ((fp->fs->winsect - sect) * SS(fp->fs)), SS(fp->fs));
 …
                                 if (fp->dsect - sect < cc) { /* Refill sector cache if it gets invalidated by the direct write */
                                         mem_cpy(fp->buf, wbuff + ((fp->dsect - sect) * SS(fp->fs)), SS(fp->fs));
                                         fp->flag &= ~FA__DIRTY;
+                                        fp->flag &= ~FA_DIRTY;
+                                }
 #endif
 …
                                 continue;
+                        }
 #if _FS_TINY
+#if FF_FS_TINY
                         if (fp->fptr >= fp->fsize) {    /* Avoid silly cache filling at growing edge */
                                 if (sync_window(fp->fs)) ABORT(fp->fs, FR_DISK_ERR);
 …
                 wcnt = SS(fp->fs) - ((UINT)fp->fptr % SS(fp->fs));/* Put partial sector into file I/O buffer */
                 if (wcnt > btw) wcnt = btw;
 #if _FS_TINY
+#if FF_FS_TINY
                 if (move_window(fp->fs, fp->dsect) != FR_OK)    /* Move sector window */
                         ABORT(fp->fs, FR_DISK_ERR);
 …
 #else
                 mem_cpy(&fp->buf[fp->fptr % SS(fp->fs)], wbuff, wcnt);  /* Fit partial sector */
                 fp->flag |= FA__DIRTY;
+                fp->flag |= FA_DIRTY;
 #endif
+        }
         if (fp->fptr > fp->fsize) fp->fsize = fp->fptr; /* Update file size if needed */
         fp->flag |= FA__WRITTEN;                                                /* Set file change flag */
+        fp->flag |= FA_MODIFIED;                                                /* Set file change flag */
         LEAVE_FF(fp->fs, FR_OK);
 …
         res = validate(fp);                                     /* Check validity of the object */
         if (res == FR_OK) {
                 if (fp->flag & FA__WRITTEN) {   /* Is there any change to the file? */
 #if !_FS_TINY
                         if (fp->flag & FA__DIRTY) {     /* Write-back cached data if needed */
+                if (fp->flag & FA_MODIFIED) {   /* Is there any change to the file? */
+#if !FF_FS_TINY
+                        if (fp->flag & FA_DIRTY) {      /* Write-back cached data if needed */
                                 if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                         LEAVE_FF(fp->fs, FR_DISK_ERR);
                                 fp->flag &= ~FA__DIRTY;
+                                fp->flag &= ~FA_DIRTY;
+                        }
 #endif
 …
                                 ST_DWORD(dir + DIR_WrtTime, tm);
                                 ST_WORD(dir + DIR_LstAccDate, 0);
                                 fp->flag &= ~FA__WRITTEN;
+                                fp->flag &= ~FA_MODIFIED;
                                 fp->fs->wflag = 1;
                                 res = sync_fs(fp->fs);
 …
+}
 #endif /* !_FS_READONLY */
+#endif /* !FF_FS_READONLY */
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
         res = f_sync(fp);                                       /* Flush cached data */
         if (res == FR_OK)
 …
                 res = validate(fp);                             /* Lock volume */
                 if (res == FR_OK) {
 #if _FS_REENTRANT
+#if FF_FS_REENTRANT
                         FATFS *fs = fp->fs;
 #endif
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                         res = dec_lock(fp->lockid);     /* Decrement file open counter */
                         if (res == FR_OK)
 #endif
                                 fp->fs = 0;                             /* Invalidate file object */
 #if _FS_REENTRANT
+#if FF_FS_REENTRANT
                         unlock_fs(fs, FR_OK);           /* Unlock volume */
 #endif
 …
 /*-----------------------------------------------------------------------*/
 #if _FS_RPATH >= 1
 #if _VOLUMES >= 2
+#if FF_FS_RPATH >= 1
+#if FF_VOLUMES >= 2
 FRESULT f_chdrive (
         const TCHAR* path               /* Drive number */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         DEFINE_NAMEBUF;
 …
 #if _FS_RPATH >= 2
+#if FF_FS_RPATH >= 2
 FRESULT f_getcwd (
         TCHAR* buff,    /* Pointer to the directory path */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         UINT i, n;
         DWORD ccl;
 …
                         if (res == FR_NO_FILE) res = FR_INT_ERR;/* It cannot be 'not found'. */
                         if (res != FR_OK) break;
 #if _USE_LFN
+#if FF_USE_LFN
                         fno.lfname = buff;
                         fno.lfsize = i;
 …
                         get_fileinfo(&dj, &fno);                /* Get the directory name and push it to the buffer */
                         tp = fno.fname;
 #if _USE_LFN
+#if FF_USE_LFN
                         if (*buff) tp = buff;
 #endif
 …
                 tp = buff;
                 if (res == FR_OK) {
 #if _VOLUMES >= 2
+#if FF_VOLUMES >= 2
                         *tp++ = '0' + CurrVol;                  /* Put drive number */
                         *tp++ = ':';
 …
         LEAVE_FF(dj.fs, res);
+}
 #endif /* _FS_RPATH >= 2 */
 #endif /* _FS_RPATH >= 1 */
 #if _FS_MINIMIZE <= 2
+#endif /* FF_FS_RPATH >= 2 */
+#endif /* FF_FS_RPATH >= 1 */
+#if FF_FS_MINIMIZE <= 2
 /*-----------------------------------------------------------------------*/
 /* Seek File R/W Pointer                                                 */
 …
         FRESULT res;
         DWORD clst, bcs, nsect, ifptr;
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
         DWORD cl, pcl, ncl, tcl, dsc, tlen, ulen, *tbl;
 #endif
 …
                 LEAVE_FF(fp->fs, (FRESULT)fp->err);
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
         if (fp->cltbl) {        /* Fast seek */
                 if (ofs == CREATE_LINKMAP) {    /* Create CLMT */
 …
                                 dsc += (ofs - 1) / SS(fp->fs) & (fp->fs->csize - 1);
                                 if (fp->fptr % SS(fp->fs) && dsc != fp->dsect) {        /* Refill sector cache if needed */
 #if !_FS_TINY
 #if !_FS_READONLY
                                         if (fp->flag & FA__DIRTY) {             /* Write-back dirty sector cache */
+#if !FF_FS_TINY
+#if !FF_FS_READONLY
+                                        if (fp->flag & FA_DIRTY) {              /* Write-back dirty sector cache */
                                                 if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                                         ABORT(fp->fs, FR_DISK_ERR);
                                                 fp->flag &= ~FA__DIRTY;
+                                                fp->flag &= ~FA_DIRTY;
+                                        }
 #endif
 …
+        {
                 if (ofs > fp->fsize                                     /* In read-only mode, clip offset with the file size */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                          && !(fp->flag & FA_WRITE)
 #endif
 …
                         } else {                                                                        /* When seek to back cluster, */
                                 clst = fp->sclust;                                              /* start from the first cluster */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                                 if (clst == 0) {                                                /* If no cluster chain, create a new chain */
                                         clst = create_chain(fp->fs, 0);
 …
                         if (clst != 0) {
                                 while (ofs > bcs) {                                             /* Cluster following loop */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                                         if (fp->flag & FA_WRITE) {                      /* Check if in write mode or not */
                                                 clst = create_chain(fp->fs, clst);      /* Force stretch if in write mode */
 …
+                }
                 if (fp->fptr % SS(fp->fs) && nsect != fp->dsect) {      /* Fill sector cache if needed */
 #if !_FS_TINY
 #if !_FS_READONLY
                         if (fp->flag & FA__DIRTY) {                     /* Write-back dirty sector cache */
+#if !FF_FS_TINY
+#if !FF_FS_READONLY
+                        if (fp->flag & FA_DIRTY) {                      /* Write-back dirty sector cache */
                                 if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                         ABORT(fp->fs, FR_DISK_ERR);
                                 fp->flag &= ~FA__DIRTY;
+                                fp->flag &= ~FA_DIRTY;
+                        }
 #endif
 …
                         fp->dsect = nsect;
+                }
 #if !_FS_READONLY
+#if !FF_FS_READONLY
                 if (fp->fptr > fp->fsize) {                     /* Set file change flag if the file size is extended */
                         fp->fsize = fp->fptr;
                         fp->flag |= FA__WRITTEN;
+                        fp->flag |= FA_MODIFIED;
+                }
 #endif
 …
+}
 #if _FS_MINIMIZE <= 1
+#if FF_FS_MINIMIZE <= 1
 /*-----------------------------------------------------------------------*/
 /* Create a Directory Object                                             */
 …
 FRESULT f_opendir (
         DIR* dp,                        /* Pointer to directory object to create */
+        FATFS_DIR* dp,                  /* Pointer to directory object to create */
         const TCHAR* path       /* Pointer to the directory path */
+)
 …
                                 dp->id = fs->id;
                                 res = dir_sdi(dp, 0);                   /* Rewind directory */
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                                 if (res == FR_OK) {
                                         if (dp->sclust) {
 …
 FRESULT f_closedir (
         DIR *dp         /* Pointer to the directory object to be closed */
+        FATFS_DIR *dp           /* Pointer to the directory object to be closed */
+)
+{
 …
         res = validate(dp);
         if (res == FR_OK) {
 #if _FS_REENTRANT
+#if FF_FS_REENTRANT
                 FATFS *fs = dp->fs;
 #endif
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                 if (dp->lockid)                         /* Decrement sub-directory open counter */
                         res = dec_lock(dp->lockid);
 …
 #endif
                         dp->fs = 0;                             /* Invalidate directory object */
 #if _FS_REENTRANT
+#if FF_FS_REENTRANT
                 unlock_fs(fs, FR_OK);           /* Unlock volume */
 #endif
 …
 FRESULT f_readdir (
         DIR* dp,                        /* Pointer to the open directory object */
+        FATFS_DIR* dp,                  /* Pointer to the open directory object */
         FILINFO* fno            /* Pointer to file information to return */
+)
 …
 #if _USE_FIND
+#if FF_USE_FIND
 /*-----------------------------------------------------------------------*/
 /* Find next file                                                        */
 …
 FRESULT f_findnext (
         DIR* dp,                /* Pointer to the open directory object */
+        FATFS_DIR* dp,          /* Pointer to the open directory object */
         FILINFO* fno    /* Pointer to the file information structure */
+)
 …
                 res = f_readdir(dp, fno);               /* Get a directory item */
                 if (res != FR_OK || !fno || !fno->fname[0]) break;      /* Terminate if any error or end of directory */
 #if _USE_LFN
+#if FF_USE_LFN
                 if (fno->lfname && pattern_matching(dp->pat, fno->lfname, 0, 0)) break; /* Test for LFN if exist */
 #endif
 …
 FRESULT f_findfirst (
         DIR* dp,                                /* Pointer to the blank directory object */
+        FATFS_DIR* dp,                          /* Pointer to the blank directory object */
         FILINFO* fno,                   /* Pointer to the file information structure */
         const TCHAR* path,              /* Pointer to the directory to open */
 …
+}
 #endif  /* _USE_FIND */
 #if _FS_MINIMIZE == 0
+#endif  /* FF_USE_FIND */
+#if FF_FS_MINIMIZE == 0
 /*-----------------------------------------------------------------------*/
 /* Get File Status                                                       */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         DEFINE_NAMEBUF;
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 /*-----------------------------------------------------------------------*/
 /* Get Number of Free Clusters                                           */
 …
                 if (fp->fsize > fp->fptr) {
                         fp->fsize = fp->fptr;   /* Set file size to current R/W point */
                         fp->flag |= FA__WRITTEN;
+                        fp->flag |= FA_MODIFIED;
                         if (fp->fptr == 0) {    /* When set file size to zero, remove entire cluster chain */
                                 res = remove_chain(fp->fs, fp->sclust);
 …
+                                }
+                        }
 #if !_FS_TINY
                         if (res == FR_OK && (fp->flag & FA__DIRTY)) {
+#if !FF_FS_TINY
+                        if (res == FR_OK && (fp->flag & FA_DIRTY)) {
                                 if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
                                         res = FR_DISK_ERR;
                                 else
                                         fp->flag &= ~FA__DIRTY;
+                                        fp->flag &= ~FA_DIRTY;
+                        }
 #endif
 …
+{
         FRESULT res;
         DIR dj, sdj;
+        FATFS_DIR dj, sdj;
         BYTE *dir;
         DWORD dclst = 0;
 …
                 INIT_BUF(dj);
                 res = follow_path(&dj, path);           /* Follow the file path */
                 if (_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
+                if (FF_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
                         res = FR_INVALID_NAME;                  /* Cannot remove dot entry */
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                 if (res == FR_OK) res = chk_lock(&dj, 2);       /* Cannot remove open object */
 #endif
 …
                                 dclst = ld_clust(dj.fs, dir);
                                 if (dclst && (dir[DIR_Attr] & AM_DIR)) {        /* Is it a sub-directory ? */
 #if _FS_RPATH
+#if FF_FS_RPATH
                                         if (dclst == dj.fs->cdir) {                             /* Is it the current directory? */
                                                 res = FR_DENIED;
 …
 #endif
+                                        {
                                                 mem_cpy(&sdj, &dj, sizeof (DIR));       /* Open the sub-directory */
+                                                mem_cpy(&sdj, &dj, sizeof (FATFS_DIR)); /* Open the sub-directory */
                                                 sdj.sclust = dclst;
                                                 res = dir_sdi(&sdj, 2);
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         BYTE *dir, n;
         DWORD dsc, dcl, pcl, tm = GET_FATTIME();
 …
                 res = follow_path(&dj, path);                   /* Follow the file path */
                 if (res == FR_OK) res = FR_EXIST;               /* Any object with same name is already existing */
                 if (_FS_RPATH && res == FR_NO_FILE && (dj.fn[NSFLAG] & NS_DOT))
+                if (FF_FS_RPATH && res == FR_NO_FILE && (dj.fn[NSFLAG] & NS_DOT))
                         res = FR_INVALID_NAME;
                 if (res == FR_NO_FILE) {                                /* Can create a new directory */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         BYTE *dir;
         DEFINE_NAMEBUF;
 …
                 res = follow_path(&dj, path);           /* Follow the file path */
                 FREE_BUF();
                 if (_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
+                if (FF_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
                         res = FR_INVALID_NAME;
                 if (res == FR_OK) {
 …
+{
         FRESULT res;
         DIR djo, djn;
+        FATFS_DIR djo, djn;
         BYTE buf[21], *dir;
         DWORD dw;
 …
                 INIT_BUF(djo);
                 res = follow_path(&djo, path_old);              /* Check old object */
                 if (_FS_RPATH && res == FR_OK && (djo.fn[NSFLAG] & NS_DOT))
+                if (FF_FS_RPATH && res == FR_OK && (djo.fn[NSFLAG] & NS_DOT))
                         res = FR_INVALID_NAME;
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
                 if (res == FR_OK) res = chk_lock(&djo, 2);
 #endif
 …
                         } else {
                                 mem_cpy(buf, djo.dir + DIR_Attr, 21);   /* Save information about object except name */
                                 mem_cpy(&djn, &djo, sizeof (DIR));              /* Duplicate the directory object */
+                                mem_cpy(&djn, &djo, sizeof (FATFS_DIR));                /* Duplicate the directory object */
                                 if (get_ldnumber(&path_new) >= 0)               /* Snip drive number off and ignore it */
                                         res = follow_path(&djn, path_new);      /* and make sure if new object name is not conflicting */
 …
                                         dir = djn.dir;
                                         if (dir[DIR_Attr] & AM_DIR) {   /* The new object is a directory */
                                                 temp_new_path = (TCHAR *)ff_memalloc((_MAX_LFN + 1) * sizeof(WCHAR));
                                                 ntstdio_snprintf(temp_new_path, _MAX_LFN, "%s/%s", path_new, basename((char *)path_old));
+                                                temp_new_path = (TCHAR *)ff_memalloc((FF_MAX_LFN + 1) * sizeof(WCHAR));
+                                                snprintf(temp_new_path, FF_MAX_LFN, "%s/%s", path_new, basename((char *)path_old));
                                                 res = follow_path(&djn, temp_new_path);
+                                        }
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         BYTE *dir;
         DEFINE_NAMEBUF;
 …
                 res = follow_path(&dj, path);   /* Follow the file path */
                 FREE_BUF();
                 if (_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
+                if (FF_FS_RPATH && res == FR_OK && (dj.fn[NSFLAG] & NS_DOT))
                         res = FR_INVALID_NAME;
                 if (res == FR_OK) {
 …
+}
 #endif /* !_FS_READONLY */
 #endif /* _FS_MINIMIZE == 0 */
 #endif /* _FS_MINIMIZE <= 1 */
 #endif /* _FS_MINIMIZE <= 2 */
 #if _USE_LABEL
+#endif /* !FF_FS_READONLY */
+#endif /* FF_FS_MINIMIZE == 0 */
+#endif /* FF_FS_MINIMIZE <= 1 */
+#endif /* FF_FS_MINIMIZE <= 2 */
+#if FF_USE_LABEL
 /*-----------------------------------------------------------------------*/
 /* Get volume label                                                      */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         UINT i, j;
 #if _USE_LFN && _LFN_UNICODE
+#if FF_USE_LFN && FF_LFN_UNICODE
         WCHAR w;
 #endif
 …
                         res = dir_read(&dj, 1);         /* Get an entry with AM_VOL */
                         if (res == FR_OK) {                     /* A volume label is exist */
 #if _USE_LFN && _LFN_UNICODE
+#if FF_USE_LFN && FF_LFN_UNICODE
                                 i = j = 0;
                                 do {
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 /*-----------------------------------------------------------------------*/
 /* Set volume label                                                      */
 …
+{
         FRESULT res;
         DIR dj;
+        FATFS_DIR dj;
         BYTE vn[11];
         UINT i, j, sl;
         WCHAR w;
         DWORD tm;
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
         int code_size;
         unsigned char utf8_code[6];
 …
                 i = j = 0;
                 do {
 #if _CODE_PAGE == 65001
+#if FF_CODE_PAGE == 65001
                         w = ff_wtoupper(Utf8_to_Utf16(&label[i], &code_size));
                         i += code_size;
 …
                                 vn[j++] = utf8_code[k];
 #else
 #if _USE_LFN && _LFN_UNICODE
+#if FF_USE_LFN && FF_LFN_UNICODE
                         w = ff_convert(ff_wtoupper(label[i++]), 0);
 #else
 …
                         if (IsDBCS1(w))
                                 w = (j < 10 && i < sl && IsDBCS2(label[i])) ? w << 8 | (BYTE)label[i++] : 0;
 #if _USE_LFN
+#if FF_USE_LFN
                         w = ff_convert(ff_wtoupper(ff_convert(w, 1)), 0);
 #else
 …
+}
 #endif /* !_FS_READONLY */
 #endif /* _USE_LABEL */
+#endif /* !FF_FS_READONLY */
+#endif /* FF_USE_LABEL */
 …
 /* Forward data to the stream directly (available on only tiny cfg)      */
 /*-----------------------------------------------------------------------*/
 #if _USE_FORWARD && _FS_TINY
+#if FF_USE_FORWARD && FF_FS_TINY
 FRESULT f_forward (
 …
         LEAVE_FF(fp->fs, FR_OK);
+}
 #endif /* _USE_FORWARD */
 #if _USE_MKFS && !_FS_READONLY
+#endif /* FF_USE_FORWARD */
+#if FF_USE_MKFS && !FF_FS_READONLY
 /*-----------------------------------------------------------------------*/
 /* Create file system on the logical drive                               */
 …
         FATFS *fs;
         DSTATUS stat;
 #if _USE_TRIM
+#if FF_USE_TRIM
         DWORD eb[2];
 #endif
 …
         if (stat & STA_NOINIT) return FR_NOT_READY;
         if (stat & STA_PROTECT) return FR_WRITE_PROTECTED;
 #if _MAX_SS != _MIN_SS          /* Get disk sector size */
         if (disk_ioctl(pdrv, GET_SECTOR_SIZE, &SS(fs)) != RES_OK || SS(fs) > _MAX_SS || SS(fs) < _MIN_SS)
+#if FF_MAX_SS != FF_MIN_SS              /* Get disk sector size */
+        if (disk_ioctl(pdrv, GET_SECTOR_SIZE, &SS(fs)) != RES_OK || SS(fs) > FF_MAX_SS || SS(fs) < FF_MIN_SS)
                 return FR_DISK_ERR;
 #endif
         if (_MULTI_PARTITION && part) {
+        if (FF_MULTI_PARTITION && part) {
                 /* Get partition information from partition table in the MBR */
                 if (disk_read(pdrv, fs->win, 0, 1) != RES_OK) return FR_DISK_ERR;
 …
                 au = cst[i];
+        }
         if (au >= _MIN_SS) au /= SS(fs);        /* Number of sectors per cluster */
+        if (au >= FF_MIN_SS) au /= SS(fs);      /* Number of sectors per cluster */
         if (!au) au = 1;
         if (au > 128) au = 128;
 …
+        }
         if (_MULTI_PARTITION && part) {
+        if (FF_MULTI_PARTITION && part) {
                 /* Update system ID in the partition table */
                 tbl = &fs->win[MBR_Table + (part - 1) * SZ_PTE];
 …
         } while (--i);
 #if _USE_TRIM   /* Erase data area if needed */
+#if FF_USE_TRIM /* Erase data area if needed */
+        {
                 eb[0] = wsect; eb[1] = wsect + (n_clst - ((fmt == FS_FAT32) ? 1 : 0)) * au - 1;
 …
 #if _MULTI_PARTITION
+#if FF_MULTI_PARTITION
 /*-----------------------------------------------------------------------*/
 /* Create partition table on the physical drive                          */
 …
         /* Create partition table */
         mem_set(buf, 0, _MAX_SS);
+        mem_set(buf, 0, FF_MAX_SS);
         p = buf + MBR_Table; b_cyl = 0;
         for (i = 0; i < 4; i++, p += SZ_PTE) {
 …
 #endif /* _MULTI_PARTITION */
 #endif /* _USE_MKFS && !_FS_READONLY */
 #if _USE_STRFUNC
+#endif /* FF_MULTI_PARTITION */
+#endif /* FF_USE_MKFS && !FF_FS_READONLY */
+#if FF_USE_STRFUNC
 /*-----------------------------------------------------------------------*/
 /* Get a string from the file                                            */
 …
         while (n < len - 1) {   /* Read characters until buffer gets filled */
 #if _USE_LFN && _LFN_UNICODE
 #if _STRF_ENCODE == 3           /* Read a character in UTF-8 */
+#if FF_USE_LFN && FF_LFN_UNICODE
+#if FF_STRF_ENCODE == 3         /* Read a character in UTF-8 */
                 f_read(fp, s, 1, &rc);
                 if (rc != 1) break;
 …
+                        }
+                }
 #elif _STRF_ENCODE == 2         /* Read a character in UTF-16BE */
+#elif FF_STRF_ENCODE == 2               /* Read a character in UTF-16BE */
                 f_read(fp, s, 2, &rc);
                 if (rc != 2) break;
                 c = s[1] + (s[0] << 8);
 #elif _STRF_ENCODE == 1         /* Read a character in UTF-16LE */
+#elif FF_STRF_ENCODE == 1               /* Read a character in UTF-16LE */
                 f_read(fp, s, 2, &rc);
                 if (rc != 2) break;
 …
                 c = s[0];
 #endif
                 if (_USE_STRFUNC == 2 && c == '\r') continue;   /* Strip '\r' */
+                if (FF_USE_STRFUNC == 2 && c == '\r') continue; /* Strip '\r' */
                 *p++ = c;
                 n++;
 …
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 /*-----------------------------------------------------------------------*/
 /* Put a character to the file                                           */
 …
         if (_USE_STRFUNC == 2 && c == '\n')      /* LF -> CRLF conversion */
+        if (FF_USE_STRFUNC == 2 && c == '\n')    /* LF -> CRLF conversion */
                 putc_bfd(pb, '\r');
 …
         if (i < 0) return;
 #if _USE_LFN && _LFN_UNICODE
 #if _STRF_ENCODE == 3                   /* Write a character in UTF-8 */
+#if FF_USE_LFN && FF_LFN_UNICODE
+#if FF_STRF_ENCODE == 3                 /* Write a character in UTF-8 */
         if (c < 0x80) {                         /* 7-bit */
                 pb->buf[i++] = (BYTE)c;
 …
                 pb->buf[i++] = (BYTE)(0x80 | (c & 0x3F));
+        }
 #elif _STRF_ENCODE == 2                 /* Write a character in UTF-16BE */
+#elif FF_STRF_ENCODE == 2                       /* Write a character in UTF-16BE */
         pb->buf[i++] = (BYTE)(c >> 8);
         pb->buf[i++] = (BYTE)c;
 #elif _STRF_ENCODE == 1                 /* Write a character in UTF-16LE */
+#elif FF_STRF_ENCODE == 1                       /* Write a character in UTF-16LE */
         pb->buf[i++] = (BYTE)c;
         pb->buf[i++] = (BYTE)(c >> 8);
 …
         ret = f_vprintf(fp, fmt, arp);
         va_end(arp);
         return ret;
+}
 #endif /* !_FS_READONLY */
 #endif /* _USE_STRFUNC */
+#endif /* !FF_FS_READONLY */
+#endif /* FF_USE_STRFUNC */

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/ff.h

-              r337
+              r374
 #include "ffconf.h"             /* FatFs configuration options */
 #include "diskio.h"
 #if _FATFS != _FFCONF
+#if _FATFS != FFCONF_DEF
 #error Wrong configuration file (ffconf.h).
 #endif
 …
 /* Definitions of volume management */
 #if _MULTI_PARTITION            /* Multiple partition configuration */
+#if FF_MULTI_PARTITION          /* Multiple partition configuration */
 typedef struct {
         BYTE pd;        /* Physical drive number */
 …
 /* Type of path name strings on FatFs API */
 #if _LFN_UNICODE                        /* Unicode string */
 #if !_USE_LFN
 #error _LFN_UNICODE must be 0 at non-LFN cfg.
+#if FF_LFN_UNICODE                      /* Unicode string */
+#if !FF_USE_LFN
+#error FF_LFN_UNICODE must be 0 at non-LFN cfg.
 #endif
 #ifndef _INC_TCHAR
 …
         WORD    id;                             /* File system mount ID */
         WORD    n_rootdir;              /* Number of root directory entries (FAT12/16) */
 #if _MAX_SS != _MIN_SS
+#if FF_MAX_SS != FF_MIN_SS
         WORD    ssize;                  /* Bytes per sector (512, 1024, 2048 or 4096) */
 #endif
 #if _FS_REENTRANT
         _SYNC_t sobj;                   /* Identifier of sync object */
 #endif
 #if !_FS_READONLY
+#if FF_FS_REENTRANT
+        FF_SYNC_t       sobj;                   /* Identifier of sync object */
+#endif
+#if !FF_FS_READONLY
         DWORD   last_clust;             /* Last allocated cluster */
         DWORD   free_clust;             /* Number of free clusters */
 #endif
 #if _FS_RPATH
+#if FF_FS_RPATH
         DWORD   cdir;                   /* Current directory start cluster (0:root) */
 #endif
 …
         DWORD   database;               /* Data start sector */
         DWORD   winsect;                /* Current sector appearing in the win[] */
         BYTE    win[_MAX_SS];   /* Disk access window for Directory, FAT (and file data at tiny cfg) */
+        BYTE    win[FF_MAX_SS]; /* Disk access window for Directory, FAT (and file data at tiny cfg) */
 } FATFS;
 …
         DWORD   clust;                  /* Current cluster of fpter (not valid when fprt is 0) */
         DWORD   dsect;                  /* Sector number appearing in buf[] (0:invalid) */
 #if !_FS_READONLY
+#if !FF_FS_READONLY
         DWORD   dir_sect;               /* Sector number containing the directory entry */
         BYTE*   dir_ptr;                /* Pointer to the directory entry in the win[] */
 #endif
 #if _USE_FASTSEEK
+#if FF_USE_FASTSEEK
         DWORD*  cltbl;                  /* Pointer to the cluster link map table (Nulled on file open) */
 #endif
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
         UINT    lockid;                 /* File lock ID origin from 1 (index of file semaphore table Files[]) */
 #endif
 #if !_FS_TINY
         BYTE    buf[_MAX_SS];   /* File private data read/write window */
+#if !FF_FS_TINY
+        BYTE    buf[FF_MAX_SS]; /* File private data read/write window */
 #endif
 } FIL;
 …
 /* Directory object structure (DIR) */
+/* Directory object structure (FATFS_DIR) */
 typedef struct __dirstream {
 …
         BYTE*   dir;                    /* Pointer to the current SFN entry in the win[] */
         BYTE*   fn;                             /* Pointer to the SFN (in/out) {file[8],ext[3],status[1]} */
 #if _FS_LOCK
+#if FF_FS_LOCK != 0
         UINT    lockid;                 /* File lock ID (index of file semaphore table Files[]) */
 #endif
 #if _USE_LFN
+#if FF_USE_LFN
         WCHAR*  lfn;                    /* Pointer to the LFN working buffer */
         WORD    lfn_idx;                /* Last matched LFN index number (0xFFFF:No LFN) */
 #endif
 #if _USE_FIND
+#if FF_USE_FIND
         const TCHAR*    pat;    /* Pointer to the name matching pattern */
 #endif
 } DIR;
+} FATFS_DIR;
 …
         BYTE    fattrib;                /* Attribute */
         TCHAR   fname[13];              /* Short file name (8.3 format) */
 #if _USE_LFN
+#if FF_USE_LFN
         TCHAR*  lfname;                 /* Pointer to the LFN buffer */
         UINT    lfsize;                 /* Size of LFN buffer in TCHAR */
 …
         FR_LOCKED,                              /* (16) The operation is rejected according to the file sharing policy */
         FR_NOT_ENOUGH_CORE,             /* (17) LFN working buffer could not be allocated */
         FR_TOO_MANY_OPEN_FILES, /* (18) Number of open files > _FS_LOCK */
+        FR_TOO_MANY_OPEN_FILES, /* (18) Number of open files > FF_FS_LOCK */
         FR_INVALID_PARAMETER    /* (19) Given parameter is invalid */
 } FRESULT;
 …
 FRESULT f_truncate (FIL* fp);                                                                           /* Truncate file */
 FRESULT f_sync (FIL* fp);                                                                                       /* Flush cached data of a writing file */
 FRESULT f_opendir (DIR* dp, const TCHAR* path);                                         /* Open a directory */
 FRESULT f_closedir (DIR* dp);                                                                           /* Close an open directory */
 FRESULT f_readdir (DIR* dp, FILINFO* fno);                                                      /* Read a directory item */
 FRESULT f_findfirst (DIR* dp, FILINFO* fno, const TCHAR* path, const TCHAR* pattern);   /* Find first file */
 FRESULT f_findnext (DIR* dp, FILINFO* fno);                                                     /* Find next file */
+FRESULT f_opendir (FATFS_DIR* dp, const TCHAR* path);                                           /* Open a directory */
+FRESULT f_closedir (FATFS_DIR* dp);                                                                             /* Close an open directory */
+FRESULT f_readdir (FATFS_DIR* dp, FILINFO* fno);                                                        /* Read a directory item */
+FRESULT f_findfirst (FATFS_DIR* dp, FILINFO* fno, const TCHAR* path, const TCHAR* pattern);     /* Find first file */
+FRESULT f_findnext (FATFS_DIR* dp, FILINFO* fno);                                                       /* Find next file */
 FRESULT f_mkdir (const TCHAR* path);                                                            /* Create a sub directory */
 FRESULT f_unlink (const TCHAR* path);                                                           /* Delete an existing file or directory */
 …
 /* RTC function */
 #if !_FS_READONLY && !_FS_NORTC
+#if !FF_FS_READONLY && !FF_FS_NORTC
 DWORD get_fattime (void);
 #endif
 /* Unicode support functions */
 #if _USE_LFN                                                    /* Unicode - OEM code conversion */
+#if FF_USE_LFN                                                  /* Unicode - OEM code conversion */
 WCHAR ff_convert (WCHAR chr, UINT dir); /* OEM-Unicode bidirectional conversion */
 WCHAR ff_wtoupper (WCHAR chr);                  /* Unicode upper-case conversion */
 #if _USE_LFN == 3                                               /* Memory functions */
+#if FF_USE_LFN == 3                                             /* Memory functions */
 void* ff_memalloc (UINT msize);                 /* Allocate memory block */
 void ff_memfree (void* mblock);                 /* Free memory block */
 …
 /* Sync functions */
 #if _FS_REENTRANT
 int ff_cre_syncobj (BYTE vol, _SYNC_t* sobj);   /* Create a sync object */
 int ff_req_grant (_SYNC_t sobj);                                /* Lock sync object */
 void ff_rel_grant (_SYNC_t sobj);                               /* Unlock sync object */
 int ff_del_syncobj (_SYNC_t sobj);                              /* Delete a sync object */
+#if FF_FS_REENTRANT
+int ff_cre_syncobj (BYTE vol, FF_SYNC_t* sobj); /* Create a sync object */
+int ff_req_grant (FF_SYNC_t sobj);                              /* Lock sync object */
+void ff_rel_grant (FF_SYNC_t sobj);                             /* Unlock sync object */
+int ff_del_syncobj (FF_SYNC_t sobj);                            /* Delete a sync object */
 #endif
 …
 #define FA_OPEN_EXISTING        0x00
 #if !_FS_READONLY
+#if !FF_FS_READONLY
 #define FA_WRITE                        0x02
 #define FA_CREATE_NEW           0x04
 #define FA_CREATE_ALWAYS        0x08
 #define FA_OPEN_ALWAYS          0x10
+#define FA__WRITTEN                     0x20
+#define FA__DIRTY                       0x40
+#define FA_OPEN_APPEND          0x30
+#define FA_MODIFIED                     0x20
+#define FA_DIRTY                        0x40
 #endif
 …
 /* Multi-byte word access macros  */
 #if _WORD_ACCESS == 1   /* Enable word access to the FAT structure */
+#if FF_WORD_ACCESS == 1 /* Enable word access to the FAT structure */
 #define LD_WORD(ptr)            (WORD)(*(WORD*)(BYTE*)(ptr))
 #define LD_DWORD(ptr)           (DWORD)(*(DWORD*)(BYTE*)(ptr))

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/ffarch.c

-              r364
+              r374
 #include "ff.h"
 #include "ffarch.h"
+#include "util/ntstdio.h"
+#include "mbed_api.h"
+extern ntstdio_t ntstdio;
+#include <stdio.h>
+#include "gpio_api.h"
+#include "rtc_api.h"
 enum ffarch_state_t {
 …
         ret2 = get_tim(&now);
         if (ret2 != E_OK){
                 ntstdio_printf(&ntstdio, "[ffarch] get_tim error: %s",
+                printf("[ffarch] get_tim error: %s",
                         itron_strerror(ret2));
                 return;
 …
                 ret = tslp_tsk(timer);
                 if ((ret != E_OK) && (ret != E_TMOUT)) {
                         ntstdio_printf(&ntstdio, "[ffarch] tslp_tsk error: %s %d",
+                        printf("[ffarch] tslp_tsk error: %s %d",
                                 itron_strerror(ret), timer);
                         break;
 …
                 ret2 = get_tim(&now);
                 if (ret2 != E_OK) {
                         ntstdio_printf(&ntstdio, "[ffarch] get_tim error: %s",
+                        printf("[ffarch] get_tim error: %s",
                                 itron_strerror(ret2));
                         break;
 …
 #endif
         if (romdisk_init()) {
                 ntstdio_printf(&ntstdio, "ROM disk (0:) OK!\n");
+                printf("ROM disk (0:) OK!\n");
+        }
         else {
                 ntstdio_printf(&ntstdio, "ROM disk (0:) NG!\n");
+                printf("ROM disk (0:) NG!\n");
+        }
+}
 …
         case FFS_RETRY_WAIT:
                 if (ffarch_retry_count == 0) {
                         ntstdio_printf(&ntstdio, "SD card (1:) initialize tired...\n");
+                        printf("SD card (1:) initialize tired...\n");
                         ffarch_state = FFS_IDLE;
 …
                 /* SDカードが入れられた場合 */
                 if (((mmc_rspi_prev_status & STA_NODISK) != 0) && ((mmc_rspi_status() & STA_NODISK) == 0)) {
                         ntstdio_printf(&ntstdio, "SD card initializing ...\n");
+                        printf("SD card initializing ...\n");
                         Sd.FatFs.fs_type = 0;
                         if (SD_begin()) {
                                 ntstdio_printf(&ntstdio, "SD card (1:) OK!\n");
+                                printf("SD card (1:) OK!\n");
                                 /* uploadディレクトリを作成しておく */
 …
+                        }
                         else {
                                 ntstdio_printf(&ntstdio, "SD card (1:) NG!\n");
+                                printf("SD card (1:) NG!\n");
                                 ffarch_state = FFS_RETRY_WAIT;
                                 ffarch_timer = 1000 * 1000;
 …
                 /* SDカードが抜かれた場合 */
                 else if (((mmc_rspi_prev_status & STA_NODISK) == 0) && ((mmc_rspi_status() & STA_NODISK) != 0)) {
                         ntstdio_printf(&ntstdio, "SD card unmount\n");
+                        printf("SD card unmount\n");
                         f_mount(&Sd.FatFs, "1:", 0);
 …
+}
 int ff_cre_syncobj(BYTE vol, _SYNC_t* sobj)
+int ff_cre_syncobj(BYTE vol, FF_SYNC_t* sobj)
+{
         return 1;
+}
 int ff_req_grant(_SYNC_t sobj)
+int ff_req_grant(FF_SYNC_t sobj)
+{
         ER ret;
 …
+}
 void ff_rel_grant(_SYNC_t sobj)
+void ff_rel_grant(FF_SYNC_t sobj)
+{
         sig_sem(SEM_FILESYSTEM);
+}
 int ff_del_syncobj(_SYNC_t sobj)
+int ff_del_syncobj(FF_SYNC_t sobj)
+{
         return 1;

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/ffconf.h

-              r337
+              r374
 /---------------------------------------------------------------------------*/
+#define _FFCONF 64180   /* Revision ID */
+#define FFCONF_DEF 64180        /* Revision ID */
+#define FFS_DBG                 0
 /*---------------------------------------------------------------------------/
 …
 /---------------------------------------------------------------------------*/
 #define _FS_READONLY    0
+#define FF_FS_READONLY  0
 /* This option switches read-only configuration. (0:Read/Write or 1:Read-only)
 /  Read-only configuration removes writing API functions, f_write(), f_sync(),
 …
 #define _FS_MINIMIZE    0
+#define FF_FS_MINIMIZE  0
 /* This option defines minimization level to remove some basic API functions.
+/
 …
 #define _USE_STRFUNC    1
+#define FF_USE_STRFUNC  1
 /* This option switches string functions, f_gets(), f_putc(), f_puts() and
 /  f_printf().
 …
 #define _USE_FIND               1
+#define FF_USE_FIND             1
 /* This option switches filtered directory read feature and related functions,
 /  f_findfirst() and f_findnext(). (0:Disable or 1:Enable) */
 #define _USE_MKFS               1
+#define FF_USE_MKFS             1
 /* This option switches f_mkfs() function. (0:Disable or 1:Enable) */
 #define _USE_FASTSEEK   0
+#define FF_USE_FASTSEEK 0
 /* This option switches fast seek feature. (0:Disable or 1:Enable) */
 #define _USE_LABEL              1
+#define FF_USE_LABEL            1
 /* This option switches volume label functions, f_getlabel() and f_setlabel().
 /  (0:Disable or 1:Enable) */
 #define _USE_FORWARD    1
+#define FF_USE_FORWARD  1
 /* This option switches f_forward() function. (0:Disable or 1:Enable)
 /  To enable it, also _FS_TINY need to be set to 1. */
+/  To enable it, also FF_FS_TINY need to be set to 1. */
 …
 /---------------------------------------------------------------------------*/
 #define _CODE_PAGE 65001
+#define FF_CODE_PAGE 65001
 /* This option specifies the OEM code page to be used on the target system.
 /  Incorrect setting of the code page can cause a file open failure.
 …
 #define _USE_LFN        3
 #define _MAX_LFN        255
 /* The _USE_LFN option switches the LFN feature.
+/
 /   0: Disable LFN feature. _MAX_LFN has no effect.
+#define FF_USE_LFN      3
+#define FF_MAX_LFN      255
+/* The FF_USE_LFN option switches the LFN feature.
+/
+/   0: Disable LFN feature. FF_MAX_LFN has no effect.
 /   1: Enable LFN with static working buffer on the BSS. Always NOT thread-safe.
 /   2: Enable LFN with dynamic working buffer on the STACK.
 …
+/
 /  When enable the LFN feature, Unicode handling functions (option/unicode.c) must
 /  be added to the project. The LFN working buffer occupies (_MAX_LFN + 1) * 2 bytes.
+/  be added to the project. The LFN working buffer occupies (FF_MAX_LFN + 1) * 2 bytes.
 /  When use stack for the working buffer, take care on stack overflow. When use heap
 /  memory for the working buffer, memory management functions, ff_memalloc() and
 …
 #define _LFN_UNICODE    0
+#define FF_LFN_UNICODE  0
 /* This option switches character encoding on the API. (0:ANSI/OEM or 1:Unicode)
 /  To use Unicode string for the path name, enable LFN feature and set _LFN_UNICODE
+/  To use Unicode string for the path name, enable LFN feature and set FF_LFN_UNICODE
 /  to 1. This option also affects behavior of string I/O functions. */
 #define _STRF_ENCODE    3
 /* When _LFN_UNICODE is 1, this option selects the character encoding on the file to
+#define FF_STRF_ENCODE  3
+/* When FF_LFN_UNICODE is 1, this option selects the character encoding on the file to
 /  be read/written via string I/O functions, f_gets(), f_putc(), f_puts and f_printf().
+/
 …
 /  3: UTF-8
+/
+/  When _LFN_UNICODE is 0, this option has no effect. */
+#define _FS_RPATH       2
+/  When FF_LFN_UNICODE is 0, this option has no effect. */
+#define FF_LFN_BUF              255
+#define FF_SFN_BUF              12
+/* This set of options defines size of file name members in the FILINFO structure
+/  which is used to read out directory items. These values should be suffcient for
+/  the file names to read. The maximum possible length of the read file name depends
+/  on character encoding. When LFN is not enabled, these options have no effect. */
+#define FF_FS_RPATH     2
 /* This option configures relative path feature.
+/
 …
 /---------------------------------------------------------------------------*/
 #define _VOLUMES        2
+#define FF_VOLUMES      4
 /* Number of volumes (logical drives) to be used. */
 #define _STR_VOLUME_ID  0
 #define _VOLUME_STRS    "RAM","NAND","CF","SD1","SD2","USB1","USB2","USB3"
 /* _STR_VOLUME_ID option switches string volume ID feature.
 /  When _STR_VOLUME_ID is set to 1, also pre-defined strings can be used as drive
 /  number in the path name. _VOLUME_STRS defines the drive ID strings for each
 /  logical drives. Number of items must be equal to _VOLUMES. Valid characters for
+#define FF_STR_VOLUME_ID        0
+#define FF_VOLUME_STRS  "RAM","NAND","CF","SD1","SD2","USB1","USB2","USB3"
+/* FF_STR_VOLUME_ID option switches string volume ID feature.
+/  When FF_STR_VOLUME_ID is set to 1, also pre-defined strings can be used as drive
+/  number in the path name. FF_VOLUME_STRS defines the drive ID strings for each
+/  logical drives. Number of items must be equal to FF_VOLUMES. Valid characters for
 /  the drive ID strings are: A-Z and 0-9. */
 #define _MULTI_PARTITION        0
+#define FF_MULTI_PARTITION      0
 /* This option switches multi-partition feature. By default (0), each logical drive
 /  number is bound to the same physical drive number and only an FAT volume found on
 …
 #define _MIN_SS         512
 #define _MAX_SS         512
+#define FF_MIN_SS               512
+#define FF_MAX_SS               512
 /* These options configure the range of sector size to be supported. (512, 1024,
 /  2048 or 4096) Always set both 512 for most systems, all type of memory cards and
 /  harddisk. But a larger value may be required for on-board flash memory and some
 /  type of optical media. When _MAX_SS is larger than _MIN_SS, FatFs is configured
+/  type of optical media. When FF_MAX_SS is larger than FF_MIN_SS, FatFs is configured
 /  to variable sector size and GET_SECTOR_SIZE command must be implemented to the
 /  disk_ioctl() function. */
 #define _USE_TRIM       0
+#define FF_USE_TRIM     0
 /* This option switches ATA-TRIM feature. (0:Disable or 1:Enable)
 /  To enable Trim feature, also CTRL_TRIM command should be implemented to the
 …
 #define _FS_NOFSINFO    0
+#define FF_FS_NOFSINFO  0
 /* If you need to know correct free space on the FAT32 volume, set bit 0 of this
 /  option, and f_getfree() function at first time after volume mount will force
 …
 /---------------------------------------------------------------------------*/
 #define _FS_TINY        1
+#define FF_FS_TINY      1
 /* This option switches tiny buffer configuration. (0:Normal or 1:Tiny)
 /  At the tiny configuration, size of the file object (FIL) is reduced _MAX_SS
+/  At the tiny configuration, size of the file object (FIL) is reduced FF_MAX_SS
 /  bytes. Instead of private sector buffer eliminated from the file object,
 /  common sector buffer in the file system object (FATFS) is used for the file
 …
 #define _FS_NORTC       0
 #define _NORTC_MON      1
 #define _NORTC_MDAY     1
 #define _NORTC_YEAR     2015
 /* The _FS_NORTC option switches timestamp feature. If the system does not have
 /  an RTC function or valid timestamp is not needed, set _FS_NORTC to 1 to disable
+#define FF_FS_NORTC     0
+#define FF_NORTC_MON    1
+#define FF_NORTC_MDAY   1
+#define FF_NORTC_YEAR   2015
+/* The FF_FS_NORTC option switches timestamp feature. If the system does not have
+/  an RTC function or valid timestamp is not needed, set FF_FS_NORTC to 1 to disable
 /  the timestamp feature. All objects modified by FatFs will have a fixed timestamp
 /  defined by _NORTC_MON, _NORTC_MDAY and _NORTC_YEAR.
 /  When timestamp feature is enabled (_FS_NORTC == 0), get_fattime() function need
 /  to be added to the project to read current time form RTC. _NORTC_MON,
 /  _NORTC_MDAY and _NORTC_YEAR have no effect.
 /  These options have no effect at read-only configuration (_FS_READONLY == 1). */
 #define _FS_LOCK        0
 /* The _FS_LOCK option switches file lock feature to control duplicated file open
 /  and illegal operation to open objects. This option must be 0 when _FS_READONLY
+/  defined by FF_NORTC_MON, FF_NORTC_MDAY and FF_NORTC_YEAR.
+/  When timestamp feature is enabled (FF_FS_NORTC == 0), get_fattime() function need
+/  to be added to the project to read current time form RTC. FF_NORTC_MON,
+/  FF_NORTC_MDAY and FF_NORTC_YEAR have no effect.
+/  These options have no effect at read-only configuration (FF_FS_READONLY == 1). */
+#define FF_FS_LOCK      0
+/* The FF_FS_LOCK option switches file lock feature to control duplicated file open
+/  and illegal operation to open objects. This option must be 0 when FF_FS_READONLY
 /  is 1.
+/
 …
 #define _FS_REENTRANT   1
 #define _FS_TIMEOUT             1000
 #define _SYNC_t                 unsigned int
 /* The _FS_REENTRANT option switches the re-entrancy (thread safe) of the FatFs
+#define FF_FS_REENTRANT 1
+#define FF_FS_TIMEOUT           1000
+#define FF_SYNC_t                       unsigned int
+/* The FF_FS_REENTRANT option switches the re-entrancy (thread safe) of the FatFs
 /  module itself. Note that regardless of this option, file access to different
 /  volume is always re-entrant and volume control functions, f_mount(), f_mkfs()
 …
 /  to the same volume is under control of this feature.
+/
 /   0: Disable re-entrancy. _FS_TIMEOUT and _SYNC_t have no effect.
+/   0: Disable re-entrancy. FF_FS_TIMEOUT and FF_SYNC_t have no effect.
 /   1: Enable re-entrancy. Also user provided synchronization handlers,
 /      ff_req_grant(), ff_rel_grant(), ff_del_syncobj() and ff_cre_syncobj()
 …
 /      option/syscall.c.
+/
 /  The _FS_TIMEOUT defines timeout period in unit of time tick.
 /  The _SYNC_t defines O/S dependent sync object type. e.g. HANDLE, ID, OS_EVENT*,
+/  The FF_FS_TIMEOUT defines timeout period in unit of time tick.
+/  The FF_SYNC_t defines O/S dependent sync object type. e.g. HANDLE, ID, OS_EVENT*,
 /  SemaphoreHandle_t and etc.. A header file for O/S definitions needs to be
 /  included somewhere in the scope of ff.c. */
 #define _WORD_ACCESS    1
 /* The _WORD_ACCESS option is an only platform dependent option. It defines
+#define FF_WORD_ACCESS  1
+/* The FF_WORD_ACCESS option is an only platform dependent option. It defines
 /  which access method is used to the word data on the FAT volume.
+/
 …
 /  * Byte order on the memory is little-endian.
+/
 /  If it is the case, _WORD_ACCESS can also be set to 1 to reduce code size.
+/  If it is the case, FF_WORD_ACCESS can also be set to 1 to reduce code size.
 /  Following table shows allowable settings of some type of processors.
+/

asp3_tinet_ecnl_rx/trunk/ntshell/fatfs/mmc_rspi.c

r359	r374
663	663	break;
664	664
665		case CTRL_TRIM: /* Erase a block of sectors (used when _USE_TRIM == 1) */
	665	case CTRL_TRIM: /* Erase a block of sectors (used when FF_USE_TRIM == 1) */
666	666	if (!(CardType & CT_SDC)) break; /* Check if the card is SDC */
667	667	if (mmc_rspi_ioctl(MMC_GET_CSD, csd)) break; /* Get CSD */

asp3_tinet_ecnl_rx/trunk/ntshell/ntshell/usrcmd.c

-              r340
+              r374
 #include "core/ntshell.h"
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+extern ntstdio_t ntstdio;
+#include <stdio.h>
+#include <getopt.h>
 extern int ntshell_exit;
-extern int mbtowc(wchar_t *__restrict wc, const char *__restrict src, size_t n);
-/* musl_getopt from msul */
-char *optarg;
-int optind=1, opterr=1, optopt, optpos, optreset=0;
-extern int optind, opterr;
-static void ntstdio_write(ntstdio_t *handle, const char *str, int l)
+{
-        for (; *str && l >= 0; l--) {
-                ntstdio_putc(handle, *str++);
+        }
+}
-static void __getopt_msg(const char *a, const char *b, const char *c, size_t l)
+{
-        ntstdio_puts(&ntstdio, a);
-        ntstdio_write(&ntstdio, b, strlen(b));
-        ntstdio_write(&ntstdio, c, l);
-        ntstdio_putc(&ntstdio, '\n');
+}
-static int musl_getopt(int argc, char * const argv[], const char *optstring)
+{
-        int i;
-        wchar_t c, d;
-        int k, l;
-        char *optchar;
-        if (!optind || optreset) {
-                optreset = 0;
-                optpos = 0;
-                optind = 1;
+        }
-        if (optind >= argc || !argv[optind])
-                return -1;
-        if (argv[optind][0] != '-') {
-                if (optstring[0] == '-') {
-                        optarg = argv[optind++];
-                        return 1;
+                }
-                return -1;
+        }
-        if (!argv[optind][1])
-                return -1;
-        if (argv[optind][1] == '-' && !argv[optind][2])
-                return optind++, -1;
-        if (!optpos) optpos++;
-        if ((k = mbtowc(&c, argv[optind]+optpos, MB_LEN_MAX)) < 0) {
-                k = 1;
-                c = 0xfffd; /* replacement char */
+        }
-        optchar = argv[optind]+optpos;
-        optopt = c;
-        optpos += k;
-        if (!argv[optind][optpos]) {
-                optind++;
-                optpos = 0;
+        }
-        if (optstring[0] == '-' || optstring[0] == '+')
-                optstring++;
-        i = 0;
-        d = 0;
-        do {
-                l = mbtowc(&d, optstring+i, MB_LEN_MAX);
-                if (l>0) i+=l; else i++;
-        } while (l && d != c);
-        if (d != c) {
-                if (optstring[0] != ':' && opterr)
-                        __getopt_msg(argv[0], ": unrecognized option: ", optchar, k);
-                return '?';
+        }
-        if (optstring[i] == ':') {
-                if (optstring[i+1] == ':') optarg = 0;
-                else if (optind >= argc) {
-                        if (optstring[0] == ':') return ':';
-                        if (opterr) __getopt_msg(argv[0],
-                                ": option requires an argument: ",
-                                optchar, k);
-                        return '?';
+                }
-                if (optstring[i+1] != ':' || optpos) {
-                        optarg = argv[optind++] + optpos;
-                        optpos = 0;
+                }
+        }
-        return c;
+}
-int shell_kill(int pid, int sig)
+{
-        DebugBreak();
-        return -1;
+}
-int shell_gettimeofday(struct timeval *tv, void *tzvp)
+{
-        SYSTIM time;
-        if (!tv) return 0;
-        get_tim(&time);
-        tv->tv_sec = time / 1000000;
-        tv->tv_usec = time - (tv->tv_sec * 1000000);
-        return 0;
+}
 void put_rc(const char *func, FRESULT rc)
 …
                 while (*p++);
+        }
         ntstdio_printf(&ntstdio, "%s() =>%u FR_%s\n", func, (UINT)rc, p);
+        printf("%s() =>%u FR_%s\n", func, (UINT)rc, p);
+}
 …
                 while (*p++);
+        }
         ntstdio_printf(&ntstdio, "%s() =>%u %s\n", func, (UINT)rc, p);
+        printf("%s() =>%u %s\n", func, (UINT)rc, p);
+}
 …
         ntlibc_strlcat(path, "\n", sizeof(path));
         ntstdio_printf(&ntstdio, path);
+        printf(path);
         return 0;
 …
         char *fn;
 #if _USE_LFN
+#if FF_USE_LFN
         fn = *fno->lfname ? fno->lfname : fno->fname;
 #else
 …
         if (list_option & LS_LONG) {
                 ntstdio_printf(&ntstdio, "%c%c%c%c%c %04d/%02d/%02d %02d:%02d:%02d ",
+                printf("%c%c%c%c%c %04d/%02d/%02d %02d:%02d:%02d ",
                         (fno->fattrib & AM_DIR) ? 'd' : '-',
                         (fno->fattrib & AM_RDO) ? 'r' : '-',
 …
                 if (fno->fattrib & AM_DIR) {                    /* It is a directory */
                         ntstdio_printf(&ntstdio, "%10S ", " ");
+                        printf("%10s ", " ");
+                }
                 else {
                         ntstdio_printf(&ntstdio, "%10d ", fno->fsize);
+                        printf("%10lu ", fno->fsize);
+                }
+        }
         if (fno->fattrib & AM_DIR) {                    /* It is a directory */
                 ntstdio_printf(&ntstdio, "\x1B[32m%s\x1B[0m\n", fn);
+                printf("\x1B[32m%s\x1B[0m\n", fn);
+        }
         else {
                 ntstdio_printf(&ntstdio, "%s\n", fn);
+        }
+}
 #define LFN_BUF_SIZE (_MAX_LFN + 1)
+                printf("%s\n", fn);
+        }
+}
+#define LFN_BUF_SIZE (FF_MAX_LFN + 1)
 /* lsコマンド dir内 表示 */
 void print_ls(char *path_p, char *pattern_p, BYTE list_option)
 …
         FRESULT res;
         FILINFO fno;
         DIR dir;
+        FATFS_DIR dir;
         char *fn;   /* This function assumes non-Unicode configuration */
 …
         path_backup = ff_memalloc(LFN_BUF_SIZE);
         if (path_backup == NULL) {
                 ntstdio_printf(&ntstdio, "ff_memalloc err.\n");
+                printf("ff_memalloc err.\n");
                 return;
+        }
 #if _USE_LFN
+#if FF_USE_LFN
         char *lfn = NULL;
         lfn = ff_memalloc(LFN_BUF_SIZE);
         if (lfn == NULL) {
                 ntstdio_printf(&ntstdio, "ff_memalloc err.\n");
+                printf("ff_memalloc err.\n");
                 ff_memfree(path_backup);
                 return;
 …
         while ((res == FR_OK) && (fno.fname[0] != 0)) {
                 if (pattern_p != NULL && (fno.fattrib & AM_DIR) && ((fno.fname[0] == '.') ? (pattern_p[0] == '.') : 1)) {/* DIR とパターンマッチしている場合は DIR 内部を ls する */
 #if _USE_LFN
+                if (pattern_p != NULL && (fno.fattrib & AM_DIR) && ((fno.fname[0] == '.') ? (pattern_p[0] == '.') : 1)) {/* FATFS_DIR とパターンマッチしている場合は FATFS_DIR 内部を ls する */
+#if FF_USE_LFN
                         fn = *fno.lfname ? fno.lfname : fno.fname;
 #else
 …
+                        }
                         ntstdio_printf(&ntstdio, "\n%s/%s:\n", path_p, fn);
+                        printf("\n%s/%s:\n", path_p, fn);
                         print_ls(fn, NULL, list_option);
                         ntstdio_printf(&ntstdio, "\n");
+                        printf("\n");
                         if ((res = f_chdrive(path_backup)) != FR_OK) {
 …
+{
         char *pattern_p = NULL, *basename_p = NULL, *dirname_p = NULL;
         char default_pattern[_MAX_LFN] = "";
+        char default_pattern[FF_MAX_LFN] = "";
         int c;
         BYTE list_option = 0;
         while ((c = musl_getopt(argc, argv, "al")) != -1) {
+        while ((c = getopt(argc, argv, "al")) != -1) {
                 switch (c) {
                 case 'a':
 …
                 return 0;
 #if _USE_LFN
+#if FF_USE_LFN
         /* LFN buffer alloc */
         lfn = ff_memalloc(LFN_BUF_SIZE);
         if (lfn == NULL) {
                 ntstdio_printf(&ntstdio, "alloc err.\n");
+                printf("alloc err.\n");
                 goto cp_end;
+        }
 …
         local_buff = ff_memalloc(64);
         if (local_buff == NULL) {
                 ntstdio_printf(&ntstdio, "alloc err.\n");
+                printf("alloc err.\n");
                 goto cp_end;
+        }
 …
         if (res != FR_OK) {
                 if (res == FR_NO_FILE)
                         ntstdio_printf(&ntstdio, "src no file.\n", res);
+                        printf("src no file.\n");
                 else
                         ntstdio_printf(&ntstdio, "src stat err(%d).\n", res);
+                        printf("src stat err(%d).\n", res);
                 goto cp_end;
+        }
 …
                 res = f_open(&src_fp, src_str_p, (FA_OPEN_EXISTING | FA_READ));
                 if (res != FR_OK) {
                         ntstdio_printf(&ntstdio, "src open err(%d).\n", res);
+                        printf("src open err(%d).\n", res);
                         goto cp_end;
+                }
 …
                                 dst_mod_str_p = ff_memalloc(LFN_BUF_SIZE);
                                 if (dst_mod_str_p == NULL) {
                                         ntstdio_printf(&ntstdio, "alloc err.\n");
+                                        printf("alloc err.\n");
                                         goto cp_end;
+                                }
                                 ntstdio_snprintf(dst_mod_str_p, LFN_BUF_SIZE, "%s/%s\0", dst_str_p, src_basename_p);
+                                snprintf(dst_mod_str_p, LFN_BUF_SIZE, "%s/%s\0", dst_str_p, src_basename_p);
                                 dst_str_p = dst_mod_str_p;
+                        }
                         else {
                                 ntstdio_printf(&ntstdio, "dst file exists.\n");
+                                printf("dst file exists.\n");
                                 goto cp_end_1;
+                        }
+                }
                 else {
                         ntstdio_printf(&ntstdio, "src stat err(%d).\n", res);
+                        printf("src stat err(%d).\n", res);
                         goto cp_end_1;
+                }
 …
         res = f_open(&dst_fp, dst_str_p, (FA_CREATE_NEW | FA_WRITE));
         if (res != FR_OK) {
                 ntstdio_printf(&ntstdio, "dst open err(%d).\n", res);
+                printf("dst open err(%d).\n", res);
                 goto cp_end_1;
+        }
 …
                 res = f_read(&src_fp, local_buff, sizeof(local_buff), &read_size);
                 if (res != FR_OK) {
                         ntstdio_printf(&ntstdio, "src read err(%d).\n", res);
+                        printf("src read err(%d).\n", res);
                         goto cp_end_2;
+                }
 …
                 res = f_write(&dst_fp, local_buff, read_size, &write_size);
                 if (res != FR_OK) {
                         ntstdio_printf(&ntstdio, "dst write err(%d).\n", res);
+                        printf("dst write err(%d).\n", res);
                         goto cp_end_2;
+                }
                 if (read_size != write_size) {
                         ntstdio_printf(&ntstdio, "dst write err(disk full).\n", res);
+                        printf("dst write err(disk full).\n");
                         goto cp_end_2;
+                }
 …
         unsigned int op_offset = 0, op_size = 0, op_end = 0;
         while ((op = musl_getopt(argc, argv, "hduos0123456789xX")) != -1) {
+        while ((op = getopt(argc, argv, "hduos0123456789xX")) != -1) {
                 switch (op) {
                 case 'h': /* help */
                         ntstdio_printf(&ntstdio, " hexdump [OPTION] file\n");
                         ntstdio_printf(&ntstdio, "  -h : help\n");
                         ntstdio_printf(&ntstdio, "  -d : print all byte with convert and color [in character area] (default)\n");
                         ntstdio_printf(&ntstdio, "  -u : try print UTF-8 code [in character area]\n");
                         ntstdio_printf(&ntstdio, "  -oOFFSET : print start offset address from top\n");
                         ntstdio_printf(&ntstdio, "  -sSIZE   : print size\n");
+                        printf(" hexdump [OPTION] file\n");
+                        printf("  -h : help\n");
+                        printf("  -d : print all byte with convert and color [in character area] (default)\n");
+                        printf("  -u : try print UTF-8 code [in character area]\n");
+                        printf("  -oOFFSET : print start offset address from top\n");
+                        printf("  -sSIZE   : print size\n");
                         break;
                 case 'd': /* print one byte character [in character area] (default) */
 …
         /* position adjusting */
         if (op_offset >= fsrc.fsize) {
                 ntstdio_printf(&ntstdio, "error : input offset is bigger than file size(0x%X).\n", fsrc.fsize);
+                printf("error : input offset is bigger than file size(0x%lX).\n", fsrc.fsize);
                 return 0;
+        }
 …
                 char *pos = line;
                 int rst = sizeof(line);
                 int len = ntstdio_snprintf(pos, rst, "%08X: ", i);
+                int len = snprintf(pos, rst, "%08X: ", i);
                 pos += len;
                 rst -= len;
 …
                         char c = data[j];
                         if (j != 7)
                                 len = ntstdio_snprintf(pos, rst, "%02X ", c);
+                                len = snprintf(pos, rst, "%02X ", c);
                         else
                                 len = ntstdio_snprintf(pos, rst, "%02X-", c);
+                                len = snprintf(pos, rst, "%02X-", c);
                         pos += len;
                         rst -= len;
 …
                                                                 break;
                                                         if (j + k != 7)
                                                                 len = ntstdio_snprintf(pos, rst, "%02X ", data[j + k]);
+                                                                len = snprintf(pos, rst, "%02X ", data[j + k]);
                                                         else
                                                                 len = ntstdio_snprintf(pos, rst, "%02X-", data[j + k]);
+                                                                len = snprintf(pos, rst, "%02X-", data[j + k]);
                                                         pos += len;
                                                         rst -= len;
 …
                                 apos += len;
                                 arst -= len;
                                 len = ntstdio_snprintf(apos, arst, "\x1B[%dm%c\x1B[0m", CCOLOR_RESET, ' ');
+                                len = snprintf(apos, arst, "\x1B[%dm%c\x1B[0m", CCOLOR_RESET, ' ');
                                 utf8_odd_bytes--;
+                        }
 …
                                         c = '?';
+                                }
                                 len = ntstdio_snprintf(apos, arst, "\x1B[%dm%c\x1B[0m", ccolor, c);
+                                len = snprintf(apos, arst, "\x1B[%dm%c\x1B[0m", ccolor, c);
+                        }
 …
                 for (int j = br; j < 16; j++) {
                         if (j != 7)
                                 len = ntstdio_snprintf(pos, rst, "   ");
+                                len = snprintf(pos, rst, "   ");
                         else
                                 len = ntstdio_snprintf(pos, rst, "  -");
+                                len = snprintf(pos, rst, "  -");
                         pos += len;
                         rst -= len;
+                }
                 len = ntstdio_snprintf(pos, rst, ": %s\n", ascii);
+                len = snprintf(pos, rst, ": %s\n", ascii);
                 pos += len;
                 rst -= len;
                 ntstdio_puts(&ntstdio, line);
+                puts(line);
+        }
 …
         char buf[30];
         ret = shell_clock_gettime(CLOCK_REALTIME, &tp);
+        ret = clock_gettime(CLOCK_REALTIME, &tp);
         if (ret != 0) {
                 ntstdio_printf(&ntstdio, "clock_gettime error %d", ret);
+                printf("clock_gettime error %d", ret);
                 return 0;
+        }
 …
         memset(buf, 0, sizeof(buf));
         if (ctime_r(&tp.tv_sec, buf) == NULL) {
                 ntstdio_printf(&ntstdio, "ctime_r error");
+                printf("ctime_r error");
                 return 0;
+        }
 …
         buf[ret - 1] = '\0';
         ntstdio_printf(&ntstdio, "%s .%09u\n", buf, tp.tv_nsec);
+        printf("%s .%09ld\n", buf, tp.tv_nsec);
         return 0;
+}
 …
+{
         if (argc != 2) {
                 ntstdio_printf(&ntstdio, "info sys\n");
                 ntstdio_printf(&ntstdio, "info ver\n");
+                printf("info sys\n");
+                printf("info ver\n");
                 return 0;
+        }
         if (strcmp(argv[1], "sys") == 0) {
                 ntstdio_printf(&ntstdio, TARGET_NAME" Monitor\n");
+                printf(TARGET_NAME" Monitor\n");
                 return 0;
+        }
 …
                 int mj, mn, bd;
                 ntshell_version(&mj, &mn, &bd);
                 ntstdio_printf(&ntstdio, "Version %d.%d.%d\n", mj, mn, bd);
                 return 0;
+        }
         ntstdio_printf(&ntstdio, "Unknown sub command found\n");
+                printf("Version %d.%d.%d\n", mj, mn, bd);
+                return 0;
+        }
+        printf("Unknown sub command found\n");
         return -1;
+}

asp3_tinet_ecnl_rx/trunk/ntshell/ntshell/usrcmd.h

-              r340
+              r374
 int usrcmd_exit(int argc, char **argv);
-void shell_abort();
-void shell_exit(int exitcd);
-int shell_kill(int pid, int sig);
 #endif

asp3_tinet_ecnl_rx/trunk/ntshell/ntshell/util/ntstdio.h

r337	r374
78	78	int pos;
79	79	unsigned int option;
	80	void *exinf;
80	81	} ntstdio_t;
81	82

asp3_tinet_ecnl_rx/trunk/ntshell/src/fdtable.c

-              r364
+              r374
 #include "kernel_cfg.h"
 #include <string.h>
+#define IO_TYPE_FREE    0
+#define IO_TYPE_SIO             1
+#define IO_TYPE_FILE    2
+#define IO_TYPE_DIR             3
+#define IO_TYPE_TCP             4
+#define IO_TYPE_UDP     5
+static struct _IO_FILE fd_table[8 * sizeof(FLGPTN)] = {
+        { 0, IO_TYPE_SIO, 0, stdio_close, stdin_read, stdio_write, sio_seek, sio_ioctl },
+        { 1, IO_TYPE_SIO, 0, stdio_close, stdio_read, stdout_write, sio_seek, sio_ioctl },
+        { 2, IO_TYPE_SIO, 0, stdio_close, stdio_read, stderr_write, sio_seek, sio_ioctl },
+#include "util/ntstdio.h"
+#include "hal/serial_api.h"
+static int stdio_close(struct SHELL_FILE *fp);
+static size_t stdio_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t stdio_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static size_t stdin_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t stdout_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static size_t stderr_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static void stdio_delete(struct SHELL_FILE *fp);
+static int sio_close(struct SHELL_FILE *fp);
+static size_t sio_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t sio_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static off_t sio_seek(struct SHELL_FILE *fp, off_t ofs, int org);
+static int sio_ioctl(struct SHELL_FILE *fp, int req, void *arg);
+static bool_t sio_readable(struct SHELL_FILE *fp);
+static void sio_delete(struct SHELL_FILE *fp);
+IO_TYPE IO_TYPE_STDIN = { stdio_close, stdin_read, stdio_write, sio_seek, sio_ioctl, sio_readable, stdio_delete };
+IO_TYPE IO_TYPE_STDOUT = { stdio_close, stdio_read, stdout_write, sio_seek, sio_ioctl, sio_readable, stdio_delete };
+IO_TYPE IO_TYPE_STDERR = { stdio_close, stdio_read, stderr_write, sio_seek, sio_ioctl, sio_readable, stdio_delete };
+IO_TYPE IO_TYPE_SIO = { sio_close, sio_read, sio_write, sio_seek, sio_ioctl, sio_readable, sio_delete };
+ntstdio_t ntstdio;
+static struct SHELL_FILE fd_table[8 * sizeof(FLGPTN)] = {
+        { 0, &IO_TYPE_STDIN, 0, .exinf = &ntstdio },
+        { 1, &IO_TYPE_STDOUT, 0, .exinf = &ntstdio },
+        { 2, &IO_TYPE_STDERR, 0,.exinf = &ntstdio },
 };
 #define fd_table_count (sizeof(fd_table) / sizeof(fd_table[0]))
+static int new_fd(int type, int id)
+{
+extern ntstdio_t ntstdio;
+serial_t stdio_uart;
+unsigned char ntstdio_xi(struct ntstdio_t *handle)
+{
+        return serial_getc((serial_t *)handle->exinf);
+}
+void ntstdio_xo(struct ntstdio_t *handle, unsigned char c)
+{
+        serial_putc((serial_t *)handle->exinf, c);
+}
+void sys_init(intptr_t exinf)
+{
+        sys_tlsf_init();
+        serial_init(&stdio_uart, STDIO_UART_TX, STDIO_UART_RX);
+        serial_baud(&stdio_uart, UART_BAUDRATE);
+        serial_format(&stdio_uart, 8, ParityNone, 1);
+        ntstdio_init(&ntstdio, NTSTDIO_OPTION_LINE_ECHO | NTSTDIO_OPTION_CANON | NTSTDIO_OPTION_LF_CRLF | NTSTDIO_OPTION_LF_CR, ntstdio_xi, ntstdio_xo);
+        ntstdio.exinf = (void *)&stdio_uart;
+}
+int stdio_close(struct SHELL_FILE *fp)
+{
+        return -EPERM;
+}
+size_t stdio_read(struct SHELL_FILE *fp, unsigned char *data, size_t len)
+{
+        return -EPERM;
+}
+size_t stdio_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
+        return -EPERM;
+}
+size_t stdin_read(struct SHELL_FILE *fp, unsigned char *data, size_t len)
+{
+        int i = 0;
+        while (i < len) {
+                int c = ntstdio_getc((struct ntstdio_t *)fp->exinf);
+                data[i++] = c;
+                if ((c == EOF) || (c == '\n'))
+                        break;
+        }
+        return i;
+}
+size_t stdout_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
+        for (int i = 0; i < len; i++) {
+                ntstdio_putc((struct ntstdio_t *)fp->exinf, data[i]);
+        }
+        return len;
+}
+size_t stderr_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
+        for (int i = 0; i < len; i++) {
+                ntstdio_putc((struct ntstdio_t *)fp->exinf, data[i]);
+        }
+        return len;
+}
+void stdio_delete(struct SHELL_FILE *fp)
+{
+}
+int sio_close(struct SHELL_FILE *fp)
+{
+        return -EPERM;
+}
+size_t sio_read(struct SHELL_FILE *fp, unsigned char *data, size_t len)
+{
+        return -EPERM;
+}
+size_t sio_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
+        return -EPERM;
+}
+off_t sio_seek(struct SHELL_FILE *fp, off_t ofs, int org)
+{
+        return -EPERM;
+}
+int sio_ioctl(struct SHELL_FILE *fp, int request, void *arg)
+{
+        switch (request) {
+        case TIOCGWINSZ:
+                return 0;
+        case TCGETS:
+                return sio_tcgetattr(fp->fd, (struct termios *)arg);
+        case TCSETS + TCSANOW:
+        case TCSETS + TCSADRAIN:
+        case TCSETS + TCSAFLUSH:
+                return sio_tcsetattr(fp->fd, request - TCSETS, (const struct termios *)arg);
+        }
+        return -EINVAL;
+}
+bool_t sio_readable(struct SHELL_FILE *fp)
+{
+        return fp->readevt_w != fp->readevt_r;
+}
+void sio_delete(struct SHELL_FILE *fp)
+{
+        free((serial_t *)((struct ntstdio_t *)fp->exinf)->exinf);
+        ((struct ntstdio_t *)fp->exinf)->exinf = NULL;
+        free((struct ntstdio_t *)fp->exinf);
+        fp->exinf = NULL;
+}
+struct SHELL_FILE *new_fp(IO_TYPE *type, int id, int writable)
+{
+        struct SHELL_FILE *fp = NULL;
+        ER ret;
+        ret = wai_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "wai_sem => %d", ret);
+        }
         for (int fd = 3; fd < fd_table_count; fd++) {
                 struct _IO_FILE *fp = &fd_table[fd];
                 if (fp->type != IO_TYPE_FREE)
+                fp = &fd_table[fd];
+                if (fp->type != NULL)
                         continue;
                 memset(fp, 0, sizeof(struct _IO_FILE));
+                memset(fp, 0, sizeof(struct SHELL_FILE));
                 fp->fd = fd;
                 fp->type = type;
                 fp->handle = id;
+                return fd;
+        }
+        return -ENOMEM;
+}
+static struct _IO_FILE *id_to_fd(int type, int id)
+{
+                fp->writable = writable;
+                break;
+        }
+        ret = sig_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "sig_sem => %d", ret);
+        }
+        return fp;
+}
+struct SHELL_FILE *id_to_fd(IO_TYPE *type, int id)
+{
+        struct SHELL_FILE *fp = NULL;
+        ER ret;
+        ret = wai_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "wai_sem => %d", ret);
+        }
         for (int fd = 3; fd < fd_table_count; fd++) {
                 struct _IO_FILE *fp = &fd_table[fd];
+                fp = &fd_table[fd];
                 if ((fp->type == type) && (fp->handle == id))
+                        return fp;
+        }
+        return NULL;
+}
+static int delete_fd(int type, int id)
+{
+        struct _IO_FILE *fp = id_to_fd(type, id);
+                        break;
+        }
+        ret = sig_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "sig_sem => %d", ret);
+        }
+        return fp;
+}
+int delete_fd_by_id(IO_TYPE *type, int id)
+{
+        struct SHELL_FILE *fp = id_to_fd(type, id);
         if (fp == NULL)
                 return -EBADF;
 …
+}
+int delete_fp(struct _IO_FILE *fp)
+{
+        free(fp->pfile);
+        fp->pfile = NULL;
+        free(fp->pdir);
+        fp->pdir = NULL;
+        free(fp->psock);
+        fp->psock = NULL;
+        memset(fp, 0, sizeof(struct _IO_FILE));
+int delete_fp(struct SHELL_FILE *fp)
+{
+        ER ret;
+        fp->type->delete(fp);
+        ret = wai_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "wai_sem => %d", ret);
+        }
+        memset(fp, 0, sizeof(struct SHELL_FILE));
+        ret = sig_sem(SEM_FILEDESC);
+        if (ret < 0) {
+                syslog(LOG_ERROR, "sig_sem => %d", ret);
+        }
         return 0;
+}
 struct _IO_FILE *fd_to_fp(int fd)
+struct SHELL_FILE *fd_to_fp(int fd)
+{
         if ((fd < 0) || (fd >= fd_table_count))
 …
+}
+struct _IO_FILE *new_sio_fd(int sioid)
+{
+        int fd = new_fd(IO_TYPE_SIO, sioid);
+        if ((fd < 0) || (fd >= fd_table_count))
+                return NULL;
+        struct _IO_FILE *fp = &fd_table[fd];
+        fp->close = sio_close;
+        fp->read = sio_read;
+        fp->write = sio_write;
+        fp->seek = sio_seek;
+        fp->ioctl = sio_ioctl;
+        fp->writable = 1;
+        return fp;
+}
+int delete_sio_fd(int sioid)
+{
+        return delete_fd(IO_TYPE_SIO, sioid);
+}
+struct _IO_FILE *sioid_to_fd(int sioid)
+{
+        return id_to_fd(IO_TYPE_SIO, sioid);
+}
+struct _IO_FILE *new_file_fd(int fileid)
+{
+        int fd = new_fd(IO_TYPE_FILE, fileid);
+        if ((fd < 0) || (fd >= fd_table_count))
+                return NULL;
+        struct _IO_FILE *fp = &fd_table[fd];
+        fp->close = file_close;
+        fp->read = file_read;
+        fp->write = file_write;
+        fp->seek = file_seek;
+        fp->ioctl = file_ioctl;
+        fp->writable = 1;
+        fp->pfile = malloc(sizeof(FIL));
+        memset(fp->pfile, 0, sizeof(FIL));
+        return fp;
+}
+int delete_file_fd(int fileid)
+{
+        return delete_fd(IO_TYPE_FILE, fileid);
+}
+struct _IO_FILE *fileid_to_fd(int fileid)
+{
+        return id_to_fd(IO_TYPE_FILE, fileid);
+}
+struct _IO_FILE *new_dir_fd(int fileid)
+{
+        int fd = new_fd(IO_TYPE_DIR, fileid);
+        if ((fd < 0) || (fd >= fd_table_count))
+                return NULL;
+        struct _IO_FILE *fp = &fd_table[fd];
+        fp->close = dir_close;
+        fp->read = dir_read;
+        fp->write = dir_write;
+        fp->seek = dir_seek;
+        fp->ioctl = dir_ioctl;
+        fp->writable = 0;
+        fp->pdir = malloc(sizeof(struct _IO_DIR));
+        memset(fp->pdir, 0, sizeof(struct _IO_DIR));
+        return fp;
+}
+int delete_dir_fd(int dirid)
+{
+        return delete_fd(IO_TYPE_DIR, dirid);
+}
+struct _IO_FILE *dirid_to_fd(int dirid)
+{
+        return id_to_fd(IO_TYPE_DIR, dirid);
+}
+#ifndef NTSHELL_NO_SOCKET
+struct _IO_FILE *new_tcp_fd(int tcpid)
+{
+        int fd = new_fd(IO_TYPE_TCP, tcpid);
+        if ((fd < 0) || (fd >= fd_table_count))
+                return NULL;
+        struct _IO_FILE *fp = &fd_table[fd];
+        fp->close = tcp_fd_close;
+        fp->read = tcp_fd_read;
+        fp->write = tcp_fd_write;
+        fp->seek = tcp_fd_seek;
+        fp->ioctl = tcp_fd_ioctl;
+        fp->writable = 0;
+        fp->psock = malloc(sizeof(socket_t));
+        memset(fp->psock, 0, sizeof(socket_t));
+        return fp;
+}
+int delete_tcp_fd(int tcpid)
+{
+        return delete_fd(IO_TYPE_TCP, tcpid);
+}
+struct _IO_FILE *tcpid_to_fd(int tcpid)
+{
+        return id_to_fd(IO_TYPE_TCP, tcpid);
+}
+struct _IO_FILE *new_udp_fd(int udpid)
+{
+        int fd = new_fd(IO_TYPE_UDP, udpid);
+        if ((fd < 0) || (fd >= fd_table_count))
+                return NULL;
+        struct _IO_FILE *fp = &fd_table[fd];
+        fp->close = udp_fd_close;
+        fp->read = udp_fd_read;
+        fp->write = udp_fd_write;
+        fp->seek = udp_fd_seek;
+        fp->ioctl = udp_fd_ioctl;
+        fp->writable = 1;
+        fp->psock = malloc(sizeof(socket_t));
+        memset(fp->psock, 0, sizeof(socket_t));
+        return fp;
+}
+int delete_udp_fd(int udpid)
+{
+        return delete_fd(IO_TYPE_UDP, udpid);
+}
+struct _IO_FILE *udpid_to_fd(int udpid)
+{
+        return id_to_fd(IO_TYPE_UDP, udpid);
+}
+#endif
+void memor(void *dst, void *src, size_t len)
+void memand(void *dst, void *src, size_t len)
+{
         uint8_t *d = (uint8_t *)dst;
 …
         while (s < e) {
                 *d++ |= *s++;
+                *d++ &= *s++;
+        }
+}
 …
         ret = shell_get_evts(&evts, tmout);
-        if (rfds != NULL)
-                memset(rfds, 0, sizeof(fd_set));
-        if (wfds != NULL)
-                memset(wfds, 0, sizeof(fd_set));
-        if (efds != NULL)
-                memset(efds, 0, sizeof(fd_set));
         if (ret == E_OK) {
                 if (rfds != NULL)
                         memor(rfds, &evts.readfds, sizeof(fd_set));
+                        memand(rfds, &evts.readfds, sizeof(fd_set));
                 if (wfds != NULL)
                         memor(wfds, &evts.writefds, sizeof(fd_set));
+                        memand(wfds, &evts.writefds, sizeof(fd_set));
                 if (efds != NULL)
                         memor(efds, &evts.errorfds, sizeof(fd_set));
+                        memand(efds, &evts.errorfds, sizeof(fd_set));
                 return evts.count;
+        }
         if (ret == E_TMOUT) {
+                if (rfds != NULL)
+                        memset(rfds, 0, sizeof(fd_set));
+                if (wfds != NULL)
+                        memset(wfds, 0, sizeof(fd_set));
+                if (efds != NULL)
+                        memset(efds, 0, sizeof(fd_set));
                 return 0;
+        }
 …
+{
         int fd = STDIN_FILENO;
+        struct _IO_FILE *fp = &fd_table[fd];
+        T_SERIAL_RPOR rpor;
+        struct SHELL_FILE *fp = &fd_table[fd];
         FLGPTN flgptn = 0;
+        ER ret = serial_ref_por(SIO_PORTID, &rpor);
+        if (ret != E_OK)
+                return;
+        if (rpor.reacnt != 0) {
+        if (serial_readable((serial_t *)((struct ntstdio_t *)fp->exinf)->exinf)) {
                 if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
                 FD_SET(fd, (fd_set *)&flgptn);
+        }
         if (rpor.wricnt != 0) {
+        if (serial_writable((serial_t *)((struct ntstdio_t *)fp->exinf)->exinf)) {
                 if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
 …
+{
         int fd = STDIN_FILENO;
+        struct _IO_FILE *fp = &fd_table[fd];
+        T_SERIAL_RPOR rpor;
+        struct SHELL_FILE *fp = &fd_table[fd];
         *flgptn = 0;
+        ER ret = serial_ref_por(SIO_PORTID, &rpor);
+        if (ret != E_OK)
+                return;
+        if (rpor.reacnt != 0) {
+        if (serial_readable((serial_t *)((struct ntstdio_t *)fp->exinf)->exinf)) {
                 if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
                 FD_SET(fd, (fd_set *)flgptn);
+        }
         if (rpor.wricnt != 0) {
+        if (serial_writable((serial_t *)((struct ntstdio_t *)fp->exinf)->exinf)) {
                 if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
 …
+        }
+}
-#ifndef NTSHELL_NO_SOCKET
-ER socket_tcp_callback(ID cepid, FN fncd, void *p_parblk)
+{
-        struct _IO_FILE *fp = tcpid_to_fd(cepid);
-        FLGPTN flgptn = 0;
-        ER ret;
-        int len;
-        if (fp == NULL)
-                return E_PAR;
-        int fd = fp->fd;
-        FD_SET(fd, (fd_set *)&flgptn);
-        switch (fncd) {
-        case TFN_TCP_RCV_BUF:
-                len = *(int *)p_parblk;
-                if (len <= 0)
-                        return E_OK;
-                ret = wai_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
-                fp->psock->len += len;
-                ret = sig_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
-                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_TCP_RCV_DAT:
-                len = *(int *)p_parblk;
-                if (len <= 0)
-                        return E_OK;
-                ret = wai_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
-                fp->psock->len += len;
-                ret = sig_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
-                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_TCP_SND_DAT:
-                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_TCP_CAN_CEP:
-                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_TCP_DEL_REP:
-                delete_tcp_rep(cepid);
-                return E_OK;
-        case TFN_TCP_DEL_CEP:
-                delete_tcp_fd(cepid);
-                return E_OK;
-        default:
-                return E_OK;
+        }
+}
-ER socket_udp_callback(ID cepid, FN fncd, void *p_parblk)
+{
-        struct _IO_FILE *fp = udpid_to_fd(cepid);
-        FLGPTN flgptn = 0;
-        int len;
-        if (fp == NULL)
-                return E_PAR;
-        int fd = fp->fd;
-        FD_SET(fd, (fd_set *)&flgptn);
-        switch (fncd) {
-        case TEV_UDP_RCV_DAT:
+        {
-                T_UDP_RCV_DAT_PARA *udppara = (T_UDP_RCV_DAT_PARA *)p_parblk;
-                len = udppara->len;
-                if (len <= 0)
-                        return E_OK;
-                ER ret = wai_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
-                fp->psock->len = len;
-                if (fp->psock->input != NULL) {
-                        ret = rel_net_buf(fp->psock->input);
-                        if (ret < 0) {
-                                syslog(LOG_ERROR, "rel_net_buf => %d", ret);
+                        }
+                }
-                fp->psock->input = udppara->input;
-                fp->psock->buf = GET_UDP_SDU(udppara->input, udppara->off);
-                memset(&fp->psock->raddr4, 0, sizeof(fp->psock->raddr4));
-                fp->psock->raddr4.sin_family = AF_INET;
-                fp->psock->raddr4.sin_port = htons(udppara->rep4.portno);
-                fp->psock->raddr4.sin_addr.s_addr = htonl(udppara->rep4.ipaddr);
-                udppara->input->flags |= NB_FLG_NOREL_IFOUT;
-                ret = sig_sem(SEM_FILEDESC);
-                if (ret < 0) {
-                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
-                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
+        }
-        case TFN_UDP_CRE_CEP:
-                return E_OK;
-        case TFN_UDP_RCV_DAT:
-                len = *(int *)p_parblk;
-                if (len <= 0)
-                        return E_OK;
-                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_UDP_SND_DAT:
-                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_UDP_CAN_CEP:
-                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
-                set_flg(FLG_SELECT_WAIT, flgptn);
-                return E_OK;
-        case TFN_UDP_DEL_CEP:
-                delete_udp_fd(cepid);
-                return E_OK;
-        default:
-                return E_OK;
+        }
+}
-#endif
 ER shell_get_evts(struct fd_events *evts, TMO tmout)
 …
                 ER ret;
                 FLGPTN waitptn, flgptn, readfds = 0, writefds = 0;
                 struct _IO_FILE *fp = NULL;
+                struct SHELL_FILE *fp = NULL;
                 stdio_update_evts();
 …
 #ifndef NTSHELL_NO_SOCKET
                         if (FD_ISSET(fd, &evts->readfds)) {
+                                if ((fp->type == IO_TYPE_TCP) && (fp->psock->cepid != 0)) {
+                                        if (fp->psock->len == 0) {
+                                                ret = tcp_rcv_buf(fp->psock->cepid, &fp->psock->input, TMO_NBLK);
+                                                if ((ret != E_WBLK) && (ret != E_OBJ) && (ret < 0)) {
+                                                        syslog(LOG_ERROR, "tcp_rcv_buf => %d", ret);
+                                                        //return ret;
+                                                }
+                                                if (ret > 0) {
+                                                        ret = wai_sem(SEM_FILEDESC);
+                                                        if (ret < 0) {
+                                                                syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                                        }
+                                                        fp->psock->len += ret;
+                                                        ret = sig_sem(SEM_FILEDESC);
+                                                        if (ret < 0) {
+                                                                syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                                        }
+                                                }
+                                        }
+                                        else ret = 1;
+                                        if (ret > 0) {
+                                                FD_SET(fd, (fd_set *)&readfds);
+                                                count++;
+                                                if (fp->readevt_w == fp->readevt_r) fp->readevt_r--;
+                                        }
+                                }
+                                else if ((fp->type == IO_TYPE_UDP) && (fp->psock->cepid != 0)) {
+                                        if (fp->psock->input != NULL) {
+                                                FD_SET(fd, (fd_set *)&readfds);
+                                                count++;
+                                                if (fp->readevt_w == fp->readevt_r) fp->readevt_r--;
+                                        }
+                                if (fp->type->readable(fp)) {
+                                        FD_SET(fd, (fd_set *)&readfds);
+                                        count++;
+                                        if (fp->readevt_w == fp->readevt_r) fp->readevt_r--;
+                                }
                                 else {
 …
 void clean_fd()
+{
         struct _IO_FILE *fp = NULL;
+        struct SHELL_FILE *fp = NULL;
         for (int fd = 3; fd < fd_table_count; fd++) {
                 fp = &fd_table[fd];
 …
                         continue;
                 fp->close(fp);
+                fp->type->close(fp);
                 delete_fp(fp);
 …
 int shell_ioctl(int fd, int request, void *arg)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         return fp->ioctl(fp, request, arg);
+        return fp->type->ioctl(fp, request, arg);
+}

asp3_tinet_ecnl_rx/trunk/ntshell/src/io_stub.c

-              r337
+              r374
 /*
  *  TOPPERS ECHONET Lite Communication Middleware
+ *
+ *
  *  Copyright (C) 2017 Cores Co., Ltd. Japan
+ *
+ *
  *  上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
  *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 …
  *      由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
  *      免責すること．
+ *
+ *
  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 …
  *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
  *  の責任を負わない．
+ *
+ *
  *  @(#) $Id$
  */
 …
 #include <sil.h>
 #include <string.h>
+#include "syssvc/serial.h"
 #include "syssvc/syslog.h"
 #include "socket_stub.h"
 …
 #include "core/ntlibc.h"
 #include "kernel_cfg.h"
+#include "target_syssvc.h"
 int fresult2errno(FRESULT res)
 …
+}
+int shell_open(const char * path, int flags, void *arg)
+{
+        FRESULT res;
+        struct _IO_FILE *fp;
+static int file_close(struct SHELL_FILE *fp);
+static size_t file_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t file_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static off_t file_seek(struct SHELL_FILE *fp, off_t ofs, int org);
+static int file_ioctl(struct SHELL_FILE *fp, int req, void *arg);
+static bool_t file_readable(struct SHELL_FILE *fp);
+static void file_delete(struct SHELL_FILE *fp);
+static int dir_close(struct SHELL_FILE *fp);
+static size_t dir_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t dir_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static off_t dir_seek(struct SHELL_FILE *fp, off_t ofs, int org);
+static int dir_ioctl(struct SHELL_FILE *fp, int req, void *arg);
+static bool_t dir_readable(struct SHELL_FILE *fp);
+static void dir_delete(struct SHELL_FILE *fp);
+IO_TYPE IO_TYPE_FILE = { file_close, file_read, file_write, file_seek, file_ioctl, file_readable, file_delete };
+IO_TYPE IO_TYPE_DIR = { dir_close, dir_read, dir_write, dir_seek, dir_ioctl, dir_readable, dir_delete };
+int shell_open(const char *path, int flags, void *arg)
+{
+        FRESULT res;
+        struct SHELL_FILE *fp;
         if (flags & O_DIRECTORY) {
                 fp = new_dir_fd(0);
+                fp = new_fp(&IO_TYPE_DIR, 0, 0);
                 if (fp == NULL)
                         return -ENOMEM;
+                DIR *dir = &fp->pdir->dir;
+                fp->exinf = malloc(sizeof(struct SHELL_DIR));
+                memset(fp->exinf, 0, sizeof(struct SHELL_DIR));
+                FATFS_DIR *dir = &((struct SHELL_DIR *)fp->exinf)->dir;
                 FRESULT res;
                 if ((res = f_opendir(dir, path)) != FR_OK) {
 …
+        }
         fp = new_file_fd(0);
+        fp = new_fp(&IO_TYPE_FILE, 0, 1);
         if (fp == NULL)
                 return -ENOMEM;
+        fp->exinf = malloc(sizeof(FIL));
+        memset(fp->exinf, 0, sizeof(FIL));
         BYTE fmd = 0;
 …
+        }
         if ((res = f_open(fp->pfile, path, fmd)) == FR_OK) {
+        if ((res = f_open((FIL *)fp->exinf, path, fmd)) == FR_OK) {
                 fp->handle = fp->fd;
                 return fp->fd;
 …
+}
 int file_close(struct _IO_FILE *fp)
+{
         FRESULT res;
         if ((res = f_close(fp->pfile)) == FR_OK) {
+int file_close(struct SHELL_FILE *fp)
+{
+        FRESULT res;
+        if ((res = f_close((FIL *)fp->exinf)) == FR_OK) {
                 return 0;
+        }
 …
+}
 size_t file_read(struct _IO_FILE *fp, unsigned char *data, size_t len)
+size_t file_read(struct SHELL_FILE *fp, unsigned char *data, size_t len)
+{
         unsigned int ret = 0;
         FRESULT res;
         if ((res = f_read(fp->pfile, data, len, &ret)) != FR_OK)
+        if ((res = f_read((FIL *)fp->exinf, data, len, &ret)) != FR_OK)
                 return -EIO;
 …
+}
 size_t file_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+size_t file_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
         unsigned int ret = 0;
         FRESULT res;
         if ((res = f_write(fp->pfile, data, len, &ret)) != FR_OK)
+        if ((res = f_write((FIL *)fp->exinf, data, len, &ret)) != FR_OK)
                 return -EIO;
 …
+}
 off_t file_seek(struct _IO_FILE *fp, off_t ptr, int dir)
+off_t file_seek(struct SHELL_FILE *fp, off_t ptr, int dir)
+{
         switch (dir) {
 …
         FRESULT res;
         if ((res = f_seek(fp->pfile, ptr, dir)) != FR_OK)
+        if ((res = f_seek((FIL *)fp->exinf, ptr, dir)) != FR_OK)
                 return -EIO;
         return fp->pfile->fptr;
+}
 int file_ioctl(struct _IO_FILE *fp, int req, void *arg)
+        return ((FIL *)fp->exinf)->fptr;
+}
+int file_ioctl(struct SHELL_FILE *fp, int req, void *arg)
+{
         DRESULT res;
         if ((res = disk_ioctl(fp->pfile->fs->drv, req, arg) != RES_OK))
+        if ((res = disk_ioctl(((FIL *)fp->exinf)->fs->drv, req, arg) != RES_OK))
                 return -EINVAL;
 …
+}
+bool_t file_readable(struct SHELL_FILE *fp)
+{
+        return fp->readevt_w != fp->readevt_r;
+}
+void file_delete(struct SHELL_FILE *fp)
+{
+        free((FIL *)fp->exinf);
+        fp->exinf = NULL;
+}
 int shell_close(int fd)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         int ret = fp->close(fp);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if (fp == NULL)
+                return -EBADF;
+        int ret = fp->type->close(fp);
         delete_fp(fp);
 …
 ssize_t shell_read(int fd, void *data, size_t len)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         return fp->read(fp, (unsigned char *)data, len);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if (fp == NULL)
+                return -EBADF;
+        return fp->type->read(fp, (unsigned char *)data, len);
+}
 …
+{
         int result = 0;
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
 …
         const struct iovec *end = &iov[iovcnt];
         for (; iov < end; iov++) {
                 result += fp->read(fp, (unsigned char *)iov->iov_base, iov->iov_len);
+                result += fp->type->read(fp, (unsigned char *)iov->iov_base, iov->iov_len);
+        }
 …
 ssize_t shell_write(int fd, const void *data, size_t len)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         return fp->write(fp, (unsigned char *)data, len);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if (fp == NULL)
+                return -EBADF;
+        return fp->type->write(fp, (unsigned char *)data, len);
+}
 …
+{
         int result = 0;
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
 …
         const struct iovec *end = &iov[iovcnt];
         for (; iov < end; iov++) {
                 result += fp->write(fp, (unsigned char *)iov->iov_base, iov->iov_len);
+                result += fp->type->write(fp, (unsigned char *)iov->iov_base, iov->iov_len);
+        }
 …
 int shell_llseek(int fd, off_t ptr, off_t *result, int dir)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         off_t ret = fp->seek(fp, ptr, dir);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if (fp == NULL)
+                return -EBADF;
+        off_t ret = fp->type->seek(fp, ptr, dir);
         if (ret < 0)
                 return ret;
 …
 int shell_fstat(int fd, struct stat * st)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
 …
 int shell_fsync(int fd)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
 …
 int shell_ftruncate(int fd, off_t length)
+{
         struct _IO_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         FRESULT res;
         if ((res = f_truncate(fp->pfile)) != FR_OK)
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if (fp == NULL)
+                return -EBADF;
+        FRESULT res;
+        if ((res = f_truncate((FIL *)fp->exinf)) != FR_OK)
                 return fresult2errno(res);
 …
+}
+extern IO_TYPE IO_TYPE_SIO;
 int sio_tcgetattr(int fd, struct termios *termios)
+{
+        extern ntstdio_t ntstdio;
+        if (fd == STDIN_FILENO) {
+                memset(termios, 0, sizeof(*termios));
+                if (ntstdio.option & NTSTDIO_OPTION_LINE_ECHO) {
+                        termios->c_lflag |= ECHO;
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if ((fp == NULL) || (fp->type != &IO_TYPE_SIO))
+                return -EBADF;
+        ntstdio_t *ntstdio = (ntstdio_t *)fp->exinf;
+        memset(termios, 0, sizeof(*termios));
+        if (ntstdio->option & NTSTDIO_OPTION_LINE_ECHO) {
+                termios->c_lflag |= ECHO;
+        }
+        else {
+                termios->c_lflag &= ~ECHO;
+        }
+        if (ntstdio->option & NTSTDIO_OPTION_CANON) {
+                termios->c_lflag |= ICANON;
+        }
+        else {
+                termios->c_lflag &= ~ICANON;
+        }
+        if (ntstdio->option & NTSTDIO_OPTION_LF_CR) {
+                termios->c_iflag |= INLCR;
+        }
+        else {
+                termios->c_iflag &= ~INLCR;
+        }
+        if (ntstdio->option & NTSTDIO_OPTION_LF_CRLF) {
+                termios->c_oflag |= ONLCR;
+        }
+        else {
+                termios->c_oflag &= ~ONLCR;
+        }
+        return 0;
+}
+int sio_tcsetattr(int fd, int optional_actions, const struct termios *termios)
+{
+        struct SHELL_FILE *fp = fd_to_fp(fd);
+        if ((fp == NULL) || (fp->type != &IO_TYPE_SIO))
+                return -EBADF;
+        ntstdio_t *ntstdio = (ntstdio_t *)fp->exinf;
+        if (optional_actions == TCSANOW) {
+                if (termios->c_lflag & ECHO) {
+                        ntstdio->option |= NTSTDIO_OPTION_LINE_ECHO;
+                }
                 else {
                         termios->c_lflag &= ~ECHO;
+                }
                 if (ntstdio.option & NTSTDIO_OPTION_CANON) {
                         termios->c_lflag |= ICANON;
+                        ntstdio->option &= ~NTSTDIO_OPTION_LINE_ECHO;
+                }
+                if (termios->c_lflag & ICANON) {
+                        ntstdio->option |= NTSTDIO_OPTION_CANON;
+                }
                 else {
                         termios->c_lflag &= ~ICANON;
+                }
                 if (ntstdio.option & NTSTDIO_OPTION_LF_CR) {
                         termios->c_iflag |= INLCR;
+                        ntstdio->option &= ~NTSTDIO_OPTION_CANON;
+                }
+                if (termios->c_iflag & INLCR) {
+                        ntstdio->option |= NTSTDIO_OPTION_LF_CR;
+                }
                 else {
                         termios->c_iflag &= ~INLCR;
+                }
                 if (ntstdio.option & NTSTDIO_OPTION_LF_CRLF) {
                         termios->c_oflag |= ONLCR;
+                        ntstdio->option &= ~NTSTDIO_OPTION_LF_CR;
+                }
+                if (termios->c_oflag & ONLCR) {
+                        ntstdio->option |= NTSTDIO_OPTION_LF_CRLF;
+                }
                 else {
                         termios->c_oflag &= ~ONLCR;
+                        ntstdio->option &= ~NTSTDIO_OPTION_LF_CRLF;
+                }
                 return 0;
+        }
+        shell_abort();
+        return 0;
+}
+int sio_tcsetattr(int fd, int optional_actions, const struct termios *termios)
+{
+        extern ntstdio_t ntstdio;
+        if ((fd == STDIN_FILENO) && (optional_actions == TCSANOW)) {
+                if (termios->c_lflag & ECHO) {
+                        ntstdio.option |= NTSTDIO_OPTION_LINE_ECHO;
+                }
+                else {
+                        ntstdio.option &= ~NTSTDIO_OPTION_LINE_ECHO;
+                }
+                if (termios->c_lflag & ICANON) {
+                        ntstdio.option |= NTSTDIO_OPTION_CANON;
+                }
+                else {
+                        ntstdio.option &= ~NTSTDIO_OPTION_CANON;
+                }
+                if (termios->c_iflag & INLCR) {
+                        ntstdio.option |= NTSTDIO_OPTION_LF_CR;
+                }
+                else{
+                        ntstdio.option &= ~NTSTDIO_OPTION_LF_CR;
+                }
+                if (termios->c_oflag & ONLCR) {
+                        ntstdio.option |= NTSTDIO_OPTION_LF_CRLF;
+                }
+                else {
+                        ntstdio.option &= ~NTSTDIO_OPTION_LF_CRLF;
+                }
+                return 0;
+        }
         shell_abort();
         return 0;
 …
         FILINFO fi;
         FRESULT ret;
 #if _USE_LFN
         static char lfn[_MAX_LFN + 1];   /* Buffer to store the LFN */
+#if FF_USE_LFN
+        static char lfn[FF_MAX_LFN + 1];   /* Buffer to store the LFN */
         fi.lfname = lfn;
         fi.lfsize = sizeof lfn;
 #endif
         if (strcmp(path, ".") == 0) {
                 char cwd[_MAX_LFN];
+                char cwd[FF_MAX_LFN];
                 if ((ret = f_getcwd(cwd, sizeof(cwd))) != FR_OK) {
                         return fresult2errno(ret);
 …
         st->st_mtim.tv_nsec = 0;
         st->st_mtim.tv_sec = fi.fdate + fi.ftime;
         st->st_mode  = (S_IRUSR | S_IRGRP | S_IROTH);
+        st->st_mode = (S_IRUSR | S_IRGRP | S_IROTH);
         st->st_mode |= (fi.fattrib & AM_RDO) ? 0 : (S_IWUSR | S_IWGRP | S_IWOTH);
         st->st_mode |= (fi.fattrib & (AM_DIR | AM_VOL)) ? S_IFDIR : S_IFREG;
 …
         BYTE mask = AM_RDO | AM_SYS; // AM_ARC, AM_HID
         if(mode & S_IREAD) {
                 if((mode & S_IWRITE) == 0) {
+        if (mode & S_IREAD) {
+                if ((mode & S_IWRITE) == 0) {
                         attr |= AM_RDO;
+                }
 …
+        }
         if((res = f_chmod(path, attr, mask)) != FR_OK) {
+        if ((res = f_chmod(path, attr, mask)) != FR_OK) {
                 return fresult2errno(res);
+        }
 …
         BYTE mask = AM_RDO | AM_SYS; // AM_ARC, AM_HID
         if(mode & S_IREAD) {
                 if((mode & S_IWRITE) == 0) {
+        if (mode & S_IREAD) {
+                if ((mode & S_IWRITE) == 0) {
                         attr |= AM_RDO;
+                }
 …
+        }
         if((res = f_chmod(path, attr, mask)) != FR_OK) {
+        if ((res = f_chmod(path, attr, mask)) != FR_OK) {
                 return fresult2errno(res);
+        }
 …
+{
         FRESULT ret;
         if((ret = f_getcwd(buf, size)) != FR_OK) {
+        if ((ret = f_getcwd(buf, size)) != FR_OK) {
                 return NULL;
+        }
 …
+}
 int dir_close(struct _IO_FILE *fp)
+{
         FRESULT res;
         if ((res = f_closedir(&fp->pdir->dir)) != FR_OK) {
+int dir_close(struct SHELL_FILE *fp)
+{
+        FRESULT res;
+        if ((res = f_closedir(&((struct SHELL_DIR *)fp->exinf)->dir)) != FR_OK) {
                 return fresult2errno(res);
+        }
 …
                 return -EINVAL;
         struct _IO_FILE *fp = fd_to_fp(fd);
+        struct SHELL_FILE *fp = fd_to_fp(fd);
         if (fp == NULL)
                 return -EBADF;
         FILINFO fno;
 #if _USE_LFN
         static char lfn[_MAX_LFN + 1];   /* Buffer to store the LFN */
+#if FF_USE_LFN
+        static char lfn[FF_MAX_LFN + 1];   /* Buffer to store the LFN */
         fno.lfname = lfn;
         fno.lfsize = sizeof lfn;
 #endif
         FRESULT res;
         if ((res = f_readdir(&fp->pdir->dir, &fno)) != FR_OK || fno.fname[0] == '\0') {
+        if ((res = f_readdir(&((struct SHELL_DIR *)fp->exinf)->dir, &fno)) != FR_OK || fno.fname[0] == '\0') {
                 return fresult2errno(res);
+        }
         memset(de, 0, sizeof(*de));
 #if _USE_LFN
+#if FF_USE_LFN
         ntlibc_strlcpy(de->d_name, *fno.lfname ? fno.lfname : fno.fname, sizeof(de->d_name));
 #else
 …
+}
 size_t dir_read(struct _IO_FILE *fp, unsigned char *data, size_t len)
+size_t dir_read(struct SHELL_FILE *fp, unsigned char *data, size_t len)
+{
         return -EPERM;
+}
 size_t dir_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+size_t dir_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len)
+{
         return -EPERM;
+}
 off_t dir_seek(struct _IO_FILE *fp, off_t ptr, int dir)
+off_t dir_seek(struct SHELL_FILE *fp, off_t ptr, int dir)
+{
         FRESULT res;
 …
         if (ptr == 0) {
                 if ((res = f_rewinddir(&fp->pdir->dir)) != FR_OK) {
+                if ((res = f_rewinddir(&((struct SHELL_DIR *)fp->exinf)->dir)) != FR_OK) {
                         return fresult2errno(res);
+                }
 …
         else {
                 FILINFO fno;
 #if _USE_LFN
                 static char lfn[_MAX_LFN + 1];   /* Buffer to store the LFN */
+#if FF_USE_LFN
+                static char lfn[FF_MAX_LFN + 1];   /* Buffer to store the LFN */
                 fno.lfname = lfn;
                 fno.lfsize = sizeof lfn;
 #endif
                 if ((res = f_rewinddir(&fp->pdir->dir)) != FR_OK) {
+                if ((res = f_rewinddir(&((struct SHELL_DIR *)fp->exinf)->dir)) != FR_OK) {
                         return fresult2errno(res);
+                }
                 for (int i = 0; i < ptr; i++) {
                         if ((res = f_readdir(&fp->pdir->dir, &fno)) != FR_OK || fno.fname[0] == '\0') {
+                        if ((res = f_readdir(&((struct SHELL_DIR *)fp->exinf)->dir, &fno)) != FR_OK || fno.fname[0] == '\0') {
                                 return fresult2errno(res);
+                        }
 …
+}
 int dir_ioctl(struct _IO_FILE *fp, int req, void *arg)
+int dir_ioctl(struct SHELL_FILE *fp, int req, void *arg)
+{
         return -EINVAL;
+}
+bool_t dir_readable(struct SHELL_FILE *fp)
+{
+        return fp->readevt_w != fp->readevt_r;
+}
+void dir_delete(struct SHELL_FILE *fp)
+{
+        free((struct SHELL_DIR *)fp->exinf);
+        fp->exinf = NULL;
+}
 …
+{
         //if ((addr >= (void *)&_HeapBase) && (addr + len < (void *)&_HeapLimit)) {
                 return 0;
         //}
         //return -1;
+        return 0;
+//}
+//return -1;
+}
 …
 static pool_t sys_pool;
 void sys_init(void)
+void sys_tlsf_init(void)
+{
         sys_tlsf = tlsf_create(&_HeapBase);

asp3_tinet_ecnl_rx/trunk/ntshell/src/net_misc.c

-              r359
+              r374
 #include "kernel_cfg.h"
 #include "tinet_cfg.h"
+#include "util/ntstdio.h"
+extern ntstdio_t ntstdio;
+#include <stdio.h>
 T_DHCP4_CLI_CONTEXT *dhcp4_cli_initialize(ID tskid, ID cepid);
 …
         get_tid(&nc->tskid);
         ntstdio_printf(&ntstdio, "[NET MISC:%d,%d] started.", nc->tskid, (ID)exinf);
+        printf("[NET MISC:%d,%d] started.", nc->tskid, (ID)exinf);
         /* 初期化 */
 …
         ret = get_tim(&time);
         if (ret != E_OK) {
                 ntstdio_printf(&ntstdio, "[NET MISC,%d] get_tim error: %7lu,%s",
+                printf("[NET MISC,%d] get_tim error: %7lu,%s",
                         nc->cepid, time / SYSTIM_HZ, itron_strerror(ret));
                 return;
 …
                 error = tslp_tsk(timer);
                 if ((error != E_OK) && (error != E_TMOUT)) {
                         ntstdio_printf(&ntstdio, "[NET MISC,%d] tslp_tsk error: %s %d",
+                        printf("[NET MISC,%d] tslp_tsk error: %s %d",
                                 nc->cepid, itron_strerror(error), timer);
                         break;
 …
                 ret = get_tim(&time);
                 if (ret != E_OK) {
                         ntstdio_printf(&ntstdio, "[NET MISC,%d] get_tim error: %s",
+                        printf("[NET MISC,%d] get_tim error: %s",
                                 nc->cepid, itron_strerror(ret));
                         break;

asp3_tinet_ecnl_rx/trunk/ntshell/src/netcmd.c

-              r364
+              r374
 #include <netapp/resolver.h>
 #include "core/ntlibc.h"
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "ntp_cli.h"
 #include "kernel_cfg.h"
-extern ntstdio_t ntstdio;
 #if defined(SUPPORT_INET6)
 …
         if ((line = lookup_ipaddr(&addr, line, apip)) == NULL) {
                 ntstdio_printf(&ntstdio, "[PING] unknown host.\n");
+                printf("[PING] unknown host.\n");
                 return 0;
+        }
 …
 #if defined(SUPPORT_INET4)
         if (apip == API_PROTO_IPV6) {
                 ntstdio_printf(&ntstdio, "[PING6] size: %d, tmo: %d, host: %s\n", size, tmo, ipv62str(NULL, &addr));
+                printf("[PING6] size: %d, tmo: %d, host: %s\n", size, tmo, ipv62str(NULL, &addr));
                 ping6(&addr, (uint_t)tmo, (uint_t)size);
+        }
         else {
                 addr4 = ntohl(addr.s6_addr32[3]);
                 ntstdio_printf(&ntstdio, "[PING4] size: %d, tmo: %d, host: %s\n", size, tmo, ip2str(NULL, &addr4));
+                printf("[PING4] size: %d, tmo: %d, host: %s\n", size, tmo, ip2str(NULL, &addr4));
                 ping4(&addr4, (uint_t)tmo, (uint_t)size);
+        }
 #else /* of #if defined(SUPPORT_INET4) */
         ntstdio_printf(&ntstdio, "[PING6] size: %d, tmo: %d, host: %s\n", size, tmo, ipv62str(NULL, &addr));
+        printf("[PING6] size: %d, tmo: %d, host: %s\n", size, tmo, ipv62str(NULL, &addr));
         ping6(&addr, (uint_t)tmo, (uint_t)size);
 #endif  /* of #if defined(SUPPORT_INET4) */
 #else   /* of #if defined(SUPPORT_INET6) */
         ntstdio_printf(&ntstdio, "[PING4] size: %d, tmo: %d, host: %s\n", size, tmo, ip2str(NULL, &addr));
+        printf("[PING4] size: %d, tmo: %d, host: %s\n", size, tmo, ip2str(NULL, &addr));
         ping4(&addr, (uint_t)tmo, (uint_t)size);
 #endif  /* of #if defined(SUPPORT_INET6) */
 …
                 pos = str_ipv4addr(temp, sizeof(temp), &svaddr, 0);
                 temp[pos] = '\0';
                 ntstdio_printf(&ntstdio, "DHCPv4 server: %s,\n", temp);
                 ntstdio_printf(&ntstdio, "  Renew:       %u:%02u:%02u,\n",
+                printf("DHCPv4 server: %s,\n", temp);
+                printf("  Renew:       %u:%02u:%02u,\n",
                         renew / 3600, (renew / 60) % 60, renew % 60);
                 ntstdio_printf(&ntstdio, "  Rebind:      %u:%02u:%02u, Expire:   %u:%02u:%02u.\n",
+                printf("  Rebind:      %u:%02u:%02u, Expire:   %u:%02u:%02u.\n",
                         rebind / 3600, (rebind / 60) % 60, rebind % 60,
                         expire / 3600, (expire / 60) % 60, expire % 60);
+        }
         else if (ret == E_OBJ)
                 ntstdio_printf(&ntstdio, "DHCPv4 server: not available.\n");
+                printf("DHCPv4 server: not available.\n");
+}
 …
         if (ntlibc_strcmp(argv[1], "rel") == 0) {
                 ret = dhcp4c_rel_info();
                 ntstdio_printf(&ntstdio, "dhcp4c_rel_info %d\n", ret);
+                printf("dhcp4c_rel_info %d\n", ret);
+        }
         else if (ntlibc_strcmp(argv[1], "renew") == 0) {
                 ret = dhcp4c_renew_info();
                 ntstdio_printf(&ntstdio, "dhcp4c_renew_info %d\n", ret);
+                printf("dhcp4c_renew_info %d\n", ret);
+        }
         else {
 …
                 else {
                         for (c = 1; c <= *ptr; c++)
                                 ntstdio_printf(&ntstdio, "%c", *(ptr + c));
+                                printf("%c", *(ptr + c));
                         ptr += *ptr + 1;
                         if (*ptr)
                                 ntstdio_printf(&ntstdio, ".");
+                                printf(".");
+                }
+        }
 …
                 return error;
         ntstdio_printf(&ntstdio, "    mname:   ");
+        printf("    mname:   ");
         rn_offset = s_show_dns_domain_name(msg, offset);
         ntstdio_putc(&ntstdio, '\n');
         ntstdio_printf(&ntstdio, "    rname:   ");
+        putchar('\n');
+        printf("    rname:   ");
         s_show_dns_domain_name(msg, rn_offset);
         ntstdio_putc(&ntstdio, '\n');
         ntstdio_printf(&ntstdio, "    serial:  %d\n", soa.serial);
         ntstdio_printf(&ntstdio, "    refresh: %d\n", soa.refresh);
         ntstdio_printf(&ntstdio, "    retry:   %d\n", soa.retry);
         ntstdio_printf(&ntstdio, "    expirel: %d\n", soa.expire);
         ntstdio_printf(&ntstdio, "    minimum: %d\n", soa.minimum);
+        putchar('\n');
+        printf("    serial:  %d\n", soa.serial);
+        printf("    refresh: %d\n", soa.refresh);
+        printf("    retry:   %d\n", soa.retry);
+        printf("    expirel: %d\n", soa.expire);
+        printf("    minimum: %d\n", soa.minimum);
         return E_OK;
 …
         int             scount;
         ntstdio_printf(&ntstdio, "question   section: %d\n", rslv->dns_hdr.qdcount);
+        printf("question   section: %d\n", rslv->dns_hdr.qdcount);
         offset = rslv->qd_offset;
         for (scount = 1; scount <= rslv->dns_hdr.qdcount; scount++) {
 …
                         return error;
                 ntstdio_printf(&ntstdio, "%2d: ", scount);
+                printf("%2d: ", scount);
                 s_show_dns_domain_name(msg, offset);
                 ntstdio_printf(&ntstdio, "\n    type: %-4s, class: %2s\n", dns_strtype(qd.type), dns_strclass(qd.class));
+                printf("\n    type: %-4s, class: %2s\n", dns_strtype(qd.type), dns_strclass(qd.class));
                 offset = error;
+        }
 …
         int pos;
         ntstdio_printf(&ntstdio, "%10s section: %d\n", title, scount);
+        printf("%10s section: %d\n", title, scount);
         for (count = 1; count <= scount; count++) {
                 if ((error = dns_analyze_rr(&rr, offset, msg, length)) < 0)
                         return error;
                 ntstdio_printf(&ntstdio, "%2d: ", count);
+                printf("%2d: ", count);
                 s_show_dns_domain_name(msg, offset);
                 ntstdio_printf(&ntstdio, "\n    type: %-4s, class: %2s, TTL: %2d, len: %3d, offset: 0x%02x\n",
+                printf("\n    type: %-4s, class: %2s, TTL: %2d, len: %3d, offset: 0x%02x\n",
                         dns_strtype(rr.type), dns_strclass(rr.class), rr.ttl, rr.rdlength, rr.rdata_offset);
 …
                         pos = str_ipv4addr(temp, sizeof(temp), &in4_addr, 0);
                         temp[pos] = '\0';
                         ntstdio_printf(&ntstdio, "    IPv4 addr: %s\n", temp);
+                        printf("    IPv4 addr: %s\n", temp);
                         break;
                 case DNS_TYPE_NS:
                         ntstdio_printf(&ntstdio, "    host: ");
+                        printf("    host: ");
                         s_show_dns_domain_name(msg, rr.rdata_offset);
                         ntstdio_putc(&ntstdio, '\n');
+                        putchar('\n');
                         break;
                 case DNS_TYPE_CNAME:
                         ntstdio_printf(&ntstdio, "    host: ");
+                        printf("    host: ");
                         s_show_dns_domain_name(msg, rr.rdata_offset);
                         ntstdio_putc(&ntstdio, '\n');
+                        putchar('\n');
                         break;
                 case DNS_TYPE_SOA:
 …
                         break;
                 case DNS_TYPE_PTR:
                         ntstdio_printf(&ntstdio, "     PTR: ");
+                        printf("     PTR: ");
                         s_show_dns_domain_name(msg, rr.rdata_offset);
                         ntstdio_putc(&ntstdio, '\n');
+                        putchar('\n');
                         break;
                 case DNS_TYPE_AAAA:
 …
                         pos = str_ipv6addr(temp, sizeof(temp), &in6_addr, 0);
                         temp[pos] = '\0';
                         ntstdio_printf(&ntstdio, "    IPv6 addr: %s\n", temp);
+                        printf("    IPv6 addr: %s\n", temp);
                         break;
                 default:
                         ntstdio_printf(&ntstdio, "    data: ");
+                        printf("    data: ");
                         col = 32;
                         for (dcount = 0; dcount < rr.rdlength; dcount++) {
                                 ntstdio_printf(&ntstdio, "%02x", *(msg + rr.rdata_offset + dcount));
+                                printf("%02x", *(msg + rr.rdata_offset + dcount));
                                 if (--col == 0) {
                                         ntstdio_printf(&ntstdio, "\n          ");
+                                        printf("\n          ");
                                         col = 32;
+                                }
+                        }
                         ntstdio_putc(&ntstdio, '\n');
+                        putchar('\n');
                         break;
+                }
 …
 #if defined(SUPPORT_INET6)
         ntstdio_printf(&ntstdio, "domain name:     %s\n", dns_in6_get_dname());
+        printf("domain name:     %s\n", dns_in6_get_dname());
 #else   /* of #if defined(SUPPORT_INET6) */
         ntstdio_printf(&ntstdio, "domain name:     %s\n", dns_in4_get_dname());
+        printf("domain name:     %s\n", dns_in4_get_dname());
 #endif  /* of #if defined(SUPPORT_INET6) */
 …
 #if defined(SUPPORT_INET6)
         dns_in6_get_addr(&in6_addr);
         ntstdio_printf(&ntstdio, "IPv6 DNS server: ");
+        printf("IPv6 DNS server: ");
         if (IN6_IS_ADDR_UNSPECIFIED(&in6_addr))
                 ntstdio_printf(&ntstdio, "not available.\n");
+                printf("not available.\n");
         else {
                 pos = str_ipv6addr(temp, sizeof(temp), &in6_addr, 0);
                 temp[pos] = '\0';
                 ntstdio_printf(&ntstdio, "%s.\n", temp);
+                printf("%s.\n", temp);
+        }
 #endif  /* of #if defined(SUPPORT_INET6) */
 …
 #if defined(SUPPORT_INET4)
         dns_in4_get_addr(&in4_addr);
         ntstdio_printf(&ntstdio, "IPv4 DNS server: ");
+        printf("IPv4 DNS server: ");
         if (in4_addr == IPV4_ADDRANY)
                 ntstdio_printf(&ntstdio, "not available.\n");
+                printf("not available.\n");
         else {
                 pos = str_ipv4addr(temp, sizeof(temp), &in4_addr, 0);
                 temp[pos] = '\0';
                 ntstdio_printf(&ntstdio, "%s.\n", temp);
+                printf("%s.\n", temp);
+        }
 #endif  /* of #if defined(SUPPORT_INET4) */
 …
         line = skip_blanks(resolv_options(&flags, line, DEFAULT_API_PROTO));
         if ((flags & (DNS_LUP_FLAGS_PROTO_IPV6 | DNS_LUP_FLAGS_PROTO_IPV4)) == 0) {
                 ntstdio_printf(&ntstdio, "DNS server not available.\n");
+                printf("DNS server not available.\n");
                 return 0;
+        }
 …
         if ((error = tget_mpf(MPF_RSLV_SRBUF, (void*)&msg, TMO_FEVR)) != E_OK) {
                 ntstdio_printf(&ntstdio, "get buffer error: %s.\n", itron_strerror(error));
+                printf("get buffer error: %s.\n", itron_strerror(error));
                 return 0;
+        }
         if ((length = dns_lookup_host(flags | DNS_LUP_FLAGS_MSG, line, msg, DNS_UDP_MSG_LENGTH, &rslv)) < 0) {
                 //ntstdio_printf(&ntstdio, "error: %s.\n", itron_strerror(length));
+                //printf("error: %s.\n", itron_strerror(length));
                 goto err_ret;
+        }
         dly_tsk(1 * 1000);
         ntstdio_printf(&ntstdio, "DNS header: flags: ");
+        printf("DNS header: flags: ");
         if (rslv.dns_hdr.code & (DNS_QR_RESPONSE | DNS_AUTHORITATIVE |
                 DNS_TRUN_CATION | DNS_RECURSION_DESIRED | DNS_RECURSION_AVAILABLE)) {
                 ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_QR_RESPONSE) ? "QR," : "");
                 ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_AUTHORITATIVE) ? "AA," : "");
                 ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_TRUN_CATION) ? "TC," : "");
                 ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_RECURSION_DESIRED) ? "RD," : "");
                 ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_RECURSION_AVAILABLE) ? "RA," : "");
                 ntstdio_printf(&ntstdio, " ");
+        }
         ntstdio_printf(&ntstdio, "opcode: ");
         ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_OPCODE_REVERSE) ? "RV" : "FW");
         ntstdio_printf(&ntstdio, (rslv.dns_hdr.code & DNS_OPCODE_STATUS) ? ",ST" : "");
         ntstdio_printf(&ntstdio, ", rcode: %s.\n",
+                printf((rslv.dns_hdr.code & DNS_QR_RESPONSE) ? "QR," : "");
+                printf((rslv.dns_hdr.code & DNS_AUTHORITATIVE) ? "AA," : "");
+                printf((rslv.dns_hdr.code & DNS_TRUN_CATION) ? "TC," : "");
+                printf((rslv.dns_hdr.code & DNS_RECURSION_DESIRED) ? "RD," : "");
+                printf((rslv.dns_hdr.code & DNS_RECURSION_AVAILABLE) ? "RA," : "");
+                printf(" ");
+        }
+        printf("opcode: ");
+        printf((rslv.dns_hdr.code & DNS_OPCODE_REVERSE) ? "RV" : "FW");
+        printf((rslv.dns_hdr.code & DNS_OPCODE_STATUS) ? ",ST" : "");
+        printf(", rcode: %s.\n",
                 (rslv.dns_hdr.code & DNS_RCODE_MASK) > DNS_RCODE_REFUSED
                 ? "6" : rcode_str[rslv.dns_hdr.code & DNS_RCODE_MASK]);
         if ((offset = show_dns_qdsection(msg, length, &rslv)) < 0) {
                 ntstdio_printf(&ntstdio, "msg error: %s.\n", itron_strerror(offset));
+                printf("msg error: %s.\n", itron_strerror(offset));
+        }
         if ((offset = show_dns_section(msg, length, rslv.dns_hdr.ancount, rslv.an_offset, "answer")) < 0) {
                 ntstdio_printf(&ntstdio, "msg error: %s.\n", itron_strerror(offset));
+                printf("msg error: %s.\n", itron_strerror(offset));
+        }
         if ((offset = show_dns_section(msg, length, rslv.dns_hdr.nscount, rslv.ns_offset, "authority")) < 0) {
                 ntstdio_printf(&ntstdio, "msg error: %s.\n", itron_strerror(offset));
+                printf("msg error: %s.\n", itron_strerror(offset));
+        }
         if ((offset = show_dns_section(msg, length, rslv.dns_hdr.arcount, rslv.ar_offset, "additional")) < 0) {
                 ntstdio_printf(&ntstdio, "msg error: %s.\n", itron_strerror(offset));
+                printf("msg error: %s.\n", itron_strerror(offset));
+        }
 err_ret:
         if ((error = rel_mpf(MPF_RSLV_SRBUF, msg)) != E_OK)
                 ntstdio_printf(&ntstdio, "release buffer error: %s.\n", itron_strerror(error));
+                printf("release buffer error: %s.\n", itron_strerror(error));
         return 0;
+}

asp3_tinet_ecnl_rx/trunk/ntshell/src/ntp_cli.c

-              r364
+              r374
 #include <t_syslog.h>
 #include "kernel_cfg.h"
+#include "util/ntstdio.h"
+extern ntstdio_t ntstdio;
+#include <stdio.h>
 #endif  /* of #if defined(TARGET_KERNEL_ASP) */
 …
+        }
         ntstdio_printf(&ntstdio, "[NTP CLI,%d] recv time: %s .%09u\n",
+        printf("[NTP CLI,%d] recv time: %s .%09u\n",
                 nc->cepid, nc->buf, tp.tv_nsec);
+}
 …
                 line = lookup_ipaddr(&nc->ipaddr6, NTP_SRV_URL, API_PROTO_IPV4);
                 if (line == NULL || !in6_is_addr_ipv4mapped(&nc->ipaddr6)) {
                         ntstdio_printf(&ntstdio, "[NTP CLI,%d] sleep %d.%03u[s], unknown host.",
+                        printf("[NTP CLI,%d] sleep %d.%03u[s], unknown host.",
                                 nc->cepid, SLP_ITV / SYSTIM_HZ, SLP_ITV % SYSTIM_HZ);
                         nc->timer = SLP_ITV;
 …
 #else   /* of #if defined(SUPPORT_INET6) && defined(SUPPORT_INET4) */
                 if ((line = lookup_ipaddr(&nc->snd_rmt.ipaddr, NTP_SRV_URL, DEFAULT_API_PROTO)) == NULL) {
                         ntstdio_printf(&ntstdio, "[NTP CLI,%d] sleep %d.%03u[s], unknown host.",
+                        printf("[NTP CLI,%d] sleep %d.%03u[s], unknown host.",
                                 nc->cepid, SLP_ITV / SYSTIM_HZ, SLP_ITV % SYSTIM_HZ);
                         nc->timer = SLP_ITV;
 …
         if ((error = udp_snd_dat(nc->cepid, &nc->snd_rmt, ntp, len, TMO_NBLK)) != E_WBLK) {
                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] udp_snd_dat error: %s",
+                printf("[NTP CLI,%d] udp_snd_dat error: %s",
                         nc->cepid, itron_strerror(error));
                 return error;
 …
         ret = get_tim(&time);
         if (ret != E_OK) {
                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] get_tim error: %s",
+                printf("[NTP CLI,%d] get_tim error: %s",
                         nc->cepid, itron_strerror(ret));
                 tp->tv_sec = 0;
 …
         ret = set_tim(time);
         if (ret != E_OK) {
                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] set_tim error: %s",
+                printf("[NTP CLI,%d] set_tim error: %s",
                         nc->cepid, itron_strerror(ret));
+        }
 …
         if (len < 0 && len != E_RLWAI) {
                 /* E_RLWAI 以外で、0 以下の場合は、エラーを意味している。*/
                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] callback error: %s, fncd: %s", nc->cepid,
+                printf("[NTP CLI,%d] callback error: %s, fncd: %s", nc->cepid,
                         itron_strerror(len), in_strtfn(fncd));
+        }
 …
                         if ((len = udp_rcv_dat(nc->cepid, &nc->rcv_rmt, &nc->ntp_msg, len, TMO_POL)) < 0)
+                        {
                                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] udp_rcv_dat error: %s", nc->cepid,
+                                printf("[NTP CLI,%d] udp_rcv_dat error: %s", nc->cepid,
                                         itron_strerror(len));
+                        }
 …
         get_tid(&nc->tskid);
         ntstdio_printf(&ntstdio, "[NTP CLI:%d,%d] started.", nc->tskid, (ID)exinf);
+        printf("[NTP CLI:%d,%d] started.", nc->tskid, (ID)exinf);
         /* 初期化 */
 …
         ret = get_tim(&time);
         if (ret != E_OK) {
                 ntstdio_printf(&ntstdio, "[NTP CLI,%d] get_tim error: %7lu,%s",
+                printf("[NTP CLI,%d] get_tim error: %7lu,%s",
                         nc->cepid, time / SYSTIM_HZ, itron_strerror(ret));
                 return;
 …
                 error = tslp_tsk(timer);
                 if ((error != E_OK) && (error != E_TMOUT)) {
                         ntstdio_printf(&ntstdio, "[NTP CLI,%d] tslp_tsk error: %s %d",
+                        printf("[NTP CLI,%d] tslp_tsk error: %s %d",
                                 nc->cepid, itron_strerror(error), timer);
                         break;
 …
                 ret = get_tim(&time);
                 if (ret != E_OK) {
                         ntstdio_printf(&ntstdio, "[NTP CLI,%d] get_tim error: %s",
+                        printf("[NTP CLI,%d] get_tim error: %s",
                                 nc->cepid, itron_strerror(ret));
                         break;

asp3_tinet_ecnl_rx/trunk/ntshell/src/ntshell_main.c

-              r364
+              r374
 #include "ntshell_main.h"
 #include "socket_stub.h"
-#include "usb_hbth.h"
-#include "mbed_api.h"
-extern int bt_bnep_mode;
 char command[NTOPT_TEXT_MAXLEN];
-ntstdio_t ntstdio;
 extern uint8_t mac_addr[6];
 …
 volatile int ntshell_state;
 jmp_buf process_exit;
+void sys_init(void);
+NTSHELL_SERIAL_READ ntshell_serial_read = 0;
+NTSHELL_SERIAL_WRITE ntshell_serial_write = 0;
+void *ntshell_serial_extobj;
+unsigned char ntstdio_xi(struct ntstdio_t *handle)
+{
+        unsigned char buf[1];
+        ntshell_serial_read((char *)buf, 1, ntshell_serial_extobj);
+        return buf[0];
+}
+void ntstdio_xo(struct ntstdio_t *handle, unsigned char c)
+{
+        char buf[1];
+        buf[0] = c;
+        ntshell_serial_write(buf, 1, ntshell_serial_extobj);
+}
+void ntshell_task_init(NTSHELL_SERIAL_READ func_read,
+        NTSHELL_SERIAL_WRITE func_write, void *extobj)
+{
+        ntshell_serial_read = func_read;
+        ntshell_serial_write = func_write;
+        ntshell_serial_extobj = extobj;
+        sys_init();
+        ntstdio_init(&ntstdio, NTSTDIO_OPTION_LINE_ECHO | NTSTDIO_OPTION_CANON | NTSTDIO_OPTION_LF_CRLF | NTSTDIO_OPTION_LF_CR, ntstdio_xi, ntstdio_xo);
+void ntshell_task_init(ID portid)
+{
+        serial_ctl_por(portid, IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV);
+}
 …
         const cmd_table_t *p = cmd_table_info.table;
         for (int i = 0; i < cmd_table_info.count; i++) {
+                ntstdio_puts(&ntstdio, p->cmd);
+                ntstdio_puts(&ntstdio, "\t:");
+                ntstdio_puts(&ntstdio, p->desc);
+                ntstdio_puts(&ntstdio, "\n");
+                fwrite(p->cmd, strlen(p->cmd), 1, stdout);
+                fwrite("\t:", strlen("\t:"), 1, stdout);
+                puts(p->desc);
                 p++;
+        }
 …
 int execute_command(int wait)
+{
+        T_RTSK rtsk;
         ER ret;
 …
         do {
                 tslp_tsk(100000);
+                ret = ref_tsk(NTSHELL_TASK, &rtsk);
+                if ((ret != E_OK) || (rtsk.tskstat == TTS_DMT))
+                        ntshell_state = 3;
         } while(ntshell_state == 1);
 …
         ntlibc_strlcpy(command, text, sizeof(command));
         return execute_command(1);
+}
-int stdio_close(struct _IO_FILE *fp)
+{
-        return -EPERM;
+}
-size_t stdio_read(struct _IO_FILE *fp, unsigned char *data, size_t len)
+{
-        return -EPERM;
+}
-size_t stdio_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+{
-        return -EPERM;
+}
-size_t stdin_read(struct _IO_FILE *fp, unsigned char *data, size_t len)
+{
-        int i = 0;
-        while (i < len) {
-                int c = ntstdio_getc(&ntstdio);
-                data[i++] = c;
-                if ((c == EOF) || (c == '\n'))
-                        break;
+        }
-        return i;
+}
-size_t stdout_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+{
-        for (int i = 0; i < len; i++) {
-                ntstdio_putc(&ntstdio, data[i]);
+        }
-        return len;
+}
-size_t stderr_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+{
-        for (int i = 0; i < len; i++) {
-                ntstdio_putc(&ntstdio, data[i]);
+        }
-        return len;
+}
-int sio_close(struct _IO_FILE *fp)
+{
-        return -EPERM;
+}
-size_t sio_read(struct _IO_FILE *fp, unsigned char *data, size_t len)
+{
-        return -EPERM;
+}
-size_t sio_write(struct _IO_FILE *fp, const unsigned char *data, size_t len)
+{
-        return -EPERM;
+}
-off_t sio_seek(struct _IO_FILE *fp, off_t ofs, int org)
+{
-        return -EPERM;
+}
-int sio_ioctl(struct _IO_FILE *fp, int request, void *arg)
+{
-        switch (request) {
-        case TIOCGWINSZ:
-                return 0;
-        case TCGETS:
-                return sio_tcgetattr(fp->fd, (struct termios *)arg);
-        case TCSETS + TCSANOW:
-        case TCSETS + TCSADRAIN:
-        case TCSETS + TCSAFLUSH:
-                return sio_tcsetattr(fp->fd, request - TCSETS, (const struct termios *)arg);
+        }
-        return -EINVAL;
+}
 …
+}
+int shell_kill(int pid, int sig)
+{
+        DebugBreak();
+        return -1;
+}
+int shell_gettimeofday(struct timeval *tv, void *tzvp)
+{
+        SYSTIM time;
+        if (!tv) return 0;
+        get_tim(&time);
+        tv->tv_sec = time / 1000000;
+        tv->tv_usec = time - (tv->tv_sec * 1000000);
+        return 0;
+}

asp3_tinet_ecnl_rx/trunk/ntshell/src/ntshell_main.cfg

r364	r374
41	41	#include "ntshell_main.h"
42	42
	43	ATT_INI({ TA_NULL, 0, sys_init });
	44
43	45	CRE_TSK(NTSHELL_TASK, { TA_NULL, 0, ntshell_task, NTSHELL_PRIORITY, NTSHELL_STACK_SIZE, NULL });
44	46	CRE_FLG(FLG_SELECT_WAIT, { TA_WMUL, 0x00 });

asp3_tinet_ecnl_rx/trunk/ntshell/src/ntshell_main.h

-              r367
+              r374
 extern PRI main_task_priority;
+/* ntshellの初期化 */
+void sys_init(intptr_t exinf);
 /* ntshellタスク初期化 */
+void ntshell_task_init(NTSHELL_SERIAL_READ func_read,
+        NTSHELL_SERIAL_WRITE func_write, void *extobj);
+void ntshell_task_init(ID portid);
 /* ntshellタスク */

asp3_tinet_ecnl_rx/trunk/ntshell/src/shellif.h

r364	r374
134	134
135	135	// dirent.h
136		typedef struct __dirstream DIR;
	136	typedef struct __dirstream FATFS_DIR;
137	137
138	138	int shell_getdents(int, struct dirent *, size_t);

asp3_tinet_ecnl_rx/trunk/ntshell/src/socket_stub.c

-              r364
+              r374
 #include <netinet/udp_var.h>
 #include <net/net_buf.h>
+//#include <netinet/tcp_var.h>
+#include <netinet/udp.h>
+#include <netinet/udp_var.h>
+#include <netinet/tcp.h>
+#include <netinet/tcp_var.h>
 #include <netapp/resolver.h>
 extern const ID tmax_tcp_cepid;
 …
 #define SOCKET_TIMEOUT 2000000
+#define tcp6_cre_cep tcp_cre_cep
+#define tcp6_del_cep tcp_del_cep
+#define tcp6_del_rep tcp_del_rep
+#define tcp6_sht_cep tcp_sht_cep
+#define tcp6_cls_cep tcp_cls_cep
+#define tcp6_snd_oob tcp_snd_oob
+#define tcp6_snd_dat tcp_snd_dat
+#define tcp6_rcv_oob tcp_rcv_oob
+#define tcp6_rcv_buf tcp_rcv_buf
+#define tcp6_rel_buf tcp_rel_buf
+#define tcp6_get_opt tcp_get_opt
+#define tcp6_set_opt tcp_set_opt
+#define udp6_del_cep udp_del_cep
+#define udp6_get_opt udp_get_opt
+#define udp6_set_opt udp_set_opt
+#ifndef SUPPORT_INET6
+ER      tcp6_cre_rep (ID repid, T_TCP6_CREP *pk_crep) { return E_SYS; }
+ER      tcp6_acp_cep (ID cepid, ID repid, T_IPV6EP *p_dstaddr, TMO tmout) { return E_SYS; }
+ER      tcp6_con_cep (ID cepid, T_IPV6EP *p_myaddr, T_IPV6EP *p_dstaddr, TMO tmout) { return E_SYS; }
+ER      udp6_cre_cep (ID cepid, T_UDP6_CCEP *pk_ccep) { return E_SYS; }
+ER_UINT udp6_snd_dat (ID cepid, T_IPV6EP *p_dstaddr, void *data, int_t len, TMO tmout) { return E_SYS; }
+ER_UINT udp6_rcv_dat (ID cepid, T_IPV6EP *p_dstaddr, void *data, int_t len, TMO tmout) { return E_SYS; }
+const T_IN6_ADDR *in6_get_ifaddr (int_t index) { return NULL; }
+#endif
+ER socket_tcp_callback(ID cepid, FN fncd, void *p_parblk);
+ER socket_tcp6_callback(ID cepid, FN fncd, void *p_parblk);
+ER socket_udp_callback(ID cepid, FN fncd, void *p_parblk);
+ER socket_udp6_callback(ID cepid, FN fncd, void *p_parblk);
+static int tcp_fd_close(struct SHELL_FILE *fp);
+static size_t tcp_fd_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t tcp_fd_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static off_t tcp_fd_seek(struct SHELL_FILE *fp, off_t ofs, int org);
+static int tcp_fd_ioctl(struct SHELL_FILE *fp, int req, void *arg);
+static bool_t tcp_fd_readable(struct SHELL_FILE *fp);
+static void tcp_fd_delete(struct SHELL_FILE *fp);
+static int udp_fd_close(struct SHELL_FILE *fp);
+static size_t udp_fd_read(struct SHELL_FILE *fp, unsigned char *data, size_t len);
+static size_t udp_fd_write(struct SHELL_FILE *fp, const unsigned char *data, size_t len);
+static off_t udp_fd_seek(struct SHELL_FILE *fp, off_t ofs, int org);
+static int udp_fd_ioctl(struct SHELL_FILE *fp, int req, void *arg);
+static bool_t udp_fd_readable(struct SHELL_FILE *fp);
+static void udp_fd_delete(struct SHELL_FILE *fp);
+IO_TYPE IO_TYPE_TCP = { tcp_fd_close, tcp_fd_read, tcp_fd_write, tcp_fd_seek, tcp_fd_ioctl, tcp_fd_readable, tcp_fd_delete };
+IO_TYPE IO_TYPE_UDP = { udp_fd_close, udp_fd_read, udp_fd_write, udp_fd_seek, udp_fd_ioctl, udp_fd_readable, udp_fd_delete };
 typedef struct id_table_t {
 …
 #define tcp_cepid_table_count (sizeof(tcp_cepid_table) / sizeof(tcp_cepid_table[0]))
+#ifdef SUPPORT_INET6
+id_table_t tcp6_repid_table[] = {
+        {0, USR_TCP6_REP1}, {0, USR_TCP6_REP2}, {0, USR_TCP6_REP3}, {0, USR_TCP6_REP4}
+};
+#define tcp6_repid_table_count (sizeof(tcp6_repid_table) / sizeof(tcp6_repid_table[0]))
+id_table_t tcp6_cepid_table[] = {
+        {0, USR_TCP6_CEP1}, {0, USR_TCP6_CEP2}, {0, USR_TCP6_CEP3}, {0, USR_TCP6_CEP4},
+#ifndef TOPPERS_GRSAKURA
+        {0, USR_TCP6_CEP5}, {0, USR_TCP6_CEP6}, {0, USR_TCP6_CEP7}, {0, USR_TCP6_CEP8}
+#endif
+};
+#define tcp6_cepid_table_count (sizeof(tcp6_cepid_table) / sizeof(tcp6_cepid_table[0]))
+#else
+#define tcp6_repid_table NULL
+#define tcp6_repid_table_count 0
+#define tcp6_cepid_table NULL
+#define tcp6_cepid_table_count 0
+#endif
 id_table_t udp_cepid_table[] = {
         {0, USR_UDP_CEP1}, {0, USR_UDP_CEP2}, {0, USR_UDP_CEP3}, {0, USR_UDP_CEP4}
 …
 #define udp_cepid_table_count (sizeof(udp_cepid_table) / sizeof(udp_cepid_table[0]))
+#ifdef SUPPORT_INET6
+id_table_t udp6_cepid_table[] = {
+        {0, USR_UDP6_CEP1}, {0, USR_UDP6_CEP2}, {0, USR_UDP6_CEP3}, {0, USR_UDP6_CEP4}
+};
+#define udp6_cepid_table_count (sizeof(udp6_cepid_table) / sizeof(udp6_cepid_table[0]))
+#else
+#define udp6_cepid_table NULL
+#define udp6_cepid_table_count 0
+#endif
 ID new_id(id_table_t *table, int count)
+{
 …
+}
+int delete_tcp_rep(int repid)
+{
+        return delete_tcp_fd(tmax_tcp_cepid + repid);
+}
+typedef struct _IO_FILE SOCKET;
+typedef struct SHELL_FILE SOCKET;
 int shell_socket(int family, int type, int protocol)
 …
         switch (type) {
         case SOCK_STREAM:
+                fp = new_tcp_fd(0);
+                fp = new_fp(&IO_TYPE_TCP, 0, 0);
+                if (fp == NULL)
+                        return -ENOMEM;
+                fp->exinf = malloc(sizeof(socket_t));
+                memset(fp->exinf, 0, sizeof(socket_t));
                 break;
         case SOCK_DGRAM:
+                fp = new_udp_fd(0);
+                fp = new_fp(&IO_TYPE_UDP, 0, 1);
+                if (fp == NULL)
+                        return -ENOMEM;
+                fp->exinf = malloc(sizeof(socket_t));
+                memset(fp->exinf, 0, sizeof(socket_t));
                 break;
         default:
 …
+        }
+        if (fp == NULL) {
+                return -ENOMEM;
+        }
+        fp->psock->family = family;
+        fp->psock->type = type;
+        fp->psock->protocol = protocol;
+        fp->psock->flags = flags;
+        socket_t *socket = (socket_t *)fp->exinf;
+        socket->family = family;
+        socket->type = type;
+        socket->protocol = protocol;
+        socket->flags = flags;
         return fp->fd;
 …
         if (fp == NULL)
                 return -EBADF;
+        if (fp->psock->family != addr->sa_family)
+        socket_t *socket = (socket_t *)fp->exinf;
+        if (socket->family != addr->sa_family)
                 return -EINVAL;
 …
+                }
                 struct sockaddr_in *addr_in = (struct sockaddr_in *)addr;
                 memcpy(&fp->psock->laddr4, addr, len);
                 switch (fp->psock->type) {
+                memcpy(&socket->laddr4, addr, len);
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         ID cepid = new_id(tcp_cepid_table, tcp_cepid_table_count);
 …
                                 return -ENOMEM;
                         fp->psock->buf_size = 512 + 512;
                         fp->psock->buf = malloc(fp->psock->buf_size);
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
 #ifdef _DEBUG
                         memset(fp->psock->buf, 0, fp->psock->buf_size);
+                        memset(socket->buf, 0, socket->buf_size);
 #endif
                         T_TCP_CCEP ccep = { 0, fp->psock->buf, 512, &fp->psock->buf[512], 512, (FP)socket_tcp_callback };
+                        T_TCP_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp_callback };
                         ret = tcp_cre_cep(cepid, &ccep);
                         if (ret != E_OK) {
 …
+                        }
                         fp->handle = cepid;
                         fp->psock->cepid = cepid;
+                        socket->cepid = cepid;
                         break;
+                }
 …
+                        }
                         fp->handle = cepid;
                         fp->psock->cepid = cepid;
+                        socket->cepid = cepid;
                         break;
+                }
 …
                         return -EINVAL;
+                }
+                memcpy(&fp->psock->laddr4, addr, len);
+                break;
+        }
+                struct sockaddr_in6 *addr_in6 = (struct sockaddr_in6 *)addr;
+                memcpy(&socket->laddr6, addr, len);
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        ID cepid = new_id(tcp6_cepid_table, tcp6_cepid_table_count);
+                        if (cepid < 0)
+                                return -ENOMEM;
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
+#ifdef _DEBUG
+                        memset(socket->buf, 0, socket->buf_size);
+#endif
+                        T_TCP6_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp6_callback };
+                        ret = tcp6_cre_cep(cepid, &ccep);
+                        if (ret != E_OK) {
+                                delete_id(tcp6_cepid_table, tcp6_cepid_table_count, cepid);
+                                return -ENOMEM;
+                        }
+                        fp->handle = cepid;
+                        socket->cepid = cepid;
+                        break;
+                }
+                case SOCK_DGRAM: {
+                        ID cepid = new_id(udp_cepid_table, udp_cepid_table_count);
+                        if (cepid < 0)
+                                return -ENOMEM;
+                        T_UDP6_CCEP ccep = { 0, {ntohl(addr_in6->sin6_addr.__in6_union.__s6_addr), ntohs(addr_in6->sin6_port)}, (FP)socket_udp6_callback };
+                        ret = udp6_cre_cep(cepid, &ccep);
+                        if (ret != E_OK) {
+                                delete_id(udp_cepid_table, udp_cepid_table_count, cepid);
+                                return -ENOMEM;
+                        }
+                        fp->handle = cepid;
+                        socket->cepid = cepid;
+                        break;
+                }
+                default:
+                        return -ENOPROTOOPT;
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         if (fp == NULL)
                 return -EBADF;
+        if (fp->psock->type != SOCK_STREAM)
+        socket_t *socket = (socket_t *)fp->exinf;
+        if (socket->type != SOCK_STREAM)
                 return -EINVAL;
         fp->psock->backlog = backlog;
+        socket->backlog = backlog;
         ER ret;
         switch (fp->psock->family) {
+        switch (socket->family) {
         case AF_INET: {
                 ID repid = new_id(tcp_repid_table, tcp_repid_table_count);
 …
                         return -ENOMEM;
                 struct sockaddr_in *laddr = &fp->psock->laddr4;
+                struct sockaddr_in *laddr = &socket->laddr4;
                 T_TCP_CREP crep = { 0, {ntohl(laddr->sin_addr.s_addr), ntohs(laddr->sin_port)} };
                 ret = tcp_cre_rep(repid, &crep);
 …
                         return -ENOMEM;
+                }
                 fp->psock->repid = repid;
+                socket->repid = repid;
                 break;
+        }
         case AF_INET6: {
+                break;
+        }
+                ID repid = new_id(tcp6_repid_table, tcp6_repid_table_count);
+                if (repid < 0)
+                        return -ENOMEM;
+                struct sockaddr_in6 *laddr = &socket->laddr6;
+                T_TCP6_CREP crep = { 0, {ntohl(laddr->sin6_addr.__in6_union.__s6_addr), ntohs(laddr->sin6_port)} };
+                ret = tcp6_cre_rep(repid, &crep);
+                if (ret != E_OK) {
+                        delete_id(tcp6_repid_table, tcp6_repid_table_count, repid);
+                        return -ENOMEM;
+                }
+                socket->repid = repid;
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         if (fp == NULL)
                 return -EBADF;
+        if (fp->psock->type != SOCK_STREAM)
+        socket_t *socket = (socket_t *)fp->exinf;
+        if (socket->type != SOCK_STREAM)
                 return -EINVAL;
         ER ret;
         switch (fp->psock->family) {
+        switch (socket->family) {
         case AF_INET: {
                 if (len < 8) {
                         return -EINVAL;
+                }
                 if (fp->psock->cepid == 0) {
+                if (socket->cepid == 0) {
                         ID cepid = new_id(tcp_cepid_table, tcp_cepid_table_count);
                         if (cepid < 0)
                                 return -ENOMEM;
                         fp->psock->buf_size = 512 + 512;
                         fp->psock->buf = malloc(fp->psock->buf_size);
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
 #ifdef _DEBUG
                         memset(fp->psock->buf, 0, fp->psock->buf_size);
+                        memset(socket->buf, 0, socket->buf_size);
 #endif
                         T_TCP_CCEP ccep = { 0, fp->psock->buf, 512, &fp->psock->buf[512], 512, (FP)socket_tcp_callback };
+                        T_TCP_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp_callback };
                         ret = tcp_cre_cep(cepid, &ccep);
                         if (ret != E_OK) {
 …
+                        }
                         fp->handle = cepid;
                         fp->psock->cepid = cepid;
+                }
                 struct sockaddr_in *laddr = &fp->psock->laddr4;
                 struct sockaddr_in *raddr = &fp->psock->raddr4;
+                        socket->cepid = cepid;
+                }
+                struct sockaddr_in *laddr = &socket->laddr4;
+                struct sockaddr_in *raddr = &socket->raddr4;
                 memset(raddr, 0, sizeof(*raddr));
                 memcpy(raddr, addr, len);
                 T_IPV4EP lep = { ntohl(laddr->sin_addr.s_addr), ntohs(laddr->sin_port) };
                 T_IPV4EP rep = { ntohl(raddr->sin_addr.s_addr), ntohs(raddr->sin_port) };
                 ret = tcp_con_cep(fp->psock->cepid, &lep, &rep, SOCKET_TIMEOUT);
+                ret = tcp_con_cep(socket->cepid, &lep, &rep, SOCKET_TIMEOUT);
                 if (ret < 0) {
                         return -EHOSTUNREACH;
 …
+        }
         case AF_INET6: {
+                break;
+        }
+                if (len < 20) {
+                        return -EINVAL;
+                }
+                if (socket->cepid == 0) {
+                        ID cepid = new_id(tcp6_cepid_table, tcp6_cepid_table_count);
+                        if (cepid < 0)
+                                return -ENOMEM;
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
+#ifdef _DEBUG
+                        memset(socket->buf, 0, socket->buf_size);
+#endif
+                        T_TCP6_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp6_callback };
+                        ret = tcp6_cre_cep(cepid, &ccep);
+                        if (ret != E_OK) {
+                                delete_id(tcp6_cepid_table, tcp6_cepid_table_count, cepid);
+                                return -ENOMEM;
+                        }
+                        fp->handle = cepid;
+                        socket->cepid = cepid;
+                }
+                struct sockaddr_in6 *laddr = &socket->laddr6;
+                struct sockaddr_in6 *raddr = &socket->raddr6;
+                memset(raddr, 0, sizeof(*raddr));
+                memcpy(raddr, addr, len);
+                T_IPV6EP lep = { ntohl(laddr->sin6_addr.__in6_union.__s6_addr), ntohs(laddr->sin6_port) };
+                T_IPV6EP rep = { ntohl(raddr->sin6_addr.__in6_union.__s6_addr), ntohs(raddr->sin6_port) };
+                ret = tcp6_con_cep(socket->cepid, &lep, &rep, SOCKET_TIMEOUT);
+                if (ret < 0) {
+                        return -EHOSTUNREACH;
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         if (lfp == NULL)
                 return -EBADF;
         if (lfp->psock->type != SOCK_STREAM)
+        if (((socket_t *)lfp->exinf)->type != SOCK_STREAM)
                 return -EINVAL;
         SOCKET *fp = new_tcp_fd(0);
         if (fp == NULL) {
+        SOCKET *fp = new_fp(&IO_TYPE_TCP, 0, 0);
+        if (fp == NULL)
                 return -ENOMEM;
+        }
+        memcpy(fp->psock, lfp->psock, offsetof(socket_t, buf_size));
+        fp->exinf = malloc(sizeof(socket_t));
+        memset(fp->exinf, 0, sizeof(socket_t));
+        memcpy(fp->exinf, lfp->exinf, offsetof(socket_t, buf_size));
         ER ret;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 ID cepid;
                 if (fp->psock->cepid == 0) {
+                if (socket->cepid == 0) {
                         cepid = new_id(tcp_cepid_table, tcp_cepid_table_count);
                         if (cepid < 0)
                                 return -ENOMEM;
                         fp->psock->buf_size = 512 + 512;
                         fp->psock->buf = malloc(fp->psock->buf_size);
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
 #ifdef _DEBUG
                         memset(fp->psock->buf, 0, fp->psock->buf_size);
+                        memset(socket->buf, 0, socket->buf_size);
 #endif
                         T_TCP_CCEP ccep = { 0, fp->psock->buf, 512, &fp->psock->buf[512], 512, (FP)socket_tcp_callback };
+                        T_TCP_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp_callback };
                         ret = tcp_cre_cep(cepid, &ccep);
                         if (ret != E_OK) {
 …
+                        }
                         fp->handle = cepid;
                         fp->psock->cepid = cepid;
+                        socket->cepid = cepid;
+                }
                 else {
                         cepid = lfp->psock->cepid;
+                        cepid = ((socket_t *)lfp->exinf)->cepid;
                         fp->handle = cepid;
                         lfp->handle = tmax_tcp_cepid + lfp->psock->repid;
                         lfp->psock->cepid = 0;
                         lfp->psock->buf_size = 0;
                         lfp->psock->buf = 0;
+                        lfp->handle = tmax_tcp_cepid + ((socket_t *)lfp->exinf)->repid;
+                        ((socket_t *)lfp->exinf)->cepid = 0;
+                        ((socket_t *)lfp->exinf)->buf_size = 0;
+                        ((socket_t *)lfp->exinf)->buf = 0;
+                }
                 T_IPV4EP rep = { 0, 0 };
                 ret = tcp_acp_cep(fp->psock->cepid, fp->psock->repid, &rep, TMO_FEVR);
+                ret = tcp_acp_cep(socket->cepid, socket->repid, &rep, TMO_FEVR);
                 if (ret < 0) {
                         return -ENOMEM;
+                }
                 struct sockaddr_in *raddr = &fp->psock->raddr4;
+                struct sockaddr_in *raddr = &socket->raddr4;
                 memset(raddr, 0, sizeof(*raddr));
                 raddr->sin_family = AF_INET;
                 raddr->sin_port = htons(rep.portno);
                 raddr->sin_addr.s_addr = htonl(rep.ipaddr);
+                if (addr != NULL && len != NULL) {
+                        int sz = *len;
+                        if (sz < 8) {
+                                return -EINVAL;
+                        }
+                        struct sockaddr_in *raddr = &socket->raddr4;
+                        if (sz > sizeof(*raddr))
+                                sz = sizeof(*raddr);
+                        memcpy(addr, raddr, sz);
+                        *len = sizeof(*raddr);
+                }
                 break;
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+        }
+        if (addr != NULL && len != NULL) {
+                int sz = *len;
+                if (sz < 8) {
+                        return -EINVAL;
+                }
+                struct sockaddr_in *raddr = &fp->psock->raddr4;
+                if (sz > sizeof(*raddr))
+                        sz = sizeof(*raddr);
+                memcpy(addr, raddr, sz);
+                *len = sizeof(*raddr);
+                ID cepid;
+                if (socket->cepid == 0) {
+                        cepid = new_id(tcp6_cepid_table, tcp6_cepid_table_count);
+                        if (cepid < 0)
+                                return -ENOMEM;
+                        socket->buf_size = 512 + 512;
+                        socket->buf = malloc(socket->buf_size);
+#ifdef _DEBUG
+                        memset(socket->buf, 0, socket->buf_size);
+#endif
+                        T_TCP6_CCEP ccep = { 0, socket->buf, 512, &socket->buf[512], 512, (FP)socket_tcp6_callback };
+                        ret = tcp6_cre_cep(cepid, &ccep);
+                        if (ret != E_OK) {
+                                delete_id(tcp6_cepid_table, tcp6_cepid_table_count, cepid);
+                                return -ENOMEM;
+                        }
+                        fp->handle = cepid;
+                        socket->cepid = cepid;
+                }
+                else {
+                        cepid = ((socket_t *)lfp->exinf)->cepid;
+                        fp->handle = cepid;
+                        lfp->handle = tmax_tcp6_cepid + ((socket_t *)lfp->exinf)->repid;
+                        ((socket_t *)lfp->exinf)->cepid = 0;
+                        ((socket_t *)lfp->exinf)->buf_size = 0;
+                        ((socket_t *)lfp->exinf)->buf = 0;
+                }
+                T_IPV6EP rep = { 0, 0 };
+                ret = tcp6_acp_cep(socket->cepid, socket->repid, &rep, TMO_FEVR);
+                if (ret < 0) {
+                        return -ENOMEM;
+                }
+                struct sockaddr_in6 *raddr = &socket->raddr6;
+                memset(raddr, 0, sizeof(*raddr));
+                raddr->sin6_family = AF_INET;
+                raddr->sin6_port = htons(rep.portno);
+#if _NET_CFG_BYTE_ORDER == _NET_CFG_BIG_ENDIAN
+                memcpy(raddr->sin6_addr.__in6_union.__s6_addr, rep.ipaddr.__u6_addr.__u6_addr8, 16);
+#else
+                for (int i = 0; i < 16; i++)
+                        raddr->sin6_addr.__in6_union.__s6_addr[i] = rep.ipaddr.__u6_addr.__u6_addr8[i];
+#endif
+                if (addr != NULL && len != NULL) {
+                        int sz = *len;
+                        if (sz < 8) {
+                                return -EINVAL;
+                        }
+                        struct sockaddr_in6 *raddr = &socket->raddr6;
+                        if (sz > sizeof(*raddr))
+                                sz = sizeof(*raddr);
+                        memcpy(addr, raddr, sz);
+                        *len = sizeof(*raddr);
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         int ret = 0;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 switch (fp->psock->type) {
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         if ((addr != NULL) || (alen != 0)) {
 …
                         if (flags & MSG_OOB) {
                                 ret = tcp_snd_oob(fp->psock->cepid, (void *)buf, len, SOCKET_TIMEOUT);
+                                ret = tcp_snd_oob(socket->cepid, (void *)buf, len, SOCKET_TIMEOUT);
                                 if (ret < 0) {
                                         return -ECOMM;
 …
                         else {
                                 for (;;) {
                                         ret = tcp_snd_dat(fp->psock->cepid, (void *)buf, len, SOCKET_TIMEOUT);
+                                        ret = tcp_snd_dat(socket->cepid, (void *)buf, len, SOCKET_TIMEOUT);
                                         if (ret < 0) {
                                                 if (ret == E_TMOUT)
 …
                                 return -EINVAL;
+                        }
                         struct sockaddr_in *raddr = &fp->psock->raddr4;
+                        struct sockaddr_in *raddr = &socket->raddr4;
                         memset(raddr, 0, sizeof(*raddr));
                         memcpy(raddr, addr, sz);
                         T_IPV4EP rep = { ntohl(raddr->sin_addr.s_addr), ntohs(raddr->sin_port) };
                         ret = udp_snd_dat(fp->psock->cepid, &rep, (void *)buf, len,
                                 (fp->psock->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
+                        ret = udp_snd_dat(socket->cepid, &rep, (void *)buf, len,
+                                (socket->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
                         if (ret < 0) {
                                 return (ret == E_TMOUT) ? -ETIME : -ECOMM;
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        if ((addr != NULL) || (alen != 0)) {
+                                return -EISCONN;
+                        }
+                        if (flags & MSG_OOB) {
+                                ret = tcp6_snd_oob(socket->cepid, (void *)buf, len, SOCKET_TIMEOUT);
+                                if (ret < 0) {
+                                        return -ECOMM;
+                                }
+                        }
+                        else {
+                                for (;;) {
+                                        ret = tcp6_snd_dat(socket->cepid, (void *)buf, len, SOCKET_TIMEOUT);
+                                        if (ret < 0) {
+                                                if (ret == E_TMOUT)
+                                                        return -ETIME;
+                                                return -ECOMM;
+                                        }
+                                        len -= ret;
+                                        if (len <= 0)
+                                                break;
+                                        buf = (const void *)&((uint8_t *)buf)[ret];
+                                }
+                        }
+                        break;
+                }
+                case SOCK_DGRAM: {
+                        int sz = alen;
+                        if ((addr == NULL) || (sz < 8)) {
+                                return -EINVAL;
+                        }
+                        struct sockaddr_in6 *raddr = &socket->raddr6;
+                        memset(raddr, 0, sizeof(*raddr));
+                        memcpy(raddr, addr, sz);
+                        T_IPV6EP rep = { ntohl(raddr->sin6_addr.__in6_union.__s6_addr), ntohs(raddr->sin6_port) };
+                        ret = udp6_snd_dat(socket->cepid, &rep, (void *)buf, len,
+                                (socket->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
+                        if (ret < 0) {
+                                return (ret == E_TMOUT) ? -ETIME : -ECOMM;
+                        }
+                        break;
+                }
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         int ret = 0;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 switch (fp->psock->type) {
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         if (flags & MSG_OOB) {
                                 ret = tcp_rcv_oob(fp->psock->cepid, buf, len);
+                                ret = tcp_rcv_oob(socket->cepid, buf, len);
                                 if (ret < 0) {
                                         syslog(LOG_ERROR, "tcp_rcv_oob => %d", ret);
 …
                         else {
                                 int rsz, tmp;
                                 if (fp->psock->input == NULL) {
+                                if (socket->input == NULL) {
                                         ret = wai_sem(SEM_FILEDESC);
                                         if (ret < 0) {
                                                 syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                        }
                                         fp->psock->len = 0;
+                                        socket->len = 0;
                                         ret = sig_sem(SEM_FILEDESC);
                                         if (ret < 0) {
                                                 syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                        }
                                         ret = tcp_rcv_buf(fp->psock->cepid, &fp->psock->input, TMO_FEVR);
+                                        ret = tcp_rcv_buf(socket->cepid, &socket->input, TMO_FEVR);
                                         if (ret < 0) {
                                                 syslog(LOG_ERROR, "tcp_rcv_buf => %d", ret);
 …
+                                }
                                 else
                                         rsz = fp->psock->len;
+                                        rsz = socket->len;
                                 tmp = rsz;
                                 if (rsz > len)
                                         rsz = len;
                                 if (rsz >= 0) {
                                         memcpy(buf, fp->psock->input, rsz);
+                                        memcpy(buf, socket->input, rsz);
                                         ret = wai_sem(SEM_FILEDESC);
                                         if (ret < 0) {
                                                 syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                        }
                                         fp->psock->len = tmp - rsz;
+                                        socket->len = tmp - rsz;
                                         ret = sig_sem(SEM_FILEDESC);
                                         if (ret < 0) {
 …
+                                        }
                                         if (tmp - rsz == 0) {
                                                 fp->psock->input = NULL;
+                                                socket->input = NULL;
+                                        }
                                         else
                                                 fp->psock->input = (void *)&((uint8_t *)fp->psock->input)[rsz];
                                         ret = tcp_rel_buf(fp->psock->cepid, rsz);
+                                                socket->input = (void *)&((uint8_t *)socket->input)[rsz];
+                                        ret = tcp_rel_buf(socket->cepid, rsz);
                                         if ((ret != E_OBJ) && (ret < 0)) {
                                                 syslog(LOG_ERROR, "tcp_rel_buf => %d", ret);
 …
+                }
                 case SOCK_DGRAM: {
                         struct sockaddr_in *raddr = &fp->psock->raddr4;
+                        struct sockaddr_in *raddr = &socket->raddr4;
                         int rsz;
                         ret = wai_sem(SEM_FILEDESC);
 …
                                 syslog(LOG_ERROR, "wai_sem => %d", ret);
+                        }
                         T_NET_BUF *input = fp->psock->input;
+                        T_NET_BUF *input = socket->input;
                         if (input == NULL) {
                                 ret = sig_sem(SEM_FILEDESC);
 …
                                 T_IPV4EP rep = { 0, 0 };
                                 ret = udp_rcv_dat(fp->psock->cepid, &rep, buf, len,
                                         (fp->psock->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
+                                ret = udp_rcv_dat(socket->cepid, &rep, buf, len,
+                                        (socket->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
                                 if (ret < 0) {
+                                        syslog(LOG_ERROR, "udp_rcv_buf => %d", ret);
+                                        if ((socket->flags & O_NONBLOCK) == 0)
+                                                syslog(LOG_ERROR, "udp_rcv_buf => %d", ret);
                                         return (ret == E_TMOUT) ? -ETIME : -ECOMM;
+                                }
 …
+                                        }
                                         int sz = *alen;
                                         memset(raddr, 0, sizeof(fp->psock->raddr4));
+                                        memset(raddr, 0, sizeof(socket->raddr4));
                                         raddr->sin_family = AF_INET;
                                         raddr->sin_port = htons(rep.portno);
                                         raddr->sin_addr.s_addr = htonl(rep.ipaddr);
                                         if (sz > sizeof(fp->psock->raddr4))
                                                 sz = sizeof(fp->psock->raddr4);
+                                        if (sz > sizeof(socket->raddr4))
+                                                sz = sizeof(socket->raddr4);
                                         memcpy(addr, raddr, sz);
                                         *alen = sz;
 …
+                        }
                         else {
                                 rsz = fp->psock->len;
                                 void *pbuf = fp->psock->buf;
                                 fp->psock->input = NULL;
                                 fp->psock->len = 0;
                                 fp->psock->buf = NULL;
+                                rsz = socket->len;
+                                void *pbuf = socket->buf;
+                                socket->input = NULL;
+                                socket->len = 0;
+                                socket->buf = NULL;
                                 if ((addr != NULL) && (alen != NULL)) {
                                         int sz = *alen;
                                         if (sz > sizeof(fp->psock->raddr4))
                                                 sz = sizeof(fp->psock->raddr4);
+                                        if (sz > sizeof(socket->raddr4))
+                                                sz = sizeof(socket->raddr4);
                                         memcpy(addr, raddr, sz);
                                         *alen = sz;
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        if (flags & MSG_OOB) {
+                                ret = tcp6_rcv_oob(socket->cepid, buf, len);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "tcp6_rcv_oob => %d", ret);
+                                        return -ECOMM;
+                                }
+                        }
+                        else {
+                                int rsz, tmp;
+                                if (socket->input == NULL) {
+                                        ret = wai_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                        }
+                                        socket->len = 0;
+                                        ret = sig_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                        }
+                                        ret = tcp6_rcv_buf(socket->cepid, &socket->input, TMO_FEVR);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "tcp6_rcv_buf => %d", ret);
+                                                return -ECOMM;
+                                        }
+                                        rsz = ret;
+                                }
+                                else
+                                        rsz = socket->len;
+                                tmp = rsz;
+                                if (rsz > len)
+                                        rsz = len;
+                                if (rsz >= 0) {
+                                        memcpy(buf, socket->input, rsz);
+                                        ret = wai_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                        }
+                                        socket->len = tmp - rsz;
+                                        ret = sig_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                        }
+                                        if (tmp - rsz == 0) {
+                                                socket->input = NULL;
+                                        }
+                                        else
+                                                socket->input = (void *)&((uint8_t *)socket->input)[rsz];
+                                        ret = tcp6_rel_buf(socket->cepid, rsz);
+                                        if ((ret != E_OBJ) && (ret < 0)) {
+                                                syslog(LOG_ERROR, "tcp6_rel_buf => %d", ret);
+                                                //return -ECOMM;
+                                        }
+                                }
+                                ret = rsz;
+                        }
+                        break;
+                }
+                case SOCK_DGRAM: {
+                        struct sockaddr_in6 *raddr = &socket->raddr6;
+                        int rsz;
+                        ret = wai_sem(SEM_FILEDESC);
+                        if (ret < 0) {
+                                syslog(LOG_ERROR, "wai_sem => %d", ret);
+                        }
+                        T_NET_BUF *input = socket->input;
+                        if (input == NULL) {
+                                ret = sig_sem(SEM_FILEDESC);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                }
+                                T_IPV6EP rep = { 0, 0 };
+                                ret = udp6_rcv_dat(socket->cepid, &rep, buf, len,
+                                        (socket->flags & O_NONBLOCK) ? TMO_POL : SOCKET_TIMEOUT);
+                                if (ret < 0) {
+                                        if ((socket->flags & O_NONBLOCK) == 0)
+                                                syslog(LOG_ERROR, "udp6_rcv_buf => %d", ret);
+                                        return (ret == E_TMOUT) ? -ETIME : -ECOMM;
+                                }
+                                rsz = ret;
+                                if ((addr != NULL) && (alen != NULL)) {
+                                        ret = wai_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                        }
+                                        int sz = *alen;
+                                        memset(raddr, 0, sizeof(socket->raddr6));
+                                        raddr->sin6_family = AF_INET;
+                                        raddr->sin6_port = htons(rep.portno);
+#if _NET_CFG_BYTE_ORDER == _NET_CFG_BIG_ENDIAN
+                                        memcpy(raddr->sin6_addr.__in6_union.__s6_addr, rep.ipaddr.__u6_addr.__u6_addr8, 16);
+#else
+                                        for (int i = 0; i < 16; i++)
+                                                raddr->sin6_addr.__in6_union.__s6_addr[i] = rep.ipaddr.__u6_addr.__u6_addr8[i];
+#endif
+                                        if (sz > sizeof(socket->raddr6))
+                                                sz = sizeof(socket->raddr6);
+                                        memcpy(addr, raddr, sz);
+                                        *alen = sz;
+                                        ret = sig_sem(SEM_FILEDESC);
+                                        if (ret < 0) {
+                                                syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                        }
+                                }
+                        }
+                        else {
+                                rsz = socket->len;
+                                void *pbuf = socket->buf;
+                                socket->input = NULL;
+                                socket->len = 0;
+                                socket->buf = NULL;
+                                if ((addr != NULL) && (alen != NULL)) {
+                                        int sz = *alen;
+                                        if (sz > sizeof(socket->raddr6))
+                                                sz = sizeof(socket->raddr6);
+                                        memcpy(addr, raddr, sz);
+                                        *alen = sz;
+                                }
+                                ret = sig_sem(SEM_FILEDESC);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                }
+                                if (rsz > len)
+                                        rsz = len;
+                                memcpy(buf, pbuf, rsz);
+                                ret = rel_net_buf(input);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "rel_net_buf => %d", ret);
+                                        //return -ECOMM;
+                                }
+                        }
+                        ret = rsz;
+                }
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         ER ret;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 switch (fp->psock->type) {
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         ret = tcp_sht_cep(fp->psock->cepid);
+                        ret = tcp_sht_cep(socket->cepid);
                         if (ret < 0) {
                                 return -ECOMM;
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        ret = tcp6_sht_cep(socket->cepid);
+                        if (ret < 0) {
+                                return -ECOMM;
+                        }
+                        break;
+                }
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         ER ret;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 switch (fp->psock->type) {
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         switch (level) {
 …
                                 switch (optname) {
                                 case SO_REUSEADDR:
                                         if (fp->psock->flags & SO_REUSEADDR) {
+                                        if (socket->flags & SO_REUSEADDR) {
                                                 *(bool *)optval = true;
+                                        }
 …
                                         break;
                                 case SO_KEEPALIVE:
                                         if (fp->psock->flags & SO_KEEPALIVE) {
+                                        if (socket->flags & SO_KEEPALIVE) {
                                                 *(bool *)optval = true;
+                                        }
 …
                                 break;
                         case IPPROTO_TCP:
                                 ret = tcp_get_opt(fp->psock->cepid, optname, (void *)optval, *optlen);
+                                ret = tcp_get_opt(socket->cepid, optname, (void *)optval, *optlen);
                                 if (ret < 0) {
                                         return -EINVAL;
 …
                         switch (level) {
                         case IPPROTO_UDP:
                                 ret = udp_get_opt(fp->psock->cepid, optname, (void *)optval, *optlen);
+                                ret = udp_get_opt(socket->cepid, optname, (void *)optval, *optlen);
                                 if (ret < 0) {
                                         return -EINVAL;
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        switch (level) {
+                        case SOL_SOCKET:
+                                switch (optname) {
+                                case SO_REUSEADDR:
+                                        if (socket->flags & SO_REUSEADDR) {
+                                                *(bool *)optval = true;
+                                        }
+                                        else {
+                                                *(bool *)optval = false;
+                                        }
+                                        break;
+                                case SO_KEEPALIVE:
+                                        if (socket->flags & SO_KEEPALIVE) {
+                                                *(bool *)optval = true;
+                                        }
+                                        else {
+                                                *(bool *)optval = false;
+                                        }
+                                        break;
+                                case SO_ERROR:
+                                        *(int *)optval = 0;
+                                        break;
+                                default:
+                                        return -EINVAL;
+                                }
+                                break;
+                        case IPPROTO_TCP:
+                                ret = tcp6_get_opt(socket->cepid, optname, (void *)optval, *optlen);
+                                if (ret < 0) {
+                                        return -EINVAL;
+                                }
+                                *optlen = ret;
+                                break;
+                        default:
+                                return -EINVAL;
+                        }
+                        break;
+                }
+                case SOCK_DGRAM: {
+                        switch (level) {
+                        case IPPROTO_UDP:
+                                ret = udp6_get_opt(socket->cepid, optname, (void *)optval, *optlen);
+                                if (ret < 0) {
+                                        return -EINVAL;
+                                }
+                                *optlen = ret;
+                                break;
+                        default:
+                                return -EINVAL;
+                        }
+                        break;
+                }
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         ER ret;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 switch (fp->psock->type) {
+                switch (socket->type) {
                 case SOCK_STREAM: {
                         switch (level){
 …
                                 case SO_REUSEADDR:
                                         if (*(bool *)optval) {
                                                 fp->psock->flags |= SO_REUSEADDR;
+                                                socket->flags |= SO_REUSEADDR;
+                                        }
                                         else {
                                                 fp->psock->flags &= ~SO_REUSEADDR;
+                                                socket->flags &= ~SO_REUSEADDR;
+                                        }
                                         break;
                                 case SO_KEEPALIVE:
                                         if (*(bool *)optval) {
                                                 fp->psock->flags |= SO_KEEPALIVE;
+                                                socket->flags |= SO_KEEPALIVE;
+                                        }
                                         else {
                                                 fp->psock->flags &= ~SO_KEEPALIVE;
+                                                socket->flags &= ~SO_KEEPALIVE;
+                                        }
                                         break;
 …
                                 break;
                         case IPPROTO_TCP:
                                 ret = tcp_set_opt(fp->psock->cepid, optname, (void *)optval, optlen);
+                                ret = tcp_set_opt(socket->cepid, optname, (void *)optval, optlen);
                                 if (ret < 0) {
                                         return -EINVAL;
 …
                         switch (level){
                         case IPPROTO_UDP:
                                 ret = udp_set_opt(fp->psock->cepid, optname, (void *)optval, optlen);
+                                ret = udp_set_opt(socket->cepid, optname, (void *)optval, optlen);
                                 if (ret < 0) {
                                         return -EINVAL;
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                switch (socket->type) {
+                case SOCK_STREAM: {
+                        switch (level){
+                        case SOL_SOCKET:
+                                switch (optname) {
+                                case SO_REUSEADDR:
+                                        if (*(bool *)optval) {
+                                                socket->flags |= SO_REUSEADDR;
+                                        }
+                                        else {
+                                                socket->flags &= ~SO_REUSEADDR;
+                                        }
+                                        break;
+                                case SO_KEEPALIVE:
+                                        if (*(bool *)optval) {
+                                                socket->flags |= SO_KEEPALIVE;
+                                        }
+                                        else {
+                                                socket->flags &= ~SO_KEEPALIVE;
+                                        }
+                                        break;
+                                default:
+                                        return -EINVAL;
+                                }
+                                break;
+                        case IPPROTO_TCP:
+                                ret = tcp6_set_opt(socket->cepid, optname, (void *)optval, optlen);
+                                if (ret < 0) {
+                                        return -EINVAL;
+                                }
+                                break;
+                        default:
+                                return -EINVAL;
+                        }
+                        break;
+                }
+                case SOCK_DGRAM: {
+                        switch (level){
+                        case IPPROTO_UDP:
+                                ret = udp6_set_opt(socket->cepid, optname, (void *)optval, optlen);
+                                if (ret < 0) {
+                                        return -EINVAL;
+                                }
+                                break;
+                        default:
+                                return -EINVAL;
+                        }
+                        break;
+                }
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         socklen_t size = *len;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 struct sockaddr_in *raddr = &fp->psock->raddr4;
+                struct sockaddr_in *raddr = &socket->raddr4;
                 *len = sizeof(struct sockaddr_in);
                 if (size > sizeof(struct sockaddr_in))
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                struct sockaddr_in6 *raddr = &socket->raddr6;
+                *len = sizeof(struct sockaddr_in6);
+                if (size > sizeof(struct sockaddr_in6))
+                        size = sizeof(struct sockaddr_in6);
+                memcpy(addr, raddr, size);
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
         socklen_t size = *len;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 const T_IN4_ADDR *laddr4 = in4_get_ifaddr(0);
 …
                 laddr.sin_family = AF_INET;
                 laddr.sin_addr.s_addr = htonl(*laddr4);
                 laddr.sin_port = fp->psock->laddr4.sin_port;
+                laddr.sin_port = socket->laddr4.sin_port;
                 memset(&laddr.sin_zero, 0, sizeof(laddr.sin_zero));
                 *len = sizeof(struct sockaddr_in);
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                const T_IN6_ADDR *laddr6 = in6_get_ifaddr(0);
+                struct sockaddr_in6 laddr;
+                laddr.sin6_family = AF_INET;
+#if _NET_CFG_BYTE_ORDER == _NET_CFG_BIG_ENDIAN
+                memcpy(laddr.sin6_addr.__in6_union.__s6_addr, laddr6->__u6_addr.__u6_addr8, 16);
+#else
+                for (int i = 0; i < 16; i++)
+                        laddr.sin6_addr.__in6_union.__s6_addr[i] = laddr6->__u6_addr.__u6_addr8[i];
+#endif
+                laddr.sin6_port = socket->laddr6.sin6_port;
+                *len = sizeof(struct sockaddr_in6);
+                if (size > sizeof(struct sockaddr_in6))
+                        size = sizeof(struct sockaddr_in6);
+                memcpy(addr, &laddr, size);
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
+}
 int tcp_fd_close(struct _IO_FILE *fp)
+int tcp_fd_close(struct SHELL_FILE *fp)
+{
         ER ret, ret2;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 if (fp->psock->cepid != 0) {
                         ID cepid = fp->psock->cepid;
+                if (socket->cepid != 0) {
+                        ID cepid = socket->cepid;
                         ret = tcp_sht_cep(cepid);
                         if (ret < 0) {
                                 //return -1;
+                        }
                         ret = tcp_cls_cep(cepid, (fp->psock->repid != 0) ? 0 : SOCKET_TIMEOUT);
+                        ret = tcp_cls_cep(cepid, (socket->repid != 0) ? 0 : SOCKET_TIMEOUT);
                         ret2 = tcp_del_cep(cepid);
+                        free(fp->psock->buf);
+                        fp->psock->buf = NULL;
+                        delete_tcp_fd(cepid);
+                        //delete_fd_by_id(&IO_TYPE_TCP, cepid);
                         delete_id(tcp_cepid_table, tcp_cepid_table_count, cepid);
                         if ((ret < 0) || (ret2 < 0)) {
 …
+                        }
+                }
                 else if (fp->psock->repid != 0) {
                         ID repid = fp->psock->repid;
+                else if (socket->repid != 0) {
+                        ID repid = socket->repid;
                         ret = tcp_del_rep(repid);
+                        free(fp->psock->buf);
+                        fp->psock->buf = NULL;
+                        delete_tcp_fd(tmax_tcp_cepid + repid);
+                        //delete_fd_by_id(&IO_TYPE_TCP, tmax_tcp_cepid + repid);
                         delete_id(tcp_repid_table, tcp_repid_table_count, repid);
                         if (ret < 0) {
 …
+                }
                 else {
-                        free(fp->psock->buf);
-                        fp->psock->buf = NULL;
                         return -EINVAL;
+                }
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                if (socket->cepid != 0) {
+                        ID cepid = socket->cepid;
+                        ret = tcp6_sht_cep(cepid);
+                        if (ret < 0) {
+                                //return -1;
+                        }
+                        ret = tcp6_cls_cep(cepid, (socket->repid != 0) ? 0 : SOCKET_TIMEOUT);
+                        ret2 = tcp6_del_cep(cepid);
+                        //delete_fd_by_id(&IO_TYPE_TCP, cepid);
+                        delete_id(tcp6_cepid_table, tcp6_cepid_table_count, cepid);
+                        if ((ret < 0) || (ret2 < 0)) {
+                                return (ret == E_TMOUT) ? -ETIME : -EINVAL;
+                        }
+                }
+                else if (socket->repid != 0) {
+                        ID repid = socket->repid;
+                        ret = tcp6_del_rep(repid);
+                        //delete_fd_by_id(&IO_TYPE_TCP, tmax_tcp6_cepid + repid);
+                        delete_id(tcp6_repid_table, tcp6_repid_table_count, repid);
+                        if (ret < 0) {
+                                return -EINVAL;
+                        }
+                }
+                else {
+                        return -EINVAL;
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
+}
 size_t tcp_fd_read(struct _IO_FILE *fp, unsigned char *dst, size_t dstsz)
+size_t tcp_fd_read(struct SHELL_FILE *fp, unsigned char *dst, size_t dstsz)
+{
         return shell_recvfrom(fp->fd, dst, dstsz, 0, NULL, NULL);
+}
 size_t tcp_fd_write(struct _IO_FILE *fp, const unsigned char *src, size_t srcsz)
+size_t tcp_fd_write(struct SHELL_FILE *fp, const unsigned char *src, size_t srcsz)
+{
         return shell_sendto(fp->fd, src, srcsz, 0, NULL, 0);
+}
 off_t tcp_fd_seek(struct _IO_FILE *fp, off_t ofs, int org)
+off_t tcp_fd_seek(struct SHELL_FILE *fp, off_t ofs, int org)
+{
         return -EPERM;
+}
 int tcp_fd_ioctl(struct _IO_FILE *fp, int req, void *arg)
+int tcp_fd_ioctl(struct SHELL_FILE *fp, int req, void *arg)
+{
         return -EINVAL;
+}
+int udp_fd_close(struct _IO_FILE *fp)
+bool_t tcp_fd_readable(struct SHELL_FILE *fp)
+{
+        ER ret;
+        socket_t *socket = (socket_t *)fp->exinf;
+        if (socket->cepid != 0) {
+                if (socket->len == 0) {
+                        ret = tcp_rcv_buf(socket->cepid, &socket->input, TMO_NBLK);
+                        if ((ret != E_WBLK) && (ret != E_OBJ) && (ret < 0)) {
+                                syslog(LOG_ERROR, "tcp_rcv_buf => %d", ret);
+                                //return ret;
+                        }
+                        if (ret > 0) {
+                                ret = wai_sem(SEM_FILEDESC);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                                }
+                                socket->len += ret;
+                                ret = sig_sem(SEM_FILEDESC);
+                                if (ret < 0) {
+                                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                                }
+                        }
+                }
+                else ret = 1;
+                if (ret > 0) {
+                        return true;
+                }
+        }
+        return false;
+}
+void tcp_fd_delete(struct SHELL_FILE *fp)
+{
+        socket_t *socket = (socket_t *)fp->exinf;
+        free(socket->buf);
+        socket->buf = NULL;
+        free(fp->exinf);
+        fp->exinf = NULL;
+}
+ER socket_tcp_callback(ID cepid, FN fncd, void *p_parblk)
+{
+        struct SHELL_FILE *fp = id_to_fd(&IO_TYPE_TCP, cepid);
+        FLGPTN flgptn = 0;
+        ER ret;
+        int len;
+        if (fp == NULL)
+                return E_PAR;
+        int fd = fp->fd;
+        FD_SET(fd, (fd_set *)&flgptn);
+        switch (fncd) {
+        case TFN_TCP_RCV_BUF:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket_t *socket = (socket_t *)fp->exinf;
+                socket->len += len;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_RCV_DAT:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket->len += len;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_SND_DAT:
+                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_CAN_CEP:
+                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_DEL_REP:
+                delete_fd_by_id(&IO_TYPE_TCP, tmax_tcp_cepid + cepid);
+                return E_OK;
+        case TFN_TCP_DEL_CEP:
+                delete_fd_by_id(&IO_TYPE_TCP, cepid);
+                return E_OK;
+        default:
+                return E_OK;
+        }
+}
+ER socket_tcp6_callback(ID cepid, FN fncd, void *p_parblk)
+{
+        struct SHELL_FILE *fp = id_to_fd(&IO_TYPE_TCP, cepid);
+        FLGPTN flgptn = 0;
+        ER ret;
+        int len;
+        if (fp == NULL)
+                return E_PAR;
+        int fd = fp->fd;
+        FD_SET(fd, (fd_set *)&flgptn);
+        switch (fncd) {
+        case TFN_TCP_RCV_BUF:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket_t *socket = (socket_t *)fp->exinf;
+                socket->len += len;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_RCV_DAT:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket->len += len;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_SND_DAT:
+                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_CAN_CEP:
+                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_TCP_DEL_REP:
+                delete_fd_by_id(&IO_TYPE_TCP, tmax_tcp_cepid + cepid);
+                return E_OK;
+        case TFN_TCP_DEL_CEP:
+                delete_fd_by_id(&IO_TYPE_TCP, cepid);
+                return E_OK;
+        default:
+                return E_OK;
+        }
+}
+int udp_fd_close(struct SHELL_FILE *fp)
+{
         ER ret;
         ID cepid;
+        switch (fp->psock->family) {
+        socket_t *socket = (socket_t *)fp->exinf;
+        switch (socket->family) {
         case AF_INET: {
                 cepid = fp->psock->cepid;
+                cepid = socket->cepid;
                 ret = udp_del_cep(cepid);
+                //free(fp->psock->buf);
+                //fp->psock->buf = NULL;
+                delete_udp_fd(cepid);
+                //delete_fd_by_id(&IO_TYPE_UDP, cepid);
                 delete_id(udp_cepid_table, udp_cepid_table_count, cepid);
                 if (ret < 0) {
 …
+        }
         case AF_INET6: {
+                return -EAFNOSUPPORT;
+        }
+                cepid = socket->cepid;
+                ret = udp6_del_cep(cepid);
+                //delete_fd_by_id(&IO_TYPE_UDP, cepid);
+                delete_id(udp6_cepid_table, udp6_cepid_table_count, cepid);
+                if (ret < 0) {
+                        return -EINVAL;
+                }
+                break;
+        }
+        default:
+                return -ENOPROTOOPT;
+        }
 …
+}
 size_t udp_fd_read(struct _IO_FILE *fp, unsigned char *dst, size_t dstsz)
+size_t udp_fd_read(struct SHELL_FILE *fp, unsigned char *dst, size_t dstsz)
+{
         return shell_recvfrom(fp->fd, dst, dstsz, 0, NULL, NULL);
+}
 size_t udp_fd_write(struct _IO_FILE *fp, const unsigned char *src, size_t srcsz)
+size_t udp_fd_write(struct SHELL_FILE *fp, const unsigned char *src, size_t srcsz)
+{
         return shell_sendto(fp->fd, src, srcsz, 0, NULL, 0);
+}
 off_t udp_fd_seek(struct _IO_FILE *fp, off_t ofs, int org)
+off_t udp_fd_seek(struct SHELL_FILE *fp, off_t ofs, int org)
+{
         return -EPERM;
+}
 int udp_fd_ioctl(struct _IO_FILE *fp, int req, void *arg)
+int udp_fd_ioctl(struct SHELL_FILE *fp, int req, void *arg)
+{
         return -EINVAL;
+}
+bool_t udp_fd_readable(struct SHELL_FILE *fp)
+{
+        socket_t *socket = (socket_t *)fp->exinf;
+        if (socket->cepid != 0) {
+                if (socket->input != NULL) {
+                        return true;
+                }
+        }
+        return false;
+}
+void udp_fd_delete(struct SHELL_FILE *fp)
+{
+        //socket_t *socket = (socket_t *)fp->exinf;
+        //free(socket->buf);
+        //socket->buf = NULL;
+        free(fp->exinf);
+        fp->exinf = NULL;
+}
+ER socket_udp_callback(ID cepid, FN fncd, void *p_parblk)
+{
+        struct SHELL_FILE *fp = id_to_fd(&IO_TYPE_UDP, cepid);
+        FLGPTN flgptn = 0;
+        int len;
+        if (fp == NULL)
+                return E_PAR;
+        int fd = fp->fd;
+        FD_SET(fd, (fd_set *)&flgptn);
+        switch (fncd) {
+        case TEV_UDP_RCV_DAT:
+        {
+                T_UDP_RCV_DAT_PARA *udppara = (T_UDP_RCV_DAT_PARA *)p_parblk;
+                len = udppara->len;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ER ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket_t *socket = (socket_t *)fp->exinf;
+                socket->len = len;
+                if (socket->input != NULL) {
+                        ret = rel_net_buf(socket->input);
+                        if (ret < 0) {
+                                syslog(LOG_ERROR, "rel_net_buf => %d", ret);
+                        }
+                }
+                socket->input = udppara->input;
+                socket->buf = GET_UDP_SDU(udppara->input, udppara->off);
+                memset(&socket->raddr4, 0, sizeof(socket->raddr4));
+                socket->raddr4.sin_family = AF_INET;
+                socket->raddr4.sin_port = htons(udppara->rep4.portno);
+                socket->raddr4.sin_addr.s_addr = htonl(udppara->rep4.ipaddr);
+                udppara->input->flags |= NB_FLG_NOREL_IFOUT;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        }
+        case TFN_UDP_CRE_CEP:
+                return E_OK;
+        case TFN_UDP_RCV_DAT:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_SND_DAT:
+                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_CAN_CEP:
+                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_DEL_CEP:
+                delete_fd_by_id(&IO_TYPE_UDP, cepid);
+                return E_OK;
+        default:
+                return E_OK;
+        }
+}
+ER socket_udp6_callback(ID cepid, FN fncd, void *p_parblk)
+{
+        struct SHELL_FILE *fp = id_to_fd(&IO_TYPE_UDP, cepid);
+        FLGPTN flgptn = 0;
+        int len;
+        if (fp == NULL)
+                return E_PAR;
+        int fd = fp->fd;
+        FD_SET(fd, (fd_set *)&flgptn);
+        switch (fncd) {
+        case TEV_UDP_RCV_DAT:
+        {
+                T_UDP_RCV_DAT_PARA *udppara = (T_UDP_RCV_DAT_PARA *)p_parblk;
+                len = udppara->len;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                ER ret = wai_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "wai_sem => %d", ret);
+                }
+                socket_t *socket = (socket_t *)fp->exinf;
+                socket->len = len;
+                if (socket->input != NULL) {
+                        ret = rel_net_buf(socket->input);
+                        if (ret < 0) {
+                                syslog(LOG_ERROR, "rel_net_buf => %d", ret);
+                        }
+                }
+                socket->input = udppara->input;
+                socket->buf = GET_UDP_SDU(udppara->input, udppara->off);
+                memset(&socket->raddr6, 0, sizeof(socket->raddr6));
+                socket->raddr6.sin6_family = AF_INET;
+                socket->raddr6.sin6_port = htons(udppara->rep6.portno);
+#if _NET_CFG_BYTE_ORDER == _NET_CFG_BIG_ENDIAN
+                memcpy(socket->raddr6.sin6_addr.__in6_union.__s6_addr, udppara->rep6.ipaddr.__u6_addr.__u6_addr8, 16);
+#else
+                for (int i = 0; i < 16; i++)
+                        socket->raddr6.sin6_addr.__in6_union.__s6_addr[i] = udppara->rep6.ipaddr.__u6_addr.__u6_addr8[i];
+#endif
+                udppara->input->flags |= NB_FLG_NOREL_IFOUT;
+                ret = sig_sem(SEM_FILEDESC);
+                if (ret < 0) {
+                        syslog(LOG_ERROR, "sig_sem => %d", ret);
+                }
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        }
+        case TFN_UDP_CRE_CEP:
+                return E_OK;
+        case TFN_UDP_RCV_DAT:
+                len = *(int *)p_parblk;
+                if ((len <= 0) || (fp->exinf == NULL))
+                        return E_OK;
+                if (fp->readevt_w == fp->readevt_r) fp->readevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_SND_DAT:
+                if (fp->writeevt_w == fp->writeevt_r) fp->writeevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_CAN_CEP:
+                if (fp->errorevt_w == fp->errorevt_r) fp->errorevt_w++;
+                set_flg(FLG_SELECT_WAIT, flgptn);
+                return E_OK;
+        case TFN_UDP_DEL_CEP:
+                delete_fd_by_id(&IO_TYPE_UDP, cepid);
+                return E_OK;
+        default:
+                return E_OK;
+        }
+}

asp3_tinet_ecnl_rx/trunk/ntshell/src/socket_stub.h

-              r364
+              r374
 } socket_t;
 struct _IO_DIR {
         DIR dir;
+struct SHELL_DIR {
+        FATFS_DIR dir;
         struct dirent dirent;
 };
+struct _IO_FILE {
+typedef const struct io_type_s IO_TYPE;
+struct SHELL_FILE {
         int fd;
         int type;
+        IO_TYPE *type;
         int handle;
-        int (*close)(struct _IO_FILE *);
-        size_t (*read)(struct _IO_FILE *, unsigned char *, size_t);
-        size_t (*write)(struct _IO_FILE *, const unsigned char *, size_t);
-        off_t (*seek)(struct _IO_FILE *, off_t, int);
-        int (*ioctl)(struct _IO_FILE *, int, void *);
         int readevt_r;
         int readevt_w;
 …
         int errorevt_r;
         int errorevt_w;
+        union {
+                FIL *pfile;
+                struct _IO_DIR *pdir;
+                socket_t *psock;
+        };
+        void *exinf;
+};
+struct io_type_s {
+        int (*close)(struct SHELL_FILE *);
+        size_t (*read)(struct SHELL_FILE *, unsigned char *, size_t);
+        size_t (*write)(struct SHELL_FILE *, const unsigned char *, size_t);
+        off_t (*seek)(struct SHELL_FILE *, off_t, int);
+        int (*ioctl)(struct SHELL_FILE *, int, void *);
+        bool_t (*readable)(struct SHELL_FILE *);
+        void (*delete)(struct SHELL_FILE *);
 };
 …
 #endif
+extern int stdio_close(struct _IO_FILE *fp);
+extern size_t stdio_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t stdio_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern size_t stdin_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t stdout_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern size_t stderr_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+struct SHELL_FILE *new_fp(IO_TYPE *type, int id, int writable);
+int delete_fd_by_id(IO_TYPE *type, int id);
+struct SHELL_FILE *fd_to_fp(int fd);
+struct SHELL_FILE *id_to_fd(IO_TYPE *type, int id);
+extern int sio_close(struct _IO_FILE *fp);
+extern size_t sio_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t sio_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern off_t sio_seek(struct _IO_FILE *fp, off_t ofs, int org);
+extern int sio_ioctl(struct _IO_FILE *fp, int req, void *arg);
+extern int file_close(struct _IO_FILE *fp);
+extern size_t file_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t file_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern off_t file_seek(struct _IO_FILE *fp, off_t ofs, int org);
+extern int file_ioctl(struct _IO_FILE *fp, int req, void *arg);
+extern int dir_close(struct _IO_FILE *fp);
+extern size_t dir_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t dir_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern off_t dir_seek(struct _IO_FILE *fp, off_t ofs, int org);
+extern int dir_ioctl(struct _IO_FILE *fp, int req, void *arg);
+extern int tcp_fd_close(struct _IO_FILE *fp);
+extern size_t tcp_fd_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t tcp_fd_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern off_t tcp_fd_seek(struct _IO_FILE *fp, off_t ofs, int org);
+extern int tcp_fd_ioctl(struct _IO_FILE *fp, int req, void *arg);
+extern int udp_fd_close(struct _IO_FILE *fp);
+extern size_t udp_fd_read(struct _IO_FILE *fp, unsigned char *data, size_t len);
+extern size_t udp_fd_write(struct _IO_FILE *fp, const unsigned char *data, size_t len);
+extern off_t udp_fd_seek(struct _IO_FILE *fp, off_t ofs, int org);
+extern int udp_fd_ioctl(struct _IO_FILE *fp, int req, void *arg);
+struct _IO_FILE *fd_to_fp(int fd);
+struct _IO_FILE *new_sio_fd(int sioid);
+int delete_sio_fd(int sioid);
+struct _IO_FILE *sioid_to_fd(int sioid);
+struct _IO_FILE *new_file_fd(int fileid);
+int delete_file_fd(int fileid);
+struct _IO_FILE *fileid_to_fd(int fileid);
+struct _IO_FILE *new_dir_fd(int dirid);
+int delete_dir_fd(int dirid);
+struct _IO_FILE *dirid_to_fd(int dirid);
+struct _IO_FILE *new_tcp_fd(int tcpid);
+int delete_tcp_fd(int tcpid);
+struct _IO_FILE *tcpid_to_fd(int tcpid);
+struct _IO_FILE *new_udp_fd(int udpid);
+int delete_udp_fd(int udpid);
+struct _IO_FILE *udpid_to_fd(int udpid);
+int delete_fp(struct _IO_FILE *fp);
+int delete_tcp_rep(int repid);
+int delete_fp(struct SHELL_FILE *fp);
 void clean_fd();
+ER socket_tcp_callback(ID cepid, FN fncd, void *p_parblk);
+ER socket_udp_callback(ID cepid, FN fncd, void *p_parblk);
+void sys_tlsf_init(void);
 #endif // !SOCKET_STUB_H

asp3_tinet_ecnl_rx/trunk/ntshell/src/syscall.c

-              r364
+              r374
         return no_implement("flock\n");
+}
+long SYS_fchdir()
+{
+        return no_implement("fchdir\n");
+}
+long SYS_getegid32()
+{
+        return no_implement("getegid32\n");
+}
+long SYS_geteuid32()
+{
+        return no_implement("geteuid32\n");
+}
+long SYS_getgid32()
+{
+        return no_implement("getgid32\n");
+}
+long SYS_pipe2()
+{
+        return no_implement("pipe2\n");
+}
+long SYS_setgid32()
+{
+        return no_implement("setgid32\n");
+}
+long SYS_setpgid()
+{
+        return no_implement("setpgid\n");
+}
+long SYS_setsid()
+{
+        return no_implement("setsid\n");
+}
+long SYS_setuid32()
+{
+        return no_implement("setuid32\n");
+}
+long SYS_tgkill()
+{
+        return no_implement("tgkill\n");
+}

asp3_tinet_ecnl_rx/trunk/ntshell/tlsf/tlsf.c

-              r337
+              r374
 #include <stdlib.h>
 #include <string.h>
 #include "util/ntstdio.h"
+#include <stdio.h>
 #include "tlsf.h"
 …
 #define tlsf_decl static
 #endif
-extern ntstdio_t ntstdio;
 /*
 …
+{
         (void)user;
         ntstdio_printf(&ntstdio, "\t%p %s size: %x (%p)\n", ptr, used ? "used" : "free", (unsigned int)size, block_from_ptr(ptr));
+        printf("\t%p %s size: %x (%p)\n", ptr, used ? "used" : "free", (unsigned int)size, block_from_ptr(ptr));
+}
 …
         if (((ptrdiff_t)mem % ALIGN_SIZE) != 0)
+        {
                 ntstdio_printf(&ntstdio, "tlsf_add_pool: Memory must be aligned by %u bytes.\n",
+                printf("tlsf_add_pool: Memory must be aligned by %u bytes.\n",
                         (unsigned int)ALIGN_SIZE);
                 return 0;
 …
+        {
 #if defined (TLSF_64BIT)
                 ntstdio_printf(&ntstdio, "tlsf_add_pool: Memory size must be between 0x%x and 0x%x00 bytes.\n",
+                printf("tlsf_add_pool: Memory size must be between 0x%x and 0x%x00 bytes.\n",
                         (unsigned int)(pool_overhead + block_size_min),
                         (unsigned int)((pool_overhead + block_size_max) / 256));
 #else
                 ntstdio_printf(&ntstdio, "tlsf_add_pool: Memory size must be between %u and %u bytes.\n",
+                printf("tlsf_add_pool: Memory size must be between %u and %u bytes.\n",
                         (unsigned int)(pool_overhead + block_size_min),
                         (unsigned int)(pool_overhead + block_size_max));
 …
         if (rv)
+        {
                 ntstdio_printf(&ntstdio, "test_ffs_fls: %x ffs/fls tests failed.\n", rv);
+                printf("test_ffs_fls: %x ffs/fls tests failed.\n", rv);
+        }
         return rv;
 …
         if (((tlsfptr_t)mem % ALIGN_SIZE) != 0)
+        {
                 ntstdio_printf(&ntstdio, "tlsf_create: Memory must be aligned to %u bytes.\n",
+                printf("tlsf_create: Memory must be aligned to %u bytes.\n",
                         (unsigned int)ALIGN_SIZE);
                 return 0;

asp3_tinet_ecnl_rx/trunk/usbhost/src/usb_hbth.h

-              r337
+              r374
 #define USBHOST_STACK_SIZE                      2048
+extern void usbhost_init(ID tskid);
+extern void usbhost_main(intptr_t exinf);
+enum task_event_t {
+        TASK_EVENT_START,
+        TASK_EVENT_TERMINATE,
+        TASK_EVENT_WAKEUP,
+        TASK_EVENT_TIMEOUT,
+        TASK_EVENT_TICK = 0x80,
+};
+struct task_if_t {
+        void (*on_start)(struct task_if_t *task, ID tskid);
+        void (*on_end)(struct task_if_t *task);
+        int (*get_timer)(struct task_if_t *task);
+        void (*progress)(struct task_if_t *task, int elapse);
+        void (*process)(struct task_if_t *task, enum task_event_t event);
+};
+extern struct task_if_t bt_task;
+void usbhost_init(ID tskid);
+void usbhost_main(intptr_t exinf);
 /*

Context Navigation

Legend: