Overview
| Comment: | fixed few things |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v2.0001-dashboard |
| Files: | files | file ages | folders |
| SHA1: |
8df246ca4673f6d3bfebddd40bda0c48 |
| User & Date: | matt on 2022-02-12 20:26:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-12
| ||
| 20:26 | fixed few things Closed-Leaf check-in: 8df246ca46 user: matt tags: v2.0001-dashboard | |
| 20:16 | Start over on dashboard check-in: e993580c2e user: matt tags: v2.0001-dashboard | |
Changes
Modified dashboard.scm from [9619bb5604] to [a9deb1477e].
| ︙ | ︙ | |||
14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses rmtmod)) (declare (uses tree)) (module dashboard | > | 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ;;====================================================================== (declare (uses commonmod)) (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtver)) (declare (uses rmtmod)) (declare (uses tree)) (module dashboard |
| ︙ | ︙ | |||
64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | srfi-4 srfi-14 srfi-18 ) (import (prefix mtargs args:) ;; gutils debugprint rmtmod tree ) (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " | > > | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 | srfi-4 srfi-14 srfi-18 ) (import (prefix mtargs args:) ;; gutils commonmod debugprint mtver rmtmod tree ) (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " |
| ︙ | ︙ | |||
139 140 141 142 143 144 145 |
(begin
(print help)
(exit)))
(if (args:get-arg "-start-dir")
(if (directory-exists? (args:get-arg "-start-dir"))
(let ((fullpath (common:real-path (args:get-arg "-start-dir"))))
| | > > > > > > > | 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 |
(begin
(print help)
(exit)))
(if (args:get-arg "-start-dir")
(if (directory-exists? (args:get-arg "-start-dir"))
(let ((fullpath (common:real-path (args:get-arg "-start-dir"))))
(set-environment-variable! "PWD" fullpath)
(change-directory fullpath))
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
(define (get-debugcontrolf)
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (common:file-exists? debugcontrolf)
debugcontrolf
#f)))
(define (dashboard-main)
(iup:show
(iup:dialog
(iup:vbox
(iup:button "Pushme"))))
(iup:main-loop))
(define (main)
(if (args:get-arg "-repl")
(repl)
(dashboard-main)))
)
|
| ︙ | ︙ |