#pragma prototyped
#ifndef _STK_H
#define _STK_H
#include <sfio.h>
#define _Stk_data _Stak_data
#define stkstd (&_Stk_data)
#define Stk_t Sfio_t
#define STK_SMALL 1
#define STK_NULL 2
#define stkptr(sp,n) ((char*)((sp)->_data)+(n))
#define stktop(sp) ((char*)(sp)->_next)
#define stktell(sp) ((sp)->_next-(sp)->_data)
#define stkseek(sp,n) ((n)==0?(char*)((sp)->_next=(sp)->_data):_stkseek(sp,n))
#if _BLD_ast && defined(__EXPORT__)
#define extern extern __EXPORT__
#endif
#if !_BLD_ast && defined(__IMPORT__)
#define extern extern __IMPORT__
#endif
extern Sfio_t _Stk_data;
#undef extern
#if _BLD_ast && defined(__EXPORT__)
#define extern __EXPORT__
#endif
extern Stk_t* stkopen(int);
extern Stk_t* stkinstall(Stk_t*, char*(*)(int));
extern int stkclose(Stk_t*);
extern int stklink(Stk_t*);
extern char* stkalloc(Stk_t*, unsigned);
extern char* stkcopy(Stk_t*,const char*);
extern char* stkset(Stk_t*, char*, unsigned);
extern char* _stkseek(Stk_t*, unsigned);
extern char* stkfreeze(Stk_t*, unsigned);
#undef extern
#endif