[commit: ghc] master: Add --verbose and --help flags to gen_contents_index (2b37348)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/2b3734853ae5ddb75f85bfcc4ab8842a9ba4b5e0

>---------------------------------------------------------------

commit 2b3734853ae5ddb75f85bfcc4ab8842a9ba4b5e0
Author: Thomas Dziedzic <gostrc at gmail.com>
Date:   Wed Jun 20 21:31:27 2012 -0500

    Add --verbose and --help flags to gen_contents_index
    
    Fixes http://hackage.haskell.org/trac/ghc/ticket/5992

>---------------------------------------------------------------

 libraries/gen_contents_index |   37 ++++++++++++++++++++++++++++++-------
 1 files changed, 30 insertions(+), 7 deletions(-)

diff --git a/libraries/gen_contents_index b/libraries/gen_contents_index
index b9aaa93..5303aa6 100644
--- a/libraries/gen_contents_index
+++ b/libraries/gen_contents_index
@@ -2,13 +2,35 @@
 
 set -e
 
+USAGE="Usage: $0 [--inplace] [--verbose] [--help]"
+INPLACE=
+VERBOSE=
+
 HADDOCK_ARGS=
 
 [ -d dist-haddock ] || mkdir dist-haddock
 cd dist-haddock
 
-case $* in
---inplace)
+while [ "$#" -ne "0" ]
+do
+    case "$1" in
+    --inplace)
+        INPLACE=yes
+        ;;
+    --verbose)
+        VERBOSE=yes
+        ;;
+    --help)
+        echo "$USAGE"
+        exit 0
+        ;;
+    esac
+
+    shift
+done
+
+if [ -n "$INPLACE" ]
+then
     HADDOCK=../../inplace/bin/haddock
     for REPO in `grep '^libraries/[^ ]*  *- ' ../../packages | sed -e 's#libraries/##' -e 's/ .*//'`
     do
@@ -35,8 +57,7 @@ case $* in
             fi
         done
     done
-    ;;
-*)
+else
     HADDOCK=../../../../../../bin/haddock
     # We don't want the GHC API to swamp the index
     HADDOCK_FILES=`ls -1 ../*/*.haddock | grep -v '/ghc\.haddock' | sort`
@@ -46,11 +67,13 @@ case $* in
         HADDOCK_ARG="--read-interface=${NAME_VERSION},$HADDOCK_FILE"
         HADDOCK_ARGS="$HADDOCK_ARGS $HADDOCK_ARG"
     done
-    ;;
-esac
+fi
 
 # Now create the combined contents and index pages
-echo $HADDOCK_ARGS
+if [ -n "$VERBOSE" ]
+then
+    echo $HADDOCK_ARGS
+fi
 $HADDOCK --gen-index --gen-contents -o . \
          -t "Haskell Hierarchical Libraries" \
          -p "../prologue.txt" \