fcons.c
上传用户:xiejiait
上传日期:2007-01-06
资源大小:881k
文件大小:2k
源码类别:

SCSI/ASPI

开发平台:

MultiPlatform

  1. /* @(#)fcons.c 2.7 98/02/15 Copyright 1986, 1995 J. Schilling */
  2. /*
  3.  * Copyright (c) 1986, 1995  J. Schilling
  4.  */
  5. /*
  6.  * This program is free software; you can redistribute it and/or modify
  7.  * it under the terms of the GNU General Public License as published by
  8.  * the Free Software Foundation; either version 2, or (at your option)
  9.  * any later version.
  10.  *
  11.  * This program is distributed in the hope that it will be useful,
  12.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.  * GNU General Public License for more details.
  15.  *
  16.  * You should have received a copy of the GNU General Public License
  17.  * along with this program; see the file COPYING.  If not, write to
  18.  * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  */
  20. #include <stdio.h>
  21. #include "io.h"
  22. LOCAL char *fmtab[] = {
  23. "", /* 0 FI_NONE */
  24. "r", /* 1 FI_READ */
  25. "w", /* 2 FI_WRITE **1) */
  26. "r+", /* 3 FI_READ  | FI_WRITE */
  27. "b", /* 4 FI_NONE  | FI_BINARY */
  28. "rb", /* 5 FI_READ  | FI_BINARY */
  29. "wb", /* 6 FI_WRITE | FI_BINARY **1) */
  30. "r+b", /* 7 FI_READ  | FI_WRITE | FI_BINARY */
  31. };
  32. /*
  33.  * NOTES:
  34.  * 1) fdopen() guarantees not to create/trunc files in this case
  35.  *
  36.  * "w" will create/trunc files with fopen()
  37.  * "a" will create files with fopen()
  38.  */
  39. FILE *_fcons(fd, f, flag)
  40. register FILE *fd;
  41.  int f;
  42.  int flag;
  43. {
  44. int my_gflag = _io_glflag;
  45. if (fd == (FILE *)NULL)
  46. fd = fdopen(f, fmtab[flag&(FI_READ|FI_WRITE|FI_BINARY)]);
  47. if (fd != (FILE *)NULL) {
  48. if (flag & FI_APPEND) {
  49. (void) fseek(fd, 0L, 2);
  50. }
  51. if (flag & FI_UNBUF) {
  52. setbuf(fd, NULL);
  53. my_gflag |= _IOUNBUF;
  54. }
  55. set_my_flag(fd, my_gflag); /* must clear it if fd is reused */
  56. return (fd);
  57. }
  58. if (flag & FI_CLOSE)
  59. close (f);
  60. return ((FILE *) NULL);
  61. }