From mboxrd@z Thu Jan  1 00:00:00 1970
From: thi <ttn@revel.glug.org>
To: guile-gtk@sourceware.cygnus.com
Subject: adding "dump" opsym to build-guile-gtk
Date: Sun, 22 Oct 2000 11:36:00 -0000
Message-id: <200010220920.CAA02382@revel.glug.org>
X-SW-Source: 2000-q4/msg00002.html

the below diff adds "dump" command support to build-guile-gtk.  it is
based on the "glue" command defs-reading code.

thi


______________________________________________________
diff -cw build-guile-gtk build-guile-gtk.new
*** build-guile-gtk	Wed Apr 12 12:21:05 2000
--- build-guile-gtk.new	Sun Oct 22 02:13:24 2000
***************
*** 1553,1567 ****
        (let ((len (string-length name)))
  	(and (> len 5) (string=? (substring name (- len 5)) ".defs"))))))
  
- 
      (let ((defs-files (pick is-defs-file? (rest-args)))
  	  (cc-flags (remove-if is-defs-file? (rest-args))))
!       (do-link (read-link-info defs-files) cc-flags)))
     (else
!     (error "unknown operation")))) )
! 
! 
! 
! 
! 
! 
--- 1553,1564 ----
                  (let ((len (string-length name)))
                    (and (> len 5) (string=? (substring name (- len 5)) ".defs"))))))
  
        (let ((defs-files (pick is-defs-file? (rest-args)))
              (cc-flags (remove-if is-defs-file? (rest-args))))
!         (do-link (read-link-info defs-files) cc-flags))))
!    ((dump)
!     (let* ((defs-file (next-arg))
! 	   (defs (read-file defs-file glue-backend)))
!       (for-each (lambda (def) (write def) (newline)) defs)))
     (else
!     (error "unknown operation"))))

Diff finished at Sun Oct 22 02:14:16