1,9 → 1,89 |
@ECHO OFF |
IF EXIST %DOSDIR%\HELP\HELP-%LANG%.AMB GOTO USELANG |
AMB %DOSDIR%\HELP\HELP-EN.AMB %1 |
REM :: NO PARAMS GIVEN? |
IF "%1"=="" GOTO USERGUIDE |
|
REM :: HELP ON HELP WANTED? |
IF %1==/? GOTO HELPONHELP |
|
REM :: UPCASE PARAM #1 |
SET OLDPATH=%PATH% |
PATH %1 |
SET COMMAND=%PATH% |
PATH %OLDPATH% |
SET OLDPATH= |
|
REM :: ANY SVARCOM INTERNAL COMMAND? |
REM :: ALL UNDERSTAND THE /? SYNTAX |
IF %COMMAND%==BREAK GOTO RUNCOMMANDHELP |
IF %COMMAND%==CALL GOTO RUNCOMMANDHELP |
IF %COMMAND%==CD GOTO RUNCOMMANDHELP |
IF %COMMAND%==CHDIR GOTO RUNCOMMANDHELP |
IF %COMMAND%==CHCP GOTO RUNCOMMANDHELP |
IF %COMMAND%==CLS GOTO RUNCOMMANDHELP |
IF %COMMAND%==COPY GOTO RUNCOMMANDHELP |
IF %COMMAND%==DATE GOTO RUNCOMMANDHELP |
IF %COMMAND%==DEL GOTO RUNCOMMANDHELP |
IF %COMMAND%==ERASE GOTO RUNCOMMANDHELP |
IF %COMMAND%==DIR GOTO RUNCOMMANDHELP |
IF %COMMAND%==ECHO GOTO RUNCOMMANDHELP |
IF %COMMAND%==EXIT GOTO RUNCOMMANDHELP |
IF %COMMAND%==FOR GOTO RUNCOMMANDHELP |
IF %COMMAND%==GOTO GOTO RUNCOMMANDHELP |
IF %COMMAND%==IF GOTO RUNCOMMANDHELP |
IF %COMMAND%==LN GOTO RUNCOMMANDHELP |
IF %COMMAND%==MD GOTO RUNCOMMANDHELP |
IF %COMMAND%==MKDIR GOTO RUNCOMMANDHELP |
IF %COMMAND%==PATH GOTO RUNCOMMANDHELP |
IF %COMMAND%==PAUSE GOTO RUNCOMMANDHELP |
IF %COMMAND%==PROMPT GOTO RUNCOMMANDHELP |
IF %COMMAND%==RD GOTO RUNCOMMANDHELP |
IF %COMMAND%==RMDIR GOTO RUNCOMMANDHELP |
IF %COMMAND%==REM GOTO RUNCOMMANDHELP |
IF %COMMAND%==REN GOTO RUNCOMMANDHELP |
IF %COMMAND%==RENAME GOTO RUNCOMMANDHELP |
IF %COMMAND%==SET GOTO RUNCOMMANDHELP |
IF %COMMAND%==SHIFT GOTO RUNCOMMANDHELP |
IF %COMMAND%==TIME GOTO RUNCOMMANDHELP |
IF %COMMAND%==TRUENAME GOTO RUNCOMMANDHELP |
IF %COMMAND%==TYPE GOTO RUNCOMMANDHELP |
IF %COMMAND%==VER GOTO RUNCOMMANDHELP |
IF %COMMAND%==VERIFY GOTO RUNCOMMANDHELP |
IF %COMMAND%==VOL GOTO RUNCOMMANDHELP |
|
REM :: LOOKUP HELP FILE FOR ANY EXTERNAL COMMANDS |
IF EXIST %DOSDIR%\HELP\EN\%COMMAND%.AMB SET AMBFILE=%DOSDIR%\HELP\EN\%COMMAND% |
IF EXIST %DOSDIR%\HELP\%LANG%\%COMMAND%.AMB SET AMBFILE=%DOSDIR%\HELP\%LANG%\%COMMAND% |
REM :: PARAM #2 BECOMES PARAM #1 TO SPECIFY CHAPTER NAME |
IF NOT "%AMBFILE%"=="" SHIFT |
IF NOT "%AMBFILE%"=="" GOTO RUNAMB |
|
REM :: EXTERNAL (CORE) COMMAND PRESENT? |
IF EXIST %DOSDIR%\%COMMAND%.COM GOTO RUNCOMMANDHELP |
IF EXIST %DOSDIR%\%COMMAND%.EXE GOTO RUNCOMMANDHELP |
IF EXIST %DOSDIR%\BIN\%COMMAND%.COM GOTO RUNCOMMANDHELP |
IF EXIST %DOSDIR%\BIN\%COMMAND%.EXE GOTO RUNCOMMANDHELP |
|
:USERGUIDE |
REM :: LOOKUP HELP FILE FOR SVARDOS USER GUIDE |
REM :: PARAM #1 SPECIFIES CHAPTER NAME |
IF EXIST %DOSDIR%\HELP\HELP-EN.AMB SET AMBFILE=%DOSDIR%\HELP\HELP-EN |
IF EXIST %DOSDIR%\HELP\HELP-%LANG%.AMB SET AMBFILE=%DOSDIR%\HELP\HELP-%LANG% |
IF NOT "%AMBFILE%"=="" GOTO RUNAMB |
|
ECHO SORRY! NO HELP AVAILABLE |
GOTO DONE |
|
:USELANG |
AMB %DOSDIR%\HELP\HELP-%LANG%.AMB %1 |
:HELPONHELP |
ECHO HELP [COMMAND] [CHAPTER] |
GOTO DONE |
|
:RUNCOMMANDHELP |
%COMMAND% /? |
GOTO DONE |
|
:RUNAMB |
AMB %AMBFILE%.AMB %1 |
|
:DONE |
SET COMMAND= |
SET AMBFILE= |