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