|
0
|
1 /* -*-C-*-
|
|
|
2 Client code to locally and remotely evaluate lisp forms using GNU Emacs.
|
|
|
3
|
|
|
4 This file is part of GNU Emacs.
|
|
|
5
|
|
|
6 Copying is permitted under those conditions described by the GNU
|
|
|
7 General Public License.
|
|
|
8
|
|
|
9 Copyright (C) 1989 Free Software Foundation, Inc.
|
|
|
10
|
|
|
11 Author: Andy Norman (ange@hplb.hpl.hp.com).
|
|
|
12
|
|
|
13 Please mail bugs and suggestions to the author at the above address.
|
|
|
14 */
|
|
|
15
|
|
|
16 /*
|
|
|
17 * This file incorporates new features added by Bob Weiner <weiner@mot.com>,
|
|
|
18 * Darrell Kindred <dkindred@cmu.edu> and Arup Mukherjee <arup@cmu.edu>.
|
|
|
19 * Please see the note at the end of the README file for details.
|
|
|
20 *
|
|
|
21 * (If gnuserv came bundled with your emacs, the README file is probably
|
|
|
22 * ../etc/gnuserv.README relative to the directory containing this file)
|
|
|
23 */
|
|
|
24
|
|
|
25 #if 0
|
|
|
26 static char rcsid [] = "!Header: gnudoit.c,v 2.1 95/02/16 11:59:02 arup alpha !";
|
|
|
27 #endif
|
|
|
28
|
|
|
29 #include "gnuserv.h"
|
|
|
30 #include "getopt.h"
|
|
|
31
|
|
|
32 #include <stdlib.h>
|
|
|
33 #include <stdio.h>
|
|
|
34 #include <sys/types.h>
|
|
149
|
35 #ifdef HAVE_UNISTD_H
|
|
0
|
36 #include <unistd.h>
|
|
149
|
37 #endif /* HAVE_UNISTD_H */
|
|
0
|
38
|
|
|
39 #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS)
|
|
78
|
40 int
|
|
|
41 main (int argc, char *argv[])
|
|
0
|
42 {
|
|
|
43 fprintf (stderr,"Sorry, the Emacs server is only supported on systems that have\n");
|
|
|
44 fprintf (stderr,"Unix Domain sockets, Internet Domain sockets or System V IPC.\n");
|
|
|
45 exit (1);
|
|
|
46 } /* main */
|
|
|
47 #else /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
|
|
|
48
|
|
78
|
49 int
|
|
80
|
50 main (int argc, char *argv[])
|
|
0
|
51 {
|
|
|
52 int qflg = 0; /* don't wait around for
|
|
|
53 * gnu emacs to eval cmd */
|
|
|
54 int errflg = 0; /* option error */
|
|
|
55 int c; /* char from getopt */
|
|
|
56 int s; /* socket / msqid to server */
|
|
|
57 int connect_type; /* CONN_UNIX, CONN_INTERNET, or
|
|
|
58 * CONN_IPC */
|
|
|
59 #ifdef INTERNET_DOMAIN_SOCKETS
|
|
|
60 char *hostarg = NULL; /* remote hostname argument */
|
|
|
61 u_short portarg = 0; /* port number */
|
|
|
62 #endif /* INTERNET_DOMAIN_SOCKETS */
|
|
|
63 #ifdef SYSV_IPC
|
|
|
64 struct msgbuf *msgp; /* message */
|
|
|
65 #endif /* SYSV_IPC */
|
|
|
66
|
|
|
67 progname = argv[0];
|
|
|
68
|
|
|
69 while ((c = getopt(argc, argv,
|
|
|
70 #ifdef INTERNET_DOMAIN_SOCKETS
|
|
|
71 "qh:p:"
|
|
|
72 #else /* !INTERNET_DOMAIN_SOCKETS */
|
|
|
73 "q"
|
|
|
74 #endif /* !INTERNET_DOMAIN_SOCKETS */
|
|
|
75 )) != EOF)
|
|
|
76 switch (c) {
|
|
|
77 #ifdef INTERNET_DOMAIN_SOCKETS
|
|
|
78 case 'h': /* host name specified */
|
|
|
79 hostarg = optarg;
|
|
|
80 break;
|
|
|
81 case 'p': /* port number specified */
|
|
|
82 portarg = atoi(optarg);
|
|
|
83 break;
|
|
|
84 #endif /* INTERNET_DOMAIN_SOCKETS */
|
|
|
85 case 'q': /* quick mode specified */
|
|
|
86 qflg++;
|
|
|
87 break;
|
|
|
88 case '?':
|
|
|
89 errflg++;
|
|
|
90 }; /* switch */
|
|
|
91
|
|
|
92 if (errflg) {
|
|
|
93 fprintf(stderr,
|
|
|
94 #ifdef INTERNET_DOMAIN_SOCKETS
|
|
|
95 "usage: %s [-q] [-h hostname] [-p port] [sexpr]...\n",
|
|
|
96 #else /* !INTERNET_DOMAIN_SOCKETS */
|
|
|
97 "usage: %s [-q] [sexpr]...\n",
|
|
|
98 #endif /* !INTERNET_DOMAIN_SOCKETS */
|
|
|
99 progname);
|
|
|
100 exit (1);
|
|
|
101 }; /* if */
|
|
|
102
|
|
|
103 #ifdef INTERNET_DOMAIN_SOCKETS
|
|
|
104 connect_type = make_connection(hostarg, portarg, &s);
|
|
|
105 #else
|
|
|
106 connect_type = make_connection(NULL, (u_short) 0, &s);
|
|
|
107 #endif
|
|
|
108
|
|
|
109 #ifdef SYSV_IPC
|
|
|
110 if ((msgp = (struct msgbuf *)
|
|
|
111 malloc(sizeof *msgp + GSERV_BUFSZ)) == NULL) {
|
|
|
112 fprintf(stderr,"%s: not enough memory for message buffer\n",progname);
|
|
|
113 exit(1);
|
|
|
114 }; /* if */
|
|
|
115
|
|
|
116 msgp->mtext[0] = '\0'; /* ready for later strcats */
|
|
|
117 #endif /* SYSV_IPC */
|
|
|
118
|
|
|
119 if (qflg) {
|
|
149
|
120 send_string(s,"(gnuserv-eval-quickly '(progn ");
|
|
0
|
121 }
|
|
|
122 else {
|
|
149
|
123 send_string(s,"(gnuserv-eval '(progn ");
|
|
0
|
124 };
|
|
|
125
|
|
|
126 if (optind < argc) {
|
|
|
127 for (; optind < argc; optind++) {
|
|
|
128 send_string(s, argv[optind]);
|
|
|
129 send_string(s, " ");
|
|
|
130 }
|
|
|
131 } else {
|
|
|
132 /* no sexp on the command line, so read it from stdin */
|
|
|
133 int nb;
|
|
|
134 char buf[GSERV_BUFSZ];
|
|
|
135 while ((nb = read(fileno(stdin), buf, GSERV_BUFSZ-1)) > 0) {
|
|
|
136 buf[nb] = '\0';
|
|
|
137 send_string(s, buf);
|
|
|
138 }
|
|
|
139 }
|
|
|
140 send_string(s,"))");
|
|
|
141
|
|
|
142 #ifdef SYSV_IPC
|
|
|
143 if (connect_type == (int) CONN_IPC)
|
|
|
144 disconnect_from_ipc_server(s,msgp,!qflg);
|
|
|
145 else
|
|
|
146 #else /* !SYSV_IPC */
|
|
|
147 disconnect_from_server(s,!qflg);
|
|
|
148 #endif /* !SYSV_IPC */
|
|
|
149
|
|
78
|
150 return 0;
|
|
0
|
151
|
|
|
152 } /* main */
|
|
|
153
|
|
|
154 #endif /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
|
