mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-06 22:54:33 +00:00
353 lines
12 KiB
C
353 lines
12 KiB
C
/*
|
|
* Copyright (c) 1990, 2007 The Regents of the University of California.
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms are permitted
|
|
* provided that the above copyright notice and this paragraph are
|
|
* duplicated in all such forms and that any documentation,
|
|
* advertising materials, and other materials related to such
|
|
* distribution and use acknowledge that the software was developed
|
|
* by the University of California, Berkeley. The name of the
|
|
* University may not be used to endorse or promote products derived
|
|
* from this software without specific prior written permission.
|
|
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
|
|
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
*
|
|
* %W% (UofMD/Berkeley) %G%
|
|
*/
|
|
|
|
/*
|
|
* Information local to this implementation of stdio,
|
|
* in particular, macros and private variables.
|
|
*/
|
|
|
|
#include <_ansi.h>
|
|
#include <reent.h>
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <stdio.h>
|
|
#ifdef __SCLE
|
|
# include <io.h>
|
|
#endif
|
|
|
|
/* The following define determines if the per-reent stdin, stdout and stderr
|
|
streams are closed during _reclaim_reent(). The stdin, stdout and stderr
|
|
streams are initialized to use file descriptors 0, 1 and 2 respectively. In
|
|
case _STDIO_CLOSE_PER_REENT_STD_STREAMS is defined these file descriptors
|
|
will be closed via close() provided the owner of the reent structure
|
|
triggerd the on demand reent initilization, see CHECK_INIT(). */
|
|
#if !defined(__rtems__) && !defined(__tirtos__)
|
|
#define _STDIO_CLOSE_PER_REENT_STD_STREAMS
|
|
#endif
|
|
|
|
/* The following macros are supposed to replace calls to _flockfile/_funlockfile
|
|
and __sfp_lock_acquire/__sfp_lock_release. In case of multi-threaded
|
|
environments using pthreads, it's not sufficient to lock the stdio functions
|
|
against concurrent threads accessing the same data, the locking must also be
|
|
secured against thread cancellation.
|
|
|
|
The below macros have to be used in pairs. The _newlib_XXX_start macro
|
|
starts with a opening curly brace, the _newlib_XXX_end macro ends with a
|
|
closing curly brace, so the start macro and the end macro mark the code
|
|
start and end of a critical section. In case the code leaves the critical
|
|
section before reaching the end of the critical section's code end, use
|
|
the appropriate _newlib_XXX_exit macro. */
|
|
|
|
#if !defined (__SINGLE_THREAD__) && defined (_POSIX_THREADS) \
|
|
&& !defined (__rtems__)
|
|
#define _STDIO_WITH_THREAD_CANCELLATION_SUPPORT
|
|
#endif
|
|
|
|
#if defined(__SINGLE_THREAD__) || defined(__IMPL_UNLOCKED__)
|
|
|
|
# define _newlib_flockfile_start(_fp)
|
|
# define _newlib_flockfile_exit(_fp)
|
|
# define _newlib_flockfile_end(_fp)
|
|
# define _newlib_sfp_lock_start()
|
|
# define _newlib_sfp_lock_exit()
|
|
# define _newlib_sfp_lock_end()
|
|
|
|
#elif defined(_STDIO_WITH_THREAD_CANCELLATION_SUPPORT)
|
|
#include <pthread.h>
|
|
|
|
/* Start a stream oriented critical section: */
|
|
# define _newlib_flockfile_start(_fp) \
|
|
{ \
|
|
int __oldfpcancel; \
|
|
pthread_setcancelstate (PTHREAD_CANCEL_DISABLE, &__oldfpcancel); \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_flockfile (_fp)
|
|
|
|
/* Exit from a stream oriented critical section prematurely: */
|
|
# define _newlib_flockfile_exit(_fp) \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_funlockfile (_fp); \
|
|
pthread_setcancelstate (__oldfpcancel, &__oldfpcancel);
|
|
|
|
/* End a stream oriented critical section: */
|
|
# define _newlib_flockfile_end(_fp) \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_funlockfile (_fp); \
|
|
pthread_setcancelstate (__oldfpcancel, &__oldfpcancel); \
|
|
}
|
|
|
|
/* Start a stream list oriented critical section: */
|
|
# define _newlib_sfp_lock_start() \
|
|
{ \
|
|
int __oldsfpcancel; \
|
|
pthread_setcancelstate (PTHREAD_CANCEL_DISABLE, &__oldsfpcancel); \
|
|
__sfp_lock_acquire ()
|
|
|
|
/* Exit from a stream list oriented critical section prematurely: */
|
|
# define _newlib_sfp_lock_exit() \
|
|
__sfp_lock_release (); \
|
|
pthread_setcancelstate (__oldsfpcancel, &__oldsfpcancel);
|
|
|
|
/* End a stream list oriented critical section: */
|
|
# define _newlib_sfp_lock_end() \
|
|
__sfp_lock_release (); \
|
|
pthread_setcancelstate (__oldsfpcancel, &__oldsfpcancel); \
|
|
}
|
|
|
|
#else /* !__SINGLE_THREAD__ && !__IMPL_UNLOCKED__ && !_STDIO_WITH_THREAD_CANCELLATION_SUPPORT */
|
|
|
|
# define _newlib_flockfile_start(_fp) \
|
|
{ \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_flockfile (_fp)
|
|
|
|
# define _newlib_flockfile_exit(_fp) \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_funlockfile(_fp); \
|
|
|
|
# define _newlib_flockfile_end(_fp) \
|
|
if (!(_fp->_flags2 & __SNLK)) \
|
|
_funlockfile(_fp); \
|
|
}
|
|
|
|
# define _newlib_sfp_lock_start() \
|
|
{ \
|
|
__sfp_lock_acquire ()
|
|
|
|
# define _newlib_sfp_lock_exit() \
|
|
__sfp_lock_release ();
|
|
|
|
# define _newlib_sfp_lock_end() \
|
|
__sfp_lock_release (); \
|
|
}
|
|
|
|
#endif /* __SINGLE_THREAD__ || __IMPL_UNLOCKED__ */
|
|
|
|
extern wint_t _EXFUN(__fgetwc, (struct _reent *, FILE *));
|
|
extern wint_t _EXFUN(__fputwc, (struct _reent *, wchar_t, FILE *));
|
|
extern u_char *_EXFUN(__sccl, (char *, u_char *fmt));
|
|
extern int _EXFUN(__svfscanf_r,(struct _reent *,FILE *, _CONST char *,va_list));
|
|
extern int _EXFUN(__ssvfscanf_r,(struct _reent *,FILE *, _CONST char *,va_list));
|
|
extern int _EXFUN(__svfiscanf_r,(struct _reent *,FILE *, _CONST char *,va_list));
|
|
extern int _EXFUN(__ssvfiscanf_r,(struct _reent *,FILE *, _CONST char *,va_list));
|
|
extern int _EXFUN(__svfwscanf_r,(struct _reent *,FILE *, _CONST wchar_t *,va_list));
|
|
extern int _EXFUN(__ssvfwscanf_r,(struct _reent *,FILE *, _CONST wchar_t *,va_list));
|
|
extern int _EXFUN(__svfiwscanf_r,(struct _reent *,FILE *, _CONST wchar_t *,va_list));
|
|
extern int _EXFUN(__ssvfiwscanf_r,(struct _reent *,FILE *, _CONST wchar_t *,va_list));
|
|
int _EXFUN(_svfprintf_r,(struct _reent *, FILE *, const char *,
|
|
va_list)
|
|
_ATTRIBUTE ((__format__ (__printf__, 3, 0))));
|
|
int _EXFUN(_svfiprintf_r,(struct _reent *, FILE *, const char *,
|
|
va_list)
|
|
_ATTRIBUTE ((__format__ (__printf__, 3, 0))));
|
|
int _EXFUN(_svfwprintf_r,(struct _reent *, FILE *, const wchar_t *,
|
|
va_list));
|
|
int _EXFUN(_svfiwprintf_r,(struct _reent *, FILE *, const wchar_t *,
|
|
va_list));
|
|
extern FILE *_EXFUN(__sfp,(struct _reent *));
|
|
extern int _EXFUN(__sflags,(struct _reent *,_CONST char*, int*));
|
|
extern int _EXFUN(__sflush_r,(struct _reent *,FILE *));
|
|
#ifdef _STDIO_BSD_SEMANTICS
|
|
extern int _EXFUN(__sflushw_r,(struct _reent *,FILE *));
|
|
#endif
|
|
extern int _EXFUN(__srefill_r,(struct _reent *,FILE *));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__sread,(struct _reent *, void *, char *,
|
|
_READ_WRITE_BUFSIZE_TYPE));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__seofread,(struct _reent *, void *,
|
|
char *,
|
|
_READ_WRITE_BUFSIZE_TYPE));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__swrite,(struct _reent *, void *,
|
|
const char *,
|
|
_READ_WRITE_BUFSIZE_TYPE));
|
|
extern _fpos_t _EXFUN(__sseek,(struct _reent *, void *, _fpos_t, int));
|
|
extern int _EXFUN(__sclose,(struct _reent *, void *));
|
|
extern int _EXFUN(__stextmode,(int));
|
|
extern _VOID _EXFUN(__sinit,(struct _reent *));
|
|
extern _VOID _EXFUN(_cleanup_r,(struct _reent *));
|
|
extern _VOID _EXFUN(__smakebuf_r,(struct _reent *, FILE *));
|
|
extern int _EXFUN(__swhatbuf_r,(struct _reent *, FILE *, size_t *, int *));
|
|
extern int _EXFUN(_fwalk,(struct _reent *, int (*)(FILE *)));
|
|
extern int _EXFUN(_fwalk_reent,(struct _reent *, int (*)(struct _reent *, FILE *)));
|
|
struct _glue * _EXFUN(__sfmoreglue,(struct _reent *,int n));
|
|
extern int _EXFUN(__submore, (struct _reent *, FILE *));
|
|
|
|
#ifdef __LARGE64_FILES
|
|
extern _fpos64_t _EXFUN(__sseek64,(struct _reent *, void *, _fpos64_t, int));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__swrite64,(struct _reent *, void *,
|
|
const char *,
|
|
_READ_WRITE_BUFSIZE_TYPE));
|
|
#endif
|
|
|
|
/* Called by the main entry point fns to ensure stdio has been initialized. */
|
|
|
|
#ifdef _REENT_SMALL
|
|
#define CHECK_INIT(ptr, fp) \
|
|
do \
|
|
{ \
|
|
struct _reent *_check_init_ptr = (ptr); \
|
|
if ((_check_init_ptr) && !(_check_init_ptr)->__sdidinit) \
|
|
__sinit (_check_init_ptr); \
|
|
if ((fp) == (FILE *)&__sf_fake_stdin) \
|
|
(fp) = _stdin_r(_check_init_ptr); \
|
|
else if ((fp) == (FILE *)&__sf_fake_stdout) \
|
|
(fp) = _stdout_r(_check_init_ptr); \
|
|
else if ((fp) == (FILE *)&__sf_fake_stderr) \
|
|
(fp) = _stderr_r(_check_init_ptr); \
|
|
} \
|
|
while (0)
|
|
#else /* !_REENT_SMALL */
|
|
#define CHECK_INIT(ptr, fp) \
|
|
do \
|
|
{ \
|
|
struct _reent *_check_init_ptr = (ptr); \
|
|
if ((_check_init_ptr) && !(_check_init_ptr)->__sdidinit) \
|
|
__sinit (_check_init_ptr); \
|
|
} \
|
|
while (0)
|
|
#endif /* !_REENT_SMALL */
|
|
|
|
#define CHECK_STD_INIT(ptr) \
|
|
do \
|
|
{ \
|
|
struct _reent *_check_init_ptr = (ptr); \
|
|
if ((_check_init_ptr) && !(_check_init_ptr)->__sdidinit) \
|
|
__sinit (_check_init_ptr); \
|
|
} \
|
|
while (0)
|
|
|
|
/* Return true and set errno and stream error flag iff the given FILE
|
|
cannot be written now. */
|
|
|
|
#define cantwrite(ptr, fp) \
|
|
((((fp)->_flags & __SWR) == 0 || (fp)->_bf._base == NULL) && \
|
|
__swsetup_r(ptr, fp))
|
|
|
|
/* Test whether the given stdio file has an active ungetc buffer;
|
|
release such a buffer, without restoring ordinary unread data. */
|
|
|
|
#define HASUB(fp) ((fp)->_ub._base != NULL)
|
|
#define FREEUB(ptr, fp) { \
|
|
if ((fp)->_ub._base != (fp)->_ubuf) \
|
|
_free_r(ptr, (char *)(fp)->_ub._base); \
|
|
(fp)->_ub._base = NULL; \
|
|
}
|
|
|
|
/* Test for an fgetline() buffer. */
|
|
|
|
#define HASLB(fp) ((fp)->_lb._base != NULL)
|
|
#define FREELB(ptr, fp) { _free_r(ptr,(char *)(fp)->_lb._base); \
|
|
(fp)->_lb._base = NULL; }
|
|
|
|
#ifdef _WIDE_ORIENT
|
|
/*
|
|
* Set the orientation for a stream. If o > 0, the stream has wide-
|
|
* orientation. If o < 0, the stream has byte-orientation.
|
|
*/
|
|
#define ORIENT(fp,ori) \
|
|
do \
|
|
{ \
|
|
if (!((fp)->_flags & __SORD)) \
|
|
{ \
|
|
(fp)->_flags |= __SORD; \
|
|
if (ori > 0) \
|
|
(fp)->_flags2 |= __SWID; \
|
|
else \
|
|
(fp)->_flags2 &= ~__SWID; \
|
|
} \
|
|
} \
|
|
while (0)
|
|
#else
|
|
#define ORIENT(fp,ori)
|
|
#endif
|
|
|
|
/* WARNING: _dcvt is defined in the stdlib directory, not here! */
|
|
|
|
char *_EXFUN(_dcvt,(struct _reent *, char *, double, int, int, char, int));
|
|
char *_EXFUN(_sicvt,(char *, short, char));
|
|
char *_EXFUN(_icvt,(char *, int, char));
|
|
char *_EXFUN(_licvt,(char *, long, char));
|
|
#ifdef __GNUC__
|
|
char *_EXFUN(_llicvt,(char *, long long, char));
|
|
#endif
|
|
|
|
#define CVT_BUF_SIZE 128
|
|
|
|
#define NDYNAMIC 4 /* add four more whenever necessary */
|
|
|
|
#ifdef __SINGLE_THREAD__
|
|
#define __sfp_lock_acquire()
|
|
#define __sfp_lock_release()
|
|
#define __sinit_lock_acquire()
|
|
#define __sinit_lock_release()
|
|
#else
|
|
_VOID _EXFUN(__sfp_lock_acquire,(_VOID));
|
|
_VOID _EXFUN(__sfp_lock_release,(_VOID));
|
|
_VOID _EXFUN(__sinit_lock_acquire,(_VOID));
|
|
_VOID _EXFUN(__sinit_lock_release,(_VOID));
|
|
#endif
|
|
|
|
/* Types used in positional argument support in vfprinf/vfwprintf.
|
|
The implementation is char/wchar_t dependent but the class and state
|
|
tables are only defined once in vfprintf.c. */
|
|
typedef enum {
|
|
ZERO, /* '0' */
|
|
DIGIT, /* '1-9' */
|
|
DOLLAR, /* '$' */
|
|
MODFR, /* spec modifier */
|
|
SPEC, /* format specifier */
|
|
DOT, /* '.' */
|
|
STAR, /* '*' */
|
|
FLAG, /* format flag */
|
|
OTHER, /* all other chars */
|
|
MAX_CH_CLASS /* place-holder */
|
|
} __CH_CLASS;
|
|
|
|
typedef enum {
|
|
START, /* start */
|
|
SFLAG, /* seen a flag */
|
|
WDIG, /* seen digits in width area */
|
|
WIDTH, /* processed width */
|
|
SMOD, /* seen spec modifier */
|
|
SDOT, /* seen dot */
|
|
VARW, /* have variable width specifier */
|
|
VARP, /* have variable precision specifier */
|
|
PREC, /* processed precision */
|
|
VWDIG, /* have digits in variable width specification */
|
|
VPDIG, /* have digits in variable precision specification */
|
|
DONE, /* done */
|
|
MAX_STATE, /* place-holder */
|
|
} __STATE;
|
|
|
|
typedef enum {
|
|
NOOP, /* do nothing */
|
|
NUMBER, /* build a number from digits */
|
|
SKIPNUM, /* skip over digits */
|
|
GETMOD, /* get and process format modifier */
|
|
GETARG, /* get and process argument */
|
|
GETPW, /* get variable precision or width */
|
|
GETPWB, /* get variable precision or width and pushback fmt char */
|
|
GETPOS, /* get positional parameter value */
|
|
PWPOS, /* get positional parameter value for variable width or precision */
|
|
} __ACTION;
|
|
|
|
extern _CONST __CH_CLASS __chclass[256];
|
|
extern _CONST __STATE __state_table[MAX_STATE][MAX_CH_CLASS];
|
|
extern _CONST __ACTION __action_table[MAX_STATE][MAX_CH_CLASS];
|