OSDN Git Service

* libI77/fio.h (FSEEK): Enforce type of second parameter to be
[pf3gnuchains/gcc-fork.git] / libf2c / libI77 / fio.h
1 #include <sys/types.h>
2 #include <stdio.h>
3 #include <errno.h>
4 #ifndef NULL
5 /* ANSI C */
6 #include <stddef.h>
7 #endif
8 #ifdef STDC_HEADERS
9 #include <string.h>
10 #endif
11
12 #ifndef SEEK_SET
13 #define SEEK_SET 0
14 #define SEEK_CUR 1
15 #define SEEK_END 2
16 #endif
17
18 /* Only use fseeko/ftello if they are both there.  */
19
20 #if defined (HAVE_FSEEKO) && defined (HAVE_FTELLO)
21 /* The cast helps in any case where the fseeko() prototype is somehow missing
22    (perhaps because _POSIX_SOURCE is defined and the system headers try
23    to keep a clean namespace in that case) even though the autoconf test
24    found the non-standard function via its trivial link test.  */
25 #define FSEEK(a,b,c) fseeko(a, (off_t) b, c)
26 #define FTELL ftello
27 #else
28 #define FSEEK fseek
29 #define FTELL ftell
30 #endif
31
32 #if defined (MSDOS) && !defined (GO32)
33 #ifndef NON_UNIX_STDIO
34 #define NON_UNIX_STDIO
35 #endif
36 #endif
37
38 #ifdef UIOLEN_int
39 typedef int uiolen;
40 #else
41 typedef long uiolen;
42 #endif
43
44 /*units*/
45 typedef struct
46 {       FILE *ufd;      /*0=unconnected*/
47         char *ufnm;
48 #if !(defined (MSDOS) && !defined (GO32))
49         long uinode;
50         int udev;
51 #endif
52         int url;        /*0=sequential*/
53         flag useek;     /*true=can backspace, use dir, ...*/
54         flag ufmt;
55         flag urw;       /* (1 for can read) | (2 for can write) */
56         flag ublnk;
57         flag uend;
58         flag uwrt;      /*last io was write*/
59         flag uscrtch;
60 } unit;
61
62 extern int f__init;
63 extern cilist *f__elist;        /*active external io list*/
64 extern flag f__reading,f__external,f__sequential,f__formatted;
65 #undef Void
66 #ifdef KR_headers
67 #define Void /*void*/
68 extern int (*f__getn)();        /* for formatted input */
69 extern void (*f__putn)();       /* for formatted output */
70 extern void x_putc();
71 extern long f__inode();
72 extern VOID sig_die();
73 extern int (*f__donewrec)(), t_putc(), x_wSL();
74 extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf();
75 #else
76 #define Void void
77 #ifdef __cplusplus
78 extern "C" {
79 #endif
80 extern int (*f__getn)(void);    /* for formatted input */
81 extern void (*f__putn)(int);    /* for formatted output */
82 extern void x_putc(int);
83 extern long f__inode(char*,int*);
84 extern void sig_die(char*,int);
85 extern void f__fatal(int,char*);
86 extern int t_runc(alist*);
87 extern int f__nowreading(unit*), f__nowwriting(unit*);
88 extern int fk_open(int,int,ftnint);
89 extern int en_fio(void);
90 extern void f_init(void);
91 extern int (*f__donewrec)(void), t_putc(int), x_wSL(void);
92 extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*);
93 extern int c_sfe(cilist*), z_rnew(void);
94 extern int isatty(int);
95 extern int err__fl(int,int,char*);
96 extern int xrd_SL(void);
97 extern int f__putbuf(int);
98 #ifdef __cplusplus
99         }
100 #endif
101 #endif
102 extern int (*f__doend)(Void);
103 extern FILE *f__cf;     /*current file*/
104 extern unit *f__curunit;        /*current unit*/
105 extern unit f__units[];
106 #define err(f,m,s) do {if(f) {f__init &= ~2; errno= m;} else f__fatal(m,s); return(m);} while(0)
107 #define errfl(f,m,s) do {return err__fl((int)f,m,s);} while(0)
108
109 /*Table sizes*/
110 #define MXUNIT 100
111
112 extern int f__recpos;   /*position in current record*/
113 extern int f__cursor;   /* offset to move to */
114 extern int f__hiwater;  /* so TL doesn't confuse us */
115
116 #define WRITE   1
117 #define READ    2
118 #define SEQ     3
119 #define DIR     4
120 #define FMT     5
121 #define UNF     6
122 #define EXT     7
123 #define INT     8
124
125 #define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ)