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
128
129
130
131
132
133
134
135
136
137
138
139
140
|
#include <stdio.h>
#include <stdlib.h>
#include <sys/errno.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <Tcl/tcl.h>
#include "ximtool.h"
/*
* ISM_WCSPIX.C -- Client callbacks for the WCS/Pixel value ISM.
*
* wcspix_connect (xim)
* wcspix_disconnect (xim)
* wcspix_command (xim, argc, argv)
*/
static int wcspix_debug = 0;
extern int errno;
/* WCS/Pixel ISM client callbacks. */
void wcspix_connect(), wcspix_disconnect(), wcspix_command(), wcspix_message();
/* WCSPIX_CONNECT -- Called when the WCSPIX ISM first connects to the server.
* Used to update with the current cache of mappings as well as initialize
* the GUI that we are alive.
*/
void
wcspix_connect (xim, ism)
register XimDataPtr xim;
register IsmModule ism;
{
MappingPtr mp;
FrameBufPtr fr;
register int i, j;
char buf[SZ_LINE];
if (wcspix_debug) printf ("ConnectCB for '%s' ....\n", ism->name);
wcspix_message (xim, "startup");
/* Update the ISM with the current set of mappings. */
for (j=0; j < xim->nframes; j++) {
fr = &xim->frames[j];
for (i=0; i < fr->nmaps; i++) {
mp = &fr->mapping[i];
sprintf (buf, "cache %s %d", mp->ref, mp->id);
ism_message (xim, ism->name, buf);
sprintf (buf, "wcslist %d", mp->id);
ism_message (xim, ism->name, buf);
/* Send the object ref to the GUI. */
sprintf (buf, "cache %s %d %d", mp->ref, fr->frameno, mp->id);
wcspix_message (xim, buf);
if (wcspix_debug) printf ("connectCB: '%s'\n", buf);
}
}
}
/* WCSPIX_DISCONNECT -- Called to shut down the WCSPIX ISM. Send a "quit"
* command to the module and notify the GUI.
*/
void
wcspix_disconnect (xim, ism)
register XimDataPtr xim;
register IsmModule ism;
{
MappingPtr mp;
FrameBufPtr fr;
register int i, j;
char buf[SZ_LINE];
if (wcspix_debug) printf ("DisconnectCB for '%s' ....\n", ism->name);
/* Uncache all the mapped images in the GUI. */
for (j=0; j < xim->nframes; j++) {
fr = &xim->frames[j];
for (i=0; i < fr->nmaps; i++) {
mp = &fr->mapping[i];
sprintf (buf, "uncache %d", mp->id);
wcspix_message (xim, buf);
}
}
/* If we got here from a GUI command send a quit command to the
* ISM, if the ISM shut down itself it will already be disconnected
* so check to see if we're still alive.
*/
if (ism->connected)
ism_message (xim, ism->name, "quit");
/* Notify the GUI that we're done. */
wcspix_message (xim, "shutdown");
}
/* WCSPIX_COMMAND -- Handle all WCSPIX ISM specific commands.
*
* set wcspix_cmd <path>
* pixtab_size <size>
*
*/
void
wcspix_command (xim, ism, argc, argv)
register XimDataPtr xim;
register IsmModule ism;
int argc;
char **argv;
{
register int i;
char cmd[SZ_FNAME];
if (wcspix_debug) printf ("CommandCB....\n");
for (i=0; i < argc; i = i + 1) {
printf ("ism_cmd: %d '%s'\n", i, argv[i]);
}
}
/* WCSPIX_MESSAGE -- Send a message to the user interface ism_msg callback,
* but format it so it's delivered to the WCSPIX callback procedures.
*/
void
wcspix_message (xim, message)
register XimDataPtr xim;
char *message;
{
char msgbuf[SZ_MSGBUF];
sprintf (msgbuf, "setValue { deliver wcspix { %s } }", message);
ObmDeliverMsg (xim->obm, "ism_msg", msgbuf);
}
|
