ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

profiles: Add 'generation-profile'.

Browse source 
* guix/profiles.scm (%profile-generation-rx): New variable.
(generation-profile): New procedure.
This commit is contained in:
Ludovic Courtès 2019-04-06 23:05:27 +02:00
parent bacf980c76
commit c872b952c5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/profiles.scm
View file

@ -118,6 +118,7 @@ (define-module (guix profiles)
profile-search-paths
generation-number
generation-profile
generation-numbers
profile-generations
relative-generation-spec->number
@ -1552,6 +1553,20 @@ (define (generation-number profile)
(compose string->number (cut match:substring <> 1)))
0))
(define %profile-generation-rx
;; Regexp that matches profile generation.
(make-regexp "(.*)-([0-9]+)-link$"))
(define (generation-profile file)
"If FILE is a profile generation GC root such as \"guix-profile-42-link\",
return its corresponding profile---e.g., \"guix-profile\". Otherwise return
#f."
(match (regexp-exec %profile-generation-rx file)
(#f #f)
(m (let ((profile (match:substring m 1)))
(and (file-exists? (string-append profile "/manifest"))
profile)))))
(define (generation-numbers profile)
"Return the sorted list of generation numbers of PROFILE, or '(0) if no
former profiles were found."