command-line-tool: Add nameroot and nameext fields.

*
ravanan/command-line-tool.scm (resolve-inputs)[canonicalize-file-value],
(build-command-line-tool-script)[canonicalize-file-value]: Add
nameroot and nameext fields.

1 files changed, 9 insertions, 5 deletions

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index b0cb28d..a1ff88b 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -318,11 +318,11 @@ G-expressions are inserted."
 files found into the @var{store} and return a tree of the fully
 resolved inputs.
 
-The returned @code{File} type objects are updated with
-@code{basename}, @code{checksum} and @code{size} fields, and
-store-interned paths in the @code{location} and @code{path}
-fields. The @code{basename} field contains the basename of the
-original path, and not the store-interned path."
+The returned @code{File} type objects are updated with @code{basename},
+@code{nameroot}, @code{nameext}, @code{checksum} and @code{size} fields, and
+store-interned paths in the @code{location} and @code{path} fields. The
+@code{basename} field contains the basename of the original path, and not the
+store-interned path."
   (define (canonicalize-file-input input)
     "Canonicalize @code{File} type @var{input} and its secondary files."
     (let* ((path (or (and (assoc-ref input "location")
@@ -333,6 +333,8 @@ original path, and not the store-interned path."
         (cons "location" (just interned-path))
         (cons "path" (just interned-path))
         (cons "basename" (just (basename path)))
+        (cons "nameroot" (just (file-name-stem path)))
+        (cons "nameext" (just (file-name-extension path)))
         (cons "checksum" (just (checksum path)))
         (cons "size" (just (stat:size (stat path))))
         (cons "secondaryFiles"
@@ -854,6 +856,8 @@ named @var{name} with @var{inputs} using tools from Guix manifest
                                                     workflow-output-path))
                     (cons "path" workflow-output-path)
                     (cons "basename" (basename path))
+                    (cons "nameroot" (file-name-stem path))
+                    (cons "nameext" (file-name-extension path))
                     (cons "size" (stat:size (stat path)))
                     (cons "checksum" (checksum path)))))