Initial revision

diff --git a/v7/src/imail/clean.sh b/v7/src/imail/clean.sh
new file mode 100755 (executable)
index 0000000..00439e2
--- /dev/null
+++ b/v7/src/imail/clean.sh
@@ -0,0 +1,3 @@
+#!/bin/bash
+rm -f *.{bin,exe,com,bci}
+rm -f imail.{bco,bld,con,crf,fre,glo,ldr}

diff --git a/v7/src/imail/compile.scm b/v7/src/imail/compile.scm
new file mode 100644 (file)
index 0000000..3961cd5
--- /dev/null
+++ b/v7/src/imail/compile.scm
@@ -0,0 +1,41 @@
+;;; -*-Scheme-*-
+;;;
+;;; $Id: compile.scm,v 1.1 2000/01/18 20:56:05 cph Exp $
+;;;
+;;; Copyright (c) 2000 Massachusetts Institute of Technology
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software
+;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;;; IMAIL mail reader: compilation
+
+(load-option 'CREF)
+(load-option 'SOS)
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (for-each compile-file
+             '("imail-core"
+               "imail-file"
+               "imail-rmail"
+               "imail-umail"
+               "imail-util"
+               "rfc822"))
+    (for-each (let ((syntax-table
+                    (access edwin-syntax-table (->environment '(EDWIN)))))
+               (lambda (filename)
+                 (compile-file filename '() syntax-table)))
+             '("imail-top"))
+    (cref/generate-constructors "imail")
+    (sf "imail.con")
+    (sf "imail.ldr")))
\ No newline at end of file

diff --git a/v7/src/imail/ed-ffi.scm b/v7/src/imail/ed-ffi.scm
new file mode 100644 (file)
index 0000000..cc0a9be
--- /dev/null
+++ b/v7/src/imail/ed-ffi.scm
@@ -0,0 +1,30 @@
+;;; -*-Scheme-*-
+;;;
+;;; $Id: ed-ffi.scm,v 1.1 2000/01/18 20:56:13 cph Exp $
+;;;
+;;; Copyright (c) 2000 Massachusetts Institute of Technology
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software
+;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;;; IMAIL mail reader: Edwin buffer packaging info
+
+(standard-scheme-find-file-initialization
+ '#(("imail-core" (edwin imail) edwin-syntax-table)
+    ("imail-file" (edwin imail) edwin-syntax-table)
+    ("imail-rmail" (edwin imail) edwin-syntax-table)
+    ("imail-top" (edwin imail) edwin-syntax-table)
+    ("imail-umail" (edwin imail) edwin-syntax-table)
+    ("imail-util" (edwin imail) edwin-syntax-table)
+    ("rfc822" (edwin imail) edwin-syntax-table)))
\ No newline at end of file

diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
new file mode 100644 (file)
index 0000000..1b173ab
--- /dev/null
+++ b/v7/src/imail/imail.pkg
@@ -0,0 +1,35 @@
+;;; -*-Scheme-*-
+;;;
+;;; $Id: imail.pkg,v 1.1 2000/01/18 20:57:41 cph Exp $
+;;;
+;;; Copyright (c) 2000 Massachusetts Institute of Technology
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program; if not, write to the Free Software
+;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;;; IMAIL mail reader: packaging
+
+(global-definitions "$bscm/runtime/runtime")
+(global-definitions "$bscm/sos/sos")
+(global-definitions "$bscm/edwin/edwinunx")
+
+(define-package (edwin imail)
+  (files "imail-util"
+        "rfc822"
+        "imail-core"
+        "imail-file"
+        "imail-rmail"
+        "imail-umail"
+        "imail-top")
+  (parent (edwin)))
\ No newline at end of file