Mercurial > hg > xemacs-beta
annotate lib-src/add-big-package.sh @ 5879:77d7b77909c2
Move extents.c to working in byte positions only; fix a bug, extent_detach()
src/ChangeLog addition:
2015-03-27 Aidan Kehoe <kehoea@parhasard.net>
Fix a small bug, extent_detach(); minimise needless char-byte
conversion, extents.c, sticking to byte positions in general in
this file.
* extents.c:
* extents.c (signal_single_extent_changed):
Pass byte endpoints to
gutter_extent_signal_changed_region_maybe(),
buffer_extent_signal_changed_region().
* extents.c (extent_detach):
Call signal_extent_changed() correctly, pass both extent endpoints
rather than just the byte and character variants of the start.
* extents.c (struct report_extent_modification_closure):
Do this in terms of byte positions.
* extents.c (report_extent_modification_mapper):
Use byte positions, only converting to characters when we are
definitely calling Lisp.
* extents.c (report_extent_modification):
Use byte positions in this API, move the byte-char conversion to
our callers, simplifying extents.c (it all now works in byte
positions).
* extents.h:
Update report_extent_modification's prototype.
* gutter.c (gutter_extent_signal_changed_region_maybe):
Use byte positions here, avoids needless byte-char conversion.
* gutter.h:
Update the prototype here.
* insdel.c:
* insdel.c (buffer_extent_signal_changed_region):
Implement this in terms of byte positions.
* insdel.c (signal_before_change):
* insdel.c (signal_after_change):
Call report_extent_modification() with byte positions, doing the
char->byte conversion here rather than leaving it to extents.c.
* insdel.h:
* insdel.h (struct each_buffer_change_data):
The extent unchanged info now describes bytecounts.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Fri, 27 Mar 2015 23:39:49 +0000 |
| 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 |