Overview
| Comment: | Changed ULEX warning to give info on round trip time when excessive. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
05dacbc68b3e4d6884a0a70bc5b08470 |
| User & Date: | matt on 2022-01-14 19:09:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-01-15
| ||
| 20:34 | Moved all the database management logic from rmtmod into new module dbmgrmod. check-in: 42c6e0e1be user: matt tags: v2.0001 | |
|
2022-01-14
| ||
| 19:09 | Changed ULEX warning to give info on round trip time when excessive. check-in: 05dacbc68b user: matt tags: v2.0001 | |
| 17:57 | merged work for using csm for compiling check-in: fc3edb2f32 user: matt tags: v2.0001 | |
Changes
Modified megatest.scm from [b43c742f7d] to [765cf5f20c].
| ︙ | ︙ | |||
163 164 165 166 167 168 169 | ) ;; ;; ulex parameters ;; (work-method 'direct) ;; (return-method 'direct) ;; ulex parameters | | | 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 | ) ;; ;; ulex parameters ;; (work-method 'direct) ;; (return-method 'direct) ;; ulex parameters (work-method 'mailbox) (return-method 'mailbox) ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) (define *didsomething* #f) (define *db* #f) ;; this is only for the repl, do not use in general!!!! |
| ︙ | ︙ |
Modified serialize-env.scm from [c38be56026] to [b942cb1fca].
|
| < < < < < < < < < < < < < < < < < | 1 2 3 4 5 6 7 | (module serialize-envmod * (import scheme z3 base64 chicken.port |
| ︙ | ︙ | |||
32 33 34 35 36 37 38 39 |
(zipped-env-str (z3:encode-buffer env-str))
(b64-env-str (base64-encode zipped-env-str)))
(print b64-env-str))
)
(gen-output)
)
| < < | 15 16 17 18 19 20 21 22 |
(zipped-env-str (z3:encode-buffer env-str))
(b64-env-str (base64-encode zipped-env-str)))
(print b64-env-str))
)
(gen-output)
)
|
Modified ulex/ulex.scm from [e34b2a5b05] to [1b6751adf3].
| ︙ | ︙ | |||
311 312 313 314 315 316 317 | (case (return-method) ((polling) (send-via-polling uconn host-port cmd data)) ((mailbox) (send-via-mailbox uconn host-port cmd data)) (else (print "ULEX ERROR: unrecognised return-method "(return-method)".") | | > | | | | 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 |
(case (return-method)
((polling)
(send-via-polling uconn host-port cmd data))
((mailbox)
(send-via-mailbox uconn host-port cmd data))
(else
(print "ULEX ERROR: unrecognised return-method "(return-method)".")
#f)))))
(duration (- (current-milliseconds) start-time)))
;; this is ONLY for development and debugging. It will be removed once Ulex is stable.
(if (< 5000 duration)
(print "ULEX WARNING: round-trip took "(inexact->exact (round (/ duration 1000)))
" seconds; "cmd", host-port="host-port", data="data))
result))
;;======================================================================
;; responder side
;;======================================================================
|
| ︙ | ︙ |