From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 31 Aug 1998 04:14:51 +0000 (+0000)
Subject: Implement Webster commands.
X-Git-Tag: 20090517-FFI~4745
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d713086f349b320ed0613cc79e9207284dc8a12b;p=mit-scheme.git

Implement Webster commands.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index c9f23483e..e64a9ad5a 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.60 1998/06/29 04:10:34 cph Exp $
+$Id: decls.scm,v 1.61 1998/08/31 04:14:47 cph Exp $
 
 Copyright (c) 1989-98 Massachusetts Institute of Technology
 
@@ -223,6 +223,7 @@ MIT in each case. |#
 		"vc"
 		"verilog"
 		"vhdl"
+		"webster"
 		"wincom"
 		"winout"
 		"xcom"
diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index 10009af85..875ee5992 100644
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.43 1998/06/29 04:10:39 cph Exp $
+$Id: ed-ffi.scm,v 1.44 1998/08/31 04:14:51 cph Exp $
 
 Copyright (c) 1990-98 Massachusetts Institute of Technology
 
@@ -327,6 +327,8 @@ of that license should have been included along with this file.
 		edwin-syntax-table)
     ("vhdl"	(edwin vhdl)
 		edwin-syntax-table)
+    ("webster"	(edwin)
+		edwin-syntax-table)
     ("win32"	(edwin screen win32)
 		edwin-syntax-table)
     ("win32com"	(edwin win-commands)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index ed26268a6..617715888 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.224 1998/06/29 04:10:43 cph Exp $
+$Id: edwin.pkg,v 1.225 1998/08/31 04:14:38 cph Exp $
 
 Copyright (c) 1989-98 Massachusetts Institute of Technology
 
@@ -103,6 +103,7 @@ MIT in each case. |#
 	 "notify"			; mode-line notifications
 	 "outline"			; outline minor mode
 	 "sort"				; sorting commands
+	 "webster"			; access a Webster server
 	 )
 
   (parent ())
diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 1094ee7ad..52e99fb60 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.32 1997/10/22 05:10:38 cph Exp $
+;;;	$Id: loadef.scm,v 1.33 1998/08/31 04:14:31 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -287,6 +287,54 @@ is open the that server, its buffer is selected.")
   2
   exact-nonnegative-integer?)
 
+;;;; Webster
+
+(define-library 'WEBSTER
+  '("webster" (EDWIN)))
+
+(define-autoload-major-mode webster read-only "Webster" 'WEBSTER
+  "Major mode for interacting with webster server.
+Commands:
+
+\\[webster-define]	look up the definition of a word
+\\[webster-spellings]	look up possible correct spellings for a word
+\\[webster-define]	look up possible endings for a word
+\\[webster-quit]	close connection to the Webster server
+
+Use webster-mode-hook for customization.")
+
+(define-autoload-command 'webster 'WEBSTER
+  "Look up a word in Webster's dictionary.")
+
+(define-autoload-command 'webster-define 'WEBSTER
+  "Look up a word in Webster's dictionary.")
+
+(define-autoload-command 'webster-endings 'WEBSTER
+  "Look up possible endings for a word in Webster's dictionary.")
+
+(define-autoload-command 'webster-spellings 'WEBSTER
+  "Look up possible correct spellings for a word in Webster's dictionary.")
+
+(define-variable webster-server
+  "Host name of a webster server, specified as a string."
+  #f
+  string-or-false?)
+
+(define-variable webster-port
+  "TCP port of webster server on webster-server, specified as an integer.
+This is usually 103 or 2627."
+  103
+  exact-nonnegative-integer?)
+
+(define-variable webster-mode-hook
+  "Hook to be run by webster-mode, after everything else."
+  (make-event-distributor))
+
+(define-variable webster-buffer-name
+  "The name to use for webster interaction buffer."
+  "*webster*"
+  string?)
+
 ;;;; DOS-specific commands
 
 (if (memq microcode-id/operating-system '(DOS))