octave: libinterp/corefcn/__ftp_

annotate libinterp/corefcn/ftp.cc @ 29528:bb64fc1ef1ab

__ftp__.cc: Remove number of input argument checks from internal functions. * __ftp__.cc: Remove number of input argument checks from internal functions.

author	Rik <rik@octave.org>
date	Tue, 13 Apr 2021 10:37:34 -0700
parents	7854d5752dd2
children	32c3a5805893

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
29358 0a5b15007766 update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 28467 diff changeset	3 // Copyright (C) 2006-2021 The Octave Project Developers
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	25
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	26 #if defined (HAVE_CONFIG_H)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	27 # include "config.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	28 #endif
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	29
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	30 #include <string>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	31 #include <fstream>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	32 #include <iomanip>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	33
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	34 #include "dir-ops.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	35 #include "file-ops.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	36 #include "file-stat.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	37 #include "lo-sysdep.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	38 #include "oct-env.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	39 #include "oct-handle.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	40 #include "glob-match.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	41 #include "url-transfer.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	42
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	43 #include "defun.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	44 #include "error.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	45 #include "interpreter.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	46 #include "oct-map.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	47 #include "oct-refcount.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	48 #include "ov-cell.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	49 #include "ov-classdef.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	50 #include "ovl.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	51 #include "pager.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	52 #include "unwind-prot.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	53 #include "url-handle-manager.h"
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	54
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	55 DEFMETHOD (__ftp__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	56 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	57 @deftypefn {} {@var{handle} =} __ftp__ (@var{host})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	58 @deftypefnx {} {@var{handle} =} __ftp__ (@var{host}, @var{username}, @var{password})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	59 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	60 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	61 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	62 int nargin = args.length ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	63
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	64 std::string host = args(0).xstring_value ("__ftp__: HOST must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	65
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	66 std::string user = (nargin > 1)
27932 b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	67 ? args(1).xstring_value ("__ftp__: USER must be a string")
b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	68 : "anonymous";
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	69
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	70 std::string passwd = (nargin > 2)
27932 b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	71 ? args(2).xstring_value ("__ftp__: PASSWD must be a string")
b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	72 : "";
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	73
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	74 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	75
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	76 octave::url_handle uh = uhm.make_url_handle (host, user, passwd,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	77 octave_stdout);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	78
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	79 return ovl (uh.value ());
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	80 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	81
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	82 DEFMETHOD (__ftp_pwd__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	83 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	84 @deftypefn {} {} __ftp_pwd__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	85 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	86 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	87 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	88 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	89
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	90 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	91
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	92 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	93 error ("__ftp_pwd__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	94
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	95 return ovl (url_xfer.pwd ());
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	96 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	97
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	98 DEFMETHOD (__ftp_cwd__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	99 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	100 @deftypefn {} {} __ftp_cwd__ (@var{handle}, @var{path})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	101 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	102 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	103 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	104 int nargin = args.length ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	105
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	106 std::string path = "";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	107 if (nargin > 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	108 path = args(1).xstring_value ("__ftp_cwd__: PATH must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	109
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	110 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	111
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	112 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	113
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	114 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	115 error ("__ftp_cwd__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	116
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	117 url_xfer.cwd (path);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	118
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	119 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	120 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	121
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	122 DEFMETHOD (__ftp_dir__, interp, args, nargout,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	123 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	124 @deftypefn {} {} __ftp_dir__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	125 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	126 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	127 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	128 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	129
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	130 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	131
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	132 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	133 error ("__ftp_dir__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	134
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	135 octave_value retval;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	136
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	137 if (nargout == 0)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	138 url_xfer.dir ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	139 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	140 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	141 string_vector sv = url_xfer.list ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	142 octave_idx_type n = sv.numel ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	143
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	144 if (n == 0)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	145 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	146 string_vector flds (5);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	147
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	148 flds(0) = "name";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	149 flds(1) = "date";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	150 flds(2) = "bytes";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	151 flds(3) = "isdir";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	152 flds(4) = "datenum";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	153
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	154 retval = octave_map (flds);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	155 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	156 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	157 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	158 octave_map st;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	159
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	160 Cell filectime (dim_vector (n, 1));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	161 Cell filesize (dim_vector (n, 1));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	162 Cell fileisdir (dim_vector (n, 1));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	163 Cell filedatenum (dim_vector (n, 1));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	164
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	165 st.assign ("name", Cell (sv));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	166
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	167 for (octave_idx_type i = 0; i < n; i++)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	168 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	169 time_t ftime;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	170 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	171 double fsize;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	172
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	173 url_xfer.get_fileinfo (sv(i), fsize, ftime, fisdir);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	174
29528 bb64fc1ef1ab __ftp__.cc: Remove number of input argument checks from internal functions. Rik <rik@octave.org> parents: 29359 diff changeset	175 fileisdir(i) = fisdir;
bb64fc1ef1ab __ftp__.cc: Remove number of input argument checks from internal functions. Rik <rik@octave.org> parents: 29359 diff changeset	176 filectime(i) = ctime (&ftime);
bb64fc1ef1ab __ftp__.cc: Remove number of input argument checks from internal functions. Rik <rik@octave.org> parents: 29359 diff changeset	177 filesize(i) = fsize;
bb64fc1ef1ab __ftp__.cc: Remove number of input argument checks from internal functions. Rik <rik@octave.org> parents: 29359 diff changeset	178 filedatenum(i) = double (ftime);
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	179 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	180
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	181 st.assign ("date", filectime);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	182 st.assign ("bytes", filesize);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	183 st.assign ("isdir", fileisdir);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	184 st.assign ("datenum", filedatenum);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	185
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	186 retval = st;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	187 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	188 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	189
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	190 return retval;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	191 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	192
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	193 DEFMETHOD (__ftp_ascii__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	194 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	195 @deftypefn {} {} __ftp_ascii__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	196 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	197 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	198 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	199 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	200
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	201 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	202
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	203 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	204 error ("__ftp_ascii__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	205
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	206 url_xfer.ascii ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	207
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	208 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	209 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	210
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	211 DEFMETHOD (__ftp_binary__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	212 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	213 @deftypefn {} {} __ftp_binary__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	214 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	215 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	216 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	217 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	218
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	219 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	220
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	221 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	222 error ("__ftp_binary__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	223
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	224 url_xfer.binary ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	225
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	226 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	227 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	228
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	229 DEFMETHOD (__ftp_close__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	230 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	231 @deftypefn {} {} __ftp_close__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	232 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	233 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	234 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	235 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	236
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	237 octave::url_handle h = uhm.lookup (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	238
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	239 if (! h.ok ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	240 error ("__ftp_close__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	241
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	242 uhm.free (h);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	243
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	244 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	245 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	246
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	247 DEFMETHOD (__ftp_mode__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	248 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	249 @deftypefn {} {} __ftp_mode__ (@var{handle})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	250 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	251 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	252 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	253 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	254
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	255 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	256
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	257 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	258 error ("__ftp_binary__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	259
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	260 return ovl (url_xfer.is_ascii () ? "ascii" : "binary");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	261 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	262
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	263 DEFMETHOD (__ftp_delete__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	264 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	265 @deftypefn {} {} __ftp_delete__ (@var{handle}, @var{path})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	266 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	267 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	268 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	269 std::string file = args(1).xstring_value ("__ftp_delete__: FILE must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	270
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	271 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	272
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	273 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	274
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	275 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	276 error ("__ftp_delete__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	277
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	278 url_xfer.del (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	279
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	280 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	281 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	282
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	283 DEFMETHOD (__ftp_rmdir__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	284 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	285 @deftypefn {} {} __ftp_rmdir__ (@var{handle}, @var{path})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	286 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	287 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	288 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	289 std::string dir = args(1).xstring_value ("__ftp_rmdir__: DIR must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	290
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	291 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	292
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	293 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	294
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	295 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	296 error ("__ftp_rmdir__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	297
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	298 url_xfer.rmdir (dir);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	299
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	300 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	301 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	302
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	303 DEFMETHOD (__ftp_mkdir__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	304 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	305 @deftypefn {} {} __ftp_mkdir__ (@var{handle}, @var{path})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	306 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	307 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	308 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	309 std::string dir = args(1).xstring_value ("__ftp_mkdir__: DIR must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	310
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	311 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	312
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	313 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	314
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	315 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	316 error ("__ftp_mkdir__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	317
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	318 url_xfer.mkdir (dir);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	319
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	320 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	321 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	322
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	323 DEFMETHOD (__ftp_rename__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	324 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	325 @deftypefn {} {} __ftp_rename__ (@var{handle}, @var{path})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	326 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	327 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	328 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	329 std::string oldname = args(1).xstring_value ("__ftp_rename__: OLDNAME must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	330 std::string newname = args(2).xstring_value ("__ftp_rename__: NEWNAME must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	331
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	332 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	333
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	334 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	335
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	336 if (url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	337 error ("__ftp_rename__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	338
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	339 url_xfer.rename (oldname, newname);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	340
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	341 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	342 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	343
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	344 DEFMETHOD (__ftp_mput__, interp, args, nargout,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	345 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	346 @deftypefn {} {} __ftp_mput__ (@var{handle}, @var{files})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	347 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	348 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	349 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	350 std::string pat = args(1).xstring_value ("__ftp_mput__: PATTERN must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	351
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	352 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	353
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	354 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	355
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	356 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	357 error ("__ftp_mput__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	358
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	359 string_vector file_list;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	360
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	361 glob_match pattern (octave::sys::file_ops::tilde_expand (pat));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	362 string_vector files = pattern.glob ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	363
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	364 for (octave_idx_type i = 0; i < files.numel (); i++)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	365 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	366 std::string file = files(i);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	367
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	368 octave::sys::file_stat fs (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	369
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	370 if (! fs.exists ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	371 error ("__ftp__mput: file does not exist");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	372
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	373 if (fs.is_dir ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	374 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	375 file_list.append (url_xfer.mput_directory ("", file));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	376
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	377 if (! url_xfer.good ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	378 error ("__ftp_mput__: %s", url_xfer.lasterror ().c_str ());
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	379 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	380 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	381 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	382 // FIXME: Does ascii mode need to be flagged here?
28693 2bb050267d74 maint: Remove trailing spaces from code base. Rik <rik@octave.org> parents: 28467 diff changeset	383 std::ifstream ifile =
28467 159b6a1eb408 Use wide character overload to open file streams on Windows. Markus Mützel <markus.muetzel@gmx.de> parents: 27985 diff changeset	384 octave::sys::ifstream (file.c_str (),
159b6a1eb408 Use wide character overload to open file streams on Windows. Markus Mützel <markus.muetzel@gmx.de> parents: 27985 diff changeset	385 std::ios::in \| std::ios::binary);
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	386
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	387 if (! ifile.is_open ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	388 error ("__ftp_mput__: unable to open file");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	389
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	390 url_xfer.put (file, ifile);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	391
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	392 ifile.close ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	393
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	394 if (! url_xfer.good ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	395 error ("__ftp_mput__: %s", url_xfer.lasterror ().c_str ());
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	396
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	397 file_list.append (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	398 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	399 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	400
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	401 if (nargout > 0)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	402 return ovl (file_list);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	403 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	404 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	405 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	406
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	407 DEFMETHOD (__ftp_mget__, interp, args, ,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	408 doc: /* -- texinfo --
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	409 @deftypefn {} {} __ftp_mget__ (@var{handle}, @var{pattern})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	410 @deftypefnx {} {} __ftp_mget__ (@var{handle}, @var{pattern}, @var{target})
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	411 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	412 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	413 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	414 int nargin = args.length ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	415
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	416 std::string file = args(1).xstring_value ("__ftp_mget__: PATTERN must be a string");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	417
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	418 std::string target;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	419
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	420 if (nargin == 3 && ! args(2).isempty ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	421 target = args(2).xstring_value ("__ftp_mget__: TARGET must be a string")
27932 b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	422 + octave::sys::file_ops::dir_sep_str ();
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	423
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	424 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	425
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	426 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	427
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	428 if (! url_xfer.is_valid ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	429 error ("__ftp_mget__: invalid ftp handle");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	430
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	431 string_vector sv = url_xfer.list ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	432 octave_idx_type n = 0;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	433 glob_match pattern (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	434
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	435 for (octave_idx_type i = 0; i < sv.numel (); i++)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	436 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	437 if (pattern.match (sv(i)))
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	438 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	439 n++;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	440
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	441 time_t ftime;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	442 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	443 double fsize;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	444
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	445 url_xfer.get_fileinfo (sv(i), fsize, ftime, fisdir);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	446
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	447 if (fisdir)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	448 url_xfer.mget_directory (sv(i), target);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	449 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	450 {
28467 159b6a1eb408 Use wide character overload to open file streams on Windows. Markus Mützel <markus.muetzel@gmx.de> parents: 27985 diff changeset	451 std::ofstream ofile =
159b6a1eb408 Use wide character overload to open file streams on Windows. Markus Mützel <markus.muetzel@gmx.de> parents: 27985 diff changeset	452 octave::sys::ofstream ((target + sv(i)).c_str (),
159b6a1eb408 Use wide character overload to open file streams on Windows. Markus Mützel <markus.muetzel@gmx.de> parents: 27985 diff changeset	453 std::ios::out \| std::ios::binary);
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	454
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	455 if (! ofile.is_open ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	456 error ("__ftp_mget__: unable to open file");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	457
29253 28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 28693 diff changeset	458 int(*unlink_fptr)(const std::string&) = octave::sys::unlink;
28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 28693 diff changeset	459 octave::unwind_action_safe delete_file
28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 28693 diff changeset	460 (unlink_fptr, target + sv(i));
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	461
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	462 url_xfer.get (sv(i), ofile);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	463
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	464 ofile.close ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	465
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	466 if (url_xfer.good ())
29299 20092ae957da Add discard() as an alias for set() for unwind_actions. Rik <rik@octave.org> parents: 29253 diff changeset	467 delete_file.discard ();
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	468 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	469
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	470 if (! url_xfer.good ())
29528 bb64fc1ef1ab __ftp__.cc: Remove number of input argument checks from internal functions. Rik <rik@octave.org> parents: 29359 diff changeset	471 error ("__ftp_mget__: %s", url_xfer.lasterror ().c_str ());
27357 9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	472 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	473 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	474
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	475 if (n == 0)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	476 error ("__ftp_mget__: file not found");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	477
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	478 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. Kai T. Ohlhus <k.ohlhus@gmail.com> parents: diff changeset	479 }

Mercurial > octave

annotate libinterp/corefcn/__ftp__.cc @ 29528:bb64fc1ef1ab

annotate libinterp/corefcn/ftp.cc @ 29528:bb64fc1ef1ab