Mercurial > octave

annotate libinterp/corefcn/__ftp__.cc @ 27919:1891570abac8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2020.
author John W. Eaton <jwe@octave.org>
date Mon, 06 Jan 2020 22:29:51 -0500
parents b442ec6dda5c
children bd51beb6205e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27357
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
1 /*
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
2
27919
1891570abac8 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 27918
diff changeset
3 Copyright (C) 2006-2020 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27357
diff changeset
4
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27357
diff changeset
5 See the file COPYRIGHT.md in the top-level directory of this distribution
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27357
diff changeset
6 or <https://octave.org/COPYRIGHT.html/>.
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 27357
diff changeset
7
27357
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
8
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
9 This file is part of Octave.
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
10
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
11 Octave is free software: you can redistribute it and/or modify it
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
12 under the terms of the GNU General Public License as published by
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
13 the Free Software Foundation, either version 3 of the License, or
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
14 (at your option) any later version.
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
15
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
16 Octave is distributed in the hope that it will be useful, but
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
17 WITHOUT ANY WARRANTY; without even the implied warranty of
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
19 GNU General Public License for more details.
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
20
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
21 You should have received a copy of the GNU General Public License
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
22 along with Octave; see the file COPYING. If not, see
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
23 <https://www.gnu.org/licenses/>.
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
24
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
27 // Author: Alexander Barth <abarth@marine.usf.edu>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
28 // Adapted-By: jwe
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 #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
31 # 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
32 #endif
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 <string>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
35 #include <fstream>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
36 #include <iomanip>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
37
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
38 #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
39 #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
40 #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
41 #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
42 #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
43 #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
44 #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
45 #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
46
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
47 #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
48 #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
49 #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
50 #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
51 #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
52 #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
53 #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
54 #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
55 #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
56 #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
57 #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
58
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
59 static void
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
60 delete_file (const std::string& file)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
61 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
62 octave::sys::unlink (file);
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
65 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
66 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
67 @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
68 @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
69 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
70 @end deftypefn */)
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 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
73
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
74 if (nargin < 1 || nargin > 3)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
75 print_usage ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
76
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
77 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
78
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
79 std::string user = (nargin > 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
80 ? args(1).xstring_value ("__ftp__: USER 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
81 : "anonymous";
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 std::string passwd = (nargin > 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
84 ? args(2).xstring_value ("__ftp__: PASSWD 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
85 : "";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
86
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
87 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
88
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
89 octave::url_handle uh = uhm.make_url_handle (host, user, passwd,
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
90 octave_stdout);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
91
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
92 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
93 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
94
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
95 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
96 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
97 @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
98 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
99 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
100 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
101 if (args.length () != 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
102 error ("__ftp_pwd__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
103
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
104 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
105
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
106 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
107
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
108 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
109 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
110
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
111 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
112 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
113
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
114 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
115 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
116 @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
117 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
118 @end deftypefn */)
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 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
121
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
122 if (nargin != 1 && nargin != 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
123 error ("__ftp_cwd__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
124
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
125 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
126 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
127 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
128
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
129 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
130
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
131 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
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_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
135
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
136 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
137
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
138 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
139 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
140
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
141 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
142 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
143 @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
144 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
145 @end deftypefn */)
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 if (args.length () != 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
148 error ("__ftp_dir__: incorrect number of arguments");
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 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
151
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
152 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
153
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
154 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
155 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
156
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
157 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
158
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
159 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
160 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
161 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
162 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
163 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
164 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
165
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
166 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
167 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
168 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
169
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
170 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
171 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
172 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
173 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
174 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
175
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
176 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
177 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
178 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
179 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
180 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
181
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
182 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
183 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
184 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
185 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
186
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 ("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
188
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
189 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
190 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
191 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
192 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
193 double fsize;
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 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
196
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
197 fileisdir (i) = fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
198 filectime (i) = ctime (&ftime);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
199 filesize (i) = fsize;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
200 filedatenum (i) = double (ftime);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
201 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
202
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
203 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
204 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
205 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
206 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
207
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
208 retval = st;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
209 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
210 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
211
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
212 return retval;
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
215 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
216 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
217 @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
218 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
219 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
220 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
221 if (args.length () != 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
222 error ("__ftp_ascii__: incorrect number of arguments");
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 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
225
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
226 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
227
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
228 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
229 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
230
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
231 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
232
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
233 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
234 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
235
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
236 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
237 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
238 @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
239 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
240 @end deftypefn */)
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 (args.length () != 1)
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_binary__: incorrect number of arguments");
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 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
246
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
247 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
248
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
249 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
250 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
251
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
252 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
253
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
254 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
255 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
256
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
257 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
258 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
259 @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
260 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
261 @end deftypefn */)
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 if (args.length () != 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
264 error ("__ftp_close__: incorrect number of arguments");
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 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
267
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
268 octave::url_handle h = uhm.lookup (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
269
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
270 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
271 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
272
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
273 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
274
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
275 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
276 }
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 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
279 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
280 @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
281 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
282 @end deftypefn */)
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 if (args.length () != 1)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
285 error ("__ftp_mode__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
286
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
287 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
288
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
289 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
290
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
291 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
292 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
293
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
294 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
295 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
296
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
297 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
298 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
299 @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
300 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
301 @end deftypefn */)
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 if (args.length () != 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
304 error ("__ftp_delete__: incorrect number of arguments");
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 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
307
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
308 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
309
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
310 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
311
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
312 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
313 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
314
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
315 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
316
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
317 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
320 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
321 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
322 @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
323 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
324 @end deftypefn */)
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 if (args.length () != 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
327 error ("__ftp_rmdir__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
328
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
329 std::string 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
330
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
331 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
332
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
333 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
334
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
335 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
336 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
337
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
338 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
339
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
340 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
343 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
344 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
345 @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
346 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
347 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
348 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
349 if (args.length () != 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
350 error ("__ftp_mkdir__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
351
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
352 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
353
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
354 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
355
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
356 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
357
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
358 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
359 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
360
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
361 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
362
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
363 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
366 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
367 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
368 @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
369 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
370 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
371 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
372 if (args.length () != 3)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
373 error ("__ftp_rename__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
374
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
375 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
376 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
377
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
378 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
379
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
380 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
381
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
382 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
383 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
384
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
385 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
386
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
387 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
388 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
389
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
390 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
391 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
392 @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
393 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
394 @end deftypefn */)
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 if (args.length () != 2)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
397 error ("__ftp_mput__: incorrect number of arguments");
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
398
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
399 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
400
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
401 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
402
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
403 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
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 (! 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
406 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
407
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
408 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
409
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
410 glob_match pattern (octave::sys::file_ops::tilde_expand (pat));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
411 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
412
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
413 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
414 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
415 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
416
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
417 octave::sys::file_stat fs (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
418
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
419 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
420 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
421
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
422 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
423 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
424 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
425
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
426 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
427 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
428 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
429 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
430 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
431 std::string ascii_fname = octave::sys::get_ASCII_filename (file);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
432
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
433 // FIXME: Does ascii mode need to be flagged here?
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
434 std::ifstream ifile (ascii_fname.c_str (),
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
435 std::ios::in | std::ios::binary);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
436
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
437 if (! 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
438 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
439
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
440 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
441
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
442 ifile.close ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
443
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
444 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
445 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
446
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
447 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
448 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
449 }
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 (nargout > 0)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
452 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
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 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
457 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
458 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
459 @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
460 @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
461 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
462 @end deftypefn */)
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 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
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 (nargin != 2 && nargin != 3)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
467 error ("__ftp_mget__: incorrect number of arguments");
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 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
470
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
471 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
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 (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
474 target = args(2).xstring_value ("__ftp_mget__: TARGET 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
475 + octave::sys::file_ops::dir_sep_str ();
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 octave::url_handle_manager& uhm = interp.get_url_handle_manager ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
478
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
479 octave::url_transfer url_xfer = uhm.get_object (args(0));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
480
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
481 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
482 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
483
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
484 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
485 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
486 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
487
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
488 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
489 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
490 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
491 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
492 n++;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
493
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
494 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
495 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
496 double fsize;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
497
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
498 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
499
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
500 if (fisdir)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
501 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
502 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
503 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
504 std::ofstream ofile ((target + sv(i)).c_str (),
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
505 std::ios::out |
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
506 std::ios::binary);
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
507
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
508 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
509 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
510
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
511 octave::unwind_protect_safe frame;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
512
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
513 frame.add_fcn (delete_file, target + sv(i));
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
514
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
515 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
516
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
517 ofile.close ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
518
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
519 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
520 frame.discard ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
521 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
522
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
523 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
524 error ("__ftp_mget__: %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
525 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
526 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
527
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
528 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
529 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
530
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
531 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
532 }