[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
nrnhoc.el and nmodl.el
|
From: |
David Sterratt |
|
Subject: |
nrnhoc.el and nmodl.el |
|
Date: |
Mon, 4 Jan 2010 02:03:15 -0800 (PST) |
|
User-agent: |
G2/1.0 |
It was suggested to me that I post these resources for the Neuron
simulator (http://www.neuron.yale.edu): a Neuron HOC mode for emacs
and an NMODL mode for emacs. Their main features are syntax
highlighting and syntax-based indentation. They've been tested under
XEmacs 21.4 and Emacs 20.7.1.
The files are also available from:
http://homepages.inf.ed.ac.uk/sterratt/progs/neuron
;;; nrnhoc.el --- major mode for Neuron HOC dot-hoc files
;;
;; Author: David C. Sterratt <address@hidden>
;; Maintainer: David C. Sterratt <address@hidden>
;; Created: 03 Mar 03
;; Version: 0.4.6
;; Keywords: HOC, NEURON
;;
;; Copyright (C) 2003-2006 David C. Sterratt and Andrew Gillies
;;
;; This program is free software; you can redistribute it and/or
modify
;; it under the terms of the GNU General Public License as published
by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
USA.
;;
;;; Commentary:
;;
;; This major mode for GNU Emacs provides support for editing Neuron
HOC
;; dot-hoc files. It automatically indents for block structures and
;; comments. It highlights code using font-lock.
;;
;;; Finding Updates:
;;
;; The latest stable version of nrnhoc.el can be found here:
;;
;; http://www.anc.ed.ac.uk/~dcs/progs/neuron/nrnhoc.el
;;
;;; Installation:
;;
;; Put the this file as "nrnhoc.el" somewhere on your load path,
then
;; add this to your .emacs or init.el file:
;;
;; (autoload 'nrnhoc-mode "nrnhoc" "Enter NRNHOC mode." t)
;; (setq auto-mode-alist (cons '("\\.hoc\\'" . nrnhoc-mode) auto-
mode-alist))
;;
;; Please read the mode help for nrnhoc-mode for configuration
options.
;;
;; Syntax highlighting:
;; To get font-lock try adding this for older emacsen:
;; (font-lock-mode 1)
;; Or for newer versions of Emacs:
;; (global-font-lock-mode t)
;; In Xemacs the following seems to work
;; (add-hook 'nrnhoc-mode-hook 'turn-on-font-lock)
;;
;;
;; This package will optionally use custom.
;;
;; It is partly based on Eric M. Ludlam's and Matthew R. Wette's
matlab-mode
;;
;;; Code:
(defconst nrnhoc-mode-version "0.4.5"
"Current version of NRNHOC mode.")
;; From custom web page for compatibility between versions of custom:
(eval-and-compile
(condition-case ()
(require 'custom)
(error nil))
(if (and (featurep 'custom) (fboundp 'custom-declare-variable))
nil ;; We've got what we needed
;; We have the old custom-library, hack around it!
(defmacro defgroup (&rest args)
nil)
(defmacro custom-add-option (&rest args)
nil)
(defmacro defface (&rest args) nil)
(defmacro defcustom (var value doc &rest args)
(` (defvar (, var) (, value) (, doc))))))
;; compatibility
(cond ((fboundp 'point-at-bol)
(defalias 'nrnhoc-point-at-bol 'point-at-bol)
(defalias 'nrnhoc-point-at-eol 'point-at-eol))
;; Emacs 20.4
((fboundp 'line-beginning-position)
(defalias 'nrnhoc-point-at-bol 'line-beginning-position)
(defalias 'nrnhoc-point-at-eol 'line-end-position))
(t
(defmacro nrnhoc-point-at-bol ()
(save-excursion (beginning-of-line) (point)))
(defmacro nrnhoc-point-at-eol ()
(save-excursion (end-of-line) (point)))))
;; This is taken from simple.el since it does not seem to be
automatically
;; loaded in GNU Emacs
(defun nrnhoc-line-number (&optional pos respect-narrowing)
"Return the line number of POS (defaults to point).
If RESPECT-NARROWING is non-nil, then the narrowed line number is
returned;
otherwise, the absolute line number is returned. The returned line
can always
be given to `goto-line' to get back to the current line."
(if (and pos (/= pos (point)))
(save-excursion
(goto-char pos)
(nrnhoc-line-number nil respect-narrowing))
(1+ (count-lines (if respect-narrowing (point-min) 1) (nrnhoc-
point-at-bol)))))
;;; User-changeable variables
=================================================
;; Variables which the user can change
(defgroup nrnhoc nil
"NRNHOC mode."
:prefix "nrnhoc-"
:group 'languages)
(defcustom nrnhoc-mode-hook nil
"*List of functions to call on entry to NRNHOC mode."
:group 'nrnhoc
:type 'hook)
(defcustom nrnhoc-indent-level 4
"*The basic indentation amount in `nrnhoc-mode'."
:group 'nrnhoc
:type 'integer)
(defcustom nrnhoc-comment-column 40
"*The goal comment column in `nrnhoc-mode' buffers."
:group 'nrnhoc
:type 'integer)
;;; NRNHOC mode variables
=====================================================
;;; Keybindings
===============================================================
;; mode map
(defvar nrnhoc-mode-map
(let ((km (make-sparse-keymap)))
(define-key km [return] 'nrnhoc-return)
(define-key km "}" 'nrnhoc-closing-brace)
km)
"The keymap used in `nrnhoc-mode'.")
;;; Syntax table
==============================================================
;; Defines comment font locking
(defvar nrnhoc-mode-syntax-table
(let ((st (make-syntax-table)))
(modify-syntax-entry ?_ "w")
(modify-syntax-entry ?\n "> b")
(modify-syntax-entry ?/ (
if (string-match "XEmacs" (emacs-
version))
". 1456"
". 124b"))
(modify-syntax-entry ?* ". 23")
(modify-syntax-entry ?\^m "> b")
st)
"Syntax table for `nrnhoc-mode'.")
;;; Font locking keywords
=====================================================
(defvar nrnhoc-font-lock-keywords
'(
; ("//.*" . font-lock-comment-face)
; ("/\\*[^\\*]*\\*/" . font-lock-comment-face)
;; Keywords (proc and func are syntax)
("\\<\\(break\\|else\\|insert\\|stop\\|\\|continue\\|em\
\\|local\\|localobj\\|strdef\\|\\|debug\\|eqn\\|print\\|uninsert\\|\\|
delete\
\\|for\\|read\\|while\\|\\|depvar\\|help\\|return\\|\\|double\
\\|if\\|setpointer\\)\\>" . font-lock-keyword-face)
;; Syntax: neuron/general/ocsyntax.html#syntax
("\\<\\(iterator\\|proc\\|func\\|obfunc\\)\\>" . font-lock-
keyword-face)
;; Object-oriented-programming
("\\<\\(begintemplate\\|init\\|objref\\|endtemplate\\|new\
\\|public\\|external\\|objectvar\\|unref\\)\\>" . font-lock-keyword-
face)
;; Section stuff: neuron/geometry.html
("\\<\\(access\\|forsec\\|pop_section\
\\|forall\\|ifsec\\|push_section\
\\|diam3d\\|pt3dchange\\|setSpineArea\
\\|pt3dclear\\|spine3d\
\\|arc3d\\|distance\\|pt3dconst\\|x3d\
\\|area\\|getSpineArea\\|pt3dinsert\\|y3d\
\\|define_shape\\|n3d\\|pt3dremove\\|z3d\
\\|pt3dadd\\|ri\
\\|connect\\|delete_section\
\\|create\\|disconnect\\|topology\\)\\>" . font-lock-keyword-face)
;; Built-in variables: neuron/geometry.html
("\\<\\(L\\|Ra\\|diam\\|nseg\\|diam_changed\\)\\>" .
font-lock-variable-name-face)
;; Built-in global variables: neuron/1nrn.html#globals
("\\<\\(celsius\\|dt\\|t\\|clamp_resist\\|secondorder\\)\\>" .
font-lock-variable-name-face)
;; Built-in global variables: neuron/general/predec.html
("\\<\\(hoc_ac_\\|hoc_cross_x_\\|hoc_cross_y_\\|hoc_obj_\
\\|float_epsilon\\)\\>" .
font-lock-variable-name-face)
;; Physical and Mathematical Constants: neuron/general/
predec.html#Constants
("\\<\\(DEG\\|E\\|FARADAY\\|GAMMA\\|PHI\\|PI\\|R\\)\\>" .
font-lock-constant-face)
;; neuron/nrnoc.html#functions
("\\<\\(attr_praxis\\|fit_praxis\\|nrnmechmenu\\|secname\
\\|batch_run\\|fmatrix\\|nrnpointmenu\\|section_orientation\
\\|batch_save\\|fstim\\|nrnsecmenu\\|sectionname\
\\|fadvance\\|fstimi\\|parent_connection\\|stop_praxis\
\\|fclamp\\|hocmech\\|parent_node\\|this_node\
\\|fclampi\\|initnrn\\|parent_section\\|this_section\
\\|fclampv\\|ismembrane\\|prstim\
\\|fcurrent\\|issection\\|psection\
\\|finitialize\\|nrnglobalmechmenu\\|pval_praxis\\)\\>"
. font-lock-function-name-face)
;; Mathematical functions: neuron/general/function/
sin.html#math
("\\<\\(abs\\|cos\\|erf\\|erfc\\|exp\\|int\\|log\\|log10\
\\|sin\\|sqrt\\|tanh\\)\\>" . font-lock-function-name-face)
;; Built-in classes: neuron/0nrn.html#classes
("\\<\\(Deck\\|File\\|GUIMath\\|Glyph\\|Graph\\|HBox\\|List\
\\|Matrix\\|PWManager\\|Pointer\\|Random\\|StringFunctions\\|SymChooser
\
\\|TextEditor\\|Timer\\|VBox\\|ValueFieldEditor\\|Vector\\)\\>" . font-
lock-function-name-face)
;; Built-in classes: neuron/1nrn.html#classes
("\\<\\(CVode\\|KSState\\|NetCon\\|SaveState\
\\|FInitializeHandler\\|KSTrans\\|ParallelContext\\|SectionBrowser\
\\|Impedance\\|LinearMechanism\\|ParallelNetManager\\|SectionList\
\\|KSChan\\|MechanismStandard\\|PlotShape\\|SectionRef\\|KSGate\
\\|MechanismType\\|RangeVarPlot\\|Shape\\)\\>" . font-lock-function-
name-face)
;; Functions
("\\<\\(fprint\\|hoc_stdio\\|sred\\|xred\
\\|fscan\\|printf\\|wopen\
\\|getstr\\|ropen\\|xopen\
\\|doEvents\\|doNotify\
\\|hoc_pointer_\\|object_pop\\|sprint\
\\|ivoc_style\\|object_push\\|sscanf\
\\|allobjects\\|load_file\\|obsolete\\|startsw\
\\|allobjectvars\\|load_func\\|print_session\\|stopsw\
\\|chdir\\|load_proc\\|prmat\\|stopwatch\
\\|checkpoint\\|load_template\\|pwman_place\\|strcmp\
\\|coredump_on_error\\|machine_name\\|quit\\|symbols\
\\|dialogs\\|math\\|retrieveaudit\\|system\
\\|eqinit\\|name_declared\\|save_session\\|units\
\\|execute\\|neuronhome\\|saveaudit\\|variable_domain\
\\|execute1\\|numarg\\|show_errmess_always\
\\|getcwd\\|object_id\\|solve\\)\\>" . font-lock-function-name-face)
)
"Expressions to highlight in NRNHOC mode.")
;;; NRNHOC mode entry point
==================================================
(defun nrnhoc-mode ()
"NRNHOC-mode is a major mode for editing Neuron HOC dot-hoc files.
\\<nrnhoc-mode-map>
Variables:
`nrnhoc-indent-level' Level to indent blocks.
`nrnhoc-comment-column' The goal comment column
`fill-column' Column used in auto-fill.
`nrnhoc-return-function' Customize RET handling with this
function
`nrnhoc-closing-brace-function' Customize } handling with this
function
All Key Bindings:
\\{nrnhoc-mode-map}"
(interactive)
(kill-all-local-variables)
(use-local-map nrnhoc-mode-map)
(setq major-mode 'nrnhoc-mode)
(setq mode-name "Hoc")
(set (make-local-variable 'indent-line-function) 'nrnhoc-indent-
line)
(set (make-local-variable 'comment-start-skip) "//\\s-+")
(set (make-local-variable 'comment-start) "// ")
(set (make-local-variable 'comment-column) nrnhoc-comment-column)
(set (make-local-variable 'font-lock-defaults)
'(nrnhoc-font-lock-keywords))
(run-hooks 'nrnhoc-mode-hook)
)
;;; Indent functions
==========================================================
(defun nrnhoc-point-at-eol-or-boc ()
"Return the location of the point at the end of the line or the
beginning of a //-style comment."
(let
((comment
(string-match "//" (buffer-substring (nrnhoc-point-at-bol)
(nrnhoc-point-at-eol)))))
(if comment
(+ (nrnhoc-point-at-bol) comment )
(nrnhoc-point-at-eol))))
(defun nrnhoc-calc-indent ()
"Return the appropriate indentation for this line as an integer."
(interactive)
(let
((ci ; current indentation
(save-excursion
(forward-line -1)
(current-indentation)
))
; is there an open bracket on the previous line that isn't
; cancelled by a closed bracket?
(open-brak
(save-excursion
(forward-line -1)
(cond ((and
(string-match "{" (buffer-substring (nrnhoc-point-at-
bol) (nrnhoc-point-at-eol-or-boc)))
(not (string-match "{.*}" (buffer-substring (nrnhoc-
point-at-bol) (nrnhoc-point-at-eol-or-boc)) )))
1) (t 0))))
; is there an closing bracket on this line that isn't
; cancelled by a opening bracket?
(close-brak
(save-excursion
(cond ((and
(string-match "}" (buffer-substring (nrnhoc-point-at-
bol) (nrnhoc-point-at-eol-or-boc)))
(not (string-match "{.*}" (buffer-substring (nrnhoc-
point-at-bol) (nrnhoc-point-at-eol-or-boc)))))
1)
(t 0))))
)
; (prin1 open-brak)
; (prin1 close-brak)
; (prin1 ci)
(max (+ ci
(* open-brak nrnhoc-indent-level) (* close-brak (- nrnhoc-
indent-level)
)) 0)))
(defun nrnhoc-indent-line ()
"Indent a line in `nrnhoc-mode'."
(interactive)
(save-excursion
(cond
; Are we on the first line of the buffer? If so, just indent to
0
((= (nrnhoc-line-number) 1) (indent-line-to 0))
; Otherwise do the main indent routine
; Is the previous line blank, i.e. does not contain any word
characters
; If so, we should indent it
(t
(forward-line -1)
(cond ((not
(string-match "\\w" (buffer-substring (nrnhoc-point-at-
bol) (nrnhoc-point-at-eol))))
(nrnhoc-indent-line)))
(forward-line 1)
; Finally we indent this line
(indent-line-to (nrnhoc-calc-indent)))))
; Is this line blank? If so put the point at the end
(cond ((not
(string-match "\\w" (buffer-substring (nrnhoc-point-at-
bol) (nrnhoc-point-at-eol))))
(end-of-line)))
)
;;; The return key
============================================================
(defcustom nrnhoc-return-function 'nrnhoc-indent-before-ret
"Function to handle return key.
Must be one of:
'nrnhoc-plain-ret
'nrnhoc-indent-after-ret
'nrnhoc-indent-before-ret"
:group 'hoc
:type '(choice (function-item nrnhoc-plain-ret)
(function-item nrnhoc-indent-after-ret)
(function-item nrnhoc-indent-before-ret)))
(defun nrnhoc-return ()
"Handle carriage return in `nrnhoc-mode'."
(interactive)
(funcall nrnhoc-return-function))
(defun nrnhoc-plain-ret ()
"Vanilla new line."
(interactive)
(newline))
(defun nrnhoc-indent-after-ret ()
"Indent after new line."
(interactive)
(newline)
(nrnhoc-indent-line))
(defun nrnhoc-indent-before-ret ()
"Indent line, start new line, and indent again."
(interactive)
(newline)
(forward-line -1)
(nrnhoc-indent-line)
(forward-line 1)
(nrnhoc-indent-line))
(defcustom nrnhoc-closing-brace-function 'nrnhoc-plain-closing-brace
"Function to handle \"}\" key.
Must be one of:
'nrnhoc-plain-closing-brace
'nrnhoc-electric-closing-brace"
:group 'hoc
:type '(choice (function-item nrnhoc-plain-closing-brace)
(function-item nrnhoc-electric-closing-brace)))
(defun nrnhoc-closing-brace ()
"Handle closing brace in `nrnhoc-mode'."
(interactive)
(funcall nrnhoc-closing-brace-function))
(defun nrnhoc-plain-closing-brace ()
"Insert closing brace."
(interactive)
(insert-char ?} 1 ))
(defun nrnhoc-electric-closing-brace ()
"Insert closing brace and indent."
(interactive)
(insert-char ?} 1 )
(nrnhoc-indent-line)
(end-of-line))
;;; Change log
;; $Log: nrnhoc.el,v $
;; Revision 1.23 2006/08/31 14:57:48 sterratt
;; * Version 0.4.6
;; * Various keywords and syntax added, as suggested by Ronald van
Elburg
;; in this thread:
;;
http://www.neuron.yale.edu/phpBB2/privmsg.php?folder=inbox&mode=read&p=213&sid=81e84669789060e43af5ed839a10a413
;;
;; Revision 1.22 2003/09/11 10:17:36 sterratt
;; * Version 0.4.5
;; * Fixed bug which tried to make negative indents
;;
;; Revision 1.21 2003/09/03 11:57:25 sterratt
;; * Version 0.4.4
;; * Fixed broken nrnhoc-close-brace binding
;; * Fixed broken font-locking of comments in newer versions of emacs
;; (21.2.1) by changing comment-start
;;
;; Revision 1.20 2003/06/02 10:12:46 sterratt
;; * Version 0.4.3
;; * Syntax table nrnhoc-mode-syntax-table separated out from the
;; nrnhoc-mode function according to Stefan Monier's suggestion and
;; the code in http://www.emacswiki.org/cgi-bin/wiki.pl?SampleMode
;; * TODO: clean up the indentation code
;;
;; Revision 1.19 2003/05/30 11:16:13 sterratt
;; * Version 0.4.2
;; * Syntax highlighting of // comments now works under both emacs and
xemacs
;;
;; Revision 1.18 2003/05/19 15:04:38 sterratt
;; * Version 0.4.1
;; * Fixed line-number bug so it really should work under emacs now
;; * Checked the documentation using M-x checkdoc and fixed errors
;;
;; Revision 1.17 2003/05/09 11:34:57 sterratt
;; * Version 0.4
;; * Should now work on emacs as well as xemacs (tested in emacs
20.7.1)
;; * New compatibility function nrnhoc-line-number
;; * Some point-at-bol and point-at-eol replaced by nrnhoc-point-at-
bol
;; and nrnhoc-point-at-eol
;; * Minor documentation changes
;;
;; Revision 1.16 2003/05/08 16:40:59 sterratt
;; * Fixed bug in documentation
;;
;; Revision 1.15 2003/03/11 12:43:31 dcs
;; * Version 0.3.3
;; * Fixed fatal bug due to brackets left from removing comment in
;; previous version
;;
;; Revision 1.14 2003/03/10 15:18:37 dcs
;; * Version 0.3.2
;; * Bug fix: closing and opening bracket on same line (e.g. " } else
{ ")
;; now are treated as closing bracket
;; * Changed function hoc-calc-indent
;;
;; Revision 1.13 2003/03/07 17:58:31 dcs
;; * Version 0.3.1
;; * Bug fix: tab on empty line puts the point at the end of the line
now
;; * Changed function: hoc-indent-line
;;
;; Revision 1.12 2003/03/07 13:08:23 dcs
;; * Version 0.3
;; * New feature: electric closing braces
;; * Bug fix: Indentation of comments with braces in them
;; * Bug fix: Indentation of first line of buffer
;; * Bug fix: Point location in line doesn't change when indenting now
;; * New functions: hoc-closing-brace, hoc-plain-closing-brace,
;; hoc-electric-closing-brace
;; * New variable: hoc-closing-brace-function
;; * New feature: celsius, dt, t, clamp_resist, secondorder fontified
;; * New function: hoc-point-at-eol-or-boc
;; * Changed functions: hoc-calc-indent, hoc-indent-line
;;
;; Revision 1.11 2003/03/06 13:55:41 dcs
;; * Version 0.2.2
;; * Another modification to hoc-indent-before-ret to fix the bug
better
;;
;; Revision 1.10 2003/03/06 13:48:00 dcs
;; * Version 0.2.1
;; * Fixed bug in hoc-indent-before-ret that caused a new line to be
;; inserted before the current line
;;
;; Revision 1.9 2003/03/06 12:53:33 dcs
;; * Version 0.2
;; * Changed font-lock-face of L, Ra, diam, nseg and diam_changed to
;; font-lock-variable-name-face
;; * Changed URL
;;
;; Revision 1.8 2003/03/06 12:39:42 anaru
;; added some hoc Objects highlighting
;;
;; Revision 1.7 2003/03/06 12:23:49 dcs
;; * Return now optionally auto-indents lines
;; * Added variable hoc-mode-map
;; * Added variable hoc-return-function
;; * Added function hoc-return
;; * Added function hoc-plain-ret
;; * Added function hoc-indent-after-ret
;; * Added function hoc-indent-before-ret
;;
;; Revision 1.6 2003/03/03 16:24:25 dcs
;; * Release 0.1
;; * Quotes in comment font locking fixed
;; * Documentation added
;; * User variables optionally controlled by custom
;; * New variable hoc-comment-column
;;
(provide 'nrnhoc)
;;; nrnhoc.el ends here
;;; nmodl.el --- derived mode for Neuron NMODL dot-mod files
;;
;; Author: David C. Sterratt <address@hidden>
;; Maintainer: David C. Sterratt <address@hidden>
;; Created: 20 Apr 06
;; Version: 0.1.1
;; Keywords: NMODL, NEURON
;;
;; Copyright (C) 2006 David C. Sterratt
;;
;; This program is free software; you can redistribute it and/or
modify
;; it under the terms of the GNU General Public License as published
by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139,
USA.
;;
;;; Commentary:
;;
;; This major mode for GNU Emacs provides support for editing Neuron
NMODL
;; dot-mod files. It automatically indents for block structures and
;; comments. It highlights code using font-lock.
;;
;;; Finding Updates:
;;
;; The latest stable version of nmodl.el can be found here:
;;
;; http://www.anc.ed.ac.uk/~dcs/progs/neuron/nmodl.el
;;
;; To use nmodl.el, you also need to have downloaded and installed
;; nrnhoc.el . It can be found at
;;
;; http://www.anc.ed.ac.uk/~dcs/progs/neuron/nrnhoc.el
;;
;;; Installation:
;;
;; Make sure you have obtain and installed nrnhoc.el
;;
;; Put the this file as "nmodl.el" somewhere on your load path, then
;; add this to your .emacs or init.el file:
;;
;; (autoload 'nmodl-mode "nmodl" "Enter NMODL mode." t)
;; (setq auto-mode-alist (cons '("\\.mod\\'" . nmodl-mode) auto-mode-
alist))
;;
;; Please read the mode help for nmodl-mode for configuration options.
;;
;; Syntax highlighting:
;; To get font-lock try adding this for older emacsen:
;; (font-lock-mode 1)
;; Or for newer versions of Emacs:
;; (global-font-lock-mode t)
;; In Xemacs the following seems to work
;; (add-hook 'nmodl-mode-hook 'turn-on-font-lock)
;;
;;
;; This package will optionally use custom.
;;
;;; Code:
(defconst nmodl-mode-version "0.1.1"
"Current version of NMODL mode.")
;;; User-changeable variables
=================================================
;; Variables which the user can change
(defgroup nmodl nil
"NMODL mode."
:prefix "nmodl-"
:group 'languages)
(defcustom nmodl-mode-hook nil
"*List of functions to call on entry to NMODL mode."
:group 'nmodl
:type 'hook)
;;; Syntax table
==============================================================
;; Defines comment font locking
(defvar nmodl-mode-syntax-table
(let ((st (make-syntax-table)))
;; (modify-syntax-entry ?_ "w" st)
(modify-syntax-entry ?\n ">" st)
(modify-syntax-entry ?: "<" st)
(modify-syntax-entry ?\^m ">" st)
st)
"Syntax table for `nmodl-mode'.")
;;; Font locking keywords
=====================================================
(defvar nmodl-font-lock-keywords
'(
; Keywords (proc and func are syntax)
("\\<\\(COMMENT[[:ascii:]]+?ENDCOMMENT\\)\\>" . font-lock-
comment-face)
("\\<\\(COMMENT\\|TITLE\\|UNITS\\|PARAMETER\\|ASSIGNED\\|
CONSTANT\\|STATE\\|DERIVATIVE\\|INITIAL\\|BREAKPOINT\\|LOCAL\\|
PROCEDURE\\|KINETIC\\|FUNCTION\\|ENDCOMMENT\\|DEFINE\\|NEURON\\|BEFORE\
\|AFTER\\|NET_RECEIVE\\)\\>" . font-lock-keyword-face)
("\\<\\(FROM\\|TO\\|COMPARTMENT\\|SOLVE\||STEADYSTATE\\|METHOD\
\|SUFFIX\\|USEION\\|READ\\|WRITE\\|GLOBAL\\|RANGE\\|
LONGITUDINAL_DIFFUSION\\|LINEAR\\|NONLINEAR\\|SOLVE\\|POINT_PROCESS\\|
NONSPECIFIC_CURRENT\\|STEADYSTATE\\|CONSERVE\\)\\>" . font-lock-
keyword-face))
"Expressions to highlight in NMODL mode.")
(define-derived-mode nmodl-mode
nrnhoc-mode "Nmodl"
"Major mode for Nmodl.
\\{nmodl-mode-map}"
(setq case-fold-search nil)
(set (make-local-variable 'comment-start-skip) ":+\\s-*")
(set (make-local-variable 'comment-start) ": ")
(set (make-local-variable 'font-lock-defaults)
'(nmodl-font-lock-keywords))
(run-hooks 'nmodl-mode-hook))
(provide 'nmodl)
;;; nmodl.el ends here
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- nrnhoc.el and nmodl.el,
David Sterratt <=