build-aux/make-info-dir

   1 #!/bin/sh
   2
   3 ### make-info-dir - create info/dir, for systems without install-info
   4
   5 ## Copyright (C) 2013 Free Software Foundation, Inc.
   6
   7 ## Author: Glenn Morris <rgm@gnu.org>
   8
   9 ## This file is part of GNU Emacs.
  10
  11 ## GNU Emacs is free software: you can redistribute it and/or modify
  12 ## it under the terms of the GNU General Public License as published by
  13 ## the Free Software Foundation, either version 3 of the License, or
  14 ## (at your option) any later version.
  15
  16 ## GNU Emacs is distributed in the hope that it will be useful,
  17 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ## GNU General Public License for more details.
  20
  21 ## You should have received a copy of the GNU General Public License
  22 ## along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ### Commentary:
  25
  26 ## Generate info/dir, for systems without install-info.
  27 ## Expects to be called from top-level Emacs source directory.
  28
  29 ## It only handles the case where info/dir is missing from the
  30 ## installation directory.  It does not handle info/dir being present
  31 ## but missing some entries.
  32
  33 ### Code:
  34
  35 if test $# -ne 1; then
  36     echo "Specify destination file"
  37     exit 1
  38 fi
  39
  40 outfile=$1
  41
  42 echo "Creating $outfile..."
  43
  44 if test -f "$outfile"; then
  45     echo "$outfile already present"
  46     exit 1
  47 fi
  48
  49 ## Header contains non-printing characters, so this is more
  50 ## reliable than using echo.
  51 basefile=build-aux/dir_top
  52
  53 if test ! -f "$basefile"; then
  54     echo "$basefile not found"
  55     exit 1
  56 fi
  57
  58
  59 cp $basefile $outfile
  60
  61
  62 ## FIXME inefficient looping.
  63 ## What we should do is loop once over files, collecting topic and
  64 ## direntry information for each.  Then loop over topics and write
  65 ## out the results.  But that seems to require associative arrays,
  66 ## and I do not know how to do that with portable sh.
  67 ## Could use Emacs instead of sh, but till now info generation does
  68 ## not require Emacs to have been built.
  69 for topic in "Texinfo documentation system" "Emacs" "Emacs lisp" \
  70     "Emacs editing modes" "Emacs network features" "Emacs misc features" \
  71     "Emacs lisp libraries"; do
  72
  73     cat - <<EOF >> $outfile
  74
  75 $topic
  76 EOF
  77     ## Bit faster than doc/*/*.texi.
  78     for file in doc/emacs/emacs.texi doc/lispintro/emacs-lisp-intro.texi \
  79         doc/lispref/elisp.texi doc/misc/*.texi; do
  80
  81         ## FIXME do not ignore w32 if OS is w32.
  82         case $file in
  83             *-xtra.texi|*efaq-w32.texi|*doclicense.texi) continue ;;
  84         esac
  85
  86         dircat=`sed -n -e 's/@value{emacsname}/Emacs/' -e 's/^@dircategory //p' $file`
  87
  88         ## TODO warn about unknown topics.
  89         ## (check-info in top-level Makefile does that.)
  90         test "$dircat" = "$topic" || continue
  91
  92
  93         sed -n -e 's/@value{emacsname}/Emacs/' \
  94             -e 's/@acronym{\([A-Z]*\)}/\1/' \
  95             -e '/^@direntry/,/^@end direntry/ s/^\([^@]\)/\1/p' \
  96             $file >> $outfile
  97
  98     done
  99 done
 100
 101 echo "Created $outfile"
 102
 103 exit 0
 104
 105 ### make-info-dir ends here