#ifndef _SFHDR_H

#define _SFHDR_H 1

#if !defined(_BLD_sfio) && !defined(_BLD_stdio)

#define _BLD_sfio 1

#endif

#define _next next

#define _endw endw

#define _endr endr

#define _endb endb

#define _push push

#define _flags flags

#define _file file

#define _data data

#define _size size

#define _val val

#include "FEATURE/sfio"

#include "FEATURE/mmap"

#if !_PACKAGE_ast

#if defined(_NO_LARGEFILE64_SOURCE) || _mips == 2 /* || __hppa */

#undef _NO_LARGEFILE64_SOURCE

#define _NO_LARGEFILE64_SOURCE 1

#undef _LARGEFILE64_SOURCE

#undef _LARGEFILE_SOURCE

#endif

#if !_NO_LARGEFILE64_SOURCE && _typ_off64_t && _lib_lseek64 && _lib_stat64

#undef _LARGEFILE64_SOURCE

#undef _LARGEFILE_SOURCE

#undef _FILE_OFFSET_BITS

#define _LARGEFILE64_SOURCE 1 /* enabling the *64 stuff */

#define _LARGEFILE_SOURCE 1

#endif

#if _hdr_stdarg

#include <stdarg.h>

#else

#include <varargs.h>

#endif

#include "FEATURE/common"

#if !__STD_C

#define const

#endif

#endif /* !_PACKAGE_ast */

#include "sfio_t.h"

#include <vthread.h>

#if _PACKAGE_ast

#include <ast.h>

#include <ast_time.h>

#include <ast_tty.h>

#include <ls.h>

#undef _hdr_wchar

#undef _lib_mbrtowc

#undef _lib_wcrtomb

#define _hdr_wchar 1

#define _lib_mbrtowc 1

#define _lib_wcrtomb 1

#if _mem_st_blksize_stat

#define _stat_blksize 1

#endif

#if _lib_localeconv && _hdr_locale

#define _lib_locale 1

#endif

#define sfoff_t off_t

#define sfstat_t struct stat

#define sysclosef close

#define syscreatf creat

#define sysdupf dup

#define sysfcntlf fcntl

#define sysfstatf fstat

#define sysftruncatef ftruncate

#define syslseekf lseek

#define sysmmapf mmap

#define sysmunmapf munmap

#define sysopenf open

#define syspipef pipe

#define sysreadf read

#define sysremovef remove

#define sysstatf stat

#define syswritef write

#else /*!_PACKAGE_ast*/

#if _SFBINARY_H

#undef _hdr_time

#undef _sys_time

#undef _sys_stat

#undef _hdr_stat

#undef _hdr_filio

#undef _sys_filio

#undef _lib_poll

#undef _stream_peek

#undef _socket_peek

#undef _hdr_vfork

#undef _sys_vfork

#undef _lib_vfork

#undef _hdr_values

#undef _hdr_math

#undef _sys_mman

#undef _hdr_mman

#undef _sys_ioctl

#endif

#if _hdr_stdlib

#include <stdlib.h>

#endif

#if _hdr_string

#include <string.h>

#endif

#if _hdr_time

#include <time.h>

#endif

#if _sys_time

#include <sys/time.h>

#endif

#if _sys_stat

#include <sys/stat.h>

#else

#if _hdr_stat

#include <stat.h>

#ifndef _sys_stat

#define _sys_stat 1

#endif

#endif

#endif /*_sys_stat*/

#ifndef _sys_stat

#define _sys_stat 0

#endif

#include <fcntl.h>

#ifndef F_SETFD

#ifndef FIOCLEX

#if _hdr_filio

#include <filio.h>

#else

#if _sys_filio

#include <sys/filio.h>

#endif /*_sys_filio*/

#endif /*_hdr_filio*/

#endif /*_FIOCLEX*/

#endif /*F_SETFD*/

#if _hdr_unistd

#include <unistd.h>

#endif

#if !_LARGEFILE64_SOURCE /* turn off the *64 stuff */

#undef _typ_off64_t

#undef _typ_struct_stat64

#undef _lib_creat64

#undef _lib_open64

#undef _lib_close64

#undef _lib_stat64

#undef _lib_fstat64

#undef _lib_ftruncate64

#undef _lib_lseek64

#undef _lib_mmap64

#undef _lib_munmap64

#endif /*!_LARGEFILE64_SOURCE */

#if _LARGEFILE64_SOURCE && !_lib_mmap64

#undef _mmap_worthy

#endif

#if !_mmap_worthy

#undef _hdr_mman

#undef _sys_mman

#endif

#if _hdr_mman

#include <mman.h>

#endif

#if _sys_mman

#include <sys/mman.h>

#endif

#if _typ_off64_t

#define sfoff_t off64_t

#else

#define sfoff_t off_t

#endif

#if _typ_struct_stat64

#define sfstat_t struct stat64

#else

#define sfstat_t struct stat

#endif

#if _lib_lseek64

#define syslseekf lseek64

#else

#define syslseekf lseek

#endif

#if _lib_stat64

#define sysstatf stat64

#else

#define sysstatf stat

#endif

#if _lib_fstat64

#define sysfstatf fstat64

#else

#define sysfstatf fstat

#endif

#if _lib_mmap64

#define sysmmapf mmap64

#else

#define sysmmapf mmap

#endif

#if _lib_munmap64

#define sysmunmapf munmap64

#else

#define sysmunmapf munmap

#endif

#if _lib_open64

#define sysopenf open64

#else

#define sysopenf open

#endif

#if _lib_creat64

#define syscreatf creat64

#else

#define syscreatf creat

#endif

#if _lib_close64

#define sysclosef close64

#else

#define sysclosef close

#endif

#if _lib_ftruncate64

#undef _lib_ftruncate

#define _lib_ftruncate 1

#define sysftruncatef ftruncate64

#endif

#if !_lib_ftruncate64 && _lib_ftruncate

#define sysftruncatef ftruncate

#endif

#if _lib_remove

#define sysremovef remove

#else

#define sysremovef unlink

#endif

#define sysreadf read

#define syswritef write

#define syspipef pipe

#define sysdupf dup

#define sysfcntlf fcntl

#endif /*_PACKAGE_ast*/

#if !_mmap_worthy

#undef MAP_TYPE

#endif

#include "FEATURE/float"

#include <errno.h>

#include <ctype.h>

#if _PACKAGE_ast

#include <wchar.h>

#define _has_multibyte 1

#define SFMBMAX mbmax()

#define SFMBCPY(to,fr) memcpy((to), (fr), sizeof(mbstate_t))

#define SFMBCLR(mb) memset((mb), 0, sizeof(mbstate_t))

#define SFMBSET(lhs,v) (lhs = (v))

#define SFMBLEN(s,mb) mbsize(s)

#define SFMBDCL(ms) mbstate_t ms;

#else

#if _hdr_wchar && _typ_mbstate_t && _lib_wcrtomb && _lib_mbrtowc

#define _has_multibyte 1 /* Xopen-compliant */

#include <wchar.h>

#define SFMBCPY(to,fr) memcpy((to), (fr), sizeof(mbstate_t))

#define SFMBCLR(mb) memset((mb), 0, sizeof(mbstate_t))

#define SFMBSET(lhs,v) (lhs = (v))

#define SFMBDCL(mb) mbstate_t mb;

#define SFMBLEN(s,mb) mbrtowc(NIL(wchar_t*), (s), SFMBMAX, (mb) )

#endif /*_hdr_wchar && _typ_mbstate_t && _lib_wcrtomb && _lib_mbrtowc*/

#if !_has_multibyte && _hdr_wchar && _lib_mbtowc && _lib_wctomb

#define _has_multibyte 2 /* no shift states */

#include <wchar.h>

#undef mbrtowc

#define mbrtowc(wp,s,n,mb) mbtowc(wp, s, n)

#undef wcrtomb

#define wcrtomb(s,wc,mb) wctomb(s, wc)

#define SFMBCPY(to,fr)

#define SFMBCLR(mb)

#define SFMBSET(lhs,v)

#define SFMBDCL(mb)

#define SFMBLEN(s,mb) mbrtowc(NIL(wchar_t*), (s), SFMBMAX, (mb) )

#endif /*!_has_multibyte && _hdr_wchar && _lib_mbtowc && _lib_wctomb*/

#ifdef MB_CUR_MAX

#define SFMBMAX MB_CUR_MAX

#else

#define SFMBMAX sizeof(Sflong_t)

#endif

#endif /* _PACKAGE_ast */

#if !_has_multibyte

#define _has_multibyte 0 /* no multibyte support */

#define SFMBCPY(to,fr)

#define SFMBCLR(mb)

#define SFMBSET(lhs,v)

#define SFMBLEN(s,mb) (*(s) ? 1 : 0)

#define SFMBDCL(mb)

#endif /* _has_multibyte */

#if vt_threaded

#define SFMTXdecl(ff,_mf_) Sfio_t* _mf_ = (ff)

#define SFMTXbegin(ff,_mf_,rv) \

{ if((ff)->_flags&SF_MTSAFE) \

{ (_mf_) = (ff); \

if(sfmutex((ff), SFMTX_LOCK) != 0) return(rv); \

if(_Sfnotify) \

{ (*_Sfnotify)((_mf_), SF_MTACCESS, (Void_t*)(&(ff)) ); \

if(!(ff)) (ff) = (_mf_); \

} \

} \

}

#define SFMTXend(ff,_mf_) \

{ if((ff)->_flags&SF_MTSAFE) \

{ if(_Sfnotify) \

(*_Sfnotify)((_mf_), SF_MTACCESS, NIL(Void_t*) ); \

sfmutex((ff), SFMTX_UNLOCK); \

(ff) = (_mf_); \

} \

}

#define SFONCE() (_Sfdone ? 0 : vtonce(_Sfonce,_Sfoncef))

#define SFMTXLOCK(f) (((f)->flags&SF_MTSAFE) ? sfmutex(f,SFMTX_LOCK) : 0)

#define SFMTXUNLOCK(f) (((f)->flags&SF_MTSAFE) ? sfmutex(f,SFMTX_UNLOCK) : 0)

#define SFMTXDECL(ff) SFMTXdecl((ff), _mtxf1_)

#define SFMTXBEGIN(ff,v) { SFMTXbegin((ff), _mtxf1_, (v) ); }

#define SFMTXEND(ff) { SFMTXend(ff, _mtxf1_); }

#define SFMTXENTER(ff,v) { if(!(ff)) return(v); SFMTXBEGIN((ff), (v)); }

#define SFMTXRETURN(ff,v) { SFMTXEND(ff); return(v); }

#define SFMTXDECL2(ff) SFMTXdecl((ff), _mtxf2_)

#define SFMTXBEGIN2(ff,v) { SFMTXbegin((ff), _mtxf2_, (v) ); }

#define SFMTXEND2(ff) { SFMTXend((ff), _mtxf2_); }

#define POOLMTXLOCK(p) ( vtmtxlock(&(p)->mutex) )

#define POOLMTXUNLOCK(p) ( vtmtxunlock(&(p)->mutex) )

#define POOLMTXENTER(p) { POOLMTXLOCK(p); }

#define POOLMTXRETURN(p,rv) { POOLMTXUNLOCK(p); return(rv); }

#else /*!vt_threaded*/

#undef SF_MTSAFE /* no need to worry about thread-safety */

#define SF_MTSAFE 0

#define SFONCE() /*(0)*/

#define SFMTXLOCK(f) /*(0)*/

#define SFMTXUNLOCK(f) /*(0)*/

#define SFMTXDECL(ff) /*(0)*/

#define SFMTXBEGIN(ff,v) /*(0)*/

#define SFMTXEND(ff) /*(0)*/

#define SFMTXENTER(ff,v) { if(!(ff)) return(v); }

#define SFMTXRETURN(ff,v) { return(v); }

#define SFMTXDECL2(ff) /*(0)*/

#define SFMTXBEGIN2(ff,v) /*(0)*/

#define SFMTXEND2(ff) /*(0)*/

#define POOLMTXLOCK(p)

#define POOLMTXUNLOCK(p)

#define POOLMTXENTER(p)

#define POOLMTXRETURN(p,v) { return(v); }

#endif /*vt_threaded*/

#if _lib_select

#undef _lib_poll

#else

#if _lib_poll_fd_1 || _lib_poll_fd_2

#define _lib_poll 1

#endif

#endif /*_lib_select_*/

#if _lib_poll

#include <poll.h>

#if _lib_poll_fd_1

#define SFPOLL(pfd,n,tm) poll((pfd),(ulong)(n),(tm))

#else

#define SFPOLL(pfd,n,tm) poll((ulong)(n),(pfd),(tm))

#endif

#endif /*_lib_poll*/

#if _stream_peek

#include <stropts.h>

#endif

#if _socket_peek

#include <sys/socket.h>

#endif

#ifndef X_OK

#define X_OK 01

#endif

#if _lib_vfork && !defined(fork) && !defined(sparc) && !defined(__sparc)

#if _hdr_vfork

#include <vfork.h>

#endif

#if _sys_vfork

#include <sys/vfork.h>

#endif

#define fork vfork

#endif

#if __STD_C

#define NOTUSED(x) (void)(x)

#else

#define NOTUSED(x) (&x,1)

#endif

#define SF_MMAP 00000001 /* in memory mapping mode */

#define SF_BOTH 00000002 /* both read/write */

#define SF_HOLE 00000004 /* a hole of zero's was created */

#define SF_NULL 00000010 /* stream is /dev/null */

#define SF_SEQUENTIAL 00000020 /* sequential access */

#define SF_JUSTSEEK 00000040 /* just did a sfseek */

#define SF_PRIVATE 00000100 /* private stream to Sfio, no mutex */

#define SF_ENDING 00000200 /* no re-io on interrupts at closing */

#define SF_WIDE 00000400 /* in wide mode - stdio only */

#define SF_TMPBITS 00170000

#define SF_DCDOWN 00010000 /* recurse down the discipline stack */

#define SF_WCFORMAT 00020000 /* wchar_t formatting - stdio only */

#if _has_multibyte

#define SFWCSET(f) ((f)->bits |= SF_WCFORMAT)

#define SFWCGET(f,v) (((v) = (f)->bits & SF_WCFORMAT), ((f)->bits &= ~SF_WCFORMAT) )

#else

#define SFWCSET(f)

#define SFWCGET(f,v)

#endif

#define SF_MVSIZE 00040000 /* f->size was reset in sfmove() */

#define SFMVSET(f) (((f)->size *= SF_NMAP), ((f)->bits |= SF_MVSIZE) )

#define SFMVUNSET(f) (!((f)->bits&SF_MVSIZE) ? 0 : \

(((f)->bits &= ~SF_MVSIZE), ((f)->size /= SF_NMAP)) )

#define SFCLRBITS(f) (SFMVUNSET(f), ((f)->bits &= ~SF_TMPBITS) )

#define SF_RC 00000010 /* peeking for a record */

#define SF_RV 00000020 /* reserve without read or most write */

#define SF_LOCK 00000040 /* stream is locked for io op */

#define SF_PUSH 00000100 /* stream has been pushed */

#define SF_POOL 00000200 /* stream is in a pool but not current */

#define SF_PEEK 00000400 /* there is a pending peek */

#define SF_PKRD 00001000 /* did a peek read */

#define SF_GETR 00002000 /* did a getr on this stream */

#define SF_SYNCED 00004000 /* stream was synced */

#define SF_STDIO 00010000 /* given up the buffer to stdio */

#define SF_AVAIL 00020000 /* was closed, available for reuse */

#define SF_LOCAL 00100000 /* sentinel for a local call */

#ifdef DEBUG

#define ASSERT(p) ((p) ? 0 : (abort(),0) )

#else

#define ASSERT(p)

#endif

#define NIL(t) ((t)0)

#define reg register

#ifndef uchar

#define uchar unsigned char

#endif

#ifndef ulong

#define ulong unsigned long

#endif

#ifndef uint

#define uint unsigned int

#endif

#ifndef ushort

#define ushort unsigned short

#endif

#define SECOND 1000 /* millisecond units */

#ifndef S_IFMT

#define S_IFMT 0

#endif

#ifndef S_IFDIR

#define S_IFDIR 0

#endif

#ifndef S_IFREG

#define S_IFREG 0

#endif

#ifndef S_IFCHR

#define S_IFCHR 0

#endif

#ifndef S_IFIFO

#define S_IFIFO 0

#endif

#ifndef S_ISDIR

#define S_ISDIR(m) (((m)&S_IFMT) == S_IFDIR)

#endif

#ifndef S_ISREG

#define S_ISREG(m) (((m)&S_IFMT) == S_IFREG)

#endif

#ifndef S_ISCHR

#define S_ISCHR(m) (((m)&S_IFMT) == S_IFCHR)

#endif

#ifndef S_ISFIFO

# ifdef S_IFIFO

# define S_ISFIFO(m) (((m)&S_IFMT) == S_IFIFO)

# else

# define S_ISFIFO(m) (0)

# endif

#endif

#ifdef S_IRUSR

#define SF_CREATMODE (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH)

#else

#define SF_CREATMODE 0666

#endif

#ifdef F_SETFD

# ifndef FD_CLOEXEC

# define FD_CLOEXEC 1

# endif /*FD_CLOEXEC*/

# define SETCLOEXEC(fd) ((void)fcntl((fd),F_SETFD,FD_CLOEXEC))

#else

# ifdef FIOCLEX

# define SETCLOEXEC(fd) ((void)ioctl((fd),FIOCLEX,0))

# else

# define SETCLOEXEC(fd)

# endif /*FIOCLEX*/

#endif /*F_SETFD*/

#ifndef EINTR

#define EINTR 4

#endif

#ifndef EBADF

#define EBADF 9

#endif

#ifndef EAGAIN

#define EAGAIN 11

#endif

#ifndef ENOMEM

#define ENOMEM 12

#endif

#ifndef EINVAL

#define EINVAL 22

#endif

#ifndef ESPIPE

#define ESPIPE 29

#endif

#if !defined(SFSETLOCALE) && _PACKAGE_ast

#include "lclib.h"

#define SFSETLOCALE(dp,tp) \

do if (*(dp) == 0) { \

Lc_numeric_t* lv = (Lc_numeric_t*)LCINFO(AST_LC_NUMERIC)->data; \

*(dp) = lv->decimal; \

if (tp) *(tp) = lv->thousand; \

} while (0)

#endif /*!defined(SFSETLOCALE) && _PACKAGE_ast*/

#if !defined(SFSETLOCALE) && _lib_locale

#include <locale.h>

#define SFSETLOCALE(decimal,thousand) \

do { struct lconv* lv; \

if(*(decimal) == 0) \

{ *(decimal) = '.'; \

if (thousand) *(thousand) = -1; \

if((lv = localeconv())) \

{ if(lv->decimal_point && *lv->decimal_point) \

*(decimal) = *(unsigned char*)lv->decimal_point; \

if(thousand && lv->thousands_sep && *lv->thousands_sep) \

*(thousand) = *(unsigned char*)lv->thousands_sep; \

} \

} \

} while (0)

#endif /*!defined(SFSETLOCALE) && _lib_locale*/

#if !defined(SFSETLOCALE)

#define SFSETLOCALE(decimal,thousand) (*(decimal)='.')

#endif

typedef struct _sfpool_s Sfpool_t;

struct _sfpool_s

{ Sfpool_t* next;

int mode; /* type of pool */

int s_sf; /* size of pool array */

int n_sf; /* number currently in pool */

Sfio_t** sf; /* array of streams */

Sfio_t* array[3]; /* start with 3 */

Vtmutex_t mutex; /* mutex lock object */

};

typedef struct _sfrsrv_s Sfrsrv_t;

struct _sfrsrv_s

{ ssize_t slen; /* last string length */

ssize_t size; /* buffer size */

uchar data[1]; /* data buffer */

};

typedef struct _sfproc_s Sfproc_t;

struct _sfproc_s

{ int pid; /* process id */

uchar* rdata; /* read data being cached */

int ndata; /* size of cached data */

int size; /* buffer size */

int file; /* saved file descriptor */

int sigp; /* sigpipe protection needed */

};

#define FP_SET(fp,fn) (fp < 0 ? (fn += 1) : (fn = fp) )

#define FP_WIDTH 0

#define FP_PRECIS 1

#define FP_BASE 2

#define FP_STR 3

#define FP_SIZE 4

#define FP_INDEX 5 /* index size */

typedef struct _fmt_s Fmt_t;

typedef struct _fmtpos_s Fmtpos_t;

typedef union

{ int i, *ip;

long l, *lp;

short h, *hp;

uint ui;

ulong ul;

ushort uh;

Sflong_t ll, *llp;

Sfulong_t lu;

Sfdouble_t ld;

double d;

float f;

#if _has_multibyte

wchar_t wc;

wchar_t *ws, **wsp;

#endif

char c, *s, **sp;

uchar uc, *us, **usp;

Void_t *vp;

Sffmt_t *ft;

} Argv_t;

struct _fmt_s

{ char* form; /* format string */

va_list args; /* corresponding arglist */

SFMBDCL(mbs) /* multibyte parsing state */

char* oform; /* original format string */

va_list oargs; /* original arg list */

int argn; /* number of args already used */

Fmtpos_t* fp; /* position list */

Sffmt_t* ft; /* formatting environment */

Sffmtevent_f eventf; /* event function */

Fmt_t* next; /* stack frame pointer */

};

struct _fmtpos_s

{ Sffmt_t ft; /* environment */

Argv_t argv; /* argument value */

int fmt; /* original format */

int need[FP_INDEX]; /* positions depending on */

};

#define LEFTP '('

#define RIGHTP ')'

#define QUOTE '\''

#ifndef CHAR_BIT

#define CHAR_BIT 8

#endif

#define FMTSET(ft, frm,ags, fv, sz, flgs, wid,pr,bs, ts,ns) \

((ft->form = (char*)frm), va_copy(ft->args,ags), \

(ft->fmt = fv), (ft->size = sz), \

(ft->flags = (flgs&SFFMT_SET)), \

(ft->width = wid), (ft->precis = pr), (ft->base = bs), \

(ft->t_str = ts), (ft->n_str = ns) )

#define FMTGET(ft, frm,ags, fv, sz, flgs, wid,pr,bs) \

((frm = ft->form), va_copy(ags,ft->args), \

(fv = ft->fmt), (sz = ft->size), \

(flgs = (flgs&~(SFFMT_SET))|(ft->flags&SFFMT_SET)), \

(wid = ft->width), (pr = ft->precis), (bs = ft->base) )

#define SFFMT_FORBIDDEN 000077777777 /* for sfio.h only */

#define SFFMT_EFORMAT 001000000000 /* sfcvt converting %e */

#define SFFMT_MINUS 002000000000 /* minus sign */

#define SFFMT_AFORMAT 004000000000 /* sfcvt converting %a */

#define SFFMT_UPPER 010000000000 /* sfcvt converting upper */

#define SFFMT_TYPES (SFFMT_SHORT|SFFMT_SSHORT | SFFMT_LONG|SFFMT_LLONG|\

SFFMT_LDOUBLE | SFFMT_IFLAG|SFFMT_JFLAG| \

SFFMT_TFLAG | SFFMT_ZFLAG )

#define SFFMT_INT 001 /* %d,%i */

#define SFFMT_UINT 002 /* %u,o,x etc. */

#define SFFMT_FLOAT 004 /* %f,e,g etc. */

#define SFFMT_CHAR 010 /* %c,C */

#define SFFMT_POINTER 020 /* %p,n,s,S */

#define SFFMT_CLASS 040 /* %[ */

#define _Sfpage (_Sfextern.sf_page)

#define _Sfpool (_Sfextern.sf_pool)

#define _Sfpmove (_Sfextern.sf_pmove)

#define _Sfstack (_Sfextern.sf_stack)

#define _Sfnotify (_Sfextern.sf_notify)

#define _Sfstdsync (_Sfextern.sf_stdsync)

#define _Sfudisc (&(_Sfextern.sf_udisc))

#define _Sfcleanup (_Sfextern.sf_cleanup)

#define _Sfexiting (_Sfextern.sf_exiting)

#define _Sfdone (_Sfextern.sf_done)

#define _Sfonce (_Sfextern.sf_once)

#define _Sfoncef (_Sfextern.sf_oncef)

#define _Sfmutex (_Sfextern.sf_mutex)

typedef struct _sfextern_s

{ ssize_t sf_page;

struct _sfpool_s sf_pool;

int (*sf_pmove)_ARG_((Sfio_t*, int));

Sfio_t* (*sf_stack)_ARG_((Sfio_t*, Sfio_t*));

void (*sf_notify)_ARG_((Sfio_t*, int, void*));

int (*sf_stdsync)_ARG_((Sfio_t*));

struct _sfdisc_s sf_udisc;

void (*sf_cleanup)_ARG_((void));

int sf_exiting;

int sf_done;

Vtonce_t* sf_once;

void (*sf_oncef)_ARG_((void));

Vtmutex_t* sf_mutex;

} Sfextern_t;

#define SFUVALUE(v) (((ulong)(v))&(SF_MORE-1))

#define SFSVALUE(v) ((( long)(v))&(SF_SIGN-1))

#define SFBVALUE(v) (((ulong)(v))&(SF_BYTE-1))

#define SF_PRECIS 7

#define SF_GRAIN 1024

#define SF_PAGE ((ssize_t)(SF_GRAIN*sizeof(int)*2))

#define SFDIRECT(f,n) (((ssize_t)(n) >= (f)->size) || \

((n) >= SF_GRAIN && (ssize_t)(n) >= (f)->size/16 ) )

#define SF_NMAP 4

#ifndef MAP_VARIABLE

#define MAP_VARIABLE 0

#endif

#ifndef _mmap_fixed

#define _mmap_fixed 0

#endif

#if _lib_madvise && defined(MADV_SEQUENTIAL) && defined(MADV_NORMAL)

#define SFMMSEQON(f,a,s) \

do { int oerrno = errno; \

(void)madvise((caddr_t)(a),(size_t)(s),MADV_SEQUENTIAL); \

errno = oerrno; \

} while(0)

#define SFMMSEQOFF(f,a,s) \

do { int oerrno = errno; \

(void)madvise((caddr_t)(a),(size_t)(s),MADV_NORMAL); \

errno = oerrno; \

} while(0)

#else

#define SFMMSEQON(f,a,s)

#define SFMMSEQOFF(f,a,s)

#endif

#define SFMUNMAP(f,a,s) (sysmunmapf((caddr_t)(a),(size_t)(s)), \

((f)->endb = (f)->endr = (f)->endw = (f)->next = \

(f)->data = NIL(uchar*)) )

#define CLOSE(f) { while(sysclosef(f) < 0 && errno == EINTR) errno = 0; }

#define DEVNULL "/dev/null"

#define SFSETNULL(f) ((f)->extent = (Sfoff_t)(-1), (f)->bits |= SF_NULL)

#define SFISNULL(f) ((f)->extent < 0 && ((f)->bits&SF_NULL) )

#define SFKILL(f) ((f)->mode = (SF_AVAIL|SF_LOCK) )

#define SFKILLED(f) (((f)->mode&(SF_AVAIL|SF_LOCK)) == (SF_AVAIL|SF_LOCK) )

#define SF_EDONE 0 /* stop this operation and return */

#define SF_EDISC 1 /* discipline says it's ok */

#define SF_ESTACK 2 /* stack was popped */

#define SF_ECONT 3 /* can continue normally */

#define SETLOCAL(f) ((f)->mode |= SF_LOCAL)

#define GETLOCAL(f,v) ((v) = ((f)->mode&SF_LOCAL), (f)->mode &= ~SF_LOCAL, (v))

#define SFWRALL(f) ((f)->mode |= SF_RV)

#define SFISALL(f,v) ((((v) = (f)->mode&SF_RV) ? ((f)->mode &= ~SF_RV) : 0), \

((v) || ((f)->flags&(SF_SHARE|SF_APPENDWR|SF_WHOLE)) ) )

#define SFSK(f,a,o,d) (SETLOCAL(f),sfsk(f,(Sfoff_t)a,o,d))

#define SFRD(f,b,n,d) (SETLOCAL(f),sfrd(f,(Void_t*)b,n,d))

#define SFWR(f,b,n,d) (SETLOCAL(f),sfwr(f,(Void_t*)b,n,d))

#define SFSYNC(f) (SETLOCAL(f),sfsync(f))

#define SFCLOSE(f) (SETLOCAL(f),sfclose(f))

#define SFFLSBUF(f,n) (SETLOCAL(f),_sfflsbuf(f,n))

#define SFFILBUF(f,n) (SETLOCAL(f),_sffilbuf(f,n))

#define SFSETBUF(f,s,n) (SETLOCAL(f),sfsetbuf(f,s,n))

#define SFWRITE(f,s,n) (SETLOCAL(f),sfwrite(f,s,n))

#define SFREAD(f,s,n) (SETLOCAL(f),sfread(f,s,n))

#define SFSEEK(f,p,t) (SETLOCAL(f),sfseek(f,p,t))

#define SFNPUTC(f,c,n) (SETLOCAL(f),sfnputc(f,c,n))

#define SFRAISE(f,e,d) (SETLOCAL(f),sfraise(f,e,d))

#define SFMODE(f,l) ((f)->mode & ~(SF_RV|SF_RC|((l) ? SF_LOCK : 0)) )

#define SFLOCK(f,l) (void)((f)->mode |= SF_LOCK, (f)->endr = (f)->endw = (f)->data)

#define _SFOPENRD(f) ((f)->endr = ((f)->flags&SF_MTSAFE) ? (f)->data : (f)->endb)

#define _SFOPENWR(f) ((f)->endw = ((f)->flags&(SF_MTSAFE|SF_LINE)) ? (f)->data : (f)->endb)

#define _SFOPEN(f) ((f)->mode == SF_READ ? _SFOPENRD(f) : \

(f)->mode == SF_WRITE ? _SFOPENWR(f) : \

((f)->endw = (f)->endr = (f)->data) )

#define SFOPEN(f,l) (void)((l) ? 0 : \

((f)->mode &= ~(SF_LOCK|SF_RC|SF_RV), _SFOPEN(f), 0) )

#define SFFROZEN(f) (((f)->mode&(SF_PUSH|SF_LOCK|SF_PEEK)) ? 1 : \

!((f)->mode&SF_STDIO) ? 0 : \

_Sfstdsync ? (*_Sfstdsync)(f) : (((f)->mode &= ~SF_STDIO),0) )

#define SFDISC(f,dc,iof) \

{ Sfdisc_t* d; \

if(!(dc)) \

d = (dc) = (f)->disc; \

else d = (f->bits&SF_DCDOWN) ? ((dc) = (dc)->disc) : (dc); \

while(d && !(d->iof)) d = d->disc; \

if(d) (dc) = d; \

}

#define SFDCRD(f,buf,n,dc,rv) \

{ int dcdown = f->bits&SF_DCDOWN; f->bits |= SF_DCDOWN; \

rv = (*dc->readf)(f,buf,n,dc); \

if(!dcdown) f->bits &= ~SF_DCDOWN; \

}

#define SFDCWR(f,buf,n,dc,rv) \

{ int dcdown = f->bits&SF_DCDOWN; f->bits |= SF_DCDOWN; \

rv = (*dc->writef)(f,buf,n,dc); \

if(!dcdown) f->bits &= ~SF_DCDOWN; \

}

#define SFDCSK(f,addr,type,dc,rv) \

{ int dcdown = f->bits&SF_DCDOWN; f->bits |= SF_DCDOWN; \

rv = (*dc->seekf)(f,addr,type,dc); \

if(!dcdown) f->bits &= ~SF_DCDOWN; \

}

#define _SFAVAIL(f,s,n) ((n) = (f)->endb - ((s) = (f)->next) )

#define SFRPEEK(f,s,n) (_SFAVAIL(f,s,n) > 0 ? (n) : \

((n) = SFFILBUF(f,-1), (s) = (f)->next, (n)) )

#define SFWPEEK(f,s,n) (_SFAVAIL(f,s,n) > 0 ? (n) : \

((n) = SFFLSBUF(f,-1), (s) = (f)->next, (n)) )

#define HIFORLINE 128

#define SFSTRSIZE(f) { Sfoff_t s = (f)->next - (f)->data; \

if(s > (f)->here) \

{ (f)->here = s; if(s > (f)->extent) (f)->extent = s; } \

}

#ifdef O_CREAT

#define _has_oflags 1

#else /* for example, research UNIX */

#define _has_oflags 0

#define O_CREAT 004

#define O_TRUNC 010

#define O_APPEND 020

#define O_EXCL 040

#ifndef O_RDONLY

#define O_RDONLY 000

#endif

#ifndef O_WRONLY

#define O_WRONLY 001

#endif

#ifndef O_RDWR

#define O_RDWR 002

#endif

#endif /*O_CREAT*/

#ifndef O_BINARY

#define O_BINARY 000

#endif

#ifndef O_TEXT

#define O_TEXT 000

#endif

#ifndef O_TEMPORARY

#define O_TEMPORARY 000

#endif

#define SF_RADIX 64 /* maximum integer conversion base */

#if _PACKAGE_ast

#define SF_MAXINT INT_MAX

#define SF_MAXLONG LONG_MAX

#else

#define SF_MAXINT ((int)(((uint)~0) >> 1))

#define SF_MAXLONG ((long)(((ulong)~0L) >> 1))

#endif

#define SF_MAXCHAR ((uchar)(~0))

#define SF_MAXEXP10 6

#define SF_MAXPOW10 (1 << SF_MAXEXP10)

#if !_ast_fltmax_double

#define SF_FDIGITS 1024 /* max allowed fractional digits */

#define SF_IDIGITS (8*1024) /* max number of digits in int part */

#else

#define SF_FDIGITS 256 /* max allowed fractional digits */

#define SF_IDIGITS 1024 /* max number of digits in int part */

#endif

#define SF_MAXDIGITS (((SF_FDIGITS+SF_IDIGITS)/sizeof(int) + 1)*sizeof(int))

#define _Sfpos10 (_Sftable.sf_pos10)

#define _Sfneg10 (_Sftable.sf_neg10)

#define _Sfdec (_Sftable.sf_dec)

#define _Sfdigits (_Sftable.sf_digits)

#define _Sfcvinitf (_Sftable.sf_cvinitf)

#define _Sfcvinit (_Sftable.sf_cvinit)

#define _Sffmtposf (_Sftable.sf_fmtposf)

#define _Sffmtintf (_Sftable.sf_fmtintf)

#define _Sfcv36 (_Sftable.sf_cv36)

#define _Sfcv64 (_Sftable.sf_cv64)

#define _Sftype (_Sftable.sf_type)

#define _Sfieee (&_Sftable.sf_ieee)

#define _Sffinf (_Sftable.sf_ieee.fltinf)

#define _Sfdinf (_Sftable.sf_ieee.dblinf)

#define _Sflinf (_Sftable.sf_ieee.ldblinf)

#define _Sffnan (_Sftable.sf_ieee.fltnan)

#define _Sfdnan (_Sftable.sf_ieee.dblnan)

#define _Sflnan (_Sftable.sf_ieee.ldblnan)

#define _Sffpow10 (_Sftable.sf_flt_pow10)

#define _Sfdpow10 (_Sftable.sf_dbl_pow10)

#define _Sflpow10 (_Sftable.sf_ldbl_pow10)

typedef struct _sfieee_s Sfieee_t;

struct _sfieee_s

{ float fltnan; /* float NAN */

float fltinf; /* float INF */

double dblnan; /* double NAN */

double dblinf; /* double INF */

Sfdouble_t ldblnan; /* Sfdouble_t NAN */

Sfdouble_t ldblinf; /* Sfdouble_t INF */

};

typedef struct _sftab_

{ Sfdouble_t sf_pos10[SF_MAXEXP10]; /* positive powers of 10 */

Sfdouble_t sf_neg10[SF_MAXEXP10]; /* negative powers of 10 */

uchar sf_dec[200]; /* ascii reps of values < 100 */

char* sf_digits; /* digits for general bases */

int (*sf_cvinitf)(); /* initialization function */

int sf_cvinit; /* initialization state */

Fmtpos_t* (*sf_fmtposf)_ARG_((Sfio_t*,const char*,va_list,Sffmt_t*,int));

char* (*sf_fmtintf)_ARG_((const char*,int*));

float* sf_flt_pow10; /* float powers of 10 */

double* sf_dbl_pow10; /* double powers of 10 */

Sfdouble_t* sf_ldbl_pow10; /* Sfdouble_t powers of 10 */

uchar sf_cv36[SF_MAXCHAR+1]; /* conversion for base [2-36] */

uchar sf_cv64[SF_MAXCHAR+1]; /* conversion for base [37-64] */

uchar sf_type[SF_MAXCHAR+1]; /* conversion formats&types */

Sfieee_t sf_ieee; /* IEEE floating point constants*/

} Sftab_t;

#define SFCVINIT() (_Sfcvinit ? 1 : (_Sfcvinit = (*_Sfcvinitf)()) )

#define SFDIGIT(v,scale,digit) \

{ if(v < 5*scale) \

if(v < 2*scale) \

if(v < 1*scale) \

{ digit = '0'; } \

else { digit = '1'; v -= 1*scale; } \

else if(v < 3*scale) \

{ digit = '2'; v -= 2*scale; } \

else if(v < 4*scale) \

{ digit = '3'; v -= 3*scale; } \

else { digit = '4'; v -= 4*scale; } \

else if(v < 7*scale) \

if(v < 6*scale) \

{ digit = '5'; v -= 5*scale; } \

else { digit = '6'; v -= 6*scale; } \

else if(v < 8*scale) \

{ digit = '7'; v -= 7*scale; } \

else if(v < 9*scale) \

{ digit = '8'; v -= 8*scale; } \

else { digit = '9'; v -= 9*scale; } \

}

#define sfucvt(v,s,n,list,type,utype) \

{ while((utype)v >= 10000) \

{ n = v; v = (type)(((utype)v)/10000); \

n = (type)((utype)n - ((utype)v)*10000); \

s -= 4; SFDIGIT(n,1000,s[0]); SFDIGIT(n,100,s[1]); \

s[2] = *(list = (char*)_Sfdec + (n <<= 1)); s[3] = *(list+1); \

} \

if(v < 100) \

{ if(v < 10) \

{ s -= 1; s[0] = (char)('0'+v); \

} else \

{ s -= 2; s[0] = *(list = (char*)_Sfdec + (v <<= 1)); s[1] = *(list+1); \

} \

} else \

{ if(v < 1000) \

{ s -= 3; SFDIGIT(v,100,s[0]); \

s[1] = *(list = (char*)_Sfdec + (v <<= 1)); s[2] = *(list+1); \

} else \

{ s -= 4; SFDIGIT(v,1000,s[0]); SFDIGIT(v,100,s[1]); \

s[2] = *(list = (char*)_Sfdec + (v <<= 1)); s[3] = *(list+1); \

} \

} \

}

#undef min

#undef max

#define min(x,y) ((x) < (y) ? (x) : (y))

#define max(x,y) ((x) > (y) ? (x) : (y))

#if _PACKAGE_ast

#define memclear(s,n) memzero(s,n)

#else

#if _lib_bcopy && !_lib_memcpy

#define memcpy(to,fr,n) bcopy((fr),(to),(n))

#endif

#if _lib_bzero && !_lib_memset

#define memclear(s,n) bzero((s),(n))

#else

#define memclear(s,n) memset((s),'\0',(n))

#endif

#endif /*_PACKAGE_ast*/

#define MEMCPY(to,fr,n) \

switch(n) \

{ default : memcpy((Void_t*)to,(Void_t*)fr,n); to += n; fr += n; break; \

case 7 : *to++ = *fr++; \

case 6 : *to++ = *fr++; \

case 5 : *to++ = *fr++; \

case 4 : *to++ = *fr++; \

case 3 : *to++ = *fr++; \

case 2 : *to++ = *fr++; \

case 1 : *to++ = *fr++; \

}

#define MEMSET(s,c,n) \

switch(n) \

{ default : memset((Void_t*)s,(int)c,n); s += n; break; \

case 7 : *s++ = c; \

case 6 : *s++ = c; \

case 5 : *s++ = c; \

case 4 : *s++ = c; \

case 3 : *s++ = c; \

case 2 : *s++ = c; \

case 1 : *s++ = c; \

}

extern Sftab_t _Sftable;

extern int _sfpopen _ARG_((Sfio_t*, int, int, int));

extern int _sfpclose _ARG_((Sfio_t*));

extern int _sfexcept _ARG_((Sfio_t*, int, ssize_t, Sfdisc_t*));

extern Sfrsrv_t* _sfrsrv _ARG_((Sfio_t*, ssize_t));

extern int _sfsetpool _ARG_((Sfio_t*));

extern char* _sfcvt _ARG_((Void_t*,char*,size_t,int,int*,int*,int*,int));

extern char** _sfgetpath _ARG_((char*));

#if _BLD_sfio && defined(__EXPORT__)

#define extern __EXPORT__

#endif

#if !_BLD_sfio && defined(__IMPORT__)

#define extern extern __IMPORT__

#endif

extern Sfextern_t _Sfextern;

extern int _sfmode _ARG_((Sfio_t*, int, int));

extern int _sftype _ARG_((const char*, int*, int*));

#undef extern

#ifndef errno

extern int errno;

#endif

#ifndef frexpl

#if _ast_fltmax_double

#define frexpl frexp

#endif

#if !__STDC__

extern Sfdouble_t frexpl _ARG_((Sfdouble_t, int*));

#endif

#endif

#ifndef ldexpl

#if _ast_fltmax_double

#define ldexpl ldexp

#endif

#if !__STDC__

extern Sfdouble_t ldexpl _ARG_((Sfdouble_t, int));

#endif

#endif

#if !_PACKAGE_ast

#if !__STDC__ && !_hdr_stdlib

extern void abort _ARG_((void));

extern int atexit _ARG_((void(*)(void)));

extern char* getenv _ARG_((const char*));

extern void* malloc _ARG_((size_t));

extern void* realloc _ARG_((void*, size_t));

extern void free _ARG_((void*));

extern size_t strlen _ARG_((const char*));

extern char* strcpy _ARG_((char*, const char*));

extern Void_t* memset _ARG_((void*, int, size_t));

extern Void_t* memchr _ARG_((const void*, int, size_t));

extern Void_t* memccpy _ARG_((void*, const void*, int, size_t));

#ifndef memcpy

extern Void_t* memcpy _ARG_((void*, const void*, size_t));

#endif

#if !defined(strtod)

extern double strtod _ARG_((const char*, char**));

#endif

#if !defined(remove)

extern int sysremovef _ARG_((const char*));

#endif

#endif /* !__STDC__ && !_hdr_stdlib */

#if !_hdr_unistd

#if _proto_open && __cplusplus

extern int sysopenf _ARG_((const char*, int, ...));

#endif

extern int sysclosef _ARG_((int));

extern ssize_t sysreadf _ARG_((int, void*, size_t));

extern ssize_t syswritef _ARG_((int, const void*, size_t));

extern sfoff_t syslseekf _ARG_((int, sfoff_t, int));

extern int sysdupf _ARG_((int));

extern int syspipef _ARG_((int*));

extern int sysaccessf _ARG_((const char*, int));

extern int sysremovef _ARG_((const char*));

extern int sysfstatf _ARG_((int, sfstat_t*));

extern int sysstatf _ARG_((const char*, sfstat_t*));

extern int isatty _ARG_((int));

extern int wait _ARG_((int*));

extern uint sleep _ARG_((uint));

extern int execl _ARG_((const char*, const char*,...));

extern int execv _ARG_((const char*, char**));

#if !defined(fork)

extern int fork _ARG_((void));

#endif

#if _lib_unlink

extern int unlink _ARG_((const char*));

#endif

#endif /*_hdr_unistd*/

#if _lib_bcopy && !_proto_bcopy

extern void bcopy _ARG_((const void*, void*, size_t));

#endif

#if _lib_bzero && !_proto_bzero

extern void bzero _ARG_((void*, size_t));

#endif

extern time_t time _ARG_((time_t*));

extern int waitpid _ARG_((int,int*,int));

extern void _exit _ARG_((int));

typedef int(* Onexit_f)_ARG_((void));

extern Onexit_f onexit _ARG_((Onexit_f));

#if _lib_vfork && !_hdr_vfork && !_sys_vfork

extern pid_t vfork _ARG_((void));

#endif /*_lib_vfork*/

#if _lib_poll

#if _lib_poll_fd_1

extern int poll _ARG_((struct pollfd*, ulong, int));

#else

extern int poll _ARG_((ulong, struct pollfd*, int));

#endif

#endif /*_lib_poll*/

#endif /* _PACKAGE_ast */

#endif /*_SFHDR_H*/