Mercurial > octave
view libinterp/corefcn/c-file-ptr-stream.cc @ 20232:a9574e3c6e9e
Deprecate Array::length() and Sparse::length() in favour of ::numel().
* liboctave/array/Array.h (Array::length): deprecate for ::numel.
* liboctave/array/Sparse.h (Sparse::length): deprecate for ::numel.
* libgui/graphics/QtHandlesUtils.cc, libgui/src/octave-qt-link.cc,
libinterp/corefcn/Cell.cc, libinterp/corefcn/__contourc__.cc,
libinterp/corefcn/__pchip_deriv__.cc, libinterp/corefcn/__qp__.cc,
libinterp/corefcn/cellfun.cc, libinterp/corefcn/daspk.cc,
libinterp/corefcn/dasrt.cc, libinterp/corefcn/dassl.cc,
libinterp/corefcn/data.cc, libinterp/corefcn/filter.cc,
libinterp/corefcn/find.cc, libinterp/corefcn/gl-render.cc,
libinterp/corefcn/gl-render.h, libinterp/corefcn/graphics.cc,
libinterp/corefcn/graphics.in.h, libinterp/corefcn/help.cc,
libinterp/corefcn/hex2num.cc, libinterp/corefcn/input.cc,
libinterp/corefcn/load-path.cc, libinterp/corefcn/load-save.cc,
libinterp/corefcn/ls-oct-ascii.h, libinterp/corefcn/lsode.cc,
libinterp/corefcn/matrix_type.cc, libinterp/corefcn/oct-hist.cc,
libinterp/corefcn/oct-map.cc, libinterp/corefcn/oct-map.h,
libinterp/corefcn/oct-obj.h, libinterp/corefcn/oct-stream.cc,
libinterp/corefcn/oct-stream.h, libinterp/corefcn/pr-output.cc,
libinterp/corefcn/quadcc.cc, libinterp/corefcn/rand.cc,
libinterp/corefcn/regexp.cc, libinterp/corefcn/strfns.cc,
libinterp/corefcn/sub2ind.cc, libinterp/corefcn/symtab.h,
libinterp/corefcn/syscalls.cc, libinterp/corefcn/tsearch.cc,
libinterp/corefcn/urlwrite.cc, libinterp/corefcn/utils.cc,
libinterp/corefcn/variables.cc, libinterp/corefcn/xdiv.cc,
libinterp/corefcn/xpow.cc, libinterp/dldfcn/__glpk__.cc,
libinterp/dldfcn/__init_fltk__.cc, libinterp/dldfcn/__magick_read__.cc,
libinterp/dldfcn/audiodevinfo.cc, libinterp/dldfcn/ccolamd.cc,
libinterp/dldfcn/colamd.cc, libinterp/octave-value/ov-cell.cc,
libinterp/octave-value/ov-class.cc, libinterp/octave-value/ov-class.h,
libinterp/octave-value/ov-fcn-inline.cc, libinterp/octave-value/ov-java.cc,
libinterp/octave-value/ov-perm.cc, libinterp/octave-value/ov-struct.cc,
libinterp/octave-value/ov-typeinfo.cc, libinterp/octave-value/ov.cc,
libinterp/operators/op-int.h, libinterp/parse-tree/pt-pr-code.cc,
liboctave/array/Array-util.cc, liboctave/array/Array.cc,
liboctave/array/CColVector.cc, liboctave/array/CDiagMatrix.cc,
liboctave/array/CMatrix.cc, liboctave/array/CRowVector.cc,
liboctave/array/DiagArray2.cc, liboctave/array/DiagArray2.h,
liboctave/array/MArray.cc, liboctave/array/PermMatrix.cc,
liboctave/array/PermMatrix.h, liboctave/array/Sparse.cc,
liboctave/array/boolMatrix.cc, liboctave/array/chMatrix.cc,
liboctave/array/chNDArray.cc, liboctave/array/dColVector.cc,
liboctave/array/dDiagMatrix.cc, liboctave/array/dMatrix.cc,
liboctave/array/dRowVector.cc, liboctave/array/fCColVector.cc,
liboctave/array/fCDiagMatrix.cc, liboctave/array/fCMatrix.cc,
liboctave/array/fCRowVector.cc, liboctave/array/fColVector.cc,
liboctave/array/fDiagMatrix.cc, liboctave/array/fMatrix.cc,
liboctave/array/fRowVector.cc, liboctave/array/idx-vector.cc,
liboctave/array/intNDArray.cc, liboctave/numeric/CmplxCHOL.cc,
liboctave/numeric/CmplxLU.cc, liboctave/numeric/CmplxQR.cc,
liboctave/numeric/DASPK.cc, liboctave/numeric/DASRT.cc,
liboctave/numeric/DASSL.cc, liboctave/numeric/LSODE.cc,
liboctave/numeric/ODES.cc, liboctave/numeric/ODES.h,
liboctave/numeric/base-dae.h, liboctave/numeric/base-lu.cc,
liboctave/numeric/dbleCHOL.cc, liboctave/numeric/dbleLU.cc,
liboctave/numeric/dbleQR.cc, liboctave/numeric/eigs-base.cc,
liboctave/numeric/fCmplxCHOL.cc, liboctave/numeric/fCmplxLU.cc,
liboctave/numeric/fCmplxQR.cc, liboctave/numeric/floatCHOL.cc,
liboctave/numeric/floatLU.cc, liboctave/numeric/floatQR.cc,
liboctave/numeric/lo-specfun.cc, liboctave/numeric/oct-rand.cc,
liboctave/numeric/oct-spparms.cc, liboctave/numeric/sparse-base-chol.cc,
liboctave/operators/mx-inlines.cc, liboctave/system/file-ops.cc,
liboctave/util/glob-match.h, liboctave/util/kpse.cc,
liboctave/util/lo-regexp.cc, liboctave/util/oct-glob.cc,
liboctave/util/pathsearch.cc, liboctave/util/str-vec.cc,
liboctave/util/str-vec.h, liboctave/util/url-transfer.cc: replace all usage
of Array::length() and Sparse::length() with ::numel().
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Sat, 30 May 2015 03:14:07 +0100 |
parents | 4197fc428c7d |
children | e7fda94aec6b |
line wrap: on
line source
/* Copyright (C) 2000-2015 John W. Eaton This file is part of Octave. Octave is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Octave 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 General Public License for more details. You should have received a copy of the GNU General Public License along with Octave; see the file COPYING. If not, see <http://www.gnu.org/licenses/>. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <iostream> #include "c-file-ptr-stream.h" #ifndef SEEK_SET #define SEEK_SET 0 #endif #ifndef SEEK_CUR #define SEEK_CUR 1 #endif #ifndef SEEK_END #define SEEK_END 2 #endif c_file_ptr_buf::~c_file_ptr_buf (void) { buf_close (); } // FIXME: I'm sure there is room for improvement here... c_file_ptr_buf::int_type c_file_ptr_buf::overflow (int_type c) { #if defined (CXX_ISO_COMPLIANT_LIBRARY) if (f) return (c != traits_type::eof ()) ? gnulib::fputc (c, f) : flush (); else return traits_type::not_eof (c); #else if (f) return (c != EOF) ? gnulib::fputc (c, f) : flush (); else return EOF; #endif } c_file_ptr_buf::int_type c_file_ptr_buf::underflow_common (bool bump) { if (f) { int_type c = gnulib::fgetc (f); if (! bump #if defined (CXX_ISO_COMPLIANT_LIBRARY) && c != traits_type::eof ()) #else && c != EOF) #endif ungetc (c, f); return c; } else #if defined (CXX_ISO_COMPLIANT_LIBRARY) return traits_type::eof (); #else return EOF; #endif } c_file_ptr_buf::int_type c_file_ptr_buf::pbackfail (int_type c) { #if defined (CXX_ISO_COMPLIANT_LIBRARY) return (c != traits_type::eof () && f) ? ungetc (c, f) : traits_type::not_eof (c); #else return (c != EOF && f) ? ungetc (c, f) : EOF; #endif } std::streamsize c_file_ptr_buf::xsputn (const char* s, std::streamsize n) { if (f) return gnulib::fwrite (s, 1, n, f); else return 0; } std::streamsize c_file_ptr_buf::xsgetn (char *s, std::streamsize n) { if (f) return gnulib::fread (s, 1, n, f); else return 0; } static inline int seekdir_to_whence (std::ios::seekdir dir) { return ((dir == std::ios::beg) ? SEEK_SET : (dir == std::ios::cur) ? SEEK_CUR : (dir == std::ios::end) ? SEEK_END : dir); } std::streampos c_file_ptr_buf::seekoff (std::streamoff /* offset */, std::ios::seekdir /* dir */, std::ios::openmode) { // FIXME #if 0 if (f) { fseek (f, offset, seekdir_to_whence (dir)); return ftell (f); } else return 0; #endif return -1; } std::streampos c_file_ptr_buf::seekpos (std::streampos /* offset */, std::ios::openmode) { // FIXME #if 0 if (f) { fseek (f, offset, SEEK_SET); return ftell (f); } else return 0; #endif return -1; } int c_file_ptr_buf::sync (void) { flush (); return 0; } int c_file_ptr_buf::flush (void) { return f ? gnulib::fflush (f) : EOF; } int c_file_ptr_buf::buf_close (void) { int retval = -1; flush (); if (f) { retval = cf (f); f = 0; } return retval; } int c_file_ptr_buf::seek (off_t offset, int origin) { return f ? gnulib::fseeko (f, offset, origin) : -1; } off_t c_file_ptr_buf::tell (void) { return f ? gnulib::ftello (f) : -1; } int c_file_ptr_buf::file_close (FILE *f) { return gnulib::fclose (f); } #ifdef HAVE_ZLIB c_zfile_ptr_buf::~c_zfile_ptr_buf (void) { buf_close (); } // FIXME: I'm sure there is room for improvement here... c_zfile_ptr_buf::int_type c_zfile_ptr_buf::overflow (int_type c) { #if defined (CXX_ISO_COMPLIANT_LIBRARY) if (f) return (c != traits_type::eof ()) ? gzputc (f, c) : flush (); else return traits_type::not_eof (c); #else if (f) return (c != EOF) ? gzputc (f, c) : flush (); else return EOF; #endif } c_zfile_ptr_buf::int_type c_zfile_ptr_buf::underflow_common (bool bump) { if (f) { int_type c = gzgetc (f); if (! bump #if defined (CXX_ISO_COMPLIANT_LIBRARY) && c != traits_type::eof ()) #else && c != EOF) #endif gzungetc (c, f); return c; } else #if defined (CXX_ISO_COMPLIANT_LIBRARY) return traits_type::eof (); #else return EOF; #endif } c_zfile_ptr_buf::int_type c_zfile_ptr_buf::pbackfail (int_type c) { #if defined (CXX_ISO_COMPLIANT_LIBRARY) return (c != traits_type::eof () && f) ? gzungetc (c, f) : traits_type::not_eof (c); #else return (c != EOF && f) ? gzungetc (c, f) : EOF; #endif } std::streamsize c_zfile_ptr_buf::xsputn (const char* s, std::streamsize n) { if (f) return gzwrite (f, s, n); else return 0; } std::streamsize c_zfile_ptr_buf::xsgetn (char *s, std::streamsize n) { if (f) return gzread (f, s, n); else return 0; } std::streampos c_zfile_ptr_buf::seekoff (std::streamoff /* offset */, std::ios::seekdir /* dir */, std::ios::openmode) { // FIXME #if 0 if (f) { gzseek (f, offset, seekdir_to_whence (dir)); return gztell (f); } else return 0; #endif return -1; } std::streampos c_zfile_ptr_buf::seekpos (std::streampos /* offset */, std::ios::openmode) { // FIXME #if 0 if (f) { gzseek (f, offset, SEEK_SET); return gztell (f); } else return 0; #endif return -1; } int c_zfile_ptr_buf::sync (void) { flush (); return 0; } int c_zfile_ptr_buf::flush (void) { // FIXME: do we need something more complex here, passing // something other than 0 for the second argument to gzflush and // checking the return value, etc.? return f ? gzflush (f, 0) : EOF; } int c_zfile_ptr_buf::buf_close (void) { int retval = -1; flush (); if (f) { retval = cf (f); f = 0; } return retval; } #endif