Overview
| Comment: | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6569-newdiet |
| Files: | files | file ages | folders |
| SHA1: |
74793670c500bfd4dfdff653022e42e3 |
| User & Date: | matt on 2021-02-25 16:00:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-25
| ||
| 16:01 | Restoring test_records.scm, not quite able to get rid of it yet. From: 24a028a1722528811637cd277f1d911b6ce6b79b User: matt check-in: 07fcd3d7a3 user: matt tags: v1.6569-newdiet | |
| 16:00 | Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt check-in: 74793670c5 user: matt tags: v1.6569-newdiet | |
| 16:00 | Missed couple leftovers in dashboard.scm From: f32c8343a23eefbfb0303043805d677ab0f3c5d9 User: mrwellan check-in: 4b2ebfc4f3 user: matt tags: v1.6569-newdiet | |
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 [53d68f7e36] to [2a515d5d65].
| ︙ | ︙ | |||
546 547 548 549 550 551 552 |
(if (eof-object? inl)
(case (string->symbol res)
((NOREPLY) #f)
((LOGIN_OK) #t)
(else #f))
(loop (read-line) inl))))))
| < < < < < < < < < | 546 547 548 549 550 551 552 553 554 555 556 557 558 559 |
(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))
|
| ︙ | ︙ |