Mercurial > hg > octave-jordi

annotate src/DLD-FUNCTIONS/md5sum.cc @ 10250:2d47356a7a1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use gnulib getcwd module
author John W. Eaton <jwe@octave.org>
date Wed, 03 Feb 2010 03:07:06 -0500
parents 40dfc0c99116
children 89f4d7e294cc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
1 /*
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
2
9245
16f53d29049f update copyright notices
John W. Eaton <jwe@octave.org>
parents: 9064
diff changeset
3 Copyright (C) 2007, 2009 David Bateman
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
4
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
5
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
6 This file is part of Octave.
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
7
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
8 Octave is free software; you can redistribute it and/or modify it
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6383
diff changeset
10 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6383
diff changeset
11 option) any later version.
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
12
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
13 Octave is distributed in the hope that it will be useful, but WITHOUT
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
16 for more details.
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
17
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
18 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: 6383
diff changeset
19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6383
diff changeset
20 <http://www.gnu.org/licenses/>.
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
21
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
22 */
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
23
10039
1e306aa51d6c Include config.h before another header file.
Thomas Treichl
parents: 9245
diff changeset
24 #ifdef HAVE_CONFIG_H
1e306aa51d6c Include config.h before another header file.
Thomas Treichl
parents: 9245
diff changeset
25 #include <config.h>
1e306aa51d6c Include config.h before another header file.
Thomas Treichl
parents: 9245
diff changeset
26 #endif
1e306aa51d6c Include config.h before another header file.
Thomas Treichl
parents: 9245
diff changeset
27
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
28 #include <string>
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
29 #include <vector>
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
30
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
31 #include "defun-dld.h"
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
32 #include "file-stat.h"
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
33 #include "file-ops.h"
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
34 #include "gripes.h"
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
35 #include "load-path.h"
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
36 #include "oct-env.h"
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
37 #include "oct-md5.h"
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
38
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
39 DEFUN_DLD (md5sum, args, ,
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
40 "-*- texinfo -*-\n\
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
41 @deftypefn {Loadable Function} {} md5sum (@var{file})\n\
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
42 @deftypefnx {Loadable Function} {} md5sum (@var{str}, @var{opt})\n\
9064
7c02ec148a3c Check grammar on all .cc files
Rik <rdrider0-list@yahoo.com>
parents: 7016
diff changeset
43 Calculates the MD5 sum of the file @var{file}. If the second parameter\n\
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
44 @var{opt} exists and is true, then calculate the MD5 sum of the\n\
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
45 string @var{str}.\n\
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
46 @end deftypefn")
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
47 {
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
48 octave_value retval;
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
49 int nargin = args.length ();
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
50
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
51 if (nargin != 1 && nargin != 2)
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
52 print_usage();
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
53 else
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
54 {
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
55 bool have_str = false;
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
56 std::string str = args(0).string_value();
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
57
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
58 if (nargin == 2)
10154
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
59 have_str = args(1).bool_value();
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
60
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
61 if (!error_state)
10154
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
62 {
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
63 if (have_str)
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
64 retval = oct_md5 (str);
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
65 else
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
66 {
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
67 file_stat fs (str);
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
68
10154
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
69 if (! fs.exists ())
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
70 {
10250
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10154
diff changeset
71 std::string tmp
2d47356a7a1a use gnulib getcwd module
John W. Eaton <jwe@octave.org>
parents: 10154
diff changeset
72 = octave_env::make_absolute (load_path::find_file (str));
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
73
10154
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
74 if (! tmp.empty ())
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
75 {
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
76 warning_with_id ("Octave:md5sum-file-in-path",
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
77 "md5sum: file found in load path");
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
78 str = tmp;
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
79 }
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
80 }
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
81
10154
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
82 retval = oct_md5_file (str);
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
83 }
40dfc0c99116 DLD-FUNCTIONS/*.cc: untabify
John W. Eaton <jwe@octave.org>
parents: 10039
diff changeset
84 }
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
85 }
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
86
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
87 return retval;
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
88 }