Lines Matching refs:printer
51 ;; Test returning a <gdb:value> from a printer.
53 (define (make-string-printer val)
54 (make-pretty-printer-worker
56 (lambda (printer)
61 ;; Test a printer with children.
63 (define (make-container-printer val)
66 ;; of at printer time. Done this way to explore the possibilities.
70 (make-pretty-printer-worker
72 (lambda (printer)
75 (lambda (printer)
80 (define (make-array-printer val)
84 (make-pretty-printer-worker
86 (lambda (printer)
89 (lambda (printer)
92 ;; Flag to make no-string-container printer throw an exception.
96 ;; Test a printer where to_string returns #f.
98 (define (make-no-string-container-printer val)
101 (make-pretty-printer-worker
103 (lambda (printer) #f)
104 (lambda (printer)
107 ;; The actual pretty-printer for pp_s is split out so that we can pass
110 (define (pp_s-printer prefix val)
118 (define (make-pp_s-printer val)
119 (make-pretty-printer-worker
121 (lambda (printer)
122 (pp_s-printer "" val))
125 (define (make-pp_ss-printer val)
126 (make-pretty-printer-worker
128 (lambda (printer)
134 (define (make-pp_sss-printer val)
135 (make-pretty-printer-worker
137 (lambda (printer)
143 (define (make-pp_multiple_virtual-printer val)
144 (make-pretty-printer-worker
146 (lambda (printer)
150 (define (make-pp_vbase1-printer val)
151 (make-pretty-printer-worker
153 (lambda (printer)
157 (define (make-pp_nullstr-printer val)
158 (make-pretty-printer-worker
160 (lambda (printer)
165 (define (make-pp_ns-printer val)
166 (make-pretty-printer-worker
168 (lambda (printer)
177 (define (make-pp_ls-printer val)
178 (make-pretty-printer-worker
180 (lambda (printer)
187 (define (make-pp_hint_error-printer val)
189 (make-pretty-printer-worker
191 (lambda (printer) "hint_error_val")
194 (define (make-pp_children_as_list-printer val)
195 (make-pretty-printer-worker
197 (lambda (printer) "children_as_list_val")
198 (lambda (printer) (make-list-iterator (list (cons "one" 1))))))
200 (define (make-pp_outer-printer val)
201 (make-pretty-printer-worker
203 (lambda (printer)
205 (lambda (printer)
209 (define (make-memory-error-string-printer val)
210 (make-pretty-printer-worker
212 (lambda (printer)
213 (scm-error 'gdb:memory-error "memory-error-printer"
217 (define (make-pp_eval_type-printer val)
218 (make-pretty-printer-worker
220 (lambda (printer)
236 (set-pretty-printer-enabled! *pretty-printer* #f))
239 (set-pretty-printer-enabled! *pretty-printer* #t))
241 (define (make-pretty-printer-dict)
243 (hash-set! dict "struct s" make-pp_s-printer)
244 (hash-set! dict "s" make-pp_s-printer)
245 (hash-set! dict "S" make-pp_s-printer)
247 (hash-set! dict "struct ss" make-pp_ss-printer)
248 (hash-set! dict "ss" make-pp_ss-printer)
249 (hash-set! dict "const S &" make-pp_s-printer)
250 (hash-set! dict "SSS" make-pp_sss-printer)
252 (hash-set! dict "VirtualTest" make-pp_multiple_virtual-printer)
253 (hash-set! dict "Vbase1" make-pp_vbase1-printer)
255 (hash-set! dict "struct nullstr" make-pp_nullstr-printer)
256 (hash-set! dict "nullstr" make-pp_nullstr-printer)
259 ;; Printer lookup is based on canonical name.
262 (hash-set! dict "struct string_repr" make-string-printer)
263 (hash-set! dict "struct container" make-container-printer)
264 (hash-set! dict "struct justchildren" make-no-string-container-printer)
265 (hash-set! dict "string_repr" make-string-printer)
266 (hash-set! dict "container" make-container-printer)
267 (hash-set! dict "justchildren" make-no-string-container-printer)
269 (hash-set! dict "struct ns" make-pp_ns-printer)
270 (hash-set! dict "ns" make-pp_ns-printer)
272 (hash-set! dict "struct lazystring" make-pp_ls-printer)
273 (hash-set! dict "lazystring" make-pp_ls-printer)
275 (hash-set! dict "struct outerstruct" make-pp_outer-printer)
276 (hash-set! dict "outerstruct" make-pp_outer-printer)
278 (hash-set! dict "struct hint_error" make-pp_hint_error-printer)
279 (hash-set! dict "hint_error" make-pp_hint_error-printer)
282 make-pp_children_as_list-printer)
283 (hash-set! dict "children_as_list" make-pp_children_as_list-printer)
285 (hash-set! dict "memory_error" make-memory-error-string-printer)
287 (hash-set! dict "eval_type_s" make-pp_eval_type-printer)
291 ;; This is one way to register a printer that is composed of several
294 (define (make-pretty-printer-from-dict name dict lookup-maker)
295 (make-pretty-printer
298 (let ((printer-maker (lookup-maker dict val)))
299 (and printer-maker (printer-maker val))))))
301 (define (lookup-pretty-printer-maker-from-dict dict val)
306 (define *pretty-printer*
307 (make-pretty-printer-from-dict "pretty-printer-test"
308 (make-pretty-printer-dict)
309 lookup-pretty-printer-maker-from-dict))
311 (append-pretty-printer! #f *pretty-printer*)
313 ;; Different versions of a simple pretty-printer for use in testing
316 (define (make-objfile-pp_s-printer val)
317 (make-pretty-printer-worker
319 (lambda (printer)
320 (pp_s-printer "objfile " val))
331 (hash-set! dict "s" make-objfile-pp_s-printer)
332 (let ((pp (make-pretty-printer-from-dict
333 "objfile-pretty-printer-test"
334 dict lookup-pretty-printer-maker-from-dict)))
335 (append-pretty-printer! (car objfiles) pp))))
337 (define (make-progspace-pp_s-printer val)
338 (make-pretty-printer-worker
340 (lambda (printer)
341 (pp_s-printer "progspace " val))
346 (hash-set! dict "s" make-progspace-pp_s-printer)
347 (let ((pp (make-pretty-printer-from-dict
348 "progspace-pretty-printer-test"
349 dict lookup-pretty-printer-maker-from-dict)))
350 (append-pretty-printer! pspace pp))))
Indexes created Mon Mar 23 00:23:30 UTC 2026