Mercurial > hg > xemacs-beta
annotate lib-src/add-big-package.sh @ 5834:7984e732829e
Fix file descriptor leak in pop.c.
See <CAHCOHQkUhtC7netdxqCkDy3vqtctbLBwxWC7ucmvLhRaPkAsDw@mail.gmail.com>
in xemacs-patches.
| author | Jerry James <james@xemacs.org> |
|---|---|
| date | Fri, 05 Dec 2014 16:22:57 -0700 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 428 | 1 #! /bin/sh |
| 2 # add-big-package.sh --- Add multiple file package to Package Lisp Hierarchy | |
| 3 # Copyright (C) 1997 Free Software Foundation, Inc. | |
| 4 | |
| 5 # Author: SL Baur <steve@xemacs.org> | |
| 6 # Maintainer: SL Baur <steve@xemacs.org> | |
| 7 # Keywords: packages internal | |
| 8 | |
| 9 # This file is part of XEmacs. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
10 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
11 # XEmacs is free software: you can redistribute it and/or modify it |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
12 # under the terms of the GNU General Public License as published by the |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
13 # Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
14 # option) any later version. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
15 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
16 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
17 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
18 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
19 # for more details. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
20 # |
| 428 | 21 # You should have received a copy of the GNU General Public License |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
428
diff
changeset
|
22 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 428 | 23 |
| 24 ### Commentary: | |
| 25 | |
| 26 ## This file copies a single lisp file into an XEmacs package hierarchy and | |
| 27 ## performs the necessary magic so that it will be autoloaded at the next | |
| 28 ## dump. | |
| 29 | |
| 30 ## Parameters: | |
| 31 ## $1 -- Full path to an XEmacsen later than 20.3 | |
| 32 ## $2 -- Full path to a lisp package tarball to install | |
| 33 ## $3 -- Full path to a lisp directory in an XEmacs package hierarchy | |
| 34 ## This directory will be created if it does not exist. | |
| 35 ## NOTE: the directory name should *not* end in a trailing slash | |
| 36 | |
| 37 | |
| 38 ### Code: | |
| 39 | |
| 40 XEMACS="$1" # Not used at present | |
| 41 LISP_FILE="$2" # Should be a binary package tarball | |
| 42 DEST_DIR="$3" # Should be a top level package directory | |
| 43 | |
| 44 # Test for valid XEmacs executable and valid input file | |
| 45 if [ ! -f "${LISP_FILE}" -o ! -x "${XEMACS}" ]; then | |
| 46 exit 1 | |
| 47 fi | |
| 48 | |
| 49 # Test for destination directory, creating if necessary | |
| 50 test -d "${DEST_DIR}" || mkdir "${DEST_DIR}" | |
| 51 test -d "${DEST_DIR}" || exit 1; | |
| 52 | |
| 53 # Very simple minded extraction for the first cut | |
| 54 # We'll get more sophisticated later | |
| 55 cd "${DEST_DIR}" | |
| 56 gunzip -c "${LISP_FILE}" | tar xvf - | |
| 57 | |
| 58 # Need to refresh the info/dir file, I don't know how to do that. | |
| 59 | |
| 60 exit 0 | |
| 61 | |
| 62 ### add-big-package.sh ends here |