Formerly ../stdio/obstream.c.~2~
[kopensolaris-gnu/glibc.git] / stdio / obstream.c
1 /* Copyright (C) 1992 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 Library General Public License for more details.
13
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB.  If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA.  */
18
19 #include <ansidecl.h>
20 #include <stdio.h>
21 #include <obstack.h>
22 #include <stdarg.h>
23
24 FILE *obstack_stream __P ((struct obstack *));
25
26 static void
27 DEFUN(grow, (stream, c), FILE *stream AND int c)
28 {
29   struct obstack *const obstack = (struct obstack *) stream->__cookie;
30   const size_t bufp = stream->__bufp - stream->__buffer;
31
32   /* Move the end of the object back to include only the portion
33      of the buffer which the user has already written into.  */ 
34   obstack_blank_fast (obstack, - (stream->__put_limit - stream->__bufp));
35
36   if (c != EOF)
37     obstack_1grow (obstack, (unsigned char) c);
38
39   /* The stream buffer always maps exactly to the object on the top
40      of the obstack.  The start of the buffer is the start of the object.
41      The put limit points just past the end of the object.  On fflush, the
42      obstack is sync'd so the end of the object points just past the last
43      character written to the stream.  */
44
45   stream->__buffer = obstack_base (obstack);
46   stream->__bufsize += obstack_room (obstack);
47   obstack_blank_fast (obstack, stream->__bufsize);
48   stream->__bufp = stream->__buffer + bufp;
49   stream->__get_limit = stream->__bufp;
50   stream->__put_limit = stream->__buffer + stream->__bufsize;
51 }
52
53 static void
54 DEFUN(init_obstream, (stream, obstack),
55       FILE *stream AND struct obstack *obstack)
56 {
57   stream->__mode.__write = 1;
58   stream->__mode.__read = 1;
59
60   /* Input gets EOF.  */
61   stream->__room_funcs.__input = NULL;
62
63   /* When the buffer is full, grow the obstack.  */
64   stream->__room_funcs.__output = grow;
65
66   /* Do nothing for close.  */
67   stream->__io_funcs.__close = NULL;
68
69   /* Can't seek outside the buffer.  */
70   stream->__io_funcs.__seek = NULL;
71   stream->__target = stream->__offset = 0;
72
73   stream->__seen = 1;
74
75   /* Don't deallocate that buffer!  */
76   stream->__userbuf = 1;
77
78   /* We don't have to initialize the buffer.
79      The first read attempt will call grow, which will do all the work.  */
80
81   return stream;
82 }
83
84 FILE *
85 open_obstack_stream (obstack)
86      struct obstack *obstack;
87 {
88   register FILE *stream;
89
90   stream = __newstream ();
91   if (stream == NULL)
92     return NULL;
93
94   init_obstream (stream, obstack);
95   return stream;
96 }
97
98 int
99 DEFUN(obstack_vprintf, (obstack, format, args),
100       struct obstack *obstack AND const char *format AND va_list args)
101 {
102   FILE f;
103   memset (&f, 0, sizeof (f));
104   init_obstream (&f, obstack);
105   return vfprintf (&f, format, args);
106 }
107
108 int
109 DEFUN(obstack_printf, (obstack, format),
110       struct obstack *obstack AND const char *format DOTS)
111 {
112   int result;
113   va_list ap;
114   va_start (ap, format);
115   result = obstack_vprintf (obstack, format, ap);
116   va_end (ap);
117   return result;
118 }