[nongnu] elpa/forth-mode 443193e02f 071/153: Auto-detect Forth implementation.

[ELPA Syncer]

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

    Auto-detect Forth implementation.
---
 forth-interaction-mode.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/forth-interaction-mode.el b/forth-interaction-mode.el
index 41b4186852..524f41025c 100644
--- a/forth-interaction-mode.el
+++ b/forth-interaction-mode.el
@@ -4,6 +4,15 @@
 (defvar forth-interaction-buffer nil)
 (defvar forth-interaction-callback nil)
 (defvar forth-words-cache nil)
+(defvar forth-implementation nil)
+
+(defvar forth-implementation-matches
+  '(("Gforth" . gforth)
+    ("SP-FORTH" . spforth)
+    ("PForth" . pforth)
+    ("VFX Forth" . vfxforth)
+    ("SwiftForth" . swiftforth)
+    ("lbForth" . lbforth)))
 
 (defvar forth-interaction-mode-map
   (let ((map (copy-keymap forth-mode-map)))
@@ -18,6 +27,10 @@
   (use-local-map forth-interaction-mode-map))
 
 (defun forth-interaction-preoutput-filter (text)
+  (unless forth-implementation
+    (dolist (x forth-implementation-matches)
+      (when (string-match (car x) text)
+       (setq forth-implementation (cdr x)))))
   (if forth-interaction-callback
       (funcall forth-interaction-callback text)
       text))