| 0,0 → 1,229 |
|---|
| /* |
| * 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]; |