::: RC8 Update! :::
:::::::::::::::::::::::::::::::::::::::::::::::::
::: ErrorHandling.bat by -JpE- 20220628231816 :::
:::::::::::::::::::::::::::::::::::::::::::::::::
::: This has settled in nicely and is
::: Great to the level at which below it are hard hat,
::: YEO, Top Secret Development areas. Jp Aug 17th, 23.
if not defined util3 set util3="%bats%\utility3.bat"
::: ^^^^^^^^^^^^^^^^^^^^^^^^^^^
if not defined vers set vers=v8.7.0.10 20231108073214 by -JpE-
title Error: #%errorlevel% on %date% @ %time% in %vers%
::: set testwell=3 to enter full test mode.
set /a testwell=0
REM set /a testwell=1
REM if %code2% equ 7 set /a testwell=3
REM if %code2% equ 7 set /a testwell=5
if %code2% equ 7 set /a testwell=1
rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ NOTE!
set "txt21=%~1" & set "sndr42=%~2"
::: Proof of Concept for makeline function.
:welcome
set chars2Pad=*-=-
REM call %util3% charrev :revchars "%chars2Pad%"
set /a counter213=0
set txt2=Welcome to the Error Handling Module
rem Degradated all the below to one line now!
call %util3% t :middleman "%chars2Pad%" "%txt2%"
REM call %util3% line2 :makeline "%chars2Pad%" "%txt2%"
REM call %util3% pd1 pd2 "%line2%" "%chars2Pad%" "%txt2%"
REM echo . & echo %line2%
REM echo %charrev%%pd1% %txt2% %pd2%%charrev%
REM echo %line2% & echo .
::: See utility3.bat for the functions that were here!
:start
if not exist %util3% echo . & echo Can't find utility3.bat! & echo . & pause & echo . & exit /b
set txt=Backup
if not defined r3v3rs3 set /a r3v3rs3=1
if %r3v3rs3% equ 2 set txt=RESTORE
set chars2Pad=-=*
call %util3% charrev :revchars "%chars2Pad%"
echo . & set myLine1=Calling ErrorHandling.bat %vers%
call %util3% line4 :makeline "%chars2Pad%" "%myLine1%"
call %util3% sizestr1 :strlen "%line4%"
set myLine2=ATTENTION: An Error Occurred in the %oper% %txt% Operation!
call %util3% line0 :makeline "%chars2Pad%" "%myLine2%"
call %util3% sizestr2 :strlen "%line0%"
set /a lgr0=0 & set /a gap1=1 & set /a gap2=1
if %sizestr1% gtr %sizestr2% set /a lgr0=1
if %sizestr2% gtr %sizestr1% set /a lgr0=2
if %lgr0% equ 0 if %testwell% gtr 2 (
echo The lines are the same size!)
if %lgr0% equ 1 if %testwell% gtr 2 echo line1 is longer.
if %lgr0% equ 2 if %testwell% gtr 2 echo line2 is longer.
if %testwell% gtr 2 echo .
if %lgr0% equ 2 set line4=%line0%
::: Now that that's settled we can just...
call %util3% gappa1 gappa2 "%line4%" "%chars2Pad%" "%myLine1%"
call %util3% gappa3 gappa4 "%line4%" "%chars2Pad%" "%myLine2%"
echo %line4% & echo %charrev%%gappa1% %myLine1% %gappa2%%charrev%
echo %line4% & echo %charrev%%gappa3% %myLine2% %gappa4%%charrev%
echo %line4% & echo .
if not defined where set /a where=0
if %where% gtr 5 goto fatal
if %code2% equ 5 goto nothingSent
if %code2% neq 7 if exist %test% goto unhandled
::: SPLIT DOWN TO ISOLATE and Test NEWEST CODE BELOW.
if %testwell% gtr 1 call :testcode
if %testwell% gtr 0 goto tester
if %testwell% gtr 0 echo . & echo ReTesting... & echo . & pause & echo .
if %testwell% gtr 1 goto return
:::=[ ACTIONS ]=:::
:drive
echo %l2% & echo .
echo " >>===> UNLOCK BITLOCKER for D:\ AND TRY AGAIN."
echo . & set msg="Are you ready to try again? (Y/n): "
choice /c yn /n /t 180 /d y /m %msg%
echo . & echo %l2% & if %errorlevel% neq 2 set /a exit2=5
if %errorlevel% neq 1 if %counter213% lss 10 (
set /a counter213+=1 & goto drive )
goto return
:okay
echo .
echo %sl%
echo **** Operation (s) Cancelled by: %username% ****
echo %sl%
echo .
echo %line4%
goto return
::: Fatal Error! ** if %where% gtr 5 **
:fatal
echo %l2% & echo . & echo %sl%
echo ** "FATAL ERROR: #"%where% <-===<< **
echo **** "copies_backups.bat" Can't be Found! ****
echo %sl% & echo . & pause & echo . & echo %l2% & set /a exit2=6
goto return
::: echo if %where% equ 1 thru 4 then blah blah bla
::: originally Called from copy_control.bat
:unhandled
if %where% equ 1 goto drive
echo . & echo %time% & echo .
set msg1=An unhandled exception occurred
set msg2=in the copy-subs somewhere:
set msg3=The where code == %where%
call %util3% line :makeline "%chars2Pad%" "%msg1%"
echo %line% & echo %charrev% %msg1% %charrev% & echo %line%
call %util3% s1 s2 "%line%" "%chars2Pad%" "%msg2%"
echo %charrev%%s1% %msg2% %s2%%charrev% & echo %line%
call %util3% s1 s2 "%line%" "%chars2Pad%" "%msg3%"
echo %charrev%%s1% %msg3% %s2%%charrev% & echo %line%
if %testwell% gtr 0 echo . & set msg="Test run :unh again? (y/N): "
if %testwell% gtr 0 choice /c yn /n /t 300 /d n /m %msg%
if %testwell% gtr 0 if %errorlevel% gtr 1 echo . & echo Bye! & echo . & echo See ya... & echo . & exit
exit /b
::: By contrast, the :padder function maintains programmable left end spacing and merely fills in the end of the line to match the parms given by l1, I think it is offhand.
:testcode <GLOBAL: no args sent or returned>
echo . & echo errorlevel == %errorlevel% & echo .
echo code2 == %code2% & echo . & pause & echo .
exit /b %errorlevel%
:::=-[ Fairly good to here.]-=:::
:::-=[ DANGER! UNDER CONSTRUCTION. HARD HAT REQUIRED BELOW THIS LEVEL! ]=-:::
:tester <string txt21, string sndr42>
if %code2% neq 7 (goto drive) else (
call :next nextcall "%txt21%" "%sndr42%" )
if %errorlevel% neq 0 echo . & echo OH NO! & echo . & pause & echo . & goto return
::: It is now implicit that errorlevel is zero and code.2 == 7!
if %testwell% lss 1 echo . & echo NOT IN TEST MODE RIGHT NOW! & echo . & set /a code2=0 & goto return
if not defined nextcall goto duh
if "%nextcall%" equ "" goto duh
call :%nextcall% result6 %sndr42%
::: calls next1 or next2
if not defined result6 set result6=No results were returned.
if "%result6%" equ "" set result6=No result found.
set msg4=Result: %result6%
set chrs=-=-/\-=-\/
REM set chrs=-=*/\
call %util3% t :middleman "%chrs%" "%msg4%"
if %testwell% gtr 1 echo . & echo Test Again? & pause & CLS
if %testwell% gtr 1 goto return
if %testwell% gtr 0 call :unhandled
exit /b
:duh
echo . & echo Unanticipated Exception!
echo . & pause & goto unhandled
::: Route the Exception accordingly.
:next <stringVarReturned next, stringVar msg1, stringVar sender>
setlocal & set "msg1=%~2" & set "sender=%~3" & echo .
if %errorlevel% equ 0 (
echo . & echo The :next function succeeded! & echo .
if %testwell% gtr 1 pause & echo .
) else ( echo .
echo errorlevel == %errorlevel% was indicated.
echo . )
::: To TestWell :next2 & this else: flip line below to gtr 0
REM if %testwell% gtr 0 set sender=ErrorHandling.bat
if %testwell% gtr 1 set sender=ErrorHandling.bat
if "%sender%" equ "Silent_mode.bat" (
set next=next1 ) else ( set next=next2 )
if %testwell% gtr 0 echo . & echo Next is %next% & pause
endlocal & set "%~1=%next%"
exit /b %errorlevel%
::: See :padder error for the call.
:next1 <string result, string sender>
setlocal & set "sender=%~2"
echo . & set line1=This error was detected from the Silent_mode.bat Code File.
set chars2Pad=+=:=-
call %util3% t :middleman "%chars2Pad%" "%line1%"
set "result=The Padder in Util3 has FAILED."
endlocal & set "%~1=%result%"
exit /b %errorlevel%
::: DEVELOPING Next & as needed below. (A called function)
:next2 <string result2return, string sender>
setlocal & set "sender=%~2"
set msg2=The error was detected in %sender% on %date% @ %time%
set chars1=-=*=/\
::: v8.7.0.09 20231106063214 by -JpE-
call %util3% t :middleman "%chars1%" "%msg2%"
::: Saves lines, is easy to link, and reliable.
::: Change the text w/o worry of adjusting the display!
::: Reuses existing functions that are also stand-alone.
::: It makes the line reverses the chars and calculates the spacing on each side to center it in whatev chars are used!
:::::::::::::::::::::::::::::::::::::::::
::: Design to save to nFo 2log file. :::
:::::::::::::::::::::::::::::::::::::::::
set msg3=Now we have hit the next2 function!
set chars2=-=_=-/\
REM set chars2=-=*
call %util3% t :middleman "%chars2%" "%msg3%"
set "result=I'm not sure what this will do."
endlocal & set "%~1=%result%"
exit /b %errorlevel%
::: Early Design Phase Only, down here. Experimenting. Flesh Out if Used.
:nothingSent
echo . & echo Nothing THERE-ERROR! & echo . & pause & echo .
goto return
REM ::: ^ UNDER CONSTRUCTION (Layout only)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::: Design more where handling depending on their usages. :::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:return
REM :: TESTCODE
if %testwell% gtr 2 echo . & echo The End of ErrorHandling module. & echo . & pause & echo .
::: 100% -JpE-
Comments