octave: libinterp/corefcn/time.cc annotate

annotate libinterp/corefcn/time.cc @ 20719:d903cccb8de8

doc: Periodic spellcheck of documentation. * aspell-octave.en.pws: Add new spelling exceptions to private dictionary. * diffeq.txi, plot.txi, time.cc, validateattributes.m, imwrite.m, ode45.m: Add nospell macro around unusual words. * uicontextmenu.m, uipanel.m, uipushtool.m, uitoggletool.m, uitoolbar.m: Correct "propertes" to "properties". * uicontrol.m: Correct "propertes" to "properties". Correct "slelection" to "selection". * cor_test.m: Correct "produt" to "product".

author	Rik <rik@octave.org>
date	Wed, 18 Nov 2015 22:07:12 -0800
parents	571508c1ed06
children	fb128aafc322

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
19697 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 19403 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 ()));
20375 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 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
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	60 intfield (const octave_scalar_map& m, const std::string& k, const char *who)
11042 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 ())
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	67 retval = v.xint_value ("%s: invalid TM_STRUCT argument", who);
11042 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
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	73 stringfield (const octave_scalar_map& m, const std::string& k, const char *who)
11042 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 ())
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	80 retval = v.xstring_value ("%s: invalid TM_STRUCT argument", who);
11042 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
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	86 extract_tm (const octave_scalar_map& m, const char *who)
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
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	90 tm.usec (intfield (m, "usec", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	91 tm.sec (intfield (m, "sec", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	92 tm.min (intfield (m, "min", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	93 tm.hour (intfield (m, "hour", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	94 tm.mday (intfield (m, "mday", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	95 tm.mon (intfield (m, "mon", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	96 tm.year (intfield (m, "year", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	97 tm.wday (intfield (m, "wday", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	98 tm.yday (intfield (m, "yday", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	99 tm.isdst (intfield (m, "isdst", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	100 tm.gmtoff (intfield (m, "gmtoff", who));
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	101 tm.zone (stringfield (m, "zone", who));
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\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 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: 19697 diff changeset	110 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 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: 19697 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: 19697 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)
19142 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\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 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\
20375 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 diff changeset	155 gmtoff = 0\n\
31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 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
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20375 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\
20375 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 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
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20375 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\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 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: 19697 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: 19697 diff changeset	262 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 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 {
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	278 octave_scalar_map map = args(0).xscalar_map_value ("mktime: TM_STRUCT argument must be a structure");
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	279
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	280 octave_base_tm tm = extract_tm (map, "mktime");
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	281
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	282 retval = octave_time (tm);
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	283 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	284 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	285 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	286
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	287 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	288 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	289
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	290 /*
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	291 %!test
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	292 %! t = time ();
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	293 %! 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	294
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	295 ## 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	296 ## intelligence:
11005 0de4eff677d6 use mktime module from gnulib John W. Eaton <jwe@octave.org> parents: 10840 diff changeset	297 %!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	298 %!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	299 %!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	300
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	301 %!error mktime ()
19142 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	302 %!error mktime (1)
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	303 %!error mktime (1, 2, 3)
19142 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	304 %!error mktime (struct ("year", "foo"))
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	305 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	306
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	307 DEFUN (strftime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	308 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	309 @deftypefn {Built-in Function} {} strftime (@var{fmt}, @var{tm_struct})\n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	310 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: 19697 diff changeset	311 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: 19697 diff changeset	312 @code{printf}.\n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	313 \n\
4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	314 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: 19697 diff changeset	315 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: 19697 diff changeset	316 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: 19697 diff changeset	317 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: 19697 diff changeset	318 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: 19697 diff changeset	319 to the output without change. For example:\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	320 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	321 @example\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	322 @group\n\
5020 a6d935b36b7f [project @ 2004-09-22 12:38:10 by jwe] jwe parents: 5016 diff changeset	323 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	324 @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	325 @end group\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	326 @end example\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	327 \n\
20172 4f45eaf83908 doc: Update more docstrings to have one sentence summary as first line. Rik <rik@octave.org> parents: 19697 diff changeset	328 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: 19697 diff changeset	329 specifiers.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	330 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	331 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	332 Literal character fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	333 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	334 @table @code\n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	335 @item %%\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	336 % character.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	337 \n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	338 @item %n\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	339 Newline character.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	340 \n\
12776 944cf42c699e doc: small documentation fixes for strftime, betainc Rik <octave@nomad.inbox5.com> parents: 12642 diff changeset	341 @item %t\n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	342 Tab character.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	343 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	344 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	345 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	346 Numeric modifiers (a nonstandard extension):\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	347 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	348 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	349 @item - (dash)\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	350 Do not pad the field.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	351 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	352 @item _ (underscore)\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	353 Pad the field with spaces.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	354 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	355 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	356 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	357 Time fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	358 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	359 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	360 @item %H\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	361 Hour (00-23).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	362 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	363 @item %I\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	364 Hour (01-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	365 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	366 @item %k\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	367 Hour (0-23).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	368 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	369 @item %l\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	370 Hour (1-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	371 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	372 @item %M\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	373 Minute (00-59).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	374 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	375 @item %p\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	376 Locale's AM or PM.\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	377 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	378 @item %r\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	379 Time, 12-hour (hh:mm:ss [AP]M).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	380 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	381 @item %R\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	382 Time, 24-hour (hh:mm).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	383 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	384 @item %s\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	385 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	386 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	387 @item %S\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	388 Second (00-61).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	389 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	390 @item %T\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	391 Time, 24-hour (hh:mm:ss).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	392 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	393 @item %X\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	394 Locale's time representation (%H:%M:%S).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	395 \n\
20375 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 diff changeset	396 @item %z\n\
20719 d903cccb8de8 doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20704 diff changeset	397 Offset from UTC (±@nospell{hhmm}), or nothing if no time zone is\n\
d903cccb8de8 doc: Periodic spellcheck of documentation. Rik <rik@octave.org> parents: 20704 diff changeset	398 determinable.\n\
20375 31f89b12aaf7 strftime: Add support for "%z" conversion specifier (bug #45592) Mike Miller <mtmiller@octave.org> parents: 20172 diff changeset	399 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	400 @item %Z\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	401 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	402 @end table\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	403 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	404 @noindent\n\
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	405 Date fields:\n\
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	406 \n\
3295 35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	407 @table @code\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	408 @item %a\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	409 Locale's abbreviated weekday name (Sun-Sat).\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 @item %A\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	412 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	413 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	414 @item %b\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	415 Locale's abbreviated month name (Jan-Dec).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	416 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	417 @item %B\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	418 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	419 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	420 @item %c\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	421 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	422 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	423 @item %C\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	424 Century (00-99).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	425 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	426 @item %d\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	427 Day of month (01-31).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	428 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	429 @item %e\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	430 Day of month ( 1-31).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	431 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	432 @item %D\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	433 Date (mm/dd/yy).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	434 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	435 @item %h\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	436 Same as %b.\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	437 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	438 @item %j\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	439 Day of year (001-366).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	440 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	441 @item %m\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	442 Month (01-12).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	443 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	444 @item %U\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	445 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	446 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	447 @item %w\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	448 Day of week (0-6).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	449 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	450 @item %W\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	451 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	452 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	453 @item %x\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	454 Locale's date representation (mm/dd/yy).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	455 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	456 @item %y\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	457 Last two digits of year (00-99).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	458 \n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	459 @item %Y\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	460 Year (1970-).\n\
35a6d027772c [project @ 1999-10-19 10:13:02 by jwe] jwe parents: 3255 diff changeset	461 @end table\n\
5688 6274256266d9 [project @ 2006-03-16 20:36:28 by jwe] jwe parents: 5675 diff changeset	462 @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	463 @end deftypefn")
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	464 {
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	465 octave_value retval;
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	466
3254 28d5f556b8cf [project @ 1999-07-15 16:02:57 by jwe] jwe parents: 3233 diff changeset	467 if (args.length () == 2)
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	468 {
20700 68e3a747ca02 rename octave_value value extractors that accept error message args John W. Eaton <jwe@octave.org> parents: 20581 diff changeset	469 std::string fmt = args(0).xstring_value ("strftime: FMT must be a string");
20581 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	470
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	471 octave_scalar_map map = args(1).xscalar_map_value ("strftime: TM_STRUCT must be a structure");
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	472
20704 571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	473 octave_base_tm tm = extract_tm (map, "strftime");
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	474
571508c1ed06 eliminate more uses of error_state John W. Eaton <jwe@octave.org> parents: 20700 diff changeset	475 retval = tm.strftime (fmt);
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	476 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	477 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	478 print_usage ();
2928 295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	479
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	480 return retval;
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	481 }
295f037b4b3e [project @ 1997-05-05 05:32:33 by jwe] jwe parents: diff changeset	482
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	483 /*
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	484 %!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	485 %!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	486 %!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	487 %!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	488 %!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	489
14501 60e5cf354d80 Update %!tests in DLD-FUNCTIONS/ directory with Octave coding conventions. Rik <octave@nomad.inbox5.com> parents: 14360 diff changeset	490 %!error strftime ()
19142 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	491 %!error strftime ("foo", 1)
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	492 %!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	493 %!error strftime ("foo", localtime (time ()), 1)
7562 c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	494 */
c827f5673321 move tests to individual source files John W. Eaton <jwe@octave.org> parents: 7097 diff changeset	495
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	496 DEFUN (strptime, args, ,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	497 "-- texinfo --\n\
15039 e753177cde93 maint: Move non-dynamically linked functions from DLD-FUNCTIONS/ to corefcn/ directory Rik <rik@octave.org> parents: 14501 diff changeset	498 @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	499 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	500 the control of the format string @var{fmt}.\n\
c5f6623514c4 [project @ 2006-03-16 03:59:09 by jwe] jwe parents: 5646 diff changeset	501 \n\
11553 01f703952eff Improve docstrings for functions in DLD-FUNCTIONS directory. Rik <octave@nomad.inbox5.com> parents: 11523 diff changeset	502 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	503 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	504 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	505 @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	506 @end deftypefn")
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	507 {
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	508 octave_value_list retval;
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	509
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	510 if (args.length () == 2)
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	511 {
20700 68e3a747ca02 rename octave_value value extractors that accept error message args John W. Eaton <jwe@octave.org> parents: 20581 diff changeset	512 std::string str = args(0).xstring_value ("strptime: argument STR must be a string");
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	513
20700 68e3a747ca02 rename octave_value value extractors that accept error message args John W. Eaton <jwe@octave.org> parents: 20581 diff changeset	514 std::string fmt = args(1).xstring_value ("strptime: FMT must be a string");
19403 03067dab10ca Use stricter input validation when looking for a string as input (bug #42651). Rik <rik@octave.org> parents: 19142 diff changeset	515
20581 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	516 octave_strptime t (str, fmt);
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	517
20581 fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	518 retval(1) = t.characters_converted ();
fd0efcdb3718 use new string_value method to handle value extraction errors John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	519 retval(0) = octave_value (mk_tm_map (t));
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	520 }
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	521 else
5823 080c08b192d8 [project @ 2006-05-19 05:32:17 by jwe] jwe parents: 5688 diff changeset	522 print_usage ();
3465 996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	523
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	524 return retval;
996bb7ea4507 [project @ 2000-01-21 07:48:25 by jwe] jwe parents: 3325 diff changeset	525 }
19142 b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	526
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	527 /*
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	528 %!test
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	529 %! fmt = "%Y-%m-%d %H:%M:%S";
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	530 %! s = strftime (fmt, localtime (time ()));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	531 %! ts = strptime (s, fmt);
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	532 %! assert (isstruct (ts));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	533 %! assert (isfield (ts, "usec"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	534 %! assert (isfield (ts, "year"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	535 %! assert (isfield (ts, "mon"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	536 %! assert (isfield (ts, "mday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	537 %! assert (isfield (ts, "sec"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	538 %! assert (isfield (ts, "min"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	539 %! assert (isfield (ts, "wday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	540 %! assert (isfield (ts, "hour"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	541 %! assert (isfield (ts, "isdst"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	542 %! assert (isfield (ts, "yday"));
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	543
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	544 %!error strptime ()
b8bd0b55af45 codesprint: Add tests to time handling functions Mike Miller <mtmiller@ieee.org> parents: 17787 diff changeset	545 */

Mercurial > octave

annotate libinterp/corefcn/time.cc @ 20719:d903cccb8de8