mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
507 lines
16 KiB
C
507 lines
16 KiB
C
// Copyright (c) 2021 Christoffer Lerno. All rights reserved.
|
|
// Use of this source code is governed by the MIT license
|
|
// a copy of which can be found in the LICENSE_STDLIB file.
|
|
module std::io;
|
|
import std::mem;
|
|
import libc;
|
|
|
|
|
|
|
|
struct File
|
|
{
|
|
void *file;
|
|
}
|
|
|
|
extern fn int _puts(char* message) @extname("puts");
|
|
extern fn int printf(char* message, ...);
|
|
extern fn int _putchar(char c) @extname("putchar");
|
|
|
|
extern File *__stdinp;
|
|
|
|
fn int putchar(char c) @inline
|
|
{
|
|
return _putchar(c);
|
|
}
|
|
|
|
fn int print(char *message)
|
|
{
|
|
char* pointer = message;
|
|
while (*pointer != '\0')
|
|
{
|
|
if (!putchar(*pointer)) return 0;
|
|
pointer++;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
fn int println(char *message = "") @inline
|
|
{
|
|
return _puts(message);
|
|
}
|
|
|
|
fn void! File.open(File* file, char[] filename, char[] mode)
|
|
{
|
|
char* filename_copy = mem::talloc(filename.len + 1)!!;
|
|
|
|
char* mode_copy = mem::talloc(mode.len + 1)!!;
|
|
|
|
mem::copy(filename_copy, (char*)(filename), filename.len);
|
|
mem::copy(mode_copy, (char*)(mode), mode.len);
|
|
filename_copy[filename.len] = 0;
|
|
mode_copy[filename.len] = 0;
|
|
file.file = libc::fopen(filename_copy, mode_copy);
|
|
if (!file.file) return IoError.FILE_NOT_FOUND!;
|
|
}
|
|
|
|
enum Seek
|
|
{
|
|
SET = 0,
|
|
CURSOR = 1,
|
|
END = 2
|
|
}
|
|
|
|
optenum IoError
|
|
{
|
|
FILE_NOT_FOUND,
|
|
FILE_NOT_SEEKABLE,
|
|
FILE_NOT_VALID,
|
|
FILE_INVALID_POSITION,
|
|
FILE_OVERFLOW,
|
|
FILE_IS_PIPE,
|
|
FILE_EOF,
|
|
FILE_INCOMPLETE_WRITE,
|
|
INTERRUPTED,
|
|
UNKNOWN_ERROR,
|
|
}
|
|
|
|
/**
|
|
* @require file.file != null
|
|
**/
|
|
fn void! File.seek(File *file, long offset, Seek seekMode = Seek.SET)
|
|
{
|
|
if (libc::fseek(file.file, (SeekIndex)(offset), (int)(seekMode)))
|
|
{
|
|
switch (libc::errno())
|
|
{
|
|
case EBADF: return IoError.FILE_NOT_SEEKABLE!;
|
|
case EINVAL: return IoError.FILE_INVALID_POSITION!;
|
|
case EOVERFLOW: return IoError.FILE_OVERFLOW!;
|
|
case ESPIPE: return IoError.FILE_IS_PIPE!;
|
|
default: return IoError.UNKNOWN_ERROR!;
|
|
}
|
|
}
|
|
}
|
|
|
|
/**
|
|
* @require file && file.file != null
|
|
*/
|
|
fn void! File.putc(File *file, char c)
|
|
{
|
|
if (!libc::fputc(c, file.file)) return IoError.FILE_EOF!;
|
|
}
|
|
|
|
/**
|
|
* @require file != null
|
|
*/
|
|
fn void! File.close(File *file) @inline
|
|
{
|
|
if (file.file && libc::fclose(file.file))
|
|
{
|
|
switch (libc::errno())
|
|
{
|
|
case ECONNRESET:
|
|
case EBADF: return IoError.FILE_NOT_VALID!;
|
|
case EINTR: return IoError.INTERRUPTED!;
|
|
case EDQUOT:
|
|
case EFAULT:
|
|
case EAGAIN:
|
|
case EFBIG:
|
|
case ENETDOWN:
|
|
case ENETUNREACH:
|
|
case ENOSPC:
|
|
case EIO: return IoError.FILE_INCOMPLETE_WRITE!;
|
|
default: return IoError.UNKNOWN_ERROR!;
|
|
}
|
|
}
|
|
file.file = null;
|
|
}
|
|
|
|
/**
|
|
* @require file && file.file
|
|
*/
|
|
fn bool File.eof(File* file) @inline
|
|
{
|
|
return libc::feof(file.file) != 0;
|
|
}
|
|
|
|
/**
|
|
* @require file && file.file
|
|
*/
|
|
fn usize File.read(File* file, void* buffer, usize items, usize element_size = 1)
|
|
{
|
|
return libc::fread(buffer, element_size, items, file.file);
|
|
}
|
|
|
|
/**
|
|
* @require file && file.file
|
|
*/
|
|
fn usize File.write(File* file, void* buffer, usize items, usize element_size = 1)
|
|
{
|
|
return libc::fwrite(buffer, element_size, items, file.file);
|
|
}
|
|
|
|
/**
|
|
* @require file && file.file
|
|
*/
|
|
fn usize! File.println(File* file, char[] string)
|
|
{
|
|
usize len = string.len;
|
|
if (len != libc::fwrite(string.ptr, 1, len, file.file)) return IoError.UNKNOWN_ERROR!;
|
|
if (!libc::putc('\n', file.file)) return IoError.UNKNOWN_ERROR!;
|
|
return len + 1;
|
|
}
|
|
|
|
/*
|
|
|
|
|
|
error FileError
|
|
{
|
|
ulong errno;
|
|
}
|
|
|
|
fn FileError errorFromErrno()
|
|
{
|
|
return FileError { };
|
|
}
|
|
|
|
|
|
|
|
|
|
pubic fn void! File.clearerr(File *file) @inline
|
|
{
|
|
clearerr(file->file);
|
|
}
|
|
|
|
|
|
|
|
fn void File.error(File *file) @inline
|
|
{
|
|
int err = ferror
|
|
}
|
|
*/
|
|
/*
|
|
|
|
#define __SLBF 0x0001 /* line buffered */
|
|
#define __SNBF 0x0002 /* unbuffered */
|
|
#define __SRD 0x0004 /* OK to read */
|
|
#define __SWR 0x0008 /* OK to write */
|
|
/* RD and WR are never simultaneously asserted */
|
|
#define __SRW 0x0010 /* open for reading & writing */
|
|
#define __SEOF 0x0020 /* found EOF */
|
|
#define __SERR 0x0040 /* found error */
|
|
#define __SMBF 0x0080 /* _buf is from malloc */
|
|
#define __SAPP 0x0100 /* fdopen()ed in append mode */
|
|
#define __SSTR 0x0200 /* this is an sprintf/snprintf string */
|
|
#define __SOPT 0x0400 /* do fseek() optimisation */
|
|
#define __SNPT 0x0800 /* do not do fseek() optimisation */
|
|
#define __SOFF 0x1000 /* set iff _offset is in fact correct */
|
|
#define __SMOD 0x2000 /* true => fgetln modified _p text */
|
|
#define __SALC 0x4000 /* allocate string space dynamically */
|
|
#define __SIGN 0x8000 /* ignore this file in _fwalk */
|
|
|
|
/*
|
|
* The following three definitions are for ANSI C, which took them
|
|
* from System V, which brilliantly took internal interface macros and
|
|
* made them official arguments to setvbuf(), without renaming them.
|
|
* Hence, these ugly _IOxxx names are *supposed* to appear in user code.
|
|
*
|
|
* Although numbered as their counterparts above, the implementation
|
|
* does not rely on this.
|
|
*/
|
|
#define _IOFBF 0 /* setvbuf should set fully buffered */
|
|
#define _IOLBF 1 /* setvbuf should set line buffered */
|
|
#define _IONBF 2 /* setvbuf should set unbuffered */
|
|
|
|
#define BUFSIZ 1024 /* size of buffer used by setbuf */
|
|
#define EOF (-1)
|
|
|
|
/* must be == _POSIX_STREAM_MAX <limits.h> */
|
|
#define FOPEN_MAX 20 /* must be <= OPEN_MAX <sys/syslimits.h> */
|
|
#define FILENAME_MAX 1024 /* must be <= PATH_MAX <sys/syslimits.h> */
|
|
|
|
/* System V/ANSI C; this is the wrong way to do this, do *not* use these. */
|
|
#ifndef _ANSI_SOURCE
|
|
#define P_tmpdir "/var/tmp/"
|
|
#endif
|
|
#define L_tmpnam 1024 /* XXX must be == PATH_MAX */
|
|
#define TMP_MAX 308915776
|
|
|
|
|
|
#define stdin __stdinp
|
|
#define stdout __stdoutp
|
|
#define stderr __stderrp
|
|
|
|
|
|
/* ANSI-C */
|
|
|
|
__BEGIN_DECLS
|
|
char *fgets(char * __restrict, int, FILE *);
|
|
#if defined(_DARWIN_UNLIMITED_STREAMS) || defined(_DARWIN_C_SOURCE)
|
|
#else /* !_DARWIN_UNLIMITED_STREAMS && !_DARWIN_C_SOURCE */
|
|
FILE *fopen(const char * __restrict __filename, const char * __restrict __mode) __DARWIN_ALIAS_STARTING(__MAC_10_6, __IPHONE_2_0, __DARWIN_ALIAS(fopen));
|
|
#endif /* (DARWIN_UNLIMITED_STREAMS || _DARWIN_C_SOURCE) */
|
|
int fprintf(FILE * __restrict, const char * __restrict, ...) __printflike(2, 3);
|
|
int fputs(const char * __restrict, FILE * __restrict) __DARWIN_ALIAS(fputs);
|
|
size_t fread(void * __restrict __ptr, size_t __size, size_t __nitems, FILE * __restrict __stream);
|
|
FILE *freopen(const char * __restrict, const char * __restrict,
|
|
FILE * __restrict) __DARWIN_ALIAS(freopen);
|
|
int fscanf(FILE * __restrict, const char * __restrict, ...) __scanflike(2, 3);
|
|
int fsetpos(FILE *, const fpos_t *);
|
|
long ftell(FILE *);
|
|
size_t fwrite(const void * __restrict __ptr, size_t __size, size_t __nitems, FILE * __restrict __stream) __DARWIN_ALIAS(fwrite);
|
|
int getc(FILE *);
|
|
int getchar(void);
|
|
char *gets(char *);
|
|
void perror(const char *) __cold;
|
|
int printf(const char * __restrict, ...) __printflike(1, 2);
|
|
int putc(int, FILE *);
|
|
int putchar(int);
|
|
int puts(const char *);
|
|
int remove(const char *);
|
|
int rename (const char *__old, const char *__new);
|
|
void rewind(FILE *);
|
|
int scanf(const char * __restrict, ...) __scanflike(1, 2);
|
|
void setbuf(FILE * __restrict, char * __restrict);
|
|
int setvbuf(FILE * __restrict, char * __restrict, int, size_t);
|
|
int sprintf(char * __restrict, const char * __restrict, ...) __printflike(2, 3) __swift_unavailable("Use snprintf instead.");
|
|
int sscanf(const char * __restrict, const char * __restrict, ...) __scanflike(2, 3);
|
|
FILE *tmpfile(void);
|
|
|
|
__swift_unavailable("Use mkstemp(3) instead.")
|
|
#if !defined(_POSIX_C_SOURCE)
|
|
__deprecated_msg("This function is provided for compatibility reasons only. Due to security concerns inherent in the design of tmpnam(3), it is highly recommended that you use mkstemp(3) instead.")
|
|
#endif
|
|
char *tmpnam(char *);
|
|
int ungetc(int, FILE *);
|
|
int vfprintf(FILE * __restrict, const char * __restrict, va_list) __printflike(2, 0);
|
|
int vprintf(const char * __restrict, va_list) __printflike(1, 0);
|
|
int vsprintf(char * __restrict, const char * __restrict, va_list) __printflike(2, 0) __swift_unavailable("Use vsnprintf instead.");
|
|
__END_DECLS
|
|
|
|
|
|
|
|
/* Additional functionality provided by:
|
|
* POSIX.1-1988
|
|
*/
|
|
|
|
#if __DARWIN_C_LEVEL >= 198808L
|
|
#define L_ctermid 1024 /* size for ctermid(); PATH_MAX */
|
|
|
|
__BEGIN_DECLS
|
|
#include <_ctermid.h>
|
|
|
|
#if defined(_DARWIN_UNLIMITED_STREAMS) || defined(_DARWIN_C_SOURCE)
|
|
FILE *fdopen(int, const char *) __DARWIN_ALIAS_STARTING(__MAC_10_6, __IPHONE_3_2, __DARWIN_EXTSN(fdopen));
|
|
#else /* !_DARWIN_UNLIMITED_STREAMS && !_DARWIN_C_SOURCE */
|
|
FILE *fdopen(int, const char *) __DARWIN_ALIAS_STARTING(__MAC_10_6, __IPHONE_2_0, __DARWIN_ALIAS(fdopen));
|
|
#endif /* (DARWIN_UNLIMITED_STREAMS || _DARWIN_C_SOURCE) */
|
|
int fileno(FILE *);
|
|
__END_DECLS
|
|
#endif /* __DARWIN_C_LEVEL >= 198808L */
|
|
|
|
|
|
/* Additional functionality provided by:
|
|
* POSIX.2-1992 C Language Binding Option
|
|
*/
|
|
#if TARGET_OS_EMBEDDED
|
|
#define __swift_unavailable_on(osx_msg, ios_msg) __swift_unavailable(ios_msg)
|
|
#else
|
|
#define __swift_unavailable_on(osx_msg, ios_msg) __swift_unavailable(osx_msg)
|
|
#endif
|
|
|
|
#if __DARWIN_C_LEVEL >= 199209L
|
|
__BEGIN_DECLS
|
|
int pclose(FILE *) __swift_unavailable_on("Use posix_spawn APIs or NSTask instead.", "Process spawning is unavailable.");
|
|
#if defined(_DARWIN_UNLIMITED_STREAMS) || defined(_DARWIN_C_SOURCE)
|
|
FILE *popen(const char *, const char *) __DARWIN_ALIAS_STARTING(__MAC_10_6, __IPHONE_3_2, __DARWIN_EXTSN(popen)) __swift_unavailable_on("Use posix_spawn APIs or NSTask instead.", "Process spawning is unavailable.");
|
|
#else /* !_DARWIN_UNLIMITED_STREAMS && !_DARWIN_C_SOURCE */
|
|
FILE *popen(const char *, const char *) __DARWIN_ALIAS_STARTING(__MAC_10_6, __IPHONE_2_0, __DARWIN_ALIAS(popen)) __swift_unavailable_on("Use posix_spawn APIs or NSTask instead.", "Process spawning is unavailable.");
|
|
#endif /* (DARWIN_UNLIMITED_STREAMS || _DARWIN_C_SOURCE) */
|
|
__END_DECLS
|
|
#endif /* __DARWIN_C_LEVEL >= 199209L */
|
|
|
|
#undef __swift_unavailable_on
|
|
|
|
/* Additional functionality provided by:
|
|
* POSIX.1c-1995,
|
|
* POSIX.1i-1995,
|
|
* and the omnibus ISO/IEC 9945-1: 1996
|
|
*/
|
|
|
|
#if __DARWIN_C_LEVEL >= 199506L
|
|
|
|
/* Functions internal to the implementation. */
|
|
__BEGIN_DECLS
|
|
int __srget(FILE *);
|
|
int __svfscanf(FILE *, const char *, va_list) __scanflike(2, 0);
|
|
int __swbuf(int, FILE *);
|
|
__END_DECLS
|
|
|
|
/*
|
|
* The __sfoo macros are here so that we can
|
|
* define function versions in the C library.
|
|
*/
|
|
#define __sgetc(p) (--(p)->_r < 0 ? __srget(p) : (int)(*(p)->_p++))
|
|
#if defined(__GNUC__) && defined(__STDC__)
|
|
__header_always_inline int __sputc(int _c, FILE *_p) {
|
|
if (--_p->_w >= 0 || (_p->_w >= _p->_lbfsize && (char)_c != '\n'))
|
|
return (*_p->_p++ = _c);
|
|
else
|
|
return (__swbuf(_c, _p));
|
|
}
|
|
#else
|
|
/*
|
|
* This has been tuned to generate reasonable code on the vax using pcc.
|
|
*/
|
|
#define __sputc(c, p) \
|
|
(--(p)->_w < 0 ? \
|
|
(p)->_w >= (p)->_lbfsize ? \
|
|
(*(p)->_p = (c)), *(p)->_p != '\n' ? \
|
|
(int)*(p)->_p++ : \
|
|
__swbuf('\n', p) : \
|
|
__swbuf((int)(c), p) : \
|
|
(*(p)->_p = (c), (int)*(p)->_p++))
|
|
#endif
|
|
|
|
#define __sfeof(p) (((p)->_flags & __SEOF) != 0)
|
|
#define __sferror(p) (((p)->_flags & __SERR) != 0)
|
|
#define __sclearerr(p) ((void)((p)->_flags &= ~(__SERR|__SEOF)))
|
|
#define __sfileno(p) ((p)->_file)
|
|
|
|
__BEGIN_DECLS
|
|
void flockfile(FILE *);
|
|
int ftrylockfile(FILE *);
|
|
void funlockfile(FILE *);
|
|
int getc_unlocked(FILE *);
|
|
int getchar_unlocked(void);
|
|
int putc_unlocked(int, FILE *);
|
|
int putchar_unlocked(int);
|
|
|
|
/* Removed in Issue 6 */
|
|
#if !defined(_POSIX_C_SOURCE) || _POSIX_C_SOURCE < 200112L
|
|
int getw(FILE *);
|
|
int putw(int, FILE *);
|
|
#endif
|
|
|
|
__swift_unavailable("Use mkstemp(3) instead.")
|
|
#if !defined(_POSIX_C_SOURCE)
|
|
__deprecated_msg("This function is provided for compatibility reasons only. Due to security concerns inherent in the design of tempnam(3), it is highly recommended that you use mkstemp(3) instead.")
|
|
#endif
|
|
char *tempnam(const char *__dir, const char *__prefix) __DARWIN_ALIAS(tempnam);
|
|
__END_DECLS
|
|
|
|
#ifndef lint
|
|
#define getc_unlocked(fp) __sgetc(fp)
|
|
#define putc_unlocked(x, fp) __sputc(x, fp)
|
|
#endif /* lint */
|
|
|
|
#define getchar_unlocked() getc_unlocked(stdin)
|
|
#define putchar_unlocked(x) putc_unlocked(x, stdout)
|
|
#endif /* __DARWIN_C_LEVEL >= 199506L */
|
|
|
|
|
|
|
|
/* Additional functionality provided by:
|
|
* POSIX.1-2001
|
|
* ISO C99
|
|
*/
|
|
|
|
#if __DARWIN_C_LEVEL >= 200112L
|
|
#include <sys/_types/_off_t.h>
|
|
|
|
__BEGIN_DECLS
|
|
int fseeko(FILE * __stream, off_t __offset, int __whence);
|
|
off_t ftello(FILE * __stream);
|
|
__END_DECLS
|
|
#endif /* __DARWIN_C_LEVEL >= 200112L */
|
|
|
|
#if __DARWIN_C_LEVEL >= 200112L || defined(_C99_SOURCE) || defined(__cplusplus)
|
|
__BEGIN_DECLS
|
|
int snprintf(char * __restrict __str, size_t __size, const char * __restrict __format, ...) __printflike(3, 4);
|
|
int vfscanf(FILE * __restrict __stream, const char * __restrict __format, va_list) __scanflike(2, 0);
|
|
int vscanf(const char * __restrict __format, va_list) __scanflike(1, 0);
|
|
int vsnprintf(char * __restrict __str, size_t __size, const char * __restrict __format, va_list) __printflike(3, 0);
|
|
int vsscanf(const char * __restrict __str, const char * __restrict __format, va_list) __scanflike(2, 0);
|
|
__END_DECLS
|
|
#endif /* __DARWIN_C_LEVEL >= 200112L || defined(_C99_SOURCE) || defined(__cplusplus) */
|
|
|
|
|
|
|
|
/* Additional functionality provided by:
|
|
* POSIX.1-2008
|
|
*/
|
|
|
|
#if __DARWIN_C_LEVEL >= 200809L
|
|
#include <sys/_types/_ssize_t.h>
|
|
|
|
__BEGIN_DECLS
|
|
int dprintf(int, const char * __restrict, ...) __printflike(2, 3) __OSX_AVAILABLE_STARTING(__MAC_10_7, __IPHONE_4_3);
|
|
int vdprintf(int, const char * __restrict, va_list) __printflike(2, 0) __OSX_AVAILABLE_STARTING(__MAC_10_7, __IPHONE_4_3);
|
|
ssize_t getdelim(char ** __restrict __linep, size_t * __restrict __linecapp, int __delimiter, FILE * __restrict __stream) __OSX_AVAILABLE_STARTING(__MAC_10_7, __IPHONE_4_3);
|
|
ssize_t getline(char ** __restrict __linep, size_t * __restrict __linecapp, FILE * __restrict __stream) __OSX_AVAILABLE_STARTING(__MAC_10_7, __IPHONE_4_3);
|
|
FILE *fmemopen(void * __restrict __buf, size_t __size, const char * __restrict __mode) __API_AVAILABLE(macos(10.13), ios(11.0), tvos(11.0), watchos(4.0));
|
|
FILE *open_memstream(char **__bufp, size_t *__sizep) __API_AVAILABLE(macos(10.13), ios(11.0), tvos(11.0), watchos(4.0));
|
|
__END_DECLS
|
|
#endif /* __DARWIN_C_LEVEL >= 200809L */
|
|
|
|
|
|
|
|
/* Darwin extensions */
|
|
|
|
#if __DARWIN_C_LEVEL >= __DARWIN_C_FULL
|
|
__BEGIN_DECLS
|
|
extern __const int sys_nerr; /* perror(3) external variables */
|
|
extern __const char *__const sys_errlist[];
|
|
|
|
int asprintf(char ** __restrict, const char * __restrict, ...) __printflike(2, 3);
|
|
char *ctermid_r(char *);
|
|
char *fgetln(FILE *, size_t *);
|
|
__const char *fmtcheck(const char *, const char *);
|
|
int fpurge(FILE *);
|
|
void setbuffer(FILE *, char *, int);
|
|
int setlinebuf(FILE *);
|
|
int vasprintf(char ** __restrict, const char * __restrict, va_list) __printflike(2, 0);
|
|
FILE *zopen(const char *, const char *, int);
|
|
|
|
|
|
/*
|
|
* Stdio function-access interface.
|
|
*/
|
|
FILE *funopen(const void *,
|
|
int (* _Nullable)(void *, char *, int),
|
|
int (* _Nullable)(void *, const char *, int),
|
|
fpos_t (* _Nullable)(void *, fpos_t, int),
|
|
int (* _Nullable)(void *));
|
|
__END_DECLS
|
|
#define fropen(cookie, fn) funopen(cookie, fn, 0, 0, 0)
|
|
#define fwopen(cookie, fn) funopen(cookie, 0, fn, 0, 0)
|
|
|
|
#define feof_unlocked(p) __sfeof(p)
|
|
#define ferror_unlocked(p) __sferror(p)
|
|
#define clearerr_unlocked(p) __sclearerr(p)
|
|
#define fileno_unlocked(p) __sfileno(p)
|
|
|
|
#endif /* __DARWIN_C_LEVEL >= __DARWIN_C_FULL */
|
|
|
|
|
|
#ifdef _USE_EXTENDED_LOCALES_
|
|
#include <xlocale/_stdio.h>
|
|
#endif /* _USE_EXTENDED_LOCALES_ */
|
|
|
|
#if defined (__GNUC__) && _FORTIFY_SOURCE > 0 && !defined (__cplusplus)
|
|
/* Security checking functions. */
|
|
#include <secure/_stdio.h>
|
|
#endif
|
|
|
|
#endif /* _STDIO_H_ */
|
|
*/ |