librols/stdio/file_raise.c

   1 /*
   2  * This file has been modified for the cdrkit suite.
   3  *
   4  * The behaviour and appearence of the program code below can differ to a major
   5  * extent from the version distributed by the original author(s).
   6  *
   7  * For details, see Changelog file distributed with the cdrkit package. If you
   8  * received this file from another source then ask the distributing person for
   9  * a log of modifications.
  10  *
  11  */
  12
  13 /* @(#)file_raise.c     1.8 04/08/08 Copyright 1986, 1995-2003 J. Schilling */
  14 /*
  15  *      Copyright (c) 1986, 1995-2003 J. Schilling
  16  */
  17 /*
  18  * This program is free software; you can redistribute it and/or modify
  19  * it under the terms of the GNU General Public License version 2
  20  * as published by the Free Software Foundation.
  21  *
  22  * This program is distributed in the hope that it will be useful,
  23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25  * GNU General Public License for more details.
  26  *
  27  * You should have received a copy of the GNU General Public License along with
  28  * this program; see the file COPYING.  If not, write to the Free Software
  29  * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  30  */
  31
  32 #include "schilyio.h"
  33
  34 EXPORT void
  35 file_raise(f, flg)
  36         register FILE *f;
  37         int flg;
  38 {
  39         int     oflag;
  40 extern  int     _io_glflag;
  41
  42         if (f == (FILE *)NULL) {
  43                 if (flg)
  44                         _io_glflag &= ~_IONORAISE;
  45                 else
  46                         _io_glflag |= _IONORAISE;
  47                 return;
  48         }
  49         down(f);
  50
  51         oflag = my_flag(f);
  52
  53         if (flg)
  54                 oflag &= ~_IONORAISE;
  55         else
  56                 oflag |= _IONORAISE;
  57
  58         set_my_flag(f, oflag);
  59 }