Use the correct return type for Windows' send()/recv() (Fix #12010)
[ghc.git] / libraries / gen_contents_index
1 #!/bin/sh
2
3 set -e
4
5 USAGE="Usage: $0 [--intree] [--verbose] [--help]"
6 INTREE=
7 VERBOSE=
8
9 HADDOCK_ARGS=
10
11 while [ "$#" -ne "0" ]
12 do
13     case "$1" in
14     --intree)
15         # We're in a GHC build tree
16         INTREE=yes
17         ;;
18     --verbose)
19         VERBOSE=yes
20         ;;
21     --help)
22         echo "$USAGE"
23         exit 0
24         ;;
25     esac
26
27     shift
28 done
29
30 if [ -n "$INTREE" ]
31 then
32     [ -d dist-haddock ] || mkdir dist-haddock
33     cd dist-haddock
34
35     HADDOCK=../../inplace/bin/haddock
36     HADDOCK_FILES=`find ../ -name *.haddock | sort`
37     HADDOCK_ARGS="-p ../prologue.txt"
38     for HADDOCK_FILE in $HADDOCK_FILES
39     do
40                 LIBPATH=`echo "$HADDOCK_FILE" | sed 's#/dist-install.*##'`
41                 NAME=`echo "$HADDOCK_FILE" | sed 's#.*/##' | sed 's#\.haddock$##'`
42                 # It's easier to portably remove tabs with tr than to try to get
43                 # sed to do what we want
44                 VERSION=`grep -i '^version:' $LIBPATH/$NAME.cabal | sed 's/.*://' | tr -d ' \t'`
45                 HADDOCK_ARG="--read-interface=${NAME}-${VERSION},$HADDOCK_FILE"
46                 HADDOCK_ARGS="$HADDOCK_ARGS $HADDOCK_ARG"
47     done
48 else
49     HADDOCK=../../../../../bin/haddock
50     # We don't want the GHC API to swamp the index
51     HADDOCK_FILES=`ls -1 */*.haddock | grep -v '/ghc\.haddock' | sort`
52     HADDOCK_ARGS="-p prologue.txt"
53     for HADDOCK_FILE in $HADDOCK_FILES
54     do
55         NAME_VERSION=`echo "$HADDOCK_FILE" | sed 's#/.*##'`
56         HADDOCK_ARG="--read-interface=${NAME_VERSION},$HADDOCK_FILE"
57         HADDOCK_ARGS="$HADDOCK_ARGS $HADDOCK_ARG"
58     done
59 fi
60
61 # Now create the combined contents and index pages
62 if [ -n "$VERBOSE" ]
63 then
64     echo $HADDOCK --gen-index --gen-contents -o . \
65              -t "Haskell Hierarchical Libraries" \
66              $HADDOCK_ARGS
67 fi
68 $HADDOCK --gen-index --gen-contents -o . \
69          -t "Haskell Hierarchical Libraries" \
70          $HADDOCK_ARGS
71
72 # Unhandled Windows help stuff?:
73
74 #libraries.HxS : libraries.txt
75 #        haddock ...
76 #               -k libraries
77 #               --html-help=mshelp2
78 #       ( cd $(HTML_DIR) && if Hxcomp -p libraries.HxC -o ../$@ ; then false ; else true ; fi ) || true
79 #
80 #libraries.chm : libraries.txt
81 #       haddock ...
82 #               -k libraries \
83 #               --html-help=mshelp \
84 #       ( cd $(HTML_DIR) && if hhc libraries.hhp ; then false ; else true ; fi && mv libraries.chm .. ) || true
85