From: Chris Hanson Date: Tue, 23 Apr 1996 22:39:30 +0000 (+0000) Subject: Add mode for editing Verilog programs. X-Git-Tag: 20090517-FFI~5594 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d9ce676da4566cdab378e9e6eab08feb389cce2d;p=mit-scheme.git Add mode for editing Verilog programs. --- diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index 2b42e653f..221147cd6 100644 --- 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 dbbd430e0..0de7cd096 100644 --- 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 9d3e89227..d477de58d 100644 --- 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)) + +(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 4737c9bfc..a1bbb6813 100644 --- 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?) ;;;; DOS-specific commands