2016 Update

Task/File-modification-time/00DESCRIPTION

@@ -8,5 +8,7 @@
 {{omit from|TI-83 BASIC}} {{omit from|TI-89 BASIC}} <!-- Does not have a filesystem, just namespaced variables. -->
 {{omit from|Axe}}
 {{omit from|ZX Spectrum Basic|Does not have a real time clock.}}
-{{task|File System Operations}}
-This task will attempt to get and set the modification time of a file.
+
+;Task:
+Get and set the modification time of a file.
+<br><br>

Task/File-modification-time/00META.yaml

@@ -1,4 +1,4 @@
 ---
 category:
 - Date and time
-note: File modification time
+note: File modification time|File System Operations

Task/File-modification-time/Delphi/file-modification-time.delphi

@@ -1,4 +1,4 @@
-procedure GetModifiedDate(const aFilename: string): TDateTime;
+function GetModifiedDate(const aFilename: string): TDateTime;
 var
   hFile: Integer;
   iDosTime: Integer;

Task/File-modification-time/Perl-6/file-modification-time.pl6

@@ -6,7 +6,7 @@ class utimbuf is repr('CStruct') {
 
     submethod BUILD(:$atime, :$mtime) {
         $!actime = $atime;
-        $!modtime = $mtime;
+        $!modtime = $mtime.to-posix[0].round;
     }
 }
 

Task/File-modification-time/REXX/file-modification-time.rexx

@@ -1,8 +1,8 @@
-/*REXX program (Regina) to obtain/display a file's time of modification.      */
-parse arg $ .                                     /*get the fileID from the CL*/
-if $==''  then do;  say "***error*** no filename was specified.";  exit 13;  end
-q=stream($, 'C', "QUERY TIMESTAMP")               /*get file's mod time info. */
-if q==''  then q="specified file doesn't exist."  /*give an error indication. */
-say 'For file: '  $                               /*display the file ID.      */
-say 'timestamp of last modification: ' q          /*display modification time.*/
-                                       /*stick a fork in it,  we're all done. */
+/*REXX program obtains and displays a  file's  time of modification.                    */
+parse arg $ .                                    /*obtain required argument from the CL.*/
+if $==''  then do;  say "***error*** no filename was specified.";   exit 13;   end
+q=stream($, 'C', "QUERY TIMESTAMP")              /*get file's modification time info.   */
+if q==''  then q="specified file doesn't exist." /*set an error indication message.     */
+say 'For file: '  $                              /*display the file ID information.     */
+say 'timestamp of last modification: ' q         /*display the modification time info.  */
+                                                 /*stick a fork in it,  we're all done. */