gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

Diff for /gforth/gforth.el between versions 1.14 and 1.25

version 1.14, 1995/10/07 17:38:15	version 1.25, 1998/04/12 21:49:13
Line 1	Line 1
;; This file is part of GNU Emacs.	;; Forth mode for Emacs
	;; This file is part of GForth.
;; Changes by anton	;; Changes by anton
;; This is a variant of forth.el that came with TILE.	;; This is a variant of forth.el that came with TILE.
;; I left most of this stuff untouched and made just a few changes for	;; I left most of this stuff untouched and made just a few changes for
;; the things I use (mainly indentation and syntax tables).	;; the things I use (mainly indentation and syntax tables).
;; So there is still a lot of work to do to adapt this to gforth.	;; So there is still a lot of work to do to adapt this to gforth.

;; GNU Emacs is distributed in the hope that it will be useful,	;; GForth is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY. No author or distributor	;; but WITHOUT ANY WARRANTY. No author or distributor
;; accepts responsibility to anyone for the consequences of using it	;; accepts responsibility to anyone for the consequences of using it
;; or for whether it serves any particular purpose or works at all,	;; or for whether it serves any particular purpose or works at all,
Line 15	Line 16
;; Everyone is granted permission to copy, modify and redistribute	;; Everyone is granted permission to copy, modify and redistribute
;; GNU Emacs, but only under the conditions described in the	;; GNU Emacs, but only under the conditions described in the
;; GNU Emacs General Public License. A copy of this license is	;; GNU Emacs General Public License. A copy of this license is
;; supposed to have been given to you along with GNU Emacs so you	;; supposed to have been given to you along with Gforth so you
;; can know your rights and responsibilities. It should be in a	;; can know your rights and responsibilities. It should be in a
;; file named COPYING. Among other things, the copyright notice	;; file named COPYING. Among other things, the copyright notice
;; and this notice must be preserved on all copies.	;; and this notice must be preserved on all copies.

;;; $Header$

;;-------------------------------------------------------------------	;;-------------------------------------------------------------------
;; A Forth indentation, documentation search and interaction library	;; A Forth indentation, documentation search and interaction library
;;-------------------------------------------------------------------	;;-------------------------------------------------------------------
Line 37	Line 36


(defvar forth-positives	(defvar forth-positives
" : :noname code does> begin do ?do while if ?dup-if ?dup-not-if else case struct [if] [else] "	" : :noname code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class "
"Contains all words which will cause the indent-level to be incremented	"Contains all words which will cause the indent-level to be incremented
on the next line.	on the next line.
OBS! All words in forth-positives must be surrounded by spaces.")	OBS! All words in forth-positives must be surrounded by spaces.")

(defvar forth-negatives	(defvar forth-negatives
" ; end-code does> until repeat while +loop loop s+loop else then endif again endcase end-struct [then] [else] [endif]"	" ; end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith class; how: "
"Contains all words which will cause the indent-level to be decremented	"Contains all words which will cause the indent-level to be decremented
on the current line.	on the current line.
OBS! All words in forth-negatives must be surrounded by spaces.")	OBS! All words in forth-negatives must be surrounded by spaces.")

(defvar forth-zeroes	(defvar forth-zeroes
" : :noname code "	" : :noname code interpretation: public: private: how: class class; "
"Contains all words which causes the indent to go to zero")	"Contains all words which causes the indent to go to zero")

	(setq forth-zero 0)

	(defvar forth-zup
	" how: implements "
	"Contains all words which causes zero indent level to change")

	(defvar forth-zdown
	" class; how: class public: private: "
	"Contains all words which causes zero indent level to change")

(defvar forth-prefixes	(defvar forth-prefixes
" postpone [compile] ['] [char] "	" postpone [compile] ['] [char] "
"words that prefix and escape other words")	"words that prefix and escape other words")
Line 67 OBS! All words in forth-negatives must b	Line 76 OBS! All words in forth-negatives must b
(if (not forth-mode-map)	(if (not forth-mode-map)
(setq forth-mode-map (make-sparse-keymap)))	(setq forth-mode-map (make-sparse-keymap)))

(global-set-key "\e\C-m" 'forth-send-paragraph)
(global-set-key "\C-x\C-m" 'forth-split)
(global-set-key "\e " 'forth-reload)

;(define-key forth-mode-map "\M-\C-x" 'compile)	;(define-key forth-mode-map "\M-\C-x" 'compile)
(define-key forth-mode-map "\C-x\\" 'comment-region)	(define-key forth-mode-map "\C-x\\" 'comment-region)
(define-key forth-mode-map "\C-x~" 'forth-remove-tracers)	(define-key forth-mode-map "\C-x~" 'forth-remove-tracers)
Line 83 OBS! All words in forth-negatives must b	Line 88 OBS! All words in forth-negatives must b
(define-key forth-mode-map "\M-q" 'forth-fill-paragraph)	(define-key forth-mode-map "\M-q" 'forth-fill-paragraph)
(define-key forth-mode-map "\e." 'forth-find-tag)	(define-key forth-mode-map "\e." 'forth-find-tag)

(load "etags.el")	(load "etags")

(defun forth-find-tag (tagname &optional next-p regexp-p)	(defun forth-find-tag (tagname &optional next-p regexp-p)
(interactive (find-tag-interactive "Find tag: "))	(interactive (find-tag-interactive "Find tag: "))
Line 151 OBS! All words in forth-negatives must b	Line 156 OBS! All words in forth-negatives must b
"	"
Major mode for editing Forth code. Tab indents for Forth code. Comments	Major mode for editing Forth code. Tab indents for Forth code. Comments
are delimited with \\ and newline. Paragraphs are separated by blank lines	are delimited with \\ and newline. Paragraphs are separated by blank lines
only. Delete converts tabs to spaces as it moves back.	only.
\\{forth-mode-map}	\\{forth-mode-map}
Forth-split	Forth-split
Positions the current buffer on top and a forth-interaction window	Positions the current buffer on top and a forth-interaction window
Line 319 programmers who tend to fill code won't	Line 324 programmers who tend to fill code won't
(regexp-quote (concat " " w1 " "))	(regexp-quote (concat " " w1 " "))
forth-negatives)	forth-negatives)
forth-indent-level 0)))	forth-indent-level 0)))
	(if (string-match (regexp-quote (concat " " w1 " ")) forth-zdown)
	(setq forth-zero 0))
(if (string-match (regexp-quote (concat " " w1 " ")) forth-zeroes)	(if (string-match (regexp-quote (concat " " w1 " ")) forth-zeroes)
(setq indent 0))	(setq indent forth-zero))
	(if (string-match (regexp-quote (concat " " w1 " ")) forth-zup)
	(setq forth-zero 4))
indent))	indent))

(defun forth-sum-line-indentation ()	(defun forth-sum-line-indentation ()
Line 378 the input stream (comments, arguments, e	Line 387 the input stream (comments, arguments, e
(defun forth-remove-tracers ()	(defun forth-remove-tracers ()
"Remove tracers of the form `~~ '. Queries the user for each occurrence."	"Remove tracers of the form `~~ '. Queries the user for each occurrence."
(interactive)	(interactive)
(query-replace "~~ " ""))	(query-replace-regexp "\$~~ \\\| ~~$\$" "" nil))

(defvar forth-program-name "gforth"	(defvar forth-program-name "gforth"
"*Program invoked by the `run-forth' command.")	"*Program invoked by the `run-forth' command.")

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.14
changed lines
	Added in v.1.25