cgit.sxemacs.org Git - sxemacs/blob - tests/tooltalk/emacs-eval.c

   1 /* emacs-eval.c - send an s-expression to XEmacs for evaluation via ToolTalk */
   2
   3 /* See `tooltalk-eval-handler' in the file lisp/tooltalk/tooltalk-init.el for
   4    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 *s_expression);
  23 static int initialize_tooltalk(void);
  24 static void usage(void);
  25
  26 static char *tt_procid;
  27
  28 Tt_callback_action callback_fn(Tt_message msg, Tt_pattern pat)
  29 {
  30         tt_message_destroy(msg);
  31         return TT_CALLBACK_PROCESSED;
  32 }
  33
  34 static Tt_message create_new_message(char *s_expression)
  35 {
  36         Tt_message msg;
  37
  38         msg = tt_message_create();
  39         exit_err_ptr(msg);
  40
  41         exit_err(tt_message_address_set(msg, TT_PROCEDURE));
  42         exit_err(tt_message_class_set(msg, TT_REQUEST));
  43         exit_err(tt_message_scope_set(msg, TT_SESSION));
  44         exit_err(tt_message_op_set(msg, "emacs-eval"));
  45         exit_err(tt_message_arg_add(msg, TT_IN, "string", s_expression));
  46         exit_err(tt_message_callback_add(msg, callback_fn));
  47
  48         return msg;
  49 }
  50
  51 static int initialize_tooltalk(void)
  52 {
  53         int rcode;
  54
  55         tt_procid = tt_open();
  56         if ((rcode = tt_ptr_error(tt_procid)) != TT_OK) {
  57                 return rcode;
  58         }
  59
  60         if ((rcode = tt_session_join(tt_default_session())) != TT_OK) {
  61                 return (rcode);
  62         }
  63 }
  64
  65 static void usage(void)
  66 {
  67         fprintf(stderr, "Usage: emacs-eval \"<s-expression>\"\n\n");
  68 }
  69
  70 void main(argc, argv)
  71 int argc;
  72 char *argv[];
  73 {
  74
  75         Tt_message msg;
  76
  77         if (argc != 2) {
  78                 usage();
  79                 exit(0);
  80         }
  81
  82         exit_err(initialize_tooltalk());
  83
  84         msg = create_new_message(argv[1]);
  85
  86         exit_err(tt_message_send(msg));
  87
  88         return;
  89 }