OSDN Git Service

PR libfortran/27107
[pf3gnuchains/gcc-fork.git] / libgfortran / io / io.h
index 314fc4c..8d8d592 100644 (file)
@@ -35,8 +35,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <gthr.h>
 
-#define DEFAULT_TEMPDIR "/tmp"
-
 /* Basic types used in data transfers.  */
 
 typedef enum
@@ -205,10 +203,6 @@ typedef enum
 {READING, WRITING}
 unit_mode;
 
-typedef enum
-{ CONVERT_NONE=-1, CONVERT_NATIVE, CONVERT_SWAP, CONVERT_BIG, CONVERT_LITTLE }
-unit_convert;
-
 #define CHARACTER1(name) \
              char * name; \
              gfc_charlen_type name ## _len
@@ -216,42 +210,6 @@ unit_convert;
              gfc_charlen_type name ## _len; \
              char * name
 
-#define IOPARM_LIBRETURN_MASK          (3 << 0)
-#define IOPARM_LIBRETURN_OK            (0 << 0)
-#define IOPARM_LIBRETURN_ERROR         (1 << 0)
-#define IOPARM_LIBRETURN_END           (2 << 0)
-#define IOPARM_LIBRETURN_EOR           (3 << 0)
-#define IOPARM_ERR                     (1 << 2)
-#define IOPARM_END                     (1 << 3)
-#define IOPARM_EOR                     (1 << 4)
-#define IOPARM_HAS_IOSTAT              (1 << 5)
-#define IOPARM_HAS_IOMSG               (1 << 6)
-
-#define IOPARM_COMMON_MASK             ((1 << 7) - 1)
-
-typedef struct st_parameter_common
-{
-  GFC_INTEGER_4 flags;
-  GFC_INTEGER_4 unit;
-  const char *filename;
-  GFC_INTEGER_4 line;
-  CHARACTER2 (iomsg);
-  GFC_INTEGER_4 *iostat;
-}
-st_parameter_common;
-
-#define IOPARM_OPEN_HAS_RECL_IN                (1 << 7)
-#define IOPARM_OPEN_HAS_FILE           (1 << 8)
-#define IOPARM_OPEN_HAS_STATUS         (1 << 9)
-#define IOPARM_OPEN_HAS_ACCESS         (1 << 10)
-#define IOPARM_OPEN_HAS_FORM           (1 << 11)
-#define IOPARM_OPEN_HAS_BLANK          (1 << 12)
-#define IOPARM_OPEN_HAS_POSITION       (1 << 13)
-#define IOPARM_OPEN_HAS_ACTION         (1 << 14)
-#define IOPARM_OPEN_HAS_DELIM          (1 << 15)
-#define IOPARM_OPEN_HAS_PAD            (1 << 16)
-#define IOPARM_OPEN_HAS_CONVERT                (1 << 17)
-
 typedef struct
 {
   st_parameter_common common;
@@ -475,13 +433,6 @@ typedef struct
 unit_flags;
 
 
-/* The default value of record length for preconnected units is defined
-   here. This value can be overriden by an environment variable.
-   Default value is 1 Gb.  */
-
-#define DEFAULT_RECL 1073741824
-
-
 typedef struct gfc_unit
 {
   int unit_number;
@@ -877,10 +828,6 @@ extern void list_formatted_write (st_parameter_dt *, bt, void *, int, size_t,
                                  size_t);
 internal_proto(list_formatted_write);
 
-/* error.c */
-extern notification notification_std(int);
-internal_proto(notification_std);
-
 /* size_from_kind.c */
 extern size_t size_from_real_kind (int);
 internal_proto(size_from_real_kind);
@@ -926,7 +873,3 @@ dec_waiting_unlocked (gfc_unit *u)
 
 #endif
 
-/* ../runtime/environ.c  This is here because we return unit_convert.  */
-
-unit_convert get_unformatted_convert (int);
-internal_proto(get_unformatted_convert);