From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 20 Sep 1991 20:47:15 +0000 (+0000)
Subject: Add printer output commands LPR-BUFFER, PRINT-BUFFER, LPR-REGION, and
X-Git-Tag: 20090517-FFI~10191
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38211b659ba47e5df11760fd374a3d5b3c326016;p=mit-scheme.git

Add printer output commands LPR-BUFFER, PRINT-BUFFER, LPR-REGION, and
PRINT-REGION.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 7aa9d0cf4..48230120e 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.25 1991/09/18 13:56:26 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.26 1991/09/20 20:47:15 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -146,6 +146,7 @@ MIT in each case. |#
 	      "modlin"
 	      "motcom"
 	      "pasmod"
+	      "print"
 	      "process"
 	      "prompt"
 	      "rcs"
diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 77d2ea001..deff74352 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -141,6 +141,8 @@
 	       edwin-syntax-table)
     ("paths"   (edwin)
 	       syntax-table/system-internal)
+    ("print"   (edwin)
+	       edwin-syntax-table)
     ("process" (edwin process)
 	       edwin-syntax-table)
     ("prompt"  (edwin prompt)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 05fa7b68d..93c11cc66 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.61 1991/09/18 13:56:05 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.62 1991/09/20 20:47:00 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -99,7 +99,8 @@ MIT in each case. |#
 	 "midas"
 	 "pasmod"
 	 "tximod"
-	 "manual")			; man page display
+	 "manual"			; man page display
+	 "print")			; printer output
   (parent ())
   (import (runtime rep)
 	  hook/repl-eval)
diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 08f0370c0..6e71adbca 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.11 1991/09/18 13:56:13 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/loadef.scm,v 1.12 1991/09/20 20:46:33 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -134,4 +134,19 @@ modified version of TeX input format.")
   '("manual" (EDWIN)))
 
 (define-autoload-command 'manual-entry 'MANUAL
-  "Display UNIX man page.")
\ No newline at end of file
+  "Display UNIX man page.")
+
+(define-library 'print
+  '("print" (EDWIN)))
+
+(define-autoload-command 'lpr-buffer 'PRINT
+  "Print buffer contents with Unix command `lpr'.")
+
+(define-autoload-command 'print-buffer 'PRINT
+  "Print buffer contents as with Unix command `lpr -p'.")
+
+(define-autoload-command 'lpr-region 'PRINT
+  "Print region contents as with Unix command `lpr'.")
+
+(define-autoload-command 'print-region 'PRINT
+  "Print region contents as with Unix command `lpr -p'.")
\ No newline at end of file