modula 2.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Modula2" Extensions="MOD DEF" Version="1" Revision="0" Sample="" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark="Created based on UltraEdit:modula2.txt"/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;$%&amp;'()*+,-./:;?@[\]^_{|}~"/>
			<SubRules>
				<Range Name="Remarks (*..*)" Style="Remarks (*..*)">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="(*" Close="*)"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Keywords" Enabled="True" Style="" Words="ABS
AND
ADDRESS
ARRAY
BEGIN
BITSET
BY
CASE
CONST
DEALLOCATE
DEFINITION
DO
ELSE
ELSIF
END
EXCL
EXIT
FOR
FOREIGN
FROM
HIGH
IF
IMPLEMENTATION
IMPORT
IN
INC
INCL
LOOP
MAX
MIN
MODULE
NOT
OF
OR
POINTER
PROCEDURE
RECORD
REPEAT
RETURN
SET
STEP
THEN
TO
TYPE
UNTIL
VAR
WHILE
WITH
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="VAR TYPES" Enabled="True" Style="" Words="^
BOOLEAN
BYTE
CARDINAL
CHAR
FLOAT
INTEGER
IntSet
NIL
REAL
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Operators" Enabled="True" Style="" Words="=
:
=
&lt;=
&gt;=
#
+
-
*
//
/
DIV
MOD
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Key Words 4" Enabled="True" Style="" Words="[
]
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Key Words 5" Enabled="True" Style="" Words="FALSE
TRUE
">
					<Attributes Foreground="clPurple" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Functions" Enabled="True" Style="" Words="ALLOCATE
CHR
DEALLOCATE
DEC
DISPOSE
NEW
ORD
SIZE
SYSTEM
TRUNC
">
					<Attributes Foreground="clOlive" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>