Mercurial > hg > xemacs-beta
view tests/tooltalk/make-client-frame.c @ 4108:5da4cc7d5968
[xemacs-hg @ 2007-08-09 06:22:51 by michaels]
2007-08-07 Mike Sperber <mike@xemacs.org>
* setup-paths.el (paths-find-doc-directory):
(paths-find-exec-directory):
(paths-find-lisp-directory):
(paths-find-mule-lisp-directory):
(paths-construct-info-path):
(paths-find-data-directory):
* packages.el (packages-find-installation-package-directories):
* find-paths.el (paths-for-each-emacs-directory):
(paths-find-emacs-directories):
(paths-find-emacs-directory):
(paths-for-each-site-directory):
(paths-find-site-directory):
(paths-find-site-directories):
(paths-for-each-version-directory):
(paths-find-version-directories):
(paths-find-version-directory): Generalize to multiple bases.
(paths-find-architecture-directory): Use above to give roots
precedence over bases. This means, for example, that a directory
in an in-place root will always get precedence over an installed
root.
author | michaels |
---|---|
date | Thu, 09 Aug 2007 06:22:53 +0000 |
parents | 131b0175ea99 |
children | 9fc91aa3a927 |
line wrap: on
line source
/* make-client-frame.c - create a new frame in XEmacs using ToolTalk */ /* See `tooltalk-make-client-frame-handler' in the file lisp/tooltalk/tooltalk-init.el for the receiver side. */ #include <desktop/tt_c.h> #include <stdio.h> #include <stdlib.h> #include <sys/wait.h> Tt_status tter; #define exit_err_ptr(ptr) \ if ((tter = tt_ptr_error(ptr)) != TT_OK) \ { fprintf(stderr, "%d:%s\n", __LINE__, tt_status_message(tter)); exit(1); } #define exit_err(stat) \ if ((tter = stat) != TT_OK) \ { fprintf(stderr, "%d:%s\n", __LINE__, tt_status_message(tter)); exit(1); } Tt_callback_action callback_fn(Tt_message msg, Tt_pattern pat); static Tt_message create_new_message(char *name, int height, int width); static int initialize_tooltalk(void); static void usage(void); static char* tt_procid; Tt_callback_action callback_fn(Tt_message msg, Tt_pattern pat) { tt_message_destroy(msg); return TT_CALLBACK_PROCESSED; } static Tt_message create_new_message(char *name, int height, int width) { Tt_message msg; msg = tt_message_create(); exit_err_ptr(msg); exit_err(tt_message_address_set (msg, TT_PROCEDURE)); exit_err(tt_message_class_set (msg, TT_REQUEST)); exit_err(tt_message_scope_set (msg, TT_SESSION)); exit_err(tt_message_op_set (msg, "emacs-make-client-frame")); exit_err(tt_message_arg_add (msg, TT_IN, "string", name)); exit_err(tt_message_iarg_add (msg, TT_IN, "int", height)); exit_err(tt_message_iarg_add (msg, TT_IN, "int", width)); exit_err(tt_message_callback_add(msg, callback_fn)); return msg; } static int initialize_tooltalk(void) { int rcode; tt_procid = tt_open(); if ((rcode = tt_ptr_error(tt_procid)) != TT_OK) { return rcode; } if ((rcode = tt_session_join(tt_default_session())) != TT_OK) { return (rcode); } } static void usage(void) { fprintf(stderr, "Usage: make-client-frame name height width\n\n"); } void main(argc, argv) int argc; char *argv[]; { Tt_message msg; if (argc != 4) { usage(); exit(0); } exit_err(initialize_tooltalk()); msg = create_new_message(argv[1], atoi(argv[2]), atoi(argv[3])); exit_err(tt_message_send(msg)); return; }