@ECHO OFF
SETLOCAL
SET BATDIR=%~dp0
SET TMPNAM=%~n0.tmp

REM //--------------------------------------------------------------------------
REM // * Sat Mar 26 22:42:00 JST 2016 Naoyuki Sawa
REM // - 1st リリース。
REM // - clipncss.cモジュール,及び,MkNcsSeq.bat用のデータを作成するツールです。
REM //   昔作った'/clip/tool/NcsEdit/NcsEdit.hsp'をベースに、MkNcsSeq.batのスクリプト形式に合うように変更しました。
REM //   NcsEdit.hspはHSPで作成しましたが、今回のNcsEdiTk.batはTcl/Tkで作成しました。
REM //   また、背景イメージやキャラクターイメージのロード機能も追加しました。
REM // - 当ツールが出力するデータファイルは、そのままではMkNcsSeq.batのスクリプト形式には一致しません。
REM //   当ツールはラベル行とend行を出力しません。
REM //   MkNcsSeq.batのスクリプトから、当ツールが出力したデータファイルをincludeするようにして使用して下さい。
REM //   <例>
REM //   │Sample1
REM //   │    #include "当ツールが出力したデータファイル1.txt"
REM //   │end
REM //   │Sample1
REM //   │    #include "当ツールが出力したデータファイル2.txt"
REM //   │end
REM //   概ね、MkLedDef.batとdpavidot4.exeを併用する時と同じような役割分担です。

REM //--------------------------------------------------------------------------
REM //■実行方法
REM //│CALL NcsEdiTk.bat
REM //■操作方法
REM //│プログラムを実行して、メニューの[Help]⇒[About]を参照して下さい。

REM //--------------------------------------------------------------------------
REM //pkgIndex.tclを更新する。
REM // - 本当は変更時に一度だけ更新すれば良いのですが、確実のために毎回更新する事にした。
ECHO pkg_mkIndex %BATDIR:\=/% | tclsh.exe
IF ERRORLEVEL 1 GOTO L_ERR

REM //--------------------------------------------------------------------------
REM //NcsEdiTk.tclを実行する。
REM // - 下記のように、TCLLIBPATHの'\'を'/'に置き換える必要が有ります。理由は以下の通りです。
REM //   TCLLIBPATHはwish.exeによって解釈されます。wish.exeは'\'をエスケープ文字と見なします。
REM //   そのままだと、パス区切りの'\'がエスケープ文字と見なされて、wish.exeがパスを正しく解釈出来ません。
REM //   上記の問題を回避するために、当バッチスクリプト側で'\'を'/'に置き換えて、wish.exeに引き渡す必要が有ります。
env.exe TCLLIBPATH=%BATDIR:\=/% cmd.exe /C START wish.exe %BATDIR%NcsEdiTk.tcl -geometry +0+0
IF ERRORLEVEL 1 GOTO L_ERR

REM //--------------------------------------------------------------------------
REM //	ECHO 完了しました。
REM //	PAUSE
EXIT /B

REM //--------------------------------------------------------------------------
:L_ERR
ECHO ###エラーが発生しました。
REM //	PAUSE
EXIT /B 1
