Overview
| Comment: | Minor merge from v1.60 prior to more big changes: |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | multi-area |
| Files: | files | file ages | folders |
| SHA1: |
a72834e9cd97598e8acea07b866255a6 |
| User & Date: | matt on 2015-04-12 21:03:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-04-12
| ||
| 23:58 | Cleaned up dup in rmt.scm. Part of gather data in dashboard check-in: 3354a201a4 user: matt tags: multi-area | |
| 21:03 | Minor merge from v1.60 prior to more big changes: check-in: a72834e9cd user: matt tags: multi-area | |
| 21:01 | Fixed merge issue check-in: e75422051c user: matt tags: multi-area | |
| 20:43 | fixed couple merge issues check-in: cf21f4b4f1 user: matt tags: v1.60 | |
Changes
Modified configf.scm from [c344d55487] to [8f3e5609c0].
| ︙ | ︙ | |||
91 92 93 94 95 96 97 |
exn
(debug:print 0 "ERROR: failed to process config input \"" l "\"")
(if (or allow-system
(not (member cmdtype '("system" "shell"))))
(with-input-from-string fullcmd
(lambda ()
(set! result ((eval (read)) ht))))
| | | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
exn
(debug:print 0 "ERROR: failed to process config input \"" l "\"")
(if (or allow-system
(not (member cmdtype '("system" "shell"))))
(with-input-from-string fullcmd
(lambda ()
(set! result ((eval (read)) ht))))
(set! result (conc "#{(" cmdtype ") " cmd "}"))))
(loop (conc prestr result poststr)))
res))
res)))
;; Run a shell command and return the output as a string
(define (shell cmd)
(let* ((output (cmd-run->list cmd))
|
| ︙ | ︙ |
Modified megatest.scm from [9f39af124e] to [d8a7d0e07e].
1 2 3 4 5 6 7 8 9 10 11 12 | ;; Copyright 2006-2012, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;; (include "common.scm") ;; (include "megatest-version.scm") | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
;; Copyright 2006-2012, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 readline apropos json http-client directory-utils rpc ;; (srfi 18) extras)
http-client srfi-18 extras format) ;; zmq extras)
;; Added for csv stuff - will be removed
;;
|
| ︙ | ︙ |