Mercurial > emacs
diff lisp/cedet/srecode/template.el @ 104498:41dc39934483
lisp/cedet/srecode.el:
lisp/cedet/srecode/*.el:
test/cedet/srecode-tests.el: New files
lisp/files.el (auto-mode-alist): Use srecode-template-mode for .srt files.
lisp/cedet/semantic/bovine/scm.el: Add local vars section for autoloading.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 20 Sep 2009 21:06:41 +0000 |
parents | |
children | 1c6153d17f64 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/cedet/srecode/template.el Sun Sep 20 21:06:41 2009 +0000 @@ -0,0 +1,69 @@ +;;; srecode-template.el --- SRecoder template language parser support. + +;;; Copyright (C) 2005, 2007, 2008 Free Software Foundation, Inc. + +;; This file is part of GNU Emacs. + +;; GNU Emacs 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 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: +;; +;; Parser setup for the semantic recoder template parser. + +;;; Code: +(require 'semantic) +(require 'semantic/ctxt) +(require 'semantic/wisent) +(require 'srecode/srt-wy) + +(define-mode-local-override semantic-tag-components + srecode-template-mode (tag) + "Return sectiondictionary tags." + (when (semantic-tag-of-class-p tag 'function) + (let ((dicts (semantic-tag-get-attribute tag :dictionaries)) + (ans nil)) + (while dicts + (setq ans (append ans (cdr (car dicts)))) + (setq dicts (cdr dicts))) + ans) + )) + +(defun srecode-template-setup-parser () + "Setup buffer for parse." + (srecode-template-wy--install-parser) + + (setq + ;; Lexical Analysis + semantic-lex-analyzer 'wisent-srecode-template-lexer + ;; Parsing + ;; Environment + semantic-imenu-summary-function 'semantic-format-tag-name + imenu-create-index-function 'semantic-create-imenu-index + semantic-command-separation-character "\n" + semantic-lex-comment-regex ";;" + ;; Speedbar + semantic-symbol->name-assoc-list + '((function . "Template") + (variable . "Variable") + ) + ;; Navigation + senator-step-at-tag-classes '(function variable) + )) + +;;;;###autoload +(add-hook 'srecode-template-mode-hook 'srecode-template-setup-parser) + +(provide 'srecode/template) + +;;; srecode/template.el ends here