ES40: C:/es40/listings/sys/gct

00001 /*** MODULE GCT_IO ***/
00002 /******************************************************************************/
00022 /******************************************************************************/
00023 /*
00024 * Author: Fred Kleinsorge
00025 *
00026 *   Modified by:
00027 *
00028 *       X-1     Andy Kuehnel                            13-Nov-1997
00029 *               Add standard header; initial checkin.
00030 */
00031 
00032 #ifndef _GCT_IO_H_
00033 #define _GCT_IO_H_
00034 
00035 #define GCT_FILE char
00036 
00037 extern GCT_FILE  *gct_io$open_file(char *name, char *access);
00038 extern int        gct_io$close_file(GCT_FILE *stream);
00039 extern char      *gct_io$get_string(char *string, int max, GCT_FILE *stream);
00040 extern int        gct_io$put_string(char *string, GCT_FILE *stream);
00041 
00042 #define _GCT_OPEN_FILE(_f,_o) gct_io$open_file(_f, _o);
00043 #define _GCT_GET_STRING(_s,_l,_f) gct_io$get_string(_s, _l, _f);
00044 #define _GCT_PUT_STRING(_s,_f) gct_io$put_string(_s, _f);
00045 #define _GCT_CLOSE_FILE(_s) gct_io$close_file(_s);
00046 
00047 #endif /* _GCT_IO_H_ */
gct_io.h
