Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/md5sum.cc @ 6375:5fced7a5eee8
[project @ 2007-03-01 17:23:39 by dbateman]
author | dbateman |
---|---|
date | Thu, 01 Mar 2007 17:23:40 +0000 |
parents | |
children | 65e9cf5c7718 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/DLD-FUNCTIONS/md5sum.cc Thu Mar 01 17:23:40 2007 +0000 @@ -0,0 +1,55 @@ +/* + +Copyright (C) 2007 David Bateman + + +This file is part of Octave. + +Octave is free software; you can redistribute it and/or modify it +under the terms of the GNU General Public License as published by the +Free Software Foundation; either version 2, or (at your option) any +later version. + +Octave is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with Octave; see the file COPYING. If not, write to the Free +Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +02110-1301, USA. + +*/ + +#include <string> +#include <vector> + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "defun-dld.h" +#include "oct-md5.h" + +DEFUN_DLD (md5sum, args, nargout, + "-*- texinfo -*-\n\ +@deftypefn {Loadable Function} {} md5sum (@var{str})\n\ +Calculates the MD5 sum of the string @var{str}.\n\ +@end deftypefn") +{ + octave_value retval; + int nargin = args.length (); + + if (nargin != 1) + print_usage(); + else + { + std::string str = args(0).string_value(); + + if (!error_state) + retval = oct_md5 (str); + } + + return retval; +}