8 lines
210 B
Text
8 lines
210 B
Text
|
#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 *)
|