Overview
| Comment: | Couple unused functions |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-diet |
| Files: | files | file ages | folders |
| SHA1: |
7ef4e75485c86fd03913be6075df8dbc |
| User & Date: | matt on 2021-01-15 23:05:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-01-16
| ||
| 14:39 | Missed couple leftovers in dashboard.scm check-in: f32c8343a2 user: mrwellan tags: v1.6569-diet | |
|
2021-01-15
| ||
| 23:05 | Couple unused functions check-in: 7ef4e75485 user: matt tags: v1.6569-diet | |
| 22:58 | Restoring test_records.scm, not quite able to get rid of it yet. check-in: 24a028a172 user: matt tags: v1.6569-diet | |
Changes
Modified dashboard-guimonitor.scm from [9920d4908c] to [03f2c3c501].
| ︙ | ︙ | |||
169 170 171 172 173 174 175 |
(iup:show topdialog)
(iup:callback-set! *tim* "ACTION_CB"
(lambda (x)
(refreshdat)
(if *exit-started*
(set! *exit-started* 'ok))))))
| | | | | | | | | | | 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 |
(iup:show topdialog)
(iup:callback-set! *tim* "ACTION_CB"
(lambda (x)
(refreshdat)
(if *exit-started*
(set! *exit-started* 'ok))))))
;; (define (main-window setuptab fsltab collateraltab toolstab)
;; (iup:show
;; (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
;; (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
;; (iup:attribute-set! tabtop "TABTITLE0" "Setup")
;; (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
;; (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
;; (iup:attribute-set! tabtop "TABTITLE3" "Tools")
;; tabtop))))
;; BUG: Remember to re-instate this!!!!
;; (on-exit (lambda ()
;; (let ((tdb (tasks:open-db)))
;; ;; (print "On-exit called")
;; (tasks:remove-monitor-record tdb)
;; (sqlite3:finalize! tdb))))
|
| ︙ | ︙ |
Modified server.scm from [08c7d8b7d8] to [4e3b17b4f8].
| ︙ | ︙ | |||
456 457 458 459 460 461 462 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
| < < < < < < < < < | 456 457 458 459 460 461 462 463 464 465 466 467 468 469 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
;; timeout is hms string: 1h 5m 3s, default is 1 minute
;;
(define (server:expiration-timeout)
(let ((tmo (configf:lookup *configdat* "server" "timeout")))
(if (and (string? tmo)
(common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below
(* 3600 (string->number tmo))
|
| ︙ | ︙ |