annotate src/zfstream.cc @ 8874:bd1b1fe9c6e9 ss-3-1-53

bump version info for snapshot
author John W. Eaton <jwe@octave.org>
date Wed, 25 Feb 2009 18:35:47 -0500
parents 60e938e1459b
children eb63fbe60fab
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
1 /*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
2
7017
a1dbe9d80eee [project @ 2007-10-12 21:27:11 by jwe]
jwe
parents: 7016
diff changeset
3 Copyright (C) 2005, 2007 Ludwig Schwardt, Kevin Ruland
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
4
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
5
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
6 This file is part of Octave.
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
7
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
8 Octave is free software; you can redistribute it and/or modify it
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6959
diff changeset
10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6959
diff changeset
11 option) any later version.
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
12
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
13 Octave is distributed in the hope that it will be useful, but WITHOUT
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
16 for more details.
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
17
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6959
diff changeset
19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6959
diff changeset
20 <http://www.gnu.org/licenses/>.
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
21
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
22 */
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
23
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
24 /*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
25
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
26 This file is adapted from the zlib 1.2.2 contrib/iostream3 code,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
27 written by
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
28
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
29 Ludwig Schwardt <schwardt@sun.ac.za>
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
30 original version by Kevin Ruland <kevin@rodin.wustl.edu>
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
31
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
32 */
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
33
8025
60e938e1459b zfstream.cc: include <config.h>
John W. Eaton <jwe@octave.org>
parents: 7520
diff changeset
34 #ifdef HAVE_CONFIG_H
60e938e1459b zfstream.cc: include <config.h>
John W. Eaton <jwe@octave.org>
parents: 7520
diff changeset
35 #include <config.h>
60e938e1459b zfstream.cc: include <config.h>
John W. Eaton <jwe@octave.org>
parents: 7520
diff changeset
36 #endif
60e938e1459b zfstream.cc: include <config.h>
John W. Eaton <jwe@octave.org>
parents: 7520
diff changeset
37
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
38 #include "zfstream.h"
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
39
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
40 #ifdef HAVE_ZLIB
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
41
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
42 #include <cstring> // for strcpy, strcat, strlen (mode strings)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
43 #include <cstdio> // for BUFSIZ
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
44
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
45 // Internal buffer sizes (default and "unbuffered" versions)
6783
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
46 #define STASHED_CHARACTERS 16
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
47 #define BIGBUFSIZE (256 * 1024 + STASHED_CHARACTERS)
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
48 #define SMALLBUFSIZE 1
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
49
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
50 /*****************************************************************************/
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
51
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
52 // Default constructor
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
53 gzfilebuf::gzfilebuf()
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
54 : file(0), io_mode(std::ios_base::openmode(0)), own_fd(false),
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
55 buffer(0), buffer_size(BIGBUFSIZE), own_buffer(true)
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
56 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
57 // No buffers to start with
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
58 this->disable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
59 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
60
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
61 // Destructor
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
62 gzfilebuf::~gzfilebuf()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
63 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
64 // Sync output buffer and close only if responsible for file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
65 // (i.e. attached streams should be left open at this stage)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
66 this->sync();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
67 if (own_fd)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
68 this->close();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
69 // Make sure internal buffer is deallocated
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
70 this->disable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
71 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
72
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
73 // Set compression level and strategy
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
74 int
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
75 gzfilebuf::setcompression(int comp_level,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
76 int comp_strategy)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
77 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
78 return gzsetparams(file, comp_level, comp_strategy);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
79 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
80
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
81 // Open gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
82 gzfilebuf*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
83 gzfilebuf::open(const char *name,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
84 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
85 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
86 // Fail if file already open
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
87 if (this->is_open())
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
88 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
89 // Don't support simultaneous read/write access (yet)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
90 if ((mode & std::ios_base::in) && (mode & std::ios_base::out))
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
91 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
92
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
93 // Build mode string for gzopen and check it [27.8.1.3.2]
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
94 char char_mode[6] = "\0\0\0\0\0";
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
95 if (!this->open_mode(mode, char_mode))
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
96 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
97
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
98 // Attempt to open file
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
99 if ((file = gzopen(name, char_mode)) == 0)
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
100 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
101
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
102 // On success, allocate internal buffer and set flags
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
103 this->enable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
104 io_mode = mode;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
105 own_fd = true;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
106 return this;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
107 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
108
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
109 // Attach to gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
110 gzfilebuf*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
111 gzfilebuf::attach(int fd,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
112 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
113 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
114 // Fail if file already open
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
115 if (this->is_open())
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
116 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
117 // Don't support simultaneous read/write access (yet)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
118 if ((mode & std::ios_base::in) && (mode & std::ios_base::out))
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
119 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
120
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
121 // Build mode string for gzdopen and check it [27.8.1.3.2]
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
122 char char_mode[6] = "\0\0\0\0\0";
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
123 if (!this->open_mode(mode, char_mode))
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
124 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
125
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
126 // Attempt to attach to file
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
127 if ((file = gzdopen(fd, char_mode)) == 0)
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
128 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
129
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
130 // On success, allocate internal buffer and set flags
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
131 this->enable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
132 io_mode = mode;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
133 own_fd = false;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
134 return this;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
135 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
136
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
137 // Close gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
138 gzfilebuf*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
139 gzfilebuf::close()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
140 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
141 // Fail immediately if no file is open
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
142 if (!this->is_open())
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
143 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
144 // Assume success
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
145 gzfilebuf* retval = this;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
146 // Attempt to sync and close gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
147 if (this->sync() == -1)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
148 retval = 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
149 if (gzclose(file) < 0)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
150 retval = 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
151 // File is now gone anyway (postcondition [27.8.1.3.8])
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
152 file = 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
153 own_fd = false;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
154 // Destroy internal buffer if it exists
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
155 this->disable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
156 return retval;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
157 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
158
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
159 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
160
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
161 // Convert int open mode to mode string
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
162 bool
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
163 gzfilebuf::open_mode(std::ios_base::openmode mode,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
164 char* c_mode) const
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
165 {
6959
47f4f4e88166 [project @ 2007-10-04 20:43:32 by jwe]
jwe
parents: 6783
diff changeset
166 // FIXME -- do we need testb?
47f4f4e88166 [project @ 2007-10-04 20:43:32 by jwe]
jwe
parents: 6783
diff changeset
167 // bool testb = mode & std::ios_base::binary;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
168 bool testi = mode & std::ios_base::in;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
169 bool testo = mode & std::ios_base::out;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
170 bool testt = mode & std::ios_base::trunc;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
171 bool testa = mode & std::ios_base::app;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
172
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
173 // Check for valid flag combinations - see [27.8.1.3.2] (Table 92)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
174 // Original zfstream hardcoded the compression level to maximum here...
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
175 // Double the time for less than 1% size improvement seems
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
176 // excessive though - keeping it at the default level
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
177 // To change back, just append "9" to the next three mode strings
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
178 if (!testi && testo && !testt && !testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
179 strcpy(c_mode, "w");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
180 if (!testi && testo && !testt && testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
181 strcpy(c_mode, "a");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
182 if (!testi && testo && testt && !testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
183 strcpy(c_mode, "w");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
184 if (testi && !testo && !testt && !testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
185 strcpy(c_mode, "r");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
186 // No read/write mode yet
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
187 // if (testi && testo && !testt && !testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
188 // strcpy(c_mode, "r+");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
189 // if (testi && testo && testt && !testa)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
190 // strcpy(c_mode, "w+");
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
191
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
192 // Mode string should be empty for invalid combination of flags
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
193 if (strlen(c_mode) == 0)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
194 return false;
6275
6e5835ef21f8 [project @ 2007-02-07 07:29:46 by jwe]
jwe
parents: 5307
diff changeset
195
6e5835ef21f8 [project @ 2007-02-07 07:29:46 by jwe]
jwe
parents: 5307
diff changeset
196 strcat(c_mode, "b");
6e5835ef21f8 [project @ 2007-02-07 07:29:46 by jwe]
jwe
parents: 5307
diff changeset
197
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
198 return true;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
199 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
200
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
201 // Determine number of characters in internal get buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
202 std::streamsize
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
203 gzfilebuf::showmanyc()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
204 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
205 // Calls to underflow will fail if file not opened for reading
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
206 if (!this->is_open() || !(io_mode & std::ios_base::in))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
207 return -1;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
208 // Make sure get area is in use
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
209 if (this->gptr() && (this->gptr() < this->egptr()))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
210 return std::streamsize(this->egptr() - this->gptr());
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
211 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
212 return 0;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
213 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
214
6777
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
215 // Puts back a character to the stream in two cases. Firstly, when there
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
216 // is no putback position available, and secondly when the character putback
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
217 // differs from the one in the file. We can only support the first case
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
218 // with gzipped files.
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
219 gzfilebuf::int_type
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
220 gzfilebuf::pbackfail (gzfilebuf::int_type c)
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
221 {
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
222 if (this->is_open())
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
223 {
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
224 if (gzseek (file, this->gptr() - this->egptr() - 1, SEEK_CUR) < 0)
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
225 return traits_type::eof();
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
226
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
227 // Invalidates contents of the buffer
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
228 enable_buffer ();
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
229
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
230 // Attempt to fill internal buffer from gzipped file
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
231 // (buffer must be guaranteed to exist...)
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
232 int bytes_read = gzread(file, buffer, buffer_size);
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
233 // Indicates error or EOF
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
234 if (bytes_read <= 0)
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
235 {
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
236 // Reset get area
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
237 this->setg(buffer, buffer, buffer);
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
238 return traits_type::eof();
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
239 }
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
240
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
241 // Make all bytes read from file available as get area
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
242 this->setg(buffer, buffer, buffer + bytes_read);
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
243
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
244 // If next character in get area differs from putback character
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
245 // flag a failure
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
246 gzfilebuf::int_type ret = traits_type::to_int_type(*(this->gptr()));
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
247 if (ret != c)
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
248 return traits_type::eof();
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
249 else
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
250 return ret;
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
251 }
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
252 else
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
253 return traits_type::eof();
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
254 }
4775fc1aa728 [project @ 2007-07-18 16:32:51 by dbateman]
dbateman
parents: 6275
diff changeset
255
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
256 // Fill get area from gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
257 gzfilebuf::int_type
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
258 gzfilebuf::underflow()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
259 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
260 // If something is left in the get area by chance, return it
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
261 // (this shouldn't normally happen, as underflow is only supposed
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
262 // to be called when gptr >= egptr, but it serves as error check)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
263 if (this->gptr() && (this->gptr() < this->egptr()))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
264 return traits_type::to_int_type(*(this->gptr()));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
265
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
266 // If the file hasn't been opened for reading, produce error
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
267 if (!this->is_open() || !(io_mode & std::ios_base::in))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
268 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
269
6783
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
270 // Copy the final characters to the front of the buffer
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
271 int stash = 0;
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
272 if (this->eback() && buffer && buffer_size > STASHED_CHARACTERS)
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
273 {
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
274 char_type *ptr1 = buffer;
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
275 char_type *ptr2 = this->egptr() - STASHED_CHARACTERS + 1;
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
276 if (ptr2 > this->eback())
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
277 while (stash++ <= STASHED_CHARACTERS)
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
278 *ptr1++ = *ptr2++;
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
279 }
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
280
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
281 // Attempt to fill internal buffer from gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
282 // (buffer must be guaranteed to exist...)
6783
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
283 int bytes_read = gzread(file, buffer + stash, buffer_size - stash);
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
284
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
285 // Indicates error or EOF
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
286 if (bytes_read <= 0)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
287 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
288 // Reset get area
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
289 this->setg(buffer, buffer, buffer);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
290 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
291 }
6783
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
292 // Make all bytes read from file plus the stash available as get area
f966543d105f [project @ 2007-07-20 16:13:31 by dbateman]
dbateman
parents: 6777
diff changeset
293 this->setg(buffer, buffer + stash, buffer + bytes_read + stash);
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
294
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
295 // Return next character in get area
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
296 return traits_type::to_int_type(*(this->gptr()));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
297 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
298
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
299 // Write put area to gzipped file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
300 gzfilebuf::int_type
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
301 gzfilebuf::overflow(int_type c)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
302 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
303 // Determine whether put area is in use
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
304 if (this->pbase())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
305 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
306 // Double-check pointer range
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
307 if (this->pptr() > this->epptr() || this->pptr() < this->pbase())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
308 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
309 // Add extra character to buffer if not EOF
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
310 if (!traits_type::eq_int_type(c, traits_type::eof()))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
311 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
312 *(this->pptr()) = traits_type::to_char_type(c);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
313 this->pbump(1);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
314 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
315 // Number of characters to write to file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
316 int bytes_to_write = this->pptr() - this->pbase();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
317 // Overflow doesn't fail if nothing is to be written
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
318 if (bytes_to_write > 0)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
319 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
320 // If the file hasn't been opened for writing, produce error
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
321 if (!this->is_open() || !(io_mode & std::ios_base::out))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
322 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
323 // If gzipped file won't accept all bytes written to it, fail
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
324 if (gzwrite(file, this->pbase(), bytes_to_write) != bytes_to_write)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
325 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
326 // Reset next pointer to point to pbase on success
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
327 this->pbump(-bytes_to_write);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
328 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
329 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
330 // Write extra character to file if not EOF
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
331 else if (!traits_type::eq_int_type(c, traits_type::eof()))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
332 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
333 // If the file hasn't been opened for writing, produce error
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
334 if (!this->is_open() || !(io_mode & std::ios_base::out))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
335 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
336 // Impromptu char buffer (allows "unbuffered" output)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
337 char_type last_char = traits_type::to_char_type(c);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
338 // If gzipped file won't accept this character, fail
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
339 if (gzwrite(file, &last_char, 1) != 1)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
340 return traits_type::eof();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
341 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
342
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
343 // If you got here, you have succeeded (even if c was EOF)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
344 // The return value should therefore be non-EOF
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
345 if (traits_type::eq_int_type(c, traits_type::eof()))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
346 return traits_type::not_eof(c);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
347 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
348 return c;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
349 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
350
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
351 // Assign new buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
352 std::streambuf*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
353 gzfilebuf::setbuf(char_type* p,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
354 std::streamsize n)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
355 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
356 // First make sure stuff is sync'ed, for safety
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
357 if (this->sync() == -1)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
358 return 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
359 // If buffering is turned off on purpose via setbuf(0,0), still allocate one...
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
360 // "Unbuffered" only really refers to put [27.8.1.4.10], while get needs at
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
361 // least a buffer of size 1 (very inefficient though, therefore make it bigger?)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
362 // This follows from [27.5.2.4.3]/12 (gptr needs to point at something, it seems)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
363 if (!p || !n)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
364 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
365 // Replace existing buffer (if any) with small internal buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
366 this->disable_buffer();
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
367 buffer = 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
368 buffer_size = 0;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
369 own_buffer = true;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
370 this->enable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
371 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
372 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
373 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
374 // Replace existing buffer (if any) with external buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
375 this->disable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
376 buffer = p;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
377 buffer_size = n;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
378 own_buffer = false;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
379 this->enable_buffer();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
380 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
381 return this;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
382 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
383
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
384 // Write put area to gzipped file (i.e. ensures that put area is empty)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
385 int
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
386 gzfilebuf::sync()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
387 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
388 return traits_type::eq_int_type(this->overflow(), traits_type::eof()) ? -1 : 0;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
389 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
390
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
391 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
392
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
393 // Allocate internal buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
394 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
395 gzfilebuf::enable_buffer()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
396 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
397 // If internal buffer required, allocate one
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
398 if (own_buffer && !buffer)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
399 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
400 // Check for buffered vs. "unbuffered"
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
401 if (buffer_size > 0)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
402 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
403 // Allocate internal buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
404 buffer = new char_type[buffer_size];
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
405 // Get area starts empty and will be expanded by underflow as need arises
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
406 this->setg(buffer, buffer, buffer);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
407 // Setup entire internal buffer as put area.
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
408 // The one-past-end pointer actually points to the last element of the buffer,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
409 // so that overflow(c) can safely add the extra character c to the sequence.
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
410 // These pointers remain in place for the duration of the buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
411 this->setp(buffer, buffer + buffer_size - 1);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
412 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
413 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
414 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
415 // Even in "unbuffered" case, (small?) get buffer is still required
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
416 buffer_size = SMALLBUFSIZE;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
417 buffer = new char_type[buffer_size];
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
418 this->setg(buffer, buffer, buffer);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
419 // "Unbuffered" means no put buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
420 this->setp(0, 0);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
421 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
422 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
423 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
424 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
425 // If buffer already allocated, reset buffer pointers just to make sure no
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
426 // stale chars are lying around
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
427 this->setg(buffer, buffer, buffer);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
428 this->setp(buffer, buffer + buffer_size - 1);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
429 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
430 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
431
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
432 // Destroy internal buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
433 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
434 gzfilebuf::disable_buffer()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
435 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
436 // If internal buffer exists, deallocate it
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
437 if (own_buffer && buffer)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
438 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
439 // Preserve unbuffered status by zeroing size
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
440 if (!this->pbase())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
441 buffer_size = 0;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
442 delete[] buffer;
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
443 buffer = 0;
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
444 this->setg(0, 0, 0);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
445 this->setp(0, 0);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
446 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
447 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
448 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
449 // Reset buffer pointers to initial state if external buffer exists
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
450 this->setg(buffer, buffer, buffer);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
451 if (buffer)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
452 this->setp(buffer, buffer + buffer_size - 1);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
453 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
454 this->setp(0, 0);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
455 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
456 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
457
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
458 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
459
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
460 // Seek functions
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
461 gzfilebuf::pos_type
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
462 gzfilebuf::seekoff(off_type off, std::ios_base::seekdir way,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
463 std::ios_base::openmode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
464 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
465 pos_type ret = pos_type (off_type (-1));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
466
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
467 if (this->is_open())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
468 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
469 off_type computed_off = off;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
470
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
471 if ((io_mode & std::ios_base::in) && way == std::ios_base::cur)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
472 computed_off += this->gptr() - this->egptr();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
473
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
474 if (way == std::ios_base::beg)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
475 ret = pos_type (gzseek (file, computed_off, SEEK_SET));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
476 else if (way == std::ios_base::cur)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
477 ret = pos_type (gzseek (file, computed_off, SEEK_CUR));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
478 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
479 // Can't seek from end of a gzipped file, so this will give -1
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
480 ret = pos_type (gzseek (file, computed_off, SEEK_END));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
481
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
482 if (io_mode & std::ios_base::in)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
483 // Invalidates contents of the buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
484 enable_buffer ();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
485 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
486 // flush contents of buffer to file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
487 overflow ();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
488 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
489
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
490 return ret;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
491 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
492
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
493 gzfilebuf::pos_type
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
494 gzfilebuf::seekpos(pos_type sp, std::ios_base::openmode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
495 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
496 pos_type ret = pos_type (off_type (-1));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
497
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
498 if (this->is_open ())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
499 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
500 ret = pos_type (gzseek (file, sp, SEEK_SET));
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
501
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
502 if (io_mode & std::ios_base::in)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
503 // Invalidates contents of the buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
504 enable_buffer ();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
505 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
506 // flush contents of buffer to file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
507 overflow ();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
508 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
509
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
510 return ret;
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
511 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
512
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
513 /*****************************************************************************/
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
514
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
515 // Default constructor initializes stream buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
516 gzifstream::gzifstream()
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
517 : std::istream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
518 { this->init(&sb); }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
519
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
520 // Initialize stream buffer and open file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
521 gzifstream::gzifstream(const char* name,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
522 std::ios_base::openmode mode)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
523 : std::istream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
524 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
525 this->init(&sb);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
526 this->open(name, mode);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
527 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
528
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
529 // Initialize stream buffer and attach to file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
530 gzifstream::gzifstream(int fd,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
531 std::ios_base::openmode mode)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
532 : std::istream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
533 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
534 this->init(&sb);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
535 this->attach(fd, mode);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
536 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
537
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
538 // Open file and go into fail() state if unsuccessful
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
539 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
540 gzifstream::open(const char* name,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
541 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
542 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
543 if (!sb.open(name, mode | std::ios_base::in))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
544 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
545 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
546 this->clear();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
547 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
548
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
549 // Attach to file and go into fail() state if unsuccessful
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
550 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
551 gzifstream::attach(int fd,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
552 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
553 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
554 if (!sb.attach(fd, mode | std::ios_base::in))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
555 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
556 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
557 this->clear();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
558 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
559
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
560 // Close file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
561 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
562 gzifstream::close()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
563 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
564 if (!sb.close())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
565 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
566 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
567
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
568 /*****************************************************************************/
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
569
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
570 // Default constructor initializes stream buffer
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
571 gzofstream::gzofstream()
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
572 : std::ostream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
573 { this->init(&sb); }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
574
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
575 // Initialize stream buffer and open file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
576 gzofstream::gzofstream(const char* name,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
577 std::ios_base::openmode mode)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
578 : std::ostream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
579 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
580 this->init(&sb);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
581 this->open(name, mode);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
582 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
583
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
584 // Initialize stream buffer and attach to file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
585 gzofstream::gzofstream(int fd,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
586 std::ios_base::openmode mode)
7520
b166043585a8 use 0 instead of NULL
John W. Eaton <jwe@octave.org>
parents: 7017
diff changeset
587 : std::ostream(0), sb()
5269
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
588 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
589 this->init(&sb);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
590 this->attach(fd, mode);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
591 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
592
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
593 // Open file and go into fail() state if unsuccessful
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
594 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
595 gzofstream::open(const char* name,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
596 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
597 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
598 if (!sb.open(name, mode | std::ios_base::out))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
599 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
600 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
601 this->clear();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
602 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
603
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
604 // Attach to file and go into fail() state if unsuccessful
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
605 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
606 gzofstream::attach(int fd,
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
607 std::ios_base::openmode mode)
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
608 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
609 if (!sb.attach(fd, mode | std::ios_base::out))
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
610 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
611 else
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
612 this->clear();
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
613 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
614
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
615 // Close file
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
616 void
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
617 gzofstream::close()
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
618 {
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
619 if (!sb.close())
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
620 this->setstate(std::ios_base::failbit);
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
621 }
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
622
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
623 #endif // HAVE_ZLIB
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
624
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
625 /*
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
626 ;;; Local Variables: ***
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
627 ;;; mode: C++ ***
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
628 ;;; End: ***
a90ce2dc8b1e [project @ 2005-04-06 19:20:09 by dbateman]
dbateman
parents:
diff changeset
629 */