<?xml version="1.0" encoding="UTF-8"?>
<Scheme>
	<keyword-classes>
		<keyword-class name="pascal">
			program const type var begin break end array set packed record string if then else
			while for to downto do with repeat until case of goto exit label procedure
			function nil file and or not xor div mod unit uses implementation interface
			external asm inline object constructor destructor virtual far assembler near
			inherited stdcall cdecl library export exports end.
			class ansistring raise try except on index name finally
			resourcestring false true initialization finalization 
		</keyword-class>
		<keyword-class name="pascal_inclass">
			read write override overload public protected private property published default
		</keyword-class>
		<keyword-class name="pascal_foldwords">
			begin object case class record try
		</keyword-class>
	</keyword-classes>
	<language name="pascal" title="Pascal" folding="true" foldcomments="true" foldcompact="false">
		<lexer name="pascal" />
		<use-keywords>
			<keyword key="0" name="Keywords" class="pascal"/>
			<keyword key="1" name="Property Keywords" class="pascal_inclass"/>
			<keyword key="2" name="Fold Start Words" class="pascal_foldwords"/>
		</use-keywords>
		<use-styles>
			<style name="Default" key="32" />
			<style name="Whitespace" key="0" />
			<style name="Comment" key="1" class="comment"/>
			<style name="Line Comment" key="2" class="commentline"/>
			<style name="Doc Comment" key="3" class="commentdoc"/>
			<style name="Number" key="4" fore="colour.number"/>
			<style name="Keyword" key="5" class="keyword"/>
			<style name="Double-Quoted String" key="6" /><!-- fore="colour.string" -->
			<style name="Single-Quoted String" key="7" fore="colour.string"/>
			<style name="Symbols" key="8" />
			<style name="PreProcessor" key="9" fore="colour.preproc"/>
			<style name="Operators" key="10" bold="true"/>
			<style name="Class Definition Words" key="16" class="keyword"/>
		</use-styles>
	</language>
</Scheme>