Mercurial > hg > octave-lyh

annotate liboctave/oct-md5.cc @ 14444:245963d3d628 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pkg: bug fix - accessing non-existent variable for error message
author Miguel Bazdresch <lmb@2pif.info>
date Thu, 01 Mar 2012 14:58:59 +0000
parents 06aa17228706
children 460a3c6d8bf1 d174210ce1ec
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
14138
72c96de7a403 maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents: 11586
diff changeset
3 Copyright (C) 2007-2012 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 This file is part of Octave.
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
6
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
7 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
8 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
9 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
10 option) any later version.
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
11
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
12 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
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
14 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
15 for more details.
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
16
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
17 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
18 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
19 <http://www.gnu.org/licenses/>.
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
20
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 #ifdef HAVE_CONFIG_H
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
24 #include "config.h"
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
25 #endif
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
26
8521
93cf10950334 tmpdir=tmpnam;
Rafael Laboissiere <rafael@debian.org>
parents: 8377
diff changeset
27 #include <cstdio>
93cf10950334 tmpdir=tmpnam;
Rafael Laboissiere <rafael@debian.org>
parents: 8377
diff changeset
28
93cf10950334 tmpdir=tmpnam;
Rafael Laboissiere <rafael@debian.org>
parents: 8377
diff changeset
29 #include <string>
93cf10950334 tmpdir=tmpnam;
Rafael Laboissiere <rafael@debian.org>
parents: 8377
diff changeset
30 #include <vector>
93cf10950334 tmpdir=tmpnam;
Rafael Laboissiere <rafael@debian.org>
parents: 8377
diff changeset
31
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
32 #include "lo-error.h"
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
33 #include "oct-md5.h"
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
34 #include "md5.h"
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
35
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
36 static std::string
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
37 oct_md5_result_to_str (const unsigned char *buf)
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
38 {
11293
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
39 char tmp [33];
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
40
11293
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
41 sprintf (tmp,
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
42 "%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x%02x",
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
43 buf[0], buf[1], buf[2], buf[3], buf[4], buf[5], buf[6], buf[7],
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
44 buf[8], buf[9], buf[10], buf[11], buf[12], buf[13], buf[14],
202bd0f1863d oct_md5_result_to_str: avoid buffer overrun; replace loop with single call to sprintf
John W. Eaton <jwe@octave.org>
parents: 11292
diff changeset
45 buf[15]);
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
46
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
47 return std::string (tmp, 32);
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
48 }
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
49
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
50 std::string
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
51 oct_md5 (const std::string str)
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
52 {
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
53 unsigned char buf[16];
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
54
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
55 md5_buffer (str.data (), str.length (), buf);
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
56
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
57 return oct_md5_result_to_str (buf);
6375
5fced7a5eee8 [project @ 2007-03-01 17:23:39 by dbateman]
dbateman
parents:
diff changeset
58 }
11586
12df7854fa7c strip trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents: 11523
diff changeset
59
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
60 std::string
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
61 oct_md5_file (const std::string file)
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
62 {
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
63 std::string retval;
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
64
14153
06aa17228706 use gnulib::fopen
John W. Eaton <jwe@octave.org>
parents: 14138
diff changeset
65 FILE *ifile = gnulib::fopen (file.c_str (), "rb");
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
66
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
67 if (ifile)
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
68 {
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
69 unsigned char buf[16];
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
70
11292
231e6d1b57d6 oct_md5_file: close file after reading
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
71 int errflag = md5_stream (ifile, buf);
231e6d1b57d6 oct_md5_file: close file after reading
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
72
11450
5eb10763069f substitute and use LAPACK_LIBS in mkoctfile script
John W. Eaton <jwe@octave.org>
parents: 11293
diff changeset
73 gnulib::fclose (ifile);
11292
231e6d1b57d6 oct_md5_file: close file after reading
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
74
231e6d1b57d6 oct_md5_file: close file after reading
John W. Eaton <jwe@octave.org>
parents: 10314
diff changeset
75 if (! errflag)
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
76 retval = oct_md5_result_to_str (buf);
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
77 else
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
78 (*current_liboctave_error_handler) ("internal error in md5_stream");
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
79 }
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
80 else
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
81 (*current_liboctave_error_handler) ("unable to open file `%s' for reading",
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
82 file.c_str());
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
83
10025
acd5e9df38f8 use gnuplib crypto/md5 module
John W. Eaton <jwe@octave.org>
parents: 8920
diff changeset
84 return retval;
6383
65e9cf5c7718 [project @ 2007-03-05 22:03:31 by dbateman]
dbateman
parents: 6375
diff changeset
85 }