Commit 6c7264ff authored by Eric Timmons's avatar Eric Timmons
Browse files

cli less work: asd-pathnames

parent 2ed69e31

cli/commands.lisp

+1 −0
Original line number Diff line number Diff line
@@ -5,6 +5,7 @@ 


(uiop:define-package #:clpm-cli/commands

    (:use #:cl

          #:clpm-cli/commands/asd-pathnames

          #:clpm-cli/commands/bundle

          #:clpm-cli/commands/client

          #:clpm-cli/commands/clpi

cli/commands/asd-pathnames.lisp

0 → 100644
+28 −0
Original line number Diff line number Diff line 
;;;; clpm asd-pathnames

;;;;

;;;; This software is part of CLPM. See README.org for more information. See

;;;; LICENSE for license information.



(uiop:define-package #:clpm-cli/commands/asd-pathnames

    (:use #:cl

          #:alexandria

          #:clpm-cli/common-args

          #:clpm-cli/interface-defs)

  (:import-from #:adopt)

  (:import-from #:clpm))



(in-package #:clpm-cli/commands/asd-pathnames)



(defparameter *asd-pathnames-ui*

  (adopt:make-interface

   :name "clpm asd-pathnames"

   :summary "Common Lisp Package Manager Asd-Pathnames"

   :usage "asd-pathnames [options]"

   :help "List the pathnames to all ASD files in the context, one per line."

   :contents (list *group-common*

                   *option-context*)))



(define-cli-command (("asd-pathnames") *asd-pathnames-ui*) (args options)

  (declare (ignore options args))

  (format t "~{~A~^~%~}~%" (clpm:asd-pathnames))

  t)

clpm/clpm.lisp

+2 −1
Original line number Diff line number Diff line
@@ -22,7 +22,8 @@ 
  ;; From config

  (:export #:config-value)

  ;; From context-queries

  (:export #:find-system-asd-pathname

  (:export #:asd-pathnames

           #:find-system-asd-pathname

           #:output-translations)

  ;; From exec

  (:export #:exec)

clpm/context-queries.lisp

+6 −1
Original line number Diff line number Diff line
@@ -7,11 +7,16 @@ 
    (:use #:cl

          #:clpm/context

          #:clpm/session)

  (:export #:find-system-asd-pathname

  (:export #:asd-pathnames

           #:find-system-asd-pathname

           #:output-translations))



(in-package #:clpm/context-queries)



(defun asd-pathnames (&key context)

  (with-clpm-session ()

    (context-asd-pathnames (get-context context))))



(defun find-system-asd-pathname (system-name &key context)

  (with-clpm-session ()

    (context-find-system-asd-pathname (get-context context) system-name)))