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 [thread overview]
Message-ID: <200010220920.CAA02382@revel.glug.org> (raw)
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
next reply other threads:[~2000-10-22 11:36 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-10-22 11:36 thi [this message]
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
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=200010220920.CAA02382@revel.glug.org \
--to=ttn@revel.glug.org \
--cc=guile-gtk@sourceware.cygnus.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).