source: EcnlProtoTool/trunk/asp3_dcre/tinet/tinet.trb@ 321

Last change on this file since 321 was 321, checked in by coas-nagasima, 7 years ago

文字コードを設定
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-ruby;charset=UTF-8
File size: 24.0 KB
Line 
1# ======================================================================
2#
3# TINET (TCP/IP Protocol Stack)
4#
5# Copyright (C) 2001-2007 by Dep. of Computer Science and Engineering
6# Tomakomai National College of Technology, JAPAN
7#
8# 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
9# ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
10# 変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
11# (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
12# 権表示，この利用条件および下記の無保証規定が，そのままの形でソー
13# スコード中に含まれていること．
14# (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
15# 用できる形で再配布する場合には，再配布に伴うドキュメント（利用
16# 者マニュアルなど）に，上記の著作権表示，この利用条件および下記
17# の無保証規定を掲載すること．
18# (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
19# 用できない形で再配布する場合には，次のいずれかの条件を満たすこ
20# と．
21# (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
22# 作権表示，この利用条件および下記の無保証規定を掲載すること．
23# (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
24# 害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
25# また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
26# 由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
27# 免責すること．
28#
29# 本ソフトウェアは，無保証で提供されているものである．上記著作権者お
30# よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
31# に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
32# アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
33# の責任を負わない．
34#
35# @(#) $Id$
36#
37# =====================================================================
38
39# =====================================================================
40# tinet_cfg.h の生成
41# =====================================================================
42
43$tinetCfgH = GenFile.new("tinet_cfg.h")
44$tinetCfgH.add("/* tinet_cfg.h */")
45$tinetCfgH.add("#ifndef _TINET_CFG_H_")
46$tinetCfgH.add("#define _TINET_CFG_H_")
47$tinetCfgH.add()
48
49$cfgData[:TCP_CRE_REP].each do |key, params|
50 $tinetCfgH.add("#define #{params[:tcp4_repid]} #{params[:tcp4_repid].val}")
51end
52$cfgData[:TCP6_CRE_REP].each do |key, params|
53 $tinetCfgH.add("#define #{params[:tcp6_repid]} #{params[:tcp6_repid].val}")
54end
55$cfgData[:TCP_CRE_CEP].each do |key, params|
56 $tinetCfgH.add("#define #{params[:tcp4_cepid]} #{params[:tcp4_cepid].val}")
57end
58$cfgData[:TCP6_CRE_CEP].each do |key, params|
59 $tinetCfgH.add("#define #{params[:tcp6_cepid]} #{params[:tcp6_cepid].val}")
60end
61$cfgData[:UDP_CRE_CEP].each do |key, params|
62 $tinetCfgH.add("#define #{params[:udp4_cepid]} #{params[:udp4_cepid].val}")
63end
64$cfgData[:UDP6_CRE_CEP].each do |key, params|
65 $tinetCfgH.add("#define #{params[:udp6_cepid]} #{params[:udp6_cepid].val}")
66end
67$cfgData[:VRID_TCP4_REP].each do |key, params|
68 $tinetCfgH.add("#define #{params[:vrid_tcp4_repid]} #{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}")
69end
70$cfgData[:VRID_TCP4_CEP].each do |key, params|
71 $tinetCfgH.add("#define #{params[:vrid_tcp4_cepid]} #{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}")
72end
73$cfgData[:VRID_TCP6_REP].each do |key, params|
74 $tinetCfgH.add("#define #{params[:vrid_tcp6_repid]} #{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}")
75end
76$cfgData[:VRID_TCP6_CEP].each do |key, params|
77 $tinetCfgH.add("#define #{params[:vrid_tcp6_cepid]} #{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}")
78end
79$cfgData[:VRID_UDP4_CEP].each do |key, params|
80 $tinetCfgH.add("#define #{params[:vrid_udp4_cepid]} #{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}")
81end
82$cfgData[:VRID_UDP6_CEP].each do |key, params|
83 $tinetCfgH.add("#define #{params[:vrid_udp6_cepid]} #{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}")
84end
85$tinetCfgH.add()
86$tinetCfgH.add("#endif /* _TINET_CFG_H_ */")
87
88# =====================================================================
89# tinet_cfg.c の生成
90# =====================================================================
91
92$tinetCfgC = GenFile.new("tinet_cfg.c")
93$tinetCfgC.add(<<EOS)
94/* tinet_cfg.c */
95
96#include <kernel.h>
97#include <sil.h>
98#include "kernel_cfg.h"
99#include "tinet_cfg.h"
100#include <tinet_defs.h>
101#include <tinet_config.h>
102#include <net/if.h>
103#include <net/if_ppp.h>
104#include <net/if_loop.h>
105#include <net/ethernet.h>
106#include <net/net.h>
107#include <net/net_buf.h>
108#include <netinet/in.h>
109#include <netinet/in_var.h>
110#include <netinet/in_itron.h>
111#include <netinet/ip.h>
112#include <netinet/ip6.h>
113#include <netinet/tcp.h>
114#include <netinet/tcp_timer.h>
115#include <netinet/tcp_var.h>
116#include <netinet/tcp_fsm.h>
117#include <netinet/udp_var.h>
118
119EOS
120#
121# インクルードディレクティブ（#include）
122#
123$tinetCfgC.add()
124$tinetCfgC.add("/*")
125$tinetCfgC.add(" * Include Directives (#include)")
126$tinetCfgC.add(" */")
127$tinetCfgC.add()
128$includeFiles.each do |file|
129 $tinetCfgC.add("#include #{file}")
130end
131
132# // TCP (IPv4) 受付口
133if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP4_REP].size > 0
134 $tinetCfgC.add()
135 $tinetCfgC.add("#define TNUM_TCP_REPID #{$cfgData[:TCP_CRE_REP].size + $cfgData[:VRID_TCP4_REP].size}")
136 $tinetCfgC.add()
137 $tinetCfgC.add("const ID tmax_tcp_repid = (TMIN_TCP_REPID + TNUM_TCP_REPID - 1);")
138 $tinetCfgC.add()
139 $tinetCfgC.add("T_TCP_REP tcp_rep[TNUM_TCP_REPID] = {")
140 $cfgData[:TCP_CRE_REP].each do |key, params|
141 $tinetCfgC.add("\t{")
142 $tinetCfgC.add("\t\t#{params[:tcp4_repatr]},")
143 $tinetCfgC.add("\t\t{ #{params[:ipv4addr]}, #{params[:portno]} },")
144 $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
145 $tinetCfgC.add("\t\tTCP_REP_FLG_VALID,")
146 $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:tcp4_repid].val},")
147 $tinetCfgC.add("#endif")
148 $tinetCfgC.add("\t\t},")
149 end
150 $cfgData[:VRID_TCP4_REP].each do |key, params|
151 $tinetCfgC.add("\t{")
152 $tinetCfgC.add("\t\t0,")
153 $tinetCfgC.add("\t\t{ IPV4_ADDRANY, TCP_PORTANY },")
154 $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
155 $tinetCfgC.add("\t\tTCP_REP_FLG_DYNAMIC,")
156 $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size},")
157 $tinetCfgC.add("#endif")
158 $tinetCfgC.add("\t\t},")
159 end
160 $tinetCfgC.add("\t};")
161end
162
163# // TCP (IPv6) 受付口
164if $cfgData[:TCP6_CRE_REP].size > 0 || $cfgData[:VRID_TCP6_REP].size > 0
165 $tinetCfgC.add()
166 $tinetCfgC.add("#define TNUM_TCP_REPID #{$cfgData[:TCP6_CRE_REP].size + $cfgData[:VRID_TCP6_REP].size}")
167 $tinetCfgC.add()
168 $tinetCfgC.add("const ID tmax_tcp_repid = (TMIN_TCP_REPID + TNUM_TCP_REPID - 1);")
169 $tinetCfgC.add()
170 $tinetCfgC.add("T_TCP6_REP tcp_rep[TNUM_TCP_REPID] = {")
171 $cfgData[:TCP6_CRE_REP].each do |key, params|
172 $tinetCfgC.add("\t{")
173 $tinetCfgC.add("\t\t#{params[:tcp6_repatr]},")
174 $tinetCfgC.add("\t\t{ #{params[:ipv6addr]}, #{params[:portno]} },")
175 $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
176 $tinetCfgC.add("\t\tTCP_REP_FLG_VALID,")
177 $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:tcp6_repid].val},")
178 $tinetCfgC.add("#endif")
179 $tinetCfgC.add("\t\t},")
180 end
181 $cfgData[:VRID_TCP6_REP].each do |key, params|
182 $tinetCfgC.add("\t{")
183 $tinetCfgC.add("\t\t0,")
184 $tinetCfgC.add("\t\t{ IPV6_ADDRANY, TCP_PORTANY },")
185 $tinetCfgC.add("#if defined(TCP_CFG_EXTENTIONS)")
186 $tinetCfgC.add("\t\tTCP_REP_FLG_DYNAMIC,")
187 $tinetCfgC.add("\t\tSEM_TCP_REP_LOCK#{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size},")
188 $tinetCfgC.add("#endif")
189 $tinetCfgC.add("\t\t},")
190 end
191 $tinetCfgC.add("\t};")
192end
193
194# // TCP (IPv4) 通信端点
195if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP4_CEP].size > 0
196 $tinetCfgC.add()
197 $tinetCfgC.add("#define TNUM_TCP_CEPID #{$cfgData[:TCP_CRE_CEP].size + $cfgData[:VRID_TCP4_CEP].size}")
198 $tinetCfgC.add()
199 $tinetCfgC.add("const ID tmax_tcp_cepid = (TMIN_TCP_CEPID + TNUM_TCP_CEPID - 1);")
200 $tinetCfgC.add()
201 $tinetCfgC.add("T_TCP_CEP tcp_cep[TNUM_TCP_CEPID] = {")
202 $cfgData[:TCP_CRE_CEP].each do |key, params|
203 $tinetCfgC.add("\t{")
204 $tinetCfgC.add("\t\t#{params[:tcp4_cepatr]},")
205 $tinetCfgC.add("\t\t(void*)#{params[:sbuf]},")
206 $tinetCfgC.add("\t\t#{params[:sbufsz]},")
207 $tinetCfgC.add("\t\t(void*)#{params[:rbuf]},")
208 $tinetCfgC.add("\t\t#{params[:rbufsz]},")
209 $tinetCfgC.add("\t\t(t_tcp_callback)(FP)#{params[:callback]},")
210 $tinetCfgC.add("\t\tTCP_CEP_FLG_VALID,")
211 $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:tcp4_cepid].val},")
212 $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:tcp4_cepid].val},")
213 $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:tcp4_cepid].val},")
214 $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:tcp4_cepid].val},")
215 $tinetCfgC.add("\t\t},")
216 end
217 $cfgData[:VRID_TCP4_CEP].each do |key, params|
218 $tinetCfgC.add("\t{")
219 $tinetCfgC.add("\t\t0,")
220 $tinetCfgC.add("\t\t(void*)NULL,")
221 $tinetCfgC.add("\t\t0,")
222 $tinetCfgC.add("\t\t(void*)NULL,")
223 $tinetCfgC.add("\t\t0,")
224 $tinetCfgC.add("\t\t(t_tcp_callback)(FP)NULL,")
225 $tinetCfgC.add("\t\tTCP_CEP_FLG_DYNAMIC,")
226 $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
227 $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
228 $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
229 $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size},")
230 $tinetCfgC.add("\t\t},")
231 end
232 $tinetCfgC.add("\t};")
233end
234
235# // TCP (IPv6) 通信端点
236if $cfgData[:TCP6_CRE_CEP].size > 0 || $cfgData[:VRID_TCP6_CEP].size > 0
237 $tinetCfgC.add()
238 $tinetCfgC.add("#define TNUM_TCP_CEPID #{$cfgData[:TCP6_CRE_CEP].size + $cfgData[:VRID_TCP6_CEP].size}")
239 $tinetCfgC.add()
240 $tinetCfgC.add("const ID tmax_tcp_cepid = (TMIN_TCP_CEPID + TNUM_TCP_CEPID - 1);")
241 $tinetCfgC.add()
242 $tinetCfgC.add("T_TCP6_CEP tcp_cep[TNUM_TCP_CEPID] = {")
243 $cfgData[:TCP6_CRE_CEP].each do |key, params|
244 $tinetCfgC.add("\t{")
245 $tinetCfgC.add("\t\t#{params[:tcp6_cepatr]},")
246 $tinetCfgC.add("\t\t(void*)#{params[:sbuf]},")
247 $tinetCfgC.add("\t\t#{params[:sbufsz]},")
248 $tinetCfgC.add("\t\t(void*)#{params[:rbuf]},")
249 $tinetCfgC.add("\t\t#{params[:rbufsz]},")
250 $tinetCfgC.add("\t\t(t_tcp_callback)(FP)#{params[:callback]},")
251 $tinetCfgC.add("\t\tTCP_CEP_FLG_VALID,")
252 $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:tcp6_cepid].val},")
253 $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:tcp6_cepid].val},")
254 $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:tcp6_cepid].val},")
255 $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:tcp6_cepid].val},")
256 $tinetCfgC.add("\t\t},")
257 end
258 $cfgData[:VRID_TCP6_CEP].each do |key, params|
259 $tinetCfgC.add("\t{")
260 $tinetCfgC.add("\t\t0,")
261 $tinetCfgC.add("\t\t(void*)NULL,")
262 $tinetCfgC.add("\t\t0,")
263 $tinetCfgC.add("\t\t(void*)NULL,")
264 $tinetCfgC.add("\t\t0,")
265 $tinetCfgC.add("\t\t(t_tcp_callback)(FP)NULL,")
266 $tinetCfgC.add("\t\tTCP_CEP_FLG_DYNAMIC,")
267 $tinetCfgC.add("\t\tSEM_TCP_CEP_LOCK#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
268 $tinetCfgC.add("\t\tFLG_TCP_CEP_EST#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
269 $tinetCfgC.add("\t\tFLG_TCP_CEP_SND#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
270 $tinetCfgC.add("\t\tFLG_TCP_CEP_RCV#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size},")
271 $tinetCfgC.add("\t\t},")
272 end
273 $tinetCfgC.add("\t};")
274end
275
276# // UDP (IPv4) 通信端点
277if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP4_CEP].size > 0
278 $tinetCfgC.add()
279 $tinetCfgC.add("#define TNUM_UDP_CEPID #{$cfgData[:UDP_CRE_CEP].size + $cfgData[:VRID_UDP4_CEP].size}")
280 $tinetCfgC.add()
281 $tinetCfgC.add("const ID tmax_udp_cepid = (TMIN_UDP_CEPID + TNUM_UDP_CEPID - 1);")
282 $tinetCfgC.add()
283 $tinetCfgC.add("T_UDP_CEP udp_cep[TNUM_UDP_CEPID] = {")
284 $cfgData[:UDP_CRE_CEP].each do |key, params|
285 $tinetCfgC.add("\t{")
286 $tinetCfgC.add("\t\t#{params[:udp4_cepatr]},")
287 $tinetCfgC.add("\t\t{ #{params[:ipv4addr]}, #{params[:portno]} },")
288 $tinetCfgC.add("\t\t(t_udp_callback)(FP)#{params[:callback]},")
289 $tinetCfgC.add("\t\tUDP_CEP_FLG_VALID,")
290 $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:udp4_cepid].val},")
291 $tinetCfgC.add("\t\tTA_NULL,")
292 $tinetCfgC.add("\t\tTA_NULL,")
293 $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:udp4_cepid].val},")
294 $tinetCfgC.add("\t\t},")
295 end
296 $cfgData[:VRID_UDP4_CEP].each do |key, params|
297 $tinetCfgC.add("\t{")
298 $tinetCfgC.add("\t\t0,")
299 $tinetCfgC.add("\t\t{ IPV4_ADDRANY, UDP_PORTANY },")
300 $tinetCfgC.add("\t\t(t_udp_callback)(FP)NULL,")
301 $tinetCfgC.add("\t\tUDP_CEP_FLG_DYNAMIC,")
302 $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
303 $tinetCfgC.add("\t\tTA_NULL,")
304 $tinetCfgC.add("\t\tTA_NULL,")
305 $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size},")
306 $tinetCfgC.add("\t\t},")
307 end
308 $tinetCfgC.add("\t};")
309end
310
311# // UDP (IPv6) 通信端点
312if $cfgData[:UDP6_CRE_CEP].size > 0 || $cfgData[:VRID_UDP6_CEP].size > 0
313 $tinetCfgC.add()
314 $tinetCfgC.add("#define TNUM_UDP_CEPID #{cfgData[:UDP6_CRE_CEP].size + $cfgData[:VRID_UDP6_CEP].size}")
315 $tinetCfgC.add()
316 $tinetCfgC.add("const ID tmax_udp_cepid = (TMIN_UDP_CEPID + TNUM_UDP_CEPID - 1);")
317 $tinetCfgC.add()
318 $tinetCfgC.add("T_UDP6_CEP udp_cep[TNUM_UDP_CEPID] = {")
319 $cfgData[:UDP6_CRE_CEP].each do |key, params|
320 $tinetCfgC.add("\t{")
321 $tinetCfgC.add("\t\t#{params[:udp6_cepatr]},")
322 $tinetCfgC.add("\t\t{ #{params[:ipv6addr]}, #{params[:portno]} },")
323 $tinetCfgC.add("\t\t(t_udp_callback)(FP)#{params[:callback]},")
324 $tinetCfgC.add("\t\tUDP_CEP_FLG_VALID,")
325 $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:udp6_cepid].val},")
326 $tinetCfgC.add("\t\tTA_NULL,")
327 $tinetCfgC.add("\t\tTA_NULL,")
328 $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:udp6_cepid].val},")
329 $tinetCfgC.add("\t\t},")
330 end
331 $cfgData[:VRID_UDP6_CEP].each do |key, params|
332 $tinetCfgC.add("\t{")
333 $tinetCfgC.add("\t\t0,")
334 $tinetCfgC.add("\t\t{ IPV6_ADDRANY, UDP_PORTANY },")
335 $tinetCfgC.add("\t\t(t_udp_callback)(FP)NULL,")
336 $tinetCfgC.add("\t\tUDP_CEP_FLG_DYNAMIC,")
337 $tinetCfgC.add("\t\tSEM_UDP_CEP_LOCK#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
338 $tinetCfgC.add("\t\tTA_NULL,")
339 $tinetCfgC.add("\t\tTA_NULL,")
340 $tinetCfgC.add("\t\tDTQ_UDP_RCVQ#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size},")
341 $tinetCfgC.add("\t\t},")
342 end
343 $tinetCfgC.add("\t};")
344end
345
346# =====================================================================
347# tinet_kern.cfg の生成
348# =====================================================================
349
350# // TCP (IPv4) 受付口
351if $cfgData[:TCP_CRE_REP].size > 0 || $cfgData[:VRID_TCP4_REP].size > 0
352 $cfgData[:TCP_CRE_REP].each do |key, params|
353 cfgInfo = { APINAME: "CRE_SEM" }
354 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:tcp4_repid].val}"
355 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
356 cfgInfo["isemcnt"] = 1
357 cfgInfo["maxsem"] = 1
358 $cfgFileInfo.push(cfgInfo)
359 end
360 $cfgData[:VRID_TCP4_REP].each do |key, params|
361 cfgInfo = { APINAME: "CRE_SEM" }
362 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:vrid_tcp4_repid].val + $cfgData[:TCP_CRE_REP].size}"
363 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
364 cfgInfo["isemcnt"] = 1
365 cfgInfo["maxsem"] = 1
366 $cfgFileInfo.push(cfgInfo)
367 end
368end
369
370# // TCP (IPv6) 受付口
371if $cfgData[:TCP6_CRE_REP].size > 0 || $cfgData[:VRID_TCP6_REP].size > 0
372 $cfgData[:TCP6_CRE_REP].each do |key, params|
373 cfgInfo = { APINAME: "CRE_SEM" }
374 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:tcp6_repid].val}"
375 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
376 cfgInfo["isemcnt"] = 1
377 cfgInfo["maxsem"] = 1
378 $cfgFileInfo.push(cfgInfo)
379 end
380 $cfgData[:VRID_TCP6_REP].each do |key, params|
381 cfgInfo = { APINAME: "CRE_SEM" }
382 cfgInfo["semid"] = "SEM_TCP_REP_LOCK#{params[:vrid_tcp6_repid].val + $cfgData[:TCP6_CRE_REP].size}"
383 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
384 cfgInfo["isemcnt"] = 1
385 cfgInfo["maxsem"] = 1
386 $cfgFileInfo.push(cfgInfo)
387 end
388end
389
390# // TCP (IPv4) 通信端点
391if $cfgData[:TCP_CRE_CEP].size > 0 || $cfgData[:VRID_TCP4_CEP].size > 0
392 $cfgData[:TCP_CRE_CEP].each do |key, params|
393 cfgInfo = { APINAME: "CRE_SEM" }
394 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:tcp4_cepid].val}"
395 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
396 cfgInfo["isemcnt"] = 1
397 cfgInfo["maxsem"] = 1
398 $cfgFileInfo.push(cfgInfo)
399
400 cfgInfo = { APINAME: "CRE_FLG" }
401 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:tcp4_cepid].val}"
402 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
403 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
404 $cfgFileInfo.push(cfgInfo)
405
406 cfgInfo = { APINAME: "CRE_FLG" }
407 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:tcp4_cepid].val}"
408 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
409 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
410 $cfgFileInfo.push(cfgInfo)
411
412 cfgInfo = { APINAME: "CRE_FLG" }
413 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:tcp4_cepid].val}"
414 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
415 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
416 $cfgFileInfo.push(cfgInfo)
417 end
418 $cfgData[:VRID_TCP4_CEP].each do |key, params|
419 cfgInfo = { APINAME: "CRE_SEM" }
420 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
421 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
422 cfgInfo["isemcnt"] = 1
423 cfgInfo["maxsem"] = 1
424 $cfgFileInfo.push(cfgInfo)
425
426 cfgInfo = { APINAME: "CRE_FLG" }
427 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
428 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
429 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
430 $cfgFileInfo.push(cfgInfo)
431
432 cfgInfo = { APINAME: "CRE_FLG" }
433 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
434 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
435 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
436 $cfgFileInfo.push(cfgInfo)
437
438 cfgInfo = { APINAME: "CRE_FLG" }
439 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:vrid_tcp4_cepid].val + $cfgData[:TCP_CRE_CEP].size}"
440 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
441 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
442 $cfgFileInfo.push(cfgInfo)
443 end
444end
445
446# // TCP (IPv6) 通信端点
447if $cfgData[:TCP6_CRE_CEP].size > 0 || $cfgData[:VRID_TCP6_CEP].size > 0
448 $cfgData[:TCP6_CRE_CEP].each do |key, params|
449 cfgInfo = { APINAME: "CRE_SEM" }
450 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:tcp6_cepid].val}"
451 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
452 cfgInfo["isemcnt"] = 1
453 cfgInfo["maxsem"] = 1
454 $cfgFileInfo.push(cfgInfo)
455
456 cfgInfo = { APINAME: "CRE_FLG" }
457 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:tcp6_cepid].val}"
458 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
459 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
460 $cfgFileInfo.push(cfgInfo)
461
462 cfgInfo = { APINAME: "CRE_FLG" }
463 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:tcp6_cepid].val}"
464 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
465 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
466 $cfgFileInfo.push(cfgInfo)
467
468 cfgInfo = { APINAME: "CRE_FLG" }
469 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:tcp6_cepid].val}"
470 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
471 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
472 $cfgFileInfo.push(cfgInfo)
473 end
474 $cfgData[:VRID_TCP6_CEP].each do |key, params|
475 cfgInfo = { APINAME: "CRE_SEM" }
476 cfgInfo["semid"] = "SEM_TCP_CEP_LOCK#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
477 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
478 cfgInfo["isemcnt"] = 1
479 cfgInfo["maxsem"] = 1
480 $cfgFileInfo.push(cfgInfo)
481
482 cfgInfo = { APINAME: "CRE_FLG" }
483 cfgInfo["flgid"] = "FLG_TCP_CEP_EST#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
484 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
485 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
486 $cfgFileInfo.push(cfgInfo)
487
488 cfgInfo = { APINAME: "CRE_FLG" }
489 cfgInfo["flgid"] = "FLG_TCP_CEP_SND#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
490 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
491 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
492 $cfgFileInfo.push(cfgInfo)
493
494 cfgInfo = { APINAME: "CRE_FLG" }
495 cfgInfo["flgid"] = "FLG_TCP_CEP_RCV#{params[:vrid_tcp6_cepid].val + $cfgData[:TCP6_CRE_CEP].size}"
496 cfgInfo["flgatr"] = NumStr.new($TA_TFIFO | $TA_WSGL, "TA_TFIFO|TA_WSGL")
497 cfgInfo["iflgptn"] = NumStr.new($TCP_CEP_EVT_CLOSED, "TCP_CEP_EVT_CLOSED")
498 $cfgFileInfo.push(cfgInfo)
499 end
500end
501
502# // UDP (IPv4) 通信端点
503if $cfgData[:UDP_CRE_CEP].size > 0 || $cfgData[:VRID_UDP4_CEP].size > 0
504 $cfgData[:UDP_CRE_CEP].each do |key, params|
505 cfgInfo = { APINAME: "CRE_SEM" }
506 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:udp4_cepid].val}"
507 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
508 cfgInfo["isemcnt"] = 1
509 cfgInfo["maxsem"] = 1
510 $cfgFileInfo.push(cfgInfo)
511
512 cfgInfo = { APINAME: "CRE_DTQ" }
513 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:udp4_cepid].val}"
514 cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
515 cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
516 #cfgInfo["dtqmb"] = NumStr.new($NULL, "NULL")
517 $cfgFileInfo.push(cfgInfo)
518 end
519 $cfgData[:VRID_UDP4_CEP].each do |key, params|
520 cfgInfo = { APINAME: "CRE_SEM" }
521 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
522 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
523 cfgInfo["isemcnt"] = 1
524 cfgInfo["maxsem"] = 1
525 $cfgFileInfo.push(cfgInfo)
526
527 cfgInfo = { APINAME: "CRE_DTQ" }
528 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:vrid_udp4_cepid].val + $cfgData[:UDP_CRE_CEP].size}"
529 cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
530 cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
531 #cfgInfo["dtqmb"] = NumStr.new($NULL, "NULL")
532 $cfgFileInfo.push(cfgInfo)
533 end
534end
535
536# // UDP (IPv6) 通信端点
537if $cfgData[:UDP6_CRE_CEP].size > 0 || $cfgData[:VRID_UDP6_CEP].size > 0
538 $cfgData[:UDP6_CRE_CEP].each do |key, params|
539 cfgInfo = { APINAME: "CRE_SEM" }
540 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:udp6_cepid].val}"
541 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
542 cfgInfo["isemcnt"] = 1
543 cfgInfo["maxsem"] = 1
544 $cfgFileInfo.push(cfgInfo)
545
546 cfgInfo = { APINAME: "CRE_DTQ" }
547 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:udp6_cepid].val}"
548 cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
549 cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
550 #cfgInfo["dtqmb"] = NumStr.new($NULL, "NULL")
551 $cfgFileInfo.push(cfgInfo)
552 end
553 $cfgData[:VRID_UDP6_CEP].each do |key, params|
554 cfgInfo = { APINAME: "CRE_SEM" }
555 cfgInfo["semid"] = "SEM_UDP_CEP_LOCK#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
556 cfgInfo["sematr"] = NumStr.new($TA_TPRI, "TA_TPRI")
557 cfgInfo["isemcnt"] = 1
558 cfgInfo["maxsem"] = 1
559 $cfgFileInfo.push(cfgInfo)
560
561 cfgInfo = { APINAME: "CRE_DTQ" }
562 cfgInfo["dtqid"] = "DTQ_UDP_RCVQ#{params[:vrid_udp6_cepid].val + $cfgData[:UDP6_CRE_CEP].size}"
563 cfgInfo["dtqatr"] = NumStr.new($TA_TFIFO, "TA_TFIFO")
564 cfgInfo["dtqcnt"] = NumStr.new($NUM_DTQ_UDP_RCVQ, "NUM_DTQ_UDP_RCVQ")
565 #cfgInfo["dtqmb"] = NumStr.new($NULL, "NULL")
566 $cfgFileInfo.push(cfgInfo)
567 end
568end
Note: See TracBrowser for help on using the repository browser.