From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 5 Nov 1992 23:31:52 +0000 (+0000)
Subject: Add SORT library (from arthur).
X-Git-Tag: 20090517-FFI~8798
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=390540ceeadc8e77f6678fb05d163d1789ccef48;p=mit-scheme.git

Add SORT library (from arthur).
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 7a265fc7b..8019fb9a6 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.17 1992/11/05 20:45:32 cph Exp $
+;;;	$Id: loadef.scm,v 1.18 1992/11/05 23:31:52 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -136,7 +136,7 @@ modified version of TeX input format.")
 (define-variable texinfo-mode-hook
   "An event distributor that is invoked when entering Texinfo mode."
   (make-event-distributor))
-
+
 ;;;; Other Libraries
 
 (define-library 'manual
@@ -192,4 +192,25 @@ variable's value is #F, the text is printed using LPR-COMMAND."
   "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
+  "Print region contents as with Unix command `lpr -p'.")
+
+(define-library 'SORT
+  '("sort" (EDWIN)))
+
+(define-autoload-command 'sort-lines 'SORT
+  "Sort lines by their text.")
+
+(define-autoload-command 'sort-pages 'SORT
+  "Sort pages by their text.")
+
+(define-autoload-command 'sort-paragraphs 'SORT
+  "Sort paragraphs by their text.")
+
+(define-autoload-command 'sort-fields 'SORT
+  "Sort lines by the text of a field.")
+
+(define-autoload-command 'sort-numeric-fields 'SORT
+  "Sort lines by the numeric value of a field.")
+
+(define-autoload-command 'sort-columns 'SORT
+  "Sort lines by the text in a range of columns.")
\ No newline at end of file