|
|
1.1 ! root 1: /* ! 2: * Copyright (c) 1980 Regents of the University of California. ! 3: * All rights reserved. The Berkeley software License Agreement ! 4: * specifies the terms and conditions for redistribution. ! 5: * ! 6: * @(#)f_errno.h 5.2 (Berkeley) 7/30/85 ! 7: */ ! 8: ! 9: /* ! 10: * f77 I/O error definitions ! 11: */ ! 12: ! 13: #include <errno.h> ! 14: ! 15: extern int errno; ! 16: extern int f_nerr; ! 17: ! 18: #define F_ER 100 /* base offset of f77 error numbers */ ! 19: ! 20: #define F_ERFMT 100 /* error in format */ ! 21: #define F_ERUNIT 101 /* illegal unit number */ ! 22: #define F_ERNOFIO 102 /* formatted i/o not allowed */ ! 23: #define F_ERNOUIO 103 /* unformatted i/o not allowed */ ! 24: #define F_ERNODIO 104 /* direct i/o not allowed */ ! 25: #define F_ERNOSIO 105 /* sequential i/o not allowed */ ! 26: #define F_ERNOBKSP 106 /* can't backspace file */ ! 27: #define F_ERBREC 107 /* off beginning of record */ ! 28: #define F_ERSTAT 108 /* can't stat file */ ! 29: #define F_ERREPT 109 /* no * after repeat count */ ! 30: #define F_EREREC 110 /* off end of record */ ! 31: #define F_ERTRUNC 111 /* truncation failed */ ! 32: #define F_ERLIO 112 /* incomprehensible list input */ ! 33: #define F_ERSPACE 113 /* out of free space */ ! 34: #define F_ERNOPEN 114 /* unit not connected */ ! 35: #define F_ERRICHR 115 /* invalid data for integer format term */ ! 36: #define F_ERLOGIF 116 /* invalid data for logical format term */ ! 37: #define F_ERNEWF 117 /* 'new' file exists */ ! 38: #define F_EROLDF 118 /* can't find 'old' file */ ! 39: #define F_ERSYS 119 /* opening too many files or unknown system error */ ! 40: #define F_ERSEEK 120 /* requires seek ability */ ! 41: #define F_ERARG 121 /* illegal argument */ ! 42: #define F_ERNREP 122 /* negative repeat count */ ! 43: #define F_ERILLOP 123 /* illegal operation for channel or device */ ! 44: #define F_ERRFCHR 124 /* invalid data for d,e,f, or g format term */ ! 45: #define F_ERNMLIST 125 /* illegal input for namelist */ ! 46: ! 47: #define F_MAXERR (f_nerr + F_ER)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.