modula 3.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Modula3" Extensions="M3 I3" 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:modula.txt"/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
			<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>
				<Range Name="Strings &amp;qt;..&amp;qt;" Style="Strings &amp;qt;..&amp;qt;">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings '..'" Style="Strings '..'">
					<Attributes Foreground="clRed" 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="AND
AS
ANY
ARRAY
BEGIN
BITS
BRANDED
BY
CASE
CONST
DIV
DO
END
EVAL
EXCEPT
EXCEPTION
EXIT
EXPORTS
ELSIF
ELSE
FROM
FINALLY
FOR
GENERIC
IF
IMPORT
IN
INTERFACE
LOCK
LOOP
METHODS
MOD
MODULE
NOT
OBJECT
OF
OR
OVERRIDES
PROCEDURE
REPEAT
RETURN
REVEAL
RAISE
RAISES
READONLY
RECORD
REF
ROOT
SET
THEN
TO
TRY
TYPE
TYPECASE
UNTIL
UNTRACED
UNSAFE
VALUE
VAR
WHILE
WITH
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Identifiers" Enabled="True" Style="" Words="ABS
ADDRESS
ADR
ADRSIZE
BITSIZE
BOOLEAN
BYTESIZE
CARDINAL
CEILING
CHAR
DEC
DISPOSE
EXTENDED
FALSE
FIRST
FLOAT
FLOOR
INC
INTEGER
ISTYPE
LAST
LONGFLOAT
LONGREAL
LOOPHOLE
MAX
MIN
MUTEX
NARROW
NEW
NIL
NULL
NUMBER
ORD
REAL
REFANY
ROUND
SUBARRAY
TEXT
TRUE
TRUNC
TYPECODE
VAL
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>