git.chise.org Git - chise/xemacs-chise.git.1/blob - tests/tooltalk/make-client-frame.c

   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 }