_src/Test/vbslib_test/T_MakeRule/RFiles4/CommandA.bat

   1 @echo off\r
   2 rem ********************************************************************\r
   3 rem * File: Command.bat\r
   4 rem ********************************************************************\r
   5 \r
   6 call :SetVariables\r
   7 call :Main %*\r
   8 if errorlevel 1 ( echo ^<%error_message%/^> & pause & exit /b )\r
   9 if "%~1" == "1"  ( exit /b 21 )\r
  10 goto :eof\r
  11 \r
  12 \r
  13 rem ********************************************************************\r
  14 rem * Function: Main\r
  15 rem *    Calls test functions.\r
  16 rem ********************************************************************\r
  17 :Main\r
  18         echo --- Command.bat %*\r
  19         if "%~1" == "2"  ( copy  Step2\01\A.txt  Step2\Work\A.txt )\r
  20         if "%~1" == "1"  ( copy  ..\Step1\01\A.txt  ..\Step1\Work\A.txt > nul )\r
  21 goto :eof\r
  22 \r
  23 \r
  24 rem ********************************************************************\r
  25 rem * Function: SetVariables\r
  26 rem ********************************************************************\r
  27 :SetVariables\r
  28 goto :eof\r
  29 \r
  30 \r
  31 rem ********************************************************************\r
  32 rem * Section: batlib\r
  33 rem ********************************************************************\r
  34 \r
  35 \r
  36 rem ********************************************************************\r
  37 rem * Function: Error\r
  38 rem *\r
  39 rem * Arguments:\r
  40 rem *    "%~1" - Value of setting %errorlevel%.\r
  41 rem *\r
  42 rem * Return Value:\r
  43 rem *    %errorlevel% - %~1. Number type\r
  44 rem *\r
  45 rem * Description:\r
  46 rem *    This sets %error_message% variable.\r
  47 rem *    This adds %error_ID% variable.\r
  48 rem *    This echos each command from %error_ID% was matched %echo_error_ID%.\r
  49 rem ********************************************************************\r
  50 :Error\r
  51         set /A error_ID = %error_ID% + 1\r
  52 \r
  53         set error_message=ERROR  errorlevel="%~1"  error_message="%~2"  error_ID="%error_ID%"\r
  54                 rem // "echo %error_message%" cannot execute, if there are "<" and ">" of "<ERROR/>".\r
  55 \r
  56         if "%error_ID%" == "%echo_error_ID%"  (\r
  57                 echo.\r
  58                 echo ===============================================================================\r
  59                 echo ^<%error_message%/^>\r
  60                 call :DebugBreak\r
  61                 echo.\r
  62                 echo.\r
  63                 echo on\r
  64         )\r
  65 \r
  66         exit /b %~1\r
  67 goto :eof\r
  68 \r
  69 \r
  70 rem ********************************************************************\r
  71 rem * Function: ClearError\r
  72 rem *\r
  73 rem * Arguments:\r
  74 rem *    None.\r
  75 rem *\r
  76 rem * Return Value:\r
  77 rem *    None.\r
  78 rem ********************************************************************\r
  79 :ClearError\r
  80         set error_message=\r
  81         exit /b 0\r
  82 goto :eof\r
  83 \r
  84 \r