Megatest

Check-in [9fd33434bd]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.6569-new-diet
Files: files | file ages | folders
SHA1: 9fd33434bd3c841792bec19f6aa6cc430f93803f
User & Date: matt on 2021-02-25 16:24:43
Other Links: branch diff | manifest | tags
Context
2021-02-25
16:24
Missed couple leftovers in dashboard.scm From: f32c8343a23eefbfb0303043805d677ab0f3c5d9 User: mrwellan check-in: 53d25f535c user: matt tags: v1.6569-new-diet (unpublished)
16:24
Couple unused functions From: 7ef4e75485c86fd03913be6075df8dbc5a266771 User: matt check-in: 9fd33434bd user: matt tags: v1.6569-new-diet (unpublished)
16:24
Restoring test_records.scm, not quite able to get rid of it yet. From: 24a028a1722528811637cd277f1d911b6ce6b79b User: matt check-in: 48dfb9c533 user: matt tags: v1.6569-new-diet (unpublished)
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard-guimonitor.scm from [9920d4908c] to [03f2c3c501].

︙
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184









185
186
187
188
189
190
191

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))))
;; (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 [52889afebe] to [d6e0b7d15e].

︙
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531

509
510
511
512
513
514
515









516
517
518
519
520
521
522








-
-
-
-
-
-
-
-
-








       (if (eof-object? inl)
	   (case (string->symbol res)
	     ((NOREPLY)  #f)
	     ((LOGIN_OK) #t)
	     (else       #f))
	   (loop (read-line) inl))))))

;; NOT USED (well, ok, reference in rpc-transport but otherwise not used).
;;
(define (server:login toppath)
  (lambda (toppath)
    (set! *db-last-access* (current-seconds)) ;; might not be needed.
    (if (equal? *toppath* toppath)
	#t
	#f)))

;; 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))
︙

This page was generated in about 0.136s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00