msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

removed src for 2.9

Browse Source
This commit is contained in:
aarne
2008-06-25 16:43:48 +00:00
parent fe367412e0
commit b96b36f43d
536 changed files with 0 additions and 127076 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
src/tools/mkHelpFile.perl
View File

@@ -1,49 +0,0 @@
$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";