<?xml version="1.0" encoding='Windows-1251'?>
<!DOCTYPE hrc PUBLIC "-//Cail Lomecb//DTD Colorer HRC take5//EN"
"http://colorer.sf.net/2003/hrc.dtd">
<hrc version="take5" xmlns="http://colorer.sf.net/2003/hrc"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://colorer.sf.net/2003/hrc http://colorer.sf.net/2003/hrc.xsd">
<type name="lisp">
<annotation>
<documentation><![CDATA[
Lisp language syntax
TODO:
- Support for multi line strings (string which contains new line symbols)
- Highlight formating characters in strings (e.g. ~S, ~A, etc.)
- Do not highlight first parameter in function and macro definition
]]></documentation>
<contributors><![CDATA[
Mykolas Juraitis (juramyko@soften.ktu.lt)
Konstantin Khlopenkov
]]></contributors>
</annotation>
<import type="def"/>
<region name='FunctionDefinition' parent='def:Outlined'/>
<region name='MacroDefinition' parent='def:Outlined'/>
<region name='VariableDefinition' parent='def:Outlined'/>
<region name='ConstantDefinition' parent='def:Outlined'/>
<scheme name="lisp">
<!-- Single line comment -->
<regexp match="/(;.*)$/" region1="Comment"/>
<!-- Multi line comment -->
<block start="/\#\|/" end="/\|\#/" scheme="Comment" region="Comment" region00="PairStart" region10="PairEnd"/>
<!-- Function definition -->
<block start="/( (\() \s* defun)\M .*? (?{FunctionDefinition}[\S\)]+) /ix" end="/( \) )/x" scheme="lisp" region00="PairStart" region01="Keyword" region02="Symbol" region03="Prefix" region10="PairEnd" region11="Symbol"/>
<!-- Macro definition -->
<block start="/( (\() \s* defmacro)\M .*? (?{MacroDefinition}[\S\)]+) /ix" end="/( \) )/x" scheme="lisp" region00="PairStart" region01="Keyword" region02="Symbol" region03="Prefix" region10="PairEnd" region11="Symbol"/>
<!-- Variable definition -->
<block start="/( (\() \s* defvar)\M .*? (?{VariableDefinition}[\S\)]+) /ix" end="/( \) )/x" scheme="lisp" region00="PairStart" region01="Keyword" region02="Symbol" region03="Prefix" region10="PairEnd" region11="Symbol"/>
<!-- Constant definition -->
<block start="/( (\() \s* defconstant)\M .*? (?{ConstantDefinition}[\S\)]+) /ix" end="/( \) )/x" scheme="lisp" region00="PairStart" region01="Keyword" region02="Symbol" region03="Prefix" region10="PairEnd" region11="Symbol"/>
<!-- Function/Marco/Special operator call -->
<block start="/( (\() \s* [^;]*? ) \M ([;\s\)\(]|$) /x" end="/( \) )/x" scheme="lisp" region00="PairStart" region10="PairEnd" region01="Keyword" region02="Symbol" region11="Symbol"/>
<!-- String -->
<regexp match="/".*?"/" region0="String"/>
<!-- Binary number -->
<regexp match="/\#b[01]*/" region0="def:NumberBin"/>
<!-- Number -->
<inherit scheme="def:Number"/>
<!-- Character -->
<regexp match="/\#\\\w/" region0="def:Character"/>
<!-- Keyword -->
<regexp match="/\:[\w-*+]*/" region0="FunctionKeyword"/>
<!-- Comma -->
<regexp match="/\,[\@\w-*+]*/" region0="Prefix"/>
<!-- Function abbreviation -->
<regexp match="/\#\'[\w-*+]*/" region0="SymbolStrong"/>
<!-- Read-time conditional -->
<regexp match="/\#(\-|\+)[\w-*+]*/" region0="SymbolStrong"/>
<!-- Quoted symbol -->
<regexp match="/\'[\w-*+]*/" region0="SymbolStrong"/>
<!-- Constant variables -->
<keywords ignorecase="yes" region="Constant">
<word name="array-dimension-limit" />
<word name="pi" />
<word name="most-positive-fixnum" />
<word name="most-negative-fixnum" />
<word name="nil" />
<word name="t" />
</keywords>
<!-- Lambda list keywords -->
<keywords ignorecase="yes" region="FunctionKeyword">
<word name="&allow-other-keys" />
<word name="&aux" />
<word name="&key" />
<word name="&optional" />
<word name="&rest" />
</keywords>
<keywords region="Symbol">
<symb name="="/>
<symb name="+"/>
<symb name="/"/>
<symb name="&"/>
<symb name="|"/>
<symb name="^"/>
<symb name="["/>
<symb name="'"/>
<symb name="]"/>
<symb name=","/>
<symb name="."/>
<symb name=":"/>
<symb name="!"/>
<symb name="~"/>
<symb name="<"/>
<symb name=">"/>
<symb name="%"/>
<symb name="{"/>
<symb name="}"/>
<symb name="?"/>
<symb name="(" region="Error"/>
<symb name=")" region="Error"/>
</keywords>
</scheme>
</type>
</hrc>
<!-- ***** BEGIN LICENSE BLOCK *****
- Version: MPL 1.1/GPL 2.0/LGPL 2.1
-
- The contents of this file are subject to the Mozilla Public License Version
- 1.1 (the "License"); you may not use this file except in compliance with
- the License. You may obtain a copy of the License at
- http://www.mozilla.org/MPL/
-
- Software distributed under the License is distributed on an "AS IS" basis,
- WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
- for the specific language governing rights and limitations under the
- License.
-
- The Original Code is the Colorer Library.
-
- The Initial Developer of the Original Code is
- Cail Lomecb <cail@nm.ru>.
- Portions created by the Initial Developer are Copyright (C) 1999-2003
- the Initial Developer. All Rights Reserved.
-
- Contributor(s):
- Mykolas Juraitis
- Konstantin Khlopenkov
-
- Alternatively, the contents of this file may be used under the terms of
- either the GNU General Public License Version 2 or later (the "GPL"), or
- the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
- in which case the provisions of the GPL or the LGPL are applicable instead
- of those above. If you wish to allow use of your version of this file only
- under the terms of either the GPL or the LGPL, and not to allow others to
- use your version of this file under the terms of the MPL, indicate your
- decision by deleting the provisions above and replace them with the notice
- and other provisions required by the LGPL or the GPL. If you do not delete
- the provisions above, a recipient may use your version of this file under
- the terms of any one of the MPL, the GPL or the LGPL.
-
- ***** END LICENSE BLOCK ***** -->