1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#include <stdio.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <Obm.h>
/*
* OBMSH -- GUI shell using the OBM (Object Manager) library. The GUI script
* to be executed may be read from either the standard input or a file.
*/
/* Compatibility hacks. */
#ifdef AUX
void *memmove(a,b,n) void *a; const void *b; size_t n; { bcopy(b,a,n); }
#else
#if defined(sun) && !defined(SYSV)
void *memmove(a,b,n) void *a, *b; int n; { bcopy(b,a,n); }
#endif
#endif
/* Data. */
XtAppContext app_context;
static char server[] = "server";
static void deactivate();
static void output();
/* MAIN -- OBMSH main program.
*/
main (argc, argv)
int argc;
char *argv[];
{
Widget toplevel;
XtPointer obm;
char **sv_argv;
int sv_argc;
char *fname;
/* Get local copy of argc and argv. */
if ((sv_argc = argc) > 0) {
sv_argv = (char **) XtMalloc (argc * sizeof(char *));
memmove (sv_argv, argv, argc * sizeof(char *));
} else
sv_argv = argv;
/* Initialize applications context. */
toplevel = XtAppInitialize (&app_context, "OBMsh",
(XrmOptionDescList) NULL, 0, &sv_argc, sv_argv,
(String *) NULL, (ArgList) NULL, 0);
/* Free saved arglist. */
free ((char *)sv_argv);
if (!toplevel)
exit (1);
/* Initialize the object manager. */
if (!(obm = (XtPointer) ObmOpen (app_context, argc, argv)))
exit (2);
ObmAddCallback (obm, OBMCB_deactivate|OBMCB_preserve, deactivate, obm);
ObmAddCallback (obm, OBMCB_clientOutput|OBMCB_preserve, output, obm);
/* Open and execute the GUI file if there was one, otherwise read
* the GUI from the standard input.
*/
if (argc == 2) {
if (access (fname=argv[1],0) != 0) {
fprintf (stderr, "cannot open %s\n", fname);
exit (3);
}
if (ObmDeliverMsgFromFile (obm, server, fname) != 0) {
fprintf (stderr, "error executing GUI %s\n", fname);
exit (4);
}
} else {
register int ch;
register char *op;
char *message = (char *) XtMalloc (1024000);
for (op=message; (ch = getc(stdin)) != EOF; )
*op++ = ch;
*op++ = '\0';
ObmDeliverMsg (obm, server, message);
free (message);
}
/* Activate the GUI. */
ObmActivate (obm);
/* EXECUTE */
XtAppMainLoop (app_context);
}
/* DEACTIVATE -- The deactivate callback is called when deactivate is executed
* in the GUI.
*/
static void
deactivate (obm, toplevel)
XtPointer obm;
Widget toplevel;
{
ObmClose (obm);
exit (0);
}
/* OUTPUT -- The output callback is called when the GUI sends data or requests
* to the "client" object, which is this routine in the case of obmsh.
*/
static void
output (obm, tcl, objname, key, string)
XtPointer obm;
XtPointer tcl; /* not used */
char *objname; /* not used */
int key;
char *string;
{
if (key == 'q' || key == 'Q') {
ObmClose (obm);
exit (0);
} else {
printf ("key=%c(%03o) command = `%s'\n", key, key, string);
fflush (stdout);
}
}
|
