autotests/reference/highlight.pl.ref

0001 <Keyword>#!/usr/bin/perl -w</Keyword><br/>
0002 <Comment># This is a pseudo Perl file to test Kate's Perl syntax highlighting.</Comment><br/>
0003 <Comment># </Comment><Alert Level 2>TODO</Alert Level 2><Comment>: this is incomplete, add more syntax examples!</Comment><br/>
0004 <Normal Text></Normal Text><br/>
0005 <Keyword>sub </Keyword><Function>prg</Function><Normal Text>(</Normal Text><Data Type>$</Data Type><Normal Text>)</Normal Text><br/>
0006 <Normal Text>{</Normal Text><br/>
0007 <Normal Text>   </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$var</Data Type><Normal Text> = </Normal Text><Function>shift</Function><Normal Text>;</Normal Text><br/>
0008 <Normal Text></Normal Text><br/>
0009 <Normal Text>   </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s/</Operator><Pattern>bla</Pattern><Operator>/</Operator><String (interpolated)>foo</String (interpolated)><Operator>/igs</Operator><Normal Text>;</Normal Text><br/>
0010 <Normal Text>   </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s!</Operator><Pattern>bla</Pattern><Operator>!</Operator><String (interpolated)>foo</String (interpolated)><Operator>!igs</Operator><Normal Text>;</Normal Text><br/>
0011 <Normal Text>   </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>s#</Operator><Pattern>bla</Pattern><Operator>#</Operator><String (interpolated)>foo</String (interpolated)><Operator>#igs</Operator><Normal Text>;</Normal Text><br/>
0012 <Normal Text>   </Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>tr</Operator><Pattern>/a-z/A-Z/</Pattern><Normal Text>;</Normal Text><br/>
0013 <Normal Text>   (</Normal Text><Data Type>$match</Data Type><Normal Text>) = (</Normal Text><Data Type>$var</Data Type><Normal Text> =~ </Normal Text><Operator>m/</Operator><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>.</Pattern><Pattern Internal Operator>*?)</Pattern Internal Operator><Operator>/igs</Operator><Normal Text>);</Normal Text><br/>
0014 <Normal Text></Normal Text><br/>
0015 <Normal Text>   </Normal Text><Data Type>$test</Data Type><Normal Text> = </Normal Text><Decimal>2</Decimal><Normal Text>/</Normal Text><Float>453453.21</Float><Normal Text>;</Normal Text><br/>
0016 <Normal Text>   </Normal Text><Data Type>$test</Data Type><Normal Text> /= </Normal Text><Decimal>2</Decimal><Normal Text>;</Normal Text><br/>
0017 <Normal Text></Normal Text><br/>
0018 <Normal Text>   </Normal Text><Function>print</Function><Normal Text> </Normal Text><Operator>qq~</Operator><String (interpolated)>d fsd fsdf sdfl sd</String (interpolated)><Operator>~</Operator><br/>
0019 <Normal Text>   </Normal Text><br/>
0020 <Normal Text>   </Normal Text><Special Variable>$"</Special Variable><Normal Text> = </Normal Text><Operator>'</Operator><String>/</String><Operator>'</Operator><Normal Text>;</Normal Text><br/>
0021 <Normal Text>   </Normal Text><br/>
0022 <Normal Text>   </Normal Text><Data Type>$foo</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword>__EOF;</Keyword><br/>
0023 <String (interpolated)>d ahfdklf klsdfl sdf sd</String (interpolated)><br/>
0024 <String (interpolated)>fsd sdf sdfsdlkf sd</String (interpolated)><br/>
0025 <Keyword>__EOF</Keyword><br/>
0026 <Normal Text></Normal Text><br/>
0027 <Normal Text>   </Normal Text><Data Type>$x</Data Type><Normal Text> = </Normal Text><Operator>"</Operator><String (interpolated)>dasds</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/>
0028 <Normal Text></Normal Text><br/>
0029 <Normal Text>   </Normal Text><Keyword>next</Keyword><Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text>( </Normal Text><Data Type>$match</Data Type><Normal Text> </Normal Text><Operator>eq</Operator><Normal Text> </Normal Text><Operator>"</Operator><String (interpolated)>two</String (interpolated)><Operator>"</Operator><Normal Text> );</Normal Text><br/>
0030 <Normal Text>   </Normal Text><Keyword>next</Keyword><Normal Text> </Normal Text><Keyword>if</Keyword><Normal Text>( </Normal Text><Data Type>$match</Data Type><Normal Text> =~ </Normal Text><Operator>/</Operator><Pattern>go</Pattern><Operator>/i</Operator><Normal Text> );</Normal Text><br/>
0031 <Normal Text></Normal Text><br/>
0032 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = (</Normal Text><Decimal>1</Decimal><Normal Text>,</Normal Text><Decimal>2</Decimal><Normal Text>,</Normal Text><Decimal>3</Decimal><Normal Text>);           </Normal Text><Comment># a comment</Comment><br/>
0033 <Normal Text>   </Normal Text><Comment># Test qw versions with special ending characters</Comment><br/>
0034 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw(</Operator><Normal Text>apple foo bar</Normal Text><Operator>)</Operator><Normal Text>;</Normal Text><br/>
0035 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw[</Operator><Normal Text>apple foo bar</Normal Text><Operator>]</Operator><Normal Text>;</Normal Text><br/>
0036 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw{</Operator><Normal Text>apple foo bar</Normal Text><Operator>}</Operator><Normal Text>;</Normal Text><br/>
0037 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw<</Operator><Normal Text>apple foo bar</Normal Text><Operator>></Operator><Normal Text>;</Normal Text><br/>
0038 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw(</Operator><br/>
0039 <Normal Text>           multi</Normal Text><br/>
0040 <Normal Text>           line</Normal Text><br/>
0041 <Normal Text>           test</Normal Text><br/>
0042 <Normal Text>   </Normal Text><Operator>)</Operator><Normal Text>;</Normal Text><br/>
0043 <Normal Text>   </Normal Text><Comment># Test qw with non special ending characters;</Comment><br/>
0044 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw/</Operator><Normal Text>apple foo bar</Normal Text><Operator>/</Operator><Normal Text>;</Normal Text><br/>
0045 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw|</Operator><Normal Text>apple foo bar</Normal Text><Operator>|</Operator><Normal Text>;</Normal Text><br/>
0046 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw@</Operator><Normal Text>apple foo bar</Normal Text><Operator>@</Operator><Normal Text>;</Normal Text><br/>
0047 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw!</Operator><Normal Text>apple foo bar</Normal Text><Operator>!</Operator><Normal Text>;</Normal Text><br/>
0048 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw"</Operator><Normal Text>apple foo bar</Normal Text><Operator>"</Operator><Normal Text>;</Normal Text><br/>
0049 <Normal Text>   </Normal Text><Data Type>@array</Data Type><Normal Text> = </Normal Text><Operator>qw'</Operator><Normal Text>apple foo bar</Normal Text><Operator>'</Operator><Normal Text>;</Normal Text><br/>
0050 <Normal Text>   </Normal Text><Function>push</Function><Normal Text>(</Normal Text><Data Type>@array</Data Type><Normal Text>, </Normal Text><Decimal>4</Decimal><Normal Text>);</Normal Text><br/>
0051 <Normal Text>   </Normal Text><Data Type>%hash</Data Type><Normal Text> = (red => </Normal Text><Operator>'</Operator><String>rot</String><Operator>'</Operator><Normal Text>,</Normal Text><br/>
0052 <Normal Text>           blue => </Normal Text><Operator>'</Operator><String>blau</String><Operator>'</Operator><Normal Text>);</Normal Text><br/>
0053 <Normal Text>   </Normal Text><Function>print</Function><Normal Text> </Normal Text><Function>keys</Function><Normal Text>(</Normal Text><Data Type>%hash</Data Type><Normal Text>);</Normal Text><br/>
0054 <Normal Text>}</Normal Text><br/>
0055 <Normal Text></Normal Text><br/>
0056 <Keyword>sub </Keyword><Function>blah</Function><Normal Text> {</Normal Text><br/>
0057 <Normal Text>    </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword> '    EOS';</Keyword><br/>
0058 <Normal Text>        this is my string</Normal Text><br/>
0059 <Normal Text>        and it's continuation</Normal Text><br/>
0060 <Keyword>    EOS</Keyword><br/>
0061 <Normal Text></Normal Text><br/>
0062 <Normal Text>    </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator>"</Operator><String (interpolated)>hello world</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/>
0063 <Normal Text></Normal Text><br/>
0064 <Normal Text>    </Normal Text><Data Type>$str</Data Type><Normal Text> = </Normal Text><Operator><<</Operator><Keyword> "    EOS";</Keyword><br/>
0065 <String (interpolated)>        this is my string</String (interpolated)><br/>
0066 <String (interpolated)>        and it's continuation</String (interpolated)><br/>
0067 <Keyword>    EOS</Keyword><br/>
0068 <Normal Text>}</Normal Text><br/>
0069 <Normal Text></Normal Text><br/>
0070 <Normal Text>&blah;</Normal Text><br/>
0071 <Normal Text>prg(</Normal Text><Operator>"</Operator><String (interpolated)>test</String (interpolated)><Operator>"</Operator><Normal Text>);</Normal Text><br/>
0072 <Normal Text></Normal Text><br/>
0073 <Comment># Bracket closures in RegExp patterns (bug #364866)</Comment><br/>
0074 <Operator>qr{</Operator><Pattern> </Pattern><Pattern Internal Operator>$</Pattern Internal Operator><Pattern>{var} aa{aa{a}a} aa</Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>}</Operator><Normal Text>;</Normal Text><br/>
0075 <Operator>qr(</Operator><Pattern>aa</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>|</Pattern Internal Operator><Pattern>c</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>aa</Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>)</Operator><Normal Text>;</Normal Text><br/>
0076 <Operator>s{</Operator><Pattern>aaa {aaa} a </Pattern><Special Variable>\x{A2}</Special Variable><Pattern> </Pattern><Pattern Internal Operator>*</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>?</Pattern Internal Operator><Operator>}{</Operator><String (interpolated)>aa</String (interpolated)><Operator>}</Operator><Normal Text>;</Normal Text><br/>
0077 <Operator>s(</Operator><Pattern>aa</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>(</Pattern Internal Operator><Pattern>b</Pattern><Pattern Internal Operator>|</Pattern Internal Operator><Pattern>c</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>a</Pattern><Pattern Internal Operator>)</Pattern Internal Operator><Pattern>aa</Pattern><Operator>)(</Operator><String (interpolated)>aa</String (interpolated)><Operator>)</Operator><Normal Text>;</Normal Text><br/>
0078 <Normal Text></Normal Text><br/>
0079 <Comment># Strings as scalar references (bug #348765)</Comment><br/>
0080 <Data Type>$x</Data Type><Normal Text> = \</Normal Text><Operator>'</Operator><String>Reference of a String</String><Operator>'</Operator><Normal Text>;</Normal Text><br/>
0081 <Data Type>$y</Data Type><Normal Text> = \</Normal Text><Operator>"</Operator><String (interpolated)>Reference of a String</String (interpolated)><Operator>"</Operator><Normal Text>;</Normal Text><br/>
0082 <Normal Text></Normal Text><br/>
0083 <Comment># Variables that start with underscore (bug #355300)</Comment><br/>
0084 <Data Type>$_variable</Data Type><br/>
0085 <Special Variable>$_</Special Variable><Normal Text> </Normal Text><Comment># Reserved var.</Comment><br/>
0086 <Normal Text></Normal Text><br/>
0087 <Keyword>for</Keyword><Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$x</Data Type><Normal Text> (</Normal Text><Data Type>$hash</Data Type><Normal Text>->{arr}-></Normal Text><Data Type>@</Data Type><Operator>*</Operator><Normal Text>) {</Normal Text><br/>
0088 <Normal Text>    </Normal Text><Keyword>for</Keyword><Normal Text> </Normal Text><Keyword>my</Keyword><Normal Text> </Normal Text><Data Type>$k</Data Type><Normal Text> (</Normal Text><Function>keys</Function><Normal Text> </Normal Text><Data Type>$k</Data Type><Normal Text>->%</Normal Text><Operator>*</Operator><Normal Text>) {</Normal Text><br/>
0089 <Normal Text>        ...</Normal Text><br/>
0090 <Normal Text>    }</Normal Text><br/>
0091 <Normal Text>}</Normal Text><br/>
0092 <Normal Text></Normal Text><br/>
0093 <Comment># Highlight correctly operator // (bug #407327)</Comment><br/>
0094 <Data Type>$x</Data Type><Normal Text> = ns // </Normal Text><Operator>""</Operator><Normal Text>;</Normal Text><br/>
0095 <Function>print</Function><Normal Text> </Normal Text><Data Type>$x</Data Type><Normal Text>;</Normal Text><br/>