Added updated field to git-index command

Author: Retropikzel

lib/chibi/snow/commands.scm

@@ -725,13 +725,14 @@
                           (hash (process->pair-or-null 'hash "git rev-parse HEAD"))
                           (tag (process->pair-or-null 'tag "git describe --exact-match --tags --abbrev=0"))
                           (url (fix-git-url cfg (process->pair-or-null 'url "git config --get remote.origin.url")))
-                          (git (cons 'git (remove null? (list hash tag url)))))
+                          (git (cons 'git (remove null? (list hash tag url))))
+                          (updated (tai->rfc-3339 (current-second))))
                      (when (null? hash)
                        (error "Directory is not a git repository"))
                      (and pkg
                           `(,(car pkg)
                              ,git
-                             ,@(cdr pkg)))))
+                             ,@(cdr pkg) (updated ,updated)))))
                  (if (pair? pkg-files)
                    pkg-files
                    (filter package-file?

lib/chibi/snow/utils.scm

@@ -255,3 +255,17 @@
                      (lp2 (cdr ls2)
                           (cons (car ls2) seen)
                           (cons (car ls2) res))))))))))))
+
+(define (tai->rfc-3339 seconds)
+  (define (pad2 n)
+    (if (< n 10)
+        (string-append "0" (number->string n))
+        (number->string n)))
+  (let ((tm (seconds->time (exact (round seconds)))))
+    (string-append
+     (number->string (+ 1900 (time-year tm))) "-"
+     (pad2 (+ 1 (time-month tm))) "-"
+     (pad2 (time-day tm)) "T"
+     (pad2 (time-hour tm)) ":"
+     (pad2 (time-minute tm)) ":"
+     (pad2 (time-second tm)) "+00:00")))

lib/chibi/snow/utils.sld

@@ -6,7 +6,7 @@
           uri-normalize uri-directory
           version-split version-compare version>? version>=?
           topological-sort assq-ref
-          known-implementations impl->version impl->features)
+          known-implementations impl->version impl->features tai->rfc-3339)
   (import (scheme base)
           (scheme char)
           (scheme file)
@@ -22,7 +22,8 @@
           (chibi process)
           (chibi string)
           (chibi temp-file)
-          (chibi uri))
+          (chibi uri)
+          (chibi time))
   (cond-expand
    (chibi (import (chibi io)))
    (chicken