Overview
| Comment: | Add checks to debug:print* to verify that the port given is really a port |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 | v1.6311 |
| Files: | files | file ages | folders |
| SHA1: |
11e6ba414b9ee373b0a4c46ccee49fdf |
| User & Date: | matt on 2017-03-07 16:40:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-08
| ||
| 10:43 | Merged v1.63 into v1.64 check-in: 6d5ee7f187 user: matt tags: v1.64 | |
| 09:58 | fixed issues with Baishali last evening check-in: fb43245d3c user: bjbarcla tags: v1.63, v1.6311 | |
|
2017-03-07
| ||
| 22:04 | Added code to look at homehost and server info passed in by CMDINFO and connect using that info if it proves correct check-in: 47a8359344 user: matt tags: cmdinfo-boost-to-execute | |
| 16:40 | Add checks to debug:print* to verify that the port given is really a port check-in: 11e6ba414b user: matt tags: v1.63, v1.6311 | |
| 16:09 | bumped version to 1.6311 check-in: b800ae968a user: bjbarcla tags: v1.63 | |
Changes
Modified common_records.scm from [4e8b115b3e] to [7a47b5d16a].
| ︙ | ︙ | |||
188 189 190 191 192 193 194 |
;; )
]
[(_ x y ...) (begin (inspect x) (inspect y ...))]))
(define (debug:print-error n e . params)
;; normal print
(if (debug:debug-mode n)
| | | > > | 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 |
;; )
]
[(_ x y ...) (begin (inspect x) (inspect y ...))]))
(define (debug:print-error n e . params)
;; normal print
(if (debug:debug-mode n)
(with-output-to-port (if (port? e) e (current-error-port))
(lambda ()
(if *logging*
(db:log-event (apply conc params))
;; (apply print "pid:" (current-process-id) " " params)
(apply print "ERROR: " params)
))))
;; pass important messages to stderr
(if (and (eq? n 0)(not (eq? e (current-error-port))))
(with-output-to-port (current-error-port)
(lambda ()
(apply print "ERROR: " params)
))))
(define (debug:print-info n e . params)
(if (debug:debug-mode n)
(with-output-to-port (if (port? e) e (current-error-port))
(lambda ()
(if *logging*
(let ((res (format#format #f "INFO: (~a) ~a" n (apply conc params))))
(db:log-event res))
;; (apply print "pid:" (current-process-id) " " "INFO: (" n ") " params) ;; res)
(apply print "INFO: (" n ") " params) ;; res)
)))))
;; if a value is printable (i.e. string or number) return the value
;; else return an empty string
(define-inline (printable val)
(if (or (number? val)(string? val)) val ""))
|