|
70
|
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 }
|
