71 lines
2.6 KiB
EmacsLisp
Executable File
71 lines
2.6 KiB
EmacsLisp
Executable File
;;; porth-mode.el --- Major Mode for editing Porth source code -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2021 Alexey Kutepov <reximkut@gmail.com>
|
|
|
|
;; Author: Alexey Kutepov <reximkut@gmail.com>
|
|
;; URL: https://github.com/tsoding/porth
|
|
|
|
;; Permission is hereby granted, free of charge, to any person
|
|
;; obtaining a copy of this software and associated documentation
|
|
;; files (the "Software"), to deal in the Software without
|
|
;; restriction, including without limitation the rights to use, copy,
|
|
;; modify, merge, publish, distribute, sublicense, and/or sell copies
|
|
;; of the Software, and to permit persons to whom the Software is
|
|
;; furnished to do so, subject to the following conditions:
|
|
|
|
;; The above copyright notice and this permission notice shall be
|
|
;; included in all copies or substantial portions of the Software.
|
|
|
|
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
|
|
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
|
|
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
;; SOFTWARE.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
;; Major Mode for editing Porth source code. It's Forth but written in Python.
|
|
|
|
;; TODO: jump to the opposite side of the blocks with C-M-f and C-M-b
|
|
;; I think tuareg-mode can do that with similar end-like block, we try
|
|
;; to steal their approach
|
|
;; TODO: color the names of definitions in const, memory, proc, etc differently
|
|
|
|
(defconst porth-mode-syntax-table
|
|
(with-syntax-table (copy-syntax-table)
|
|
;; C/C++ style comments
|
|
(modify-syntax-entry ?/ ". 124b")
|
|
(modify-syntax-entry ?* ". 23")
|
|
(modify-syntax-entry ?\n "> b")
|
|
;; Chars are the same as strings
|
|
(modify-syntax-entry ?' "\"")
|
|
(syntax-table))
|
|
"Syntax table for `porth-mode'.")
|
|
|
|
(eval-and-compile
|
|
(defconst porth-keywords
|
|
'("if" "else" "while" "do" "include" "memory" "proc"
|
|
"const" "end" "offset" "reset" "assert" "in" "inline"
|
|
"here" "addr-of" "call-like" "let" "peek" "return"
|
|
"var" "cast" "struct")))
|
|
|
|
(defconst porth-highlights
|
|
`((,(regexp-opt porth-keywords 'symbols) . font-lock-keyword-face)))
|
|
|
|
;;;###autoload
|
|
(define-derived-mode porth-mode prog-mode "porth"
|
|
"Major Mode for editing Porth source code."
|
|
:syntax-table porth-mode-syntax-table
|
|
(setq font-lock-defaults '(porth-highlights))
|
|
(setq-local comment-start "// "))
|
|
|
|
;;;###autoload
|
|
(add-to-list 'auto-mode-alist '("\\.porth\\'" . porth-mode))
|
|
|
|
(provide 'porth-mode)
|
|
|
|
;;; porth-mode.el ends here
|