annotate lisp/package-get.el @ 872:79c6ff3eef26

[xemacs-hg @ 2002-06-20 21:18:01 by ben] font changes etc.; some 21.4 changes mule/mule-msw-init-late.el: Specify charset->windows-registry conversion. mule/mule-x-init.el: Delete extra mule font additions here. Put them in faces.c. cl-macs.el: Document better. font-lock.el: Move Lisp function regexp to lisp-mode.el. lisp-mode.el: Various indentation fixes: Handle flet functions better. Handle argument lists in defuns and flets. Handle quoted lists, e.g. property lists -- don't indent like function calls. Distinguish between lambdas and other lists. lisp-mode.el: Handle this form. faces.el, font-menu.el, font.el, gtk-faces.el, msw-faces.el, msw-font-menu.el, x-faces.el, x-init.el: Major overhaul of face-handling code: -- Fix lots of bogus code in msw-faces.el, msw-font-menu.el, font-menu.el that was "truenaming" font specs -- i.e. in the process of frobbing a particular field in a general user-specified font spec with wildcarded fields, sticking in particular values for all the remaining wildcarded fields. This bug was rampant everywhere except in x-faces.el (the oldest and only correctly written code). This also means that we need to work with font names at all times and not font instances, because a font instance is essentially a truenamed font. -- Total rewrite of extremely junky code in msw-faces.el. Work with names as well as font instances, and return names; stop truenaming when canonicalizing and frobbing; fix handling of the combined style field, i.e. weight/slant (also fixed in font.el). -- Totally rewrite the frobbing functions in faces.el. This time, we frob all the instantiators rather than just computing a single instance value and working backwards. That way, e.g., `bold' will work for all charsets that have bold available, rather than only for whatever charset was part of the computed font instance (another example of the truename virus). Also fix up code to look at the fallbacks (all of them) when no global value present, so we don't need to put something in the global value. Intelligently handle a request to frob a buffer locale, rather than signalling an error. When frobbing instantiators, try hard to figure out what device type is associated with them, and frob each according to its own proper device type. Correctly handle inheritance vectors given as instantiators. Preserve existing tags when putting back frobbed instantiators. Extract out general specifier-frobbing code into specifier.el. Document everything cleanly. Do lots of other things better, etc. -- Don't duplicatively set a global specification for the default font -- it's already in the fallback and we no longer need a default global specification present. Delete various code in x-faces.el and msw-faces.el that duplicated the lists of fonts in faces.c. -- init-global-faces was not being called at all under MS Windows! Major bogosity. That caused device-specific values to get stuck into all the fonts, making it very hard to change them -- setting global specs caused nothing to happen. -- Correct weight names in font.el. -- Lots more font fixups in objects*.c. Printer.el: Warning fix. specifier.el: Add more args to map-specifier. Add various "heuristic" specifier functions to aid in creation of specifier-munging code such as in faces.el. subr.el: New functions. lwlib.c: Fix warning. config.inc.samp: Clean up, add args to control fastcall (not yet supported! the changes needed are in another ws of mine), profile support, vc6 support, union-type. xemacs.dsp, xemacs.mak: Semi-major overhaul. Fix bug where dump-id was always getting recomputed, forcing a redump even when nothing changed. Add support for fastcall. Support edit-and-continue (on by default) with vc6. Use incremental linking when doing a debug compilation. Add support for profiling. Consolidate the various debug flags. Partial support for "batch-compiling" -- compiling many files on a single invocation of the compiler. Doesn't seem to help that much for me, so it's not finished or enabled by default. Remove HAVE_MSW_C_DIRED, we always do. Correct some sloppy use of directories. s/cygwin32.h: Allow pdump to work under Cygwin (mmap is broken, so need to undefine HAVE_MMAP). s/win32-common.h, s/windowsnt.h: Support for fastcall. Add WIN32_ANY for identifying all Win32 variants (Cygwin, native, MinGW). Both of these are properly used in another ws. alloc.c, balloon-x.c, buffer.c, bytecode.c, callint.c, cm.c, cmdloop.c, cmds.c, console-gtk.c, console-gtk.h, console-msw.c, console-msw.h, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console-x.h, console.c, console.h, device-gtk.c, device-msw.c, device-tty.c, device-x.c, device.c, device.h, devslots.h, dialog-gtk.c, dialog-msw.c, dialog-x.c, dialog.c, dired-msw.c, editfns.c, emacs.c, event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.c, extents.c, extents.h, faces.c, fileio.c, fns.c, frame-gtk.c, frame-msw.c, frame-tty.c, frame-x.c, frame.c, frame.h, glyphs-eimage.c, glyphs-gtk.c, glyphs-msw.c, glyphs-widget.c, glyphs-x.c, glyphs.c, glyphs.h, gui-gtk.c, gui-msw.c, gui-x.c, gui.c, gutter.c, input-method-xlib.c, intl-encap-win32.c, intl-win32.c, keymap.c, lisp.h, macros.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h, minibuf.c, mule-charset.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-msw.h, objects-tty.c, objects-tty.h, objects-x.c, objects-x.h, objects.c, objects.h, postgresql.c, print.c, process.h, redisplay-gtk.c, redisplay-msw.c, redisplay-output.c, redisplay-tty.c, redisplay-x.c, redisplay.c, redisplay.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, select-gtk.c, select-msw.c, select-x.c, select.c, signal.c, sound.c, specifier.c, symbols.c, syntax.c, sysdep.c, syssignal.h, syswindows.h, toolbar-common.c, toolbar-gtk.c, toolbar-msw.c, toolbar-x.c, toolbar.c, unicode.c, window.c, window.h: The following are the major changes made: (1) Separation of various header files into an external and an internal version, similar to the existing separation of process.h and procimpl.h. Eventually this should be done for all Lisp objects. The external version has the same name as currently; the internal adds -impl. The external file has XFOO() macros for objects, but the structure is opaque and defined only in the internal file. It's now reasonable to move all prototypes in lisp.h into the appropriate external file, and this should be done. Currently, separation has been done on extents.h, objects*.h, console.h, device.h, frame.h, and window.h. For c/d/f/w, the most basic properties are available in the external header file, with the macros resolving to functions. In the internal header file, the macros are redefined to directly access the structure. Also, the global MARK_FOO_CHANGED macros have been made into functions so that they can be accessed without needing to include lots of -impl headers -- they are used in almost exclusively in non-time-critical functions, and take up enough time that the function overhead will be negligible. Similarly, the function overhead from making the basic properties mentioned above into functions is negligible, and code that does heavy accessing of c/d/f/w structures inevitably ends up needing the internal header files, anyway. (2) More face changes. -- Major rewrite of objects-msw.c. Now handles wildcard specs properly, rather than "truenaming" (or even worse, signalling an error, which previously happened with some of the fallbacks if you tried to use them in make-font-instance!). -- Split charset matching of fonts into two stages -- one to find a font specifically designed for a particular charset (by examining its registry), the second to find a Unicode font that can support the charset. This needs to proceed as two complete, separate instantiations in order to work properly (otherwise many of the fonts in the HELLO page look wrong). This should also make it easy to support iso10646 (Unicode) fonts under X. -- All default values for fonts are now completely specified in the fallbacks. Stuff from mule-x-init.el has all been moved here, merged with the existing specs, and totally rethought so you get sensible results. (HELLO now looks much better!). -- Generalize the "default X/GTK device" stuff into a per-device-type "default device". -- Add mswindows-{set-}charset-registry. In time, charset<->code-page conversion functions will be removed. -- Wrap protective code around calls to compute device specifier tags, and do this computation before calling the face initialization code because the latter may need these tags to be correctly updated. (3) Other changes. EmacsFrame.c, glyphs-msw.c, eval.c, gui-x.c, intl-encap-win32.c, search.c, signal.c, toolbar-msw.c, unicode.c: Warning fixes. config.h.in: #undefs meant to be frobbed by configure *MUST* go inside of #ifndef WIN32_NO_CONFIGURE, and everything else *MUST* go outside! eval.c: Let detailed backtraces be detailed. specifier.c: Don't override user's print-string-length/print-length settings. glyphs.c: New function image-instance-instantiator. config.h.in, sysdep.c: Changes for fastcall. sysdep.c, nt.c: Fix up a previous botched patch that tried to add support for both EEXIST and EACCES. IF THE BOTCHED PATCH WENT INTO 21.4, THIS FIXUP NEEDS TO GO IN, TOO. search.c: Fix *evil* crash due to incorrect synching of syntax-cache code with 21.1. THIS SHOULD GO INTO 21.4.
author ben
date Thu, 20 Jun 2002 21:19:10 +0000
parents eb3bc15a6e0f
children e40f8d860d5f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 ;;; package-get.el --- Retrieve XEmacs package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 ;; Copyright (C) 1998 by Pete Ware
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
4 ;; Copyright (C) 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 ;; Author: Pete Ware <ware@cis.ohio-state.edu>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 ;; Heavy-Modifications: Greg Klanderman <greg@alphatech.com>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 ;; Jan Vroonhof <vroonhof@math.ethz.ch>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 ;; Keywords: internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 ;; along with XEmacs; see the file COPYING. If not, write to the Free
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 ;; 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 ;;; Synched up with: Not in FSF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 ;; package-get -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 ;; Retrieve a package and any other required packages from an archive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 ;;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
36 ;; Note (JV): Most of this no longer applies!
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ;; The idea:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 ;; A new XEmacs lisp-only release is generated with the following steps:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 ;; 1. The maintainer runs some yet to be written program that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 ;; generates all the dependency information. This should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 ;; determine all the require and provide statements and associate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 ;; them with a package.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 ;; 2. All the packages are then bundled into their own tar balls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 ;; (or whatever format)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 ;; 3. Maintainer automatically generates a new `package-get-base'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 ;; data structure which contains information such as the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 ;; package name, the file to be retrieved, an md5 checksum,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 ;; etc (see `package-get-base').
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 ;; 4. The maintainer posts an announcement with the new version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 ;; of `package-get-base'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 ;; 5. A user/system manager saves this posting and runs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 ;; `package-get-update' which uses the previously saved list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 ;; of packages, `package-get-here' that the user/site
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 ;; wants to determine what new versions to download and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 ;; install.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 ;; A user/site manager can generate a new `package-get-here' structure
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 ;; by using `package-get-setup' which generates a customize like
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 ;; interface to the list of packages. The buffer looks something
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 ;; like:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 ;; gnus - a mail and news reader
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 ;; [] Always install
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 ;; [] Needs updating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 ;; [] Required by other [packages]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 ;; version: 2.0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 ;; vm - a mail reader
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 ;; [] Always install
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 ;; [] Needs updating
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
72 ;; [] Required by other [packages]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 ;; Where `[]' indicates a toggle box
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 ;; - Clicking on "Always install" puts this into
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 ;; `package-get-here' list. "Needs updating" indicates a new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 ;; version is available. Anything already in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 ;; `package-get-here' has this enabled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 ;; - "Required by other" means some other packages are going to force
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 ;; this to be installed. Clicking on [packages] gives a list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 ;; of packages that require this.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
83 ;;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 ;; The `package-get-base' should be installed in a file in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 ;; `data-directory'. The `package-get-here' should be installed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 ;; site-lisp. Both are then read at run time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 ;; TODO:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 ;; - Implement `package-get-setup'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 ;; - Actually put `package-get-base' and `package-get-here' into
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 ;; files that are read.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 ;; - Allow users to have their own packages that they want installed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 ;; in ~/.xemacs/.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 ;; - SOMEONE needs to write the programs that generate the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 ;; provides/requires database and makes it into a lisp data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 ;; structure suitable for `package-get-base'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 ;; - Handle errors such as no package providing a required symbol.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 ;; - Tie this into the `require' function to download packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 ;; transparently.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 ;;; Change Log
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 (require 'package-admin)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 ;; (require 'package-get-base)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 (defgroup package-tools nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 "Tools to manipulate packages."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 :group 'emacs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 (defgroup package-get nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 "Automatic Package Fetcher and Installer."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 :prefix "package-get"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 :group 'package-tools)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
117 ;;;###autoload
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 (defvar package-get-base nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 "List of packages that are installed at this site.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 For each element in the alist, car is the package name and the cdr is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 a plist containing information about the package. Typical fields
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 kept in the plist are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 version - version of this package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 provides - list of symbols provided
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 requires - list of symbols that are required.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 These in turn are provided by other packages.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 filename - name of the file.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 size - size of the file (aka the bundled package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 md5sum - computed md5 checksum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 description - What this package is for.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 type - Whether this is a 'binary (default) or 'single file package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 More fields may be added as needed. An example:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 '(
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 (name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 (version \"<version 2>\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 file \"filename\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 description \"what this package is about.\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 provides (<list>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 requires (<list>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 size <integer-bytes>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 md5sum \"<checksum\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 type single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 (version \"<version 1>\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 file \"filename\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 description \"what this package is about.\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 provides (<list>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 requires (<list>)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 size <integer-bytes>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 md5sum \"<checksum\"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 type single
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 For version information, it is assumed things are listed in most
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 recent to least recent -- in other words, the version names don't have to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 be lexically ordered. It is debatable if it makes sense to have more than
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 one version of a package available.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 (defcustom package-get-dir (temp-directory)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 "*Where to store temporary files for staging."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 :tag "Temporary directory"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 :type 'directory
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 (define-widget 'host-name 'string
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 "A Host name."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 :tag "Host")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 (defcustom package-get-remote nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 "*List of remote sites to contact for downloading packages.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 List format is '(site-name directory-on-site). Each site is tried in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 order until the package is found. As a special case, `site-name' can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 `nil', in which case `directory-on-site' is treated as a local directory."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 :tag "Package repository"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 :type '(repeat (choice (list :tag "Local" (const :tag "Local" nil) directory )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 (list :tag "Remote" host-name directory) ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 (defcustom package-get-download-sites
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 '(
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 ;; North America
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
188 ("Pre-Releases" "ftp.xemacs.org" "pub/xemacs/beta/experimental/packages")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 ("xemacs.org" "ftp.xemacs.org" "pub/xemacs/packages")
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
190 ("crc.ca (Canada)" "ftp.crc.ca" "pub/packages/editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
191 ("ualberta.ca (Canada)" "sunsite.ualberta.ca" "pub/Mirror/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
192 ("uiuc.edu (United States)" "uiarchive.uiuc.edu" "pub/packages/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
193 ("unc.edu (United States)" "metalab.unc.edu" "pub/packages/editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
194 ("utk.edu (United States)" "ftp.sunsite.utk.edu" "pub/xemacs/packages")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 ;; South America
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
197 ("unicamp.br (Brazil)" "ftp.unicamp.br" "pub/xemacs/packages")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 ;; Europe
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
200 ("tuwien.ac.at (Austria)" "gd.tuwien.ac.at" "editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
201 ("auc.dk (Denmark)" "sunsite.auc.dk" "pub/emacs/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
202 ("doc.ic.ac.uk (England)" "sunsite.doc.ic.ac.uk" "packages/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
203 ("funet.fi (Finland)" "ftp.funet.fi" "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
204 ("cenatls.cena.dgac.fr (France)" "ftp.cenatls.cena.dgac.fr" "Emacs/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
205 ("pasteur.fr (France)" "ftp.pasteur.fr" "pub/computing/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
206 ("tu-darmstadt.de (Germany)" "ftp.tu-darmstadt.de" "pub/editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
207 ("kfki.hu (Hungary)" "ftp.kfki.hu" "pub/packages/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
208 ("eunet.ie (Ireland)" "ftp.eunet.ie" "mirrors/ftp.xemacs.org/pub/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
209 ("uniroma2.it (Italy)" "ftp.uniroma2.it" "unix/misc/dist/XEMACS/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
210 ("uio.no (Norway)" "sunsite.uio.no" "pub/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
211 ("icm.edu.pl (Poland)" "ftp.icm.edu.pl" "pub/unix/editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
212 ("srcc.msu.su (Russia)" "ftp.srcc.msu.su" "mirror/ftp.xemacs.org/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
213 ("sunet.se (Sweden)" "ftp.sunet.se" "pub/gnu/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
214 ("cnlab-switch.ch (Switzerland)" "sunsite.cnlab-switch.ch" "mirror/xemacs/packages")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 ;; Asia
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
217 ("aist.go.jp (Japan)" "ring.aist.go.jp" "pub/text/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
218 ("asahi-net.or.jp (Japan)" "ring.asahi-net.or.jp" "pub/text/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
219 ("dti.ad.jp (Japan)" "ftp.dti.ad.jp" "pub/unix/editor/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
220 ("jaist.ac.jp (Japan)" "ftp.jaist.ac.jp" "pub/GNU/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
221 ("nucba.ac.jp (Japan)" "mirror.nucba.ac.jp" "mirror/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
222 ("sut.ac.jp (Japan)" "sunsite.sut.ac.jp" "pub/archives/packages/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
223 ("tsukuba.ac.jp (Japan)" "ftp.netlab.is.tsukuba.ac.jp" "pub/GNU/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
224 ("kreonet.re.kr (Korea)" "ftp.kreonet.re.kr" "pub/tools/emacs/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
225 ("nctu.edu.tw (Taiwan)" "coda.nctu.edu.tw" "Editors/xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
226
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
227 ;; Africa
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
228 ("sun.ac.za (South Africa)" "ftp.sun.ac.za" "xemacs/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
229
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
230 ;; Middle East
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
231 ("isu.net.sa (Saudi Arabia)" "ftp.isu.net.sa" "pub/mirrors/ftp.xemacs.org/packages")
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
232
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
233 ;; Australia
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
234 ("aarnet.edu.au (Australia)" "mirror.aarnet.edu.au" "pub/xemacs/packages")
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 "*List of remote sites available for downloading packages.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 List format is '(site-description site-name directory-on-site).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 SITE-DESCRIPTION is a textual description of the site. SITE-NAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 is the internet address of the download site. DIRECTORY-ON-SITE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 is the directory on the site in which packages may be found.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 This variable is used to initialize `package-get-remote', the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 variable actually used to specify package download sites."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 :tag "Package download sites"
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
244 :type '(repeat (list (string :tag "Name") host-name directory))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 (defcustom package-get-remove-copy t
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 "*After copying and installing a package, if this is t, then remove the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 copy. Otherwise, keep it around."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 :type 'boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 ;; #### it may make sense for this to be a list of names.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 ;; #### also, should we rename "*base*" to "*index*" or "*db*"?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 ;; "base" is a pretty poor name.
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
256 (defcustom package-get-base-filename "package-index.LATEST.gpg"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 "*Name of the default package-get database file.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 This may either be a relative path, in which case it is interpreted
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 with respect to `package-get-remote', or an absolute path."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 :type 'file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 (defvar package-get-user-index-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 (paths-construct-path (list user-init-directory package-get-base-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 "Name for the user-specific location of the package-get database file.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 (defcustom package-get-always-update nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 "*If Non-nil always make sure we are using the latest package index (base).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 Otherwise respect the `force-current' argument of `package-get-require-base'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 :type 'boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272
454
d7a9135ec789 Import from CVS: tag r21-2-42
cvs
parents: 444
diff changeset
273 (defcustom package-get-require-signed-base-updates nil
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 "*If set to a non-nil value, require explicit user confirmation for updates
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 to the package-get database which cannot have their signature verified via PGP.
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
276 When nil, no PGP verification will be done."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 :type 'boolean
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 :group 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
280 (defvar package-entries-are-signed nil
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
281 "Non-nil when the package index file has been PGP signed.")
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
282
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
283 (defvar package-get-continue-update-base nil
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
284 "Non-nil update the index even if it hasn't been signed.")
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
285
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 (defvar package-get-was-current nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 "Non-nil we did our best to fetch a current database.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 ;Shouldn't this be in package-ui?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 (defun package-get-download-menu ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 "Build the `Add Download Site' menu."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 (mapcar (lambda (site)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 (vector (car site)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 `(if (member (quote ,(cdr site))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 package-get-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 (setq package-get-remote
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
299 (delete (quote ,(cdr site))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
300 package-get-remote))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 (package-ui-add-site (quote ,(cdr site))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 :style 'toggle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 :selected `(member (quote ,(cdr site))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 package-get-remote)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 package-get-download-sites))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 (defun package-get-require-base (&optional force-current)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 "Require that a package-get database has been loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 If the optional FORCE-CURRENT argument or the value of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 `package-get-always-update' is Non-nil, try to update the database
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 from a location in `package-get-remote'. Otherwise a local copy is used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 if available and remote access is never done.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 Please use FORCE-CURRENT only when the user is explictly dealing with packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 and remote access is likely in the near future."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 (setq force-current (or force-current package-get-always-update))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 (unless (and (boundp 'package-get-base)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 package-get-base
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 (or (not force-current) package-get-was-current))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 (package-get-update-base nil force-current))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322 (if (or (not (boundp 'package-get-base))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 (not package-get-base))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 (error "Package-get database not loaded")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325 (setq package-get-was-current force-current)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 (defconst package-get-pgp-signed-begin-line "^-----BEGIN PGP SIGNED MESSAGE-----"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328 "Text for start of PGP signed messages.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 (defconst package-get-pgp-signature-begin-line "^-----BEGIN PGP SIGNATURE-----"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 "Text for beginning of PGP signature.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331 (defconst package-get-pgp-signature-end-line "^-----END PGP SIGNATURE-----"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 "Text for end of PGP signature.")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 (defun package-get-update-base-entry (entry)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336 "Update an entry in `package-get-base'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 (let ((existing (assq (car entry) package-get-base)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 (if existing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 (setcdr existing (cdr entry))
824
0cce4fee510b [xemacs-hg @ 2002-05-01 08:25:40 by youngs]
youngs
parents: 793
diff changeset
340 (setq package-get-base (cons entry package-get-base)))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342 (defun package-get-locate-file (file &optional nil-if-not-found no-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 "Locate an existing FILE with respect to `package-get-remote'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 If FILE is an absolute path or is not found, simply return FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345 If optional argument NIL-IF-NOT-FOUND is non-nil, return nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 if FILE can not be located.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 If NO-REMOTE is non-nil never search remote locations."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348 (if (file-name-absolute-p file)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 (let ((entries package-get-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 (expanded nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352 (while entries
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 (unless (and no-remote (caar entries))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 (let ((expn (package-get-remote-filename (car entries) file)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 (if (and expn (file-exists-p expn))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 (setq entries nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 expanded expn))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 (setq entries (cdr entries)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 (or expanded
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 (and (not nil-if-not-found)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 file)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363 (defun package-get-locate-index-file (no-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 "Locate the package-get index file. Do not return remote paths if NO-REMOTE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 is non-nil."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 (or (package-get-locate-file package-get-base-filename t no-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 (if (file-exists-p package-get-user-index-filename)
678
8e8a7b205142 [xemacs-hg @ 2001-11-29 17:00:38 by youngs]
youngs
parents: 629
diff changeset
368 package-get-user-index-filename)
8e8a7b205142 [xemacs-hg @ 2001-11-29 17:00:38 by youngs]
youngs
parents: 629
diff changeset
369 (locate-data-file package-get-base-filename)
8e8a7b205142 [xemacs-hg @ 2001-11-29 17:00:38 by youngs]
youngs
parents: 629
diff changeset
370 (error "Can't locate a package index file.")))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 (defun package-get-maybe-save-index (filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 "Offer to save the current buffer as the local package index file,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 if different."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 (let ((location (package-get-locate-index-file t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 (unless (and filename (equal filename location))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 (unless (and location
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 (equal (md5 (current-buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 (with-temp-buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 (insert-file-contents-literally location)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 (md5 (current-buffer)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 (unless (and location (file-writable-p location))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 (setq location package-get-user-index-filename))
434
9d177e8d4150 Import from CVS: tag r21-2-25
cvs
parents: 430
diff changeset
384 (when (y-or-n-p (concat "Update package index in " location "? "))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
385 (let ((coding-system-for-write 'binary))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
386 (write-file location)))))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
387
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 (defun package-get-update-base (&optional db-file force-current)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 "Update the package-get database file with entries from DB-FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 Unless FORCE-CURRENT is non-nil never try to update the database."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 (interactive
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 (let ((dflt (package-get-locate-index-file nil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 (list (read-file-name "Load package-get database: "
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 (file-name-directory dflt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 dflt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 t
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 (file-name-nondirectory dflt)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 (setq db-file (expand-file-name (or db-file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 (package-get-locate-index-file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 (not force-current)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 (if (not (file-exists-p db-file))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 (error "Package-get database file `%s' does not exist" db-file))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 (if (not (file-readable-p db-file))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 (error "Package-get database file `%s' not readable" db-file))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 (let ((buf (get-buffer-create "*package database*")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 (unwind-protect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 (set-buffer buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 (erase-buffer buf)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
412 (insert-file-contents-literally db-file)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 (package-get-update-base-from-buffer buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 (if (file-remote-p db-file)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 (package-get-maybe-save-index db-file)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 (kill-buffer buf))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 (defun package-get-update-base-from-buffer (&optional buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 "Update the package-get database with entries from BUFFER.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 BUFFER defaults to the current buffer. This command can be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 used interactively, for example from a mail or news buffer."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 (setq buf (or buf (current-buffer)))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
425 (let (content-beg content-end ;beg end
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
426 )
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 (set-buffer buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 (goto-char (point-min))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 (setq content-beg (point))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 (setq content-end (save-excursion (goto-char (point-max)) (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 (when (re-search-forward package-get-pgp-signed-begin-line nil t)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
433 ;(setq beg (match-beginning 0))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 (setq content-beg (match-end 0)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 (when (re-search-forward package-get-pgp-signature-begin-line nil t)
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
436 (setq content-end (match-beginning 0))
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
437 (setq package-entries-are-signed t))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 (when (re-search-forward package-get-pgp-signature-end-line nil t)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
439 ;(setq end (point))
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
440 )
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
441 (setq package-get-continue-update-base t)
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
442 (if package-get-require-signed-base-updates
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
443 (if package-entries-are-signed
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
444 (progn
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
445 (setq package-get-continue-update-base nil)
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
446 (autoload 'mc-setversion "mc-setversion")
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
447 (with-fboundp 'mc-setversion
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
448 (if-boundp 'exec-suffix-list
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
449 (or
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
450 (cond ((locate-file "gpg" exec-path exec-suffix-list)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
451 (mc-setversion "gpg"))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
452 ((locate-file "pgpe" exec-path exec-suffix-list)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
453 (mc-setversion "5.0"))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
454 ((locate-file "pgp" exec-path exec-suffix-list)
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
455 (mc-setversion "2.6")))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
456 (error "Can't find a suitable pgp executable"))
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
457 (error 'unimplemented "`apel' package unavailable")))
682
e558c78d22f8 [xemacs-hg @ 2001-12-02 15:27:37 by youngs]
youngs
parents: 681
diff changeset
458 (autoload 'mc-verify "mc-toplev")
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
459 (declare-fboundp (mc-verify))
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
460 (setq package-get-continue-update-base t))
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
461 (if (yes-or-no-p
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
462 "Package Index is not PGP signed. Continue anyway? ")
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
463 (setq package-get-continue-update-base t)
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
464 (error "Package database not updated")
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
465 (setq package-get-continue-update-base nil))))
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 434
diff changeset
466 ;; ToDo: We should call package-get-maybe-save-index on the region
681
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
467 (if package-get-continue-update-base
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
468 (progn
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
469 (package-get-update-base-entries content-beg content-end)
c00aa0615465 [xemacs-hg @ 2001-12-02 07:27:14 by youngs]
youngs
parents: 678
diff changeset
470 (message "Updated package-get database"))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
472 (defun package-get-update-base-entries (start end)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 "Update the package-get database with the entries found between
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
474 START and END in the current buffer."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 (save-excursion
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
476 (goto-char start)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 (if (not (re-search-forward "^(package-get-update-base-entry" nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 (error "Buffer does not contain package-get database entries"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 (beginning-of-line)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 (let ((count 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 (while (and (< (point) end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 (re-search-forward "^(package-get-update-base-entry" nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 (beginning-of-line)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 (let ((entry (read (current-buffer))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 (if (or (not (consp entry))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 (not (eq (car entry) 'package-get-update-base-entry)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 (error "Invalid package-get database entry found"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 (package-get-update-base-entry
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 (car (cdr (car (cdr entry)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 (setq count (1+ count))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 (message "Got %d package-get database entries" count))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 (defun package-get-save-base (file)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 "Write the package-get database to FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 Note: This database will be unsigned of course."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 (interactive "FSave package-get database to: ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 (package-get-require-base t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 (let ((buf (get-buffer-create "*package database*")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 (unwind-protect
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 (set-buffer buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 (erase-buffer buf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 (goto-char (point-min))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 (let ((entries package-get-base) entry plist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 (insert ";; Package Index file -- Do not edit manually.\n")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 (insert ";;;@@@\n")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 (while entries
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 (setq entry (car entries))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 (setq plist (car (cdr entry)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 (insert "(package-get-update-base-entry (quote\n")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 (insert (format "(%s\n" (symbol-name (car entry))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 (while plist
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 (insert (format " %s%s %S\n"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 (if (eq plist (car (cdr entry))) "(" " ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 (symbol-name (car plist))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 (car (cdr plist))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 (setq plist (cdr (cdr plist))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 (insert "))\n))\n;;;@@@\n")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 (setq entries (cdr entries))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 (insert ";; Package Index file ends here\n")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 (write-region (point-min) (point-max) file))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 (kill-buffer buf))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 (defun package-get-interactive-package-query (get-version package-symbol)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 "Perform interactive querying for package and optional version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 Query for a version if GET-VERSION is non-nil. Return package name as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 a symbol instead of a string if PACKAGE-SYMBOL is non-nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 The return value is suitable for direct passing to `interactive'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 (package-get-require-base t)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
532 (let ((table (mapcar #'(lambda (item)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
533 (let ((name (symbol-name (car item))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
534 (cons name name)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
535 package-get-base))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
536 package package-symbol default-version version)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 (save-window-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 (setq package (completing-read "Package: " table nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 (setq package-symbol (intern package))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 (if get-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 (progn
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
542 (setq default-version
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
543 (package-get-info-prop
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 (package-get-info-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 (package-get-info-find-package package-get-base
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 package-symbol) nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 'version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 (while (string=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 (setq version (read-string "Version: " default-version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 "")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 (if package-symbol
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 (list package-symbol version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 (list package version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 (if package-symbol
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 (list package-symbol)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
558 (list package))))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 (defun package-get-delete-package (package &optional pkg-topdir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 "Delete an installation of PACKAGE below directory PKG-TOPDIR.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 PACKAGE is a symbol, not a string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 This is just an interactive wrapper for `package-admin-delete-binary-package'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 (interactive (package-get-interactive-package-query nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 (package-admin-delete-binary-package package pkg-topdir))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 (defun package-get-update-all ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 "Fetch and install the latest versions of all currently installed packages."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 (package-get-require-base t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 ;; Load a fresh copy
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 (catch 'exit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 (mapcar (lambda (pkg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 (if (not (package-get (car pkg) nil 'never))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 (throw 'exit nil) ;; Bail out if error detected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 ))
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 683
diff changeset
579 packages-package-list))
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 683
diff changeset
580 (package-net-update-installed-db))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 (defun package-get-all (package version &optional fetched-packages install-dir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 "Fetch PACKAGE with VERSION and all other required packages.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 Uses `package-get-base' to determine just what is required and what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 package provides that functionality. If VERSION is nil, retrieves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 latest version. Optional argument FETCHED-PACKAGES is used to keep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 track of packages already fetched. Optional argument INSTALL-DIR,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 if non-nil, specifies the package directory where fetched packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 should be installed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 Returns nil upon error."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 (interactive (package-get-interactive-package-query t nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 (let* ((the-package (package-get-info-find-package package-get-base
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 package))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 (this-package (package-get-info-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 the-package version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 (this-requires (package-get-info-prop this-package 'requires))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 (catch 'exit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 (setq version (package-get-info-prop this-package 'version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 (unless (package-get-installedp package version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 (if (not (package-get package version nil install-dir))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 (setq fetched-packages nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 (throw 'exit nil))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 (setq fetched-packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 (append (list package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 (package-get-info-prop this-package 'provides)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 fetched-packages))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 ;; grab everything that this package requires plus recursively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 ;; grab everything that the requires require. Keep track
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 ;; in `fetched-packages' the list of things provided -- this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 ;; keeps us from going into a loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 (while this-requires
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 (if (not (member (car this-requires) fetched-packages))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 (let* ((reqd-package (package-get-package-provider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 (car this-requires) t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 (reqd-version (cadr reqd-package))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 (reqd-name (car reqd-package)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 (if (null reqd-name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 (error "Unable to find a provider for %s"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 (car this-requires)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 (if (not (setq fetched-packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 (package-get-all reqd-name reqd-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 fetched-packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 install-dir)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 (throw 'exit nil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 (setq this-requires (cdr this-requires)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 fetched-packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 (defun package-get-dependencies (packages)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 "Compute dependencies for PACKAGES.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 Uses `package-get-base' to determine just what is required and what
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 package provides that functionality. Returns the list of packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 required by PACKAGES."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 (package-get-require-base t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 (let ((orig-packages packages)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 dependencies provided)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 (while packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 (let* ((package (car packages))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 (the-package (package-get-info-find-package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 package-get-base package))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 (this-package (package-get-info-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 the-package nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 (this-requires (package-get-info-prop this-package 'requires))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 (new-depends (set-difference
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 (mapcar
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 #'(lambda (reqd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 (let* ((reqd-package (package-get-package-provider reqd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 (reqd-name (car reqd-package)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 (if (null reqd-name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 (error "Unable to find a provider for %s" reqd))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 reqd-name))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 this-requires)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 dependencies))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 (this-provides (package-get-info-prop this-package 'provides)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 (setq dependencies
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 (union dependencies new-depends))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 (setq provided
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 (union provided (union (list package) this-provides)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 (setq packages
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 (union new-depends (cdr packages)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 (set-difference dependencies orig-packages)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670 (defun package-get-load-package-file (lispdir file)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 (let (pathname)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 (setq pathname (expand-file-name file lispdir))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
673 (with-trapping-errors
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
674 :operation (format "loading package file \"%s\"" pathname)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
675 :error-form nil
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
676 (load pathname t)
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
677 t)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 (defun package-get-init-package (lispdir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 "Initialize the package.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 This really assumes that the package has never been loaded. Updating
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 a newer package can cause problems, due to old, obsolete functions in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 the old package.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 Return `t' upon complete success, `nil' if any errors occurred."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 (if (and lispdir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 (file-accessible-directory-p lispdir))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 ;; Add lispdir to load-path if it doesn't already exist.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 ;; NOTE: this does not take symlinks, etc., into account.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 (if (let ( (dirs load-path) )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 (catch 'done
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 (while dirs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 (if (string-equal (car dirs) lispdir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 (throw 'done nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 (setq dirs (cdr dirs))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 (setq load-path (cons lispdir load-path)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 (if (not (package-get-load-package-file lispdir "auto-autoloads"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 (package-get-load-package-file lispdir "_pkg"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 (defun package-get (package &optional version conflict install-dir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 "Fetch PACKAGE from remote site.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 Optional arguments VERSION indicates which version to retrieve, nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 means most recent version. CONFLICT indicates what happens if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 package is already installed. Valid values for CONFLICT are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 'always always retrieve the package even if it is already installed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 'never do not retrieve the package if it is installed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 INSTALL-DIR, if non-nil, specifies the package directory where
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 fetched packages should be installed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
718 The value of `package-get-base' is used to determine what files should
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 be retrieved. The value of `package-get-remote' is used to determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 where a package should be retrieved from. The sites are tried in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 order so one is better off listing easily reached sites first.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 Once the package is retrieved, its md5 checksum is computed. If that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 sum does not match that stored in `package-get-base' for this version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 of the package, an error is signalled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 Returns `t' upon success, the symbol `error' if the package was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 successfully installed but errors occurred during initialization, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 `nil' upon error."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 (interactive (package-get-interactive-package-query nil t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731 (catch 'skip-update
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 (let* ((this-package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 (package-get-info-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 (package-get-info-find-package package-get-base
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 package) version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 (latest (package-get-info-prop this-package 'version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 (installed (package-get-key package :version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 (this-requires (package-get-info-prop this-package 'requires))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 (found nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 (search-dirs package-get-remote)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 (base-filename (package-get-info-prop this-package 'filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 (package-status t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 filenames full-package-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 (if (null this-package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 (if package-get-remote
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 (error "Couldn't find package %s with version %s"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 package version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 (error "No download sites or local package locations specified.")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 (if (null base-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 (error "No filename associated with package %s, version %s"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 package version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 (setq install-dir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 (package-admin-get-install-dir package install-dir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 (or (eq package 'mule-base) (memq 'mule-base this-requires))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 ;; If they asked for the latest using version=nil, don't get an older
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 ;; version than we already have.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 (if installed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 (if (> (if (stringp installed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 (string-to-number installed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 installed)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 (if (stringp latest)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 (string-to-number latest)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 latest))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 (if (not (null version))
825
eb3bc15a6e0f [xemacs-hg @ 2002-05-02 14:35:28 by youngs]
youngs
parents: 824
diff changeset
766 (warn "Installing %s package version %s, you had a newer version %s"
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
767 package latest installed)
825
eb3bc15a6e0f [xemacs-hg @ 2002-05-02 14:35:28 by youngs]
youngs
parents: 824
diff changeset
768 (warn "Skipping %s package, you have a newer version %s"
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 776
diff changeset
769 package installed)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 (throw 'skip-update t))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 ;; Contrive a list of possible package filenames.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 ;; Ugly. Is there a better way to do this?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 (setq filenames (cons base-filename nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 (if (string-match "^\\(..*\\)\.tar\.gz$" base-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 (setq filenames (append filenames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 (list (concat (match-string 1 base-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 ".tgz")))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 (setq version latest)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 (unless (and (eq conflict 'never)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 (package-get-installedp package version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 ;; Find the package from the search list in package-get-remote
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 ;; and copy it into the staging directory. Then validate
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 ;; the checksum. Finally, install the package.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 (catch 'done
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 (let (search-filenames current-dir-entry host dir current-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 dest-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 ;; In each search directory ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 (while search-dirs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 (setq current-dir-entry (car search-dirs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 host (car current-dir-entry)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 dir (car (cdr current-dir-entry))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 search-filenames filenames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 ;; Look for one of the possible package filenames ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 (while search-filenames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 (setq current-filename (car search-filenames)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 dest-filename (package-get-staging-dir current-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 (cond
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 ;; No host means look on the current system.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 ( (null host)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 (setq full-package-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 (substitute-in-file-name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 (expand-file-name current-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 (file-name-as-directory dir))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 ;; If it's already on the disk locally, and the size is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 ;; greater than zero ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 ( (and (file-exists-p dest-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 (let (attrs)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814 ;; file-attributes could return -1 for LARGE files,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 ;; but, hopefully, packages won't be that large.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 (and (setq attrs (file-attributes dest-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 (> (nth 7 attrs) 0))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 (setq full-package-filename dest-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 ;; If the file exists on the remote system ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 ( (file-exists-p (package-get-remote-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 current-dir-entry current-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 ;; Get it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 (setq full-package-filename dest-filename)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
826 (message "Retrieving package `%s' ..."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 current-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 (copy-file (package-get-remote-filename current-dir-entry
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 current-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 full-package-filename t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 ;; If we found it, we're done.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 (if (and full-package-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 (file-exists-p full-package-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 (throw 'done nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 ;; Didn't find it. Try the next possible filename.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 (setq search-filenames (cdr search-filenames))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 ;; Try looking in the next possible directory ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 (setq search-dirs (cdr search-dirs))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 (if (or (not full-package-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 (not (file-exists-p full-package-filename)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 (if package-get-remote
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 (error "Unable to find file %s" base-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 (error
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 "No download sites or local package locations specified.")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 ;; Validate the md5 checksum
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 ;; Doing it with XEmacs removes the need for an external md5 program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 (message "Validating checksum for `%s'..." package) (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 (with-temp-buffer
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
857 (insert-file-contents-literally full-package-filename)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 (if (not (string= (md5 (current-buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 (package-get-info-prop this-package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 'md5sum)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 (error "Package %s does not match md5 checksum" base-filename)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 (package-admin-delete-binary-package package install-dir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 (message "Installing package `%s' ..." package) (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 (let ((status
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 (package-admin-add-binary-package full-package-filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 install-dir)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 (if (= status 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 ;; clear messages so that only messages from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 ;; package-get-init-package are seen, below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 (clear-message)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 (if (package-get-init-package (package-admin-get-lispdir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 install-dir package))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 (progn
628
e545f3ec2337 [xemacs-hg @ 2001-07-14 08:42:16 by youngs]
youngs
parents: 502
diff changeset
877 (run-hook-with-args 'package-install-hook package install-dir)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 (message "Added package `%s'" package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 ;; display message only if there isn't already one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 (if (not (current-message))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 (message "Added package `%s' (errors occurred)"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 (if package-status
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 (setq package-status 'errors))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 (message "Installation of package %s failed." base-filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 (sit-for 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 (switch-to-buffer package-admin-temp-buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 (setq package-status nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 ))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 (setq found t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 (if (and found package-get-remove-copy)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 (delete-file full-package-filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 package-status
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 )))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 (defun package-get-info-find-package (which name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 "Look in WHICH for the package called NAME and return all the info
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 associated with it. See `package-get-base' for info on the format
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 To access fields returned from this, use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 `package-get-info-version' to return information about particular a
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
911 version. Use `package-get-info-find-prop' to find particular property
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 from a version returned by `package-get-info-version'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 (interactive "xPackage list: \nsPackage Name: ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 (if which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 (if (eq (caar which) name)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 (cdar which)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 (if (cdr which)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 (package-get-info-find-package (cdr which) name)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 (defun package-get-info-version (package version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 "In PACKAGE, return the plist associated with a particular VERSION of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 package. PACKAGE is typically as returned by
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
923 `package-get-info-find-package'. If VERSION is nil, then return the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 first (aka most recent) version. Use `package-get-info-find-prop'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 to retrieve a particular property from the value returned by this."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 (interactive (package-get-interactive-package-query t t))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 (while (and version package (not (string= (plist-get (car package) 'version) version)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 (setq package (cdr package)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 (if package (car package)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 (defun package-get-info-prop (package-version property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 "In PACKAGE-VERSION, return the value associated with PROPERTY.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 PACKAGE-VERSION is typically returned by `package-get-info-version'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 and PROPERTY is typically (although not limited to) one of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 following:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 version - version of this package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 provides - list of symbols provided
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 requires - list of symbols that are required.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 These in turn are provided by other packages.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 size - size of the bundled package
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 md5sum - computed md5 checksum"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 (interactive "xPackage Version: \nSProperty")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 (plist-get package-version property))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 (defun package-get-info-version-prop (package-list package version property)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 "In PACKAGE-LIST, search for PACKAGE with this VERSION and return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 PROPERTY value."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 (package-get-info-prop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 (package-get-info-version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 (package-get-info-find-package package-list package) version) property))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 (defun package-get-set-version-prop (package-list package version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 property value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 "A utility to make it easier to add a VALUE for a specific PROPERTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 in this VERSION of a specific PACKAGE kept in the PACKAGE-LIST.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 Returns the modified PACKAGE-LIST. Any missing fields are created."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 )
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 (defun package-get-staging-dir (filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 "Return a good place to stash FILENAME when it is retrieved.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 Use `package-get-dir' for directory to store stuff.
629
a6c89d799f00 [xemacs-hg @ 2001-07-15 08:18:59 by adrian]
adrian
parents: 628
diff changeset
963 Creates `package-get-dir' if it doesn't exist."
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 (interactive "FPackage filename: ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 (if (not (file-exists-p package-get-dir))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 (make-directory package-get-dir))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 (expand-file-name
776
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
968 (file-name-nondirectory (or (and-fboundp 'efs-ftp-path
79940b592197 [xemacs-hg @ 2002-03-15 07:43:14 by ben]
ben
parents: 771
diff changeset
969 (nth 2 (efs-ftp-path filename)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 filename))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 (file-name-as-directory package-get-dir)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 (defun package-get-remote-filename (search filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 "Return FILENAME as a remote filename.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 It first checks if FILENAME already is a remote filename. If it is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 not, then it uses the (car search) as the remote site-name and the (cadr
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 search) as the remote-directory and concatenates filename. In other
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 words
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 site-name:remote-directory/filename.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 If (car search) is nil, (cadr search is interpreted as a local directory).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 "
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 (if (file-remote-p filename)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 filename
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 (let ((dir (cadr search)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 (concat (when (car search)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 (concat
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 (if (string-match "@" (car search))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 "/"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 "/anonymous@")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 (car search) ":"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 (if (string-match "/$" dir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 dir
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 (concat dir "/"))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 filename))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 (defun package-get-installedp (package version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 "Determine if PACKAGE with VERSION has already been installed.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1000 I'm not sure if I want to do this by searching directories or checking
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 some built in variables. For now, use packages-package-list."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 ;; Use packages-package-list which contains name and version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 (equal (plist-get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 (package-get-info-find-package packages-package-list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 package) ':version)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 (if (floatp version) version (string-to-number version))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 ;;;###autoload
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 (defun package-get-package-provider (sym &optional force-current)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 "Search for a package that provides SYM and return the name and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 version. Searches in `package-get-base' for SYM. If SYM is a
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1012 consp, then it must match a corresponding (provide (SYM VERSION)) from
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 the package.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 If FORCE-CURRENT is non-nil make sure the database is up to date. This might
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 lead to Emacs accessing remote sites."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 (interactive "SSymbol: ")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 (package-get-require-base force-current)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 (let ((packages package-get-base)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 (done nil)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 (found nil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 (while (and (not done) packages)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 (let* ((this-name (caar packages))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 (this-package (cdr (car packages)))) ;strip off package name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 (while (and (not done) this-package)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 (if (or (eq this-name sym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 (eq (cons this-name
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 (package-get-info-prop (car this-package) 'version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 sym)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 (member sym
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 (package-get-info-prop (car this-package) 'provides)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 (progn (setq done t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 (setq found
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 (list (caar packages)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 (package-get-info-prop (car this-package) 'version))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 (setq this-package (cdr this-package)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 (setq packages (cdr packages)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 (when (interactive-p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 (if found
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 (message "%S" found)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 (message "No appropriate package found")))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 found))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 (defun package-get-ever-installed-p (pkg &optional notused)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 (string-match "-package$" (symbol-name pkg))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1046 (custom-initialize-set
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1047 pkg
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1048 (if (package-get-info-find-package
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1049 packages-package-list
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 (intern (substring (symbol-name pkg) 0 (match-beginning 0))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 t)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 (provide 'package-get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 ;;; package-get.el ends here