Mercurial > octave

annotate libinterp/corefcn/__ftp__.cc @ 27357:9c4d0ff7fbab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Extract FTP code from urlwrite.cc to __ftp__.cc for clarity. * libinterp/corefcn/urlwrite.cc: Extract FTP related functions. * libinterp/corefcn/__ftp__.cc: New file containing FTP related functions. * libinterp/corefcn/module.mk: Add __ftp__.cc to build system.
author Kai T. Ohlhus <k.ohlhus@gmail.com>
date Fri, 23 Aug 2019 14:47:48 +0900
parents
children b442ec6dda5c
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
3 Copyright (C) 2006-2019 Alexander Barth
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
4 Copyright (C) 2009 David Bateman
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
5
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
6 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
7
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
8 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
9 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
10 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
11 (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
12
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
13 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
14 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
15 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
16 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
17
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
18 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
19 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
20 <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
21
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
22 */
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
23
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
24 // 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
25 // 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
26
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
27 #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
28 # 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
29 #endif
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
30
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
31 #include <string>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
32 #include <fstream>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
33 #include <iomanip>
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
34
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
35 #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
36 #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
37 #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
38 #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
39 #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
40 #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
41 #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
42 #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
43
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
44 #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
45 #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
46 #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
47 #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
48 #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
49 #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
50 #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
51 #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
52 #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
53 #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
54 #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
55
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
56 static void
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
57 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
58 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
59 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
60 }
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 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
63 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
64 @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
65 @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
66 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
67 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
68 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
69 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
70
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
71 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
72 print_usage ();
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 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
75
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
76 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
77 ? 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
78 : "anonymous";
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 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
81 ? 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
82 : "";
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
83
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
84 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
85
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
86 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
87 octave_stdout);
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 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
90 }
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 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
93 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
94 @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
95 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
96 @end deftypefn */)
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 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
99 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
100
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
101 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
102
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
103 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
104
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
105 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
106 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
107
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
108 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
109 }
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 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
112 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
113 @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
114 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
115 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
116 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
117 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
118
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
119 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
120 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
121
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
122 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
123 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
124 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
125
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
126 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
127
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
128 octave::url_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
129
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
130 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
131 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
132
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
133 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
134
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
135 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
138 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
139 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
140 @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
141 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
142 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
143 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
144 if (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
145 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
146
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
147 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
148
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
149 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
150
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
151 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
152 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
153
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
154 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
155
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
156 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
157 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
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 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
161 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
162
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
163 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
164 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
165 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
166
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
167 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
168 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
169 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
170 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
171 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
172
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
173 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
174 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
175 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
176 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
177 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
178
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
179 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
180 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
181 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
182 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
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 ("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
185
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
186 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
187 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
188 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
189 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
190 double fsize;
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 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
193
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
194 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
195 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
196 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
197 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
198 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
199
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
200 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
201 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
202 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
203 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
204
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
205 retval = st;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
206 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
207 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
208
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
209 return retval;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
210 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
211
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
212 DEFMETHOD (__ftp_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
213 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
214 @deftypefn {} {} __ftp_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
215 Undocumented internal function
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
216 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
217 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
218 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
219 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
220
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
221 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
222
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
223 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
224
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
225 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
226 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
227
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
228 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
229
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
230 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
233 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
234 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
235 @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
236 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
237 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
238 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
239 if (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
240 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
241
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
242 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
243
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
244 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
245
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
246 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
247 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
248
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
249 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
250
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
251 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
252 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
253
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
254 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
255 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
256 @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
257 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
258 @end deftypefn */)
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 (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
261 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
262
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
263 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
264
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
265 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
266
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
267 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
268 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
269
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
270 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
271
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
272 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
273 }
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 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
276 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
277 @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
278 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
279 @end deftypefn */)
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 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
282 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
283
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
284 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
285
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
286 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
287
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
288 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
289 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
290
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
291 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
292 }
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 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
295 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
296 @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
297 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
298 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
299 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
300 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
301 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
302
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
303 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
304
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
305 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
306
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
307 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
308
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
309 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
310 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
311
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
312 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
313
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
314 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
315 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
316
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
317 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
318 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
319 @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
320 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
321 @end deftypefn */)
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 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
324 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
325
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
326 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
327
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
328 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
329
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
330 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
331
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
332 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
333 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
334
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
335 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
336
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
337 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
340 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
341 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
342 @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
343 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
344 @end deftypefn */)
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 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
347 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
348
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
349 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
350
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
351 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
352
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
353 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
354
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
355 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
356 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
357
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
358 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
359
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
360 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
361 }
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 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
364 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
365 @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
366 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
367 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
368 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
369 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
370 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
371
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
372 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
373 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
374
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
375 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
376
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
377 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
378
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
379 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
380 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
381
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
382 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
383
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
384 return ovl ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
387 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
388 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
389 @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
390 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
391 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
392 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
393 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
394 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
395
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
396 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
397
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
398 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
399
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
400 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
401
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
402 if (! 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
403 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
404
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
405 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
406
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
407 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
408 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
409
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
410 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
411 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
412 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
413
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
414 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
415
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
416 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
417 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
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.is_dir ())
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
420 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
421 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
422
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
423 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
424 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
425 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
426 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
427 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
428 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
429
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
430 // 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
431 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
432 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
433
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
434 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
435 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
436
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
437 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
438
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
439 ifile.close ();
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 (! 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
442 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
443
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
444 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
445 }
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
448 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
449 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
450 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
451 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
452 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
453
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
454 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
455 doc: /* -*- texinfo -*-
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
456 @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
457 @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
458 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
459 @end deftypefn */)
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
460 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
461 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
462
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
463 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
464 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
465
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
466 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
467
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
468 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
469
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
470 if (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
471 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
472 + 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
473
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
474 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
475
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
476 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
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 (! 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
479 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
480
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
481 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
482 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
483 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
484
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
485 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
486 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
487 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
488 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
489 n++;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
490
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
491 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
492 bool fisdir;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
493 double fsize;
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
494
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
495 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
496
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
497 if (fisdir)
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.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
499 else
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
500 {
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
501 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
502 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
503 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
504
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
505 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
506 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
507
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
508 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
509
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
510 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
511
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
512 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
513
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
514 ofile.close ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
515
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
516 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
517 frame.discard ();
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
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
520 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
521 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
522 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
523 }
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
524
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
525 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
526 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
527
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
528 return ovl ();
9c4d0ff7fbab Extract FTP code from urlwrite.cc to __ftp__.cc for clarity.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
529 }