Mercurial > hg > xemacs-beta
annotate tests/tooltalk/make-client-frame.c @ 1111:184461bc8de4
[xemacs-hg @ 2002-11-18 06:52:23 by ben]
warning fixes, etc.
* s/cygwin32.h:
-fvtable-thunks is obsolete in GCC 3 and generates warnings.
* s/mingw32.h:
* s/windowsnt.h:
Comment fixes.
* emodules.h:
Fix warnings from redefining symbols.
* eval.c:
Fix C++ errors -- no automatic casting between function pointers
and void *, function declarations inside of functions not allowed.
* event-Xt.c (emacs_Xt_enqueue_focus_event):
Warning fixes.
* fileio.c (Ffile_truename):
Warning fixes.
Use LOCAL_TO_WIN32_FILE_FORMAT rather than duplicating it.
* glyphs-x.c:
Fix style.
* intl-auto-encap-win32.c:
* intl-auto-encap-win32.h:
* intl-encap-win32.c:
* intl-encap-win32.c (qxeRegConnectRegistry):
* syswindows.h (RegConnectRegistry):
DdeCreateStringHandle needs to be manual due to new Cygwin bug.
* intl-win32.c:
wcslen/wcscmp don't seem to exist under G++ 3, Cygwin.
* lisp.h:
* lisp-union.h:
* lisp-disunion.h:
* process-unix.c (unix_send_process):
Ugh, C needs volatile and C++ must not have volatile. Remove
previous volatile hacks, which don't seem to be working any more.
* sheap.c (STATIC_HEAP_SLOP):
Try to get a working Cygwin build with old unexec.
* sheap.c (more_static_core):
No NL's in literals allowed.
* symbols.c (Fset):
Fix C++ errors.
* syswindows.h:
Fix Cygwin complaints now that some missing structs have been added.
aclocal.m4: Disable shared library modules under Cygwin for the moment,
since we need some more tricky coding done and I don't have the
time right now.
configure.in, configure.usage:
code-files.el, loadhist.el: Fix warnings.
package-get.el: Fix warnings.
NOTE: This was already fixed awhile ago, but reverted by Steve Y.
Please be careful.
postgresql/Makefile.in.in: Removed.
Move common stuff into modues/common/Makefile.common. (Also
add extraclean target and a couple of other fixes in that file.)
postgresql/configure.ac: Extract out common configure stuff into
modules/common/configure-{pre,post}.ac.
postgresql/postgresql.c: Fix warning.
ldap/Makefile.in.in: Removed.
Move common stuff into modues/common/Makefile.common. (Also
add extraclean target and a couple of other fixes in that file.)
ldap/configure.ac: Extract out common configure stuff into
modules/common/configure-{pre,post}.ac.
common/Makefile.common: Common stuff is here.
| author | ben |
|---|---|
| date | Mon, 18 Nov 2002 06:53:08 +0000 |
| parents | 131b0175ea99 |
| children | 9fc91aa3a927 |
| rev | line source |
|---|---|
| 70 | 1 /* make-client-frame.c - create a new frame in XEmacs using ToolTalk */ |
| 2 | |
| 3 /* See `tooltalk-make-client-frame-handler' in the file | |
| 4 lisp/tooltalk/tooltalk-init.el 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 *name, int height, int width); | |
| 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 *name, int height, int width) | |
| 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-make-client-frame")); | |
| 47 exit_err(tt_message_arg_add (msg, TT_IN, "string", name)); | |
| 48 exit_err(tt_message_iarg_add (msg, TT_IN, "int", height)); | |
| 49 exit_err(tt_message_iarg_add (msg, TT_IN, "int", width)); | |
| 50 exit_err(tt_message_callback_add(msg, callback_fn)); | |
| 51 | |
| 52 return msg; | |
| 53 } | |
| 54 | |
| 55 static int | |
| 56 initialize_tooltalk(void) { | |
| 57 int rcode; | |
| 58 | |
| 59 tt_procid = tt_open(); | |
| 60 if ((rcode = tt_ptr_error(tt_procid)) != TT_OK) { | |
| 61 return rcode; | |
| 62 } | |
| 63 | |
| 64 if ((rcode = tt_session_join(tt_default_session())) != TT_OK) { | |
| 65 return (rcode); | |
| 66 } | |
| 67 } | |
| 68 | |
| 69 | |
| 70 static void | |
| 71 usage(void) | |
| 72 { | |
| 73 fprintf(stderr, | |
| 74 "Usage: make-client-frame name height width\n\n"); | |
| 75 } | |
| 76 | |
| 77 void | |
| 78 main(argc, argv) | |
| 79 int argc; | |
| 80 char *argv[]; | |
| 81 { | |
| 82 | |
| 83 Tt_message msg; | |
| 84 | |
| 85 if (argc != 4) { | |
| 86 usage(); | |
| 87 exit(0); | |
| 88 } | |
| 89 | |
| 90 exit_err(initialize_tooltalk()); | |
| 91 | |
| 92 msg = create_new_message(argv[1], atoi(argv[2]), atoi(argv[3])); | |
| 93 | |
| 94 exit_err(tt_message_send(msg)); | |
| 95 | |
| 96 return; | |
| 97 } |