int
main(void)
{
sock = connect_to_local_server(SessionServer, InterpWindow, Forever);
bsdSignal(SIGINT, inter_handler,RestartSystemCalls);
remote_stdio(sock);
return(0);
}
int
main (void)
{
graphStruct *aGraph;
int keepLooking,code;
bsdSignal(SIGPIPE,brokenPipe,DontRestartSystemCalls);
#if defined(BSDplatform) || defined (MACOSXplatform)
bsdSignal(SIGCHLD,endChild,RestartSystemCalls);
#else
bsdSignal(SIGCLD,endChild,RestartSystemCalls);
#endif
bsdSignal(SIGTERM,goodbye,DontRestartSystemCalls);
/* Connect up to FriCAS server */
spadSock = connect_to_local_server(SpadServer,ViewportServer,Forever);
if (spadSock == NULL) {
fprintf(stderr,"The viewport manager couldn't connect to FriCAS\n");
exit(-1);
}
#ifdef DEBUG
else
fprintf(stderr,"viewman: Connected to FriCAS\n");
#endif
/******** initialize ********/
viewports = 0;
graphList = 0;
/******** getting stuff from spad and viewports ********
********* the viewports have priority over ****
*** FriCAS. ***/
while (1) {
FD_ZERO(&filedes); /* zero out file descriptor */
FD_SET(spadSock->socket,&filedes);
slot = viewports;
while (slot) {
FD_SET(slot->viewIn,&filedes);
slot = slot->nextViewport;
}
#ifdef DEBUG
fprintf(stderr,"Selection for filedes of %x \n",filedes);
#endif
code = check(superSelect(FD_SETSIZE,(void *) &filedes,0,0,0));
for (;code<=0;)
code = check(superSelect(FD_SETSIZE,(void *)&filedes,0,0,0));
slot = viewports;
keepLooking = 1;
while (keepLooking && slot) {
if (FD_ISSET(slot->viewIn,&filedes)) {
keepLooking = 0;
#ifdef DEBUG
fprintf(stderr,"Reading child viewport...\n");
#endif
viewCommand = viewportClosing;
readViewport(slot,&viewCommand,intSize);
switch (viewCommand) {
case pick2D:
#ifdef DEBUG
fprintf(stderr,"viewman: Doing 2D pick\n");
#endif
picked = yes;
readViewport(slot,¤tGraph,intSize); /* get the graph to pick */
readViewport(slot,¤tGraphState,sizeof(graphStateStruct));
break;
case drop2D:
#ifdef DEBUG
fprintf(stderr,"viewman: Doing 2D drop\n");
#endif
if (picked) {
write(slot->viewOut,&viewOkay,intSize);
write(slot->viewOut,¤tGraph,intSize);
sendGraphToView2D(0,currentGraph,slot,¤tGraphState);
} else {
write(slot->viewOut,&viewError,intSize);
fprintf(stderr,"The viewport manager cannot drop a graph because nothing has been picked yet.\n");
}
break;
case viewportClosing:
#ifdef DEBUG
fprintf(stderr,"viewman: closing viewport\n");
#endif
closeChildViewport(slot);
break;
}; /* switch */
}; /* if reading slot->viewIn */
stepSlot = slot;
slot = slot->nextViewport;
}; /* while */
if (keepLooking) { /* if 1 => slots not read, read from spad */
#ifdef DEBUG
fprintf(stderr,"viewman: still looking\n");
#endif
viewType = get_int(spadSock);
if (viewType == -1) goodbye(-1);
viewCommand = get_int(spadSock);
switch (viewType) {
case view3DType:
#ifdef DEBUG
fprintf(stderr,"viewman: making 3D viewport\n");
#endif
if (viewCommand == makeViewport)
forkView3D(view3DType);
else
funView3D(viewCommand);
break;
case viewTubeType:
#ifdef DEBUG
fprintf(stderr,"viewman: viewing a tube\n");
#endif
if (viewCommand == makeViewport)
forkView3D(viewTubeType);
else
funView3D(viewCommand);
break;
case viewGraphType:
#ifdef DEBUG
fprintf(stderr,"viewman: making a graph\n");
#endif
if (viewCommand == makeGraph) {
aGraph = makeGraphFromSpadData();
aGraph->nextGraph = graphList;
graphList = aGraph;
}
break;
case view2DType:
#ifdef DEBUG
fprintf(stderr,"viewman: forking 2D\n");
#endif
if (viewCommand == makeViewport) {
forkView2D();
} else {
funView2D(viewCommand);
}
break;
} /* switch on viewType */
} /* if (keepLooking) */
} /* while (1) */
}
static void
make_server_connections(void)
{
int i, wait_time;
/*
* Try to open the menuserver socket, if I can not, then set a flag
*/
if (open_server(MenuServerName) == -2) {
fprintf(stderr, "(HyperDoc) Warning: Not connected to FriCAS Server!\n");
MenuServerOpened = 0;
} else {
atexit(&clean_socket);
MenuServerOpened = 1;
}
/*
* If I have opened the MenuServer socket, then I should also try to open
* the SpadServer socket, so I can send stuff right to SPAD.
*/
if (MenuServerOpened) {
/*
* If I am a ht server, then I should not continue on unless I
* establish some sort of connection
*/
/*
* Modified on 11/20 so that it prints an error message every ten for
* ten tries at opeing the socket. If it fails all ten times, it
* gives up and exits.
*/
if (!is_fricas_server)
wait_time = 2;
else
wait_time = 1000;
for (i = 0, spad_socket = NULL; i < 2 && spad_socket == NULL; i++) {
spad_socket = connect_to_local_server(SpadServer,
MenuServer, wait_time);
if (is_fricas_server && spad_socket == NULL)
fprintf(stderr, "(HyperDoc) Error opening FriCAS server. Retrying ...\n");
else
i = 11;
}
if (! spad_socket) {
fprintf(stderr, "(HyperDoc) Couldn't connect to FriCAS server!\n");
if (!is_fricas_server)
MenuServerOpened = 0;
else {
fprintf(stderr, "(HyperDoc) Couldn't connect to FriCAS server!\n");
exit(-1);
}
}
else {
/*
* Do the same thing for the SessionServer
*/
for (i = 0, session_server = NULL; i < 2 && session_server == NULL
; i++) {
session_server =
connect_to_local_server(SessionServer, MenuServer,
wait_time);
if (is_fricas_server && session_server == NULL) {
fprintf(stderr,
"(HyperDoc) Error opening SessionServer, Retrying ...\n");
}
else
i = 11;
}
if (session_server == NULL) {
fprintf(stderr, "(HyperDoc) Connection attempt to session manager timed out.\n");
if (is_fricas_server) {
fprintf(stderr,
"(HyperDoc) Server unable to connect to session server\n");
exit(-1);
}
else {
MenuServerOpened = 0;
}
}
}
}
}
