mirror of https://notabug.org/mthl/cuirass.git
Add a '--database' command line argument.
parent
944f8b5467
commit
5efdcb4441
|
@ -21,7 +21,8 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
|
||||||
;;; You should have received a copy of the GNU General Public License
|
;;; You should have received a copy of the GNU General Public License
|
||||||
;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>.
|
;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
(use-modules (cuirass base)
|
(use-modules (cuirass config)
|
||||||
|
(cuirass base)
|
||||||
(cuirass database)
|
(cuirass database)
|
||||||
(cuirass job)
|
(cuirass job)
|
||||||
(cuirass ui)
|
(cuirass ui)
|
||||||
|
@ -34,6 +35,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
|
||||||
Run Guix job from a git repository cloned in CACHEDIR.
|
Run Guix job from a git repository cloned in CACHEDIR.
|
||||||
|
|
||||||
-f --use-file=FILE Use FILE which defines the job to evaluate
|
-f --use-file=FILE Use FILE which defines the job to evaluate
|
||||||
|
-D --database=DB Use DB to store build results.
|
||||||
-I, --interval=N Wait N seconds between each evaluation
|
-I, --interval=N Wait N seconds between each evaluation
|
||||||
-V, --version Display version
|
-V, --version Display version
|
||||||
-h, --help Display this help message")
|
-h, --help Display this help message")
|
||||||
|
@ -42,6 +44,7 @@ Run Guix job from a git repository cloned in CACHEDIR.
|
||||||
|
|
||||||
(define %options
|
(define %options
|
||||||
`((file (single-char #\f) (value #t))
|
`((file (single-char #\f) (value #t))
|
||||||
|
(database (single-char #\f) (value #t))
|
||||||
(interval (single-char #\I) (value #t))
|
(interval (single-char #\I) (value #t))
|
||||||
(version (single-char #\V) (value #f))
|
(version (single-char #\V) (value #f))
|
||||||
(help (single-char #\h) (value #f))))
|
(help (single-char #\h) (value #f))))
|
||||||
|
@ -109,7 +112,7 @@ DIR if required."
|
||||||
(exit 0))
|
(exit 0))
|
||||||
(else
|
(else
|
||||||
(let* ((specfile (option-ref opts 'file "tests/hello-subset.scm"))
|
(let* ((specfile (option-ref opts 'file "tests/hello-subset.scm"))
|
||||||
(dbfile "tmp.db")
|
(dbfile (option-ref opts 'database %package-database))
|
||||||
(specs (primitive-load specfile))
|
(specs (primitive-load specfile))
|
||||||
(args (option-ref opts '() #f))
|
(args (option-ref opts '() #f))
|
||||||
(cachedir (if (null? args)
|
(cachedir (if (null? args)
|
||||||
|
|
|
@ -8,6 +8,12 @@ AM_SILENT_RULES([yes]) # enables silent rules by default
|
||||||
|
|
||||||
AC_CANONICAL_HOST
|
AC_CANONICAL_HOST
|
||||||
|
|
||||||
|
# Prepare a version of $localstatedir that does not contain references to
|
||||||
|
# shell variables.
|
||||||
|
expanded_prefix="`eval echo $prefix | sed -e "s|NONE|/usr/local|g"`"
|
||||||
|
expanded_localstatedir="`eval echo $localstatedir | sed -e "s|NONE|$expanded_prefix|g"`"
|
||||||
|
AC_SUBST([expanded_localstatedir])
|
||||||
|
|
||||||
PKG_CHECK_MODULES([GUILE], [guile-2.0 >= 2.0.7])
|
PKG_CHECK_MODULES([GUILE], [guile-2.0 >= 2.0.7])
|
||||||
AC_PATH_PROG([GUILE], [guile])
|
AC_PATH_PROG([GUILE], [guile])
|
||||||
AC_PATH_PROG([GUILD], [guild])
|
AC_PATH_PROG([GUILD], [guild])
|
||||||
|
|
|
@ -46,3 +46,7 @@
|
||||||
(define-public %package-version
|
(define-public %package-version
|
||||||
;; Define to the version of this package.
|
;; Define to the version of this package.
|
||||||
"@PACKAGE_VERSION@")
|
"@PACKAGE_VERSION@")
|
||||||
|
|
||||||
|
(define-public %package-database
|
||||||
|
;; Define to the database file name of this package.
|
||||||
|
(string-append "@expanded_localstatedir@/" %package ".db"))
|
||||||
|
|
Loading…
Reference in New Issue