autotests/reference/highlight.lisp.ref

0001 <Comment>;; This test file tests kates common lisp highlighting</Comment><br/>
0002 <Comment>#|</Comment><br/>
0003 <Comment>multilinecomment :)</Comment><br/>
0004 <Comment>|#</Comment><br/>
0005 <Normal></Normal><br/>
0006 <Region Marker>;BEGIN region marker</Region Marker><br/>
0007 <Normal></Normal><br/>
0008 <Region Marker>;END end</Region Marker><br/>
0009 <Normal></Normal><br/>
0010 <Brackets>(</Brackets><Definition>defun</Definition><Function> bin-search </Function><Brackets>(</Brackets><Normal>obj vec</Normal><Brackets>)</Brackets><br/>
0011 <Normal>  </Normal><Brackets>(</Brackets><Keyword>let</Keyword><Normal> </Normal><Brackets>((</Brackets><Normal>len </Normal><Brackets>(</Brackets><Keyword>length</Keyword><Normal> vec</Normal><Brackets>)))</Brackets><br/>
0012 <Normal>    </Normal><Brackets>(</Brackets><Keyword>and</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>not</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>zerop</Keyword><Normal> len</Normal><Brackets>))</Brackets><br/>
0013 <Normal>         </Normal><Brackets>(</Brackets><Normal>finder obj vec </Normal><Decimal>0</Decimal><Normal> </Normal><Brackets>(</Brackets><Operator>-</Operator><Normal> len </Normal><Decimal>1</Decimal><Brackets>)))))</Brackets><br/>
0014 <Normal></Normal><br/>
0015 <Brackets>(</Brackets><Definition>defun</Definition><Function> parse-date </Function><Brackets>(</Brackets><Normal>str</Normal><Brackets>)</Brackets><br/>
0016 <Normal>  </Normal><Brackets>(</Brackets><Keyword>let</Keyword><Normal> </Normal><Brackets>((</Brackets><Normal>toks </Normal><Brackets>(</Brackets><Normal>tokens str </Normal><Function Operator>#'</Function Operator><Function By Name>constituent</Function By Name><Normal> </Normal><Decimal>0</Decimal><Brackets>)))</Brackets><br/>
0017 <Normal>    </Normal><Brackets>(</Brackets><Keyword>list</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>parse-integer</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>first</Keyword><Normal> toks</Normal><Brackets>))</Brackets><br/>
0018 <Normal>          </Normal><Brackets>(</Brackets><Normal>parse-month   </Normal><Brackets>(</Brackets><Keyword>second</Keyword><Normal> toks</Normal><Brackets>))</Brackets><br/>
0019 <Normal>          </Normal><Brackets>(</Brackets><Keyword>parse-integer</Keyword><Normal> </Normal><Brackets>(</Brackets><Keyword>third</Keyword><Normal> toks</Normal><Brackets>)))))</Brackets><br/>
0020 <Normal></Normal><br/>
0021 <Brackets>(</Brackets><Definition>defconstant</Definition><Function> month-names</Function><br/>
0022 <Normal>  #</Normal><Brackets>(</Brackets><String>"jan"</String><Normal> </Normal><String>"feb"</String><Normal> </Normal><String>"mar"</String><Normal> </Normal><String>"apr"</String><Normal> </Normal><String>"may"</String><Normal> </Normal><String>"jun"</String><br/>
0023 <Normal>    </Normal><String>"jul"</String><Normal> </Normal><String>"aug"</String><Normal> </Normal><String>"sep"</String><Normal> </Normal><String>"oct"</String><Normal> </Normal><String>"nov"</String><Normal> </Normal><String>"dec"</String><Brackets>))</Brackets><br/>
0024 <Normal></Normal><br/>
0025 <Brackets>(</Brackets><Definition>defstruct</Definition><Function> buf</Function><br/>
0026 <Normal>  vec </Normal><Brackets>(</Brackets><Normal>start </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>used </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>new </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>end </Normal><Operator>-</Operator><Decimal>1</Decimal><Brackets>))</Brackets><br/>
0027 <Normal></Normal><br/>
0028 <Brackets>(</Brackets><Definition>defparameter</Definition><Function> *words* </Function><Brackets>(</Brackets><Keyword>make-hash-table</Keyword><Normal> :size </Normal><Decimal>10000</Decimal><Brackets>))</Brackets><br/>
0029 <Normal></Normal><br/>
0030 <Brackets>(</Brackets><Definition>defmacro</Definition><Function> while </Function><Brackets>(</Brackets><Normal>test </Normal><Operator>&rest</Operator><Normal> body</Normal><Brackets>)</Brackets><br/>
0031 <Normal>  `</Normal><Brackets>(</Brackets><Keyword>do</Keyword><Normal> </Normal><Brackets>()</Brackets><br/>
0032 <Normal>       </Normal><Brackets>((</Brackets><Keyword>not</Keyword><Normal> ,test</Normal><Brackets>))</Brackets><br/>
0033 <Normal>     ,@body</Normal><Brackets>))</Brackets><br/>
0034 <Normal></Normal><br/>
0035 <Brackets>(</Brackets><Definition>define-modify-macro</Definition><Function> append1f </Function><Brackets>(</Brackets><Normal>val</Normal><Brackets>)</Brackets><br/>
0036 <Normal>  </Normal><Brackets>(</Brackets><Keyword>lambda</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>lst val</Normal><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Keyword>append</Keyword><Normal> lst </Normal><Brackets>(</Brackets><Keyword>list</Keyword><Normal> val</Normal><Brackets>))))</Brackets><br/>
0037 <Normal></Normal><br/>
0038 <Brackets>(</Brackets><Definition>defmethod</Definition><Function> add </Function><Brackets>((</Brackets><Normal>a </Normal><Keyword>vector</Keyword><Brackets>)</Brackets><Normal> </Normal><Brackets>(</Brackets><Normal>b </Normal><Keyword>vector</Keyword><Brackets>))</Brackets><br/>
0039 <Normal>  </Normal><Brackets>(</Brackets><Keyword>map</Keyword><Normal> </Normal><Type>'vector</Type><Normal> </Normal><Function Operator>#'</Function Operator><Function By Name>+</Function By Name><Normal> a b</Normal><Brackets>))</Brackets><br/>
0040 <Normal></Normal><br/>
0041 <Brackets>((</Brackets><Keyword>lambda</Keyword><Normal> </Normal><Brackets>(</Brackets><Normal>a </Normal><Operator>&optional</Operator><Normal> </Normal><Brackets>(</Brackets><Normal>b </Normal><Decimal>2</Decimal><Brackets>))</Brackets><Normal> </Normal><Brackets>(</Brackets><Operator>+</Operator><Normal> a </Normal><Brackets>(</Brackets><Operator>*</Operator><Normal> b </Normal><Decimal>3</Decimal><Brackets>)))</Brackets><Normal> </Normal><Decimal>4</Decimal><Normal> </Normal><Decimal>5</Decimal><Brackets>)</Brackets><br/>