public inbox for guile-gtk@sourceware.org
 help / color / mirror / Atom feed
* adding "dump" opsym to build-guile-gtk
@ 2000-10-22 11:36 thi
  2000-10-23 15:32 ` Marius Vollmer
  0 siblings, 1 reply; 6+ messages in thread
From: thi @ 2000-10-22 11:36 UTC (permalink / raw)
  To: guile-gtk

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

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2000-11-11 17:03 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2000-10-22 11:36 adding "dump" opsym to build-guile-gtk thi
2000-10-23 15:32 ` Marius Vollmer
2000-11-08  9:46   ` thi
2000-11-11 15:11     ` Marius Vollmer
2000-11-11 17:03       ` Ariel Rios
2000-11-08  9:47   ` thi

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).