Megatest

Check-in [7ef4e75485]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 7ef4e75485c86fd03913be6075df8dbc5a266771
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
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 [08c7d8b7d8] to [4e3b17b4f8].

︙
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478

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

;; 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.107s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00