Mercurial > octave
annotate libinterp/corefcn/__ftp__.cc @ 31225:3eab70385569
sparse-xpow.cc: Use faster multiplication technique, this time for complex
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Sun, 11 Sep 2022 13:53:38 -0400 |
parents | 32d2b6604a9f |
children | 23520a50d74d |
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 // |
30564
796f54d4ddbf
update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents:
29961
diff
changeset
|
3 // Copyright (C) 2006-2022 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 -*- |
30888
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
85 @deftypefn {} {@var{pwd} =} __ftp_pwd__ (@var{handle}) |
27357
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 -*- |
30888
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
125 @deftypefn {} {} __ftp_dir__ (@var{handle}) |
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
126 @deftypefnx {} {@var{S} =} __ftp_dir__ (@var{handle}) |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
127 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
|
128 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
129 { |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
130 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
|
131 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
132 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
|
133 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
134 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
|
135 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
|
136 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
137 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
|
138 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
139 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
|
140 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
|
141 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
142 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
143 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
|
144 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
|
145 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
146 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
|
147 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
148 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
|
149 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
150 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
|
151 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
|
152 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
|
153 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
|
154 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
|
155 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
156 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
|
157 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
158 else |
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 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
|
161 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
162 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
|
163 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
|
164 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
|
165 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
|
166 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
167 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
|
168 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
169 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
|
170 { |
30826
243b51ec9ff0
Remove `time_t` from API (bug #61821).
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
171 OCTAVE_TIME_T ftime; |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
172 bool fisdir; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
173 double fsize; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
174 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
175 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
|
176 |
29528
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
177 fileisdir(i) = fisdir; |
30826
243b51ec9ff0
Remove `time_t` from API (bug #61821).
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
178 time_t ftime_t = ftime; |
243b51ec9ff0
Remove `time_t` from API (bug #61821).
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
179 filectime(i) = ctime (&ftime_t); |
29528
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
180 filesize(i) = fsize; |
bb64fc1ef1ab
__ftp__.cc: Remove number of input argument checks from internal functions.
Rik <rik@octave.org>
parents:
29359
diff
changeset
|
181 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
|
182 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
183 |
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 ("date", filectime); |
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 ("bytes", filesize); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
186 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
|
187 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
|
188 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
189 retval = st; |
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 } |
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 return retval; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
194 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
195 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
196 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
|
197 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
198 @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
|
199 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
|
200 @end deftypefn */) |
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_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
|
203 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
204 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
|
205 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
206 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
|
207 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
|
208 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
209 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
|
210 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
211 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
212 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
213 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
214 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
|
215 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
216 @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
|
217 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
|
218 @end deftypefn */) |
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_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
|
221 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
222 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
|
223 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
224 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
|
225 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
|
226 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
227 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
|
228 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
229 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
230 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
231 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
232 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
|
233 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
234 @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
|
235 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
|
236 @end deftypefn */) |
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_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
|
239 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
240 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
|
241 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
242 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
|
243 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
|
244 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
245 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
|
246 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
247 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
248 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
249 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
250 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
|
251 doc: /* -*- texinfo -*- |
30888
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
252 @deftypefn {} {@var{mode} =} __ftp_mode__ (@var{handle}) |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
253 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
|
254 @end deftypefn */) |
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_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
|
257 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
258 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
|
259 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
260 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
|
261 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
|
262 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
263 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
|
264 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
265 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
266 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
|
267 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
268 @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
|
269 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
|
270 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
271 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
272 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
|
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_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
|
275 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
276 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
|
277 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
278 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
|
279 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
|
280 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
281 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
|
282 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
283 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
284 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
285 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
286 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
|
287 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
288 @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
|
289 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
|
290 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
291 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
292 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
|
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_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
|
295 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
296 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
|
297 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
298 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
|
299 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
|
300 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
301 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
|
302 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
303 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
304 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
305 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
306 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
|
307 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
308 @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
|
309 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
|
310 @end deftypefn */) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
311 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
312 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
|
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_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
|
315 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
316 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
|
317 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
318 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
|
319 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
|
320 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
321 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
|
322 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
323 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
324 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
325 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
326 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
|
327 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
328 @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
|
329 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
|
330 @end deftypefn */) |
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 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
|
333 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
|
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_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
|
336 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
337 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
|
338 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
339 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
|
340 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
|
341 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
342 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
|
343 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
344 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
345 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
346 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
347 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
|
348 doc: /* -*- texinfo -*- |
30888
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
349 @deftypefn {} {} __ftp_mput__ (@var{handle}, @var{files}) |
32d2b6604a9f
doc: Ensure documentation lists output argument when it exists for functions in libinterp/
Rik <rik@octave.org>
parents:
30826
diff
changeset
|
350 @deftypefnx {} {@var{filelist} =} __ftp_mput__ (@var{handle}, @var{files}) |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
351 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
|
352 @end deftypefn */) |
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 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
|
355 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
356 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
|
357 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
358 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
|
359 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
360 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
|
361 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
|
362 |
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 file_list; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
364 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
365 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
|
366 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
|
367 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
368 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
|
369 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
370 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
|
371 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
372 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
|
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.exists ()) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
375 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
|
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 (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
|
378 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
379 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
|
380 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
381 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
|
382 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
|
383 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
384 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
385 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
386 // 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
|
387 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
|
388 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
|
389 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
|
390 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
391 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
|
392 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
|
393 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
394 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
|
395 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
396 ifile.close (); |
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 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
|
399 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
|
400 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
401 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
|
402 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
403 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
404 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
405 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
|
406 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
|
407 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
408 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
409 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
410 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
411 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
|
412 doc: /* -*- texinfo -*- |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
413 @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
|
414 @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
|
415 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
|
416 @end deftypefn */) |
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 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
|
419 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
420 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
|
421 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
422 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
|
423 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
424 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
|
425 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
|
426 + 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
|
427 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
428 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
|
429 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
430 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
|
431 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
432 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
|
433 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
|
434 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
435 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
|
436 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
|
437 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
|
438 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
439 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
|
440 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
441 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
|
442 { |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
443 n++; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
444 |
30826
243b51ec9ff0
Remove `time_t` from API (bug #61821).
Markus Mützel <markus.muetzel@gmx.de>
parents:
30564
diff
changeset
|
445 OCTAVE_TIME_T ftime; |
27357
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
446 bool fisdir; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
447 double fsize; |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
448 |
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.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
|
450 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
451 if (fisdir) |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
452 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
|
453 else |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
454 { |
28467
159b6a1eb408
Use wide character overload to open file streams on Windows.
Markus Mützel <markus.muetzel@gmx.de>
parents:
27985
diff
changeset
|
455 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
|
456 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
|
457 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
|
458 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
459 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
|
460 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
|
461 |
29961
7d6709900da7
eliminate octave:: namespace tags in DEFUN and DEFMETHOD and more
John W. Eaton <jwe@octave.org>
parents:
29958
diff
changeset
|
462 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
|
463 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
|
464 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
465 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
|
466 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
467 ofile.close (); |
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 if (url_xfer.good ()) |
29299
20092ae957da
Add discard() as an alias for set() for unwind_actions.
Rik <rik@octave.org>
parents:
29253
diff
changeset
|
470 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
|
471 } |
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 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
|
474 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
|
475 } |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
476 } |
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 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
|
479 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
|
480 |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
481 return ovl (); |
9c4d0ff7fbab
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff
changeset
|
482 } |
29958
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
483 |
32c3a5805893
move DEFUN and DEFMETHOD functions inside octave namespace
John W. Eaton <jwe@octave.org>
parents:
29528
diff
changeset
|
484 OCTAVE_NAMESPACE_END |