autotests/folding/highlight_cubescript.cfg.fold

0001 // kate: syntax CubeScript;
0002 // CubeScript test
0003
0004 i = 0
0005 rainbowchat = <beginfold id='1'>[</beginfold id='1'>
0006     out = ""
0007     loop k $numargs <beginfold id='1'>[</beginfold id='1'>
0008         word = $(format "arg%1" (+ $k 1))
0009         loop j (stringlen $word) <beginfold id='1'>[</beginfold id='1'>
0010             out = (format "%1^fz%2%3" $out (substring "rygcbvmr" $i 2) (substring $word $j 1))
0011             if (> $i 5) <beginfold id='1'>[</beginfold id='1'>i = 0 <endfold id='1'>]</endfold id='1'> <beginfold id='1'>[</beginfold id='1'>i = (+ $i 1)<endfold id='1'>]</endfold id='1'>
0012         <endfold id='1'>]</endfold id='1'>
0013         out = (format "%1 " $out)
0014     <endfold id='1'>]</endfold id='1'>
0015     if (< (stringlen $out) 128) <beginfold id='1'>[</beginfold id='1'>
0016         say $out
0017     <endfold id='1'>]</endfold id='1'> <beginfold id='1'>[</beginfold id='1'>
0018         echo (format "This message is %1 chars long - the usual limit is 127. Each letter takes up 5." (stringlen $out))
0019     <endfold id='1'>]</endfold id='1'>
0020 <endfold id='1'>]</endfold id='1'>
0021
0022 setcomplete rainbowchat 1
0023 listcomplete rainbowchat <beginfold id='1'>[</beginfold id='1'>
0024     "BoOoM"
0025     "Good game!"
0026     "What the f*** was this?!?"
0027     "go for it!"
0028     "yeeeehaw!"
0029     "what a mess >_< "
0030 <endfold id='1'>]</endfold id='1'>
0031
0032 // Line continuation escape
0033 "string ^
0034     newline"