[print out list of -d and -f flags in the normal help screen.
John Meacham <john@repetae.net>**20061006015833] hunk ./Options.hs 114
-    , Option []    ["version-context"] (NoArg  (optMode_s VersionCtx)) "print version context (darcs changes) info and exit"
+    , Option []    ["version-context"] (NoArg  (optMode_s VersionCtx)) "print version context info and exit"
hunk ./Options.hs 117
-    , Option ['d'] []            (ReqArg (\d -> optDump_u (d:)) "dump-flag")  "dump specified data to stdout"
-    , Option ['f'] []            (ReqArg (\d -> optFOpts_u (d:)) "flag")      "set compilation options"
+    , Option ['d'] []            (ReqArg (\d -> optDump_u (d:)) "[no-]flag")  "dump specified data during compilation"
+    , Option ['f'] []            (ReqArg (\d -> optFOpts_u (d:)) "[no-]flag") "set or clear compilation options"
hunk ./Options.hs 175
+pfill ::
+    Int            -- ^ maximum width
+    -> (a -> Int)  -- ^ find width of any element
+    -> [a]         -- ^ input elements
+    -> [[a]]       -- ^ output element
+pfill maxn length xs = f maxn xs [] [] where
+    f n (x:xs) ws ls | lx < n = f (n - lx) xs (x:ws) ls where
+        lx = length x
+    f _ (x:xs) [] ls = f (maxn - length x) xs [x] ls
+    f _ (x:xs) ws ls = f (maxn - length x) xs [x] (ws:ls)
+    f _ [] [] ls = reverse (map reverse ls)
+    f _ [] ws ls = reverse (map reverse (ws:ls))
+
hunk ./Options.hs 193
+    let mkoptlist d os = "valid " ++ d ++ " arguments: 'help' for more info\n    " ++ concatInter "\n    " (map (concatInter ", ") $ pfill 100 ((2 +) . length) os) ++ "\n"
+    let trailer = "\n" ++ mkoptlist "-d" FlagDump.helpFlags ++ "\n" ++ mkoptlist "-f" FlagOpts.helpFlags
hunk ./Options.hs 196
-    when (rc /= []) $ fail (concat rc ++ usageInfo header theoptions)
+    when (rc /= []) $ fail (concat rc ++ usageInfo header theoptions ++ trailer)
hunk ./utils/opt_sets.prl 4
+use warnings;
hunk ./utils/opt_sets.prl 17
-my %h;
+undef %h;
hunk ./utils/opt_sets.prl 55
-print "module $name(Flag(..),process,helpMsg) where\n\n";
+print "module $name(Flag(..),process,helpMsg,helpFlags) where\n\n";
hunk ./utils/opt_sets.prl 100
+print "helpFlags = [" . join(", ",map { "\"$_\"" } sort keys %h) . "]\n\n";