mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-12-11 18:49:16 +00:00
- replaced modified ORCA stdio.h with modified BSD version
- new sane.h to match lsaneglue - new math.h. Based on ORCA version, but added _isnan() and _isinf()
This commit is contained in:
parent
42ccbe7f76
commit
9002791e1c
52
include/math.h
Normal file
52
include/math.h
Normal file
@ -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
|
183
include/sane.h
Normal file
183
include/sane.h
Normal file
@ -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 <types.h>
|
||||
#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
|
506
include/stdio.h
506
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 <sys/types.h>
|
||||
#endif
|
||||
#endif
|
||||
|
||||
#ifndef _SYS_CDEFS_H_
|
||||
#include <sys/cdefs.h>
|
||||
#endif
|
||||
|
||||
#ifndef _SYS_SYSLIMITS_H_
|
||||
#include <sys/syslimits.h>
|
||||
#ifndef _MACHINE_ANSI_H_
|
||||
#include <machine/ansi.h>
|
||||
#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 <sys/syslimits.h> */
|
||||
#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 <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
|
||||
#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_ */
|
||||
|
Loading…
Reference in New Issue
Block a user