mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
ee9aaa8c1b
Most sane systems use 64-bit offsets with those functions; Windows does not.
runtime/mercury_file.h:
Define macros MR_fseek and MR_ftell that expand to the name of the
fseek or ftell function that uses 64-bit offsets.
runtime/mercury_deep_profiling.c:
library/io.m:
Use the new macros and always use 64-bit offsets.
47 lines
1.4 KiB
C
47 lines
1.4 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2000 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
#ifndef MERCURY_FILE_H
|
|
#define MERCURY_FILE_H
|
|
|
|
#include "mercury_library_types.h"
|
|
|
|
// MR_fseek and MR_ftell expand to the name of the versions of fseek()
|
|
// and ftell() that use 64-bit offsets.
|
|
//
|
|
#if defined(MR_WIN32) && !defined(MR_CYGWIN)
|
|
#if defined(MR_MINGW)
|
|
#define MR_fseek fseeko64
|
|
#define MR_ftell ftello64
|
|
#else
|
|
#define MR_fseek _fseeki64
|
|
#define MR_ftell _ftelli64
|
|
#endif
|
|
#else
|
|
#define MR_fseek fseek
|
|
#define MR_ftell ftell
|
|
#endif
|
|
|
|
// Initialise a MercuryFile structure to use the C stdlib FILE *type.
|
|
|
|
void MR_mercuryfile_init(FILE *file, int line_number, MercuryFile *mf);
|
|
|
|
#ifdef MR_NEW_MERCURYFILE_STRUCT
|
|
#define MR_IS_FILE_STREAM(mf) ( (mf).stream_type == MR_FILE_STREAM )
|
|
|
|
int MR_getch(MR_StreamInfo *info);
|
|
int MR_putch(MR_StreamInfo *info, int);
|
|
int MR_ungetch(MR_StreamInfo *info, int);
|
|
int MR_close(MR_StreamInfo *info);
|
|
int MR_flush(MR_StreamInfo *info);
|
|
int MR_vfprintf(MR_StreamInfo *info, const char *format, va_list ap);
|
|
int MR_read(MR_StreamInfo *info, void *buffer, size_t size);
|
|
int MR_write(MR_StreamInfo *info, const void *buffer, size_t size);
|
|
int MR_ferror(MR_StreamInfo *info);
|
|
#endif
|
|
|
|
#endif // MERCURY_FILE_H
|