This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/clib/streaminfo.c

110 lines
2.6 KiB
C
Raw Normal View History

2010-06-17 00:40:25 +01:00
/* $Id$
Part of SWI-Prolog
Author: Jan Wielemaker
E-mail: J.Wielemaker@uva.nl
WWW: http://www.swi-prolog.org
Copyright (C): 2009, University of Amsterdam
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <SWI-Stream.h>
#include <SWI-Prolog.h>
#include "error.h"
#include <ctype.h>
static int
print_byte(int value)
{ if ( isgraph(value) || isspace(value) )
{ Sdprintf("%c", value);
} else
{ Sdprintf("\\\\%02x", value);
}
return 0;
}
static int
print_buffer(const char *data, size_t len)
{ size_t i;
Sdprintf("----------------\n");
for(i=0; i<len; i++)
{ if ( data[i] == 0 )
{ size_t zeros;
for(zeros = 0; i+zeros < len && data[i+zeros] == 0; zeros++)
;
if ( zeros > 10 )
{ Sdprintf("<%d 0-bytes>", zeros);
}
i += zeros;
} else
{ print_byte(data[i]&0xff);
}
}
if ( data[len-1] != '\n' )
Sdprintf("\n");
Sdprintf("----------------\n");
return 0;
}
static foreign_t
stream_info(term_t stream)
{ IOSTREAM *s;
if ( !PL_get_stream_handle(stream, &s) )
{ return pl_error("stream_info", 2, NULL, ERR_ARGTYPE, 1,
stream, "stream");
}
if ( (s->flags & SIO_INPUT) )
{ if ( s->buffer )
{ if ( s->bufp > s->buffer )
{ Sdprintf("Processed input:\n");
print_buffer(s->buffer, s->bufp-s->buffer);
}
if ( s->bufp < s->limitp )
{ Sdprintf("Unprocessed input:\n");
print_buffer(s->bufp, s->limitp-s->bufp);
}
}
} else if ( (s->flags & SIO_OUTPUT) )
{ if ( s->buffer )
{ if ( s->bufp > s->buffer )
{ Sdprintf("Buffered output:\n");
print_buffer(s->buffer, s->bufp-s->buffer);
}
if ( s->bufp < s->limitp )
{ Sdprintf("Possibly sent output (or junk):\n");
print_buffer(s->bufp, s->limitp-s->bufp);
}
}
}
return PL_release_stream(s);
}
install_t
install_streaminfo()
{ PL_register_foreign("$stream_info", 1, stream_info, 0);
}