From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 10 Jun 2016 19:26:19 +0000 (-0700)
Subject: Edwin and IMail Makefile.ams (dist): Missing EXTRA_DIST files.
X-Git-Tag: mit-scheme-pucked-9.2.12~307
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8d09b66c9d28f2eb66d4064c28be1231541b4e0a;p=mit-scheme.git

Edwin and IMail Makefile.ams (dist): Missing EXTRA_DIST files.
---

diff --git a/src/edwin/Makefile.am b/src/edwin/Makefile.am
index 6faa8d3ec..22922c000 100644
--- a/src/edwin/Makefile.am
+++ b/src/edwin/Makefile.am
@@ -47,16 +47,18 @@ pdfdir = $(libdir)/mit-scheme-pucked/doc
 include $(srcdir)/source-dependencies.am
 edwin.bld: stamp-scheme
 edwin-@MIT_SCHEME_OS_SUFFIX@.pkd: stamp-scheme
-stamp-scheme: $(sources) edwin.pkg
+stamp-scheme: $(sources) edwin.ldr edwin.pkg
 	touch stamp-scheme
 	if ! ./compile.sh; then rm stamp-scheme; exit 1; fi
 
-CLEANFILES = *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd
+CLEANFILES = *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd *.bld
 
-ETAGS_ARGS = $(sources)
-TAGS_DEPENDENCIES = $(sources)
+ETAGS_ARGS = $(sources) edwin.ldr
+TAGS_DEPENDENCIES = $(sources) edwin.ldr
 
-EXTRA_DIST += $(sources) compile.sh edwin.sf edwin.cbf edwin.pkg
+EXTRA_DIST += $(sources) TUTORIAL
+EXTRA_DIST += sources.sh compile.sh decls.scm edwin.ldr 
+EXTRA_DIST += edwin.sf edwin.cbf edwin.pkg
 
 install-data-hook:
 	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
diff --git a/src/edwin/sources.sh b/src/edwin/sources.sh
index f9943c8f6..6535b9636 100755
--- a/src/edwin/sources.sh
+++ b/src/edwin/sources.sh
@@ -28,40 +28,58 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode -- $1 <<\EOF
+(begin
 
-(let ((command (car (command-line))))
-  (parameterize ((param:suppress-loading-message? #t))
-    (load-option 'CREF))
-  (let ((cref (->environment '(cross-reference))))
-    (let ((read-package-model (access read-package-model cref))
-	  (pmodel/packages (access pmodel/packages cref))
-	  (package/files (access package/files cref))
-	  (os-type microcode-id/operating-system)
-	  (write (named-lambda (write . strings)
-		   (for-each write-string strings))))
-      (define (write-line . strings)
-	(apply write strings) (newline))
-      (let ((pathnames
-	     (cons (->pathname "rename")
-		   (append-map package/files
-			       (pmodel/packages
-				(read-package-model "edwin" os-type))))))
-	(cond ((string=? command "scm")
-	       (for-each (lambda (name) (write " "name))
-		 (sort (map (lambda (pathname)
-			      (->namestring (pathname-new-type pathname "scm")))
-			    pathnames)
-		       string<?)))
-	      ((string=? command "com")
-	       (for-each
-		 (lambda (name) (write " "name".bci "name".com"))
-		 (sort (map ->namestring pathnames) string<?)))
-	      ((string=? command "deps")
-	       (for-each
-		 (lambda (name)
-		   (write-line name".bci: stamp-scheme")
-		   (write-line name".com: stamp-scheme"))
-		 (sort (map ->namestring pathnames) string<?)))
-	      (else
-	       (error "Unexpected command:" command)))))))
+  (define (filenames)
+    '("abbrev" "ansi" "argred" "artdebug" "autold" "autosv" "basic"
+      "bios" "bufcom" "buffer" "buffrm" "bufinp" "bufmnu" "bufout"
+      "bufset" "bufwfs" "bufwin" "bufwiu" "bufwmc" "c-mode" "calias"
+      "cinden" "class" "clscon" "clsmac" "comatch" "comhst" "comint"
+      "comman" "compile" "comred" "comtab" "comwin" "curren" "dabbrev"
+      "debian-changelog" "debug" "debuge" "diff" "dired" "dirunx"
+      "dirw32" "display" "docstr" "dos" "doscom" "dosfile" "dosproc"
+      "dosshell" "ed-ffi" "editor" "edtfrm" "edtstr" "evlcom" "eystep"
+      "filcom" "fileio" "fill" "grpops" "hlpcom" "htmlmode" "image"
+      "info" "input" "intmod" "iserch" "javamode" "key-w32" "keymap"
+      "keyparse" "kilcom" "kmacro" "lincom" "linden" "lisppaste"
+      "loadef" "lspcom" "macros" "make" "malias" "manual" "midas"
+      "modefs" "modes" "modlin" "modwin" "motcom" "motion" "mousecom"
+      "nntp" "notify" "nvector" "occur" "outline" "paredit" "pasmod"
+      "paths" "print" "process" "prompt" "pwedit" "pwparse" "rcsparse"
+      "reccom" "regcom" "regexp" "regops" "rename" "replaz" "rfc822"
+      "ring" "rmail" "rmailsrt" "rmailsum" "schmod" "scrcom" "screen"
+      "search" "sendmail" "sercom" "shell" "simple" "snr" "sort"
+      "strpad" "strtab" "struct" "syntax" "tagutl" "techinfo" "telnet"
+      "termcap" "texcom" "things" "tparse" "tterm" "tximod" "txtprp"
+      "undo" "unix" "utils" "utlwin" "vc" "vc-bzr" "vc-cvs" "vc-git"
+      "vc-rcs" "vc-svn" "verilog" "vhdl" "webster" "win32" "win32com"
+      "wincom" "window" "winout" "winren" "world-monitor" "xform"))
+
+  (define (my-write . strings)
+    (for-each write-string strings))
+
+  (define (my-write-line . strings)
+    (apply my-write strings) (newline))
+
+  (let ((command (car (command-line)))
+	(files (filenames)))
+    (cond ((string=? command "scm")
+	   (for-each (lambda (name) (my-write " "name))
+		     (sort (map (lambda (pathname)
+				  (->namestring (pathname-new-type pathname "scm")))
+				files)
+			   string<?)))
+	  ((string=? command "com")
+	   (for-each
+	     (lambda (name) (my-write " "name".bci "name".com"))
+	     (sort (map ->namestring files) string<?)))
+	  ((string=? command "deps")
+	   (for-each
+	     (lambda (name)
+	       (my-write-line name".bci: stamp-scheme")
+	       (my-write-line name".com: stamp-scheme"))
+	     (sort (map ->namestring files) string<?)))
+	  (else
+	   (error "Unexpected command:" command))))
+  )
 EOF
diff --git a/src/imail/Makefile.am b/src/imail/Makefile.am
index e92b4d11c..d4fe6f629 100644
--- a/src/imail/Makefile.am
+++ b/src/imail/Makefile.am
@@ -90,8 +90,7 @@ CLEANFILES = *.bin *.ext *.com *.bci *.moc *.fni *.crf *.fre *.pkd
 ETAGS_ARGS = $(sources)
 TAGS_DEPENDENCIES = $(sources)
 
-EXTRA_DIST += $(sources) compile.sh imail.pkg
-EXTRA_DIST += load.scm
+EXTRA_DIST += $(sources) compile.sh load.scm compile.scm imail.pkg
 
 install-data-hook:
 	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \