branch: elpa/forth-mode
commit 695bb04ebcad4787fcd2535590dd5707809ffd55
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
A humble beginning.
---
.gitignore | 2 ++
forth-mode.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 56 insertions(+)
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000000..6302bc32b6
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+*~
+*.elc
diff --git a/forth-mode.el b/forth-mode.el
new file mode 100644
index 0000000000..815d18b571
--- /dev/null
+++ b/forth-mode.el
@@ -0,0 +1,54 @@
+;;;; -*- emacs-lisp -*-
+
+(defvar forth-mode-map)
+
+(defvar forth-mode-syntax-table
+ (let ((table (make-syntax-table)))
+ (modify-syntax-entry ?\\ "<" table)
+ (modify-syntax-entry ?\n ">" table)
+ (modify-syntax-entry ?\( "<" table)
+ (modify-syntax-entry ?\) ">" table)
+ (modify-syntax-entry ?\: "(" table)
+ (modify-syntax-entry ?\; ")" table)
+ (modify-syntax-entry ?[ "(" table)
+ (modify-syntax-entry ?] ")" table)
+ (modify-syntax-entry ?\? "_" table)
+ (modify-syntax-entry ?! "_" table)
+ (modify-syntax-entry ?@ "_" table)
+ (modify-syntax-entry ?< "_" table)
+ (modify-syntax-entry ?> "_" table)
+ (modify-syntax-entry ?. "_" table)
+ (modify-syntax-entry ?, "_" table)
+ table))
+
+(defvar forth-mode-hooks)
+
+;;;### autoload
+(defun forth-mode ()
+ "Major mode for editing Forth files."
+ (interactive)
+ (kill-all-local-variables)
+ (set-syntax-table forth-mode-syntax-table)
+ ;; (make-local-variable ...)
+ (setq major-mode 'forth-mode
+ mode-name "Forth"
+ ;; font-lock-defaults
+ indent-line-function #'forth-indent
+ comment-indent-function #'forth-indent-comment
+ comment-start-skip "\\((\\*?\\|\\\\\\) *"
+ comment-start "("
+ comment-end ")")
+ (run-mode-hooks 'forth-mode-hooks))
+
+(add-to-list 'auto-mode-alist '("\\.\\(f\\|fs\\|fth\\)\\'" . forth-mode))
+
+;;; : ; does> variable constant value
+;;; if else then do loop begin while repeat again until postpone
+
+(defun forth-forward-sexp ())
+(defun forth-backward-sexp ())
+(defun forth-kill-sexp ())
+(defun forth-beginning-of-defun ())
+(defun forth-end-of-defun ())
+
+(provide 'forth-mode)
