From e3d741065e29b6f0d050592da853b641205c21bc Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Thu, 1 Nov 2012 01:39:23 +0100
Subject: store: Add `store-path-package-name'.

* guix/store.scm (store-path-package-name): New procedure.
* tests/utils.scm ("store-path-package-name"): New test.
---
 guix/store.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'guix/store.scm')

diff --git a/guix/store.scm b/guix/store.scm
index 5ac98d80bb..0bebe8a564 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -29,6 +29,7 @@ (define-module (guix store)
   #:use-module (ice-9 match)
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 ftw)
+  #:use-module (ice-9 regex)
   #:export (nix-server?
             nix-server-major-version
             nix-server-minor-version
@@ -55,7 +56,8 @@ (define-module (guix store)
 
             %store-prefix
             store-path?
-            derivation-path?))
+            derivation-path?
+            store-path-package-name))
 
 (define %protocol-version #x10b)
 
@@ -446,3 +448,12 @@ (define (store-path? path)
 (define (derivation-path? path)
   "Return #t if PATH is a derivation path."
   (and (store-path? path) (string-suffix? ".drv" path)))
+
+(define (store-path-package-name path)
+  "Return the package name part of PATH, a file name in the store."
+  (define store-path-rx
+    (make-regexp (string-append "^.*" (regexp-quote (%store-prefix))
+                                "/[^-]+-(.+)$")))
+
+  (and=> (regexp-exec store-path-rx path)
+         (cut match:substring <> 1)))
-- 
cgit v1.2.3