Subversion Repositories SvarDOS

Rev

Rev 1647 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1647 Rev 1650
Line 10... Line 10...
10 
PATH %1
 10 
PATH %1
11 
SET COMMAND=%PATH%
 11 
SET COMMAND=%PATH%
12 
PATH %OLDPATH%
 12 
PATH %OLDPATH%
13 
SET OLDPATH=
 13 
SET OLDPATH=
14 
 
 14 
 
- 
 
 15 
REM :: SPECIAL CASE
- 
 
 16 
IF %COMMAND%==HELP GOTO HELPONHELP
- 
 
 17 
 
15 
REM :: ANY SVARCOM INTERNAL COMMAND?
 18 
REM :: ANY SVARCOM INTERNAL COMMAND?
16 
REM :: ALL UNDERSTAND THE /? SYNTAX
 19 
REM :: ALL UNDERSTAND THE /? SYNTAX
17 
IF %COMMAND%==BREAK    GOTO RUNCOMMANDHELP
 20 
IF %COMMAND%==BREAK    GOTO RUNCOMMANDHELP
18 
IF %COMMAND%==CALL     GOTO RUNCOMMANDHELP
 21 
IF %COMMAND%==CALL     GOTO RUNCOMMANDHELP
19 
IF %COMMAND%==CD       GOTO RUNCOMMANDHELP
 22 
IF %COMMAND%==CD       GOTO RUNCOMMANDHELP
Line 49... Line 52...
49 
IF %COMMAND%==VER      GOTO RUNCOMMANDHELP
 52 
IF %COMMAND%==VER      GOTO RUNCOMMANDHELP
50 
IF %COMMAND%==VERIFY   GOTO RUNCOMMANDHELP
 53 
IF %COMMAND%==VERIFY   GOTO RUNCOMMANDHELP
51 
IF %COMMAND%==VOL      GOTO RUNCOMMANDHELP
 54 
IF %COMMAND%==VOL      GOTO RUNCOMMANDHELP
52 
 
 55 
 
53 
REM :: LOOKUP HELP FILE FOR ANY EXTERNAL COMMANDS
 56 
REM :: LOOKUP HELP FILE FOR ANY EXTERNAL COMMANDS
54 
IF EXIST %DOSDIR%\HELP\EN\%COMMAND%.AMB SET AMBFILE=%DOSDIR%\HELP\EN\%COMMAND%
 57 
IF EXIST %DOSDIR%\HELP\EN\%COMMAND%.AMB SET AMBFILE=EN\%COMMAND%
55 
IF EXIST %DOSDIR%\HELP\%LANG%\%COMMAND%.AMB SET AMBFILE=%DOSDIR%\HELP\%LANG%\%COMMAND%
 58 
IF EXIST %DOSDIR%\HELP\%LANG%\%COMMAND%.AMB SET AMBFILE=%LANG%\%COMMAND%
56 
REM :: PARAM #2 BECOMES PARAM #1 TO SPECIFY CHAPTER NAME
 59 
REM :: PARAM #2 BECOMES PARAM #1 TO SPECIFY CHAPTER NAME
57 
IF NOT "%AMBFILE%"=="" SHIFT
 60 
IF NOT "%AMBFILE%"=="" SHIFT
58 
IF NOT "%AMBFILE%"=="" GOTO RUNAMB
 61 
IF NOT "%AMBFILE%"=="" GOTO RUNAMB
59 
 
 62 
 
60 
REM :: EXTERNAL (CORE) COMMAND PRESENT?
 63 
REM :: EXTERNAL (CORE) COMMAND PRESENT?
Line 64... Line 67...
64 
IF EXIST %DOSDIR%\BIN\%COMMAND%.EXE GOTO RUNCOMMANDHELP
 67 
IF EXIST %DOSDIR%\BIN\%COMMAND%.EXE GOTO RUNCOMMANDHELP
65 
 
 68 
 
66 
:USERGUIDE
 69 
:USERGUIDE
67 
REM :: LOOKUP HELP FILE FOR SVARDOS USER GUIDE
 70 
REM :: LOOKUP HELP FILE FOR SVARDOS USER GUIDE
68 
REM :: PARAM #1 SPECIFIES CHAPTER NAME
 71 
REM :: PARAM #1 SPECIFIES CHAPTER NAME
69 
IF EXIST %DOSDIR%\HELP\HELP-EN.AMB SET AMBFILE=%DOSDIR%\HELP\HELP-EN
 72 
IF EXIST %DOSDIR%\HELP\HELP-EN.AMB SET AMBFILE=HELP-EN
70 
IF EXIST %DOSDIR%\HELP\HELP-%LANG%.AMB SET AMBFILE=%DOSDIR%\HELP\HELP-%LANG%
 73 
IF EXIST %DOSDIR%\HELP\HELP-%LANG%.AMB SET AMBFILE=HELP-%LANG%
71 
IF NOT "%AMBFILE%"=="" GOTO RUNAMB
 74 
IF NOT "%AMBFILE%"=="" GOTO RUNAMB
72 
 
 75 
 
73 
ECHO SORRY! NO HELP AVAILABLE
 76 
ECHO SORRY! NO HELP AVAILABLE
74 
GOTO DONE
 77 
GOTO DONE
75 
 
 78 
 
Line 80... Line 83...
80 
:RUNCOMMANDHELP
 83 
:RUNCOMMANDHELP
81 
%COMMAND% /?
 84 
%COMMAND% /?
82 
GOTO DONE
 85 
GOTO DONE
83 
 
 86 
 
84 
:RUNAMB
 87 
:RUNAMB
85 
AMB %AMBFILE%.AMB %1
 88 
AMB %DOSDIR%\HELP\%AMBFILE%.AMB %1
86 
 
 89 
 
87 
:DONE
 90 
:DONE
88 
SET COMMAND=
 91 
SET COMMAND=
89 
SET AMBFILE=
 92 
SET AMBFILE=