From b96b36f43de3e2f8b58d5f539daa6f6d47f25870 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:43:48 +0000
Subject: removed src for 2.9

---
 src/tools/mkHelpFile.perl | 49 -----------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 src/tools/mkHelpFile.perl

(limited to 'src/tools/mkHelpFile.perl')

diff --git a/src/tools/mkHelpFile.perl b/src/tools/mkHelpFile.perl
deleted file mode 100644
index 91f434705..000000000
--- a/src/tools/mkHelpFile.perl
+++ /dev/null
@@ -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";
-
-
-- 
cgit v1.2.3