Implement Webster commands.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index c9f23483eade08a1e75d2107626bebcebd29da30..e64a9ad5abc93fa532cc5bf491000858f53b638d 100644 (file)
--- 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 10009af85ce8ec03ebca8f66a6651aedcfa30bcf..875ee5992894e8455012116a6caefef8d81a3e21 100644 (file)
--- 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 ed26268a600989e11799524073c3d36dbe2ed200..61771588801541d819c98891e0f9b37709ad4e74 100644 (file)
--- 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 1094ee7adf1f6d1308fd71a0ad20b6b4863c7096..52e99fb60fbe36a7d1f7214fdc0b9945272581e2 100644 (file)
--- 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?)
 \f
+;;;; 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?)
+\f
 ;;;; DOS-specific commands
 
 (if (memq microcode-id/operating-system '(DOS))