Mercurial > octave-nkf

annotate scripts/miscellaneous/movefile.m @ 20654:b65888ec820e draft default tip gccjit

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dmalcom gcc jit import
author Stefan Mahr <dac922@gmx.de>
date Fri, 27 Feb 2015 16:59:36 +0100
parents 4197fc428c7d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 19631
diff changeset
1 ## Copyright (C) 2005-2015 John W. Eaton
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
2 ##
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
3 ## This file is part of Octave.
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
4 ##
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
6 ## under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6828
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6828
diff changeset
8 ## your option) any later version.
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
9 ##
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
13 ## General Public License for more details.
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
14 ##
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
15 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6828
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6828
diff changeset
17 ## <http://www.gnu.org/licenses/>.
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
18
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
19 ## -*- texinfo -*-
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
20 ## @deftypefn {Function File} {} movefile (@var{f1})
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
21 ## @deftypefnx {Function File} {} movefile (@var{f1}, @var{f2})
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
22 ## @deftypefnx {Function File} {} movefile (@var{f1}, @var{f2}, 'f')
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
23 ## @deftypefnx {Function File} {[@var{status}, @var{msg}, @var{msgid}] =} movefile (@dots{})
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
24 ## Move the source files or directories @var{f1} to the destination @var{f2}.
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
25 ##
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
26 ## The name @var{f1} may contain globbing patterns. If @var{f1} expands to
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
27 ## multiple file names, @var{f2} must be a directory. If no destination
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
28 ## @var{f2} is specified then the destination is the present working directory.
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
29 ## If @var{f2} is a file name then @var{f1} is renamed to @var{f2}.
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
30 ##
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
31 ## When the force flag @qcode{'f'} is given any existing files will be
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
32 ## overwritten without prompting.
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
33 ##
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
34 ## If successful, @var{status} is 1, and @var{msg}, @var{msgid} are empty
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
35 ## character strings (""). Otherwise, @var{status} is 0, @var{msg} contains a
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
36 ## system-dependent error message, and @var{msgid} contains a unique message
17514
5b916efea542 doc: spellcheck of documentation before 3.8 release.
Rik <rik@octave.org>
parents: 17397
diff changeset
37 ## identifier. Note that the status code is exactly opposite that of the
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
38 ## @code{system} command.
17397
0bf2fc8562c9 doc: Update documentation for file and directory functions.
Rik <rik@octave.org>
parents: 17394
diff changeset
39 ## @seealso{rename, copyfile, unlink, delete, glob}
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
40 ## @end deftypefn
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
41
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
42 function [status, msg, msgid] = movefile (f1, f2, force)
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
43
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
44 if (nargin < 1 || nargin > 3)
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
45 print_usage ();
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
46 endif
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
47
6679
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
48 max_cmd_line = 1024;
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
49 status = true;
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
50 msg = "";
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
51 msgid = "";
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
52
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
53 ## FIXME: maybe use the same method as in ls to allow users control
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
54 ## over the command that is executed.
6210
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
55
11300
4ecc7bc5bc83 search PATH from environment for programs, not EXEC_PATH
John W. Eaton <jwe@octave.org>
parents: 10549
diff changeset
56 if (ispc () && ! isunix ()
4ecc7bc5bc83 search PATH from environment for programs, not EXEC_PATH
John W. Eaton <jwe@octave.org>
parents: 10549
diff changeset
57 && isempty (file_in_path (getenv ("PATH"), "mv.exe")))
6233
a299c8a6d96e [project @ 2007-01-09 04:31:18 by jwe]
jwe
parents: 6210
diff changeset
58 ## Windows.
6210
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
59 cmd = "cmd /C move";
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
60 cmd_force_flag = "/Y";
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
61 else
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
62 cmd = "mv";
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
63 cmd_force_flag = "-f";
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
64 endif
12b676a0b183 [project @ 2006-12-07 02:37:17 by jwe]
jwe
parents: 6069
diff changeset
65
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
66 ## Input type check.
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
67 if (ischar (f1))
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
68 f1 = cellstr (f1);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
69 elseif (! iscellstr (f1))
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
70 error ("copyfile: F1 must be a string or a cell array of strings");
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
71 endif
6233
a299c8a6d96e [project @ 2007-01-09 04:31:18 by jwe]
jwe
parents: 6210
diff changeset
72
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
73 if (nargin == 1)
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
74 f2 = pwd ();
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
75 elseif (! ischar (f2))
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
76 error ("movefile: F2 must be a string");
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
77 endif
6069
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe]
jwe
parents: 6047
diff changeset
78
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
79 if (nargin == 3 && strcmp (force, "f"))
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
80 cmd = [cmd " " cmd_force_flag];
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
81 endif
11587
c792872f8942 all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
82
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
83 ## If f1 has more than 1 element f2 must be a directory
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
84 isdir = (exist (f2, "dir") != 0);
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
85 if (numel (f1) > 1 && ! isdir)
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
86 error ("movefile: when moving multiple files, F2 must be a directory");
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
87 endif
6069
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe]
jwe
parents: 6047
diff changeset
88
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
89 ## Protect the file name(s).
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
90 f1 = glob (f1);
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
91 if (isempty (f1))
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
92 error ("movefile: no files to move");
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
93 endif
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
94 p1 = sprintf ('"%s" ', f1{:});
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
95 p2 = tilde_expand (f2);
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
96
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
97 if (isdir && length (p1) > max_cmd_line)
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
98 l2 = length (p2) + length (cmd) + 6;
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
99 while (! isempty (f1))
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
100 p1 = sprintf ('"%s" ', f1{1});
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
101 f1(1) = [];
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
102 while (! isempty (f1)
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
103 && (length (p1) + length (f1{1}) + l2 < max_cmd_line))
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
104 p1 = sprintf ('%s"%s" ', p1, f1{1});
10549
95c3e38098bf Untabify .m scripts
Rik <code@nomad.inbox5.com>
parents: 7540
diff changeset
105 f1(1) = [];
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
106 endwhile
6679
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
107
11300
4ecc7bc5bc83 search PATH from environment for programs, not EXEC_PATH
John W. Eaton <jwe@octave.org>
parents: 10549
diff changeset
108 if (ispc () && ! isunix ()
12497
1536ed546219 Fix bug #32443 preventing 'pkg install' on Windows platforms.
Rik <octave@nomad.inbox5.com>
parents: 12211
diff changeset
109 && ! isempty (file_in_path (getenv ("PATH"), "cp.exe")))
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
110 p1 = strrep (p1, '\', '/');
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
111 p2 = strrep (p2, '\', '/');
6679
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
112 endif
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
113
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
114 ## Move the file(s).
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
115 [err, msg] = system (sprintf ('%s %s "%s"', cmd, p1, p2));
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
116 if (err != 0)
10549
95c3e38098bf Untabify .m scripts
Rik <code@nomad.inbox5.com>
parents: 7540
diff changeset
117 status = false;
95c3e38098bf Untabify .m scripts
Rik <code@nomad.inbox5.com>
parents: 7540
diff changeset
118 msgid = "movefile";
6679
a40b4060efff [project @ 2007-05-31 20:07:23 by dbateman]
dbateman
parents: 6398
diff changeset
119 endif
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
120 endwhile
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
121 else
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
122 if (ispc () && ! isunix ()
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
123 && ! isempty (file_in_path (getenv ("PATH"), "cp.exe")))
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
124 p1 = strrep (p1, '\', '/');
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
125 p2 = strrep (p2, '\', '/');
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
126 endif
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
127
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
128 ## Move the file(s).
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
129 [err, msg] = system (sprintf ('%s %s "%s"', cmd, p1, p2));
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
130 if (err != 0)
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
131 status = false;
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
132 msgid = "movefile";
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
133 endif
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
134 endif
17394
b6867a09d7cf Return correct status code for copyfile, movefile.
Rik <rik@octave.org>
parents: 17338
diff changeset
135
6047
176f1c58a474 [project @ 2006-10-10 19:13:49 by jwe]
jwe
parents:
diff changeset
136 endfunction
17338
1c89599167a6 maint: End m-files with 1 blank line.
Rik <rik@octave.org>
parents: 17281
diff changeset
137
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
138
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
139 %!test
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
140 %! unwind_protect
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
141 %! f1 = tempname;
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
142 %! tmp_var = pi;
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
143 %! save (f1, "tmp_var");
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
144 %! fid = fopen (f1, "rb");
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
145 %! assert (fid >= 0);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
146 %! orig_data = fread (fid);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
147 %! fclose (fid);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
148 %! f2 = tempname;
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
149 %! assert (movefile (f1, f2));
19631
db92e7e28e1f strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19295
diff changeset
150 %! assert (! exist (f1, "file"));
db92e7e28e1f strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19295
diff changeset
151 %! assert (exist (f2, "file"));
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
152 %! fid = fopen (f2, "rb");
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
153 %! assert (fid >= 0);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
154 %! new_data = fread (fid);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
155 %! fclose (fid);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
156 %! if (orig_data != new_data)
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
157 %! error ("moved file not equal to original file!");
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
158 %! endif
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
159 %! unwind_protect_cleanup
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
160 %! delete (f2);
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
161 %! end_unwind_protect
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
162
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
163 ## Test input validation
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
164 %!error movefile ()
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
165 %!error movefile (1,2,3,4)
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
166 %!error <F1 must be a string> movefile (1, "foobar")
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
167 %!error <F2 must be a string> movefile ("foobar", 1)
19631
db92e7e28e1f strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents: 19295
diff changeset
168 %!error <F2 must be a directory> movefile ({"a", "b"}, "%_NOT_A_DIR_%")
19295
30a9df3770aa movefile.m: Overhaul function.
Rik <rik@octave.org>
parents: 17744
diff changeset
169