octave-nkf: libinterp/corefcn/time.cc annotate

annotate libinterp/corefcn/time.cc @ 20616:fd0efcdb3718

use new string_value method to handle value extraction errors * dirfns.cc, file-io.cc, gammainc.cc, help.cc, load-path.cc, octave-link.cc, qz.cc, regexp.cc, strfns.cc, syscalls.cc, time.cc, variables.cc: Use new string_value method.

author	John W. Eaton <jwe@octave.org>
date	Thu, 08 Oct 2015 19:00:51 -0400
parents	f90c8372b7ba
children

rev	line source
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	1 /*
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	2
19731 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19437 diff changeset	3 Copyright (C) 1996-2015 John W. Eaton
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	4
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	6
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe 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: 5823 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: 5823 diff changeset	10 option) any later version.
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	11
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	15 for more details.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	16
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe 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: 5823 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: 5823 diff changeset	19 <http://www.gnu.org/licenses/>.
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	20
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	21 */
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	22
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	23 #ifdef HAVE_CONFIG_H
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	24 #include <config.h>
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	25 #endif
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	26
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	27 #include <string>
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	28
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	29 #include "defun.h"
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	30 #include "error.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	31 #include "oct-map.h"
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	32 #include "oct-time.h"
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	33 #include "ov.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	34 #include "oct-obj.h"
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	35
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	36 // Date and time functions.
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	37
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	38 static octave_scalar_map
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	39 mk_tm_map (const octave_base_tm& t)
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	40 {
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	41 octave_scalar_map m;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	42
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	43 m.assign ("usec", static_cast<double> (t.usec ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	44 m.assign ("sec", static_cast<double> (t.sec ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	45 m.assign ("min", static_cast<double> (t.min ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	46 m.assign ("hour", static_cast<double> (t.hour ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	47 m.assign ("mday", static_cast<double> (t.mday ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	48 m.assign ("mon", static_cast<double> (t.mon ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	49 m.assign ("year", static_cast<double> (t.year ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	50 m.assign ("wday", static_cast<double> (t.wday ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	51 m.assign ("yday", static_cast<double> (t.yday ()));
f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	52 m.assign ("isdst", static_cast<double> (t.isdst ()));
20410 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	53 m.assign ("gmtoff", static_cast<double> (t.gmtoff ()));
4675 f6d6335c08f6 [project @ 2003-12-16 05:11:26 by jwe] jwe parents: 4367 diff changeset	54 m.assign ("zone", t.zone ());
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	55
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	56 return m;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	57 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	58
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	59 static inline int
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	60 intfield (const octave_scalar_map& m, const std::string& k)
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	61 {
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	62 int retval = 0;
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	63
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	64 octave_value v = m.getfield (k);
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	65
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	66 if (! v.is_empty ())
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	67 retval = v.int_value ();
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	68
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	69 return retval;
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	70 }
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	71
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	72 static inline std::string
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	73 stringfield (const octave_scalar_map& m, const std::string& k)
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	74 {
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	75 std::string retval;
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	76
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	77 octave_value v = m.getfield (k);
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	78
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	79 if (! v.is_empty ())
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	80 retval = v.string_value ();
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	81
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	82 return retval;
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	83 }
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	84
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	85 static octave_base_tm
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	86 extract_tm (const octave_scalar_map& m)
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	87 {
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	88 octave_base_tm tm;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	89
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	90 tm.usec (intfield (m, "usec"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	91 tm.sec (intfield (m, "sec"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	92 tm.min (intfield (m, "min"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	93 tm.hour (intfield (m, "hour"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	94 tm.mday (intfield (m, "mday"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	95 tm.mon (intfield (m, "mon"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	96 tm.year (intfield (m, "year"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	97 tm.wday (intfield (m, "wday"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	98 tm.yday (intfield (m, "yday"));
f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	99 tm.isdst (intfield (m, "isdst"));
20410 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	100 tm.gmtoff (intfield (m, "gmtoff"));
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	101 tm.zone (stringfield (m, "zone"));
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	102
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	103 return tm;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	104 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	105
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	106 DEFUN (time, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	107 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	108 @deftypefn {Built-in Function} {@var{seconds} =} time ()\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	109 Return the current time as the number of seconds since the epoch.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	110 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	111 The epoch is referenced to 00:00:00 CUT (Coordinated Universal Time) 1 Jan\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	112 1970. For example, on Monday February 17, 1997 at 07:15:06 CUT, the value\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	113 returned by @code{time} was 856163706.\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	114 @seealso{strftime, strptime, localtime, gmtime, mktime, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	115 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	116 {
3255 4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3254 diff changeset	117 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	118
3255 4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3254 diff changeset	119 if (args.length () == 0)
7065 97db94ae2cf0 [project @ 2007-10-25 05:50:55 by jwe] jwe parents: 7017 diff changeset	120 retval = octave_time ();
3255 4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3254 diff changeset	121 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	122 print_usage ();
3255 4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3254 diff changeset	123
4d33b1e56bff [project @ 1999-07-15 20:54:14 by jwe] jwe parents: 3254 diff changeset	124 return retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	125 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	126
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	127 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	128 %!assert (time () > 0)
19176 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	129
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	130 %!error time (1)
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	131 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	132
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	133 DEFUN (gmtime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	134 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	135 @deftypefn {Built-in Function} {@var{tm_struct} =} gmtime (@var{t})\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	136 Given a value returned from @code{time}, or any non-negative integer,\n\
12642 f96b9b9f141b doc: Periodic grammarcheck and spellcheck of documentation. Rik <octave@nomad.inbox5.com> parents: 11553 diff changeset	137 return a time structure corresponding to CUT (Coordinated Universal Time).\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	138 \n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	139 For example:\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	140 \n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	141 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	142 @group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	143 gmtime (time ())\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	144 @result{} @{\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	145 usec = 0\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	146 sec = 6\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	147 min = 15\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	148 hour = 7\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	149 mday = 17\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	150 mon = 1\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	151 year = 97\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	152 wday = 1\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	153 yday = 47\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	154 isdst = 0\n\
20410 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	155 gmtoff = 0\n\
31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	156 zone = GMT\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	157 @}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	158 @end group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	159 @end example\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	160 @seealso{strftime, strptime, localtime, mktime, time, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	161 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	162 {
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	163 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	164
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	165 if (args.length () == 1)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	166 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	167 double tmp = args(0).double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	168
20587 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20410 diff changeset	169 retval = octave_value (mk_tm_map (octave_gmtime (tmp)));
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	170 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	171 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	172 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	173
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	174 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	175 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	176
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	177 /*
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	178 %!test
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	179 %! ts = gmtime (time ());
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	180 %! assert (isstruct (ts));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	181 %! assert (isfield (ts, "usec"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	182 %! assert (isfield (ts, "year"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	183 %! assert (isfield (ts, "mon"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	184 %! assert (isfield (ts, "mday"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	185 %! assert (isfield (ts, "sec"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	186 %! assert (isfield (ts, "min"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	187 %! assert (isfield (ts, "wday"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	188 %! assert (isfield (ts, "hour"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	189 %! assert (isfield (ts, "isdst"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	190 %! assert (isfield (ts, "yday"));
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	191
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	192 %!error gmtime ()
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	193 %!error gmtime (1, 2)
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	194 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	195
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	196 DEFUN (localtime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	197 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	198 @deftypefn {Built-in Function} {@var{tm_struct} =} localtime (@var{t})\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	199 Given a value returned from @code{time}, or any non-negative integer,\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	200 return a time structure corresponding to the local time zone.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	201 \n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	202 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	203 @group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	204 localtime (time ())\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	205 @result{} @{\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	206 usec = 0\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	207 sec = 6\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	208 min = 15\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	209 hour = 1\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	210 mday = 17\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	211 mon = 1\n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	212 year = 97\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	213 wday = 1\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	214 yday = 47\n\
01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	215 isdst = 0\n\
20410 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	216 gmtoff = -21600\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	217 zone = CST\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	218 @}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	219 @end group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	220 @end example\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	221 @seealso{strftime, strptime, gmtime, mktime, time, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	222 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	223 {
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	224 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	225
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	226 if (args.length () == 1)
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	227 {
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	228 double tmp = args(0).double_value ();
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	229
20587 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20410 diff changeset	230 retval = octave_value (mk_tm_map (octave_localtime (tmp)));
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	231 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	232 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	233 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	234
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	235 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	236 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	237
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	238 /*
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	239 %!test
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	240 %! ts = localtime (time ());
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	241 %! assert (isstruct (ts));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	242 %! assert (isfield (ts, "usec"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	243 %! assert (isfield (ts, "year"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	244 %! assert (isfield (ts, "mon"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	245 %! assert (isfield (ts, "mday"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	246 %! assert (isfield (ts, "sec"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	247 %! assert (isfield (ts, "min"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	248 %! assert (isfield (ts, "wday"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	249 %! assert (isfield (ts, "hour"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	250 %! assert (isfield (ts, "isdst"));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	251 %! assert (isfield (ts, "yday"));
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	252
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	253 %!error localtime ()
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	254 %!error localtime (1, 2)
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	255 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	256
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	257 DEFUN (mktime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	258 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	259 @deftypefn {Built-in Function} {@var{seconds} =} mktime (@var{tm_struct})\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	260 Convert a time structure corresponding to the local time to the number of\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	261 seconds since the epoch.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	262 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	263 For example:\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	264 \n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	265 @example\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	266 @group\n\
7097 e8c94e473c68 [project @ 2007-11-02 17:24:23 by jwe] jwe parents: 7065 diff changeset	267 mktime (localtime (time ()))\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	268 @result{} 856163706\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	269 @end group\n\
02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	270 @end example\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	271 @seealso{strftime, strptime, localtime, gmtime, time, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
3301 02866242d3ae [project @ 1999-10-20 04:10:46 by jwe] jwe parents: 3295 diff changeset	272 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	273 {
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	274 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	275
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	276 if (args.length () == 1)
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	277 {
11042 f6b7b6e5b8b8 time.cc: use octave_scalar_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 11005 diff changeset	278 octave_scalar_map map = args(0).scalar_map_value ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	279
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	280 if (! error_state)
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	281 {
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	282 octave_base_tm tm = extract_tm (map);
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	283
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	284 if (! error_state)
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	285 retval = octave_time (tm);
40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	286 else
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	287 error ("mktime: invalid TM_STRUCT argument");
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	288 }
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	289 else
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	290 error ("mktime: TM_STRUCT argument must be a structure");
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	291 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	292 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	293 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	294
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	295 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	296 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	297
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	298 /*
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	299 %!test
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	300 %! t = time ();
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	301 %! assert (fix (mktime (localtime (t))) == fix (t));
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	302
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	303 ## These tests fail on systems with mktime functions of limited
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	304 ## intelligence:
11005 0de4eff677d6 use mktime module from gnulib John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	305 %!assert (datestr (datenum (1969, 1, 1), 0), "01-Jan-1969 00:00:00")
0de4eff677d6 use mktime module from gnulib John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	306 %!assert (datestr (datenum (1901, 1, 1), 0), "01-Jan-1901 00:00:00")
0de4eff677d6 use mktime module from gnulib John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	307 %!assert (datestr (datenum (1795, 1, 1), 0), "01-Jan-1795 00:00:00")
0de4eff677d6 use mktime module from gnulib John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	308
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	309 %!error mktime ()
19176 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	310 %!error mktime (1)
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	311 %!error mktime (1, 2, 3)
19176 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	312 %!error mktime (struct ("year", "foo"))
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	313 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	314
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	315 DEFUN (strftime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	316 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	317 @deftypefn {Built-in Function} {} strftime (@var{fmt}, @var{tm_struct})\n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	318 Format the time structure @var{tm_struct} in a flexible way using the format\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	319 string @var{fmt} that contains @samp{%} substitutions similar to those in\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	320 @code{printf}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	321 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	322 Except where noted, substituted fields have a fixed size; numeric fields are\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	323 padded if necessary. Padding is with zeros by default; for fields that\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	324 display a single number, padding can be changed or inhibited by following\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	325 the @samp{%} with one of the modifiers described below. Unknown field\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	326 specifiers are copied as normal characters. All other characters are copied\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	327 to the output without change. For example:\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	328 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	329 @example\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	330 @group\n\
5020 a6d935b36b7f [project @ 2004-09-22 12:38:10 by jwe] jwe parents: 5016 diff changeset	331 strftime (\"%r (%Z) %A %e %B %Y\", localtime (time ()))\n\
14360 97883071e8e4 doc: Correct off-by-1 spacings in all .cc docstrings Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	332 @result{} \"01:15:06 AM (CST) Monday 17 February 1997\"\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	333 @end group\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	334 @end example\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	335 \n\
20207 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	336 Octave's @code{strftime} function supports a superset of the ANSI C field\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19731 diff changeset	337 specifiers.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	338 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	339 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	340 Literal character fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	341 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	342 @table @code\n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	343 @item %%\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	344 % character.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	345 \n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	346 @item %n\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	347 Newline character.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	348 \n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	349 @item %t\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	350 Tab character.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	351 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	352 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	353 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	354 Numeric modifiers (a nonstandard extension):\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	355 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	356 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	357 @item - (dash)\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	358 Do not pad the field.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	359 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	360 @item _ (underscore)\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	361 Pad the field with spaces.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	362 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	363 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	364 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	365 Time fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	366 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	367 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	368 @item %H\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	369 Hour (00-23).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	370 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	371 @item %I\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	372 Hour (01-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	373 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	374 @item %k\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	375 Hour (0-23).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	376 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	377 @item %l\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	378 Hour (1-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	379 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	380 @item %M\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	381 Minute (00-59).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	382 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	383 @item %p\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	384 Locale's AM or PM.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	385 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	386 @item %r\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	387 Time, 12-hour (hh:mm:ss [AP]M).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	388 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	389 @item %R\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	390 Time, 24-hour (hh:mm).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	391 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	392 @item %s\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	393 Time in seconds since 00:00:00, Jan 1, 1970 (a nonstandard extension).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	394 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	395 @item %S\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	396 Second (00-61).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	397 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	398 @item %T\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	399 Time, 24-hour (hh:mm:ss).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	400 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	401 @item %X\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	402 Locale's time representation (%H:%M:%S).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	403 \n\
20410 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	404 @item %z\n\
31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	405 Offset from UTC (±hhmm), or nothing if no time zone is determinable.\n\
31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20207 diff changeset	406 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	407 @item %Z\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	408 Time zone (EDT), or nothing if no time zone is determinable.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	409 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	410 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	411 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	412 Date fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	413 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	414 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	415 @item %a\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	416 Locale's abbreviated weekday name (Sun-Sat).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	417 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	418 @item %A\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	419 Locale's full weekday name, variable length (Sunday-Saturday).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	420 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	421 @item %b\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	422 Locale's abbreviated month name (Jan-Dec).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	423 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	424 @item %B\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	425 Locale's full month name, variable length (January-December).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	426 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	427 @item %c\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	428 Locale's date and time (Sat Nov 04 12:02:33 EST 1989).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	429 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	430 @item %C\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	431 Century (00-99).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	432 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	433 @item %d\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	434 Day of month (01-31).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	435 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	436 @item %e\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	437 Day of month ( 1-31).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	438 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	439 @item %D\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	440 Date (mm/dd/yy).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	441 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	442 @item %h\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	443 Same as %b.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	444 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	445 @item %j\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	446 Day of year (001-366).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	447 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	448 @item %m\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	449 Month (01-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	450 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	451 @item %U\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	452 Week number of year with Sunday as first day of week (00-53).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	453 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	454 @item %w\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	455 Day of week (0-6).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	456 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	457 @item %W\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	458 Week number of year with Monday as first day of week (00-53).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	459 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	460 @item %x\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	461 Locale's date representation (mm/dd/yy).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	462 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	463 @item %y\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	464 Last two digits of year (00-99).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	465 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	466 @item %Y\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	467 Year (1970-).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	468 @end table\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	469 @seealso{strptime, localtime, gmtime, mktime, time, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
5646 2b20d1707f29 [project @ 2006-03-06 22:38:32 by jwe] jwe parents: 5307 diff changeset	470 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	471 {
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	472 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	473
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	474 if (args.length () == 2)
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	475 {
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	476 std::string fmt = args(0).string_value ("strftime: FMT must be a string");
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	477
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	478 octave_scalar_map map = args(1).scalar_map_value ();
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	479
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	480 if (! error_state)
19437 03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19176 diff changeset	481 {
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	482 octave_base_tm tm = extract_tm (map);
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	483
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	484 if (! error_state)
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	485 retval = tm.strftime (fmt);
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	486 else
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	487 error ("strftime: invalid TM_STRUCT argument");
10154 40dfc0c99116 DLD-FUNCTIONS/.cc: untabify John W. Eaton <jwe@octave.org>* parents: 9209 diff changeset	488 }
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	489 else
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	490 error ("strftime: TM_STRUCT must be a structure");
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	491 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	492 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	493 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	494
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	495 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	496 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	497
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	498 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	499 %!assert (ischar (strftime ("%%%n%t%H%I%k%l", localtime (time ()))));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	500 %!assert (ischar (strftime ("%M%p%r%R%s%S%T", localtime (time ()))));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	501 %!assert (ischar (strftime ("%X%Z%z%a%A%b%B", localtime (time ()))));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	502 %!assert (ischar (strftime ("%c%C%d%e%D%h%j", localtime (time ()))));
60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	503 %!assert (ischar (strftime ("%m%U%w%W%x%y%Y", localtime (time ()))));
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	504
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	505 %!error strftime ()
19176 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	506 %!error strftime ("foo", 1)
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	507 %!error strftime ("foo", struct ("year", "foo"))
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	508 %!error strftime ("foo", localtime (time ()), 1)
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	509 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	510
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	511 DEFUN (strptime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	512 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	513 @deftypefn {Built-in Function} {[@var{tm_struct}, @var{nchars}] =} strptime (@var{str}, @var{fmt})\n\
5675 c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	514 Convert the string @var{str} to the time structure @var{tm_struct} under\n\
c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	515 the control of the format string @var{fmt}.\n\
c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	516 \n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	517 If @var{fmt} fails to match, @var{nchars} is 0; otherwise, it is set to the\n\
5675 c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	518 position of last matched character plus 1. Always check for this unless\n\
c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	519 you're absolutely sure the date string will be parsed correctly.\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	520 @seealso{strftime, localtime, gmtime, mktime, time, now, date, clock, datenum, datestr, datevec, calendar, weekday}\n\
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	521 @end deftypefn")
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	522 {
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	523 octave_value_list retval;
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	524
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	525 if (args.length () == 2)
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	526 {
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	527 std::string str = args(0).string_value ("strptime: argument STR must be a string");
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	528
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	529 std::string fmt = args(1).string_value ("strptime: FMT must be a string");
19437 03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19176 diff changeset	530
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	531 octave_strptime t (str, fmt);
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	532
20616 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	533 retval(1) = t.characters_converted ();
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20587 diff changeset	534 retval(0) = octave_value (mk_tm_map (t));
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	535 }
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	536 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	537 print_usage ();
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	538
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	539 return retval;
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	540 }
19176 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	541
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	542 /*
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	543 %!test
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	544 %! fmt = "%Y-%m-%d %H:%M:%S";
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	545 %! s = strftime (fmt, localtime (time ()));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	546 %! ts = strptime (s, fmt);
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	547 %! assert (isstruct (ts));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	548 %! assert (isfield (ts, "usec"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	549 %! assert (isfield (ts, "year"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	550 %! assert (isfield (ts, "mon"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	551 %! assert (isfield (ts, "mday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	552 %! assert (isfield (ts, "sec"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	553 %! assert (isfield (ts, "min"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	554 %! assert (isfield (ts, "wday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	555 %! assert (isfield (ts, "hour"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	556 %! assert (isfield (ts, "isdst"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	557 %! assert (isfield (ts, "yday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	558
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	559 %!error strptime ()
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	560 */

Mercurial > octave-nkf

annotate libinterp/corefcn/time.cc @ 20616:fd0efcdb3718