+
−/*
+
− * This module implements the optional "behind the scenes" invokation
+
− * of rvinterf from client programs.
+
− */
+
−
+
−#include <sys/types.h>
+
−#include <sys/socket.h>
+
−#include <stdio.h>
+
−#include <stdlib.h>
+
−#include <unistd.h>
+
−#include "exitcodes.h"
+
−
+
−static char rvinterf_pathname[] = "/opt/freecalypso/bin/rvinterf";
+
−
+
−extern int sock;
+
−
+
−char *rvinterf_ttyport, *rvinterf_Bopt, *rvinterf_lopt, *rvinterf_wopt;
+
−
+
−launch_rvinterf(do_delay)
+
−{
+
−	int sp[2], rc;
+
−	char *rvif_argv[11], Sarg[16], **ap;
+
−
+
−	rc = socketpair(AF_UNIX, SOCK_STREAM, 0, sp);
+
−	if (rc < 0) {
+
−		perror("socketpair");
+
−		exit(ERROR_UNIX);
+
−	}
+
−	sock = sp[0];
+
−	sprintf(Sarg, "-S%d", sp[1]);
+
−	ap = rvif_argv;
+
−	*ap++ = "rvinterf";
+
−	*ap++ = Sarg;
+
−	*ap++ = "-n";
+
−	if (rvinterf_Bopt) {
+
−		*ap++ = "-B";
+
−		*ap++ = rvinterf_Bopt;
+
−	}
+
−	if (rvinterf_lopt) {
+
−		*ap++ = "-l";
+
−		*ap++ = rvinterf_lopt;
+
−	}
+
−	if (rvinterf_wopt) {
+
−		*ap++ = "-w";
+
−		*ap++ = rvinterf_wopt;
+
−	}
+
−	*ap++ = rvinterf_ttyport;
+
−	*ap = 0;
+
−	rc = vfork();
+
−	if (rc < 0) {
+
−		perror("vfork for launching rvinterf");
+
−		exit(ERROR_UNIX);
+
−	}
+
−	if (!rc) {
+
−		/* we are in the child - do the exec */
+
−		close(sp[0]);
+
−		execv(rvinterf_pathname, rvif_argv);
+
−		perror(rvinterf_pathname);
+
−		_exit(1);
+
−	}
+
−	close(sp[1]);
+
−	if (do_delay)
+
−		usleep(30000);
+
−	return 0;
+
−}