Subversion Repositories Kolibri OS

/*

 * 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 

#include 

#include 

#include 

#include 

#ifdef __SCLE

# include 

#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];