Warning, /frameworks/syntax-highlighting/autotests/reference/highlight.prg.ref is written in an unsupported language. File is not indexed.
0001 <Comment>// Test file to test kate's clipper highlighting</Comment><br/>
0002 <Comment>// </Comment><Keyword>kate:</Keyword><Comment> </Comment><Variable>hl</Variable><String> Clipper</String><Variable>;</Variable><br/>
0003 <Normal Text></Normal Text><br/>
0004 <Region Marker>//BEGIN INCLUDES</Region Marker><br/>
0005 <Preprocessor>#include </Preprocessor><Prep. Lib><clip-ui.ch></Prep. Lib><br/>
0006 <Preprocessor>#include </Preprocessor><Prep. Lib>"logo.ch"</Prep. Lib><br/>
0007 <Normal Text></Normal Text><br/>
0008 <Preprocessor>#define PRGVERSION </Preprocessor><Prep. Lib>"0.0.1"</Prep. Lib><br/>
0009 <Region Marker>//END</Region Marker><br/>
0010 <Normal Text></Normal Text><br/>
0011 <Region Marker>//BEGIN CODE</Region Marker><br/>
0012 <Keyword>static</Keyword><Normal Text> ws</Normal Text><Symbol>,</Symbol><Normal Text> win</Normal Text><br/>
0013 <Keyword>static</Keyword><Normal Text> driver </Normal Text><Symbol>:=</Symbol><Normal Text> getDriver</Normal Text><Symbol>()</Symbol><br/>
0014 <Comment>/* a multiline</Comment><br/>
0015 <Comment> comment</Comment><br/>
0016 <Comment>*/</Comment><br/>
0017 <Normal Text></Normal Text><br/>
0018 <Keyword>function</Keyword><Normal Text> main</Normal Text><Symbol>(</Symbol><Normal Text> formName </Normal Text><Symbol>)</Symbol><br/>
0019 <Normal Text> </Normal Text><Keyword>local</Keyword><Normal Text> </Normal Text><Command>form</Command><br/>
0020 <Normal Text> </Normal Text><Keyword>local</Keyword><Normal Text> fileName</Normal Text><br/>
0021 <Normal Text></Normal Text><br/>
0022 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> </Normal Text><Function>empty</Function><Symbol>(</Symbol><Normal Text>formName</Normal Text><Symbol>)</Symbol><br/>
0023 <Normal Text> </Normal Text><Command>??</Command><Normal Text> </Normal Text><String>"Usage: ./form_ui <form.xfl>&</String><String Char>\n</String Char><String>"</String><br/>
0024 <Normal Text> CANCEL</Normal Text><br/>
0025 <Normal Text> </Normal Text><Keyword>else</Keyword><br/>
0026 <Normal Text> fileName </Normal Text><Symbol>:=</Symbol><Normal Text> formName</Normal Text><br/>
0027 <Normal Text> </Normal Text><Keyword>endif</Keyword><br/>
0028 <Normal Text> ws </Normal Text><Symbol>:=</Symbol><Normal Text> UIWorkSpace</Normal Text><Symbol>()</Symbol><br/>
0029 <Normal Text></Normal Text><br/>
0030 <Normal Text> </Normal Text><Command>form</Command><Normal Text> </Normal Text><Symbol>:=</Symbol><Normal Text> UIForm</Normal Text><Symbol>(</Symbol><Normal Text> fileName </Normal Text><Symbol>)</Symbol><br/>
0031 <Normal Text> win </Normal Text><Symbol>:=</Symbol><Normal Text> </Normal Text><Command>form</Command><Symbol>:</Symbol><Normal Text>parseFile</Normal Text><Symbol>()</Symbol><br/>
0032 <Comment>// ?? valtype(win),chr(10)</Comment><br/>
0033 <Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text> win </Normal Text><Symbol>==</Symbol><Normal Text> </Normal Text><Keyword>NIL</Keyword><br/>
0034 <Normal Text> CANCEL</Normal Text><br/>
0035 <Normal Text> </Normal Text><Keyword>endif</Keyword><br/>
0036 <Normal Text> win</Normal Text><Symbol>:</Symbol><Normal Text>show</Normal Text><Symbol>()</Symbol><br/>
0037 <Normal Text></Normal Text><br/>
0038 <Normal Text> ws</Normal Text><Symbol>:</Symbol><Command>run</Command><Symbol>()</Symbol><br/>
0039 <Normal Text> ws</Normal Text><Symbol>:</Symbol><Command>quit</Command><Symbol>()</Symbol><br/>
0040 <Keyword>return</Keyword><Normal Text> 0</Normal Text><br/>
0041 <Normal Text></Normal Text><br/>
0042 <Comment>/* Setting dialog */</Comment><br/>
0043 <Keyword>function</Keyword><Normal Text> settingsDialog</Normal Text><Symbol>()</Symbol><br/>
0044 <Normal Text> </Normal Text><Command>??</Command><Normal Text> </Normal Text><String>"TODO: Settings dialog&</String><String Char>\n</String Char><String>"</String><br/>
0045 <Keyword>return</Keyword><br/>
0046 <Normal Text></Normal Text><br/>
0047 <Comment>/* About dialog */</Comment><br/>
0048 <Keyword>function</Keyword><Normal Text> aboutDialog</Normal Text><Symbol>()</Symbol><br/>
0049 <Normal Text> </Normal Text><Keyword>local</Keyword><Normal Text> dlg </Normal Text><Symbol>:=</Symbol><Normal Text> UIWindow</Normal Text><Symbol>(</Symbol><String>"About"</String><Symbol>,</Symbol><Normal Text> win</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>"aboutDlg"</String><Symbol>,</Symbol><Normal Text> </Normal Text><Keyword>.F.</Keyword><Symbol>)</Symbol><br/>
0050 <Normal Text> </Normal Text><Keyword>local</Keyword><Normal Text> hl</Normal Text><Symbol>,</Symbol><Normal Text> lside</Normal Text><Symbol>,</Symbol><Normal Text> t</Normal Text><Symbol>,</Symbol><Normal Text> bb</Normal Text><Symbol>,</Symbol><Normal Text> bD</Normal Text><br/>
0051 <Normal Text></Normal Text><br/>
0052 <Normal Text> hl </Normal Text><Symbol>:=</Symbol><Normal Text> UIHBox</Normal Text><Symbol>(,</Symbol><Normal Text>4</Normal Text><Symbol>,</Symbol><Normal Text>8</Normal Text><Symbol>)</Symbol><br/>
0053 <Normal Text> lside </Normal Text><Symbol>:=</Symbol><Normal Text> UIVBox</Normal Text><Symbol>()</Symbol><br/>
0054 <Normal Text> lside</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>UIImage</Normal Text><Symbol>(</Symbol><Normal Text>eas_logo_mini</Normal Text><Symbol>,</Symbol><Keyword>.T.</Keyword><Symbol>))</Symbol><br/>
0055 <Normal Text> hl</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>lside</Normal Text><Symbol>,</Symbol><Keyword>.F.</Keyword><Symbol>,</Symbol><Keyword>.F.</Keyword><Symbol>)</Symbol><br/>
0056 <Normal Text> dlg</Normal Text><Symbol>:</Symbol><Normal Text>userSpace</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>hl</Normal Text><Symbol>,</Symbol><Keyword>.T.</Keyword><Symbol>,</Symbol><Keyword>.T.</Keyword><Symbol>)</Symbol><br/>
0057 <Normal Text> t </Normal Text><Symbol>:=</Symbol><Normal Text> UIVBox</Normal Text><Symbol>()</Symbol><br/>
0058 <Normal Text> hl</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>t</Normal Text><Symbol>,</Symbol><Keyword>.T.</Keyword><Symbol>,</Symbol><Keyword>.T.</Keyword><Symbol>)</Symbol><br/>
0059 <Normal Text></Normal Text><br/>
0060 <Normal Text> t</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>UILabel</Normal Text><Symbol>(</Symbol><String>"License: GPL version 2 or later"</String><Symbol>))</Symbol><br/>
0061 <Normal Text> bb </Normal Text><Symbol>:=</Symbol><Normal Text> UIButtonBar</Normal Text><Symbol>()</Symbol><br/>
0062 <Normal Text> t</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text>bb</Normal Text><Symbol>)</Symbol><br/>
0063 <Normal Text> bD </Normal Text><Symbol>:=</Symbol><Normal Text> UIButton</Normal Text><Symbol>(</Symbol><Normal Text>win</Normal Text><Symbol>,</Symbol><Normal Text> </Normal Text><String>"&Close"</String><Symbol>,</Symbol><Normal Text> </Normal Text><Eval Block>{|o,e| dlg:close() }</Eval Block><Normal Text> </Normal Text><Symbol>)</Symbol><br/>
0064 <Normal Text> bb</Normal Text><Symbol>:</Symbol><Normal Text>add</Normal Text><Symbol>(</Symbol><Normal Text> bD </Normal Text><Symbol>)</Symbol><br/>
0065 <Normal Text></Normal Text><br/>
0066 <Normal Text> dlg</Normal Text><Symbol>:</Symbol><Normal Text>setFocus</Normal Text><Symbol>(</Symbol><Normal Text>bD</Normal Text><Symbol>)</Symbol><br/>
0067 <Normal Text> dlg</Normal Text><Symbol>:</Symbol><Normal Text>setDefault</Normal Text><Symbol>(</Symbol><Normal Text>bD</Normal Text><Symbol>)</Symbol><br/>
0068 <Normal Text> dlg</Normal Text><Symbol>:</Symbol><Normal Text>setPlacement</Normal Text><Symbol>(</Symbol><Normal Text> </Normal Text><Keyword>.T.</Keyword><Normal Text> </Normal Text><Symbol>)</Symbol><br/>
0069 <Normal Text> dlg</Normal Text><Symbol>:</Symbol><Normal Text>show</Normal Text><Symbol>()</Symbol><br/>
0070 <Keyword>return</Keyword><br/>
0071 <Region Marker>//END</Region Marker><br/>