From c559a46592783df950336efa32c9a973ba1a9b65 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Jan 2000 20:57:41 +0000 Subject: [PATCH] Initial revision --- v7/src/imail/clean.sh | 3 +++ v7/src/imail/compile.scm | 41 ++++++++++++++++++++++++++++++++++++++++ v7/src/imail/ed-ffi.scm | 30 +++++++++++++++++++++++++++++ v7/src/imail/imail.pkg | 35 ++++++++++++++++++++++++++++++++++ 4 files changed, 109 insertions(+) create mode 100755 v7/src/imail/clean.sh create mode 100644 v7/src/imail/compile.scm create mode 100644 v7/src/imail/ed-ffi.scm create mode 100644 v7/src/imail/imail.pkg 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 -- 2.25.1