[nongnu] elpa/forth-mode 695bb04ebc 002/153: A humble beginning.

[ELPA Syncer]

branch: elpa/forth-mode
commit 695bb04ebcad4787fcd2535590dd5707809ffd55
Author: Lars Brinkhoff <lars@nocrew.org>
Commit: Lars Brinkhoff <lars@nocrew.org>

    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)