* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
* @(#)fiodefs.h 5.2 (Berkeley) %G%
* fortran file i/o type definitions
/* Logical Unit Table Size */
#define GLITCH '\2' /* special quote for Stu, generated in f77pass1 */
typedef struct /*external read, write*/
typedef struct /*internal read, write*/
typedef struct /*rewind, backspace, endfile*/
{ FILE *ufd
; /*0=unconnected*/
int url
; /*0=sequential*/
flag useek
; /*true=can backspace, use dir, ...*/
flag uwrt
; /*last io was write*/
typedef struct /* inquire */
ftnint
*inex
; /*parameters in standard's order*/
#define opneof ioiflg_.if_oeof
#define ccntrl ioiflg_.if_ctrl
#define blzero ioiflg_.if_bzro