17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
57c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
67c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
77c478bd9Sstevel@tonic-gate * with the License.
87c478bd9Sstevel@tonic-gate *
97c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
127c478bd9Sstevel@tonic-gate * and limitations under the License.
137c478bd9Sstevel@tonic-gate *
147c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bd9Sstevel@tonic-gate *
207c478bd9Sstevel@tonic-gate * CDDL HEADER END
217c478bd9Sstevel@tonic-gate */
227c478bd9Sstevel@tonic-gate /*
237c478bd9Sstevel@tonic-gate * Copyright 1994 Sun Microsystems, Inc. All rights reserved.
247c478bd9Sstevel@tonic-gate * Use is subject to license terms.
257c478bd9Sstevel@tonic-gate */
267c478bd9Sstevel@tonic-gate
277c478bd9Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
287c478bd9Sstevel@tonic-gate /* All Rights Reserved */
297c478bd9Sstevel@tonic-gate
307c478bd9Sstevel@tonic-gate
317c478bd9Sstevel@tonic-gate /*
327c478bd9Sstevel@tonic-gate * University Copyright- Copyright (c) 1982, 1986, 1988
337c478bd9Sstevel@tonic-gate * The Regents of the University of California
347c478bd9Sstevel@tonic-gate * All Rights Reserved
357c478bd9Sstevel@tonic-gate *
367c478bd9Sstevel@tonic-gate * University Acknowledgment- Portions of this document are derived from
377c478bd9Sstevel@tonic-gate * software developed by the University of California, Berkeley, and its
387c478bd9Sstevel@tonic-gate * contributors.
397c478bd9Sstevel@tonic-gate */
407c478bd9Sstevel@tonic-gate
417c478bd9Sstevel@tonic-gate #include "rcv.h"
427c478bd9Sstevel@tonic-gate
437c478bd9Sstevel@tonic-gate #undef fopen
447c478bd9Sstevel@tonic-gate #undef fclose
457c478bd9Sstevel@tonic-gate
467c478bd9Sstevel@tonic-gate /*
477c478bd9Sstevel@tonic-gate * mailx -- a modified version of a University of California at Berkeley
487c478bd9Sstevel@tonic-gate * mail program
497c478bd9Sstevel@tonic-gate *
507c478bd9Sstevel@tonic-gate * Local version of fopen() and fclose(). These maintain a list of
517c478bd9Sstevel@tonic-gate * file pointers which can be run down when we need to close
527c478bd9Sstevel@tonic-gate * all files, such as before executing external commands.
537c478bd9Sstevel@tonic-gate */
547c478bd9Sstevel@tonic-gate
557c478bd9Sstevel@tonic-gate static NODE *append();
567c478bd9Sstevel@tonic-gate static NODE *del1();
577c478bd9Sstevel@tonic-gate static NODE *getnode();
587c478bd9Sstevel@tonic-gate static NODE *search();
597c478bd9Sstevel@tonic-gate
607c478bd9Sstevel@tonic-gate static NODE *
getnode(FILE * fp)617c478bd9Sstevel@tonic-gate getnode(FILE *fp)
627c478bd9Sstevel@tonic-gate {
637c478bd9Sstevel@tonic-gate NODE *newnode;
647c478bd9Sstevel@tonic-gate
657c478bd9Sstevel@tonic-gate if ((newnode = (NODE *)malloc(sizeof(NODE))) == (NODE *)NULL) {
667c478bd9Sstevel@tonic-gate (void) fputs("Cannot allocate node space\n", stderr);
677c478bd9Sstevel@tonic-gate exit(3);
687c478bd9Sstevel@tonic-gate }
697c478bd9Sstevel@tonic-gate newnode->fp = fp;
707c478bd9Sstevel@tonic-gate newnode->next = (NODE *)NULL;
717c478bd9Sstevel@tonic-gate return(newnode);
727c478bd9Sstevel@tonic-gate }
737c478bd9Sstevel@tonic-gate
747c478bd9Sstevel@tonic-gate static NODE *
search(FILE * fp)757c478bd9Sstevel@tonic-gate search(FILE *fp)
767c478bd9Sstevel@tonic-gate {
777c478bd9Sstevel@tonic-gate register NODE *tmp;
78*2a8bcb4eSToomas Soome
797c478bd9Sstevel@tonic-gate for (tmp = fplist; tmp != (NODE *)NULL; tmp = tmp->next)
807c478bd9Sstevel@tonic-gate if (tmp->fp == fp)
817c478bd9Sstevel@tonic-gate break;
827c478bd9Sstevel@tonic-gate return( tmp != (NODE *)NULL ? tmp : NOFP);
837c478bd9Sstevel@tonic-gate }
84*2a8bcb4eSToomas Soome
857c478bd9Sstevel@tonic-gate static NODE *
append(FILE * fp)867c478bd9Sstevel@tonic-gate append(FILE *fp)
877c478bd9Sstevel@tonic-gate {
887c478bd9Sstevel@tonic-gate register NODE *newnode;
897c478bd9Sstevel@tonic-gate
907c478bd9Sstevel@tonic-gate if ((newnode = getnode(fp)) == (NODE *)NULL)
917c478bd9Sstevel@tonic-gate return(NOFP);
927c478bd9Sstevel@tonic-gate if (fplist == NOFP) {
937c478bd9Sstevel@tonic-gate fplist = newnode;
947c478bd9Sstevel@tonic-gate } else {
957c478bd9Sstevel@tonic-gate newnode->next = curptr->next;
967c478bd9Sstevel@tonic-gate curptr->next = newnode;
977c478bd9Sstevel@tonic-gate }
987c478bd9Sstevel@tonic-gate return(newnode);
997c478bd9Sstevel@tonic-gate }
1007c478bd9Sstevel@tonic-gate
1017c478bd9Sstevel@tonic-gate static NODE *
del1(NODE * oldcur)1027c478bd9Sstevel@tonic-gate del1(NODE *oldcur)
1037c478bd9Sstevel@tonic-gate {
1047c478bd9Sstevel@tonic-gate register NODE *cur, *prev;
1057c478bd9Sstevel@tonic-gate
1067c478bd9Sstevel@tonic-gate for (prev = cur = fplist; cur != (NODE *)NULL; cur = cur->next) {
1077c478bd9Sstevel@tonic-gate if (cur == oldcur) {
1087c478bd9Sstevel@tonic-gate if (cur == fplist) {
1097c478bd9Sstevel@tonic-gate cur = fplist = cur->next;
1107c478bd9Sstevel@tonic-gate } else {
1117c478bd9Sstevel@tonic-gate prev->next = cur->next;
1127c478bd9Sstevel@tonic-gate cur = prev->next ? prev->next : prev;
1137c478bd9Sstevel@tonic-gate }
1147c478bd9Sstevel@tonic-gate if (curptr == oldcur)
1157c478bd9Sstevel@tonic-gate curptr = prev;
1167c478bd9Sstevel@tonic-gate free(oldcur);
1177c478bd9Sstevel@tonic-gate break;
1187c478bd9Sstevel@tonic-gate }
1197c478bd9Sstevel@tonic-gate prev = cur;
1207c478bd9Sstevel@tonic-gate }
1217c478bd9Sstevel@tonic-gate return(cur);
1227c478bd9Sstevel@tonic-gate }
1237c478bd9Sstevel@tonic-gate
1247c478bd9Sstevel@tonic-gate FILE *
my_fopen(char * file,char * mode)1257c478bd9Sstevel@tonic-gate my_fopen(char *file, char *mode)
1267c478bd9Sstevel@tonic-gate {
1277c478bd9Sstevel@tonic-gate FILE *fp;
1287c478bd9Sstevel@tonic-gate
1297c478bd9Sstevel@tonic-gate if ((fp = fopen(file, mode)) == (FILE *)NULL) {
1307c478bd9Sstevel@tonic-gate fplist = NOFP;
1317c478bd9Sstevel@tonic-gate return(fp);
1327c478bd9Sstevel@tonic-gate } else {
1337c478bd9Sstevel@tonic-gate curptr = append(fp);
1347c478bd9Sstevel@tonic-gate }
1357c478bd9Sstevel@tonic-gate return(fp);
1367c478bd9Sstevel@tonic-gate }
1377c478bd9Sstevel@tonic-gate
1387c478bd9Sstevel@tonic-gate int
my_fclose(register FILE * iop)1397c478bd9Sstevel@tonic-gate my_fclose(register FILE *iop)
1407c478bd9Sstevel@tonic-gate {
1417c478bd9Sstevel@tonic-gate register NODE *cur;
1427c478bd9Sstevel@tonic-gate
1437c478bd9Sstevel@tonic-gate int ret = fclose(iop);
1447c478bd9Sstevel@tonic-gate if (fplist != NOFP) {
1457c478bd9Sstevel@tonic-gate cur = search(iop);
1467c478bd9Sstevel@tonic-gate cur = del1(cur);
1477c478bd9Sstevel@tonic-gate }
1487c478bd9Sstevel@tonic-gate return ret;
1497c478bd9Sstevel@tonic-gate }
150