From: Matt Birkholz Date: Wed, 29 Jul 2009 18:13:19 +0000 (-0700) Subject: .gitignores, make tags, sf-with-dependencies X-Git-Tag: 20100708-Gtk~36^2^2~4 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=819456fe9dd200cb1ef95c08f379c1afaf84a8e7;p=mit-scheme.git .gitignores, make tags, sf-with-dependencies --- diff --git a/.gitignore b/.gitignore index 618f51120..fa96363ef 100644 --- a/.gitignore +++ b/.gitignore @@ -1,19 +1,9 @@ -/C/ -/LOG -/html/ -/linux/ -/macosx/ -.edwin-ffi -*.bin -*.ext -*.com -*.bci -*.pkd -*.crf -*.fre +configure +config.guess +config.log +config.status +config.sub +autom4te.cache +Makefile TAGS -*.o -*.lo -*.la -*~ -#* +!/src/TAGS diff --git a/doc/.gitignore b/doc/.gitignore new file mode 100644 index 000000000..a9438799a --- /dev/null +++ b/doc/.gitignore @@ -0,0 +1,26 @@ +*.aux +*.cp +*.cps +*.fn +*.fns +*.ky +*.kys +*.log +*.nv +*.nvs +*.op +*.ops +*.pg +*.toc +*.tp +*.vr +*.vrs +*.info +*.info-* +*.pdf +*.ps +/make-common +/imail/mit-scheme-imail/ +/ref-manual/mit-scheme-ref/ +/sos/mit-scheme-sos/ +/user-manual/mit-scheme-user/ diff --git a/src/.gitignore b/src/.gitignore new file mode 100644 index 000000000..070a13346 --- /dev/null +++ b/src/.gitignore @@ -0,0 +1,43 @@ +*.bin +*.ext +*.com +*.bci +*.crf +*.fre +*.pkd +*.o +*.so +Clean.sh +Setup.sh +!/Setup.sh +Stage.sh +Tags.sh +!/etc/Tags.sh +!/microcode/Tags.sh +/*/.edwin-ffi +*/Makefile.in +/compiler/compiler.cbf +/compiler/compiler.pkg +/compiler/compiler.sf +/compiler/machine +/compiler/machines/vax/dinstr1.scm +/compiler/machines/vax/dinstr2.scm +/compiler/machines/vax/dinstr3.scm +/edwin/edwin.bld +/lib +/makefiles_created +/microcode/Makefile.deps +/microcode/cmpauxmd.m4 +/microcode/cmpauxmd/i386-nt.asm +/microcode/cmpauxmd/i386-ntw.asm +/microcode/cmpintmd-config.h +/microcode/cmpintmd.c +/microcode/cmpintmd.h +/microcode/config.h +/microcode/config.h.in +/microcode/findprim +/microcode/liarc-rules +/microcode/liarc-vars +/microcode/makegen-cc +/microcode/scheme +/microcode/usrdef.c diff --git a/src/Setup.sh b/src/Setup.sh index 5479ecde4..6b691eb13 100755 --- a/src/Setup.sh +++ b/src/Setup.sh @@ -1,6 +1,6 @@ #!/bin/sh # -# $Id: Setup.sh,v 1.28 2008/01/30 20:01:40 cph Exp $ +# $Id$ # # Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, # 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -36,7 +36,7 @@ fi . etc/functions.sh INSTALLED_SUBDIRS="cref edwin imail sf sos ssp star-parser xml" -OTHER_SUBDIRS="6001 compiler runtime win32 xdoc microcode" +OTHER_SUBDIRS="6001 compiler rcs runtime win32 xdoc microcode" # lib maybe_mkdir lib diff --git a/src/etc/Tags.sh b/src/etc/Tags.sh index 4fddda2bb..670307b10 100755 --- a/src/etc/Tags.sh +++ b/src/etc/Tags.sh @@ -1,6 +1,6 @@ #!/bin/sh # -# $Id: Tags.sh,v 1.7 2008/01/30 20:02:08 cph Exp $ +# $Id$ # # Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, # 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -26,4 +26,4 @@ # Utility to make TAGS file for an MIT/GNU Scheme build directory. # The working directory must be the build directory. -etags *.scm +etags *.scm *.pkg diff --git a/src/microcode/Tags.sh b/src/microcode/Tags.sh new file mode 100755 index 000000000..600128709 --- /dev/null +++ b/src/microcode/Tags.sh @@ -0,0 +1,6 @@ +#!/bin/sh +# +# Utility to make TAGS file for the MIT/GNU Scheme MICROCODE build +# directory. The working directory must be the build directory. + +make tags diff --git a/src/sf/sf.pkg b/src/sf/sf.pkg index 48c6608a0..852a9bb27 100644 --- a/src/sf/sf.pkg +++ b/src/sf/sf.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: sf.pkg,v 4.22 2008/01/30 20:02:38 cph Exp $ +$Id$ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -52,6 +52,7 @@ USA. (files "toplev") (parent (scode-optimizer)) (export () + sf-with-dependencies sf sf/default-declarations sf/default-syntax-table diff --git a/src/sf/toplev.scm b/src/sf/toplev.scm index 83624b70d..6995a72cd 100644 --- a/src/sf/toplev.scm +++ b/src/sf/toplev.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: toplev.scm,v 4.33 2008/01/30 20:02:38 cph Exp $ +$Id$ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -48,6 +48,43 @@ USA. (define (integrate/scode scode receiver) (integrate/simple identity-procedure scode receiver)) +(define (sf-with-dependencies sources dependencies #!optional syntax-env) + (let ((env (if (default-object? syntax-env) + sf/default-syntax-table + syntax-env)) + (deps (map (lambda (dep) (pathname-default-type dep "bin")) + dependencies))) + (define (file-reasons file) + (append + (if (not (file-processed? file "scm" "bin")) + (list (pathname-default-type file "scm")) + '()) + (let* ((bin-file (pathname-new-type file "bin")) + (bin-time (file-modification-time bin-file))) + (if (not bin-time) + '() + (list-transform-positive deps + (lambda (dep) + (let ((dep-time (file-modification-time dep))) + (or (not dep-time) (< bin-time dep-time))))))))) + (for-each + (lambda (file) + (let ((reasons (file-reasons file))) + (if (not (null? reasons)) + (begin + (if (eq? sf:noisy? #t) + (begin + (write-string ";Processing ") + (write (enough-namestring file)) + (write-string " because of:") + (for-each (lambda (reason) + (write-char #\space) + (write (enough-namestring reason))) + reasons))) + (fluid-let ((sf/default-syntax-table env)) + (sf file)))))) + (if (pair? sources) sources (list sources))))) + (define (sf input-string #!optional bin-string spec-string) (syntax-file input-string (and (not (default-object? bin-string)) bin-string)