1*7c478bd9Sstevel@tonic-gate /*
2*7c478bd9Sstevel@tonic-gate * CDDL HEADER START
3*7c478bd9Sstevel@tonic-gate *
4*7c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*7c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
6*7c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
7*7c478bd9Sstevel@tonic-gate * with the License.
8*7c478bd9Sstevel@tonic-gate *
9*7c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*7c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
11*7c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
12*7c478bd9Sstevel@tonic-gate * and limitations under the License.
13*7c478bd9Sstevel@tonic-gate *
14*7c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
15*7c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*7c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
17*7c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
18*7c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
19*7c478bd9Sstevel@tonic-gate *
20*7c478bd9Sstevel@tonic-gate * CDDL HEADER END
21*7c478bd9Sstevel@tonic-gate */
22*7c478bd9Sstevel@tonic-gate /*
23*7c478bd9Sstevel@tonic-gate * Copyright 1994 Sun Microsystems, Inc. All rights reserved.
24*7c478bd9Sstevel@tonic-gate * Use is subject to license terms.
25*7c478bd9Sstevel@tonic-gate */
26*7c478bd9Sstevel@tonic-gate
27*7c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
28*7c478bd9Sstevel@tonic-gate /* All Rights Reserved */
29*7c478bd9Sstevel@tonic-gate
30*7c478bd9Sstevel@tonic-gate
31*7c478bd9Sstevel@tonic-gate /*
32*7c478bd9Sstevel@tonic-gate * University Copyright- Copyright (c) 1982, 1986, 1988
33*7c478bd9Sstevel@tonic-gate * The Regents of the University of California
34*7c478bd9Sstevel@tonic-gate * All Rights Reserved
35*7c478bd9Sstevel@tonic-gate *
36*7c478bd9Sstevel@tonic-gate * University Acknowledgment- Portions of this document are derived from
37*7c478bd9Sstevel@tonic-gate * software developed by the University of California, Berkeley, and its
38*7c478bd9Sstevel@tonic-gate * contributors.
39*7c478bd9Sstevel@tonic-gate */
40*7c478bd9Sstevel@tonic-gate
41*7c478bd9Sstevel@tonic-gate #include "rcv.h"
42*7c478bd9Sstevel@tonic-gate
43*7c478bd9Sstevel@tonic-gate #undef fopen
44*7c478bd9Sstevel@tonic-gate #undef fclose
45*7c478bd9Sstevel@tonic-gate
46*7c478bd9Sstevel@tonic-gate /*
47*7c478bd9Sstevel@tonic-gate * mailx -- a modified version of a University of California at Berkeley
48*7c478bd9Sstevel@tonic-gate * mail program
49*7c478bd9Sstevel@tonic-gate *
50*7c478bd9Sstevel@tonic-gate * Local version of fopen() and fclose(). These maintain a list of
51*7c478bd9Sstevel@tonic-gate * file pointers which can be run down when we need to close
52*7c478bd9Sstevel@tonic-gate * all files, such as before executing external commands.
53*7c478bd9Sstevel@tonic-gate */
54*7c478bd9Sstevel@tonic-gate
55*7c478bd9Sstevel@tonic-gate static NODE *append();
56*7c478bd9Sstevel@tonic-gate static NODE *del1();
57*7c478bd9Sstevel@tonic-gate static NODE *getnode();
58*7c478bd9Sstevel@tonic-gate static NODE *search();
59*7c478bd9Sstevel@tonic-gate
60*7c478bd9Sstevel@tonic-gate static NODE *
getnode(FILE * fp)61*7c478bd9Sstevel@tonic-gate getnode(FILE *fp)
62*7c478bd9Sstevel@tonic-gate {
63*7c478bd9Sstevel@tonic-gate NODE *newnode;
64*7c478bd9Sstevel@tonic-gate
65*7c478bd9Sstevel@tonic-gate if ((newnode = (NODE *)malloc(sizeof(NODE))) == (NODE *)NULL) {
66*7c478bd9Sstevel@tonic-gate (void) fputs("Cannot allocate node space\n", stderr);
67*7c478bd9Sstevel@tonic-gate exit(3);
68*7c478bd9Sstevel@tonic-gate }
69*7c478bd9Sstevel@tonic-gate newnode->fp = fp;
70*7c478bd9Sstevel@tonic-gate newnode->next = (NODE *)NULL;
71*7c478bd9Sstevel@tonic-gate return(newnode);
72*7c478bd9Sstevel@tonic-gate }
73*7c478bd9Sstevel@tonic-gate
74*7c478bd9Sstevel@tonic-gate static NODE *
search(FILE * fp)75*7c478bd9Sstevel@tonic-gate search(FILE *fp)
76*7c478bd9Sstevel@tonic-gate {
77*7c478bd9Sstevel@tonic-gate register NODE *tmp;
78*7c478bd9Sstevel@tonic-gate
79*7c478bd9Sstevel@tonic-gate for (tmp = fplist; tmp != (NODE *)NULL; tmp = tmp->next)
80*7c478bd9Sstevel@tonic-gate if (tmp->fp == fp)
81*7c478bd9Sstevel@tonic-gate break;
82*7c478bd9Sstevel@tonic-gate return( tmp != (NODE *)NULL ? tmp : NOFP);
83*7c478bd9Sstevel@tonic-gate }
84*7c478bd9Sstevel@tonic-gate
85*7c478bd9Sstevel@tonic-gate static NODE *
append(FILE * fp)86*7c478bd9Sstevel@tonic-gate append(FILE *fp)
87*7c478bd9Sstevel@tonic-gate {
88*7c478bd9Sstevel@tonic-gate register NODE *newnode;
89*7c478bd9Sstevel@tonic-gate
90*7c478bd9Sstevel@tonic-gate if ((newnode = getnode(fp)) == (NODE *)NULL)
91*7c478bd9Sstevel@tonic-gate return(NOFP);
92*7c478bd9Sstevel@tonic-gate if (fplist == NOFP) {
93*7c478bd9Sstevel@tonic-gate fplist = newnode;
94*7c478bd9Sstevel@tonic-gate } else {
95*7c478bd9Sstevel@tonic-gate newnode->next = curptr->next;
96*7c478bd9Sstevel@tonic-gate curptr->next = newnode;
97*7c478bd9Sstevel@tonic-gate }
98*7c478bd9Sstevel@tonic-gate return(newnode);
99*7c478bd9Sstevel@tonic-gate }
100*7c478bd9Sstevel@tonic-gate
101*7c478bd9Sstevel@tonic-gate static NODE *
del1(NODE * oldcur)102*7c478bd9Sstevel@tonic-gate del1(NODE *oldcur)
103*7c478bd9Sstevel@tonic-gate {
104*7c478bd9Sstevel@tonic-gate register NODE *cur, *prev;
105*7c478bd9Sstevel@tonic-gate
106*7c478bd9Sstevel@tonic-gate for (prev = cur = fplist; cur != (NODE *)NULL; cur = cur->next) {
107*7c478bd9Sstevel@tonic-gate if (cur == oldcur) {
108*7c478bd9Sstevel@tonic-gate if (cur == fplist) {
109*7c478bd9Sstevel@tonic-gate cur = fplist = cur->next;
110*7c478bd9Sstevel@tonic-gate } else {
111*7c478bd9Sstevel@tonic-gate prev->next = cur->next;
112*7c478bd9Sstevel@tonic-gate cur = prev->next ? prev->next : prev;
113*7c478bd9Sstevel@tonic-gate }
114*7c478bd9Sstevel@tonic-gate if (curptr == oldcur)
115*7c478bd9Sstevel@tonic-gate curptr = prev;
116*7c478bd9Sstevel@tonic-gate free(oldcur);
117*7c478bd9Sstevel@tonic-gate break;
118*7c478bd9Sstevel@tonic-gate }
119*7c478bd9Sstevel@tonic-gate prev = cur;
120*7c478bd9Sstevel@tonic-gate }
121*7c478bd9Sstevel@tonic-gate return(cur);
122*7c478bd9Sstevel@tonic-gate }
123*7c478bd9Sstevel@tonic-gate
124*7c478bd9Sstevel@tonic-gate FILE *
my_fopen(char * file,char * mode)125*7c478bd9Sstevel@tonic-gate my_fopen(char *file, char *mode)
126*7c478bd9Sstevel@tonic-gate {
127*7c478bd9Sstevel@tonic-gate FILE *fp;
128*7c478bd9Sstevel@tonic-gate
129*7c478bd9Sstevel@tonic-gate if ((fp = fopen(file, mode)) == (FILE *)NULL) {
130*7c478bd9Sstevel@tonic-gate fplist = NOFP;
131*7c478bd9Sstevel@tonic-gate return(fp);
132*7c478bd9Sstevel@tonic-gate } else {
133*7c478bd9Sstevel@tonic-gate curptr = append(fp);
134*7c478bd9Sstevel@tonic-gate }
135*7c478bd9Sstevel@tonic-gate return(fp);
136*7c478bd9Sstevel@tonic-gate }
137*7c478bd9Sstevel@tonic-gate
138*7c478bd9Sstevel@tonic-gate int
my_fclose(register FILE * iop)139*7c478bd9Sstevel@tonic-gate my_fclose(register FILE *iop)
140*7c478bd9Sstevel@tonic-gate {
141*7c478bd9Sstevel@tonic-gate register NODE *cur;
142*7c478bd9Sstevel@tonic-gate
143*7c478bd9Sstevel@tonic-gate int ret = fclose(iop);
144*7c478bd9Sstevel@tonic-gate if (fplist != NOFP) {
145*7c478bd9Sstevel@tonic-gate cur = search(iop);
146*7c478bd9Sstevel@tonic-gate cur = del1(cur);
147*7c478bd9Sstevel@tonic-gate }
148*7c478bd9Sstevel@tonic-gate return ret;
149*7c478bd9Sstevel@tonic-gate }
150