diff --git a/include/math.h b/include/math.h new file mode 100644 index 0000000..6913b5e --- /dev/null +++ b/include/math.h @@ -0,0 +1,52 @@ +/**************************************************************** +* +* math.h - math library +* +* February 1989 +* Mike Westerfield +* +* Copyright 1989, 1992 +* Byte Works, Inc. +* +****************************************************************/ + +#ifndef __math__ +#define __math__ + +#define HUGE_VAL 1e5000 + +#ifndef __KeepNamespacePure__ + #define arctan(x) atan(x) +# define isnan(x) _isnan(x) +# define isinf(x) _isinf(x) +#endif + +#ifdef __GNO__ +int _isnan(extended); +int _isinf(extended); +#endif + +double acos(double); +double asin(double); +double atan(double); +double cos(double); +double cosh(double); +double exp(double); +double log(double); +double log10(double); +double sin(double); +double sinh(double); +double sqrt(double); +double tan(double); +double tanh(double); +double atan2(double, double); +double ceil(double); +double fabs(double); +double floor(double); +double fmod(double, double); +double frexp(double, int *); +double ldexp(double, int); +double modf(double, double *); +double pow(double, double); + +#endif diff --git a/include/sane.h b/include/sane.h new file mode 100644 index 0000000..eebd0d9 --- /dev/null +++ b/include/sane.h @@ -0,0 +1,183 @@ +/* + * File: SANE.h + * + * Declarations, macros and prototypes for + * the SANE glue functions in library + * lsaneglue. + * + * Written in 1997 by Soenke Behrens. + * This code is hereby placed into the Public Domain. + */ + +#ifndef __SANE__ +#define __SANE__ + +#ifndef __TYPES__ +#include +#endif + +/* Decimal representation constants */ +#define SIGDIGLEN 0x001C +#define DECSTROUTLEN 0x0050 + +/* IEEE default environment constant */ +#define IEEEDEFAULTENV 0x0000 + +/* Decimal formatting styles */ +#define FLOATDECIMAL 0x0000 +#define FIXEDDECIMAL 0x0001 + +/* Exceptions */ +#define INVALID 0x0001 +#define UNDERFLOW 0x0002 +#define OVERFLOW 0x0004 +#define DIVBYZERO 0x0008 +#define INEXACT 0x0010 + +/* Ordering relations */ +#define GREATERTHAN 0 +#define LESSTHAN 1 +#define EQUALTO 2 +#define UNORDERED 3 +typedef short relop; + +/* Inquiry classes */ +#define SNAN 0 +#define QNAN 1 +#define INFINITE 2 +#define ZERONUM 3 +#define NORMALNUM 4 +#define DENORMALNUM 5 +typedef short numclass; + +/* Environmental control */ + +/* Rounding directions */ +#define TONEAREST 0 +#define UPWARD 1 +#define DOWNWARD 2 +#define TOWARDZERO 3 +typedef short rounddir; + +/* Rounding precisions */ +#define EXTPRECISION 0 +#define DBLPRECISION 1 +#define FLOATPRECISION 2 +typedef short roundpre; + +/* NAN codes */ +#define NANSQRT 1 /* Invalid square root such as sqrt(-1) */ +#define NANADD 2 /* Invalid addition such as +INF - +INF */ +#define NANDIV 4 /* Invalid division such as 0/0 */ +#define NANMUL 8 /* Invalid multiply such as 0 * INF */ +#define NANREM 9 /* Invalid rem or mod such as x REM 0 */ +#define NANASCBIN 17 /* Conversion of invalid ASCII string */ +#define NANCOMP 20 /* Comp NaN converted to floating */ +#define NANZERO 21 /* Attempt to create a NaN with zero code */ +#define NANTRIG 33 /* Invalid argument to trig routine */ +#define NANINVTRIG 34 /* Invalid arg to inverse trig routine */ +#define NANLOG 36 /* Invalid argument to log routine */ +#define NANPOWER 37 /* Invalid argument to x^i or x^y routine */ +#define NANFINAN 38 /* Invalid argument to financial function */ + +typedef short exception; +typedef short environment; +typedef struct decimal +{ + short sgn; /* sign 0 for +, 1 for - */ + short exp; /* decimal exponent */ + struct + { + unsigned char length, text[SIGDIGLEN], unused; + }sig; /* significant digits */ +} decimal, Decimal; + +typedef struct decform +{ + short style; /* FLOATDECIMAL or FIXEDDECIMAL */ + short digits; +} decform, DecForm; + +typedef void (*haltvector)(void); + +/* SANE types are: + * float -- IEEE single precision + * double -- IEEE double precision + * extended -- IEEE extended precision + * comp -- SANE comp type + * Decimal -- SANE decimal string + * DecForm -- Controls formatting of decimal strings + */ + +/* Function declarations */ + +void s_num2dec(DecForm *, extended, Decimal *); +extended s_dec2num(Decimal *); +void s_str2dec(char *, short *, Decimal *, short *); +void s_dec2str(DecForm *, Decimal *, char *); +extended s_fabs(extended); +extended s_fneg(extended); +extended s_remainder(extended, extended, short *); +extended s_sqrt(extended); +extended s_rint(extended); +extended s_scalb(short, extended); +extended s_logb(extended); +extended s_copysign(extended, extended); +extended s_nextfloat(extended, extended); +extended s_nextdouble(extended, extended); +extended s_nextextended(extended, extended); +extended s_log2(extended); +extended s_log(extended); +extended s_log1(extended); +extended s_exp2(extended); +extended s_exp(extended); +extended s_exp1(extended); +extended s_power(extended, extended); +extended s_ipower(extended, short); +extended s_compound(extended, extended); +extended s_annuity(extended, extended); +extended s_tan(extended); +extended s_sin(extended); +extended s_cos(extended); +extended s_atan(extended); +extended s_randomx(extended *); +numclass s_classfloat(extended); +numclass s_classdouble(extended); +numclass s_classcomp(extended); +numclass s_classextended(extended); +int s_signnum(extended); +void s_setexception(exception, long); +long s_testexception(exception); +void s_sethalt(exception, long); +long s_testhalt(exception); +void s_setround(rounddir); +rounddir s_getround(void); +void s_setprecision(roundpre); +roundpre s_getprecision(void); +void s_setenvironment(environment); +void s_getenvironment(environment *); +void s_procentry(environment *); +void s_procexit(environment); +haltvector s_gethaltvector(void); +void s_sethaltvector(haltvector); +relop s_relation(extended, extended); +extended s_nan(unsigned char); +extended s_inf(void); +extended s_pi(void); + +/* SANE tool calls */ + +extern pascal void SANEBootInit(void) inline(0x010A,dispatcher); +extern pascal void SANEStartUp(Word) inline(0x020A,dispatcher); +extern pascal void SANEShutDown(void) inline(0x030A,dispatcher); +extern pascal Word SANEVersion(void) inline(0x040A,dispatcher); +extern pascal void SANEReset(void) inline(0x050A,dispatcher); +extern pascal Boolean SANEStatus(void) inline(0x060A,dispatcher); +extern pascal void SANEFP816(Word, ...) inline(0x090A,dispatcher); +extern pascal void SANEDecStr816(Word, ...) inline(0x0A0A,dispatcher); +extern pascal void SANEElems816(Word, ...) inline(0x0B0A,dispatcher); + +/* FPCP find routine, not part of SANE tool set, found in lsaneglue */ +int findfpcp(void); /* Returns slot number of FPCP card or -1 if not found */ + +#endif diff --git a/include/stdio.h b/include/stdio.h index b6d3335..23ec116 100644 --- a/include/stdio.h +++ b/include/stdio.h @@ -1,196 +1,284 @@ -/**************************************************************** -* -* stdio.h - input/output facilities -* -* February 1989 -* Mike Westerfield -* -* Copyright 1989, 1993 -* Byte Works, Inc. -* -****************************************************************/ +/*- + * Copyright (c) 1990, 1993 + * The Regents of the University of California. All rights reserved. + * + * This code is derived from software contributed to Berkeley by + * Chris Torek. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * @(#)stdio.h 8.4 (Berkeley) 1/4/94 + */ -#ifndef __stdio__ -#define __stdio__ +#ifndef _STDIO_H_ +#define _STDIO_H_ + +#if !defined(_ANSI_SOURCE) && !defined(__STRICT_ANSI__) +#ifndef _SYS_TYPES_H_ +#include +#endif +#endif #ifndef _SYS_CDEFS_H_ #include #endif -#ifndef _SYS_SYSLIMITS_H_ -#include +#ifndef _MACHINE_ANSI_H_ +#include #endif - -/* - * Misc. - */ - -#ifndef __va_list__ -#define __va_list__ -typedef char *__va_list[2]; -#endif - -#ifndef EOF -#define EOF (-1) +#ifdef _BSD_SIZE_T_ +typedef _BSD_SIZE_T_ size_t; +#undef _BSD_SIZE_T_ #endif #ifndef NULL -#define NULL (void *) 0L -#endif - -#ifndef __size_t__ -#define __size_t__ 1 -typedef unsigned long size_t; -#endif - -/* seek codes */ - -#define SEEK_SET 0 -#define SEEK_CUR 1 -#define SEEK_END 2 - -/* - * Error handling - */ - -#if !defined(__KeepNamespacePure__) && !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE) - extern const int sys_nerr; /* largest index for sys_errlist */ - extern const char * const sys_errlist[]; /* error messages */ +#define NULL 0 #endif /* - * files + * This is fairly grotesque, but pure ANSI code must not inspect the + * innards of an fpos_t anyway. The library internally uses off_t, + * which we assume is exactly as big as eight chars. (When we switch + * to gcc 2.4 we will use __attribute__ here.) + * + * WARNING: the alignment constraints on an off_t and the struct below + * differ on (e.g.) the SPARC. Hence, the placement of an fpos_t object + * in a structure will change if fpos_t's are not aligned on 8-byte + * boundaries. THIS IS A CROCK, but for now there is no way around it. */ - -typedef struct __file { - struct __file *next; /* next file in linked list */ - unsigned char *_ptr, /* next location to write to */ - *_base, /* first byte of the buffer */ - *_end; /* end of the file buffer */ - unsigned long _size, /* size of the file buffer */ - _cnt; /* # chars that can be read/writen to buffer */ -#if defined(__ORCAC_VERSION) && (__ORCAC_VERSION > 210) - int _pbk[2]; /* put back character; changed in v2.1.1b2 */ +#if !defined(_ANSI_SOURCE) && !defined(__STRICT_ANSI__) +typedef off_t fpos_t; +#elif defined(__GNO__) +typedef long fpos_t; /* off_t is only 4 bytes for GNO */ #else - int _pbk; /* put back character */ -#endif - unsigned int _flag, /* buffer flags */ - _file; /* GS/OS file ID */ - } FILE; +#error bad news batman +typedef struct __sfpos { + char _pos[8]; +} fpos_t; +#endif -#define BUFSIZ 1024 /* default buffer size */ -#define _LBUFSIZ 255 /* line buffer size */ +#define _FSTDIO /* Define for new stdio with functions. */ -#define _IOFBF 0x0001 /* full buffering */ -#define _IONBF 0x0002 /* no buffering */ -#define _IOLBF 0x0004 /* flush when a \n is written */ -#define _IOREAD 0x0008 /* currently reading */ -#define _IOWRT 0x0010 /* currently writing */ -#define _IORW 0x0020 /* read/write enabled */ -#define _IOMYBUF 0x0040 /* buffer was allocated by stdio */ -#define _IOEOF 0x0080 /* has an EOF been found? */ -#define _IOERR 0x0100 /* has an error occurred? */ -#define _IOTEXT 0x0200 /* is this file a text file? */ -#define _IOTEMPFILE 0x0400 /* was this file created by tmpfile()? */ +/* + * NB: to fit things in six character monocase externals, the stdio + * code uses the prefix `__s' for stdio objects, typically followed + * by a three-character attempt at a mnemonic. + */ -extern FILE *stderr; /* standard I/O files */ -extern FILE *stdin; -extern FILE *stdout; +/* stdio buffers */ +struct __sbuf { + unsigned char *_base; + long _size; +}; -#define L_tmpnam 26 /* size of a temp name */ -#define TMP_MAX 10000 /* # of unique temp names */ +/* + * stdio state variables. + * + * The following always hold: + * + * if (_flags&(__SLBF|__SWR)) == (__SLBF|__SWR), + * _lbfsize is -_bf._size, else _lbfsize is 0 + * if _flags&__SRD, _w is 0 + * if _flags&__SWR, _r is 0 + * + * This ensures that the getc and putc macros (or inline functions) never + * try to write or read from a file that is in `read' or `write' mode. + * (Moreover, they can, and do, automatically switch from read mode to + * write mode, and back, on "r+" and "w+" files.) + * + * _lbfsize is used only to make the inline line-buffered output stream + * code as compact as possible. + * + * _ub, _up, and _ur are used when ungetc() pushes back more characters + * than fit in the current _bf, or when ungetc() pushes back a character + * that does not match the previous one in _bf. When this happens, + * _ub._base becomes non-nil (i.e., a stream has ungetc() data iff + * _ub._base!=NULL) and _up and _ur save the current values of _p and _r. + * + * NB: see WARNING above before changing the layout of this structure! + */ +typedef struct __sFILE { + unsigned char *_p; /* current position in (some) buffer */ + long _r; /* read space left for getc() */ + long _w; /* write space left for putc() */ + short _flags; /* flags, below; this FILE is free if 0 */ + short _file; /* fileno, if Unix descriptor, else -1 */ + struct __sbuf _bf; /* the buffer (at least 1 byte, if !NULL) */ + long _lbfsize; /* 0 or -_bf._size, for inline putc */ + + /* operations */ + void *_cookie; /* cookie passed to io functions */ + int (*_close) __P((void *)); + ssize_t (*_read) __P((void *, char *, size_t)); + fpos_t (*_seek) __P((void *, fpos_t, int)); + ssize_t (*_write) __P((void *, const char *, size_t)); + + /* separate buffer for long sequences of ungetc() */ + struct __sbuf _ub; /* ungetc buffer */ + unsigned char *_up; /* saved _p when _p is doing ungetc data */ + long _ur; /* saved _r when _r is counting ungetc data */ + + /* tricks to meet minimum requirements even when malloc() fails */ + unsigned char _ubuf[3]; /* guarantee an ungetc() buffer */ + unsigned char _nbuf[1]; /* guarantee a getc() buffer */ + + /* separate buffer for fgetln() when line crosses buffer boundary */ + struct __sbuf _lb; /* buffer for fgetln() */ + + /* Unix stdio files get aligned to block boundaries on fseek() */ + long _blksize; /* stat.st_blksize (may be != _bf._size) */ + fpos_t _offset; /* current lseek offset (see WARNING) */ +} FILE; + +__BEGIN_DECLS +extern FILE __sF[]; +__END_DECLS + +#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 */ #ifdef __GNO__ -#define __max_open OPEN_MAX /* <= OPEN_MAX */ -#else -#define __max_open 32767 /* Orca Shell: no practical limit */ +#define __SBIN 0x4000 /* binary mode? */ #endif -#ifndef __KeepNamespacePure__ - #define SYS_OPEN __max_open /* max # open files */ -#endif -#define FOPEN_MAX __max_open /* max # open files */ -#undef __max_open -#define FILENAME_MAX 1024 /* recommended file name length */ /* - * Other types + * 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 */ -typedef long fpos_t; +#define BUFSIZ 1024 /* size of buffer used by setbuf */ +#define EOF (-1) /* - * Functions declared as macros - */ - -#ifdef __ORCAC_VERSION /* Orca/C v2.1.0 or later */ - -#define setbuf(stream,buf) ((buf==NULL) ? (void) __setvbuf(stream,NULL,_IONBF,0l) : (void) __setvbuf(stream,buf,_IOFBF,(size_t) BUFSIZ)) -#define setlinebuf(stream) (__setvbuf((stream),NULL,_IOLBF,_LBUFSIZ)) -#define rewind(stream) (__fseek((stream),0L,SEEK_SET)) -int __fseek(FILE *, long, int); -int __setvbuf(FILE *, char *, int, size_t); -int getc(FILE *); -int putc(int, FILE *); - -#else /* __ORCAC_VERSION */ - -#define getc(p) (fgetc(p)) -#define putc(x, p) fputc(x, p) -#define setbuf(stream,buf) ((buf==NULL) ? (void) setvbuf(stream,NULL,_IONBF,0l) : (void) setvbuf(stream,buf,_IOFBF,(size_t) BUFSIZ)) -#define setlinebuf(stream) (setvbuf((stream),NULL,_IOLBF,_LBUFSIZ)) -#define rewind(stream) (fseek((stream),0L,SEEK_SET)) - -#endif /* __ORCAC_VERSION */ - -/* - * Function declarations - */ - -void clearerr(FILE *); -int fclose(FILE *); -int feof(FILE *); -int ferror(FILE *); -int fflush(FILE *); -int fgetc(FILE *); -int fgetpos(FILE *, fpos_t *); -char *fgets(char *, int, FILE *); -FILE *fopen(const char *, const char *); -int fprintf(FILE *, const char *, ...); -int fputc(int, FILE *); -int fputs(const char *, FILE *); -size_t fread(void *, size_t, size_t, FILE *); -FILE *freopen(const char *, const char *, FILE *); -int fscanf(FILE *, const char *, ...); -int fseek(FILE *, long, int); -int fsetpos(FILE *, const fpos_t *); -long int ftell(FILE *); -size_t fwrite(const void *, size_t, size_t, FILE *); -int getchar(void); -char *gets(char *); -void perror(const char *); -int printf(const char *, ...); -int putchar(int); -int puts(const char *); -int remove(const char *); -int rename(const char *, const char *); -int scanf(const char *, ...); -int setvbuf(FILE *, char *, int, size_t); -int sprintf(char *, const char *, ...); -int sscanf(const char *, const char *, ...); -FILE *tmpfile(void); -char *tmpnam(char *); -int ungetc(int c, FILE *); -int vfprintf(FILE *, const char *, __va_list); -int vprintf(const char *, __va_list); -int vsprintf(char *, const char *, __va_list); - -/* - * The remaining functions and macros in this file are GNO-specific + * FOPEN_MAX is a minimum maximum, and is the number of streams that + * stdio can provide without attempting to allocate further resources + * (which could fail). Do not use this for anything. */ + /* 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 +#ifdef __GNO__ #define P_tmpdir "/tmp/" +#else +#define P_tmpdir "/var/tmp/" #endif +#endif +#define L_tmpnam 1024 /* XXX must be == PATH_MAX */ +#define TMP_MAX 308915776 + +#ifndef SEEK_SET +#define SEEK_SET 0 /* set file offset to offset */ +#endif +#ifndef SEEK_CUR +#define SEEK_CUR 1 /* set file offset to current plus offset */ +#endif +#ifndef SEEK_END +#define SEEK_END 2 /* set file offset to EOF plus offset */ +#endif + +#define stdin (&__sF[0]) +#define stdout (&__sF[1]) +#define stderr (&__sF[2]) + +/* + * Functions defined in ANSI C standard. + */ +__BEGIN_DECLS +void clearerr __P((FILE *)); +int fclose __P((FILE *)); +int feof __P((FILE *)); +int ferror __P((FILE *)); +int fflush __P((FILE *)); +int fgetc __P((FILE *)); +int fgetpos __P((FILE *, fpos_t *)); +char *fgets __P((char *, size_t, FILE *)); +FILE *fopen __P((const char *, const char *)); +int fprintf __P((FILE *, const char *, ...)); +int fputc __P((int, FILE *)); +int fputs __P((const char *, FILE *)); +size_t fread __P((void *, size_t, size_t, FILE *)); +FILE *freopen __P((const char *, const char *, FILE *)); +int fscanf __P((FILE *, const char *, ...)); +int fseek __P((FILE *, long, int)); +int fsetpos __P((FILE *, const fpos_t *)); +long ftell __P((const FILE *)); +size_t fwrite __P((const void *, size_t, size_t, FILE *)); +int getc __P((FILE *)); +int getchar __P((void)); +char *gets __P((char *)); +#if !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE) +extern __const int sys_nerr; /* perror(3) external variables */ +extern __const char *__const sys_errlist[]; +#endif +void perror __P((const char *)); +int printf __P((const char *, ...)); +int putc __P((int, FILE *)); +int putchar __P((int)); +int puts __P((const char *)); +int remove __P((const char *)); +int rename __P((const char *, const char *)); +void rewind __P((FILE *)); +int scanf __P((const char *, ...)); +void setbuf __P((FILE *, char *)); +int setvbuf __P((FILE *, char *, int, size_t)); +int sprintf __P((char *, const char *, ...)); +int sscanf __P((const char *, const char *, ...)); +FILE *tmpfile __P((void)); +char *tmpnam __P((char *)); +int ungetc __P((int, FILE *)); +int vfprintf __P((FILE *, const char *, _BSD_VA_LIST_)); +int vprintf __P((const char *, _BSD_VA_LIST_)); +int vsprintf __P((char *, const char *, _BSD_VA_LIST_)); +__END_DECLS /* * Functions defined in POSIX 1003.1. @@ -198,12 +286,8 @@ int vsprintf(char *, const char *, __va_list); #ifndef _ANSI_SOURCE #define L_cuserid 9 /* size for cuserid(); UT_NAMESIZE + 1 */ #define L_ctermid 1024 /* size for ctermid(); PATH_MAX */ -#define fileno(f) (f->_file) __BEGIN_DECLS -#ifndef _POSIX_SOURCE -char *cuserid __P((char *)); /* non-BSD */ -#endif char *ctermid __P((char *)); FILE *fdopen __P((int, const char *)); int fileno __P((FILE *)); @@ -222,15 +306,97 @@ int pclose __P((FILE *)); FILE *popen __P((const char *, const char *)); int putw __P((int, FILE *)); void setbuffer __P((FILE *, char *, int)); +int setlinebuf __P((FILE *)); char *tempnam __P((const char *, const char *)); int snprintf __P((char *, size_t, const char *, ...)); -int vfscanf __P((FILE *, const char *, __va_list)); -int vsnprintf __P((char *, size_t, const char *, __va_list)); -int vscanf __P((const char *, __va_list)); -int vsscanf __P((const char *, const char *, __va_list)); +int vsnprintf __P((char *, size_t, const char *, _BSD_VA_LIST_)); +int vscanf __P((const char *, _BSD_VA_LIST_)); +int vsscanf __P((const char *, const char *, _BSD_VA_LIST_)); FILE *zopen __P((const char *, const char *, int)); __END_DECLS -#endif /* !_ANSI_SOURCE && !_POSIX_SOURCE */ +/* + * This is a #define because the function is used internally and + * (unlike vfscanf) the name __svfscanf is guaranteed not to collide + * with a user function when _ANSI_SOURCE or _POSIX_SOURCE is defined. + */ +#define vfscanf __svfscanf -#endif /* __stdio__ */ +/* + * Stdio function-access interface. + */ +__BEGIN_DECLS +FILE *funopen __P((const void *, + ssize_t (*)(void *, char *, size_t), + ssize_t (*)(void *, const char *, size_t), + fpos_t (*)(void *, fpos_t, int), + int (*)(void *))); +__END_DECLS +#define fropen(cookie, fn) funopen(cookie, fn, 0, 0, 0) +#define fwopen(cookie, fn) funopen(cookie, 0, fn, 0, 0) +#endif /* !_ANSI_SOURCE && !_POSIX_SOURCE */ + +/* + * Functions internal to the implementation. + */ +__BEGIN_DECLS +int __srget __P((FILE *)); +int __svfscanf __P((FILE *, const char *, _BSD_VA_LIST_)); +int __swbuf __P((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__) +static __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) +#ifdef __GNO__ +#define __ssetbinary(p) ((p)->_flags |= __SBIN) +#define __ssettext(p) ((p)->_flags &= ~__SBIN) +#endif + +#define feof(p) __sfeof(p) +#define ferror(p) __sferror(p) +#define clearerr(p) __sclearerr(p) + +#ifndef _ANSI_SOURCE +#define fileno(p) __sfileno(p) +#ifdef __GNO__ +#define fsetbinary(p) __ssetbinary(p) +#define fsettext(p) __ssettext(p) +#endif +#endif + +#ifndef lint +#define getc(fp) __sgetc(fp) +#define putc(x, fp) __sputc(x, fp) +#endif /* lint */ + +#define getchar() getc(stdin) +#define putchar(x) putc(x, stdout) +#endif /* _STDIO_H_ */