mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 20:34:19 +00:00
c66cea0665
Estimated hours taken: 2.5 Branches: main Add MR_ prefixes to uses of configuration macros. Bootcheck now succeeds with MR_NO_CONF_BACKWARDS_COMPAT. Mmake.common.in: Define MR_NO_CONF_BACKWARDS_COMPAT when checking for namespace cleanliness. RESERVED_MACRO_NAMES: Remove the configuration macros. runtime/mercury_conf_bootstrap.h: Remove a duplicate definition of BOXED_FLOAT. configure.in: */*.c: */*.h: */*.m: Add MR_ prefixes.
125 lines
2.4 KiB
C
125 lines
2.4 KiB
C
/*
|
|
** Copyright (C) 2000, 2002 The University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
*/
|
|
|
|
/*
|
|
** This module contains the implementation of Mercury streams using
|
|
** C `FILE *' streams.
|
|
*/
|
|
|
|
#include "mercury_file.h"
|
|
#include "mercury_std.h" /* for MR_assert */
|
|
|
|
#ifdef MR_NATIVE_GC
|
|
static int next_id = 0;
|
|
#endif
|
|
|
|
#ifndef MR_NEW_MERCURYFILE_STRUCT
|
|
void
|
|
MR_mercuryfile_init(FILE *file, int line_number, MercuryFile *mf)
|
|
{
|
|
MR_file(*mf) = file;
|
|
MR_line_number(*mf) = line_number;
|
|
#ifdef MR_NATIVE_GC
|
|
mf->id = ++next_id;
|
|
#endif
|
|
}
|
|
|
|
#else /* MR_NEW_MERCURYFILE_STRUCT */
|
|
|
|
void
|
|
MR_mercuryfile_init(FILE *file, int line_number, MercuryFile *mf)
|
|
{
|
|
mf->stream_type = MR_FILE_STREAM;
|
|
mf->stream_info.file = file;
|
|
mf->line_number = line_number;
|
|
|
|
mf->close = MR_close;
|
|
mf->read = MR_read;
|
|
mf->write = MR_write;
|
|
|
|
mf->flush = MR_flush;
|
|
mf->ungetc = MR_ungetch;
|
|
mf->getc = MR_getch;
|
|
mf->vprintf = MR_vfprintf;
|
|
mf->putc = MR_putch;
|
|
#ifdef MR_NATIVE_GC
|
|
mf->id = ++next_id;
|
|
#endif
|
|
}
|
|
|
|
int
|
|
MR_getch(MR_StreamInfo *info)
|
|
{
|
|
MR_assert(info != NULL);
|
|
return getc(info->file);
|
|
}
|
|
|
|
int
|
|
MR_ungetch(MR_StreamInfo *info, int ch)
|
|
{
|
|
MR_assert(info != NULL);
|
|
return ungetc(ch, info->file);
|
|
}
|
|
|
|
int
|
|
MR_putch(MR_StreamInfo *info, int ch)
|
|
{
|
|
MR_assert(info != NULL);
|
|
return putc(ch, info->file);
|
|
}
|
|
|
|
int
|
|
MR_close(MR_StreamInfo *info)
|
|
{
|
|
MR_assert(info != NULL);
|
|
return fclose(info->file);
|
|
}
|
|
|
|
int
|
|
MR_flush(MR_StreamInfo *info)
|
|
{
|
|
MR_assert(info != NULL);
|
|
return fflush(info->file);
|
|
}
|
|
|
|
int
|
|
MR_vfprintf(MR_StreamInfo *info, const char *format, va_list ap)
|
|
{
|
|
MR_assert(info != NULL);
|
|
MR_assert(format != NULL);
|
|
|
|
return vfprintf(info->file, format, ap);
|
|
}
|
|
|
|
int
|
|
MR_read(MR_StreamInfo *info, void *buffer, size_t size)
|
|
{
|
|
int rc;
|
|
MR_assert(info != NULL);
|
|
rc = fread(buffer, sizeof(unsigned char), size, info->file);
|
|
|
|
/* Handle error/eof special cases */
|
|
if ( (rc < size) && feof(info->file) ) {
|
|
/* nothing to do */;
|
|
} else if ( ferror(info->file) ) {
|
|
rc = -1;
|
|
}
|
|
|
|
return rc;
|
|
}
|
|
|
|
int
|
|
MR_write(MR_StreamInfo *info, const void *buffer, size_t size)
|
|
{
|
|
int rc;
|
|
|
|
MR_assert(info != NULL);
|
|
rc = fwrite(buffer, sizeof(unsigned char), size, info->file);
|
|
|
|
return (rc < size ? -1 : rc);
|
|
}
|
|
#endif /* MR_NEW_MERCURYFILE_STRUCT */
|