gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

version 1.38, 2000/04/02 20:18:26	version 1.40, 2000/04/12 20:53:46
Line 1006 The region is sent terminated by a newli	Line 1006 The region is sent terminated by a newli
'(("( -- )" nil decl))	'(("( -- )" nil decl))
'(("( " ")" comment))	'(("( " ")" comment))
'(("\" [^\"\n]*\"" nil string))	'(("\" [^\"\n]*\"" nil string))
'(("\$IF\\\|ELSE\\\|THEN\\\|BEGIN\\\|WHILE\\\|REPEAT\\\|UNTIL\$" nil keyword))	'(("\$\\[IF]\\\|\\[IFDEF]\\\|\\[IFUNDEF]\\\|\\[ELSE]\\\|\\[THEN]\\\|IF\\\|ELSE\\\|THEN\\\|BEGIN\\\|WHILE\\\|REPEAT\\\|UNTIL\\\|DOES>\\\|?DO\\\|DO\\\|\+LOOP\\\|LOOP\$" nil keyword))
'((": [^ \n]" nil defun))	'((": [^ \n]" nil defun))
'(("Defer [^ \n]" nil defun))	'(("Defer [^ \n]" nil defun))
'(("Variable [^ \n]" nil define))	'(("\$Variable\\\|Constant\\\|Value\\\|Create\$ [^ \n]" nil define))
'(("Constant [^ \n]" nil define))	'(("\$include\\\|require\$ [^ \n]" nil include))
'(("include [^ \n]" nil include))	'(("[\n ]\$\\$[0-9A-Fa-f]+[\n ]\\\|&[0-9]+[\n ]\\\|[0-9]+[\n ]\\\|%[01]+[\n ]\\\|'[^ \n]+\$+" nil formula))
'(("require [^ \n]" nil include))
'(("[ ]\\$[0-9A-Fa-f]+" nil formula))
'(("[ ]&[0-9]+" nil formula))
'(("[ ][0-9]+" nil formula))
'(("[ ]%[01]+" nil formula))
'(("[ ]'[^ \n]+" nil formula))
'((":noname" nil defun))))	'((":noname" nil defun))))

;; end	;; end