Forgot files from r153825
From-SVN: r153827
This commit is contained in:
Janne Blomqvist
parent
92cbdb6845
commit
a2f560d05c
81
libgfortran/io/fbuf.h
Normal file
81
libgfortran/io/fbuf.h
Normal file
@ -0,0 +1,81 @@
|
|||||||
|
/* Copyright (C) 2009
|
||||||
|
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/>. */
|
||||||
|
|
||||||
|
#include "io.h"
|
||||||
|
|
||||||
|
#ifndef GFOR_FBUF_H
|
||||||
|
#define GFOR_FBUF_H
|
||||||
|
|
||||||
|
|
||||||
|
/* Formatting buffer. This is a temporary scratch buffer used by
|
||||||
|
formatted read and writes. After every formatted I/O statement,
|
||||||
|
this buffer is flushed. This buffer is needed since not all devices
|
||||||
|
are seekable, and T or TL edit descriptors require moving backwards
|
||||||
|
in the record. However, advance='no' complicates the situation, so
|
||||||
|
the buffer must only be partially flushed from the end of the last
|
||||||
|
flush until the current position in the record. */
|
||||||
|
|
||||||
|
struct fbuf
|
||||||
|
{
|
||||||
|
char *buf; /* Start of buffer. */
|
||||||
|
int len; /* Length of buffer. */
|
||||||
|
int act; /* Active bytes in buffer. */
|
||||||
|
int pos; /* Current position in buffer. */
|
||||||
|
};
|
||||||
|
|
||||||
|
extern void fbuf_init (gfc_unit *, int);
|
||||||
|
internal_proto(fbuf_init);
|
||||||
|
|
||||||
|
extern void fbuf_destroy (gfc_unit *);
|
||||||
|
internal_proto(fbuf_destroy);
|
||||||
|
|
||||||
|
extern int fbuf_reset (gfc_unit *);
|
||||||
|
internal_proto(fbuf_reset);
|
||||||
|
|
||||||
|
extern char * fbuf_alloc (gfc_unit *, int);
|
||||||
|
internal_proto(fbuf_alloc);
|
||||||
|
|
||||||
|
extern int fbuf_flush (gfc_unit *, unit_mode);
|
||||||
|
internal_proto(fbuf_flush);
|
||||||
|
|
||||||
|
extern int fbuf_seek (gfc_unit *, int, int);
|
||||||
|
internal_proto(fbuf_seek);
|
||||||
|
|
||||||
|
extern char * fbuf_read (gfc_unit *, int *);
|
||||||
|
internal_proto(fbuf_read);
|
||||||
|
|
||||||
|
/* Never call this function, only use fbuf_getc(). */
|
||||||
|
extern int fbuf_getc_refill (gfc_unit *);
|
||||||
|
internal_proto(fbuf_getc_refill);
|
||||||
|
|
||||||
|
static inline int
|
||||||
|
fbuf_getc (gfc_unit * u)
|
||||||
|
{
|
||||||
|
if (u->fbuf->pos < u->fbuf->act)
|
||||||
|
return (unsigned char) u->fbuf->buf[u->fbuf->pos++];
|
||||||
|
return fbuf_getc_refill (u);
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
118
libgfortran/io/format.h
Normal file
118
libgfortran/io/format.h
Normal file
@ -0,0 +1,118 @@
|
|||||||
|
/* Copyright (C) 2009
|
||||||
|
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/>. */
|
||||||
|
|
||||||
|
#include "io.h"
|
||||||
|
|
||||||
|
#ifndef GFOR_FORMAT_H
|
||||||
|
#define GFOR_FORMAT_H
|
||||||
|
|
||||||
|
/* Format tokens. Only about half of these can be stored in the
|
||||||
|
format nodes. */
|
||||||
|
|
||||||
|
typedef enum
|
||||||
|
{
|
||||||
|
FMT_NONE = 0, FMT_UNKNOWN, FMT_SIGNED_INT, FMT_ZERO, FMT_POSINT, FMT_PERIOD,
|
||||||
|
FMT_COMMA, FMT_COLON, FMT_SLASH, FMT_DOLLAR, FMT_T, FMT_TR, FMT_TL,
|
||||||
|
FMT_LPAREN, FMT_RPAREN, FMT_X, FMT_S, FMT_SS, FMT_SP, FMT_STRING,
|
||||||
|
FMT_BADSTRING, FMT_P, FMT_I, FMT_B, FMT_BN, FMT_BZ, FMT_O, FMT_Z, FMT_F,
|
||||||
|
FMT_E, FMT_EN, FMT_ES, FMT_G, FMT_L, FMT_A, FMT_D, FMT_H, FMT_END, FMT_DC,
|
||||||
|
FMT_DP, FMT_STAR, FMT_RC, FMT_RD, FMT_RN, FMT_RP, FMT_RU, FMT_RZ
|
||||||
|
}
|
||||||
|
format_token;
|
||||||
|
|
||||||
|
|
||||||
|
/* Format nodes. A format string is converted into a tree of these
|
||||||
|
structures, which is traversed as part of a data transfer statement. */
|
||||||
|
|
||||||
|
struct fnode
|
||||||
|
{
|
||||||
|
format_token format;
|
||||||
|
int repeat;
|
||||||
|
struct fnode *next;
|
||||||
|
char *source;
|
||||||
|
|
||||||
|
union
|
||||||
|
{
|
||||||
|
struct
|
||||||
|
{
|
||||||
|
int w, d, e;
|
||||||
|
}
|
||||||
|
real;
|
||||||
|
|
||||||
|
struct
|
||||||
|
{
|
||||||
|
int length;
|
||||||
|
char *p;
|
||||||
|
}
|
||||||
|
string;
|
||||||
|
|
||||||
|
struct
|
||||||
|
{
|
||||||
|
int w, m;
|
||||||
|
}
|
||||||
|
integer;
|
||||||
|
|
||||||
|
int w;
|
||||||
|
int k;
|
||||||
|
int r;
|
||||||
|
int n;
|
||||||
|
|
||||||
|
struct fnode *child;
|
||||||
|
}
|
||||||
|
u;
|
||||||
|
|
||||||
|
/* Members for traversing the tree during data transfer. */
|
||||||
|
|
||||||
|
int count;
|
||||||
|
struct fnode *current;
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
extern void parse_format (st_parameter_dt *);
|
||||||
|
internal_proto(parse_format);
|
||||||
|
|
||||||
|
extern const fnode *next_format (st_parameter_dt *);
|
||||||
|
internal_proto(next_format);
|
||||||
|
|
||||||
|
extern void unget_format (st_parameter_dt *, const fnode *);
|
||||||
|
internal_proto(unget_format);
|
||||||
|
|
||||||
|
extern void format_error (st_parameter_dt *, const fnode *, const char *);
|
||||||
|
internal_proto(format_error);
|
||||||
|
|
||||||
|
extern void free_format_data (struct format_data *);
|
||||||
|
internal_proto(free_format_data);
|
||||||
|
|
||||||
|
extern void free_format_hash_table (gfc_unit *);
|
||||||
|
internal_proto(free_format_hash_table);
|
||||||
|
|
||||||
|
extern void init_format_hash (st_parameter_dt *);
|
||||||
|
internal_proto(init_format_hash);
|
||||||
|
|
||||||
|
extern void free_format_hash (st_parameter_dt *);
|
||||||
|
internal_proto(free_format_hash);
|
||||||
|
|
||||||
|
#endif
|
||||||
169
libgfortran/io/unix.h
Normal file
169
libgfortran/io/unix.h
Normal file
@ -0,0 +1,169 @@
|
|||||||
|
/* Copyright (C) 2009
|
||||||
|
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/>. */
|
||||||
|
|
||||||
|
#include "io.h"
|
||||||
|
|
||||||
|
#ifndef GFOR_UNIX_H
|
||||||
|
#define GFOR_UNIX_H
|
||||||
|
|
||||||
|
struct stream
|
||||||
|
{
|
||||||
|
ssize_t (*read) (struct stream *, void *, ssize_t);
|
||||||
|
ssize_t (*write) (struct stream *, const void *, ssize_t);
|
||||||
|
off_t (*seek) (struct stream *, off_t, int);
|
||||||
|
off_t (*tell) (struct stream *);
|
||||||
|
/* Avoid keyword truncate due to AIX namespace collision. */
|
||||||
|
int (*trunc) (struct stream *, off_t);
|
||||||
|
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 off_t
|
||||||
|
sseek (stream * s, off_t offset, int whence)
|
||||||
|
{
|
||||||
|
return s->seek (s, offset, whence);
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline off_t
|
||||||
|
stell (stream * s)
|
||||||
|
{
|
||||||
|
return s->tell (s);
|
||||||
|
}
|
||||||
|
|
||||||
|
static inline int
|
||||||
|
struncate (stream * s, off_t 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 char * mem_alloc_w (stream *, int *);
|
||||||
|
internal_proto(mem_alloc_w);
|
||||||
|
|
||||||
|
extern char * mem_alloc_r (stream *, int *);
|
||||||
|
internal_proto(mem_alloc_w);
|
||||||
|
|
||||||
|
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 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
|
||||||
Loading…
Reference in New Issue
Block a user