From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jan 2000 20:57:41 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~4318
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c559a46592783df950336efa32c9a973ba1a9b65;p=mit-scheme.git

Initial revision
---

diff --git a/v7/src/imail/clean.sh b/v7/src/imail/clean.sh
new file mode 100755
index 000000000..00439e2cd
--- /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
index 000000000..3961cd5a3
--- /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
index 000000000..cc0a9bede
--- /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
index 000000000..1b173ab7a
--- /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