cos-pprint.scm from Gdb at Krugle
Show cos-pprint.scm syntax highlighted
;;;; cos-pprint.scm --- pretty-print definitions for COS
;;;; Copyright (C) 2005 Red Hat, Inc.
;;;; This file is part of CGEN.
;;;; See file COPYING.CGEN for details.
;;; To use this with pprint.scm:
;;;
;;; (load "pprint.scm")
;;; (load "cos-pprint.scm")
;;;
;;; You must load this file second, so it can redefine the ELIDE? and
;;; ELIDED-NAME hooks.
;;;
;;; See the documentation in pprint.scm for details.
(define (elide? obj)
(or (object? obj) (class? obj)))
(define (elided-name obj)
(cond ((class? obj) `(class ,(class-name obj)))
((object? obj)
`(object ,(class-name (object-class obj))
,@(if (method-present? obj 'get-name)
(list (send obj 'get-name))
'())))
(else (error "unexpected elided object"))))
See more files for this project here