Retro68/gcc/libgfortran/io/unix.h

193 lines
4.9 KiB
C
Raw Normal View History

2018-12-28 15:30:48 +00:00
/* Copyright (C) 2009-2018 Free Software Foundation, Inc.
2012-03-27 23:13:14 +00:00
Contributed by Janne Blomqvist
This file is part of the GNU Fortran runtime library (libgfortran).
Libgfortran is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
Libgfortran is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#ifndef GFOR_UNIX_H
#define GFOR_UNIX_H
#include "io.h"
2014-09-21 17:33:12 +00:00
struct stream_vtable
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
ssize_t (* const read) (struct stream *, void *, ssize_t);
ssize_t (* const write) (struct stream *, const void *, ssize_t);
gfc_offset (* const seek) (struct stream *, gfc_offset, int);
gfc_offset (* const tell) (struct stream *);
gfc_offset (* const size) (struct stream *);
2012-03-27 23:13:14 +00:00
/* Avoid keyword truncate due to AIX namespace collision. */
2014-09-21 17:33:12 +00:00
int (* const trunc) (struct stream *, gfc_offset);
int (* const flush) (struct stream *);
int (* const close) (struct stream *);
2015-08-28 15:33:40 +00:00
int (* const markeor) (struct stream *);
2012-03-27 23:13:14 +00:00
};
2014-09-21 17:33:12 +00:00
struct stream
{
const struct stream_vtable *vptr;
};
2012-03-27 23:13:14 +00:00
/* Inline functions for doing file I/O given a stream. */
static inline ssize_t
sread (stream *s, void *buf, ssize_t nbyte)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->read (s, buf, nbyte);
2012-03-27 23:13:14 +00:00
}
static inline ssize_t
swrite (stream *s, const void *buf, ssize_t nbyte)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->write (s, buf, nbyte);
2012-03-27 23:13:14 +00:00
}
static inline gfc_offset
sseek (stream *s, gfc_offset offset, int whence)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->seek (s, offset, whence);
2012-03-27 23:13:14 +00:00
}
static inline gfc_offset
stell (stream *s)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->tell (s);
2012-03-27 23:13:14 +00:00
}
static inline gfc_offset
ssize (stream *s)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->size (s);
2012-03-27 23:13:14 +00:00
}
static inline int
struncate (stream *s, gfc_offset length)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->trunc (s, length);
2012-03-27 23:13:14 +00:00
}
static inline int
sflush (stream *s)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->flush (s);
2012-03-27 23:13:14 +00:00
}
static inline int
sclose (stream *s)
2012-03-27 23:13:14 +00:00
{
2014-09-21 17:33:12 +00:00
return s->vptr->close (s);
2012-03-27 23:13:14 +00:00
}
2015-08-28 15:33:40 +00:00
static inline int
smarkeor (stream *s)
2015-08-28 15:33:40 +00:00
{
return s->vptr->markeor (s);
}
2012-03-27 23:13:14 +00:00
extern int compare_files (stream *, stream *);
internal_proto(compare_files);
extern stream *open_external (st_parameter_open *, unit_flags *);
internal_proto(open_external);
2018-12-28 15:30:48 +00:00
extern stream *open_internal (char *, size_t, gfc_offset);
2012-03-27 23:13:14 +00:00
internal_proto(open_internal);
2018-12-28 15:30:48 +00:00
extern stream *open_internal4 (char *, size_t, gfc_offset);
2012-03-27 23:13:14 +00:00
internal_proto(open_internal4);
2018-12-28 15:30:48 +00:00
extern char *mem_alloc_w (stream *, size_t *);
2012-03-27 23:13:14 +00:00
internal_proto(mem_alloc_w);
2018-12-28 15:30:48 +00:00
extern char *mem_alloc_r (stream *, size_t *);
2012-03-27 23:13:14 +00:00
internal_proto(mem_alloc_r);
2018-12-28 15:30:48 +00:00
extern gfc_char4_t *mem_alloc_w4 (stream *, size_t *);
2012-03-27 23:13:14 +00:00
internal_proto(mem_alloc_w4);
2018-12-28 15:30:48 +00:00
extern char *mem_alloc_r4 (stream *, size_t *);
2012-03-27 23:13:14 +00:00
internal_proto(mem_alloc_r4);
extern stream *input_stream (void);
internal_proto(input_stream);
extern stream *output_stream (void);
internal_proto(output_stream);
extern stream *error_stream (void);
internal_proto(error_stream);
extern int compare_file_filename (gfc_unit *, const char *, int);
internal_proto(compare_file_filename);
extern gfc_unit *find_file (const char *file, gfc_charlen_type file_len);
internal_proto(find_file);
extern int close_share (gfc_unit *);
internal_proto(close_share);
2012-03-27 23:13:14 +00:00
extern int file_exists (const char *file, gfc_charlen_type file_len);
internal_proto(file_exists);
extern GFC_IO_INT file_size (const char *file, gfc_charlen_type file_len);
internal_proto(file_size);
extern const char *inquire_sequential (const char *, int);
internal_proto(inquire_sequential);
extern const char *inquire_direct (const char *, int);
internal_proto(inquire_direct);
extern const char *inquire_formatted (const char *, int);
internal_proto(inquire_formatted);
extern const char *inquire_unformatted (const char *, int);
internal_proto(inquire_unformatted);
extern const char *inquire_read (const char *, int);
internal_proto(inquire_read);
extern const char *inquire_write (const char *, int);
internal_proto(inquire_write);
extern const char *inquire_readwrite (const char *, int);
internal_proto(inquire_readwrite);
extern void flush_if_preconnected (stream *);
internal_proto(flush_if_preconnected);
extern int stream_isatty (stream *);
internal_proto(stream_isatty);
#ifndef TTY_NAME_MAX
#ifdef _POSIX_TTY_NAME_MAX
#define TTY_NAME_MAX _POSIX_TTY_NAME_MAX
#else
/* sysconf(_SC_TTY_NAME_MAX) = 32 which should be enough. */
#define TTY_NAME_MAX 32
#endif
#endif
extern int stream_ttyname (stream *, char *, size_t);
internal_proto(stream_ttyname);
#endif