c7421e06ca
2010-07-12 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/37077 * io/read.c: Fix comment. * io/io.h (is_char4_unit): New macro. * io/unit.c (get_internal_unit): Call new function open_internal4. * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function. (mem_read4): New function, temporary stub. (mem_write4): New function. (open_internal4): New function to set stream pointers to use the new mem functions. * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal units of kind=4. * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and mem_alloc_r4. * io/write.c (memset4): New helper function. (memcpy4): New helper function. (write_default_char4): Use new helper functions. (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise. (write_integer): Likewise. * io/write_float.def (output_float): Add code blocks to handle internal unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise. From-SVN: r162123
183 lines
4.7 KiB
C
183 lines
4.7 KiB
C
/* Copyright (C) 2009, 2010
|
|
Free Software Foundation, Inc.
|
|
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"
|
|
|
|
|
|
struct stream
|
|
{
|
|
ssize_t (*read) (struct stream *, void *, ssize_t);
|
|
ssize_t (*write) (struct stream *, const void *, ssize_t);
|
|
gfc_offset (*seek) (struct stream *, gfc_offset, int);
|
|
gfc_offset (*tell) (struct stream *);
|
|
/* Avoid keyword truncate due to AIX namespace collision. */
|
|
int (*trunc) (struct stream *, gfc_offset);
|
|
int (*flush) (struct stream *);
|
|
int (*close) (struct stream *);
|
|
};
|
|
|
|
/* Inline functions for doing file I/O given a stream. */
|
|
static inline ssize_t
|
|
sread (stream * s, void * buf, ssize_t nbyte)
|
|
{
|
|
return s->read (s, buf, nbyte);
|
|
}
|
|
|
|
static inline ssize_t
|
|
swrite (stream * s, const void * buf, ssize_t nbyte)
|
|
{
|
|
return s->write (s, buf, nbyte);
|
|
}
|
|
|
|
static inline gfc_offset
|
|
sseek (stream * s, gfc_offset offset, int whence)
|
|
{
|
|
return s->seek (s, offset, whence);
|
|
}
|
|
|
|
static inline gfc_offset
|
|
stell (stream * s)
|
|
{
|
|
return s->tell (s);
|
|
}
|
|
|
|
static inline int
|
|
struncate (stream * s, gfc_offset length)
|
|
{
|
|
return s->trunc (s, length);
|
|
}
|
|
|
|
static inline int
|
|
sflush (stream * s)
|
|
{
|
|
return s->flush (s);
|
|
}
|
|
|
|
static inline int
|
|
sclose (stream * s)
|
|
{
|
|
return s->close (s);
|
|
}
|
|
|
|
|
|
extern int compare_files (stream *, stream *);
|
|
internal_proto(compare_files);
|
|
|
|
extern stream *open_external (st_parameter_open *, unit_flags *);
|
|
internal_proto(open_external);
|
|
|
|
extern stream *open_internal (char *, int, gfc_offset);
|
|
internal_proto(open_internal);
|
|
|
|
extern stream *open_internal4 (char *, int, gfc_offset);
|
|
internal_proto(open_internal4);
|
|
|
|
extern char * mem_alloc_w (stream *, int *);
|
|
internal_proto(mem_alloc_w);
|
|
|
|
extern char * mem_alloc_r (stream *, int *);
|
|
internal_proto(mem_alloc_r);
|
|
|
|
extern char * mem_alloc_w4 (stream *, int *);
|
|
internal_proto(mem_alloc_w4);
|
|
|
|
extern char * mem_alloc_r4 (stream *, int *);
|
|
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 delete_file (gfc_unit *);
|
|
internal_proto(delete_file);
|
|
|
|
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 gfc_offset file_length (stream *);
|
|
internal_proto(file_length);
|
|
|
|
extern int is_seekable (stream *);
|
|
internal_proto(is_seekable);
|
|
|
|
extern int is_special (stream *);
|
|
internal_proto(is_special);
|
|
|
|
extern void flush_if_preconnected (stream *);
|
|
internal_proto(flush_if_preconnected);
|
|
|
|
extern void empty_internal_buffer(stream *);
|
|
internal_proto(empty_internal_buffer);
|
|
|
|
extern int stream_isatty (stream *);
|
|
internal_proto(stream_isatty);
|
|
|
|
extern char * stream_ttyname (stream *);
|
|
internal_proto(stream_ttyname);
|
|
|
|
extern int unpack_filename (char *, const char *, int);
|
|
internal_proto(unpack_filename);
|
|
|
|
|
|
#endif
|