jEdit example source code file (forth.xml)

This example jEdit source code file (forth.xml) is included in the DevDaily.com "Java Source Code Warehouse" project. The intent of this project is to help you "Learn Java by Example" ^TM.

Java - jEdit tags/keywords

begin, end, keyword1, keyword1, keyword2, keyword2, keyword3, keyword4, keyword4, operator, span, true, true, type

The jEdit forth.xml source code

<?xml version="1.0"?>
<!DOCTYPE MODE SYSTEM "xmode.dtd">

<!-- RetroForth is one of the nicest Forth implementations, so we
support that one. You can extend this to your own Forth's vocabulary
easily. -->

<MODE>
	<PROPS>
		<PROPERTY NAME="indentNextLines" VALUE="^:[^;]*" />
		<PROPERTY NAME="unindentNextLines" VALUE="^.*;$" />
		<PROPERTY NAME="commentStart" VALUE="(" />
		<PROPERTY NAME="commentEnd" VALUE=")" />
		<PROPERTY NAME="lineComment" VALUE="|" />
		<PROPERTY NAME="noWordSep" VALUE="+-*=><;.?/'()%,_|$" />
	</PROPS>
	<RULES IGNORE_CASE="FALSE"
		NO_WORD_SEP="+-*=><;.?/'"()%,_$"
		HIGHLIGHT_DIGITS="TRUE"
		DIGIT_RE="|-?\d+([./]\d+)?">

		<EOL_SPAN TYPE="COMMENT1" AT_WORD_START="TRUE">| 

		<MARK_FOLLOWING TYPE="DIGIT" AT_WORD_START="TRUE">$
		<MARK_FOLLOWING TYPE="LITERAL3" AT_WORD_START="TRUE">'

		<!-- parsing words -->
		<SEQ_REGEXP TYPE="MARKUP"
			HASH_CHAR=":"
			AT_WORD_START="TRUE">:\s+(\S+)</SEQ_REGEXP>

		<SPAN TYPE="COMMENT3" DELEGATE="STACK_EFFECT">
			<BEGIN>( 
			<END>)
		</SPAN>

		<SPAN TYPE="LITERAL1" NO_LINE_BREAK="TRUE"
			AT_WORD_START="TRUE">
			<BEGIN>s"
			<END>"
		</SPAN>

		<SPAN TYPE="LITERAL2" NO_LINE_BREAK="TRUE"
			AT_WORD_START="TRUE">
			<BEGIN>."
			<END>"
		</SPAN>

		<SPAN TYPE="LITERAL3" NO_LINE_BREAK="TRUE"
			AT_WORD_START="TRUE">
			<BEGIN>f"
			<END>"
		</SPAN>

		<SPAN TYPE="LITERAL3" NO_LINE_BREAK="TRUE"
			AT_WORD_START="TRUE">
			<BEGIN>m"
			<END>"
		</SPAN>

		<SPAN TYPE="LITERAL4" NO_LINE_BREAK="TRUE"
			AT_WORD_START="TRUE">
			<BEGIN>"
			<END>"
		</SPAN>

		<KEYWORDS>
			<MARKUP>;
			<MARKUP>;;
			<MARKUP>0;

			<KEYWORD1>swap
			<KEYWORD1>drop
			<KEYWORD1>dup
			<KEYWORD1>nip
			<KEYWORD1>over
			<KEYWORD1>rot
			<KEYWORD1>-rot
			<KEYWORD1>2dup
			<KEYWORD1>2drop
			<KEYWORD1>2over
			<KEYWORD1>2swap
			<KEYWORD1>>r
			<KEYWORD1>r>

			<KEYWORD2>and
			<KEYWORD2>or
			<KEYWORD2>xor
			<KEYWORD2>>>
			<KEYWORD2><<
			<KEYWORD2>not
			<KEYWORD2>+
			<KEYWORD2>*
			<KEYWORD2>negate
			<KEYWORD2>-
			<KEYWORD2>/
			<KEYWORD2>mod
			<KEYWORD2>/mod
			<KEYWORD2>*/
			<KEYWORD2>1+
			<KEYWORD2>1-
			<KEYWORD2>base
			<KEYWORD2>hex
			<KEYWORD2>decimal
			<KEYWORD2>binary
			<KEYWORD2>octal

			<KEYWORD3>@
			<KEYWORD3>!
			<KEYWORD3>c@
			<KEYWORD3>c!
			<KEYWORD3>+!
			<KEYWORD3>cell+
			<KEYWORD3>cells
			<KEYWORD3>char+
			<KEYWORD3>chars

			<KEYWORD4>[
			<KEYWORD4>]
			<KEYWORD4>create
			<KEYWORD4>does>
			<KEYWORD4>variable
			<KEYWORD4>variable,
			<KEYWORD4>literal
			<KEYWORD4>last
			<KEYWORD4>1,
			<KEYWORD4>2,
			<KEYWORD4>3,
			<KEYWORD4>,
			<KEYWORD4>here
			<KEYWORD4>allot
			<KEYWORD4>parse
			<KEYWORD4>find
			<KEYWORD4>compile

			<OPERATOR>if
			<OPERATOR>=if
			<OPERATOR><if
			<OPERATOR>>if
			<OPERATOR><>if
			<OPERATOR>then
			<OPERATOR>repeat
			<OPERATOR>until

			<OPERATOR>forth
			<OPERATOR>macro
		</KEYWORDS>
	</RULES>

	<RULES SET="STACK_EFFECT" DEFAULT="COMMENT4">
		<SEQ TYPE="COMMENT3">--
	</RULES>
</MODE>