jcubic/lips

;;   __ __                          __
;;  / / \ \       _    _  ___  ___  \ \
;; | |   \ \     | |  | || . \/ __>  | |
;; | |    > \    | |_ | ||  _/\__ \  | |
;; | |   / ^ \   |___||_||_|  <___/  | |
;;  \_\ /_/ \_\                     /_/
;;
;; <https://lips.js.org>
;;
;; implementation of SRFI-193 https://srfi.schemers.org/srfi-193/srfi-193.html
;;
;; This file is part of the LIPS - Scheme based Powerful lisp in JavaScript
;; Copyright (C) 2019-2024 Jakub T. Jankiewicz <https://jcubic.pl/me>
;; Released under MIT license
;;

;; -----------------------------------------------------------------------------
(define (command-name)
  "(command-name)

   Returns the LIPS script that was executed or #f."
  (let* ((cmd (command-line))
         (name (car cmd)))
    (and (> (length name) 0) name)))

;; -----------------------------------------------------------------------------
(define (command-args)
  "(command-args)

   Returns the list of arguments for LIPS script that was executed."
  (let* ((cmd (command-line))
         (args (cdr cmd)))
    (if (null? args)
        nil
        args)))

;; -----------------------------------------------------------------------------
(define (script-file)
  "(script-file)

   Returns absolute path for LIPS script that was executed or #f."
  (if (eq? self window)
      #f
      (let ((name (command-name)))
        (and name (path.resolve name)))))

;; -----------------------------------------------------------------------------
(define (script-directory)
  "(script-file)

   Returns list of absolute path for directory of LIPS script that was executed or #f."
  (if (eq? self window)
      #f
      (let ((path (require "path"))
            (filename (script-file)))
        (and filename (path.dirname filename)))))