Mercurial > octave-nkf
annotate src/DLD-FUNCTIONS/urlwrite.cc @ 14846:460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Example: func() => func ()
* dynamic.txi, func.txi, oop.txi, var.txi, embedded.cc, fortdemo.cc,
funcdemo.cc, paramdemo.cc, stringdemo.cc, unwinddemo.cc, Array.cc, Array.h,
CColVector.cc, CDiagMatrix.h, CMatrix.cc, CNDArray.cc, CRowVector.cc,
CSparse.cc, CmplxGEPBAL.cc, EIG.cc, MSparse.cc, MatrixType.cc,
Sparse-op-defs.h, Sparse-perm-op-defs.h, Sparse.cc, Sparse.h,
SparseCmplxCHOL.cc, SparseCmplxCHOL.h, SparseCmplxLU.cc, SparseCmplxQR.cc,
SparseCmplxQR.h, SparseQR.cc, SparseQR.h, SparsedbleCHOL.cc, SparsedbleCHOL.h,
SparsedbleLU.cc, SparsedbleLU.h, base-lu.cc, cmd-hist.cc, dColVector.cc,
dDiagMatrix.h, dMatrix.cc, dNDArray.cc, dRowVector.cc, dSparse.cc, dbleCHOL.cc,
dbleGEPBAL.cc, dim-vector.cc, eigs-base.cc, f2c-main.c, fCColVector.cc,
fCDiagMatrix.h, fCMatrix.cc, fCNDArray.cc, fCRowVector.cc, fCmplxGEPBAL.cc,
fColVector.cc, fDiagMatrix.h, fEIG.cc, fMatrix.cc, fNDArray.cc, fRowVector.cc,
file-ops.cc, file-stat.cc, floatCHOL.cc, floatGEPBAL.cc, idx-vector.h,
lo-specfun.cc, lo-sysdep.cc, mx-inlines.cc, oct-binmap.h, oct-convn.cc,
oct-md5.cc, oct-mem.h, oct-rand.cc, oct-syscalls.cc, randgamma.c, randmtzig.c,
sparse-base-chol.cc, sparse-base-chol.h, sparse-base-lu.cc, sparse-dmsolve.cc,
tempname.c, curl.m, divergence.m, randi.m, dlmwrite.m, edit.m, getappdata.m,
what.m, getarchdir.m, install.m, installed_packages.m, repackage.m,
unload_packages.m, colorbar.m, figure.m, isosurface.m, legend.m, loglog.m,
plot.m, plot3.m, plotyy.m, polar.m, __errplot__.m, __ghostscript__.m,
__marching_cube__.m, __plt__.m, __scatter__.m, semilogx.m, semilogy.m,
trimesh.m, trisurf.m, demo.m, test.m, datetick.m, __delaunayn__.cc,
__dsearchn__.cc, __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc,
__lin_interpn__.cc, __magick_read__.cc, __pchip_deriv__.cc, balance.cc,
bsxfun.cc, ccolamd.cc, cellfun.cc, chol.cc, daspk.cc, dasrt.cc, dassl.cc,
dmperm.cc, eig.cc, eigs.cc, fftw.cc, filter.cc, find.cc, kron.cc, lookup.cc,
lsode.cc, matrix_type.cc, md5sum.cc, mgorth.cc, qr.cc, quad.cc, rand.cc,
regexp.cc, symbfact.cc, tril.cc, urlwrite.cc, op-bm-bm.cc, op-cdm-cdm.cc,
op-cell.cc, op-chm.cc, op-cm-cm.cc, op-cm-scm.cc, op-cm-sm.cc, op-cs-scm.cc,
op-cs-sm.cc, op-dm-dm.cc, op-dm-scm.cc, op-dm-sm.cc, op-fcdm-fcdm.cc,
op-fcm-fcm.cc, op-fdm-fdm.cc, op-fm-fm.cc, op-int.h, op-m-m.cc, op-m-scm.cc,
op-m-sm.cc, op-pm-pm.cc, op-pm-scm.cc, op-pm-sm.cc, op-range.cc, op-s-scm.cc,
op-s-sm.cc, op-sbm-sbm.cc, op-scm-cm.cc, op-scm-cs.cc, op-scm-m.cc,
op-scm-s.cc, op-scm-scm.cc, op-scm-sm.cc, op-sm-cm.cc, op-sm-cs.cc, op-sm-m.cc,
op-sm-s.cc, op-sm-scm.cc, op-sm-sm.cc, op-str-str.cc, op-struct.cc, bitfcns.cc,
data.cc, debug.cc, dynamic-ld.cc, error.cc, gl-render.cc, graphics.cc,
graphics.in.h, load-path.cc, ls-hdf5.cc, ls-mat5.cc, ls-mat5.h,
ls-oct-ascii.cc, ls-oct-ascii.h, mex.cc, mk-errno-list, oct-map.cc, oct-obj.h,
oct-parse.yy, octave-config.in.cc, ov-base-int.cc, ov-base-mat.cc, ov-base.cc,
ov-bool-mat.cc, ov-bool-sparse.cc, ov-bool.cc, ov-cell.cc, ov-class.cc,
ov-class.h, ov-cx-mat.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-flt-cx-mat.cc,
ov-flt-re-mat.cc, ov-intx.h, ov-range.h, ov-re-mat.cc, ov-re-sparse.cc,
ov-str-mat.cc, ov-struct.cc, ov-usr-fcn.h, ov.h, pr-output.cc, pt-id.cc,
pt-id.h, pt-mat.cc, pt-select.cc, sparse.cc, symtab.cc, symtab.h, syscalls.cc,
toplev.cc, txt-eng-ft.cc, variables.cc, zfstream.cc, zfstream.h, Dork.m,
getStash.m, myStash.m, Gork.m, Pork.m, myStash.m, getStash.m, myStash.m,
getStash.m, myStash.m, fntests.m: Use Octave coding convention for
cuddled parenthis in function calls with empty argument lists.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Sun, 08 Jul 2012 11:28:50 -0700 |
| parents | c267a3522d6c |
| children | 5ae9f0f77635 |
| rev | line source |
|---|---|
| 6043 | 1 // urlwrite and urlread, a curl front-end for octave |
| 2 /* | |
| 3 | |
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
14022
diff
changeset
|
4 Copyright (C) 2006-2012 Alexander Barth |
| 9880 | 5 Copyright (C) 2009 David Bateman |
| 6043 | 6 |
| 7 This file is part of Octave. | |
| 8 | |
| 9 Octave is free software; you can redistribute it and/or modify it | |
| 10 under the terms of the GNU General Public License as published by the | |
| 7016 | 11 Free Software Foundation; either version 3 of the License, or (at your |
| 12 option) any later version. | |
| 6043 | 13 |
| 14 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 17 for more details. | |
| 18 | |
| 19 You should have received a copy of the GNU General Public License | |
| 7016 | 20 along with Octave; see the file COPYING. If not, see |
| 21 <http://www.gnu.org/licenses/>. | |
| 6043 | 22 |
| 23 */ | |
| 24 | |
| 25 // Author: Alexander Barth <abarth@marine.usf.edu> | |
| 26 // Adapted-By: jwe | |
| 27 | |
| 28 #ifdef HAVE_CONFIG_H | |
| 29 #include <config.h> | |
| 30 #endif | |
| 31 | |
| 32 #include <string> | |
| 33 #include <fstream> | |
| 34 #include <iomanip> | |
| 9880 | 35 #include <iostream> |
| 6043 | 36 |
| 9880 | 37 #include "dir-ops.h" |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
38 #include "file-ops.h" |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
39 #include "file-stat.h" |
| 6043 | 40 #include "oct-env.h" |
| 9880 | 41 #include "glob-match.h" |
| 6043 | 42 |
| 43 #include "defun-dld.h" | |
| 44 #include "error.h" | |
| 45 #include "oct-obj.h" | |
| 46 #include "ov-cell.h" | |
| 47 #include "pager.h" | |
| 9880 | 48 #include "oct-map.h" |
|
13985
43cc49c7abd1
Use thread-safe atomic reference counting (GCC and MSVC).
Michael Goffioul <michael.goffioul@gmail.com>
parents:
13978
diff
changeset
|
49 #include "oct-refcount.h" |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
50 #include "unwind-prot.h" |
| 6043 | 51 |
|
9905
84a7c11ff928
Correctly compile even when libcurl is not present according to configure
Rik <rdrider0-list@yahoo.com>
parents:
9885
diff
changeset
|
52 #ifdef HAVE_CURL |
| 6043 | 53 |
| 54 #include <curl/curl.h> | |
| 9885 | 55 #include <curl/curlver.h> |
| 6043 | 56 #include <curl/easy.h> |
| 57 | |
|
14424
c267a3522d6c
Fix compilation for old versions of cURL library (bug #35649)
Mike Miller <mtmiller@ieee.org>
parents:
14360
diff
changeset
|
58 // Backwards compatibility for curl < 7.17.0 |
|
c267a3522d6c
Fix compilation for old versions of cURL library (bug #35649)
Mike Miller <mtmiller@ieee.org>
parents:
14360
diff
changeset
|
59 #if LIBCURL_VERSION_NUM < 0x071100 |
|
c267a3522d6c
Fix compilation for old versions of cURL library (bug #35649)
Mike Miller <mtmiller@ieee.org>
parents:
14360
diff
changeset
|
60 #define CURLOPT_DIRLISTONLY CURLOPT_FTPLISTONLY |
|
c267a3522d6c
Fix compilation for old versions of cURL library (bug #35649)
Mike Miller <mtmiller@ieee.org>
parents:
14360
diff
changeset
|
61 #endif |
|
c267a3522d6c
Fix compilation for old versions of cURL library (bug #35649)
Mike Miller <mtmiller@ieee.org>
parents:
14360
diff
changeset
|
62 |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
63 static int |
| 6043 | 64 write_data (void *buffer, size_t size, size_t nmemb, void *streamp) |
| 65 { | |
| 66 std::ostream& stream = *(static_cast<std::ostream*> (streamp)); | |
| 67 stream.write (static_cast<const char*> (buffer), size*nmemb); | |
| 68 return (stream.fail () ? 0 : size * nmemb); | |
| 69 } | |
| 70 | |
| 9880 | 71 static int |
| 72 read_data (void *buffer, size_t size, size_t nmemb, void *streamp) | |
| 6043 | 73 { |
| 9880 | 74 std::istream& stream = *(static_cast<std::istream*> (streamp)); |
| 75 stream.read (static_cast<char*> (buffer), size*nmemb); | |
| 76 if (stream.eof ()) | |
| 77 return stream.gcount (); | |
| 78 else | |
| 79 return (stream.fail () ? 0 : size * nmemb); | |
| 6043 | 80 } |
| 81 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
82 static size_t |
| 9880 | 83 throw_away (void *, size_t size, size_t nmemb, void *) |
| 6992 | 84 { |
| 9880 | 85 return static_cast<size_t>(size * nmemb); |
| 6992 | 86 } |
| 87 | |
| 9880 | 88 class |
| 89 curl_handle | |
| 6043 | 90 { |
| 9880 | 91 private: |
| 92 class | |
| 93 curl_handle_rep | |
| 94 { | |
| 95 public: | |
| 96 curl_handle_rep (void) : count (1), valid (true), ascii (false) | |
| 97 { | |
| 98 curl = curl_easy_init (); | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
99 if (!curl) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
100 error ("can not create curl handle"); |
| 9880 | 101 } |
| 102 | |
| 103 ~curl_handle_rep (void) | |
| 104 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
105 if (curl) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
106 curl_easy_cleanup (curl); |
| 9880 | 107 } |
| 108 | |
| 109 bool is_valid (void) const | |
| 110 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
111 return valid; |
| 9880 | 112 } |
| 113 | |
| 114 bool perform (bool curlerror) const | |
| 115 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
116 bool retval = false; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
117 if (!error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
118 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
119 BEGIN_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE; |
| 6043 | 120 |
|
12963
27e5f0e79f19
Return better error codes from curl, even if connection is successful
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12782
diff
changeset
|
121 errnum = curl_easy_perform (curl); |
|
27e5f0e79f19
Return better error codes from curl, even if connection is successful
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12782
diff
changeset
|
122 if (errnum != CURLE_OK) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
123 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
124 if (curlerror) |
|
12963
27e5f0e79f19
Return better error codes from curl, even if connection is successful
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12782
diff
changeset
|
125 error ("%s", curl_easy_strerror (errnum)); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
126 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
127 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
128 retval = true; |
| 9880 | 129 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
130 END_INTERRUPT_IMMEDIATELY_IN_FOREIGN_CODE; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
131 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
132 return retval; |
| 9880 | 133 } |
| 6043 | 134 |
| 9880 | 135 CURL* handle (void) const |
| 136 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
137 return curl; |
| 9880 | 138 } |
| 139 | |
| 140 bool is_ascii (void) const | |
| 141 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
142 return ascii; |
| 9880 | 143 } |
| 144 | |
| 145 bool is_binary (void) const | |
| 146 { | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
147 return !ascii; |
| 9880 | 148 } |
| 149 | |
|
13985
43cc49c7abd1
Use thread-safe atomic reference counting (GCC and MSVC).
Michael Goffioul <michael.goffioul@gmail.com>
parents:
13978
diff
changeset
|
150 octave_refcount<size_t> count; |
| 9880 | 151 std::string host; |
| 152 bool valid; | |
| 153 bool ascii; | |
|
12963
27e5f0e79f19
Return better error codes from curl, even if connection is successful
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12782
diff
changeset
|
154 mutable CURLcode errnum; |
| 9880 | 155 |
| 156 private: | |
| 157 CURL *curl; | |
| 6043 | 158 |
| 9880 | 159 // No copying! |
| 160 | |
| 161 curl_handle_rep (const curl_handle_rep& ov); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
162 |
| 9880 | 163 curl_handle_rep& operator = (const curl_handle_rep&); |
| 164 }; | |
| 165 | |
| 166 public: | |
| 6043 | 167 |
| 9880 | 168 // I'd love to rewrite this as a private method of the curl_handle |
| 169 // class, but you can't pass the va_list from the wrapper setopt to | |
| 170 // the curl_easy_setopt function. | |
| 171 #define setopt(option, parameter) \ | |
| 172 { \ | |
| 173 CURLcode res = curl_easy_setopt (rep->handle (), option, parameter); \ | |
| 174 if (res != CURLE_OK) \ | |
| 175 error ("%s", curl_easy_strerror (res)); \ | |
| 176 } | |
| 177 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
178 curl_handle (void) : rep (new curl_handle_rep ()) |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
179 { |
| 9880 | 180 rep->valid = false; |
| 181 } | |
| 182 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
183 curl_handle (const std::string& _host, const std::string& user, |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
184 const std::string& passwd) : |
| 9880 | 185 rep (new curl_handle_rep ()) |
| 186 { | |
| 187 rep->host = _host; | |
| 188 init (user, passwd, std::cin, octave_stdout); | |
| 189 | |
| 190 std::string url = "ftp://" + _host; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
191 setopt (CURLOPT_URL, url.c_str ()); |
| 6043 | 192 |
| 9880 | 193 // Setup the link, with no transfer |
| 194 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
195 perform (); |
| 9880 | 196 } |
| 197 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
198 curl_handle (const std::string& url, const std::string& method, |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
199 const Cell& param, std::ostream& os, bool& retval) : |
| 9880 | 200 rep (new curl_handle_rep ()) |
| 201 { | |
| 202 retval = false; | |
| 203 | |
| 204 init ("", "", std::cin, os); | |
| 205 | |
| 206 setopt (CURLOPT_NOBODY, 0); | |
| 207 | |
| 208 // Don't need to store the parameters here as we can't change | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
209 // the URL after the handle is created |
| 9880 | 210 std::string query_string = form_query_string (param); |
| 6043 | 211 |
| 9880 | 212 if (method == "get") |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
213 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
214 query_string = url + "?" + query_string; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
215 setopt (CURLOPT_URL, query_string.c_str ()); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
216 } |
| 9880 | 217 else if (method == "post") |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
218 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
219 setopt (CURLOPT_URL, url.c_str ()); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
220 setopt (CURLOPT_POSTFIELDS, query_string.c_str ()); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
221 } |
| 9880 | 222 else |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
223 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 224 |
| 225 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
226 retval = perform (false); |
| 9880 | 227 } |
| 228 | |
| 229 curl_handle (const curl_handle& h) : rep (h.rep) | |
| 6043 | 230 { |
| 9880 | 231 rep->count++; |
| 232 } | |
| 233 | |
| 234 ~curl_handle (void) | |
| 235 { | |
| 236 if (--rep->count == 0) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
237 delete rep; |
| 9880 | 238 } |
| 239 | |
| 240 curl_handle& operator = (const curl_handle& h) | |
| 241 { | |
| 242 if (this != &h) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
243 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
244 if (--rep->count == 0) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
245 delete rep; |
| 9880 | 246 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
247 rep = h.rep; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
248 rep->count++; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
249 } |
| 9880 | 250 return *this; |
| 251 } | |
| 252 | |
| 253 bool is_valid (void) const | |
| 254 { | |
| 255 return rep->is_valid (); | |
| 6043 | 256 } |
| 9880 | 257 |
| 258 std::string lasterror (void) const | |
| 259 { | |
|
12963
27e5f0e79f19
Return better error codes from curl, even if connection is successful
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents:
12782
diff
changeset
|
260 return std::string (curl_easy_strerror (rep->errnum)); |
| 9880 | 261 } |
| 262 | |
| 263 void set_ostream (std::ostream& os) const | |
| 264 { | |
| 265 setopt (CURLOPT_WRITEDATA, static_cast<void*> (&os)); | |
| 266 } | |
| 267 | |
| 268 void set_istream (std::istream& is) const | |
| 6043 | 269 { |
| 9880 | 270 setopt (CURLOPT_READDATA, static_cast<void*> (&is)); |
| 271 } | |
| 272 | |
| 273 void ascii (void) const | |
| 274 { | |
| 275 setopt (CURLOPT_TRANSFERTEXT, 1); | |
| 276 rep->ascii = true; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
277 } |
| 9880 | 278 |
| 279 void binary (void) const | |
| 280 { | |
| 281 setopt (CURLOPT_TRANSFERTEXT, 0); | |
| 282 rep->ascii = false; | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
283 } |
| 9880 | 284 |
| 285 bool is_ascii (void) const | |
| 286 { | |
| 287 return rep->is_ascii (); | |
| 288 } | |
| 289 | |
| 290 bool is_binary (void) const | |
| 291 { | |
| 292 return rep->is_binary (); | |
| 6043 | 293 } |
| 9880 | 294 |
| 295 void cwd (const std::string& path) const | |
| 296 { | |
| 297 struct curl_slist *slist = 0; | |
| 298 std::string cmd = "cwd " + path; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
299 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 300 setopt (CURLOPT_POSTQUOTE, slist); |
| 301 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
302 perform (); |
| 9880 | 303 setopt (CURLOPT_POSTQUOTE, 0); |
| 304 curl_slist_free_all (slist); | |
| 305 } | |
| 6043 | 306 |
| 9880 | 307 void del (const std::string& file) const |
| 308 { | |
| 309 struct curl_slist *slist = 0; | |
| 310 std::string cmd = "dele " + file; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
311 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 312 setopt (CURLOPT_POSTQUOTE, slist); |
| 313 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
314 perform (); |
| 9880 | 315 setopt (CURLOPT_POSTQUOTE, 0); |
| 316 curl_slist_free_all (slist); | |
| 317 } | |
| 318 | |
| 319 void rmdir (const std::string& path) const | |
| 320 { | |
| 321 struct curl_slist *slist = 0; | |
| 322 std::string cmd = "rmd " + path; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
323 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 324 setopt (CURLOPT_POSTQUOTE, slist); |
| 325 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
326 perform (); |
| 9880 | 327 setopt (CURLOPT_POSTQUOTE, 0); |
| 328 curl_slist_free_all (slist); | |
| 329 } | |
| 6043 | 330 |
| 9880 | 331 bool mkdir (const std::string& path, bool curlerror = true) const |
| 332 { | |
| 333 bool retval = false; | |
| 334 struct curl_slist *slist = 0; | |
| 335 std::string cmd = "mkd " + path; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
336 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 337 setopt (CURLOPT_POSTQUOTE, slist); |
| 338 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
339 retval = perform (curlerror); |
| 9880 | 340 setopt (CURLOPT_POSTQUOTE, 0); |
| 341 curl_slist_free_all (slist); | |
| 342 return retval; | |
| 343 } | |
| 6043 | 344 |
| 9880 | 345 void rename (const std::string& oldname, const std::string& newname) const |
| 346 { | |
| 347 struct curl_slist *slist = 0; | |
| 348 std::string cmd = "rnfr " + oldname; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
349 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 350 cmd = "rnto " + newname; |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
351 slist = curl_slist_append (slist, cmd.c_str ()); |
| 9880 | 352 setopt (CURLOPT_POSTQUOTE, slist); |
| 353 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
354 perform (); |
| 9880 | 355 setopt (CURLOPT_POSTQUOTE, 0); |
| 356 curl_slist_free_all (slist); | |
| 357 } | |
| 358 | |
| 359 void put (const std::string& file, std::istream& is) const | |
| 360 { | |
| 361 std::string url = "ftp://" + rep->host + "/" + file; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
362 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 363 setopt (CURLOPT_UPLOAD, 1); |
| 364 setopt (CURLOPT_NOBODY, 0); | |
| 365 set_istream (is); | |
| 366 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
367 perform (); |
| 9880 | 368 set_istream (std::cin); |
| 369 setopt (CURLOPT_NOBODY, 1); | |
| 370 setopt (CURLOPT_UPLOAD, 0); | |
| 371 url = "ftp://" + rep->host; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
372 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 373 } |
| 7013 | 374 |
| 9880 | 375 void get (const std::string& file, std::ostream& os) const |
| 376 { | |
| 377 std::string url = "ftp://" + rep->host + "/" + file; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
378 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 379 setopt (CURLOPT_NOBODY, 0); |
| 380 set_ostream (os); | |
| 381 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
382 perform (); |
| 9880 | 383 set_ostream (octave_stdout); |
| 384 setopt (CURLOPT_NOBODY, 1); | |
| 385 url = "ftp://" + rep->host; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
386 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 387 } |
| 388 | |
| 389 void dir (void) const | |
| 390 { | |
| 391 std::string url = "ftp://" + rep->host + "/"; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
392 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 393 setopt (CURLOPT_NOBODY, 0); |
| 394 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
395 perform (); |
| 9880 | 396 setopt (CURLOPT_NOBODY, 1); |
| 397 url = "ftp://" + rep->host; | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
398 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 399 } |
| 6390 | 400 |
| 9880 | 401 string_vector list (void) const |
| 402 { | |
| 403 std::ostringstream buf; | |
| 404 std::string url = "ftp://" + rep->host + "/"; | |
| 405 setopt (CURLOPT_WRITEDATA, static_cast<void*> (&buf)); | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
406 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 407 setopt (CURLOPT_DIRLISTONLY, 1); |
| 408 setopt (CURLOPT_NOBODY, 0); | |
| 409 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
410 perform (); |
| 9880 | 411 setopt (CURLOPT_NOBODY, 1); |
| 412 url = "ftp://" + rep->host; | |
| 413 setopt (CURLOPT_WRITEDATA, static_cast<void*> (&octave_stdout)); | |
| 414 setopt (CURLOPT_DIRLISTONLY, 0); | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
415 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 416 |
| 417 // Count number of directory entries | |
| 418 std::string str = buf.str (); | |
| 419 octave_idx_type n = 0; | |
| 420 size_t pos = 0; | |
| 421 while (true) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
422 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
423 pos = str.find_first_of('\n', pos); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
424 if (pos == std::string::npos) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
425 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
426 pos++; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
427 n++; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
428 } |
| 9880 | 429 string_vector retval (n); |
| 430 pos = 0; | |
| 431 for (octave_idx_type i = 0; i < n; i++) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
432 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
433 size_t newpos = str.find_first_of('\n', pos); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
434 if (newpos == std::string::npos) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
435 break; |
| 9880 | 436 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
437 retval(i) = str.substr(pos, newpos - pos); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
438 pos = newpos + 1; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
439 } |
| 9880 | 440 return retval; |
| 441 } | |
| 442 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
443 void get_fileinfo (const std::string& filename, double& filesize, |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
444 time_t& filetime, bool& fileisdir) const |
| 9880 | 445 { |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
446 std::string path = pwd (); |
| 6043 | 447 |
| 9880 | 448 std::string url = "ftp://" + rep->host + "/" + path + "/" + filename; |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
449 setopt (CURLOPT_URL, url.c_str ()); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
450 setopt (CURLOPT_FILETIME, 1); |
| 9880 | 451 setopt (CURLOPT_HEADERFUNCTION, throw_away); |
| 452 setopt (CURLOPT_WRITEFUNCTION, throw_away); | |
| 6043 | 453 |
| 9880 | 454 // FIXME |
| 455 // The MDTM command fails for a directory on the servers I tested | |
| 456 // so this is a means of testing for directories. It also means | |
| 457 // I can't get the date of directories! | |
| 458 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
459 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
460 if (! perform (false)) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
461 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
462 fileisdir = true; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
463 filetime = -1; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
464 filesize = 0; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
465 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
466 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
467 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
468 fileisdir = false; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
469 time_t ft; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
470 curl_easy_getinfo(rep->handle (), CURLINFO_FILETIME, &ft); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
471 filetime = ft; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
472 double fs; |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
473 curl_easy_getinfo(rep->handle (), |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
474 CURLINFO_CONTENT_LENGTH_DOWNLOAD, &fs); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
475 filesize = fs; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
476 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
477 } |
| 6992 | 478 |
| 9880 | 479 setopt (CURLOPT_WRITEFUNCTION, write_data); |
| 480 setopt (CURLOPT_HEADERFUNCTION, 0); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
481 setopt (CURLOPT_FILETIME, 0); |
| 9880 | 482 url = "ftp://" + rep->host; |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
483 setopt (CURLOPT_URL, url.c_str ()); |
| 9880 | 484 |
| 485 // The MDTM command seems to reset the path to the root with the | |
| 486 // servers I tested with, so cd again into the correct path. Make | |
| 487 // the path absolute so that this will work even with servers that | |
| 488 // don't end up in the root after an MDTM command. | |
| 489 cwd ("/" + path); | |
| 490 } | |
| 491 | |
| 492 std::string pwd (void) const | |
| 493 { | |
| 494 struct curl_slist *slist = 0; | |
| 495 std::string retval; | |
| 496 std::ostringstream buf; | |
| 6992 | 497 |
| 9880 | 498 slist = curl_slist_append (slist, "pwd"); |
| 499 setopt (CURLOPT_POSTQUOTE, slist); | |
| 500 setopt (CURLOPT_HEADERFUNCTION, write_data); | |
| 501 setopt (CURLOPT_WRITEHEADER, static_cast<void *>(&buf)); | |
| 502 | |
| 503 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
504 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
505 perform (); |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
506 retval = buf.str (); |
| 9880 | 507 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
508 // Can I assume that the path is alway in "" on the last line |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
509 size_t pos2 = retval.rfind ('"'); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
510 size_t pos1 = retval.rfind ('"', pos2 - 1); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
511 retval = retval.substr(pos1 + 1, pos2 - pos1 - 1); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
512 } |
| 9880 | 513 setopt (CURLOPT_HEADERFUNCTION, 0); |
| 514 setopt (CURLOPT_WRITEHEADER, 0); | |
| 515 setopt (CURLOPT_POSTQUOTE, 0); | |
| 516 curl_slist_free_all (slist); | |
| 517 | |
| 518 return retval; | |
| 519 } | |
| 6992 | 520 |
| 9880 | 521 bool perform (bool curlerror = true) const |
| 522 { | |
| 523 return rep->perform (curlerror); | |
| 524 } | |
| 525 | |
| 526 private: | |
| 527 curl_handle_rep *rep; | |
| 528 | |
| 529 std::string form_query_string (const Cell& param) | |
| 530 { | |
| 531 std::ostringstream query; | |
| 532 | |
| 533 for (int i = 0; i < param.numel (); i += 2) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
534 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
535 std::string name = param(i).string_value (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
536 std::string text = param(i+1).string_value (); |
| 9880 | 537 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
538 // Encode strings. |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
539 char *enc_name = curl_easy_escape (rep->handle (), name.c_str (), |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
540 name.length ()); |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
541 char *enc_text = curl_easy_escape (rep->handle (), text.c_str (), |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
542 text.length ()); |
| 9880 | 543 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
544 query << enc_name << "=" << enc_text; |
| 9880 | 545 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
546 curl_free (enc_name); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
547 curl_free (enc_text); |
| 9880 | 548 |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
549 if (i < param.numel ()-1) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
550 query << "&"; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
551 } |
| 9880 | 552 |
| 553 query.flush (); | |
| 6043 | 554 |
| 9880 | 555 return query.str (); |
| 556 } | |
| 557 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
558 void init (const std::string& user, const std::string& passwd, |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
559 std::istream& is, std::ostream& os) |
| 9880 | 560 { |
| 561 // No data transfer by default | |
| 562 setopt (CURLOPT_NOBODY, 1); | |
| 563 | |
| 564 // Set the username and password | |
|
9918
57b41617c9fd
avoid LIBCURL version check
John W. Eaton <jwe@octave.org>
parents:
9905
diff
changeset
|
565 std::string userpwd = user; |
|
57b41617c9fd
avoid LIBCURL version check
John W. Eaton <jwe@octave.org>
parents:
9905
diff
changeset
|
566 if (! passwd.empty ()) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
567 userpwd += ":" + passwd; |
|
10377
fb62fbbe28c0
urlwrite: don't set CURLOPT_USERPWD if userpwd is empty
David Bateman <dbateman@free.fr>
parents:
10250
diff
changeset
|
568 if (! userpwd.empty ()) |
|
fb62fbbe28c0
urlwrite: don't set CURLOPT_USERPWD if userpwd is empty
David Bateman <dbateman@free.fr>
parents:
10250
diff
changeset
|
569 setopt (CURLOPT_USERPWD, userpwd.c_str ()); |
| 9880 | 570 |
| 571 // Define our callback to get called when there's data to be written. | |
| 572 setopt (CURLOPT_WRITEFUNCTION, write_data); | |
| 6992 | 573 |
| 9880 | 574 // Set a pointer to our struct to pass to the callback. |
| 575 setopt (CURLOPT_WRITEDATA, static_cast<void*> (&os)); | |
| 576 | |
| 577 // Define our callback to get called when there's data to be read | |
| 578 setopt (CURLOPT_READFUNCTION, read_data); | |
| 579 | |
| 580 // Set a pointer to our struct to pass to the callback. | |
| 581 setopt (CURLOPT_READDATA, static_cast<void*> (&is)); | |
| 582 | |
| 583 // Follow redirects. | |
| 584 setopt (CURLOPT_FOLLOWLOCATION, true); | |
| 585 | |
| 586 // Don't use EPSV since connecting to sites that don't support it | |
| 587 // will hang for some time (3 minutes?) before moving on to try PASV | |
| 588 // instead. | |
| 589 setopt (CURLOPT_FTP_USE_EPSV, false); | |
| 590 | |
| 591 setopt (CURLOPT_NOPROGRESS, true); | |
| 592 setopt (CURLOPT_FAILONERROR, true); | |
| 6992 | 593 |
| 9880 | 594 setopt (CURLOPT_POSTQUOTE, 0); |
| 595 setopt (CURLOPT_QUOTE, 0); | |
| 596 } | |
| 597 | |
| 598 #undef setopt | |
| 599 }; | |
| 600 | |
| 601 class | |
| 602 curl_handles | |
| 603 { | |
| 604 public: | |
| 605 | |
| 606 typedef std::map<std::string, curl_handle>::iterator iterator; | |
| 607 typedef std::map<std::string, curl_handle>::const_iterator const_iterator; | |
| 6043 | 608 |
| 9880 | 609 curl_handles (void) : map () |
| 610 { | |
| 611 curl_global_init(CURL_GLOBAL_DEFAULT); | |
| 612 } | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
613 |
|
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
614 ~curl_handles (void) |
| 9880 | 615 { |
| 616 // Remove the elements of the map explicitly as they should | |
| 617 // be deleted before the call to curl_global_cleanup | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
618 map.erase (begin (), end ()); |
| 6992 | 619 |
| 9880 | 620 curl_global_cleanup (); |
| 621 } | |
| 622 | |
| 623 iterator begin (void) { return iterator (map.begin ()); } | |
| 624 const_iterator begin (void) const { return const_iterator (map.begin ()); } | |
| 625 | |
| 626 iterator end (void) { return iterator (map.end ()); } | |
| 627 const_iterator end (void) const { return const_iterator (map.end ()); } | |
| 6992 | 628 |
| 9880 | 629 iterator seek (const std::string& k) { return map.find (k); } |
| 630 const_iterator seek (const std::string& k) const { return map.find (k); } | |
| 631 | |
| 632 std::string key (const_iterator p) const { return p->first; } | |
| 633 | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
634 curl_handle& contents (const std::string& k) |
| 9880 | 635 { |
| 636 return map[k]; | |
| 637 } | |
| 638 | |
| 639 curl_handle contents (const std::string& k) const | |
| 640 { | |
| 641 const_iterator p = seek (k); | |
| 642 return p != end () ? p->second : curl_handle (); | |
| 643 } | |
| 644 | |
| 645 curl_handle& contents (iterator p) | |
| 646 { return p->second; } | |
| 6992 | 647 |
| 9880 | 648 curl_handle contents (const_iterator p) const |
| 649 { return p->second; } | |
| 650 | |
| 651 void del (const std::string& k) | |
| 652 { | |
| 653 iterator p = map.find (k); | |
| 654 | |
| 655 if (p != map.end ()) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
656 map.erase (p); |
| 9880 | 657 } |
| 6043 | 658 |
| 9880 | 659 private: |
| 660 std::map<std::string, curl_handle> map; | |
| 661 }; | |
| 662 | |
| 663 static curl_handles handles; | |
| 664 | |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
665 static void |
| 9880 | 666 cleanup_urlwrite (std::string filename) |
| 667 { | |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
668 octave_unlink (filename); |
| 6043 | 669 } |
| 670 | |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
671 static void |
| 9880 | 672 reset_path (const curl_handle curl) |
| 673 { | |
| 674 curl.cwd (".."); | |
| 675 } | |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
676 |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
677 static void |
|
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
678 delete_file (std::string file) |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
679 { |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
680 octave_unlink (file); |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
681 } |
| 9880 | 682 #endif |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
683 |
| 6043 | 684 DEFUN_DLD (urlwrite, args, nargout, |
| 685 "-*- texinfo -*-\n\ | |
| 10840 | 686 @deftypefn {Loadable Function} {} urlwrite (@var{url}, @var{localfile})\n\ |
| 6043 | 687 @deftypefnx {Loadable Function} {@var{f} =} urlwrite (@var{url}, @var{localfile})\n\ |
| 688 @deftypefnx {Loadable Function} {[@var{f}, @var{success}] =} urlwrite (@var{url}, @var{localfile})\n\ | |
| 689 @deftypefnx {Loadable Function} {[@var{f}, @var{success}, @var{message}] =} urlwrite (@var{url}, @var{localfile})\n\ | |
| 9880 | 690 Download a remote file specified by its @var{url} and save it as\n\ |
| 10840 | 691 @var{localfile}. For example:\n\ |
| 6043 | 692 \n\ |
| 693 @example\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
694 @group\n\ |
|
12642
f96b9b9f141b
doc: Periodic grammarcheck and spellcheck of documentation.
Rik <octave@nomad.inbox5.com>
parents:
11586
diff
changeset
|
695 urlwrite (\"ftp://ftp.octave.org/pub/octave/README\",\n\ |
| 7031 | 696 \"README.txt\");\n\ |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
697 @end group\n\ |
| 6043 | 698 @end example\n\ |
| 699 \n\ | |
| 700 The full path of the downloaded file is returned in @var{f}. The\n\ | |
| 701 variable @var{success} is 1 if the download was successful,\n\ | |
| 702 otherwise it is 0 in which case @var{message} contains an error\n\ | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
703 message. If no output argument is specified and an error occurs,\n\ |
| 6588 | 704 then the error is signaled through Octave's error handling mechanism.\n\ |
| 6043 | 705 \n\ |
| 706 This function uses libcurl. Curl supports, among others, the HTTP,\n\ | |
| 707 FTP and FILE protocols. Username and password may be specified in\n\ | |
| 708 the URL, for example:\n\ | |
| 709 \n\ | |
| 710 @example\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
711 @group\n\ |
| 6588 | 712 urlwrite (\"http://username:password@@example.com/file.txt\",\n\ |
| 713 \"file.txt\");\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
714 @end group\n\ |
| 6043 | 715 @end example\n\ |
| 716 \n\ | |
| 717 GET and POST requests can be specified by @var{method} and @var{param}.\n\ | |
| 6589 | 718 The parameter @var{method} is either @samp{get} or @samp{post}\n\ |
| 6588 | 719 and @var{param} is a cell array of parameter and value pairs.\n\ |
| 720 For example:\n\ | |
| 6043 | 721 \n\ |
| 722 @example\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
723 @group\n\ |
| 6588 | 724 urlwrite (\"http://www.google.com/search\", \"search.html\",\n\ |
| 725 \"get\", @{\"query\", \"octave\"@});\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
726 @end group\n\ |
| 6043 | 727 @end example\n\ |
| 728 @seealso{urlread}\n\ | |
| 729 @end deftypefn") | |
| 730 { | |
| 731 octave_value_list retval; | |
| 732 | |
|
9905
84a7c11ff928
Correctly compile even when libcurl is not present according to configure
Rik <rdrider0-list@yahoo.com>
parents:
9885
diff
changeset
|
733 #ifdef HAVE_CURL |
| 6043 | 734 |
| 735 int nargin = args.length (); | |
| 736 | |
| 737 // verify arguments | |
| 738 if (nargin != 2 && nargin != 4) | |
| 739 { | |
| 740 print_usage (); | |
| 741 return retval; | |
| 742 } | |
| 743 | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
744 std::string url = args(0).string_value (); |
| 6043 | 745 |
| 746 if (error_state) | |
| 747 { | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
748 error ("urlwrite: URL must be a character string"); |
| 6043 | 749 return retval; |
| 750 } | |
| 751 | |
| 752 // name to store the file if download is succesful | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
753 std::string filename = args(1).string_value (); |
| 6043 | 754 |
| 755 if (error_state) | |
| 756 { | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
757 error ("urlwrite: LOCALFILE must be a character string"); |
| 6043 | 758 return retval; |
| 759 } | |
| 760 | |
| 761 std::string method; | |
| 762 Cell param; // empty cell array | |
| 763 | |
| 764 if (nargin == 4) | |
| 765 { | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
766 method = args(2).string_value (); |
| 6043 | 767 |
| 768 if (error_state) | |
| 769 { | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
770 error ("urlwrite: METHOD must be \"get\" or \"post\""); |
| 6043 | 771 return retval; |
| 772 } | |
| 773 | |
| 774 if (method != "get" && method != "post") | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
775 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
776 error ("urlwrite: METHOD must be \"get\" or \"post\""); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
777 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
778 } |
| 6043 | 779 |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
780 param = args(3).cell_value (); |
| 6043 | 781 |
| 782 if (error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
783 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
784 error ("urlwrite: parameters (PARAM) for get and post requests must be given as a cell"); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
785 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
786 } |
| 6043 | 787 |
| 788 | |
| 789 if (param.numel () % 2 == 1 ) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
790 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
791 error ("urlwrite: number of elements in PARAM must be even"); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
792 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
793 } |
| 6043 | 794 } |
| 795 | |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
796 // The file should only be deleted if it doesn't initially exist, we |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
797 // create it, and the download fails. We use unwind_protect to do |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
798 // it so that the deletion happens no matter how we exit the function. |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
799 |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
800 file_stat fs (filename); |
|
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
801 |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
802 std::ofstream ofile (filename.c_str (), std::ios::out | std::ios::binary); |
| 6043 | 803 |
| 6986 | 804 if (! ofile.is_open ()) |
| 6043 | 805 { |
| 806 error ("urlwrite: unable to open file"); | |
| 807 return retval; | |
| 808 } | |
| 809 | |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
810 unwind_protect_safe frame; |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
811 |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
812 frame.add_fcn (cleanup_urlwrite, filename); |
| 9880 | 813 |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
814 bool ok; |
|
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
815 curl_handle curl = curl_handle (url, method, param, ofile, ok); |
| 6043 | 816 |
| 6986 | 817 ofile.close (); |
| 6043 | 818 |
| 9880 | 819 if (!error_state) |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
820 frame.discard (); |
| 9880 | 821 else |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
822 frame.run (); |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
823 |
| 6043 | 824 if (nargout > 0) |
| 825 { | |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
826 if (ok) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
827 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
828 retval(2) = std::string (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
829 retval(1) = true; |
| 10250 | 830 retval(0) = octave_env::make_absolute (filename); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
831 } |
|
8151
3725f819b5b3
urlwrite.cc (Furlwrite): delete files we create if download fails
John W. Eaton <jwe@octave.org>
parents:
7481
diff
changeset
|
832 else |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
833 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
834 retval(2) = curl.lasterror (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
835 retval(1) = false; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
836 retval(0) = std::string (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
837 } |
| 6043 | 838 } |
| 839 | |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
840 if (nargout < 2 && ! ok) |
| 9880 | 841 error ("urlwrite: curl: %s", curl.lasterror ().c_str ()); |
| 6043 | 842 |
| 843 #else | |
| 6981 | 844 error ("urlwrite: not available in this version of Octave"); |
| 6043 | 845 #endif |
| 846 | |
| 847 return retval; | |
| 848 } | |
| 849 | |
| 850 DEFUN_DLD (urlread, args, nargout, | |
| 851 "-*- texinfo -*-\n\ | |
| 10840 | 852 @deftypefn {Loadable Function} {@var{s} =} urlread (@var{url})\n\ |
| 6043 | 853 @deftypefnx {Loadable Function} {[@var{s}, @var{success}] =} urlread (@var{url})\n\ |
| 6549 | 854 @deftypefnx {Loadable Function} {[@var{s}, @var{success}, @var{message}] =} urlread (@var{url})\n\ |
| 6547 | 855 @deftypefnx {Loadable Function} {[@dots{}] =} urlread (@var{url}, @var{method}, @var{param})\n\ |
| 9880 | 856 Download a remote file specified by its @var{url} and return its content\n\ |
| 10840 | 857 in string @var{s}. For example:\n\ |
| 6043 | 858 \n\ |
| 859 @example\n\ | |
| 6588 | 860 s = urlread (\"ftp://ftp.octave.org/pub/octave/README\");\n\ |
| 6043 | 861 @end example\n\ |
| 862 \n\ | |
| 863 The variable @var{success} is 1 if the download was successful,\n\ | |
| 864 otherwise it is 0 in which case @var{message} contains an error\n\ | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
865 message. If no output argument is specified and an error occurs,\n\ |
| 6588 | 866 then the error is signaled through Octave's error handling mechanism.\n\ |
| 6043 | 867 \n\ |
| 868 This function uses libcurl. Curl supports, among others, the HTTP,\n\ | |
| 869 FTP and FILE protocols. Username and password may be specified in the\n\ | |
| 10840 | 870 URL@. For example:\n\ |
| 6043 | 871 \n\ |
| 872 @example\n\ | |
| 7031 | 873 s = urlread (\"http://user:password@@example.com/file.txt\");\n\ |
| 6043 | 874 @end example\n\ |
| 875 \n\ | |
| 876 GET and POST requests can be specified by @var{method} and @var{param}.\n\ | |
| 6588 | 877 The parameter @var{method} is either @samp{get} or @samp{post}\n\ |
| 878 and @var{param} is a cell array of parameter and value pairs.\n\ | |
| 10840 | 879 For example:\n\ |
| 6043 | 880 \n\ |
| 881 @example\n\ | |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
882 @group\n\ |
| 6588 | 883 s = urlread (\"http://www.google.com/search\", \"get\",\n\ |
|
14360
97883071e8e4
doc: Correct off-by-1 spacings in all .cc docstrings
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
884 @{\"query\", \"octave\"@});\n\ |
|
9064
7c02ec148a3c
Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
885 @end group\n\ |
| 6043 | 886 @end example\n\ |
| 887 @seealso{urlwrite}\n\ | |
| 888 @end deftypefn") | |
| 889 { | |
| 6588 | 890 // Octave's return value |
| 6043 | 891 octave_value_list retval; |
| 892 | |
|
9905
84a7c11ff928
Correctly compile even when libcurl is not present according to configure
Rik <rdrider0-list@yahoo.com>
parents:
9885
diff
changeset
|
893 #ifdef HAVE_CURL |
| 6043 | 894 |
| 895 int nargin = args.length (); | |
| 896 | |
| 897 // verify arguments | |
| 898 if (nargin != 1 && nargin != 3) | |
| 899 { | |
| 900 print_usage (); | |
| 901 return retval; | |
| 902 } | |
| 903 | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
904 std::string url = args(0).string_value (); |
| 6043 | 905 |
| 906 if (error_state) | |
| 907 { | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
908 error ("urlread: URL must be a character string"); |
| 6043 | 909 return retval; |
| 910 } | |
| 911 | |
| 912 std::string method; | |
| 913 Cell param; // empty cell array | |
| 914 | |
| 915 if (nargin == 3) | |
| 916 { | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
917 method = args(1).string_value (); |
| 6043 | 918 |
| 919 if (error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
920 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
921 error ("urlread: METHOD must be \"get\" or \"post\""); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
922 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
923 } |
| 6043 | 924 |
| 925 if (method != "get" && method != "post") | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
926 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
927 error ("urlread: METHOD must be \"get\" or \"post\""); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
928 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
929 } |
| 6043 | 930 |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
931 param = args(2).cell_value (); |
| 6043 | 932 |
| 933 if (error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
934 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
935 error ("urlread: parameters (PARAM) for get and post requests must be given as a cell"); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
936 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
937 } |
| 6043 | 938 |
| 939 if (param.numel () % 2 == 1 ) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
940 { |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
941 error ("urlread: number of elements in PARAM must be even"); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
942 return retval; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
943 } |
| 6043 | 944 } |
| 945 | |
| 6986 | 946 std::ostringstream buf; |
| 6043 | 947 |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
948 bool ok; |
|
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
949 curl_handle curl = curl_handle (url, method, param, buf, ok); |
| 6043 | 950 |
| 951 if (nargout > 0) | |
| 952 { | |
| 6986 | 953 // Return empty string if no error occured. |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
954 retval(2) = ok ? "" : curl.lasterror (); |
|
14022
de90542b7afc
Return retval(1) before retval(0) to avoid re-sizing call on retval.
Rik <octave@nomad.inbox5.com>
parents:
13985
diff
changeset
|
955 retval(1) = ok; |
|
de90542b7afc
Return retval(1) before retval(0) to avoid re-sizing call on retval.
Rik <octave@nomad.inbox5.com>
parents:
13985
diff
changeset
|
956 retval(0) = buf.str (); |
| 6043 | 957 } |
| 958 | |
|
13978
a33ec41d0340
Fix error reporting in urlwrite (bug #34971)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
12963
diff
changeset
|
959 if (nargout < 2 && ! ok) |
| 9880 | 960 error ("urlread: curl: %s", curl.lasterror().c_str()); |
| 6043 | 961 |
| 962 #else | |
| 6981 | 963 error ("urlread: not available in this version of Octave"); |
| 6043 | 964 #endif |
| 965 | |
| 966 return retval; | |
| 967 } | |
| 9880 | 968 |
| 969 DEFUN_DLD (__ftp__, args, , | |
| 970 "-*- texinfo -*-\n\ | |
| 10840 | 971 @deftypefn {Loadable Function} {} __ftp__ (@var{handle}, @var{host})\n\ |
| 9880 | 972 @deftypefnx {Loadable Function} {} __ftp__ (@var{handle}, @var{host}, @var{username}, @var{password})\n\ |
| 973 Undocumented internal function\n\ | |
| 974 @end deftypefn") | |
| 975 { | |
| 976 #ifdef HAVE_CURL | |
| 977 int nargin = args.length (); | |
| 978 std::string handle; | |
| 979 std::string host; | |
| 980 std::string user = "anonymous"; | |
| 981 std::string passwd = ""; | |
| 982 | |
| 983 if (nargin < 2 || nargin > 4) | |
| 984 error ("incorrect number of arguments"); | |
| 985 else | |
| 986 { | |
| 987 handle = args(0).string_value (); | |
| 988 host = args(1).string_value (); | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
989 |
| 9880 | 990 if (nargin > 1) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
991 user = args(2).string_value (); |
| 9880 | 992 |
| 993 if (nargin > 2) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
994 passwd = args(3).string_value (); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
995 |
| 9880 | 996 if (!error_state) |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
997 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
998 handles.contents (handle) = curl_handle (host, user, passwd); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
999 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1000 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1001 handles.del (handle); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1002 } |
| 9880 | 1003 } |
| 1004 #else | |
| 1005 error ("__ftp__: not available in this version of Octave"); | |
| 1006 #endif | |
| 1007 | |
| 1008 return octave_value (); | |
| 1009 } | |
| 1010 | |
| 1011 DEFUN_DLD (__ftp_pwd__, args, , | |
| 1012 "-*- texinfo -*-\n\ | |
| 1013 @deftypefn {Loadable Function} {} __ftp_pwd__ (@var{handle})\n\ | |
| 1014 Undocumented internal function\n\ | |
| 1015 @end deftypefn") | |
| 1016 { | |
| 1017 octave_value retval; | |
| 1018 #ifdef HAVE_CURL | |
| 1019 int nargin = args.length (); | |
| 1020 | |
| 1021 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1022 error ("__ftp_pwd__: incorrect number of arguments"); |
| 9880 | 1023 else |
| 1024 { | |
| 1025 std::string handle = args(0).string_value (); | |
| 1026 | |
| 1027 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1028 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1029 const curl_handle curl = handles.contents (handle); |
| 9880 | 1030 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1031 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1032 retval = curl.pwd (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1033 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1034 error ("__ftp_pwd__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1035 } |
| 9880 | 1036 } |
| 1037 #else | |
| 1038 error ("__ftp_pwd__: not available in this version of Octave"); | |
| 1039 #endif | |
| 1040 | |
| 1041 return retval; | |
| 1042 } | |
| 1043 | |
| 1044 DEFUN_DLD (__ftp_cwd__, args, , | |
| 1045 "-*- texinfo -*-\n\ | |
| 1046 @deftypefn {Loadable Function} {} __ftp_cwd__ (@var{handle}, @var{path})\n\ | |
| 1047 Undocumented internal function\n\ | |
| 1048 @end deftypefn") | |
| 1049 { | |
| 1050 #ifdef HAVE_CURL | |
| 1051 int nargin = args.length (); | |
| 1052 | |
| 1053 if (nargin != 1 && nargin != 2) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1054 error ("__ftp_cwd__: incorrect number of arguments"); |
| 9880 | 1055 else |
| 1056 { | |
| 1057 std::string handle = args(0).string_value (); | |
| 1058 std::string path = ""; | |
| 1059 | |
| 1060 if (nargin > 1) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1061 path = args(1).string_value (); |
| 9880 | 1062 |
| 1063 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1064 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1065 const curl_handle curl = handles.contents (handle); |
| 9880 | 1066 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1067 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1068 curl.cwd (path); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1069 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1070 error ("__ftp_cwd__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1071 } |
| 9880 | 1072 } |
| 1073 #else | |
| 1074 error ("__ftp_cwd__: not available in this version of Octave"); | |
| 1075 #endif | |
| 1076 | |
| 1077 return octave_value (); | |
| 1078 } | |
| 1079 | |
| 1080 DEFUN_DLD (__ftp_dir__, args, nargout, | |
| 1081 "-*- texinfo -*-\n\ | |
| 1082 @deftypefn {Loadable Function} {} __ftp_dir__ (@var{handle})\n\ | |
| 1083 Undocumented internal function\n\ | |
| 1084 @end deftypefn") | |
| 1085 { | |
| 1086 octave_value retval; | |
| 1087 #ifdef HAVE_CURL | |
| 1088 int nargin = args.length (); | |
| 1089 | |
| 1090 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1091 error ("__ftp_dir__: incorrect number of arguments"); |
| 9880 | 1092 else |
| 1093 { | |
| 1094 std::string handle = args(0).string_value (); | |
| 1095 | |
| 1096 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1097 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1098 const curl_handle curl = handles.contents (handle); |
| 9880 | 1099 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1100 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1101 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1102 if (nargout == 0) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1103 curl.dir (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1104 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1105 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1106 string_vector sv = curl.list (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1107 octave_idx_type n = sv.length (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1108 if (n == 0) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1109 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1110 string_vector flds (5); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1111 flds(0) = "name"; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1112 flds(1) = "date"; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1113 flds(2) = "bytes"; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1114 flds(3) = "isdir"; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1115 flds(4) = "datenum"; |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1116 retval = octave_map (flds); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1117 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1118 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1119 { |
|
11050
b1ee705aef45
urlwrite.cc: use octave_scalar_map instead of Octave_map
John W. Eaton <jwe@octave.org>
parents:
10840
diff
changeset
|
1120 octave_map st; |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1121 Cell filectime (dim_vector (n, 1)); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1122 Cell filesize (dim_vector (n, 1)); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1123 Cell fileisdir (dim_vector (n, 1)); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1124 Cell filedatenum (dim_vector (n, 1)); |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1125 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1126 st.assign ("name", Cell (sv)); |
| 9880 | 1127 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1128 for (octave_idx_type i = 0; i < n; i++) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1129 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1130 time_t ftime; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1131 bool fisdir; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1132 double fsize; |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1133 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1134 curl.get_fileinfo (sv(i), fsize, ftime, fisdir); |
| 9880 | 1135 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1136 fileisdir (i) = fisdir; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1137 filectime (i) = ctime (&ftime); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1138 filesize (i) = fsize; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1139 filedatenum (i) = double (ftime); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1140 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1141 st.assign ("date", filectime); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1142 st.assign ("bytes", filesize); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1143 st.assign ("isdir", fileisdir); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1144 st.assign ("datenum", filedatenum); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1145 retval = st; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1146 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1147 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1148 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1149 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1150 error ("__ftp_dir__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1151 } |
| 9880 | 1152 } |
| 1153 #else | |
| 1154 error ("__ftp_dir__: not available in this version of Octave"); | |
| 1155 #endif | |
| 1156 | |
| 1157 return retval; | |
| 1158 } | |
| 1159 | |
| 1160 DEFUN_DLD (__ftp_ascii__, args, , | |
| 1161 "-*- texinfo -*-\n\ | |
| 1162 @deftypefn {Loadable Function} {} __ftp_ascii__ (@var{handle})\n\ | |
| 1163 Undocumented internal function\n\ | |
| 1164 @end deftypefn") | |
| 1165 { | |
| 1166 #ifdef HAVE_CURL | |
| 1167 int nargin = args.length (); | |
| 1168 | |
| 1169 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1170 error ("__ftp_ascii__: incorrect number of arguments"); |
| 9880 | 1171 else |
| 1172 { | |
| 1173 std::string handle = args(0).string_value (); | |
| 1174 | |
| 1175 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1176 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1177 const curl_handle curl = handles.contents (handle); |
| 9880 | 1178 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1179 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1180 curl.ascii (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1181 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1182 error ("__ftp_ascii__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1183 } |
| 9880 | 1184 } |
| 1185 #else | |
| 1186 error ("__ftp_ascii__: not available in this version of Octave"); | |
| 1187 #endif | |
| 1188 | |
| 1189 return octave_value (); | |
| 1190 } | |
| 1191 | |
| 1192 DEFUN_DLD (__ftp_binary__, args, , | |
| 1193 "-*- texinfo -*-\n\ | |
| 1194 @deftypefn {Loadable Function} {} __ftp_binary__ (@var{handle})\n\ | |
| 1195 Undocumented internal function\n\ | |
| 1196 @end deftypefn") | |
| 1197 { | |
| 1198 #ifdef HAVE_CURL | |
| 1199 int nargin = args.length (); | |
| 1200 | |
| 1201 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1202 error ("__ftp_binary__: incorrect number of arguments"); |
| 9880 | 1203 else |
| 1204 { | |
| 1205 std::string handle = args(0).string_value (); | |
| 1206 | |
| 1207 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1208 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1209 const curl_handle curl = handles.contents (handle); |
| 9880 | 1210 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1211 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1212 curl.binary (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1213 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1214 error ("__ftp_binary__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1215 } |
| 9880 | 1216 } |
| 1217 #else | |
| 1218 error ("__ftp_binary__: not available in this version of Octave"); | |
| 1219 #endif | |
| 1220 | |
| 1221 return octave_value (); | |
| 1222 } | |
| 1223 | |
| 1224 DEFUN_DLD (__ftp_close__, args, , | |
| 1225 "-*- texinfo -*-\n\ | |
| 1226 @deftypefn {Loadable Function} {} __ftp_close__ (@var{handle})\n\ | |
| 1227 Undocumented internal function\n\ | |
| 1228 @end deftypefn") | |
| 1229 { | |
| 1230 #ifdef HAVE_CURL | |
| 1231 int nargin = args.length (); | |
| 1232 | |
| 1233 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1234 error ("__ftp_close__: incorrect number of arguments"); |
| 9880 | 1235 else |
| 1236 { | |
| 1237 std::string handle = args(0).string_value (); | |
| 1238 | |
| 1239 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1240 handles.del (handle); |
| 9880 | 1241 } |
| 1242 #else | |
| 1243 error ("__ftp_close__: not available in this version of Octave"); | |
| 1244 #endif | |
| 1245 | |
| 1246 return octave_value (); | |
| 1247 } | |
| 1248 | |
| 1249 DEFUN_DLD (__ftp_mode__, args, , | |
| 1250 "-*- texinfo -*-\n\ | |
| 1251 @deftypefn {Loadable Function} {} __ftp_mode__ (@var{handle})\n\ | |
| 1252 Undocumented internal function\n\ | |
| 1253 @end deftypefn") | |
| 1254 { | |
| 1255 octave_value retval; | |
| 1256 #ifdef HAVE_CURL | |
| 1257 int nargin = args.length (); | |
| 1258 | |
| 1259 if (nargin != 1) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1260 error ("__ftp_mode__: incorrect number of arguments"); |
| 9880 | 1261 else |
| 1262 { | |
| 1263 std::string handle = args(0).string_value (); | |
| 1264 | |
| 1265 | |
| 1266 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1267 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1268 const curl_handle curl = handles.contents (handle); |
| 9880 | 1269 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1270 if (curl.is_valid ()) |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1271 retval = (curl.is_ascii () ? "ascii" : "binary"); |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1272 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1273 error ("__ftp_binary__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1274 } |
| 9880 | 1275 } |
| 1276 #else | |
| 1277 error ("__ftp_mode__: not available in this version of Octave"); | |
| 1278 #endif | |
| 1279 | |
| 1280 return retval; | |
| 1281 } | |
| 1282 | |
| 1283 DEFUN_DLD (__ftp_delete__, args, , | |
| 1284 "-*- texinfo -*-\n\ | |
| 1285 @deftypefn {Loadable Function} {} __ftp_delete__ (@var{handle}, @var{path})\n\ | |
| 1286 Undocumented internal function\n\ | |
| 1287 @end deftypefn") | |
| 1288 { | |
| 1289 #ifdef HAVE_CURL | |
| 1290 int nargin = args.length (); | |
| 1291 | |
| 1292 if (nargin != 2) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1293 error ("__ftp_delete__: incorrect number of arguments"); |
| 9880 | 1294 else |
| 1295 { | |
| 1296 std::string handle = args(0).string_value (); | |
| 1297 std::string file = args(1).string_value (); | |
| 1298 | |
| 1299 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1300 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1301 const curl_handle curl = handles.contents (handle); |
| 9880 | 1302 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1303 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1304 curl.del (file); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1305 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1306 error ("__ftp_delete__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1307 } |
| 9880 | 1308 } |
| 1309 #else | |
| 1310 error ("__ftp_delete__: not available in this version of Octave"); | |
| 1311 #endif | |
| 1312 | |
| 1313 return octave_value (); | |
| 1314 } | |
| 1315 | |
| 1316 DEFUN_DLD (__ftp_rmdir__, args, , | |
| 1317 "-*- texinfo -*-\n\ | |
| 1318 @deftypefn {Loadable Function} {} __ftp_rmdir__ (@var{handle}, @var{path})\n\ | |
| 1319 Undocumented internal function\n\ | |
| 1320 @end deftypefn") | |
| 1321 { | |
| 1322 #ifdef HAVE_CURL | |
| 1323 int nargin = args.length (); | |
| 1324 | |
| 1325 if (nargin != 2) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1326 error ("__ftp_rmdir__: incorrect number of arguments"); |
| 9880 | 1327 else |
| 1328 { | |
| 1329 std::string handle = args(0).string_value (); | |
| 1330 std::string dir = args(1).string_value (); | |
| 1331 | |
| 1332 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1333 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1334 const curl_handle curl = handles.contents (handle); |
| 9880 | 1335 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1336 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1337 curl.rmdir (dir); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1338 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1339 error ("__ftp_rmdir__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1340 } |
| 9880 | 1341 } |
| 1342 #else | |
| 1343 error ("__ftp_rmdir__: not available in this version of Octave"); | |
| 1344 #endif | |
| 1345 | |
| 1346 return octave_value (); | |
| 1347 } | |
| 1348 | |
| 1349 DEFUN_DLD (__ftp_mkdir__, args, , | |
| 1350 "-*- texinfo -*-\n\ | |
| 1351 @deftypefn {Loadable Function} {} __ftp_mkdir__ (@var{handle}, @var{path})\n\ | |
| 1352 Undocumented internal function\n\ | |
| 1353 @end deftypefn") | |
| 1354 { | |
| 1355 #ifdef HAVE_CURL | |
| 1356 int nargin = args.length (); | |
| 1357 | |
| 1358 if (nargin != 2) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1359 error ("__ftp_mkdir__: incorrect number of arguments"); |
| 9880 | 1360 else |
| 1361 { | |
| 1362 std::string handle = args(0).string_value (); | |
| 1363 std::string dir = args(1).string_value (); | |
| 1364 | |
| 1365 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1366 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1367 const curl_handle curl = handles.contents (handle); |
| 9880 | 1368 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1369 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1370 curl.mkdir (dir); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1371 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1372 error ("__ftp_mkdir__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1373 } |
| 9880 | 1374 } |
| 1375 #else | |
| 1376 error ("__ftp_mkdir__: not available in this version of Octave"); | |
| 1377 #endif | |
| 1378 | |
| 1379 return octave_value (); | |
| 1380 } | |
| 1381 | |
| 1382 DEFUN_DLD (__ftp_rename__, args, , | |
| 1383 "-*- texinfo -*-\n\ | |
| 1384 @deftypefn {Loadable Function} {} __ftp_rename__ (@var{handle}, @var{path})\n\ | |
| 1385 Undocumented internal function\n\ | |
| 1386 @end deftypefn") | |
| 1387 { | |
| 1388 #ifdef HAVE_CURL | |
| 1389 int nargin = args.length (); | |
| 1390 | |
| 1391 if (nargin != 3) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1392 error ("__ftp_rename__: incorrect number of arguments"); |
| 9880 | 1393 else |
| 1394 { | |
| 1395 std::string handle = args(0).string_value (); | |
| 1396 std::string oldname = args(1).string_value (); | |
| 1397 std::string newname = args(2).string_value (); | |
| 1398 | |
| 1399 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1400 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1401 const curl_handle curl = handles.contents (handle); |
| 9880 | 1402 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1403 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1404 curl.rename (oldname, newname); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1405 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1406 error ("__ftp_rename__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1407 } |
| 9880 | 1408 } |
| 1409 #else | |
| 1410 error ("__ftp_rename__: not available in this version of Octave"); | |
| 1411 #endif | |
| 1412 | |
| 1413 return octave_value (); | |
| 1414 } | |
| 1415 | |
|
9905
84a7c11ff928
Correctly compile even when libcurl is not present according to configure
Rik <rdrider0-list@yahoo.com>
parents:
9885
diff
changeset
|
1416 #ifdef HAVE_CURL |
| 9880 | 1417 static string_vector |
| 1418 mput_directory (const curl_handle& curl, const std::string& base, | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1419 const std::string& dir) |
| 9880 | 1420 { |
| 1421 string_vector retval; | |
| 1422 | |
| 1423 if (! curl.mkdir (dir, false)) | |
| 1424 warning ("__ftp_mput__: can not create the remote directory ""%s""", | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1425 (base.length () == 0 ? dir : base + |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1426 file_ops::dir_sep_str () + dir).c_str ()); |
| 9880 | 1427 |
| 1428 curl.cwd (dir); | |
| 1429 | |
| 1430 if (! error_state) | |
| 1431 { | |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1432 unwind_protect_safe frame; |
| 9880 | 1433 |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1434 frame.add_fcn (reset_path, curl); |
| 9880 | 1435 |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1436 std::string realdir = base.length () == 0 ? dir : base + |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1437 file_ops::dir_sep_str () + dir; |
| 9880 | 1438 |
| 1439 dir_entry dirlist (realdir); | |
| 1440 | |
| 1441 if (dirlist) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1442 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1443 string_vector files = dirlist.read (); |
| 9880 | 1444 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1445 for (octave_idx_type i = 0; i < files.length (); i++) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1446 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1447 std::string file = files (i); |
| 9880 | 1448 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1449 if (file == "." || file == "..") |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1450 continue; |
| 9880 | 1451 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1452 std::string realfile = realdir + file_ops::dir_sep_str () + file; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1453 file_stat fs (realfile); |
| 9880 | 1454 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1455 if (! fs.exists ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1456 { |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1457 error ("__ftp__mput: file ""%s"" does not exist", |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1458 realfile.c_str ()); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1459 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1460 } |
| 9880 | 1461 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1462 if (fs.is_dir ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1463 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1464 retval.append (mput_directory (curl, realdir, file)); |
| 9880 | 1465 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1466 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1467 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1468 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1469 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1470 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1471 // FIXME Does ascii mode need to be flagged here? |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1472 std::ifstream ifile (realfile.c_str (), std::ios::in | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1473 std::ios::binary); |
| 9880 | 1474 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1475 if (! ifile.is_open ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1476 { |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1477 error ("__ftp_mput__: unable to open file ""%s""", |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1478 realfile.c_str ()); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1479 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1480 } |
| 9880 | 1481 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1482 curl.put (file, ifile); |
| 9880 | 1483 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1484 ifile.close (); |
| 9880 | 1485 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1486 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1487 break; |
| 9880 | 1488 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1489 retval.append (realfile); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1490 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1491 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1492 } |
| 9880 | 1493 else |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1494 error ("__ftp_mput__: can not read the directory ""%s""", |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1495 realdir.c_str ()); |
| 9880 | 1496 } |
| 1497 | |
| 1498 return retval; | |
| 1499 } | |
|
9905
84a7c11ff928
Correctly compile even when libcurl is not present according to configure
Rik <rdrider0-list@yahoo.com>
parents:
9885
diff
changeset
|
1500 #endif |
| 9880 | 1501 |
| 1502 DEFUN_DLD (__ftp_mput__, args, nargout, | |
| 1503 "-*- texinfo -*-\n\ | |
| 1504 @deftypefn {Loadable Function} {} __ftp_mput__ (@var{handle}, @var{files})\n\ | |
| 1505 Undocumented internal function\n\ | |
| 1506 @end deftypefn") | |
| 1507 { | |
| 1508 string_vector retval; | |
| 1509 | |
| 1510 #ifdef HAVE_CURL | |
| 1511 int nargin = args.length (); | |
| 1512 | |
| 1513 if (nargin != 2) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1514 error ("__ftp_mput__: incorrect number of arguments"); |
| 9880 | 1515 else |
| 1516 { | |
| 1517 std::string handle = args(0).string_value (); | |
| 1518 std::string pat = args(1).string_value (); | |
| 1519 | |
| 1520 if (!error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1521 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1522 const curl_handle curl = handles.contents (handle); |
| 9880 | 1523 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1524 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1525 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1526 glob_match pattern (file_ops::tilde_expand (pat)); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1527 string_vector files = pattern.glob (); |
| 9880 | 1528 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1529 for (octave_idx_type i = 0; i < files.length (); i++) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1530 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1531 std::string file = files (i); |
| 9880 | 1532 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1533 file_stat fs (file); |
| 9880 | 1534 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1535 if (! fs.exists ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1536 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1537 error ("__ftp__mput: file does not exist"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1538 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1539 } |
| 9880 | 1540 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1541 if (fs.is_dir ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1542 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1543 retval.append (mput_directory (curl, "", file)); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1544 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1545 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1546 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1547 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1548 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1549 // FIXME Does ascii mode need to be flagged here? |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1550 std::ifstream ifile (file.c_str (), std::ios::in | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1551 std::ios::binary); |
| 9880 | 1552 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1553 if (! ifile.is_open ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1554 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1555 error ("__ftp_mput__: unable to open file"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1556 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1557 } |
| 9880 | 1558 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1559 curl.put (file, ifile); |
| 9880 | 1560 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1561 ifile.close (); |
| 9880 | 1562 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1563 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1564 break; |
| 9880 | 1565 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1566 retval.append (file); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1567 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1568 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1569 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1570 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1571 error ("__ftp_mput__: invalid ftp handle"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1572 } |
| 9880 | 1573 } |
| 1574 #else | |
| 1575 error ("__ftp_mput__: not available in this version of Octave"); | |
| 1576 #endif | |
| 1577 | |
| 1578 return (nargout > 0 ? octave_value (retval) : octave_value ()); | |
| 1579 } | |
| 1580 | |
| 1581 #ifdef HAVE_CURL | |
| 1582 static void | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1583 getallfiles (const curl_handle& curl, const std::string& dir, |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1584 const std::string& target) |
| 9880 | 1585 { |
| 1586 std::string sep = file_ops::dir_sep_str (); | |
| 1587 file_stat fs (dir); | |
| 1588 | |
| 1589 if (!fs || !fs.is_dir ()) | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1590 { |
| 9880 | 1591 std::string msg; |
|
10197
4d433bd2d4dc
attempt to avoid trouble with gnulib #defines in a consistent way
John W. Eaton <jwe@octave.org>
parents:
10154
diff
changeset
|
1592 int status = octave_mkdir (dir, 0777, msg); |
| 9880 | 1593 |
| 1594 if (status < 0) | |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1595 error ("__ftp_mget__: can't create directory %s%s%s. %s", |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1596 target.c_str (), sep.c_str (), dir.c_str (), msg.c_str ()); |
| 9880 | 1597 } |
| 1598 | |
| 1599 if (! error_state) | |
| 1600 { | |
| 1601 curl.cwd (dir); | |
| 1602 | |
| 1603 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1604 { |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1605 unwind_protect_safe frame; |
| 9880 | 1606 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1607 frame.add_fcn (reset_path, curl); |
| 9880 | 1608 |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1609 string_vector sv = curl.list (); |
| 9880 | 1610 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1611 for (octave_idx_type i = 0; i < sv.length (); i++) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1612 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1613 time_t ftime; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1614 bool fisdir; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1615 double fsize; |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1616 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1617 curl.get_fileinfo (sv(i), fsize, ftime, fisdir); |
| 9880 | 1618 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1619 if (fisdir) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1620 getallfiles (curl, sv(i), target + dir + sep); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1621 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1622 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1623 std::string realfile = target + dir + sep + sv(i); |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1624 std::ofstream ofile (realfile.c_str (), |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1625 std::ios::out | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1626 std::ios::binary); |
| 9880 | 1627 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1628 if (! ofile.is_open ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1629 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1630 error ("__ftp_mget__: unable to open file"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1631 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1632 } |
| 9880 | 1633 |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1634 unwind_protect_safe frame2; |
| 9880 | 1635 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1636 frame2.add_fcn (delete_file, realfile); |
| 9880 | 1637 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1638 curl.get (sv(i), ofile); |
| 9880 | 1639 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1640 ofile.close (); |
| 9880 | 1641 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1642 if (!error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1643 frame2.discard (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1644 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1645 frame2.run (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1646 } |
| 9880 | 1647 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1648 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1649 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1650 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1651 } |
| 9880 | 1652 } |
| 1653 } | |
| 1654 #endif | |
| 1655 | |
| 1656 DEFUN_DLD (__ftp_mget__, args, , | |
| 1657 "-*- texinfo -*-\n\ | |
| 1658 @deftypefn {Loadable Function} {} __ftp_mget__ (@var{handle}, @var{files})\n\ | |
| 1659 Undocumented internal function\n\ | |
| 1660 @end deftypefn") | |
| 1661 { | |
| 1662 #ifdef HAVE_CURL | |
| 1663 int nargin = args.length (); | |
| 1664 | |
| 1665 if (nargin != 2 && nargin != 3) | |
|
11553
01f703952eff
Improve docstrings for functions in DLD-FUNCTIONS directory.
Rik <octave@nomad.inbox5.com>
parents:
11548
diff
changeset
|
1666 error ("__ftp_mget__: incorrect number of arguments"); |
| 9880 | 1667 else |
| 1668 { | |
| 1669 std::string handle = args(0).string_value (); | |
| 1670 std::string file = args(1).string_value (); | |
| 1671 std::string target; | |
| 1672 | |
| 1673 if (nargin == 3) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1674 target = args(2).string_value () + file_ops::dir_sep_str (); |
| 9880 | 1675 |
| 1676 if (! error_state) | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1677 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1678 const curl_handle curl = handles.contents (handle); |
| 9880 | 1679 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1680 if (curl.is_valid ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1681 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1682 string_vector sv = curl.list (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1683 octave_idx_type n = 0; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1684 glob_match pattern (file); |
| 9880 | 1685 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1686 for (octave_idx_type i = 0; i < sv.length (); i++) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1687 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1688 if (pattern.match (sv(i))) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1689 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1690 n++; |
| 9880 | 1691 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1692 time_t ftime; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1693 bool fisdir; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1694 double fsize; |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1695 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1696 curl.get_fileinfo (sv(i), fsize, ftime, fisdir); |
| 9880 | 1697 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1698 if (fisdir) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1699 getallfiles (curl, sv(i), target); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1700 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1701 { |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14424
diff
changeset
|
1702 std::ofstream ofile ((target + sv(i)).c_str (), |
|
11586
12df7854fa7c
strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
11553
diff
changeset
|
1703 std::ios::out | |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1704 std::ios::binary); |
| 9880 | 1705 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1706 if (! ofile.is_open ()) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1707 { |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1708 error ("__ftp_mget__: unable to open file"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1709 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1710 } |
| 9880 | 1711 |
|
10066
2cd940306a06
make unwind_protect frames local
Jaroslav Hajek <highegg@gmail.com>
parents:
9918
diff
changeset
|
1712 unwind_protect_safe frame; |
| 9880 | 1713 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1714 frame.add_fcn (delete_file, target + sv(i)); |
| 9880 | 1715 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1716 curl.get (sv(i), ofile); |
| 9880 | 1717 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1718 ofile.close (); |
| 9880 | 1719 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1720 if (!error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1721 frame.discard (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1722 else |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1723 frame.run (); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1724 } |
| 9880 | 1725 |
|
10154
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1726 if (error_state) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1727 break; |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1728 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1729 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1730 if (n == 0) |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1731 error ("__ftp_mget__: file not found"); |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1732 } |
|
40dfc0c99116
DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents:
10084
diff
changeset
|
1733 } |
| 9880 | 1734 } |
| 1735 #else | |
| 1736 error ("__ftp_mget__: not available in this version of Octave"); | |
| 1737 #endif | |
| 1738 | |
| 1739 return octave_value (); | |
| 1740 } |