changelog shortlog tags changeset files revisions annotate raw

scripts/time/date.m

changeset 10289: 4b124317dc38
parent:83a8781b529d
author: John W. Eaton <jwe@octave.org>
date: Tue Feb 09 20:58:55 2010 -0500 (43 minutes ago)
permissions: -rw-r--r--
description: base_properties::set_children: account for hidden children 
     1## Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2005, 2007, 2008

     2##               John W. Eaton

     3##

     4## This file is part of Octave.

     5##

     6## Octave is free software; you can redistribute it and/or modify it

     7## under the terms of the GNU General Public License as published by

     8## the Free Software Foundation; either version 3 of the License, or (at

     9## your option) any later version.

    10##

    11## Octave is distributed in the hope that it will be useful, but

    12## WITHOUT ANY WARRANTY; without even the implied warranty of

    13## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    14## General Public License for more details.

    15##

    16## You should have received a copy of the GNU General Public License

    17## along with Octave; see the file COPYING.  If not, see

    18## <http://www.gnu.org/licenses/>.

    19

    20## -*- texinfo -*-

    21## @deftypefn {Function File} {} date ()

    22## Return the date as a character string in the form DD-MMM-YY.  For

    23## example,

    24##

    25## @example

    26## @group

    27## date ()

    28##      @result{} "20-Aug-93"

    29## @end group

    30## @end example

    31## @end deftypefn

    32

    33## Author: jwe

    34

    35function retval = date ()

    36

    37  retval = strftime ("%d-%b-%Y", localtime (time ()));

    38

    39endfunction

    40

    41%!assert(strcmp (date (), strftime ("%d-%b-%Y", localtime (time ()))));

    42