langs a-z

Task/File-modification-time/OCaml/file-modification-time.ocaml

@@ -0,0 +1,7 @@
+#load "unix.cma";;
+open Unix;;
+let mtime = (stat filename).st_mtime;; (* seconds since the epoch *)
+
+utimes filename (stat filename).st_atime (time ());;
+(* keep atime unchanged
+   set mtime to current time *)

Task/File-modification-time/Objective-C/file-modification-time.m

@@ -0,0 +1,11 @@
+NSFileManager *fm = [NSFileManager defaultManager];
+
+// Pre-OS X 10.5
+NSLog(@"%@", [[fm fileAttributesAtPath:@"input.txt" traverseLink:YES] fileModificationDate]);
+[fm changeFileAttributes:[NSDictionary dictionaryWithObject:[NSDate date] forKey:NSFileModificationDate]
+                  atPath:@"input.txt"];
+
+// OS X 10.5+
+NSLog(@"%@", [[fm attributesOfItemAtPath:@"input.txt" error:NULL] fileModificationDate]);
+[fm setAttributes:[NSDictionary dictionaryWithObject:[NSDate date] forKey:NSFileModificationDate]
+     ofItemAtPath:@"input.txt" error:NULL];

Task/File-modification-time/OpenEdge-Progress/file-modification-time.openedge

@@ -0,0 +1,4 @@
+FILE-INFO:FILE-NAME = 'c:/temp'.
+MESSAGE
+   STRING( FILE-INFO:FILE-MOD-TIME, 'HH:MM:SS' )
+VIEW-AS ALERT-BOX

Task/File-modification-time/Oz/file-modification-time.oz

@@ -0,0 +1,5 @@
+declare
+  [Path] = {Module.link ['x-oz://system/os/Path.ozf']}
+  Modified = {Path.mtime "input.txt"} %% posix time
+in
+  {Show {OsTime.localtime Modified}} %% human readable record

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

@@ -0,0 +1,21 @@
+use NativeCall;
+
+class utimbuf is repr('CStruct') {
+    has int $.actime;
+    has int $.modtime;
+
+    submethod BUILD(:$atime, :$mtime) {
+        $!actime = $atime;
+        $!modtime = $mtime;
+    }
+}
+
+sub sysutime(Str, utimbuf --> int) is native is symbol('utime') {*}
+
+sub MAIN (Str $file) {
+    my $mtime = $file.IO.modified // die "Can't stat $file: $!";
+
+    my $ubuff = utimbuf.new(:atime(time),:mtime($mtime));
+
+    sysutime($file, $ubuff);
+}

Task/File-modification-time/Pop11/file-modification-time.pop11

@@ -0,0 +1,2 @@
+;;; Print modification time (seconds since Epoch)
+sysmodtime('file') =>

Task/File-modification-time/PowerShell/file-modification-time.psh

@@ -0,0 +1,8 @@
+$modificationTime = (Get-ChildItem file.txt).LastWriteTime
+Set-ItemProperty file.txt LastWriteTime (Get-Date)
+
+$LastReadTime = (Get-ChildItem file.txt).LastAccessTime
+Set-ItemProperty file.txt LastAccessTime(Get-Date)
+
+$CreationTime = (Get-ChildItem file.txt).CreationTime
+Set-ItemProperty file.txt CreationTime(Get-Date)

Task/File-modification-time/PureBasic/file-modification-time.purebasic

@@ -0,0 +1,3 @@
+Debug FormatDate("%yyyy/%mm/%dd", GetFileDate("file.txt",#PB_Date_Modified))
+  SetFileDate("file.txt",#PB_Date_Modified,Date(1987, 10, 23, 06, 43, 15))
+Debug FormatDate("%yyyy/%mm/%dd - %hh:%ii:%ss", GetFileDate("file.txt",#PB_Date_Modified))

Task/File-modification-time/REALbasic/file-modification-time.realbasic

@@ -0,0 +1,3 @@
+Function getModDate(f As FolderItem) As Date
+  Return f.ModificationDate
+End Function

Task/File-modification-time/RapidQ/file-modification-time.rapidq

@@ -0,0 +1,3 @@
+name$ = DIR$("input.txt", 0)
+PRINT "File date: "; FileRec.Date
+PRINT "File time: "; FileRec.Time

Task/File-modification-time/Run-BASIC/file-modification-time.run

@@ -0,0 +1,23 @@
+files #f, DefaultDir$ + "\*.*"                  ' all files in the defalt directory
+
+print "hasanswer: ";#f HASANSWER()              ' does it exist
+print "rowcount: ";#f ROWCOUNT()                ' number of files in the directory
+print                                           '
+#f DATEFORMAT("mm/dd/yy")                       ' set format of file date to template given
+#f TIMEFORMAT("hh:mm:ss")                       ' set format of file time to template given
+
+for i = 1 to #f rowcount()                      ' loop through the files
+if #f hasanswer() then                          '  or loop with while #f hasanswer()
+ print "nextfile info: ";#f nextfile$("    ")   ' set the delimiter for nextfile info
+ print "name: ";name$                           ' file name
+ print "size: ";#f SIZE()                       ' file size
+ print "date: ";#f DATE$()                      ' file date
+ print "time: ";#f TIME$()                      ' file time
+ print "isdir: ";#f ISDIR()                     ' is it a directory or file
+
+ name$ = #f NAME$()
+ shell$("touch -t 201002032359.59 ";name$;""")  ' sell to os to set date
+
+ print
+end if
+next

Task/File-modification-time/Seed7/file-modification-time.seed7

@@ -0,0 +1,11 @@
+$ include "seed7_05.s7i";
+  include "osfiles.s7i";
+  include "time.s7i";
+
+const proc: main is func
+  local
+    var time: modificationTime is time.value;
+  begin
+    modificationTime := getMTime("data.txt");
+    setMTime("data.txt", modificationTime);
+  end func;

Task/File-modification-time/Slate/file-modification-time.slate

@@ -0,0 +1,2 @@
+slate[1]> (File newNamed: 'LICENSE') fileInfo modificationTimestamp.
+1240349799

Task/File-modification-time/Standard-ML/file-modification-time.ml

@@ -0,0 +1,6 @@
+val mtime = OS.FileSys.modTime filename; (* returns a Time.time data structure *)
+
+(* unfortunately it seems like you have to set modification & access times together *)
+OS.FileSys.setTime (filename, NONE); (* sets modification & access time to now *)
+(* equivalent to: *)
+OS.FileSys.setTime (filename, SOME (Time.now ()))

Task/File-modification-time/TUSCRIPT/file-modification-time.tuscript

@@ -0,0 +1,5 @@
+$$ MODE TUSCRIPT
+file="rosetta.txt"
+ERROR/STOP OPEN (file,READ,-std-)
+modified=MODIFIED (file)
+PRINT "file ",file," last modified: ",modified

Task/File-modification-time/UNIX-Shell/file-modification-time-1.sh

@@ -0,0 +1 @@
+T=`stat -c %Y $F`

Task/File-modification-time/UNIX-Shell/file-modification-time-2.sh

@@ -0,0 +1 @@
+T=`stat -c %y $F`

Task/File-modification-time/UNIX-Shell/file-modification-time-3.sh

@@ -0,0 +1,3 @@
+# Note the quotation marks -- very important!
+T="2000-01-01 01:02:03.040506070 -0800"
+touch -c -d "$T" $F

Task/File-modification-time/UNIX-Shell/file-modification-time-4.sh

@@ -0,0 +1,2 @@
+T=200102030405.06
+touch -c -t $T $F

Task/File-modification-time/UNIX-Shell/file-modification-time-5.sh

@@ -0,0 +1,2 @@
+T=02030405
+touch -c -t $T $F

Task/File-modification-time/UNIX-Shell/file-modification-time-6.sh

@@ -0,0 +1 @@
+touch -c $F

Task/File-modification-time/Vedit-macro-language/file-modification-time-1.vedit

@@ -0,0 +1 @@
+Num_Type(File_Stamp_Time("input.txt"))

Task/File-modification-time/Vedit-macro-language/file-modification-time-2.vedit

@@ -0,0 +1,2 @@
+File_Stamp_String(10, "input.txt")
+Reg_Type(10)

Task/File-modification-time/Visual-Basic-.NET/file-modification-time.visual

@@ -0,0 +1,13 @@
+Dim file As New IO.FileInfo("test.txt")
+
+'Creation Time
+Dim createTime = file.CreationTime
+file.CreationTime = createTime.AddHours(1)
+
+'Write Time
+Dim writeTime = file.LastWriteTime
+file.LastWriteTime = writeTime.AddHours(1)
+
+'Access Time
+Dim accessTime = file.LastAccessTime
+file.LastAccessTime = accessTime.AddHours(1)