# HG changeset patch
# User jwe
# Date 1191422852 0
# Node ID 4b41514e5ef087027c68632226b9d109ea2acf5e
# Parent  10c7a803b4093b3db1344455309561f1ea855a01
[project @ 2007-10-03 14:47:32 by jwe]

diff -r 10c7a803b409 -r 4b41514e5ef0 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Oct 03 14:38:48 2007 +0000
+++ b/scripts/ChangeLog	Wed Oct 03 14:47:32 2007 +0000
@@ -1,3 +1,8 @@
+2007-10-03  John W. Eaton  <jwe@octave.org>
+
+	* miscellaneous/dir.m: Create empty struct with field names.
+	Include datenum in struct.
+	
 2007-10-02  David Bateman  <dbateman@free.fr>
 
 	* miscellaneous/ls.m: If nargout return string array of files
diff -r 10c7a803b409 -r 4b41514e5ef0 scripts/miscellaneous/dir.m
--- a/scripts/miscellaneous/dir.m	Wed Oct 03 14:38:48 2007 +0000
+++ b/scripts/miscellaneous/dir.m	Wed Oct 03 14:47:32 2007 +0000
@@ -59,7 +59,8 @@
   endif
 
   ## Prep the retval.
-  info = struct (zeros (0, 1));
+  info = struct (zeros (0, 1),
+		 {"name", "date", "bytes", "isdir", "datenum", "statinfo"});
 
   if (ischar (file))
     if (strcmp (file, "*"))
@@ -101,9 +102,12 @@
 	  [dummy, fn, ext] = fileparts (fn);
 	  fn = strcat (fn, ext);
 	  info(i,1).name = fn;
-	  info(i,1).date = strftime ("%d-%b-%Y %T", localtime (st.mtime));
+	  lt = localtime (st.mtime)
+	  info(i,1).date = strftime ("%d-%b-%Y %T", lt);
 	  info(i,1).bytes = st.size;
 	  info(i,1).isdir = st.modestr(1) == "d";
+	  info(i,1).datenum = datenum (lt.year + 1900, lt.mon, lt.mday,
+				       lt.hour, lt.min, lt.sec);
 	  info(i,1).statinfo = st;
 	endif
       endfor