Mercurial > octave
annotate libinterp/corefcn/__ftp__.cc @ 29961:7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
Files affected: __betainc__.cc, __contourc__.cc, __eigs__.cc,
__expint__.cc, __ftp__.cc, __gammainc__.cc, __ichol__.cc, __ilu__.cc,
__magick_read__.cc, __pchip_deriv__.cc, __qp__.cc, amd.cc, balance.cc,
besselj.cc, bsxfun.cc, call-stack.cc, ccolamd.cc, cellfun.cc, chol.cc,
colamd.cc, colloc.cc, conv2.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc,
defaults.cc, dirfns.cc, display.cc, dlmread.cc, dmperm.cc, dot.cc,
eig.cc, ellipj.cc, environment.cc, error.cc, event-manager.cc, fft.cc,
fft2.cc, fftn.cc, file-io.cc, find.cc, gcd.cc, getgrent.cc,
getpwent.cc, getrusage.cc, gsvd.cc, hash.cc, help.cc, hess.cc,
hex2num.cc, input.cc, inv.cc, jsondecode.cc, jsonencode.cc,
load-path.cc, load-save.cc, lookup.cc, lsode.cc, lu.cc, max.cc,
mgorth.cc, oct-hist.cc, ordqz.cc, ordschur.cc, pager.cc, pr-output.cc,
psi.cc, qr.cc, quad.cc, quadcc.cc, qz.cc, rand.cc, regexp.cc,
schur.cc, settings.cc, sighandlers.cc, sparse.cc, spparms.cc,
sqrtm.cc, stream-euler.cc, strfind.cc, strfns.cc, sub2ind.cc, svd.cc,
symbfact.cc, symtab.cc, syscalls.cc, sysdep.cc, time.cc, toplev.cc,
tril.cc, typecast.cc, urlwrite.cc, utils.cc, variables.cc,
__delaunayn__.cc, __fltk_uigetfile__.cc, __glpk__.cc,
__init_gnuplot__.cc, __ode15__.cc, __voronoi__.cc, audiodevinfo.cc,
audioread.cc, convhulln.cc, fftw.cc, gzip.cc, ov-cell.cc, ov-class.cc,
ov-classdef.cc, ov-fcn-handle.cc, ov-struct.cc, ov-typeinfo.cc,
ov-usr-fcn.cc, octave.cc, lex.ll, oct-parse.yy, profiler.cc,
andpt-eval.cc.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 14 Aug 2021 22:48:52 -0400 |
parents | 32c3a5805893 |
children | 796f54d4ddbf |
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 |
29958
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
55 OCTAVE_NAMESPACE_BEGIN |
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
56 |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
57 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
|
58 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
59 @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
|
60 @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
|
61 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
|
62 @end deftypefn */) |
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 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
|
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 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
|
67 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
68 std::string user = (nargin > 1) |
27932
b018f553fd85
maint: Use Octave coding conventions in libinterp/
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
69 ? 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
|
70 : "anonymous"; |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
71 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
72 std::string passwd = (nargin > 2) |
27932
b018f553fd85
maint: Use Octave coding conventions in libinterp/
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
73 ? 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
|
74 : ""; |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
75 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
76 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
77 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
78 url_handle uh = uhm.make_url_handle (host, user, passwd, octave_stdout); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
79 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
80 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
|
81 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
82 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
83 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
|
84 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
85 @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
|
86 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
|
87 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
88 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
89 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
90 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
91 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
92 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
93 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
|
94 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
|
95 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
96 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
|
97 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
98 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
99 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
|
100 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
101 @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
|
102 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
|
103 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
104 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
105 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
|
106 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
107 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
|
108 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
|
109 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
|
110 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
111 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
112 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
113 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
114 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
115 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
|
116 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
|
117 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
118 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
|
119 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
120 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
123 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
|
124 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
125 @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
|
126 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
|
127 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
128 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
129 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
130 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
131 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
132 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
133 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
|
134 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
|
135 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
136 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
|
137 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
138 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
|
139 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
|
140 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
141 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
142 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
|
143 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
|
144 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
145 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
|
146 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
147 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
|
148 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
149 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
|
150 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
|
151 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
|
152 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
|
153 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
|
154 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
155 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
|
156 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
157 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
158 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
159 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
|
160 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
161 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
|
162 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
|
163 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
|
164 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
|
165 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
166 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
|
167 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
168 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
|
169 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
170 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
|
171 bool fisdir; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
172 double fsize; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
173 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
174 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
|
175 |
29528
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
176 fileisdir(i) = fisdir; |
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
177 filectime(i) = ctime (&ftime); |
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
178 filesize(i) = fsize; |
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
179 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
|
180 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
181 |
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 ("date", filectime); |
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 ("bytes", filesize); |
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 ("isdir", fileisdir); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
185 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
|
186 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
187 retval = st; |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
191 return retval; |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
194 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
|
195 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
196 @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
|
197 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
|
198 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
199 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
200 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
201 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
202 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
203 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
204 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
|
205 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
|
206 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
207 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
|
208 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
209 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
212 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
|
213 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
214 @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
|
215 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
|
216 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
217 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
218 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
219 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
220 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
221 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
222 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
|
223 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
|
224 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
225 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
|
226 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
227 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
230 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
|
231 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
232 @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
|
233 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
|
234 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
235 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
236 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
237 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
238 url_handle h = uhm.lookup (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
239 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
240 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
|
241 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
|
242 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
243 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
|
244 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
245 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
248 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
|
249 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
250 @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
|
251 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
|
252 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
253 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
254 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
255 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
256 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
257 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
258 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
|
259 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
|
260 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
261 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
|
262 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
263 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
264 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
|
265 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
266 @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
|
267 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
|
268 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
269 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
270 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
|
271 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
272 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
273 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
274 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
275 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
276 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
|
277 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
|
278 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
279 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
|
280 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
281 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
284 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
|
285 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
286 @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
|
287 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
|
288 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
289 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
290 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
|
291 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
292 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
293 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
294 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
295 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
296 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
|
297 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
|
298 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
299 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
|
300 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
301 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
304 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
|
305 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
306 @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
|
307 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
|
308 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
309 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
310 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
|
311 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
312 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
313 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
314 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
315 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
316 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
|
317 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
|
318 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
319 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
|
320 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
321 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
324 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
|
325 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
326 @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
|
327 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
|
328 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
329 { |
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 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
|
331 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
|
332 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
333 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
334 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
335 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
336 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
337 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
|
338 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
|
339 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
340 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
|
341 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
342 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
345 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
|
346 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
347 @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
|
348 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
|
349 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
350 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
351 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
|
352 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
353 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
354 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
355 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
356 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
357 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
|
358 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
|
359 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
360 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
|
361 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
362 glob_match pattern (sys::file_ops::tilde_expand (pat)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
363 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
|
364 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
365 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
|
366 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
367 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
|
368 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
369 sys::file_stat fs (file); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
370 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
371 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
|
372 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
|
373 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
374 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
|
375 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
376 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
|
377 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
378 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
|
379 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
|
380 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
381 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
382 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
383 // 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
|
384 std::ifstream ifile = |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
385 sys::ifstream (file.c_str (), |
28467
159b6a1eb408
Use wide character overload to open file streams on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents:
27985
diff
changeset
|
386 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
|
387 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
388 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
|
389 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
|
390 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
391 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
|
392 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
393 ifile.close (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
394 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
395 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
|
396 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
|
397 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
398 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
|
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
402 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
|
403 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
|
404 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
405 return ovl (); |
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 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
408 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
|
409 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
410 @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
|
411 @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
|
412 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
|
413 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
414 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
415 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
|
416 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
417 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
|
418 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
419 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
|
420 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
421 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
|
422 target = args(2).xstring_value ("__ftp_mget__: TARGET must be a string") |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
423 + 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
|
424 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
425 url_handle_manager& uhm = interp.get_url_handle_manager (); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
426 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
427 url_transfer url_xfer = uhm.get_object (args(0)); |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
428 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
429 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
|
430 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
|
431 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
432 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
|
433 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
|
434 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
|
435 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
436 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
|
437 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
438 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
|
439 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
440 n++; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
441 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
442 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
|
443 bool fisdir; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
444 double fsize; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
445 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
446 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
|
447 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
448 if (fisdir) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
449 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
|
450 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
451 { |
28467
159b6a1eb408
Use wide character overload to open file streams on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents:
27985
diff
changeset
|
452 std::ofstream ofile = |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
453 sys::ofstream ((target + sv(i)).c_str (), |
28467
159b6a1eb408
Use wide character overload to open file streams on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents:
27985
diff
changeset
|
454 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
|
455 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
456 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
|
457 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
|
458 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
459 int(*unlink_fptr)(const std::string&) = sys::unlink; |
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
460 unwind_action_safe delete_file (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 } |
29958
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
480 |
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
481 OCTAVE_NAMESPACE_END |