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

diff --git a/src/edwin/Makefile.am b/src/edwin/Makefile.am
index 6faa8d3ecea7fe29a0f2fe6f87e72d6a2ff7839f..22922c0004fb9c1be69f5c91b41d539652bb22e5 100644 (file)
--- 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 f9943c8f67952bbc6ca61ba167f376e13cde36d3..6535b96365f6528be110741a7116744e6f659339 100755 (executable)
--- 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 e92b4d11c5147c3f0b9954282b071ab7f6346a44..d4fe6f629f715636a04e90a2a3a7f13a13cee883 100644 (file)
--- 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)")' \