Overview
| Comment: | turn off ~/.spublishrc for safety |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
134ed6b1134ac58b9e348a3d296e5615 |
| User & Date: | mrwellan on 2015-12-04 14:33:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-12-07
| ||
| 19:54 | Initial version of rpctest directly from rpc egg page (plus minor changes to get it to work) check-in: f728a7aa95 user: matt tags: v1.60 | |
| 18:52 | added code for creating symbolic links and making new directories in target area check-in: 2ebee8a8b8 user: pjhatwal tags: v1.60 | |
|
2015-12-04
| ||
| 14:33 | turn off ~/.spublishrc for safety check-in: 134ed6b113 user: mrwellan tags: v1.60 | |
| 11:52 | Added crude log to spublish check-in: a0b0d675ef user: mrwellan tags: v1.60 | |
Changes
Modified spublish.scm from [d8f854c68f] to [ec3d62cf1a].
| ︙ | ︙ | |||
343 344 345 346 347 348 349 |
(conc "\"" (time->string (seconds->local-time (vector-ref x 3))) "\"")
(conc "\"" (vector-ref x 4) "\""))
(print (vector-ref x 0))))
versions)))
(else (print "Unrecognised command " action)))))
;; ease debugging by loading ~/.dashboardrc - REMOVE FROM PRODUCTION!
| | | | | 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 |
(conc "\"" (time->string (seconds->local-time (vector-ref x 3))) "\"")
(conc "\"" (vector-ref x 4) "\""))
(print (vector-ref x 0))))
versions)))
(else (print "Unrecognised command " action)))))
;; ease debugging by loading ~/.dashboardrc - REMOVE FROM PRODUCTION!
;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.spublishrc")))
;; (if (file-exists? debugcontrolf)
;; (load debugcontrolf)))
(define (main)
(let* ((args (argv))
(prog (car args))
(rema (cdr args))
(exe-name (pathname-file (car (argv))))
(exe-dir (or (pathname-directory prog)
|
| ︙ | ︙ |