git.chise.org Git - chise/xemacs-chise.git.1/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
  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 *s_expression)
  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-eval"));
  47   exit_err(tt_message_arg_add     (msg, TT_IN, "string", s_expression));
  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: emacs-eval \"<s-expression>\"\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 }