Re: query for package updates

[Reza Alizadeh Majd]

playing with the Guix sources, I wrote following Guile script in order to
check available updates for a profile.

Is it suitable for this purpose or I need to include additional checks
on my script? 


(define-module (px tools updater)
  #:use-module (guix profiles)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1)
  #:export (check-entry
            check-manifest
            check-profile))

(define (check-entry entry manifest)
  "Recursive update check for a manifest entry"
  (let* ((pattern (manifest-pattern
                    (name (manifest-entry-name entry))
                    (output (manifest-entry-output entry))))
         (previous (manifest-lookup manifest pattern))
         (newer? (and previous
                      (version>? (manifest-entry-version entry)
                                 (manifest-entry-version previous)))))
    (fold (lambda (child-entry result)
            (or result
                (check-entry child-entry manifest)))
      newer? (manifest-entry-dependencies entry))))


(define (check-manifest manifest)
  "Check if any update available for a manifest"
  (fold (lambda (entry previous)
          (or previous (check-entry entry manifest)))
    #f (manifest-entries manifest)))


(define* (check-profile #:optional (profile %current-profile))
  "Check if any update is available for a profile"
  (let ((manifest (profile-manifest profile)))
    (check-manifest manifest)))


-- 
Regards
Reza Alizadeh Majd
PantherX Team