1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
;;; matlab--shell-bridge.el --- -*- lexical-binding: t -*-
;; Copyright (C) 2025 Free Software Foundation, Inc.
;;
;; 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
;; of the License, 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. If not, see <http://www.gnu.org/licenses>.
;;; Commentary:
;; Utilities to bridge between the older matlab-mode and matlab-ts-mode
;;
;;; Code:
(defun matlab--is-matlab-ts-mode-active ()
"Return t if `matlab-ts-mode' is active.
Is `matlab-ts-mode' active per
(add-to-list \\='major-mode-remap-alist \\='(matlab-mode . matlab-ts-mode))
If so, require `matlab-ts-mode' else require `matlab-mode'?"
(cond
((and (boundp 'major-mode-remap-alist)
(rassoc 'matlab-ts-mode major-mode-remap-alist)) ;; major-mode-remap-alist came w/ Emacs 29
(require 'matlab-ts-mode)
t)
(t
(require 'matlab-mode)
nil)))
(defvar matlab-ts-mode--syntax-table)
(defvar matlab-mode-syntax-table)
(defun matlab--shell-get-syntax-table ()
"Get either matlab-ts-mode or matlab-mode syntax table.
If using `matlab-ts-mode' per
(add-to-list \\='major-mode-remap-alist \\='(matlab-mode . matlab-ts-mode))
use `matlab-ts-mode--syntax-table' else use
`matlab-mode-syntax-table'. The tables are the same with respect
to strings and comments."
(if (matlab--is-matlab-ts-mode-active)
matlab-ts-mode--syntax-table
matlab-mode-syntax-table))
(defvar matlab-ts-mode-map)
(defvar matlab-mode-map)
(defun matlab--get-matlab-map ()
"Return either `matlab-mode-map' or `matlab-ts-mode-map'."
(if (matlab--is-matlab-ts-mode-active)
matlab-ts-mode-map
matlab-mode-map))
(declare-function matlab-scan-beginning-of-command "matlab-mode")
(declare-function matlab-scan-end-of-command "matlab-mode")
(declare-function matlab-ts-mode-beginning-of-command "matlab-ts-mode")
(declare-function matlab-ts-mode-end-of-command "matlab-ts-mode")
(defun matlab--get-command-at-point-to-run ()
"Based on the major-mode get the MATLAB command to run in `matlab-shell'."
(save-excursion
(pcase major-mode
('matlab-ts-mode
(require 'matlab-ts-mode)
(let* ((start-point (save-excursion
(matlab-ts-mode-beginning-of-command)))
(end-point (when start-point
(save-excursion
(matlab-ts-mode-end-of-command)))))
(if start-point
(buffer-substring-no-properties start-point end-point)
"")))
('matlab-mode
(require 'matlab-mode)
(save-excursion
(buffer-substring-no-properties
(matlab-scan-beginning-of-command)
(matlab-scan-end-of-command))))
(_
(error "This cannot be run in %s" (symbol-name major-mode))))))
(defun matlab--function-called-at-point ()
"Return a string representing the function called nearby point."
(save-excursion
(beginning-of-line)
(cond ((looking-at "\\s-*\\([a-zA-Z]\\w+\\)[^=][^=]")
(match-string 1))
((and (re-search-forward "=" (line-end-position) t)
(looking-at "\\s-*\\([a-zA-Z]\\w+\\)\\s-*[^=]"))
(match-string 1))
(t nil))))
(provide 'matlab--shell-bridge)
;;; matlab--shell-bridge.el ends here
;; LocalWords: defun alist rassoc pcase boundp
|
