Mercurial > hg > xemacs-beta
annotate tests/tooltalk/simple.el @ 5014:c2e0c3af5fe3
cleanups to debug-print, try harder to make it work during GC
-------------------- ChangeLog entries follow: --------------------
src/ChangeLog addition:
2010-02-08 Ben Wing <ben@xemacs.org>
* emacs.c:
* emacs.c (assert_failed):
Fix comments about when inhibit_non_essential_printing_operations
is set and how used. Increment/decrement in assert_failed rather
than just setting/resetting to avoid hosing things in case we're
called when the value is already non-zero. Similarly increment/
decrement in_assert_failed.
* gc.c (gc_prepare):
* gc.c (gc_finish):
Increment/decrement inhibit_non_essential_printing_operations
rather than setting/resetting.
* print.c:
* print.c (debug_out):
* print.c (write_string_to_alternate_debugging_output):
* print.c (restore_inhibit_non_essential_conversion_operations):
* print.c (debug_print_exit):
* print.c (debug_print_enter):
* print.c (debug_prin1):
* print.c (debug_p4):
* print.c (ext_print_begin):
* print.c (ext_print_end):
* print.c (external_debug_print):
* print.c (debug_p3):
* print.c (debug_backtrace):
* print.c (debug_short_backtrace):
* print.c (vars_of_print):
Lots of cleanup. Fix debug_out() so it binds
inhibit_non_essential_printing_operations around it to ensure no
conversion. Remove many other places that set the same var since
the lower-level functions now all do it. A few other places, add
inhibit_non_essential_printing_operations bindings.Extract the
code out that sets up and resets lots of bindings in debug_prin1()
so that debug_backtrace() can use it, and rewrite it to use the
new STORE_VOID_IN_LISP() rather than having to have a single
static opaque structure holding all the bindings (and not handling
reentrancy). Fix raw `char' to be `CIbyte' in the declaration of
`alternate_do_string'.
* signal.c (check_what_happened):
Fix bug: Don't try to check for QUIT when
inhibit_non_essential_printing_operations or we may screw things
up if QUIT happens during debug printing.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Mon, 08 Feb 2010 07:00:24 -0600 |
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 |