forked from KolibriOS/kolibrios
230 lines
8.2 KiB
C
230 lines
8.2 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
|
|
|
|
|
|
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 *));
|
|
extern int _EXFUN(__srefill_r,(struct _reent *,FILE *));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__sread,(struct _reent *, void *, char *,
|
|
int));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__seofread,(struct _reent *, void *,
|
|
char *, int));
|
|
extern _READ_WRITE_RETURN_TYPE _EXFUN(__swrite,(struct _reent *, void *,
|
|
const char *, int));
|
|
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(_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 *, int));
|
|
#endif
|
|
|
|
/* Called by the main entry point fns to ensure stdio has been initialized. */
|
|
|
|
#ifdef _REENT_SMALL
|
|
#define CHECK_INIT(ptr, fp) \
|
|
do \
|
|
{ \
|
|
if ((ptr) && !(ptr)->__sdidinit) \
|
|
__sinit (ptr); \
|
|
if ((fp) == (FILE *)&__sf_fake_stdin) \
|
|
(fp) = _stdin_r(ptr); \
|
|
else if ((fp) == (FILE *)&__sf_fake_stdout) \
|
|
(fp) = _stdout_r(ptr); \
|
|
else if ((fp) == (FILE *)&__sf_fake_stderr) \
|
|
(fp) = _stderr_r(ptr); \
|
|
} \
|
|
while (0)
|
|
#else /* !_REENT_SMALL */
|
|
#define CHECK_INIT(ptr, fp) \
|
|
do \
|
|
{ \
|
|
if ((ptr) && !(ptr)->__sdidinit) \
|
|
__sinit (ptr); \
|
|
} \
|
|
while (0)
|
|
#endif /* !_REENT_SMALL */
|
|
|
|
#define CHECK_STD_INIT(ptr) \
|
|
do \
|
|
{ \
|
|
if ((ptr) && !(ptr)->__sdidinit) \
|
|
__sinit (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; }
|
|
|
|
/*
|
|
* 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)
|
|
|
|
/* 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];
|