Add mode for editing Verilog programs.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 2b42e653ff20f8b04580f56b00ba0b3bf4341a4b..221147cd6225c040cf5f918dabd84d9d60f279a4 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: decls.scm,v 1.56 1995/10/25 03:02:52 cph Exp $
+$Id: decls.scm,v 1.57 1996/04/23 22:38:47 cph Exp $
 
-Copyright (c) 1989-95 Massachusetts Institute of Technology
+Copyright (c) 1989-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -217,6 +217,7 @@ MIT in each case. |#
                "undo"
                "unix"
                "vc"
+               "verilog"
                "wincom"
                "winout"
                "xcom"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index dbbd430e049f5c784ec5d451ceeff5b6a9b064ec..0de7cd0968aaabfa082cc5a06b43c4159b9b9c28 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: ed-ffi.scm,v 1.39 1995/10/25 02:58:01 cph Exp $
+$Id: ed-ffi.scm,v 1.40 1996/04/23 22:38:39 cph Exp $
 
-Copyright (c) 1990-95 Massachusetts Institute of Technology
+Copyright (c) 1990-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -315,6 +315,8 @@ of that license should have been included along with this file.
                class-syntax-table)
     ("vc"      (edwin vc)
                edwin-syntax-table)
+    ("verilog" (edwin verilog)
+               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 9d3e89227fa997d60b5f1a925e94d9754682ff20..d477de58d2fe4d2a5fe19c641075ae8ddad9e98d 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.184 1996/03/21 16:52:41 adams Exp $
+$Id: edwin.pkg,v 1.185 1996/04/23 22:38:27 cph Exp $
 
-Copyright (c) 1989-95 Massachusetts Institute of Technology
+Copyright (c) 1989-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1640,4 +1640,15 @@ MIT in each case. |#
          set-news-header:reader-hook!
          set-news-thread:reader-hook!
          set-nntp-connection:reader-hook!
-         token->number))
\ No newline at end of file
+         token->number))
+\f
+(define-package (edwin verilog)
+  (files "verilog")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$verilog-indent-line
+         edwin-command$verilog-indent-region
+         edwin-command$verilog-mode
+         edwin-mode$verilog
+         edwin-variable$verilog-continued-statement-offset
+         edwin-variable$verilog-mode-hook))
\ No newline at end of file

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 4737c9bfccea714511c1593e1d240eb9a6f030a4..a1bbb68131a7364c1684d8848018139a380fd6d7 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: loadef.scm,v 1.28 1995/05/03 07:50:29 cph Exp $
+;;;    $Id: loadef.scm,v 1.29 1996/04/23 22:39:30 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -108,11 +108,19 @@ This must be a regular expression, or #F to disable the option."
   '("tximod" (EDWIN)))
 
 (define-autoload-major-mode 'texinfo 'text "Texinfo" 'TEXINFO-MODE
-  "Major mode for editing texinfo files.
-These are files that are input for TeX and also to be turned
-into Info files by \\[texinfo-format-buffer].
-These files must be written in a very restricted and
-modified version of TeX input format.")
+  "Major mode for editing Texinfo files.
+
+  These are files that are used as input for TeX to make printed manuals
+and also to be turned into Info files by \\[texinfo-format-buffer] or
+`makeinfo'.  These files must be written in a very restricted and
+modified version of TeX input format.
+
+  Editing commands are like text-mode except that the syntax table is
+set up so expression commands skip Texinfo bracket groups.
+
+  In addition, Texinfo mode provides commands that insert various
+frequently used @-sign commands into the buffer.  You can use these
+commands to save keystrokes.")
 
 (define-autoload-command 'texinfo-mode 'TEXINFO-MODE
   "Make the current mode be Texinfo mode.")
@@ -228,6 +236,24 @@ Normally uses the server specified by the variable news-server,
 but with a prefix arg prompts for the server name.
 Only one News reader may be open per server; if a previous News reader
 is open the that server, its buffer is selected.")
+
+(define-library 'VERILOG-MODE
+  '("verilog" (EDWIN VERILOG)))
+
+(define-autoload-major-mode 'verilog 'fundamental "Verilog" 'VERILOG-MODE
+  "Major mode specialized for editing Verilog code.")
+
+(define-autoload-command 'verilog-mode 'VERILOG-MODE
+  "Enter Verilog mode.")
+
+(define-variable verilog-mode-hook
+  "An event distributor that is invoked when entering Verilog mode."
+  (make-event-distributor))
+
+(define-variable verilog-continued-statement-offset
+  "Extra indent for lines not starting new statements."
+  2
+  exact-nonnegative-integer?)
 \f
 ;;;; DOS-specific commands