#include "libioP.h"
#ifdef __STDC__
#include <stdlib.h>
#endif
#include <string.h>
#ifdef MACOSX
#include "keymgr.h"
#endif
void
_IO_un_link (fp)
_IO_FILE *fp;
{
if (fp->_flags & _IO_LINKED)
{
_IO_FILE **f;
#ifdef MACOSX
_IO_FILE *_IO_list_all = (_IO_FILE *) _keymgr_get_and_lock_processwide_ptr(KEYMGR_IO_LIST) ;
#endif
for (f = &_IO_list_all; *f != NULL; f = &(*f)->_chain)
{
if (*f == fp)
{
*f = fp->_chain;
break;
}
}
fp->_flags &= ~_IO_LINKED;
#ifdef MACOSX
_keymgr_set_and_unlock_processwide_ptr (KEYMGR_IO_LIST,_IO_list_all);
#endif
}
}
void
_IO_link_in (fp)
_IO_FILE *fp;
{
if ((fp->_flags & _IO_LINKED) == 0)
{
#ifdef MACOSX
_IO_FILE *_IO_list_all = (_IO_FILE *) _keymgr_get_and_lock_processwide_ptr (KEYMGR_IO_LIST);
#endif
fp->_flags |= _IO_LINKED;
fp->_chain = _IO_list_all;
_IO_list_all = fp;
#ifdef MACOSX
_keymgr_set_and_unlock_processwide_ptr (KEYMGR_IO_LIST,_IO_list_all);
#endif
}
}
static _IO_size_t _IO_least_marker __P ((_IO_FILE *fp));
static _IO_size_t
_IO_least_marker (fp)
_IO_FILE *fp;
{
_IO_ssize_t least_so_far = fp->_IO_read_end - fp->_IO_read_base;
struct _IO_marker *mark;
for (mark = fp->_markers; mark != NULL; mark = mark->_next)
if (mark->_pos < least_so_far)
least_so_far = mark->_pos;
return least_so_far;
}
void
_IO_switch_to_main_get_area (fp)
_IO_FILE *fp;
{
char *tmp;
fp->_flags &= ~_IO_IN_BACKUP;
tmp = fp->_IO_read_end;
fp->_IO_read_end = fp->_IO_save_end;
fp->_IO_save_end= tmp;
tmp = fp->_IO_read_base;
fp->_IO_read_base = fp->_IO_save_base;
fp->_IO_save_base = tmp;
fp->_IO_read_ptr = fp->_IO_read_base;
}
void
_IO_switch_to_backup_area (fp)
_IO_FILE *fp;
{
char *tmp;
fp->_flags |= _IO_IN_BACKUP;
tmp = fp->_IO_read_end;
fp->_IO_read_end = fp->_IO_save_end;
fp->_IO_save_end = tmp;
tmp = fp->_IO_read_base;
fp->_IO_read_base = fp->_IO_save_base;
fp->_IO_save_base = tmp;
fp->_IO_read_ptr = fp->_IO_read_end;
}
int
_IO_switch_to_get_mode (fp)
_IO_FILE *fp;
{
if (fp->_IO_write_ptr > fp->_IO_write_base)
if (_IO_OVERFLOW (fp, EOF) == EOF)
return EOF;
if (_IO_in_backup (fp))
fp->_IO_read_base = fp->_IO_backup_base;
else
{
fp->_IO_read_base = fp->_IO_buf_base;
if (fp->_IO_write_ptr > fp->_IO_read_end)
fp->_IO_read_end = fp->_IO_write_ptr;
}
fp->_IO_read_ptr = fp->_IO_write_ptr;
fp->_IO_write_base = fp->_IO_write_ptr = fp->_IO_write_end = fp->_IO_read_ptr;
fp->_flags &= ~_IO_CURRENTLY_PUTTING;
return 0;
}
void
_IO_free_backup_area (fp)
_IO_FILE *fp;
{
if (_IO_in_backup (fp))
_IO_switch_to_main_get_area (fp);
free (fp->_IO_save_base);
fp->_IO_save_base = NULL;
fp->_IO_save_end = NULL;
fp->_IO_backup_base = NULL;
}
#if 0
int
_IO_switch_to_put_mode (fp)
_IO_FILE *fp;
{
fp->_IO_write_base = fp->_IO_read_ptr;
fp->_IO_write_ptr = fp->_IO_read_ptr;
fp->_IO_write_end = (fp->_flags & _IO_IN_BACKUP
? fp->_IO_read_end : fp->_IO_buf_end);
fp->_IO_read_ptr = fp->_IO_read_end;
fp->_IO_read_base = fp->_IO_read_end;
fp->_flags |= _IO_CURRENTLY_PUTTING;
return 0;
}
#endif
int
__overflow (f, ch)
_IO_FILE *f;
int ch;
{
return _IO_OVERFLOW (f, ch);
}
static int save_for_backup __P ((_IO_FILE *fp));
static int
save_for_backup (fp)
_IO_FILE *fp;
{
int least_mark = _IO_least_marker (fp);
int needed_size = (fp->_IO_read_end - fp->_IO_read_base) - least_mark;
int current_Bsize = fp->_IO_save_end - fp->_IO_save_base;
int avail;
int delta;
struct _IO_marker *mark;
if (needed_size > current_Bsize)
{
char *new_buffer;
avail = 100;
new_buffer = (char *) malloc (avail + needed_size);
if (new_buffer == NULL)
return EOF;
if (least_mark < 0)
{
memcpy (new_buffer + avail,
fp->_IO_save_end + least_mark,
-least_mark);
memcpy (new_buffer + avail - least_mark,
fp->_IO_read_base,
fp->_IO_read_end - fp->_IO_read_base);
}
else
memcpy (new_buffer + avail,
fp->_IO_read_base + least_mark,
needed_size);
if (fp->_IO_save_base)
free (fp->_IO_save_base);
fp->_IO_save_base = new_buffer;
fp->_IO_save_end = new_buffer + avail + needed_size;
}
else
{
avail = current_Bsize - needed_size;
if (least_mark < 0)
{
memmove (fp->_IO_save_base + avail,
fp->_IO_save_end + least_mark,
-least_mark);
memcpy (fp->_IO_save_base + avail - least_mark,
fp->_IO_read_base,
fp->_IO_read_end - fp->_IO_read_base);
}
else if (needed_size > 0)
memcpy (fp->_IO_save_base + avail,
fp->_IO_read_base + least_mark,
needed_size);
}
fp->_IO_backup_base = fp->_IO_save_base + avail;
delta = fp->_IO_read_end - fp->_IO_read_base;
for (mark = fp->_markers; mark != NULL; mark = mark->_next)
mark->_pos -= delta;
return 0;
}
int
__underflow (fp)
_IO_FILE *fp;
{
if (_IO_in_put_mode (fp))
if (_IO_switch_to_get_mode (fp) == EOF)
return EOF;
if (fp->_IO_read_ptr < fp->_IO_read_end)
return *(unsigned char *) fp->_IO_read_ptr;
if (_IO_in_backup (fp))
{
_IO_switch_to_main_get_area (fp);
if (fp->_IO_read_ptr < fp->_IO_read_end)
return *(unsigned char *) fp->_IO_read_ptr;
}
if (_IO_have_markers (fp))
{
if (save_for_backup (fp))
return EOF;
}
else if (_IO_have_backup (fp))
_IO_free_backup_area (fp);
return _IO_UNDERFLOW (fp);
}
int
__uflow (fp)
_IO_FILE *fp;
{
if (_IO_in_put_mode (fp))
if (_IO_switch_to_get_mode (fp) == EOF)
return EOF;
if (fp->_IO_read_ptr < fp->_IO_read_end)
return *(unsigned char *) fp->_IO_read_ptr++;
if (_IO_in_backup (fp))
{
_IO_switch_to_main_get_area (fp);
if (fp->_IO_read_ptr < fp->_IO_read_end)
return *(unsigned char *) fp->_IO_read_ptr++;
}
if (_IO_have_markers (fp))
{
if (save_for_backup (fp))
return EOF;
}
else if (_IO_have_backup (fp))
_IO_free_backup_area (fp);
return _IO_UFLOW (fp);
}
void
_IO_setb (f, b, eb, a)
_IO_FILE *f;
char *b;
char *eb;
int a;
{
if (f->_IO_buf_base && !(f->_flags & _IO_USER_BUF))
FREE_BUF (f->_IO_buf_base, _IO_blen (f));
f->_IO_buf_base = b;
f->_IO_buf_end = eb;
if (a)
f->_flags &= ~_IO_USER_BUF;
else
f->_flags |= _IO_USER_BUF;
}
void
_IO_doallocbuf (fp)
_IO_FILE *fp;
{
if (fp->_IO_buf_base)
return;
if (!(fp->_flags & _IO_UNBUFFERED))
if (_IO_DOALLOCATE (fp) != EOF)
return;
_IO_setb (fp, fp->_shortbuf, fp->_shortbuf+1, 0);
}
int
_IO_default_underflow (fp)
_IO_FILE *fp;
{
return EOF;
}
int
_IO_default_uflow (fp)
_IO_FILE *fp;
{
int ch = _IO_UNDERFLOW (fp);
if (ch == EOF)
return EOF;
return *(unsigned char *) fp->_IO_read_ptr++;
}
_IO_size_t
_IO_default_xsputn (f, data, n)
_IO_FILE *f;
const void *data;
_IO_size_t n;
{
const char *s = (char *) data;
_IO_size_t more = n;
if (more <= 0)
return 0;
for (;;)
{
_IO_ssize_t count = f->_IO_write_end - f->_IO_write_ptr;
if (count > 0)
{
if ((_IO_size_t) count > more)
count = more;
if (count > 20)
{
memcpy (f->_IO_write_ptr, s, count);
s += count;
f->_IO_write_ptr += count;
}
else if (count <= 0)
count = 0;
else
{
char *p = f->_IO_write_ptr;
_IO_ssize_t i;
for (i = count; --i >= 0; )
*p++ = *s++;
f->_IO_write_ptr = p;
}
more -= count;
}
if (more == 0 || __overflow (f, (unsigned char) *s++) == EOF)
break;
more--;
}
return n - more;
}
_IO_size_t
_IO_sgetn (fp, data, n)
_IO_FILE *fp;
void *data;
_IO_size_t n;
{
return _IO_XSGETN (fp, data, n);
}
_IO_size_t
_IO_default_xsgetn (fp, data, n)
_IO_FILE *fp;
void *data;
_IO_size_t n;
{
_IO_size_t more = n;
char *s = (char*) data;
for (;;)
{
_IO_ssize_t count = fp->_IO_read_end - fp->_IO_read_ptr;
if (count > 0)
{
if ((_IO_size_t) count > more)
count = more;
if (count > 20)
{
memcpy (s, fp->_IO_read_ptr, count);
s += count;
fp->_IO_read_ptr += count;
}
else if (count <= 0)
count = 0;
else
{
char *p = fp->_IO_read_ptr;
int i = (int) count;
while (--i >= 0)
*s++ = *p++;
fp->_IO_read_ptr = p;
}
more -= count;
}
if (more == 0 || __underflow (fp) == EOF)
break;
}
return n - more;
}
#if 0
int
_IO_sync (fp)
_IO_FILE *fp;
{
return 0;
}
#endif
_IO_FILE *
_IO_default_setbuf (fp, p, len)
_IO_FILE *fp;
char *p;
_IO_ssize_t len;
{
if (_IO_SYNC (fp) == EOF)
return NULL;
if (p == NULL || len == 0)
{
fp->_flags |= _IO_UNBUFFERED;
_IO_setb (fp, fp->_shortbuf, fp->_shortbuf+1, 0);
}
else
{
fp->_flags &= ~_IO_UNBUFFERED;
_IO_setb (fp, p, p+len, 0);
}
fp->_IO_write_base = fp->_IO_write_ptr = fp->_IO_write_end = 0;
fp->_IO_read_base = fp->_IO_read_ptr = fp->_IO_read_end = 0;
return fp;
}
_IO_pos_t
_IO_default_seekpos (fp, pos, mode)
_IO_FILE *fp;
_IO_pos_t pos;
int mode;
{
return _IO_SEEKOFF (fp, _IO_pos_as_off (pos), 0, mode);
}
int
_IO_default_doallocate (fp)
_IO_FILE *fp;
{
char *buf;
ALLOC_BUF (buf, _IO_BUFSIZ, EOF);
_IO_setb (fp, buf, buf+_IO_BUFSIZ, 1);
return 1;
}
void
_IO_init (fp, flags)
_IO_FILE *fp;
int flags;
{
fp->_flags = _IO_MAGIC|flags;
fp->_IO_buf_base = NULL;
fp->_IO_buf_end = NULL;
fp->_IO_read_base = NULL;
fp->_IO_read_ptr = NULL;
fp->_IO_read_end = NULL;
fp->_IO_write_base = NULL;
fp->_IO_write_ptr = NULL;
fp->_IO_write_end = NULL;
fp->_chain = NULL;
fp->_IO_save_base = NULL;
fp->_IO_backup_base = NULL;
fp->_IO_save_end = NULL;
fp->_markers = NULL;
fp->_cur_column = 0;
#ifdef _IO_MTSAFE_IO
_IO_lock_init (*fp->_lock);
#endif
}
int
_IO_default_sync (fp)
_IO_FILE *fp;
{
return 0;
}
void
_IO_default_finish (fp, dummy)
_IO_FILE *fp;
int dummy;
{
struct _IO_marker *mark;
if (fp->_IO_buf_base && !(fp->_flags & _IO_USER_BUF))
{
FREE_BUF (fp->_IO_buf_base, _IO_blen (fp));
fp->_IO_buf_base = fp->_IO_buf_end = NULL;
}
for (mark = fp->_markers; mark != NULL; mark = mark->_next)
mark->_sbuf = NULL;
if (fp->_IO_save_base)
{
free (fp->_IO_save_base);
fp->_IO_save_base = NULL;
}
#ifdef _IO_MTSAFE_IO
_IO_lock_fini (*fp->_lock);
#endif
_IO_un_link (fp);
}
_IO_pos_t
_IO_default_seekoff (fp, offset, dir, mode)
_IO_FILE *fp;
_IO_off_t offset;
int dir;
int mode;
{
return _IO_pos_BAD;
}
int
_IO_sputbackc (fp, c)
_IO_FILE *fp;
int c;
{
int result;
if (fp->_IO_read_ptr > fp->_IO_read_base
&& (unsigned char)fp->_IO_read_ptr[-1] == (unsigned char)c)
{
fp->_IO_read_ptr--;
result = (unsigned char) c;
}
else
result = _IO_PBACKFAIL (fp, c);
if (result != EOF)
fp->_flags &= ~_IO_EOF_SEEN;
return result;
}
int
_IO_sungetc (fp)
_IO_FILE *fp;
{
int result;
if (fp->_IO_read_ptr > fp->_IO_read_base)
{
fp->_IO_read_ptr--;
result = (unsigned char) *fp->_IO_read_ptr;
}
else
result = _IO_PBACKFAIL (fp, EOF);
if (result != EOF)
fp->_flags &= ~_IO_EOF_SEEN;
return result;
}
#if 0
#if 0
void
_IO_set_column (fp, c)
_IO_FILE *fp;
int c;
{
if (c == -1)
fp->_column = -1;
else
fp->_column = c - (fp->_IO_write_ptr - fp->_IO_write_base);
}
#else
int
_IO_set_column (fp, i)
_IO_FILE *fp;
int i;
{
fp->_cur_column = i + 1;
return 0;
}
#endif
#endif
unsigned
_IO_adjust_column (start, line, count)
unsigned start;
const char *line;
int count;
{
const char *ptr = line + count;
while (ptr > line)
if (*--ptr == '\n')
return line + count - ptr - 1;
return start + count;
}
#if 0
int
_IO_get_column (fp)
_IO_FILE *fp;
{
if (fp->_cur_column)
return _IO_adjust_column (fp->_cur_column - 1,
fp->_IO_write_base,
fp->_IO_write_ptr - fp->_IO_write_base);
return -1;
}
#endif
int
_IO_flush_all ()
{
int result = 0;
_IO_FILE *fp;
#ifdef MACOSX
_IO_FILE *_IO_list_all = (_IO_FILE *) _keymgr_get_and_lock_processwide_ptr (KEYMGR_IO_LIST);
#endif
#ifdef MACOSX_DEBUG
printf ("_IO_flush_all @ 0x%08x\n",_IO_flush_all);
#endif
for (fp = _IO_list_all; fp != NULL; fp = fp->_chain)
if (fp->_IO_write_ptr > fp->_IO_write_base
&& _IO_OVERFLOW (fp, EOF) == EOF)
result = EOF;
#ifdef MACOSX
_keymgr_unlock_processwide_ptr (KEYMGR_IO_LIST);
#endif
return result;
}
void
_IO_flush_all_linebuffered ()
{
_IO_FILE *fp;
#ifdef MACOSX
_IO_FILE *_IO_list_all = (_IO_FILE *) _keymgr_get_and_lock_processwide_ptr (KEYMGR_IO_LIST);
#endif
for (fp = _IO_list_all; fp != NULL; fp = fp->_chain)
if ((fp->_flags & _IO_NO_WRITES) == 0 && fp->_flags & _IO_LINE_BUF)
_IO_OVERFLOW (fp, EOF);
#ifdef MACOSX
_keymgr_unlock_processwide_ptr (KEYMGR_IO_LIST);
#endif
}
static void _IO_unbuffer_all __P ((void));
static void
_IO_unbuffer_all ()
{
_IO_FILE *fp;
#ifdef MACOSX
_IO_FILE *_IO_list_all = (_IO_FILE *) _keymgr_get_and_lock_processwide_ptr (KEYMGR_IO_LIST);
#endif
for (fp = _IO_list_all; fp != NULL; fp = fp->_chain)
if (! (fp->_flags & _IO_UNBUFFERED))
_IO_SETBUF (fp, NULL, 0);
#ifdef MACOSX
_keymgr_unlock_processwide_ptr (KEYMGR_IO_LIST);
#endif
}
void
_IO_cleanup ()
{
_IO_flush_all ();
_IO_unbuffer_all ();
}
void
_IO_init_marker (marker, fp)
struct _IO_marker *marker;
_IO_FILE *fp;
{
marker->_sbuf = fp;
if (_IO_in_put_mode (fp))
_IO_switch_to_get_mode (fp);
if (_IO_in_backup (fp))
marker->_pos = fp->_IO_read_ptr - fp->_IO_read_end;
else
marker->_pos = fp->_IO_read_ptr - fp->_IO_read_base;
marker->_next = fp->_markers;
fp->_markers = marker;
}
void
_IO_remove_marker (marker)
struct _IO_marker *marker;
{
struct _IO_marker **ptr = &marker->_sbuf->_markers;
for (; ; ptr = &(*ptr)->_next)
{
if (*ptr == NULL)
break;
else if (*ptr == marker)
{
*ptr = marker->_next;
return;
}
}
#if 0
if _sbuf has a backup area that is no longer needed, should we delete
it now, or wait until the next underflow?
#endif
}
#define BAD_DELTA EOF
int
_IO_marker_difference (mark1, mark2)
struct _IO_marker *mark1;
struct _IO_marker *mark2;
{
return mark1->_pos - mark2->_pos;
}
int
_IO_marker_delta (mark)
struct _IO_marker *mark;
{
int cur_pos;
if (mark->_sbuf == NULL)
return BAD_DELTA;
if (_IO_in_backup (mark->_sbuf))
cur_pos = mark->_sbuf->_IO_read_ptr - mark->_sbuf->_IO_read_end;
else
cur_pos = mark->_sbuf->_IO_read_ptr - mark->_sbuf->_IO_read_base;
return mark->_pos - cur_pos;
}
int
_IO_seekmark (fp, mark, delta)
_IO_FILE *fp;
struct _IO_marker *mark;
int delta;
{
if (mark->_sbuf != fp)
return EOF;
if (mark->_pos >= 0)
{
if (_IO_in_backup (fp))
_IO_switch_to_main_get_area (fp);
fp->_IO_read_ptr = fp->_IO_read_base + mark->_pos;
}
else
{
if (!_IO_in_backup (fp))
_IO_switch_to_backup_area (fp);
fp->_IO_read_ptr = fp->_IO_read_end + mark->_pos;
}
return 0;
}
void
_IO_unsave_markers (fp)
_IO_FILE *fp;
{
struct _IO_marker *mark = fp->_markers;
if (mark)
{
#ifdef TODO
streampos offset = seekoff (0, ios::cur, ios::in);
if (offset != EOF)
{
offset += eGptr () - Gbase ();
for ( ; mark != NULL; mark = mark->_next)
mark->set_streampos (mark->_pos + offset);
}
else
{
for ( ; mark != NULL; mark = mark->_next)
mark->set_streampos (EOF);
}
#endif
fp->_markers = 0;
}
if (_IO_have_backup (fp))
_IO_free_backup_area (fp);
}
#if 0
int
_IO_nobackup_pbackfail (fp, c)
_IO_FILE *fp;
int c;
{
if (fp->_IO_read_ptr > fp->_IO_read_base)
fp->_IO_read_ptr--;
if (c != EOF && *fp->_IO_read_ptr != c)
*fp->_IO_read_ptr = c;
return (unsigned char) c;
}
#endif
int
_IO_default_pbackfail (fp, c)
_IO_FILE *fp;
int c;
{
if (fp->_IO_read_ptr <= fp->_IO_read_base)
{
if (_IO_have_backup (fp) && !_IO_in_backup (fp))
_IO_switch_to_backup_area (fp);
if (!_IO_have_backup (fp))
{
int backup_size = 128;
char *bbuf = (char *) malloc (backup_size);
if (bbuf == NULL)
return EOF;
fp->_IO_save_base = bbuf;
fp->_IO_save_end = fp->_IO_save_base + backup_size;
fp->_IO_backup_base = fp->_IO_save_end;
_IO_switch_to_backup_area (fp);
}
else if (fp->_IO_read_ptr <= fp->_IO_read_base)
{
_IO_size_t new_size;
_IO_size_t old_size = fp->_IO_read_end - fp->_IO_read_base;
char *new_buf;
new_size = 2 * old_size;
new_buf = (char *) malloc (new_size);
if (new_buf == NULL)
return EOF;
memcpy (new_buf + (new_size - old_size), fp->_IO_read_base,
old_size);
free (fp->_IO_read_base);
_IO_setg (fp, new_buf, new_buf + (new_size - old_size),
new_buf + new_size);
fp->_IO_backup_base = fp->_IO_read_ptr;
}
}
--fp->_IO_read_ptr;
if (c != EOF && *fp->_IO_read_ptr != c)
*fp->_IO_read_ptr = c;
return (unsigned char) *fp->_IO_read_ptr;
}
_IO_pos_t
_IO_default_seek (fp, offset, dir)
_IO_FILE *fp;
_IO_off_t offset;
int dir;
{
return _IO_pos_BAD;
}
int
_IO_default_stat (fp, st)
_IO_FILE *fp;
void* st;
{
return EOF;
}
_IO_ssize_t
_IO_default_read (fp, data, n)
_IO_FILE* fp;
void *data;
_IO_ssize_t n;
{
return -1;
}
_IO_ssize_t
_IO_default_write (fp, data, n)
_IO_FILE *fp;
const void *data;
_IO_ssize_t n;
{
return 0;
}
#ifdef TODO
#if defined(linux)
#define IO_CLEANUP ;
#endif
#ifdef IO_CLEANUP
IO_CLEANUP
#else
struct __io_defs {
__io_defs() { }
~__io_defs() { _IO_cleanup (); }
};
__io_defs io_defs__;
#endif
#endif
#ifdef weak_alias
weak_alias (_IO_cleanup, _cleanup)
#elif defined(_G_STDIO_USES_LIBIO) && defined(_G_HAVE_WEAK_SYMBOL)
void _cleanup () __attribute__ ((weak, alias ("_IO_cleanup")));
#endif
#ifdef text_set_element
text_set_element(__libc_atexit, _cleanup);
#endif