octave-antonio: scripts/time/datestr.m annotate

annotate scripts/time/datestr.m @ 19414:a2a79462b7b8

datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). datestr.m: Initialize retval to "" rather than [] to potentially avoid num-to-str warning during construction of output. Use double quotes in regexprep and strrep expressions to avoid any ambiguity now that regexprep processes escape sequences regardless of quote mark used.

author	Rik <rik@octave.org>
date	Sun, 21 Dec 2014 08:09:28 -0800
parents	7bbe3658c5ef
children	06931d787450

rev	line source
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 17281 diff changeset	1 ## Copyright (C) 2000-2013 Paul Kienzle
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	2 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	3 ## This file is part of Octave.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	4 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6555 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6555 diff changeset	8 ## your option) any later version.
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	9 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	13 ## General Public License for more details.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	14 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	15 ## 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: 6555 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6555 diff changeset	17 ## <http://www.gnu.org/licenses/>.
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	18
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	19 ## -- texinfo --
11469 c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 11329 diff changeset	20 ## @deftypefn {Function File} {@var{str} =} datestr (@var{date})
c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 11329 diff changeset	21 ## @deftypefnx {Function File} {@var{str} =} datestr (@var{date}, @var{f})
c776f063fefe Overhaul m-script files to use common variable name between code and documentation. Rik <octave@nomad.inbox5.com> parents: 11329 diff changeset	22 ## @deftypefnx {Function File} {@var{str} =} datestr (@var{date}, @var{f}, @var{p})
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	23 ## Format the given date/time according to the format @code{f} and return
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	24 ## the result in @var{str}. @var{date} is a serial date number (see
6555 69e864d21c11 [project @ 2007-04-20 18:16:08 by jwe] jwe parents: 6046 diff changeset	25 ## @code{datenum}) or a date vector (see @code{datevec}). The value of
69e864d21c11 [project @ 2007-04-20 18:16:08 by jwe] jwe parents: 6046 diff changeset	26 ## @var{date} may also be a string or cell array of strings.
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	27 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	28 ## @var{f} can be an integer which corresponds to one of the codes in
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	29 ## the table below, or a date format string.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	30 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	31 ## @var{p} is the year at the start of the century in which two-digit years
9051 1bf0ce0930be Grammar check TexInfo in all .m files Rik <rdrider0-list@yahoo.com> parents: 8920 diff changeset	32 ## are to be interpreted in. If not specified, it defaults to the current
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	33 ## year minus 50.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	34 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	35 ## For example, the date 730736.65149 (2000-09-07 15:38:09.0934) would be
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	36 ## formatted as follows:
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	37 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	38 ## @multitable @columnfractions 0.1 0.45 0.35
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	39 ## @headitem Code @tab Format @tab Example
17281 bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	40 ## @item 0 @tab dd-mmm-yyyy HH:MM:SS @tab 07-Sep-2000 15:38:09
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	41 ## @item 1 @tab dd-mmm-yyyy @tab 07-Sep-2000
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	42 ## @item 2 @tab mm/dd/yy @tab 09/07/00
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	43 ## @item 3 @tab mmm @tab Sep
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	44 ## @item 4 @tab m @tab S
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	45 ## @item 5 @tab mm @tab 09
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	46 ## @item 6 @tab mm/dd @tab 09/07
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	47 ## @item 7 @tab dd @tab 07
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	48 ## @item 8 @tab ddd @tab Thu
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted. Rik <rik@octave.org> parents: 14723 diff changeset	49 ## @item 9 @tab d @tab T
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	50 ## @item 10 @tab yyyy @tab 2000
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	51 ## @item 11 @tab yy @tab 00
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	52 ## @item 12 @tab mmmyy @tab Sep00
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	53 ## @item 13 @tab HH:MM:SS @tab 15:38:09
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	54 ## @item 14 @tab HH:MM:SS PM @tab 03:38:09 PM
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	55 ## @item 15 @tab HH:MM @tab 15:38
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	56 ## @item 16 @tab HH:MM PM @tab 03:38 PM
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	57 ## @item 17 @tab QQ-YY @tab Q3-00
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	58 ## @item 18 @tab QQ @tab Q3
14723 3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	59 ## @item 19 @tab dd/mm @tab 07/09
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	60 ## @item 20 @tab dd/mm/yy @tab 07/09/00
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	61 ## @item 21 @tab mmm.dd,yyyy HH:MM:SS @tab Sep.07,2000 15:38:08
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	62 ## @item 22 @tab mmm.dd,yyyy @tab Sep.07,2000
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	63 ## @item 23 @tab mm/dd/yyyy @tab 09/07/2000
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	64 ## @item 24 @tab dd/mm/yyyy @tab 07/09/2000
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	65 ## @item 25 @tab yy/mm/dd @tab 00/09/07
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	66 ## @item 26 @tab yyyy/mm/dd @tab 2000/09/07
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	67 ## @item 27 @tab QQ-YYYY @tab Q3-2000
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	68 ## @item 28 @tab mmmyyyy @tab Sep2000
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	69 ## @item 29 @tab yyyy-mm-dd @tab 2000-09-07
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	70 ## @item 30 @tab yyyymmddTHHMMSS @tab 20000907T153808
3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	71 ## @item 31 @tab yyyy-mm-dd HH:MM:SS @tab 2000-09-07 15:38:08
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	72 ## @end multitable
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	73 ##
9079 4d610aba7347 Cleanup documentation for system.texi, package.texi Rik <rdrider0-list@yahoo.com> parents: 9051 diff changeset	74 ## If @var{f} is a format string, the following symbols are recognized:
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	75 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	76 ## @multitable @columnfractions 0.1 0.7 0.2
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	77 ## @headitem Symbol @tab Meaning @tab Example
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	78 ## @item yyyy @tab Full year @tab 2005
14723 3fd6f637c573 doc: Correct errors and improve docstring for datestr.m Rik <octave@nomad.inbox5.com> parents: 14237 diff changeset	79 ## @item yy @tab Two-digit year @tab 05
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	80 ## @item mmmm @tab Full month name @tab December
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	81 ## @item mmm @tab Abbreviated month name @tab Dec
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	82 ## @item mm @tab Numeric month number (padded with zeros) @tab 01, 08, 12
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	83 ## @item m @tab First letter of month name (capitalized) @tab D
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	84 ## @item dddd @tab Full weekday name @tab Sunday
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	85 ## @item ddd @tab Abbreviated weekday name @tab Sun
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	86 ## @item dd @tab Numeric day of month (padded with zeros) @tab 11
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	87 ## @item d @tab First letter of weekday name (capitalized) @tab S
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	88 ## @item HH @tab Hour of day, padded with zeros if PM is set @tab 09:00
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	89 ## @item @tab and not padded with zeros otherwise @tab 9:00 AM
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	90 ## @item MM @tab Minute of hour (padded with zeros) @tab 10:05
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	91 ## @item SS @tab Second of minute (padded with zeros) @tab 10:05:03
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	92 ## @item FFF @tab Milliseconds of second (padded with zeros) @tab 10:05:03.012
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	93 ## @item AM @tab Use 12-hour time format @tab 11:30 AM
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	94 ## @item PM @tab Use 12-hour time format @tab 11:30 PM
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	95 ## @end multitable
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	96 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	97 ## If @var{f} is not specified or is @code{-1}, then use 0, 1 or 16,
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	98 ## depending on whether the date portion or the time portion of
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	99 ## @var{date} is empty.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	100 ##
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	101 ## If @var{p} is nor specified, it defaults to the current year minus 50.
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	102 ##
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	103 ## If a matrix or cell array of dates is given, a column vector of date strings
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	104 ## is returned.
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	105 ##
13856 d490ca8ab1a5 Modernize function implementations and docstrings in scripts/time. Rik <octave@nomad.inbox5.com> parents: 13848 diff changeset	106 ## @seealso{datenum, datevec, date, now, clock}
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	107 ## @end deftypefn
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	108
8202 cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	109 ## FIXME: parse arbitrary code strings.
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	110 ## e.g., for Wednesday 2001-03-05 09:04:06 AM, use
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	111 ## yy 01
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	112 ## yyyy 2001
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	113 ## m M
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	114 ## mm 03
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	115 ## mmm Mar
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	116 ## d W
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	117 ## dd 05
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	118 ## ddd Wed
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	119 ## HH 09
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	120 ## MM 04
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	121 ## SS 06
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	122 ## PM AM
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	123 ## FIXME: Vectorize. It is particularly easy since all the codes are
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	124 ## fixed width. Just generate the parts in separate arrays and
cf59d542f33e replace all TODOs and XXXs with FIXMEs Jaroslav Hajek <highegg@gmail.com> parents: 8112 diff changeset	125 ## concatenate.
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	126
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	127 ## Author: pkienzle <pkienzle@users.sf.net>
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	128 ## Created: 10 October 2001 (CVS)
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	129 ## Adapted-By: William Poetra Yoga Hadisoeseno <williampoetra@gmail.com>
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	130
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	131 function retval = datestr (date, f = [], p = [])
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	132
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	133 persistent dateform names_mmmm names_m names_d;
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	134
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	135 if (isempty (dateform))
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	136 dateform = cell (32, 1);
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	137 dateform{1} = "dd-mmm-yyyy HH:MM:SS";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	138 dateform{2} = "dd-mmm-yyyy";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	139 dateform{3} = "mm/dd/yy";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	140 dateform{4} = "mmm";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	141 dateform{5} = "m";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	142 dateform{6} = "mm";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	143 dateform{7} = "mm/dd";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	144 dateform{8} = "dd";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	145 dateform{9} = "ddd";
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	146 dateform{10} = "d";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	147 dateform{11} = "yyyy";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	148 dateform{12} = "yy";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	149 dateform{13} = "mmmyy";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	150 dateform{14} = "HH:MM:SS";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	151 dateform{15} = "HH:MM:SS PM";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	152 dateform{16} = "HH:MM";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	153 dateform{17} = "HH:MM PM";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	154 dateform{18} = "QQ-YY";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	155 dateform{19} = "QQ";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	156 dateform{20} = "dd/mm";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	157 dateform{21} = "dd/mm/yy";
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	158 dateform{22} = "mmm.dd,yyyy HH:MM:SS";
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	159 dateform{23} = "mmm.dd,yyyy";
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	160 dateform{24} = "mm/dd/yyyy";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	161 dateform{25} = "dd/mm/yyyy";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	162 dateform{26} = "yy/mm/dd";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	163 dateform{27} = "yyyy/mm/dd";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	164 dateform{28} = "QQ-YYYY";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	165 dateform{29} = "mmmyyyy";
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	166 dateform{30} = "yyyy-mm-dd";
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	167 dateform{31} = "yyyymmddTHHMMSS";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	168 dateform{32} = "yyyy-mm-dd HH:MM:SS";
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	169
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	170 names_m = {"J", "F", "M", "A", "M", "J", "J", "A", "S", "O", "N", "D"};
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	171 names_d = {"S", "M", "T", "W", "T", "F", "S"};
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	172 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	173
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	174 if (nargin < 1 \|\| nargin > 3)
6046 34f96dd5441b [project @ 2006-10-10 16:10:25 by jwe] jwe parents: 5687 diff changeset	175 print_usage ();
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	176 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	177
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	178 ## Guess input type. We might be wrong.
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	179 if (ischar (date) \|\| iscellstr (date) \|\| columns (date) != 6)
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	180 v = datevec (date, p);
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	181 else
7492 bd1168732c95 datestr.m: fix 6 datenum vector bug bill@denney.ws parents: 7017 diff changeset	182 v = [];
7493 f1bce8450fd0 [mq]: tmp-patch John W. Eaton <jwe@octave.org> parents: 7492 diff changeset	183 if (columns (date) == 6)
f1bce8450fd0 [mq]: tmp-patch John W. Eaton <jwe@octave.org> parents: 7492 diff changeset	184 ## Make sure that the input really is a datevec.
f1bce8450fd0 [mq]: tmp-patch John W. Eaton <jwe@octave.org> parents: 7492 diff changeset	185 maxdatevec = [Inf, 12, 31, 23, 59, 60];
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	186 if (any (max (date, 1) > maxdatevec) \|\|
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	187 any (date(:,1:5) != floor (date(:,1:5))))
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	188 v = datevec (date, p);
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	189 endif
7492 bd1168732c95 datestr.m: fix 6 datenum vector bug bill@denney.ws parents: 7017 diff changeset	190 endif
7493 f1bce8450fd0 [mq]: tmp-patch John W. Eaton <jwe@octave.org> parents: 7492 diff changeset	191 if (isempty (v))
7492 bd1168732c95 datestr.m: fix 6 datenum vector bug bill@denney.ws parents: 7017 diff changeset	192 v = date;
bd1168732c95 datestr.m: fix 6 datenum vector bug bill@denney.ws parents: 7017 diff changeset	193 endif
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	194 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	195
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	196 retval = "";
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	197 for i = 1 : rows (v)
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	198
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	199 if (isempty (f))
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	200 if (v(i,4:6) == 0)
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	201 f = 1;
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	202 elseif (v(i,1:3) == [-1, 12, 31])
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	203 f = 16;
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	204 else
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	205 f = 0;
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	206 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	207 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	208
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	209 if (isnumeric (f))
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	210 df = dateform{f + 1};
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	211 else
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	212 df = f;
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	213 endif
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	214
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	215 df_orig = df;
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	216 df = strrep (df, "AM", "%p");
a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	217 df = strrep (df, "PM", "%p");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	218 if (strcmp (df, df_orig))
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	219 ## PM not set.
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	220 df = strrep (df, "HH", "%H");
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	221 else
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	222 df = strrep (df, "HH", sprintf ("%2d", v(i,4)));
11587 c792872f8942 all script files: untabify and strip trailing whitespace John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	223 endif
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	224
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	225 df = regexprep (df, "[Yy][Yy][Yy][Yy]", "%Y");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	226
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	227 df = regexprep (df, "[Yy][Yy]", "%y");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	228
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	229 df = regexprep (df, "[Dd][Dd][Dd][Dd]", "%A");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	230
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	231 df = regexprep (df, "[Dd][Dd][Dd]", "%a");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	232
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	233 df = regexprep (df, "[Dd][Dd]", "%d");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	234
11328 f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	235 wday = weekday (datenum (v(i,1), v(i,2), v(i,3)));
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	236 tmp = names_d{wday};
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	237 df = regexprep (df, "([^%])[Dd]", sprintf ("$1%s", tmp));
a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	238 df = regexprep (df, "^[Dd]", sprintf ("%s", tmp));
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	239
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	240 df = strrep (df, "mmmm", "%B");
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	241
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	242 df = strrep (df, "mmm", "%b");
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	243
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	244 df = strrep (df, "mm", "%m");
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	245
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	246 tmp = names_m{v(i,2)};
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	247 pos = regexp (df, "[^%]m") + 1;
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	248 df(pos) = tmp;
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	249 df = regexprep (df, "^m", tmp);
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	250
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	251 df = strrep (df, "MM", "%M");
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	252
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	253 df = regexprep (df, "[Ss][Ss]", "%S");
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	254
18650 491b0adfec95 compatibility fixes for printf integer format specifiers John W. Eaton <jwe@octave.org> parents: 17839 diff changeset	255 df = strrep (df, "FFF", sprintf ("%03d",
491b0adfec95 compatibility fixes for printf integer format specifiers John W. Eaton <jwe@octave.org> parents: 17839 diff changeset	256 round (1000 * (v(i,6) - fix (v(i,6))))));
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	257
19414 a2a79462b7b8 datestr.m: Clean up use of []/"" and single/double quotes (bug #43841). Rik <rik@octave.org> parents: 18857 diff changeset	258 df = strrep (df, "QQ", sprintf ("Q%d", fix ((v(i,2) + 2) / 3)));
8098 229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	259
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	260 vi = v(i,:);
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	261 tm.year = vi(1) - 1900;
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	262 tm.mon = vi(2) - 1;
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	263 tm.mday = vi(3);
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	264 tm.hour = vi(4);
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	265 tm.min = vi(5);
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	266 sec = vi(6);
229bd50e6e8f datestr.m: convert format and use strtftime for most of the actual conversion John W. Eaton <jwe@octave.org> parents: 7969 diff changeset	267 tm.sec = fix (sec);
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	268 tm.usec = fix ((sec - tm.sec) * 1e6);
11328 f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	269 tm.wday = wday - 1;
18857 7bbe3658c5ef maint: Use "FIXME:" coding convention in m-files. Rik <rik@octave.org> parents: 18650 diff changeset	270 ## FIXME: Do we need YDAY and DST? How should they be computed?
11328 f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	271 ## We don't want to use "localtime (mktime (tm))" because that
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	272 ## doesn't correctly handle dates before 1970-01-01 on some systems.
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	273 ## tm.yday = ?;
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	274 ## tm.isdst = ?;
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	275
f286a874617c datestr: handle dates before 1970-01-01 John W. Eaton <jwe@octave.org> parents: 11149 diff changeset	276 str = strftime (df, tm);
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	277
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	278 retval = [retval; str];
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	279
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	280 endfor
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	281
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	282 endfunction
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	283
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	284
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	285 %!demo
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	286 %! ## Current date and time in default format
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	287 %! datestr (now ())
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	288
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	289 %!demo
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	290 %! ## Current date (integer portion of datenum)
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	291 %! datestr (fix (now ()))
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	292
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	293 %!demo
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	294 %! ## Current time (fractional portion of datenum)
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	295 %! datestr (rem (now (), 1))
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	296
5687 a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	297 %!shared testtime
a2902024bc4e [project @ 2006-03-16 20:22:40 by jwe] jwe parents: diff changeset	298 %! testtime = [2005.0000, 12.0000, 18.0000, 2.0000, 33.0000, 17.3822];
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	299 %!assert (datestr (testtime,0), "18-Dec-2005 02:33:17")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	300 %!assert (datestr (testtime,1), "18-Dec-2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	301 %!assert (datestr (testtime,2), "12/18/05")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	302 %!assert (datestr (testtime,3), "Dec")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	303 %!assert (datestr (testtime,4), "D")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	304 %!assert (datestr (testtime,5), "12")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	305 %!assert (datestr (testtime,6), "12/18")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	306 %!assert (datestr (testtime,7), "18")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	307 %!assert (datestr (testtime,8), "Sun")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	308 %!assert (datestr (testtime,9), "S")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	309 %!assert (datestr (testtime,10), "2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	310 %!assert (datestr (testtime,11), "05")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	311 %!assert (datestr (testtime,12), "Dec05")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	312 %!assert (datestr (testtime,13), "02:33:17")
17839 2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	313 ## Mac OS X interprets %p parameter to strftime as lower case am/pm indicator.
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	314 ## Accomodate this, although no other UNIX-based OS does this.
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	315 %!test
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	316 %! obs = toupper (datestr (testtime,14));
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	317 %! assert (obs, " 2:33:17 AM");
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	318 %!assert (datestr (testtime,15), "02:33")
17839 2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	319 %!test
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	320 %! obs = toupper (datestr (testtime,16));
2ff47214de72 datestr.m: Accomodate Mac OS X odd support of %p in strftime. Rik <rik@octave.org> parents: 17744 diff changeset	321 %! assert (obs, " 2:33 AM");
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	322 %!assert (datestr (testtime,17), "Q4-05")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	323 %!assert (datestr (testtime,18), "Q4")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	324 %!assert (datestr (testtime,19), "18/12")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	325 %!assert (datestr (testtime,20), "18/12/05")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	326 %!assert (datestr (testtime,21), "Dec.18,2005 02:33:17")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	327 %!assert (datestr (testtime,22), "Dec.18,2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	328 %!assert (datestr (testtime,23), "12/18/2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	329 %!assert (datestr (testtime,24), "18/12/2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	330 %!assert (datestr (testtime,25), "05/12/18")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	331 %!assert (datestr (testtime,26), "2005/12/18")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	332 %!assert (datestr (testtime,27), "Q4-2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	333 %!assert (datestr (testtime,28), "Dec2005")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	334 %!assert (datestr (testtime,29), "2005-12-18")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	335 %!assert (datestr (testtime,30), "20051218T023317")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	336 %!assert (datestr (testtime,31), "2005-12-18 02:33:17")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	337 %!assert (datestr (testtime+[0 0 3 0 0 0], "dddd"), "Wednesday")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	338 ## Test possible bug where input is a vector of datenums that is exactly 6 wide
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	339 %!assert (datestr ([1944, 6, 6, 6, 30, 0], 0), "06-Jun-1944 06:30:00")
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	340 ## Test fractional millisecond time extension
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	341 %!assert (datestr (testtime, "HH:MM:SS:FFF"), "02:33:17:382")
11329 6b073da9d7fc ChangeLog fix and new datestr test omitted from previous change John W. Eaton <jwe@octave.org> parents: 11328 diff changeset	342
13848 40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	343 %% Test input validation
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	344 %!error datestr ()
40e32fe44aaa Ugrade time functions to accept millisecond format string FFF (Bug #34586) Rik <octave@nomad.inbox5.com> parents: 11587 diff changeset	345 %!error datestr (1, 2, 3, 4)
14237 11949c9795a0 Revamp %!demos in m-files to use Octave coding conventions on spacing, etc. Rik <octave@nomad.inbox5.com> parents: 14138 diff changeset	346

Mercurial > octave-antonio

annotate scripts/time/datestr.m @ 19414:a2a79462b7b8