<?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">
<!--
Atlantis 1.5 Syntax by Vladimir Fonarev <vol@quorum.ru>
[2:5020/2160]
-->
<type name="rpt">
<region name="RptPreProc" parent="atl:QrmPreproc"/>
<region name="RptPrePrWord" parent="atl:QrmPreprocWord"/>
<region name="RptWord" parent="def:Keyword"/>
<region name="RptDlgWord" parent="def:Keyword"/>
<region name="RptFormWord" parent="def:Keyword"/>
<region name="RptTypeWord" parent="def:TypeKeyword"/>
<region name="RptBool" parent="def:BooleanConstant"/>
<region name="RptLabel" parent="def:Label"/>
<scheme name="RptAny">
<inherit scheme="atl:qrmBase"/>
<keywords ignorecase="yes" region="RptTypeWord">
<word name="STRING"/>
<word name="POINTER"/>
<word name="LONGINT"/>
<word name="DOUBLE"/>
<word name="WORD"/>
<word name="INTEGER"/>
<word name="BYTE"/>
<word name="SINGLE"/>
<word name="DATE"/>
<word name="TIME"/>
<word name="CHAR"/>
<word name="EXTENDED"/>
<word name="BOOLEAN"/>
</keywords>
</scheme>
<scheme name="RptPrePro">
<!-- Rpt preprocessor -->
<block start="/^\s*#\b((include))\b/i" end="/$/" scheme="RptPrePro" region="RptPreProc" region00="RptPrePrWord"/>
<keywords ignorecase="yes" region="RptPrePrWord">
</keywords>
</scheme>
<scheme name="RptInDlg">
<!-- paired -->
<block start="/(<<)/" end="/(>>)/" scheme="RptAny" region00="RptWord" region10="RptWord" region01="def:PairStart" region11="def:PairEnd"/>
</scheme>
<scheme name="RptDlg">
<inherit scheme="RptInDlg"/>
<inherit scheme="RptAny"/>
<keywords ignorecase="yes" region="RptDlgWord">
<word name="FIELDS"/>
<word name="BUTTONS"/>
<word name="DEFAULT"/>
</keywords>
</scheme>
<scheme name="RptFnc">
<inherit scheme="RptPrePro">
<virtual scheme="RptPrePro" subst-scheme="RptFnc"/>
</inherit>
<!-- paired block -->
<inherit scheme="atl:qrmPairedBrackets">
<virtual scheme="atl:qrmPairedBrackets" subst-scheme="RptFnc"/>
</inherit>
<!-- Labels -->
<regexp match="/^:\s*[A-Za-z]\w*\s*$/" region0="RptLabel"/>
<!-- GOTO command -->
<regexp match="/(goto)\s+([A-Za-z_]\w*\b)/i" region1="RptWord" region2="RptLabel"/>
<regexp match="/(goto)\s+([\w\S]*\b)/i" region1="RptWord" region2="def:ErrorText"/>
<regexp match="/(call)\s+([A-Za-z_]\w*\b)/i" region1="RptWord" region2="RptLabel"/>
<regexp match="/(call)\s+([\w\S]*\b)/i" region1="RptWord" region2="def:ErrorText"/>
<keywords ignorecase="yes" region="RptWord">
<word name="IF"/>
<word name="NOT"/>
<word name="AND"/>
<word name="XOR"/>
<word name="OR"/>
<word name="ELSE"/>
<word name="DO"/>
<word name="WHILE"/>
<word name="BREAK"/>
<word name="CONTINUE"/>
<word name="RESULT"/>
<word name="EXIT"/>
<word name="HALT"/>
<word name="WRITE"/>
<word name="PUTEVENT"/>
<word name="FLUSH"/>
</keywords>
<keywords ignorecase="yes" region="RptTypeWord">
<word name="TRUE" region="RptBool"/>
<word name="FALSE" region="RptBool"/>
</keywords>
<inherit scheme="RptAny"/>
</scheme>
<scheme name="RptForm">
<!--inherit scheme="RptPrePro">
<virtual scheme="RptPrePro" subst="RptForm"/>
</inherit-->
<!-- linear comments -->
<regexp match="/(^!.*$)/" region0="def:Comment"/>
<block start="/\/\*/" end="/\*\//" scheme="def:Comment" region="def:Comment" region00="def:PairStart" region10="def:PairEnd"/>
<!-- paired block -->
<block start="/(\.\{)/" end="/(\.\})/" scheme="RptForm" region00="def:SymbolStrong" region01="def:PairStart" region10="def:SymbolStrong" region11="def:PairEnd"/>
<block start="/(\.if)/i" end="/(\.end)/i" scheme="RptForm" region00="def:SymbolStrong" region01="def:PairStart" region10="def:SymbolStrong" region11="def:PairEnd"/>
<keywords region="def:Symbol">
<symb name="&" region="def:SymbolStrong"/>
<symb name="@" region="def:SymbolStrong"/>
<symb name="^" region="def:SymbolStrong"/>
</keywords>
<keywords ignorecase="yes" region="RptFormWord">
<word name=".ELSE" region="def:SymbolStrong"/>
</keywords>
</scheme>
<scheme name="RptBr">
<inherit scheme="RptAny"/>
<keywords ignorecase="yes" region="RptWord">
<word name="READONLY"/>
<word name="NORMAL"/>
<word name="NOOPEN"/>
<word name="BUILD"/>
<word name="NEW"/>
</keywords>
</scheme>
<scheme name="rpt">
<inherit scheme="RptPrePro">
<virtual scheme="RptPrePro" subst-scheme="RptFnc"/>
</inherit>
<!-- paired block -->
<inherit scheme="atl:qrmPairedBlock">
<virtual scheme="atl:qrmPairedBlock" subst-scheme="RptFnc"/>
</inherit>
<inherit scheme="atl:qrmPairedBrackets">
<virtual scheme="atl:qrmPairedBrackets" subst-scheme="RptBr"/>
</inherit>
<!-- objects -->
<regexp match="/(\b(procedure|function)(\s*$|\s+\w*))?=/ix" region1="atl:FunctionOutline"/>
<regexp match="/(\b(dialog)(\s*$|\s+\w*))?=/ix" region1="atl:DialogOutline"/>
<regexp match="/(\b(dialog|procedure|function)\b[^\s])/ix" region0="def:ErrorText"/>
<regexp match="/(\bformula\b)?=/ix" region1="atl:FunctionOutline"/>
<!-- paired -->
<block start="/\b((dialog))\b\M[\s\/]+/i" end="/\b(end)\b/i" scheme="RptDlg" region00="RptWord" region01="def:PairStart" region10="RptWord" region11="def:PairEnd"/>
<block start="/^\b(form)\b/i" end="/^\b(endform)\b/i" scheme="RptForm" region00="RptWord" region10="RptWord" region01="def:PairStart" region11="def:PairEnd"/>
<inherit scheme="RptAny"/>
<keywords ignorecase="yes" region="RptWord">
<word name="TABLES"/>
<word name="DIALOGS"/>
<word name="VAR"/>
<word name="CONST"/>
<word name="PROCEDURE"/>
<word name="FUNCTION"/>
<word name="FORMULA"/>
</keywords>
<!--regexp match="/^.*\s*(\b\w+\b)\s*\M\{/" region0="dFunction" region1="RptLabel"/-->
<block start="/\s*\m(\b[A-Za-z_]\w*\b)\M\s*\{/" end="/~\s*\m\{/" scheme="rpt" region00="atl:FunctionOutline" region01="RptLabel"/>
<block start="/\s*\m(\b[A-Za-z_]\w*\b)\M(\s*\/\*.*\*\/\s*)*\{/" end="/~(\s*\/\*.*\*\/\s*)*\m\{/" scheme="rpt" region00="atl:FunctionOutline" region01="RptLabel"/>
<block start="/([A-Za-z_]\w*\b)\M(\s*$)/" end="/~(\s*$)(^\s*\{)?=/" scheme="rpt" region00="atl:FunctionOutline" region01="RptLabel"/>
<block start="/([A-Za-z_]\w*\b)\M(\s*\/\/.*$)/" end="/~(\s*\/\/.*$)(^\s*\{)?=/" scheme="rpt" region00="atl:FunctionOutline" region01="RptLabel"/>
<block start="/([A-Za-z_]\w*\b)\M((\s*\/\*.*)(\*\/\s*)*(\s*\/\/.*)*$)/" end="/~((\s*\/\*.*)(\*\/\s*)*(\s*\/\/.*)*$)(^\s*\{)?=/" scheme="rpt" region00="atl:FunctionOutline" region01="RptLabel"/>
</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
- Vladimir Fonarev <vol@quorum.ru>.
- Portions created by the Initial Developer are Copyright (C) 1999-2003
- the Initial Developer. All Rights Reserved.
-
- Contributor(s):
-
- 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 ***** -->