/*シナリオファイル名入力*/
regexoption "SJIS"
inputbox "input scenario file name" "scenario file name"
sce_file = inputstr
strmatch sce_file '\S.*\.scenario$'
if result = 1 then
messagebox sce_file "scenario filename accepted"
else
messagebox "bye!" "scenario filename denied"
endif
/*TTLファイル名決定*/
ttl_file = sce_file
strreplace ttl_file 1 '.scenario$' '.ttl'
messagebox ttl_file "scenario filename denied"
/*シナリオファイルオープン、TTLファイル作成*/
fileopen HDL_sce sce_file 0
filecreate HDL_ttl ttl_file
/*タグ定義*/
keyword_logwrite = 'logwrite'
keyword_sendln = 'sendln'
keyword_notouch = 'notouch'
TAG_NUM = 0
/*主処理*/
while 1
/*ファイル最後ならbreak*/
filereadln HDL_sce line
if result = 1 then
break
endif
/*TAG決定*/
strmatch line keyword_logwrite
if result=1 TAG_NUM=1
strmatch line keyword_sendln
if result=1 TAG_NUM=2
/*ファイル書き込み処理*/
if TAG_NUM=0 then
strmatch line keyword_notouch
if result=1 then
strreplace line 1 keyword_notouch ""
filewriteln HDL_ttl line
else
filewriteln HDL_ttl line
endif
elseif TAG_NUM=1 then
strmatch line keyword_notouch
if result=1 then
strreplace line 1 keyword_notouch ""
filewriteln HDL_ttl line
else
strmatch line keyword_logwrite
if result=1 filewriteln HDL_ttl "#13#10"
newline = "logwrite "#39
strconcat newline line
strconcat newline #39
strconcat newline "#13#10
filewriteln HDL_ttl newline
endif
elseif TAG_NUM=2 then
strmatch line keyword_notouch
if result=1 then
strreplace line 1 keyword_notouch ""
filewriteln HDL_ttl line
else
strmatch line keyword_sendln
if result=1 then
newline = "logwrite "#39
strconcat newline line
strconcat newline #39
strconcat newline "#13#10"
filewriteln HDL_ttl newline
filewriteln HDL_ttl "sendln "#39#39
else
filewriteln HDL_ttl "pause 1"
newline = "sendln "#39
strconcat newline line
strconcat newline #39
filewriteln HDL_ttl newline
endif
endif
endif
endwhile
/*ファイルクローズ、終了*/
fileclose HDL_sce
fileclose HDL_ttl
end