module std::io; import std::mem; import libc; errtype IoError { FILE_NOT_FOUND } /* extern File *stdin @cname(__stdinp); extern File *stdout @cname(__stdoutp); extern File *stderr @cname(__stderrp); */ /* extern func int fputc(int, aliased void*); extern func void clearerr(aliased void*); extern func int fclose(aliased void*); extern func int feof(aliased void*); extern func int ferror(aliased void*); extern func int fflush(aliased FILE *); extern func int fgetc(aliased FILE *); extern func int fgetpos(FILE *, fpos_t *); extern func int fseek(void*, long, int); extern func void* fopen(char *, char *); */ struct File { void *file; } extern func int _puts(char* message) @extname("puts"); extern func int printf(char* message, ...); extern func int _putchar(char c) @extname("putchar"); extern File *__stdinp; func int putchar(char c) @inline { return _putchar(c); } func int print(char *message) { char* pointer = message; while (*pointer != '\0') { if (!putchar(*pointer)) return 0; pointer++; } return 1; } func int println(char *message = "") @inline { return _puts(message); } func 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 } error FileError { ulong errno; } func FileError errorFromErrno() { return FileError { }; } public func void! File.seek(File *file, long offset, Seek seekMode = Seek.SET) { if (fseek(file->file, offset, (int)(seekMode))) return errorFromErrno()!; } public func void! File.putChar(File *file as char c) { if (fputc(c, file->file)) return errorFromErrno()!; } pubic func void! File.clearerr(File *file) @inline { clearerr(file->file); } func void File.close(File *file) @inline { if (fclose(file->file)) return errorFromErrno()!; } func void File.eof(File *file) @inline { int err = feof(file->file); } func 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 */ #define FOPEN_MAX 20 /* must be <= OPEN_MAX */ #define FILENAME_MAX 1024 /* must be <= PATH_MAX */ /* 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 __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 __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 #endif /* _USE_EXTENDED_LOCALES_ */ #if defined (__GNUC__) && _FORTIFY_SOURCE > 0 && !defined (__cplusplus) /* Security checking functions. */ #include #endif #endif /* _STDIO_H_ */ */