la der de der

[fast-forth/master.git] / config / SendSource.bat

diff --git a/config/SendSource.bat b/config/SendSource.bat
index c3c76d8..c2ef015 100644 (file)
--- a/config/SendSource.bat
+++ b/config/SendSource.bat
@@ -2,22 +2,28 @@
 ::used by SendSourceFileToTarget.bat or by scite editor Tools menu
 
 ::echo %2
-::echo %~d1\inc\%~n2.pat
+::echo %~dp1..\inc\%~n2.pat
 
-@ECHO OFF
+::@ECHO OFF
 
-::first select part .4th or .f
+::first select part .4TH or .f
 
-IF /I "%~x1" == ".4TH" GOTO 4th
+IF /I "%~x1" == ".4TH" GOTO 4TH
 
 :: ==============================================================================================
 :: source file.f part
+:: %~dp0 is the path of this file.bat
 :: %~dpn1.f is the symbolic source file.f described as drive\path\name.f
-:: %~d1\config\gema\%~n2.pat is the pattern file for preprocessor gema.exe
-:: %~dpn1.4th is the source file.4th to be sent to the target
+:: %~d1\inc\%~n2.pat is the pattern file for preprocessor gema.exe
+:: %~dpn1.4TH is the source file.4TH to be sent to the target
 :: %~d1 is the drive of arg %1
 :: %~n2 is your selected template by SelectTarget.bat or your scite $(1)
 
+::echo %1
+::echo %2
+::echo %3
+::pause
+
 IF "%~x1" == "" (
 echo no file to be preprocessed!
 goto badend
@@ -28,8 +34,8 @@ echo %~dpn1.f not found!
 goto badend
 )
 
-IF NOT EXIST %~d1\inc\%~n2.pat (
-echo %~d1\inc\%~n2.pat not found!
+IF NOT EXIST %~dp0..\inc\%~n2.pat (
+echo %~dp0..\inc\%~n2.pat not found!
 goto badend
 )
 
@@ -46,31 +52,35 @@ exit
 
 
 :preprocessF
-::@%~d1\prog\gema.exe -nobackup -line -t '\n=\r\n;\r\n=\r\n' -f  %~d1\inc\%~n2.pat %~dpn1.f %~dpn1.4th
-@%~d1\prog\gema.exe -nobackup -line -t '-\r\n=\r\n' -f  %~d1\inc\%~n2.pat %~dpn1.f %~dpn1.4th
+%~dp0..\prog\gema.exe -nobackup -line -t '-\r\n=\r\n' -f  %~dp0..\inc\%~n2.pat %~dpn1.f %~dpn1.4TH
+call  %~dp0Select.bat SelectDeviceId %~dp0..\inc\%~n2.pat
 
 :DownloadF
-@taskkill /F /IM ttermpro.exe 1> NUL 2>&1
+taskkill /F /IM ttermpro.exe 1> NUL 2>&1
 
 :Win32F
-@"C:\Program Files\teraterm\ttpmacro.exe" /V %~d1\config\SendFile.ttl %~dpn1.4th /C  %3  1> NUL 2>&1
-@IF NOT ERRORLEVEL 1 GOTO EndF
+"C:\Program Files\teraterm\ttpmacro.exe" /V %~dp0SendFile.ttl %~dpn1.4TH /C %3 %deviceid% 1> NUL 2>&1
+IF NOT ERRORLEVEL 1 GOTO EndF
 
 :Win64F
-@"C:\Program Files (x86)\teraterm\ttpmacro.exe" /V %~d1\config\SendFile.ttl %~dpn1.4th /C %3
+"C:\Program Files (x86)\teraterm\ttpmacro.exe" /V %~dp0SendFile.ttl %~dpn1.4TH /C %3 %deviceid%
 
 :EndF
-@MOVE "%~dpn1.4th" "%~dp1\LAST.4th" > NUL
+MOVE "%~dpn1.4TH" "%~dp1LAST.4TH" > NUL
+call  %~dp0Select.bat SelectDevice %~dp0..\inc\%~n2.pat
+if not exist  %~dp1SD_%device:~3% MD %~dp1SD_%device:~3% > NUL 
+COPY /y %~dp1LAST.4TH %~dp1SD_%device:~3%\%~n1.4TH > NUL
 exit
 
 
 :: ==============================================================================================
-:: source file.4th part
-:: %~dpn1.4th is the file to be sent described as drive\path\name.4th
+:: source file.4TH part
+:: %~dp0 is the path of this file.bat
+:: %~dpn1.4TH is the file to be sent described as drive\path\name.4TH
 :: %~d1 is the drive of param %1
 :: %~nx0 is name.ext of this bat file
 
-:4th
+:4TH
 
 shift /3
 
@@ -79,8 +89,8 @@ shift /3
 ::echo %3
 ::pause
 
-IF NOT EXIST %~dpn1.4th (
-echo %~dpn1.4th not found!
+IF NOT EXIST %~dpn1.4TH (
+echo %~dpn1.4TH not found!
 goto badend
 )
 
@@ -95,16 +105,15 @@ goto badend
 
 :Download4th
 
-@taskkill /F /IM ttermpro.exe 1> NUL 2>&1
+taskkill /F /IM ttermpro.exe 1> NUL 2>&1
 
 :Win324th
-@"C:\Program Files\teraterm\ttpmacro.exe" /V %~d1\config\SendFile.ttl %~dpn1.4TH /C %2  1> NUL 2>&1
-@IF NOT ERRORLEVEL 1 GOTO End4th
+"C:\Program Files\teraterm\ttpmacro.exe" /V %~dp0..\config\SendFile.ttl %~dpn1.4TH /C %2 0 1> NUL 2>&1
+IF NOT ERRORLEVEL 1 GOTO End4th
 
 :Win644th
-@"C:\Program Files (x86)\teraterm\ttpmacro.exe" /V %~d1\config\SendFile.ttl %~dpn1.4TH /C %2
+"C:\Program Files (x86)\teraterm\ttpmacro.exe" /V %~dp0..\config\SendFile.ttl %~dpn1.4TH /C %2 0
 
 :End4th
-@COPY "%~dpn1.4th" "%~dp1\LAST.4th" > NUL
 exit