blob: 91f4347057dc94b23286ef34d01abdb91214a450 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
$infile = $#ARGV >= 0 ? '@'.join('@, @', @ARGV).'@' : '/the input file/';
print <<EOF;
----------------------------------------------------------------------
-- |
-- Module : HelpFile
-- Maintainer : Aarne Ranta
-- Stability : Stable (Autogenerated)
-- Portability : Haskell 98
--
-- > CVS \$Date \$
-- > CVS \$Author \$
-- > CVS \$Revision \$
--
-- Help on shell commands. Generated from $infile by invoking the
-- perl script \@mkHelpFile.perl\@.
-- Automatically generated -- PLEASE DON'T EDIT THIS FILE,
-- edit $infile instead.
-----------------------------------------------------------------------------
module HelpFile (txtHelpFileSummary, txtHelpCommand, txtHelpFile) where
import Operations
txtHelpFileSummary :: String
txtHelpFileSummary =
unlines \$ map (concat . take 1 . lines) \$ paragraphs txtHelpFile
txtHelpCommand :: String -> String
txtHelpCommand c =
case lookup c [(takeWhile (/=',') p,p) | p <- paragraphs txtHelpFile] of
Just s -> s
_ -> "Command not found."
txtHelpFile :: String
txtHelpFile =
EOF
while (<>) {
chop;
s/([\"\\])/\\$1/g;
$pref = /^ / ? "\\n" : "\\n";
print " \"$pref$_\" ++\n";
}
print " []\n";
|
