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
|
||||
;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(use-modules (cuirass base)
|
||||
(use-modules (cuirass config)
|
||||
(cuirass base)
|
||||
(cuirass database)
|
||||
(cuirass job)
|
||||
(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.
|
||||
|
||||
-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
|
||||
-V, --version Display version
|
||||
-h, --help Display this help message")
|
||||
|
@ -42,6 +44,7 @@ Run Guix job from a git repository cloned in CACHEDIR.
|
|||
|
||||
(define %options
|
||||
`((file (single-char #\f) (value #t))
|
||||
(database (single-char #\f) (value #t))
|
||||
(interval (single-char #\I) (value #t))
|
||||
(version (single-char #\V) (value #f))
|
||||
(help (single-char #\h) (value #f))))
|
||||
|
@ -109,7 +112,7 @@ DIR if required."
|
|||
(exit 0))
|
||||
(else
|
||||
(let* ((specfile (option-ref opts 'file "tests/hello-subset.scm"))
|
||||
(dbfile "tmp.db")
|
||||
(dbfile (option-ref opts 'database %package-database))
|
||||
(specs (primitive-load specfile))
|
||||
(args (option-ref opts '() #f))
|
||||
(cachedir (if (null? args)
|
||||
|
|
|
@ -8,6 +8,12 @@ AM_SILENT_RULES([yes]) # enables silent rules by default
|
|||
|
||||
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])
|
||||
AC_PATH_PROG([GUILE], [guile])
|
||||
AC_PATH_PROG([GUILD], [guild])
|
||||
|
|
|
@ -46,3 +46,7 @@
|
|||
(define-public %package-version
|
||||
;; Define to the version of this package.
|
||||
"@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