2 REM Character Encoding: "WHITE SQUARE" U+25A1 is □.
\r
3 REM Debugging path may be depended on code page of command prompt and this file.
\r
4 call :SetVariables "%~0"
\r
5 rem set assort_vbs=%vbslib_root%\_src\Test\tools\T_ModuleAssort2\T_ModuleAssort2.vbs
\r
7 if "%~1" == "" %not_close% %cscript% //nologo "%vbslib_root%\vbslib Prompt.vbs" ModuleAssort2 "C:\ .proja" /g_debug_:1
\r
8 if not "%~1" == "" %not_close% %cscript% //nologo "%vbslib_root%\vbslib Prompt.vbs" ModuleAssort2 %1 %2 %3 %4 %5 %6 %7 %8 %9
\r
13 REM ********************************************************************
\r
14 REM Function: SetVariables
\r
15 REM ********************************************************************
\r
17 if "%ProgramFiles(x86)%" == "" set cscript=cscript
\r
18 if not "%ProgramFiles(x86)%" == "" set cscript=%windir%\SysWOW64\cscript.exe
\r
21 set not_close=cmd.exe /K
\r
23 call :GetParentPath "%~1"
\r
24 call :GetParentPath "%ret%"
\r
25 call :GetParentPath "%ret%"
\r
26 set vbslib_root=%ret%
\r
31 REM ********************************************************************
\r
32 REM Function: GetParentPath
\r
33 REM ********************************************************************
\r