|
Lines 9-19
Link Here
|
| 9 |
# name of template: build_template.html |
9 |
# name of template: build_template.html |
| 10 |
# name of resulting linux build doc. file: build_linux.html |
10 |
# name of resulting linux build doc. file: build_linux.html |
| 11 |
# solaris build_solaris.html |
11 |
# solaris build_solaris.html |
| 12 |
# windows build_windows.html |
12 |
# windows with 4NT build_windows.html |
|
|
13 |
# windows with tcsh build_win_tcsh.html |
| 13 |
# |
14 |
# |
| 14 |
# usage: ./mkbuildoc linux |
15 |
# usage: ./mkbuildoc linux |
| 15 |
# ./mkbuildoc solaris |
16 |
# ./mkbuildoc solaris |
| 16 |
# ./mkbuildoc windows |
17 |
# ./mkbuildoc windows |
|
|
18 |
# ./mkbuildoc win_tcsh |
| 17 |
|
19 |
|
| 18 |
|
20 |
|
| 19 |
|
21 |
|
|
Lines 21-28
Link Here
|
| 21 |
# get the platform from the argument |
23 |
# get the platform from the argument |
| 22 |
# |
24 |
# |
| 23 |
$platform = shift @ARGV; |
25 |
$platform = shift @ARGV; |
| 24 |
if ($platform !~ /linux|solaris|windows/i) { |
26 |
if ($platform !~ /linux|solaris|windows|win_tcsh/i) { |
| 25 |
die "I only know platforms Linux, Solaris, and Windows"; |
27 |
die "I only know platforms Linux, Solaris, Windows and win_tcsh"; |
| 26 |
} |
28 |
} |
| 27 |
|
29 |
|
| 28 |
$platform =~ tr/A-Z/a-z/; |
30 |
$platform =~ tr/A-Z/a-z/; |
|
Lines 42-60
Link Here
|
| 42 |
if ($platform eq "linux") { |
44 |
if ($platform eq "linux") { |
| 43 |
$text =~ s/<Linux>|<\/Linux>//g; |
45 |
$text =~ s/<Linux>|<\/Linux>//g; |
| 44 |
$text =~ s/<LinuxSolaris>|<\/LinuxSolaris>//g; |
46 |
$text =~ s/<LinuxSolaris>|<\/LinuxSolaris>//g; |
|
|
47 |
$text =~ s/<LinuxSolarisWin_tcsh>|<\/LinuxSolarisWin_tcsh>//g; |
| 45 |
} elsif ($platform eq "solaris") { |
48 |
} elsif ($platform eq "solaris") { |
| 46 |
$text =~ s/<Solaris>|<\/Solaris>//g; |
49 |
$text =~ s/<Solaris>|<\/Solaris>//g; |
| 47 |
$text =~ s/<LinuxSolaris>|<\/LinuxSolaris>//g; |
50 |
$text =~ s/<LinuxSolaris>|<\/LinuxSolaris>//g; |
|
|
51 |
$text =~ s/<LinuxSolarisWin_tcsh>|<\/LinuxSolarisWin_tcsh>//g; |
| 52 |
} elsif ($platform eq "win_tcsh") { |
| 53 |
$text =~ s/<Win_tcsh>|<\/Win_tcsh>//g; |
| 54 |
$text =~ s/<LinuxSolarisWin_tcsh>|<\/LinuxSolarisWin_tcsh>//g; |
| 55 |
$text =~ s/<WindowsWin_tcsh>|<\/WindowsWin_tcsh>//g; |
| 48 |
} elsif ($platform eq "windows") { |
56 |
} elsif ($platform eq "windows") { |
| 49 |
$text =~ s/<Windows>|<\/Windows>//g; |
57 |
$text =~ s/<Windows>|<\/Windows>//g; |
|
|
58 |
$text =~ s/<WindowsWin_tcsh>|<\/WindowsWin_tcsh>//g; |
| 50 |
} |
59 |
} |
| 51 |
|
60 |
|
| 52 |
#remove all text between the remaining tags including the tags. |
61 |
#remove all text between the remaining tags including the tags. |
| 53 |
# |
62 |
# |
| 54 |
$text =~ s/<Linux>[\d\D]*?<\/Linux>//g; |
63 |
$text =~ s/<Linux>[\d\D]*?<\/Linux>//g; |
| 55 |
$text =~ s/<Solaris>[\d\D]*?<\/Solaris>//g; |
64 |
$text =~ s/<Solaris>[\d\D]*?<\/Solaris>//g; |
|
|
65 |
$text =~ s/<Win_tcsh>[\d\D]*?<\/Win_tcsh>//g; |
| 56 |
$text =~ s/<LinuxSolaris>[\d\D]*?<\/LinuxSolaris>//g; |
66 |
$text =~ s/<LinuxSolaris>[\d\D]*?<\/LinuxSolaris>//g; |
|
|
67 |
$text =~ s/<LinuxSolarisWin_tcsh>[\d\D]*?<\/LinuxSolarisWin_tcsh>//g; |
| 57 |
$text =~ s/<Windows>[\d\D]*?<\/Windows>//g; |
68 |
$text =~ s/<Windows>[\d\D]*?<\/Windows>//g; |
|
|
69 |
$text =~ s/<WindowsWin_tcsh>[\d\D]*?<\/WindowsWin_tcsh>//g; |
| 58 |
|
70 |
|
| 59 |
# write out the result |
71 |
# write out the result |
| 60 |
# |
72 |
# |