[deliverable/binutils-gdb.git] / gdb / guile / lib / gdb / printing.scm

;; Additional pretty-printer support.
;;
;; Copyright (C) 2014 Free Software Foundation, Inc.
;;
;; This file is part of GDB.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gdb printing)
  #:use-module ((gdb) #:select
		(*pretty-printers* pretty-printer? objfile? progspace?
		 objfile-pretty-printers set-objfile-pretty-printers!
		 progspace-pretty-printers set-progspace-pretty-printers!))
  #:use-module (gdb init))

(define-public (prepend-pretty-printer! obj matcher)
  "Add MATCHER to the beginning of the pretty-printer list for OBJ.
If OBJ is #f, add MATCHER to the global list."
  (%assert-type (pretty-printer? matcher) matcher SCM_ARG1
		'prepend-pretty-printer!)
  (cond ((eq? obj #f)
	 (set! *pretty-printers* (cons matcher *pretty-printers*)))
	((objfile? obj)
	 (set-objfile-pretty-printers!
	  obj (cons matcher (objfile-pretty-printers obj))))
	((progspace? obj)
	 (set-progspace-pretty-printers!
	  obj (cons matcher (progspace-pretty-printers obj))))
	(else
	 (%assert-type #f obj SCM_ARG1 'prepend-pretty-printer!))))

(define-public (append-pretty-printer! obj matcher)
  "Add MATCHER to the end of the pretty-printer list for OBJ.
If OBJ is #f, add MATCHER to the global list."
  (%assert-type (pretty-printer? matcher) matcher SCM_ARG1
		'append-pretty-printer!)
  (cond ((eq? obj #f)
	 (set! *pretty-printers* (append! *pretty-printers* (list matcher))))
	((objfile? obj)
	 (set-objfile-pretty-printers!
	  obj (append! (objfile-pretty-printers obj) (list matcher))))
	((progspace? obj)
	 (set-progspace-pretty-printers!
	  obj (append! (progspace-pretty-printers obj) (list matcher))))
	(else
	 (%assert-type #f obj SCM_ARG1 'append-pretty-printer!))))
Commit	Line	Data
ed3ef339 DE	1	;; Additional pretty-printer support.
	2	;;
	3	;; Copyright (C) 2014 Free Software Foundation, Inc.
	4	;;
	5	;; This file is part of GDB.
	6	;;
	7	;; This program is free software; you can redistribute it and/or modify
	8	;; it under the terms of the GNU General Public License as published by
	9	;; the Free Software Foundation; either version 3 of the License, or
	10	;; (at your option) any later version.
	11	;;
	12	;; This program is distributed in the hope that it will be useful,
	13	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	;; GNU General Public License for more details.
	16	;;
	17	;; You should have received a copy of the GNU General Public License
	18	;; along with this program. If not, see <http://www.gnu.org/licenses/>.
	19
	20	(define-module (gdb printing)
	21	#:use-module ((gdb) #:select
ded03782 DE	22	(pretty-printers pretty-printer? objfile? progspace?
	23	objfile-pretty-printers set-objfile-pretty-printers!
	24	progspace-pretty-printers set-progspace-pretty-printers!))
ed3ef339 DE	25	#:use-module (gdb init))
	26
	27	(define-public (prepend-pretty-printer! obj matcher)
	28	"Add MATCHER to the beginning of the pretty-printer list for OBJ.
	29	If OBJ is #f, add MATCHER to the global list."
	30	(%assert-type (pretty-printer? matcher) matcher SCM_ARG1
	31	'prepend-pretty-printer!)
	32	(cond ((eq? obj #f)
	33	(set! pretty-printers (cons matcher pretty-printers)))
	34	((objfile? obj)
ded03782 DE	35	(set-objfile-pretty-printers!
	36	obj (cons matcher (objfile-pretty-printers obj))))
	37	((progspace? obj)
	38	(set-progspace-pretty-printers!
	39	obj (cons matcher (progspace-pretty-printers obj))))
ed3ef339 DE	40	(else
	41	(%assert-type #f obj SCM_ARG1 'prepend-pretty-printer!))))
	42
	43	(define-public (append-pretty-printer! obj matcher)
	44	"Add MATCHER to the end of the pretty-printer list for OBJ.
	45	If OBJ is #f, add MATCHER to the global list."
	46	(%assert-type (pretty-printer? matcher) matcher SCM_ARG1
	47	'append-pretty-printer!)
	48	(cond ((eq? obj #f)
	49	(set! pretty-printers (append! pretty-printers (list matcher))))
	50	((objfile? obj)
ded03782 DE	51	(set-objfile-pretty-printers!
	52	obj (append! (objfile-pretty-printers obj) (list matcher))))
	53	((progspace? obj)
	54	(set-progspace-pretty-printers!
	55	obj (append! (progspace-pretty-printers obj) (list matcher))))
ed3ef339 DE	56	(else
ed3ef339 DE	57	(%assert-type #f obj SCM_ARG1 'append-pretty-printer!))))