Mercurial > hg > xemacs-beta
annotate tests/tooltalk/load-file.c @ 930:eaedf30d9d76
[xemacs-hg @ 2002-07-23 08:34:59 by youngs]
2002-07-15 Jerry James <james@xemacs.org>
* make-docfile.c: Change whitespace and organization to reduce the
size of the diff against FSF Emacs sources and synch to Emacs 21.2.
Remove unused DO_REALLOC.
Mark XEmacs changes and additions more clearly.
Reintroduce previously deleted Emacs code inside #if 0 ... #endif.
* make-docfile.c (next_extra_elc): Replace goto with do-while.
* make-docfile.c (main): Put XEmacs-only args in one place.
* make-docfile.c (write_c_args): Change buff to buf to match
Emacs. Replace pointer arithmetic with simpler array syntax.
* make-docfile.c (scan_c_file): Note that DEFSIMPLE and DEFPRED no
longer exist. Correct the "name too long" test (off by one).
Die with message if a DEFUN has no docstring instead of hanging.
* make-docfile.c (scan_lisp_file): Introduce while loops used in
Emacs sources to skip consecutive blank lines.
2002-07-21 John Paul Wallington <jpw@xemacs.org>
* process.el (substitute-env-vars): New function; sync with
GNU Emacs 21.1.50.
(setenv): Add optional arg SUBSTITUTE-ENV-VARS; sync with
GNU Emacs 21.1.50.
2002-07-20 Mike Sperber <mike@xemacs.org>
* eval.c (run_post_gc_hook): Use more correct flags when running
post-gc-hook.
2002-07-20 Mike Sperber <mike@xemacs.org>
* process-unix.c (child_setup): Don't try to close file
descriptors for chid process once again---it's already being done
in close_process_descs.
(unix_create_process): Call begin_dont_check_for_quit to inhibit
unwanted interaction (and thus breaking of X event synchronicity)
in the child.
2002-07-15 Jerry James <james@xemacs.org>
* lisp.h: Make Qdll_error visible globally.
* symbols.c (check_sane_subr): Revert 2002-06-26 change.
Check only if !initialized.
* symbols.c (check_module_subr): Add parameter. Duplicate
check_sane_subr checks, but signal an error instead of asserting.
* symbols.c (defsubr): Use check_module_subr parameter.
* symbols.c (defsubr_macro): Ditto.
| author | youngs |
|---|---|
| date | Tue, 23 Jul 2002 08:35:11 +0000 |
| parents | 131b0175ea99 |
| children | 9fc91aa3a927 |
| rev | line source |
|---|---|
| 70 | 1 /* load-file.c - load & execute an Emacs Lisp file in XEmacs using ToolTalk */ |
| 2 | |
| 3 /* See `tooltalk-load-file-handler' in the file lisp/tooltalk/tooltalk-init.el | |
| 4 for the receiver side. */ | |
| 5 | |
| 6 #include <desktop/tt_c.h> | |
| 7 #include <stdio.h> | |
| 8 #include <stdlib.h> | |
| 9 #include <sys/wait.h> | |
| 10 | |
| 11 Tt_status tter; | |
| 12 | |
| 13 #define exit_err_ptr(ptr) \ | |
| 14 if ((tter = tt_ptr_error(ptr)) != TT_OK) \ | |
| 15 { fprintf(stderr, "%d:%s\n", __LINE__, tt_status_message(tter)); exit(1); } | |
| 16 | |
| 17 #define exit_err(stat) \ | |
| 18 if ((tter = stat) != TT_OK) \ | |
| 19 { fprintf(stderr, "%d:%s\n", __LINE__, tt_status_message(tter)); exit(1); } | |
| 20 | |
| 21 Tt_callback_action callback_fn(Tt_message msg, Tt_pattern pat); | |
| 22 static Tt_message create_new_message(char *pathname); | |
| 23 static int initialize_tooltalk(void); | |
| 24 static void usage(void); | |
| 25 | |
| 26 static char* tt_procid; | |
| 27 | |
| 28 Tt_callback_action | |
| 29 callback_fn(Tt_message msg, Tt_pattern pat) | |
| 30 { | |
| 31 tt_message_destroy(msg); | |
| 32 return TT_CALLBACK_PROCESSED; | |
| 33 } | |
| 34 | |
| 35 static Tt_message | |
| 36 create_new_message(char *pathname) | |
| 37 { | |
| 38 Tt_message msg; | |
| 39 | |
| 40 msg = tt_message_create(); | |
| 41 exit_err_ptr(msg); | |
| 42 | |
| 43 exit_err(tt_message_address_set (msg, TT_PROCEDURE)); | |
| 44 exit_err(tt_message_class_set (msg, TT_REQUEST)); | |
| 45 exit_err(tt_message_scope_set (msg, TT_SESSION)); | |
| 46 exit_err(tt_message_op_set (msg, "emacs-load-file")); | |
| 47 exit_err(tt_message_arg_add (msg, TT_IN, "file", pathname)); | |
| 48 exit_err(tt_message_callback_add(msg, callback_fn)); | |
| 49 | |
| 50 return msg; | |
| 51 } | |
| 52 | |
| 53 static int | |
| 54 initialize_tooltalk(void) { | |
| 55 int rcode; | |
| 56 | |
| 57 tt_procid = tt_open(); | |
| 58 if ((rcode = tt_ptr_error(tt_procid)) != TT_OK) { | |
| 59 return rcode; | |
| 60 } | |
| 61 | |
| 62 if ((rcode = tt_session_join(tt_default_session())) != TT_OK) { | |
| 63 return (rcode); | |
| 64 } | |
| 65 } | |
| 66 | |
| 67 | |
| 68 static void | |
| 69 usage(void) | |
| 70 { | |
| 71 fprintf(stderr, | |
| 72 "Usage: load-file pathname\n\n"); | |
| 73 } | |
| 74 | |
| 75 void | |
| 76 main(argc, argv) | |
| 77 int argc; | |
| 78 char *argv[]; | |
| 79 { | |
| 80 | |
| 81 Tt_message msg; | |
| 82 | |
| 83 if (argc != 2) { | |
| 84 usage(); | |
| 85 exit(0); | |
| 86 } | |
| 87 | |
| 88 exit_err(initialize_tooltalk()); | |
| 89 | |
| 90 msg = create_new_message(argv[1]); | |
| 91 | |
| 92 exit_err(tt_message_send(msg)); | |
| 93 | |
| 94 return; | |
| 95 } |