1 /* $MirOS: src/usr.bin/oldroff/hunt/refer3.c,v 1.2 2008/11/08 23:04:31 tg Exp $ */
2
3 /*-
4 * Copyright (c) 1979, 1980, 1981, 1986, 1988, 1990, 1991, 1992
5 * The Regents of the University of California.
6 * Copyright (C) Caldera International Inc. 2001-2002.
7 * Copyright (c) 2003, 2004
8 * Thorsten "mirabilos" Glaser <tg@mirbsd.org>
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms,
12 * with or without modification, are permitted provided
13 * that the following conditions are met:
14 *
15 * Redistributions of source code and documentation must retain
16 * the above copyright notice, this list of conditions and the
17 * following disclaimer. Redistributions in binary form must
18 * reproduce the above copyright notice, this list of conditions
19 * and the following disclaimer in the documentation and/or other
20 * materials provided with the distribution.
21 *
22 * All advertising materials mentioning features or use of this
23 * software must display the following acknowledgement:
24 * This product includes software developed or owned by
25 * Caldera International, Inc.
26 *
27 * Neither the name of Caldera International, Inc. nor the names
28 * of other contributors may be used to endorse or promote products
29 * derived from this software without specific prior written permission.
30 *
31 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
32 * INTERNATIONAL, INC. AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
33 * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
34 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
35 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
36 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
37 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
38 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
39 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
40 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
41 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
42 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
43 */
44
45 #ifndef lint
46 static char sccsid[] = "@(#)refer3.c 4.3 (Berkeley) 4/18/91";
47 #endif /* not lint */
48
49 #include "refer..c"
50 #define move(x, y) close(y); dup(x); close(x);
51
corout(in,out,rprog,arg,outlen)52 corout(in, out, rprog, arg, outlen)
53 char *in, *out, *rprog;
54 {
55 int pipev[2], fr1, fr2, fw1, fw2, n;
56 int status;
57
58 pipe(pipev);
59 fr1 = pipev[0];
60 fw1 = pipev[1];
61 pipe(pipev);
62 fr2 = pipev[0];
63 fw2 = pipev[1];
64 if (fork() == 0)
65 {
66 close(fw1);
67 close(fr2);
68 move(fr1, 0);
69 move(fw2, 1);
70 execl(rprog, "deliv", arg, 0);
71 err("Can't run %s", rprog);
72 }
73 close(fw2);
74 close(fr1);
75 write(fw1, in , strlen(in));
76 close(fw1);
77 wait(&status);
78 n = read(fr2, out, outlen);
79 out[n] = 0;
80 close(fr2);
81 return(n);
82 }
83