Mercurial > emacs
view lisp/cedet/semantic/wisent/javascript.el @ 108712:056a00ed4b81
Use terminfo rather than termcap on recent NetBSD.
* configure.in: On NetBSD, if terminfo is found, use it in preference
to termcap. (Bug#6190)
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 19 May 2010 23:37:29 -0700 |
parents | 5b5e4a97bbce |
children | 376148b31b5e |
line wrap: on
line source
;;; semantic/wisent/javascript.el --- javascript parser support ;; Copyright (C) 2005, 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric Ludlam <zappo@gnu.org> ;; Keywords: syntax ;; 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 support for javascript language. ;;; Code: (require 'semantic/java) (require 'semantic/wisent) (require 'semantic/wisent/js-wy) (defun wisent-javascript-jv-expand-tag (tag) "Expand TAG into a list of equivalent tags, or nil. Expand multiple variable declarations in the same statement, that is tags of class `variable' whose name is equal to a list of elements of the form (NAME VALUE START . END). NAME is a variable name. VALUE is an initializer START and END are the bounds in the declaration, related to this variable NAME." (let (elts elt value clone start end xpand) (when (and (eq 'variable (semantic-tag-class tag)) (consp (setq elts (semantic-tag-name tag)))) ;; There are multiple names in the same variable declaration. (while elts ;; For each name element, clone the initial tag and give it ;; the name of the element. (setq elt (car elts) elts (cdr elts) clone (semantic-tag-clone tag (car elt)) value (car (cdr elt)) start (if elts (car (cddr elt)) (semantic-tag-start tag)) end (if xpand (cdr (cddr elt)) (semantic-tag-end tag)) xpand (cons clone xpand)) ;; Set the definition of the cloned tag (semantic-tag-put-attribute clone :default-value value) ;; Set the bounds of the cloned tag with those of the name ;; element. (semantic-tag-set-bounds clone start end)) xpand))) ;;; Override Methods ;; ;; These methods override aspects of how semantic-tools can access ;; the tags created by the javascript parser. ;; Local context (define-mode-overload-implementation semantic-get-local-variables javascript-mode () "Get local values from a specific context. This function overrides `get-local-variables'." ;; Does javascript have identifiable local variables? nil) ;;; Setup Function ;; ;; This sets up the javascript parser ;; In semantic-imenu.el, not part of Emacs. (defvar semantic-imenu-summary-function) ;;;###autoload (defun wisent-javascript-setup-parser () "Setup buffer for parse." (wisent-javascript-jv-wy--install-parser) (setq ;; Lexical Analysis semantic-lex-analyzer 'javascript-lexer-jv semantic-lex-number-expression semantic-java-number-regexp ;; semantic-lex-depth nil ;; Full lexical analysis ;; Parsing semantic-tag-expand-function 'wisent-javascript-jv-expand-tag ;; Environment semantic-imenu-summary-function 'semantic-format-tag-name imenu-create-index-function 'semantic-create-imenu-index semantic-command-separation-character ";" )) (provide 'semantic/wisent/javascript-jv) ;; Local variables: ;; generated-autoload-file: "../loaddefs.el" ;; generated-autoload-load-name: "semantic/wisent/javascript" ;; End: ;; arch-tag: 15416a3a-84ca-4b3b-a13c-e7a1891ec3ea ;;; semantic/wisent/javascript-jv.el ends here