Add File.lutime method

Author: andrykonchin

CHANGELOG.md

@@ -44,6 +44,7 @@ Compatibility:
 * Do not autosplat a proc that accepts a single positional argument and keywords (#3039, @andrykonchin).
 * Support passing anonymous * and ** parameters as method call arguments (#3039, @andrykonchin).
 * Handle either positional or keywords arguments by default in `Struct.new` (#3039, @rwstauner).
+* Add `File.lutime` method (@andrykonchin).
 
 Performance:
 

spec/tags/core/file/lutime_tags.txt

@@ -99,6 +99,18 @@ int truffleposix_poll_single_fd(int fd, int events, int timeout_ms) {
   return poll(&fds, 1, timeout_ms) >= 0 ? fds.revents : -1;
 }
 
+int truffleposix_lutimes(const char *filename, long atime_sec, int atime_nsec,
+                        long mtime_sec, int mtime_nsec) {
+  struct timespec timespecs[2];
+
+  timespecs[0].tv_sec = atime_sec;
+  timespecs[0].tv_nsec = atime_nsec;
+  timespecs[1].tv_sec = mtime_sec;
+  timespecs[1].tv_nsec = mtime_nsec;
+
+  return utimensat(AT_FDCWD, filename, timespecs, AT_SYMLINK_NOFOLLOW);
+}
+
 int truffleposix_utimes(const char *filename, long atime_sec, int atime_nsec,
                         long mtime_sec, int mtime_nsec) {
   struct timespec timespecs[2];

src/main/c/truffleposix/truffleposix.c

@@ -790,6 +790,31 @@ def self.lstat(path)
     Stat.lstat path
   end
 
+  ##
+  # Sets the access and modification times of each named file to the first
+  # two arguments. If a file is a symlink, this method acts upon the link
+  # itself as opposed to its referent; for the inverse behavior, see
+  # File.utime. Returns the number of file names in the argument list.
+  def self.lutime(atime, mtime, *paths)
+    if !atime || !mtime
+      now = Time.now
+      atime ||= now
+      mtime ||= now
+    end
+
+    atime = Time.at(atime) unless Primitive.is_a?(atime, Time)
+    mtime = Time.at(mtime) unless Primitive.is_a?(mtime, Time)
+
+    paths.each do |path|
+      path = Truffle::Type.coerce_to_path(path)
+      n = POSIX.truffleposix_lutimes(path, atime.to_i, atime.nsec,
+                                    mtime.to_i, mtime.nsec)
+      Errno.handle unless n == 0
+    end
+
+    paths.size
+  end
+
   ##
   # Returns the modification time for the named file as a Time object.
   #
@@ -1062,10 +1087,10 @@ def self.unlink(*paths)
   end
 
   ##
-  # Sets the access and modification times of each named
-  # file to the first two arguments. Returns the number
-  # of file names in the argument list.
-  #  #=> Integer
+  # Sets the access and modification times of each named file to the first
+  # two arguments. If a file is a symlink, this method acts upon its
+  # referent rather than the link itself; for the inverse behavior see
+  # File.lutime. Returns the number of file names in the argument list.
   def self.utime(atime, mtime, *paths)
     if !atime || !mtime
       now = Time.now

src/main/ruby/truffleruby/core/file.rb

@@ -204,6 +204,7 @@ def self.attach_function_eagerly(native_name, argument_types, return_type,
   attach_function :lseek, [:int, :off_t, :int], :off_t
   attach_function :truffleposix_lstat, [:string, :pointer], :int, LIBTRUFFLEPOSIX
   attach_function :truffleposix_lstat_mode, [:string], :mode_t, LIBTRUFFLEPOSIX
+  attach_function :truffleposix_lutimes, [:string, :long, :int, :long, :int], :int, LIBTRUFFLEPOSIX
   attach_function :truffleposix_major, [:dev_t], :uint, LIBTRUFFLEPOSIX
   attach_function :truffleposix_minor, [:dev_t], :uint, LIBTRUFFLEPOSIX
   attach_function :mkdir, [:string, :mode_t], :int