63 lines
1.9 KiB
EmacsLisp
63 lines
1.9 KiB
EmacsLisp
;;; cedet-matlab.el --- CEDET Setup support
|
|
;;
|
|
;; Copyright (C) 2009, 2012, 2019 Eric Ludlam
|
|
;;
|
|
;; Author: Eric Ludlam <eludlam@mathworks.com>
|
|
;; X-RCS: $Id$
|
|
;;
|
|
;; 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 3, 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 this program; see the file COPYING. If not, write to
|
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
;; Boston, MA 02110-1301, USA.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; Setup miscelaneous CEDET tools to work with MATLAB.
|
|
|
|
(eval-when-compile
|
|
(require 'semantic)
|
|
(require 'srecode/map))
|
|
|
|
;;; Code:
|
|
;;;###autoload
|
|
(defun matlab-cedet-setup ()
|
|
"Setup support for CEDET tools for use with MATLAB."
|
|
(interactive)
|
|
|
|
;; Setup Semantic parser:
|
|
(add-hook 'matlab-mode-hook 'semantic-default-matlab-setup)
|
|
|
|
;; Setup semanticdb for MATLAB support:
|
|
(require 'semanticdb-matlab)
|
|
|
|
;; Setup Semantic Recoder (Template support for MATLAB and TLC.):
|
|
(let* ((lib (locate-library "matlab.el" t))
|
|
(ededir (file-name-directory lib))
|
|
(tmpdir (file-name-as-directory
|
|
(expand-file-name "templates" ededir))))
|
|
(when (not tmpdir)
|
|
(error "Unable to locate MATLAB Templates directory"))
|
|
|
|
;; Rig up the srecode map.
|
|
(require 'srecode/map)
|
|
|
|
(add-to-list 'srecode-map-load-path tmpdir)
|
|
(if (fboundp 'srecode-map-update-map)
|
|
(srecode-map-update-map t)
|
|
(error "Function srecode-map-update-map not found"))
|
|
))
|
|
|
|
|
|
(provide 'cedet-matlab)
|
|
;;; cedet-matlab.el ends here
|