Initial declaration for QA and audit
Signed-off-by: Jacob Hrbek <kreyren@rixotstudio.cz>
This commit is contained in:
parent
872bbde01e
commit
55f271afee
@ -1,8 +1,25 @@
|
||||
;;; The Project Manager ("pman") -- GNU Guile-based solution for project management
|
||||
;;; Copyright (C) 2021 Mike Gran <spk121@yahoo.com>
|
||||
;;; Copyright (C) 2022 Jacob Hrbek <kreyren@rixotstudio.cz>
|
||||
;;;
|
||||
;;; The Project Manager is a Free/Libre Open-Source Software; you can redistribute it and/or modify it under the terms of the MIT License as published by the Massachusetts Institute of Technology
|
||||
;;;
|
||||
;;; This project is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MIT License for more details.
|
||||
;;;
|
||||
;;; You should have received a copy of the MIT License along with the project. If not, see <https://mit-license.org>.
|
||||
|
||||
(define-module (make main)
|
||||
#:use-module (ice-9 getopt-long)
|
||||
#:export (main)
|
||||
)
|
||||
#:export (main))
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; This file is designed to process the command line arguments using the standardized 'getopts-long' as described in the GNU Guile reference manual <https://www.gnu.org/software/guile/manual/html_node/getopt_002dlong.html>.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
;; FIXME-QA(Krey): Is this even needed?
|
||||
;; Declare exit codes
|
||||
(define EXIT_SUCCESS 0)
|
||||
(define EXIT_NOT_UP_TO_DATE 1)
|
||||
(define EXIT_FAILURE 2)
|
||||
@ -25,4 +42,5 @@
|
||||
(write options)
|
||||
(newline)
|
||||
EXIT_SUCCESS))
|
||||
|
||||
|
||||
;;; make.scm ends here
|
||||
|
Loading…
Reference in New Issue
Block a user