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
|
/*
* Copyright 2005 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
#include "refer..c"
#include <string.h>
#define move(x, y) close(y); dup(x); close(x);
extern void err();
extern long findline();
extern void huntmain();
extern void restodir();
static int callhunt(char *, char *, char *, int);
static int dodeliv(char *, char *, char *, int);
int
corout(char *in, char *out, char *rprog, char *arg, int outlen)
{
int pipev[2], fr1, fr2, fw1, fw2, n;
#if D1
fprintf(stderr, "in corout, rprog /%s/ in /%s/\n",
rprog ? rprog : "", strlen(in) ? in : "");
#endif
if (strcmp(rprog, "hunt") == 0)
return (callhunt(in, out, arg, outlen));
if (strcmp(rprog, "deliv") == 0)
return (dodeliv(in, out, arg, outlen));
pipe(pipev);
fr1 = pipev[0];
fw1 = pipev[1];
pipe(pipev);
fr2 = pipev[0];
fw2 = pipev[1];
if (fork() == 0) {
close(fw1);
close(fr2);
move(fr1, 0);
move(fw2, 1);
if (rprog[0] != '/')
chdir("/usr/lib/refer");
execl(rprog, "deliv", arg, 0);
err(gettext("Can't run %s"), rprog);
}
close(fw2);
close(fr1);
if (strlen(in) > 0)
write(fw1, in, strlen(in));
close(fw1);
wait(0);
n = read(fr2, out, outlen);
out[n] = 0;
close(fr2);
return (0);
}
#define ALEN 50
static int
callhunt(char *in, char *out, char *arg, int outlen)
{
char *argv[20], abuff[ALEN];
extern int typeindex;
int argc;
extern char one[];
extern int onelen;
argv[0] = "hunt";
argv[1] = "-i";
argv[2] = in;
argv[3] = "-t";
argv[4] = out;
argv[5] = (char *)outlen;
argv[6] = "-T";
argv[7] = "-F1";
argv[8] = "-o";
argv[9] = one;
argv[10] = (char *)onelen;
argv[11] = abuff;
strcpy(abuff, arg);
if (strlen(abuff) > ALEN)
err("abuff not big enough %d", strlen(abuff));
argc = 6;
huntmain(argc, argv);
return (0);
}
static int
dodeliv(char *in, char *out, char *arg, int outlen)
{
char *mout;
int mlen;
#if D1
fprintf(stderr, "in dodeliv, arg /%s/\n", arg?arg:"");
#endif
if (arg && arg[0])
chdir(arg);
mlen = findline(in, &mout, outlen, 0L);
if (mlen > 0) {
strncpy(out, mout, outlen);
free(mout);
}
restodir();
return (0);
}
|