Mercurial > hg > xemacs-beta
annotate tests/tooltalk/simple.el @ 1410:44de306310b8
[xemacs-hg @ 2003-04-14 03:40:26 by youngs]
2003-04-14 Steve Youngs <youngs@xemacs.org>
* package-admin.el (package-admin-find-top-directory): Use
'directory-sep-char'.
(package-admin-get-install-dir): Ditto.
This is so PUI won't break on platforms that don't use '/' as the
directory separator.
* package-get.el (package-get-pgp-available-p): New.
(package-get-require-signed-base-updates): Use it.
(package-get-update-base-from-buffer): Move the code that finds
the gpg stuff into `package-get-pgp-available-p'.
Now if you have Mailcrypt and a PGP binary installed and set up on
your system, PUI will automatically default to doing PGP
verification, otherwise it'll default to off.
(package-get-require-base): Use the DATUM arg to `error'.
(package-get-locate-index-file): Ditto.
(package-get-update-base): Ditto.
(package-get-update-base-entries): Ditto.
(package-get-all): Ditto.
(package-get-dependencies): Ditto.
(package-get-info): Ditto.
(package-get): Ditto.
* package-info.el (batch-update-package-info): Use the DATUM arg
to `error'.
* package-net.el (package-net-batch-generate-bin-ini): Use the
DATUM arg to `error'.
* package-ui.el (pui-toggle-package-key): Use the DATUM arg to
`error'.
(pui-toggle-package-delete-key): Ditto.
(pui-install-selected-packages): Ditto.
(pui-add-required-packages): Ditto.
(pui-display-info): Ditto.
(list-packages-mode): Ditto.
* packages.el (package-require): Use the DATUM arg to `error'.
author | youngs |
---|---|
date | Mon, 14 Apr 2003 03:40:27 +0000 |
parents | 131b0175ea99 |
children | 9fc91aa3a927 |
rev | line source |
---|---|
70 | 1 ;;; Example of Sending Messages |
2 | |
3 (defun tooltalk-random-query-handler (msg pat) | |
4 (let ((state (get-tooltalk-message-attribute msg 'state))) | |
5 (cond | |
6 ((eq state 'TT_HANDLED) | |
7 (message (get-tooltalk-message-attribute msg arg_val 0))) | |
8 ((memq state '(TT_FAILED TT_REJECTED)) | |
9 (message "Random query turns up nothing"))))) | |
10 | |
11 (setq random-query-message | |
12 '( class TT_REQUEST | |
13 scope TT_SESSION | |
14 address TT_PROCEDURE | |
15 op "random-query" | |
16 args ((TT_INOUT "?" "string")) | |
17 callback tooltalk-random-query-handler)) | |
18 | |
19 (let ((m (make-tooltalk-message random-query-message))) | |
20 (send-tooltalk-message m)) | |
21 | |
22 ;;; Example of Receiving Messaegs | |
23 | |
24 (defun tooltalk-display-string-handler (msg pat) | |
25 (return-tooltalk-message msg 'reply) | |
26 (describe-tooltalk-message msg) | |
27 (message (get-tooltalk-message-attribute msg 'arg_val 0))) | |
28 | |
29 (setq display-string-pattern | |
30 '(category TT_HANDLE | |
31 scope TT_SESSION | |
32 op "emacs-eval" | |
33 args ((TT_IN "filename" "string")) | |
34 callback tooltalk-display-string-handler)) | |
35 | |
36 (let ((p (make-tooltalk-pattern display-string-pattern))) | |
37 (register-tooltalk-pattern p)) | |
38 |