New version of man by Semyon Novikov. Manual pages should be located in c:\\man for...
[reactos.git] / rosapps / sysutils / man / man.cmd
1 @echo off
2 rem []------[ReactOS MAN Project ]--------[]
3 rem Project: ReactOS manual browser
4 rem File: man.cmd
5 rem Purpose: Clone of UNIX man
6 rem Programmers: Semyon Novikov
7 rem Version: 0.1.2
8 rem OS: WinNT/ReactOS/os2 eCs(testing)
9 rem License: GPL
10 rem []------------------------------------[]
11
12
13 rem []==[Config area]==[]
14 set MANED=edit
15 set MANMORE=cat
16 set MAN=c:\ReactOS\man
17 rem []==[End of config area]==[]
18
19 goto chk_param
20
21 :chk_param
22
23 if "%4"=="/create" attrib -r %MAN%\%SECTION%\%1.man
24 if "%4"=="/create" %ED% %MAN%\%SECTION%\%1.man
25 if "%4"=="/create" goto end
26
27 if "%2"=="/e" set ED=%MANED%
28 if "%2"=="/e" goto locate
29
30 if "%3"=="/e" set ED=%MANED%
31 if "%3"=="/e" goto chk_section
32
33 if "%2"=="" set ED=%MANMORE%
34 if "%2"=="" goto locate
35
36 :chk_section
37 set SECTION=%2
38 set ED=%MANMORE%
39 if "%3"=="/e" set ED=%MANED%
40 goto open_page
41
42 :locate
43 if exist %MAN%\1\%1.man set SECTION=1
44 if exist %MAN%\2\%1.man set SECTION=2
45 if exist %MAN%\3\%1.man set SECTION=3
46 if exist %MAN%\4\%1.man set SECTION=4
47 if exist %MAN%\5\%1.man set SECTION=5
48
49 :open_page
50 if not exist %MAN%\%SECTION%\%1.man echo No manual for %1
51 if exist %MAN%\%SECTION%\%1.man cls
52 if exist %MAN%\%SECTION%\%1.man %ED% %MAN%\%SECTION%\%1.man
53
54 :end